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

32K 709/7090 FORTRAN - SECTION SIX

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

Click here to get the file

Size 432.4 kB - File type text/plain

File contents

$JOB   ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF           $00000010
$*     FORTRAN II PROCESSOR, 7090-FO-928                                00000020
$*     VERSION 3, MODIFICATION LEVEL 35                             (35)00000030
$EXECUTE       IBSFAP                                                  $00000050
*      32K 709/7090 FORTRAN SECTION SIX                                 F6A00000
*     FAP                                                               F6A00030
       COUNT   4000                                                     F6A00040
*      32K 709/7090 FORTRAN SECTION SIX                                 F6A00050
       LBL     9F30,X                                                   F6A00055
       REM                                                              F6A00060
       ABS                                                              F6A00070
       SST     FORTRAN                                                 $F6A00071
       TITLE                                                            F6A00080
       EJECT                                                            F6A00970
TOPTAB SYN     BOTIOP-1       TOP OF AVAILABLE TABLE BUFFERS            F6A00972
CITSIZ SYN     200            LENGTH OF CIT TAPE RECORD                 F6A00973
TABTAP SYN     2              TABLE TAPE                                F6A00974
SLSTAP SYN     2              SINGLE COMPILE LISTING TAPE               F6A00975
CITTAP SYN     3              CIT INPUT TAPE                            F6A00976
SBNTAP SYN     3              SINGLE COMPILE BINARY OUTPUT TAPE         F6A00977
COTTAP SYN     4              CIT OUTPUT TAPE                           F6A00978
       REM                                                              F6A00990
       TTL COMMON SUBROUTINES AND ERASABLE                              F6A01000
       REM                                                              F6A01010
       ORG     SYSCUR                                                  $F6A01020
       BCI     1,9F3000                                                $F6A01030
       ORG     (LODR)                                                  $F6A01070
       TXI     ASTART,,300                         8R ENTRY PT,,RECNO   F6A01080
       REM                                                              F6A01090
       REM                                                              F6A01110
       REM     SECTION SIX COMMON SUBROUTINES                           F6A01120
       REM                                                              F6A01130
       ORG    BOTTOM                                                    F6A01140
       REM                                                              F6A01150
       HEAD    X                                                        F6A01160
       REM                                                              F6A01170
 MEMRY PZE     BOTTAB,,TOPTAB PARAMETER TO DEFINE LIMITS OF TABLES      F6A01180
       REM                                                              F6A01190
       REM     ERROR LIST                                               F6A01200
 ERR00 TXL     DELET,,0       MACHINE ERROR (SEE LISTING FOR DETAILS)   F6A01210
 ERR02 TXI    (DIAG),,-2      IFN (IN XR2) GREATER THAN 4095            F6A01220
 ERR03 TXI    (DIAG),,-3      TAPE TABLES OVERFLOWED AVAILABLE MEMORY   F6A01230
 ERR04 TXI    (DIAG),,-4      STORAGE ASSIGNMENTS GREATER THAN 32K CORESF6A01240
 ERR05 TXI    (DIAG),,-5      LITERAL APPEARANCE OF ARGUMENTS IN OBJECT F6A01250
       REM                    PROGRAM MORE THAN 8 TIMES NUMBER IN ARG   F6A01260
       REM                    LIST OF SUBPROGRAM DEFINING STATEMENT     F6A01270
 ERR06 TXI    (DIAG),,-6      MULTIPLY DEFINED SYMBOLS EXIST ON LIST    F6A01280
       REM                    XR1 CONTAINS ORIGIN, XR2 CONTAINS COUNT   F6A01290
 ERR07 TXI    (DIAG),,-7      MORE THAN 2*CITSIZ 9) TABLE ENTRIES       F6A01300
 ERR08 TXI    (DIAG),,-8      CORE TABLES OVERFLOWED AVAILABLE MEMORY   F6A01310
       DUP     1,10           PATCH SPACE FOR ADDITIONAL DIAGNOSTICS    F6A01320
       PZE                                                              F6A01330
       REM                                                              F6A01340
 DELET SXA     DELEX,4        SAVE CALLING LINKAGE                      F6A01350
       CLA*   ORGFLG          IS THIS SINGLE COMPILE                    F6A01360
       TPL     DELEX          YES                                       F6A01370
       TSX    (TAPE),4       *NO, ERASE BINARY CARD IMAGES FROM MON TAPEF6A01380
       PZE     CRDCT,,(SKBP)                                            F6A01390
       PZE     ,,MBNTAP                                                 F6A01400
       TSX    (TAPE),4       *BACKSPACE TO PAGE HEADING                 F6A01410
 SKDP1 PZE     LSTCT,,(SKDP)                                            F6A01420
       PZE     ,,MLSTAP                                                 F6A01430
 DELEX AXT     **,4           RELOAD CALLING LINKAGE                    F6A01440
       TXH    (DIAG),4,0     *WAS THIS CORE ERROR                       F6A01450
       TSX    (MECL),4       *CALL MACHINE ERROR RECORD                 F6A01460
       PZE                    SPACER FOR POSSIBLE PARAMETERS            F6A01470
 CRDCT MZE     **             COUNT OF BINARY CARD IMAGES ON OUTPUT TAPEF6A01480
 LSTCT MZE     **             COUNT OF LINES FOLLOWING PAGE HEADING     F6A01490
       REM                                                              F6A01500
       REM     SORT OUT SYMBOLS, ASSEMBLE INTERNAL SYMBOLS IN TIV FORM  F6A01510
 SORT0 TZE     1,4            IS THERE A SYMBOL                         F6A01520
       SLW     SYMBL          YES, SAVE FOR POSSIBLE DIAGNOSTIC CALL    F6A01530
       LGR     30             ISOLATE FIRST CHARACTER                   F6A01540
       PAX     ,2                                                       F6A01550
       TXL     *+3,2,16                                                 F6A01560
       LGL     30             SYMBOL BEGINS ALPHA                       F6A01570
       TRA     3,4                                                      F6A01580
       TRA     SORT1,2        SYMBOL IS INTERNAL VARIABLE OR IFN        F6A01590
       TSX    XERR00,4       *SYMBOL BEGINS +                           F6A01600
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A01610
*              THE SYMBOL STORED IN LOCATION SYMBL HAS BEEN FOUND IN A  F6A01620
*              CIT SYMBOLIC LOCATION FIELD (CITSL) BY ROUTINE PAS15,    F6A01630
*              CITC2, OR SAP00, OR IN A CIT SYMBOLIC ADDRESS FIELD      F6A01640
*              (CITSA) BY ROUTINES PAS04, BIN01, OR SAP01. THE FIRST SIXF6A01650
*              BITS ARE 010000, WHICH IS AN ILLEGAL COMBINATION IN A    F6A01660
*              SYMBOL. ( SYMBOL BEGINS + )                              F6A01670
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A01680
       TRA     2,4            *    PROGRAM COUNTER                      F6A01690
       TXI     SORT2,4,-1     E)N  SXD INSTRUCTION LOCATION             F6A01700
       TXI     SORT2,4,-1     D)N  LXD INSTRUCTION LOCATION             F6A01710
       TRA     SORT2          C)N  INDEX REGISTER ERASABLE              F6A01720
       TXI     SORT2,4,-1     B)   HOLLERITH DATA                       F6A01730
       TXI     SORT2,4,-1     A)N  RELCON SUBROUTINE LOCATION           F6A01740
       TXI     SORT2,4,-1     9)   INITIALIZATION ADDEND DATA           F6A01750
       TXI     SORT2,4,-1     8)N  FORMAT SPECIFICATION DATA            F6A01760
       TRA     SORT2          7)N  ARITH STATE FUNCTION XR4 ERASABLE    F6A01770
       TXI     SORT2,4,-1     6)   UNIVERSAL CONSTANTS DATA             F6A01780
       TXI     SORT2,4,-1     5)   ASSIGN TRANSFER CONSTANT DATA        F6A01790
       TRA     SORT2          4)N  ARITH STATE FUNCTION ARG ERASABLE    F6A01800
       TXI     SORT2,4,-1     3)   FLOATING POINT CONSTANT DATA         F6A01810
       TXI     SORT2,4,-1     2)   FIXED POINT CONSTANT DATA            F6A01820
       TRA     SORT2          1)N  ARITHMETIC ERASABLE                  F6A01830
 SORT1 LXA     SYMBL,2        0    INTERNAL OR SUB FORMULA NUMBER       F6A01840
       TXH     *+2,2,0        IS THIS INTERNAL FORMULA NUMBER           F6A01850
       TRA     4,4            YES                                       F6A01860
       REM     SYMBOL IS SUBSIDIARY INTERNAL FORMULA NUMBER             F6A01870
       TXL     *+2,2,248      IS INCREMENT LEGAL                        F6A01880
       TSX    XERR00,4       *NO, INCREMENT GREATER THAN (37)8          F6A01890
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A01900
*              THE SUBSIDIARY INTERNAL FORMULA NUMBER STORED IN LOCATIONF6A01910
*              SYMBL (SEE DISCUSSION IMMEDIATELY ABOVE) HAS AN INCREMENTF6A01920
*              ASSIGNED BY SECTION 2 GREATER THAN (37)8. ILLEGAL.       F6A01930
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A01940
       LGL     12             YES, ASSEMBLE SUB IFN                     F6A01950
       RQL     10             IFN IN BITS 5 - 16 (SIGN IS BIT 1)        F6A01960
       LGL     5              INCREMENT IN BITS 17 - 21                 F6A01970
       TXI     SORT2+2,4,1                                              F6A01980
       REM     SYMBOL IS INTERNAL VARIABLE                              F6A01990
 SORT2 RQL     13             ASSEMBLE TYPE IN BITS 1-4 (SIGN IS BIT 1) F6A02000
       LGL     17             1)N, 4)N, 7)N SUBROUT LEVEL IN BITS 14-21 F6A02010
       ALS     15             2), 3), 5), 6), 9), B) ZERO IN BITS  5-21 F6A02020
       REM     5,4  SUB IFN   8)N EXTERNAL FORMULA NUMBER IN BITS  7-21 F6A02030
       TRA     6,4  ERASABLE  A)N, C)N I IN BITS 10-12, T IN BITS 13-21 F6A02040
       REM     7,4  DATA      D)N, E)N I IN BITS  9-11 BB IN BITS 12-21 F6A02050
       REM                    1)0 MAIN PROGRAM ERASABLE                 F6A02060
       REM                    4)0 LIBE SUBROUTINE ERASABLE = 77777      F6A02070
       REM                    7)0 MAIN PROGRAM XR4 ERASABLE = 6)+4      F6A02080
       REM                                                              F6A02090
       REM     SEARCH DEV TABLE FOR SYMBOL IN ACCUMULATOR. IF SYMBOL    F6A02100
       REM     IS IN DEV, RETURN WITH LOCATION ASSIGNED TO SYMBOL. IN   F6A02110
       REM     ANY CASE, RETURN WITH ORDERED LOCATION IN XR2 FOR SYMBOL.F6A02120
 SRDEV SXA     NOTIN,1        SAVE TABLE COUNT                          F6A02130
       SLW     SYMBL          SAVE SYMBOL BEING SEARCHED FOR            F6A02140
       LDQ     DEVTL          INITIALIZE BINARY SEARCH FOR DEV TABLE    F6A02150
       STQ     BSRCH          DOWNWARDS IN MEMORY                       F6A02160
       LXA     DEVTS,1        LOAD HOP COUNT                            F6A02170
       LXD     DEVTS,2        LOAD COUNT OF MEDIAN ENTRY                F6A02180
 SRDE1 LAS*   ORGDEV          IS ENTRY IN TABLE SAME AS NEW ENTRY       F6A02190
       TXI     LOWER,1,-2     NEW ENTRY IS LARGER, LOOK HIGHER IN TABLE F6A02200
       TRA     *+2            YES, XR2 CONTAINS ORDERED LOCATION IN DEV F6A02210
       TXI     RAISE,1,-2     NEW ENTRY IS SMALLER, LOOK LOWER IN TABLE F6A02220
       CLA*   ORGDEA          GET LOCATION ASSIGNED THIS SYMBOL         F6A02230
       LXA     NOTIN,1        RELOAD TABLE COUNT                        F6A02240
       TRA     3,4                                                      F6A02250
 DEVTL TXL     SRDE1,2,**     ,,TABLE LENGTH                            F6A02260
 DEVTS PZE     5,,0           HOP COUNT,,LOCATION OF MEDIAN ENTRY       F6A02270
       REM                                                              F6A02280
       REM     SEARCH TEV TABLE FOR SYMBOL IN ACCUMULATOR. IF SYMBOL    F6A02290
       REM     IS IN TEV, RETURN WITH LOCATION ASSIGNED TO SYMBOL. IN   F6A02300
       REM     ANY CASE, RETURN WITH ORDERED LOCATION IN XR2 FOR SYMBOL.F6A02310
 SRTEV SXA     NOTIN,1        SAVE TABLE COUNT                          F6A02320
       LDQ     TEVTL          INITIALIZE BINARY SEARCH FOR TABLE        F6A02330
       STQ     BSRCH          DOWNWARDS IN MEMORY                       F6A02340
       LXA     TEVTS,1        LOAD HOP COUNT                            F6A02350
       LXD     TEVTS,2        LOAD COUNT OF MEDIAN ENTRY                F6A02360
 SRTE1 LAS*   ORGTEV          IS ENTRY IN TABLE SAME AS NEW ENTRY       F6A02370
       TXI     LOWER,1,-2     NEW ENTRY IS LARGER, LOOK HIGHER IN TABLE F6A02380
       TRA     *+2            YES, XR2 CONTAINS ORDERED LOCATION IN TEV F6A02390
       TXI     RAISE,1,-2     NEW ENTRY IS SMALLER, LOOK LOWER IN TABLE F6A02400
       PXA     ,2             COMPUTE LOCATION FOR VARIABLE             F6A02410
       ADD     TEVBS          POSITION IN TABLE ABOVE BASE LOCATION     F6A02420
       LXA     NOTIN,1        RELOAD TABLE COUNT                        F6A02430
       TRA     2,4                                                      F6A02440
 TEVTL TXL     SRTE1,2,**     ,,TABLE LENGTH                            F6A02450
 TEVTS PZE     5,,0           HOP COUNT,, LOCATION OF MEDIAN ENTRY      F6A02460
       REM                                                              F6A02470
       REM     SEARCH TIV TABLE FOR PSEUDOSYMBOL LEFT ADJUSTED IN       F6A02480
       REM     ACCUMULATOR. IF PSEUDOSYMBOL IS IN TIV, RETURN WITH      F6A02490
       REM     LOCATION ASSIGNED TO PSEUDOSYMBOL OR LENGTH OF BLOCK     F6A02500
       REM     RESERVED FOR ERASABLE STORAGE. IN ANY CASE, RETURN WITH  F6A02510
       REM     ORDERED LOCATION IN XR2 FOR PSEUDOSYMBOL                 F6A02520
 SRTIV SXA     NOTIN,1        SAVE TABLE COUNT                          F6A02530
       SLW     SYMBL          SAVE SYMBOL BEING SEARCHED FOR            F6A02540
       SLW     ERASE                                                    F6A02550
       LDQ     TIVTL          INITIALIZE BINARY SEARCH FOR TIV TABLE    F6A02560
       STQ     BSRCH          UPWARDS IN MEMORY                         F6A02570
       LXA     TIVTS,1        LOAD HOP COUNT                            F6A02580
       LXD     TIVTS,2        LOAD COUNT OF MEDIAN ENTRY                F6A02590
 SRTI1 CAL*   ORGTIV          GET NEXT ENTRY IN TIV TABLE               F6A02600
       STA     ERASE          EQUALIZE ADDRESSES                        F6A02610
       LAS     ERASE          IS ENTRY IN TABLE SAME AS NEW ENTRY       F6A02620
       TXI     LOWER,1,-2     NEW ENTRY IS SMALLER, LOOK HIGHER IN TABLEF6A02630
       TRA     *+2            YES, XR2 CONTAINS ORDERED LOCATION IN DEV F6A02640
       TXI     RAISE,1,-2     NEW ENTRY IS LARGER, LOOK LOWER IN TABLE  F6A02650
       LXA     NOTIN,1        RELOAD TABLE COUNT                        F6A02660
       TRA     2,4                                                      F6A02670
 TIVTL TXH     SRTI1,2,-2     ,,TABLE LENGTH                            F6A02680
 TIVTS PZE     5,,-1          HOP COUNT,,LOCATION OF MEDIAN ENTRY       F6A02690
       REM                                                              F6A02700
       REM                                                              F6A02710
       REM     BINARY SEARCH OF TABLE OF MAXIMUM LENGTH 16K-1. THIS, IN F6A02720
       REM     EFFECT, IS THE LIMIT TO LENGTH OF DEV, TEV, TIV, OR      F6A02730
       REM     SYMBOL TABLE.                                            F6A02740
 BSRCH PZE                    THIS INSTRUCTION IS INITIALIZED FOR       F6A02750
       TQP     *+2            DIRECTION AND LENGTH OF TABLE SEARCHED    F6A02760
       TXI     LOWER,1,-2                                               F6A02770
       TXI     RAISE,1,-2     FOR A TABLE WITH N ENTRIES, THE SEARCH IS F6A02780
       TXI     BSRCH,2,-8192  COMMENCED AT THE 2**X ENTRY, THIS NUMBER  F6A02790
       TXI     BSRCH,2,+8192  BEING THE LARGEST POWER OF 2 LESS THAN N. F6A02800
       TXI     BSRCH,2,-4096  IF THE NEW ENTRY IS IS NOT LOGICALY (OR   F6A02810
       TXI     BSRCH,2,+4096  ALGEBRAICALY) EQUAL TO THIS ENTRY, THE    F6A02820
       TXI     BSRCH,2,-2048  HOP COUNT IS REDUCED OR MULTIPLIED BY     F6A02830
       TXI     BSRCH,2,+2048  2**(X-1), DEPENDING UPON THE RESULTS OF   F6A02840
       TXI     BSRCH,2,-1024  THE COMPARISON AND THE DIRECTION OF THE   F6A02850
       TXI     BSRCH,2,+1024  TABLE. FOR EXAMPLE, THE DEV TABLE GOES    F6A02860
       TXI     BSRCH,2,-512   DOWNWARDS IN MEMORY WITH ENTRIES IN       F6A02870
       TXI     BSRCH,2,+512   DESCENDING LOGICAL ORDER (Z AT THE BOTTOM,F6A02880
       TXI     BSRCH,2,-256   A AT THE TOP). IF THE NEW ENTRY IS LESS   F6A02890
       TXI     BSRCH,2,+256   THAN THE OLD, THE NEXT COMPARISON WILL BE F6A02900
       TXI     BSRCH,2,-128   MADE WITH AN ENTRY HALF WAY CLOSER TO     F6A02910
       TXI     BSRCH,2,+128   THE ORIGIN OF THE TABLE (CLOSER TO A).    F6A02920
       TXI     BSRCH,2,-64                                              F6A02930
       TXI     BSRCH,2,+64    IF A HOP IS MADE BEYOND THE END OF THE    F6A02940
       TXI     BSRCH,2,-32    TABLE, THE TXH OR TXL INSTRUCTION         F6A02950
       TXI     BSRCH,2,+32    INITIALIZED AT BSRCH TRAPS THE HOP AND    F6A02960
       TXI     BSRCH,2,-16    REDUCES THE HOP COUNT. A COMPARISON WILL  F6A02970
       TXI     BSRCH,2,+16    BE MADE WITH A VALID TABLE ENTRY ONLY.    F6A02980
       TXI     BSRCH,2,-8     FOR EXAMPLE, IF THE LENGTH OF THE DEV     F6A02990
       TXI     BSRCH,2,+8     TABLE IS 600, AND THE COMPARISON IS WITH  F6A03000
       TXI     BSRCH,2,-4     THE 768 ENTRY, THE TXL SRDE1,2,600 WILL   F6A03010
       TXI     BSRCH,2,+4     CAUSE THE ENTRY COUNT IN XR2 TO BE        F6A03020
       TXI     BSRCH,2,-2     REDUCED TO 640, AND THEN TO 576 BEFORE    F6A03030
       TXI     BSRCH,2,+2     THE NEXT COMPARISON IS MADE               F6A03040
       TXI     BSRCH,2,-1                                               F6A03050
       TXI     BSRCH,2,+1     HOPS ARE CONTROLLED BY XR1 WHICH CONTAINS F6A03060
       TXI     *+1,2,-1       X+4, WHERE X IS THE POWER OF 2 GREATER    F6A03070
 NOTIN AXT     **,1           THAN WHICH THE TABLE IS.                  F6A03080
       TRA     1,4                                                      F6A03090
 LOWER TRA     *,1            IF SEARCH IS UNSUCCESSFUL, XR2 CONTAINS   F6A03100
 RAISE TRA     *,1            THE ORDERED POSITIN INTO WHICH THE NEW    F6A03110
       REM                    ENTRY IS TO BE INSERTED                   F6A03120
       REM                                                              F6A03130
       DUP     1,10           PATCH SPACE FOR COMMON CODING             F6A03140
       PZE                                                              F6A03150
       REM                                                              F6A03160
       REM                                                              F6A03170
       REM     SENSE SWITCH SIMULATORS                                  F6A03180
 SWCH1 PZE                    DOWN, NO CARDS ON LINE                    F6A03190
 SWCH2 PZE                    DOWN, MACHINE LANGUAGE LISTING PREPARED   F6A03200
 SWCH3 PZE                    DOWN, ONLINE PRINT                        F6A03210
 SWCH4 PZE                    DOWN, ONLINE CARDS TO BE COLUMN BINARY    F6A03220
 SWCH5 PZE                    DOWN, PUNCH LIBRARY SUBROUTINES           F6A03230
 SWCH6 PZE                    DOWN, PUNCH SYMBOL TABLE                  F6A03240
 SWCH7 PZE                    DOWN, PUNCH OFFLINE CARD LABEL (COL 73-80)F6A03250
 SWCH8 PZE                    DOWN, PRINT TWO COLUMN EXTENDED LISTING   F6A03260
 SWCH9 PZE                    DOWN, OFFLINE CARDS TO BE ROW BINARY      F6A03270
 SWC10 PZE                    DOWN, BLOCK LISTING TAPE                  F6A03271
       DEC     ,,,,           EXPANSION SPACE FOR ADDED SS SIMULATORS.  F6A03280
       PZE                    SKEW SPACE                                F6A03290
       REM                                                              F6A03300
       REM     ORIGINS FOR INDIRECT ADDRESSING OF TABLES                F6A03310
ORGFLG EQU     (FGBX)                                                   F6A03320
ORGLCT EQU     (LNCT)                                                   F6A03330
ORGDEV PZE     **,2           ORIGIN FOR NAMES IN DEV,TAG               F6A03340
       PZE     **,2,**        (FLAG FOR PRESENCE OF FORMAT STATEMENTS)  F6A03350
ORGDEA PZE     **,2           ORIGIN FOR LOCATIONS FOR NAMES IN DEV,TAG F6A03360
       PZE     **,2                                                     F6A03370
ORGTEV PZE     **,2           ORIGIN FOR NAMES OF SINGLE CELL VARIABLES F6A03380
       PZE     **,2                                                     F6A03390
       PZE     **,2                                                     F6A03400
ORGTIV PZE     **,2           ORIGIN FOR NAMES, LOCATIONS OF INT VARS   F6A03410
ORGCLO PZE     **,1,**        ORIGIN FOR SUBPROGRAM NAMES               F6A03420
ORGEIF PZE     **,2,**        ORIGIN FOR EXT,,INT STATEMENT NUMBERS     F6A03430
ORGIFN PZE     **,4,**        ORIGIN FOR LOCATIONS FOR INT STATE NUMBERSF6A03440
ORGSUB PZE     **,1,**        ORIGIN FOR ARGUMENT NAMES                 F6A03450
       REM                                                              F6A03460
       DUP     1,10           PATCH SPACE FOR ORIGINS AND ERASABLE      F6A03470
       PZE                                                              F6A03480
       REM                                                              F6A03490
       REM     ERASABLE STORAGE                                         F6A03500
 PCD8L PZE                    LENGTH OF TRANSFER VECTOR (DECREMENT)     F6A03510
       REM                    PROGRAM BREAK (ADDRESS)                   F6A03520
 PCD8R PZE                    COMMON BREAK (ADDRESS)                    F6A03530
 PCD7L PZE                    BCD NAME OF SUBPROGRAM                    F6A03540
 PCD7R PZE                    SUBPROGRAM ENTRY POINT (ADDRESS)          F6A03550
 PGBRK PZE                    FIRST CELL AVAILABLE ABOVE OBJECT PROGRAM F6A03560
 TEVBS PZE                    ORIGIN FOR TEV STORAGE IN OBJECT PROGRAM  F6A03570
 SLINT PZE                    LOCATION SYMBOL FOR FIRST PROGRAM CIT     F6A03580
 SYMBL PZE                    NAME OF VARIABLE TO BE SEARCHED           F6A03590
 ERASE PZE                    ERASABLE FULL WORD                        F6A03600
 PGHED BCI     8,1                                                      F6A03610
       BCI     8,                                                       F6A03620
       BCI     2, PAGE 1                                                F6A03630
 LABEL PZE                    CARD LABEL                                F6A03640
 LOADP SYN     *                                                        F6A03650
       EJECT                                                            F6A03660
       TTL CONTROL ROUTINES FOR FIRST CIT PASS                          F6A03670
       REM                                                              F6A03680
       REM     READ IN ALL TAPE TABLES REQUIRED BY SECTION 6            F6A03690
       REM     COMPILE CIT FOR TAPE TABLE CONSTANTS                     F6A03700
       REM     ENTER NAMES IN TAPE TABLES INTO DEV SYMBOL TABLE         F6A03710
       REM     PASS OVER CIT TAPE TO DEFINE SYMBOLS, ARGUMENTS          F6A03720
       REM     CHANGE INTERNAL PSEUDOOPERATIONS TO MACHINE OPCODES      F6A03730
       REM                                                              F6A03740
       ORG    XLOADP                                                    F6A03750
       REM                                                              F6A03760
       HEAD    A                                                        F6A03770
       REM                                                              F6A03780
       REM     ORIGINS FOR INDIRECT ADDRESSING OF TABLES                F6A03790
 RGCOM PZE     **,2,**        ORIGIN FOR COMMON VARIABLE NAMES          F6A03800
 RGEQU PZE     **,1,**        ORIGIN FOR EQUIVALENT VARIABLE NAMES      F6A03810
       PZE     **,1           ORIGIN FOR EQUIVALENT VARIABLE SUBSCRIPTS F6A03820
 RGFOR PZE     **,1,**        ORIGIN FOR ARITH STATEMENT FUNCTION NAMES F6A03830
       PZE     **,1           ORIGIN FOR LEVEL,,INTERNAL STATEMENT NO   F6A03840
 RGSIZ PZE     **,1,**        ORIGIN FOR ARRAY NAMES                    F6A03850
       PZE     **,1           ORIGIN FOR ARRAY LENGTHS                  F6A03860
 RG9TB PZE     **,1,**        ORIGIN FOR 9) ADDEND CONSTANTS            F6A03870
       REM                                                              F6A03880
       DUP     1,10           PATCH SPACE FOR ORIGINS AND ERASABLE      F6A03890
       PZE                                                              F6A03900
       REM                                                              F6A03910
       REM     ERASEABLE STORAGE                                        F6A03920
 CITSL PZE                    CIT SYMBOLIC LOCATION                     F6A03930
 CITOP PZE                    CIT OPCODE, DECREMENT                     F6A03940
 CITSA PZE                    CIT SYMBOLIC ADDRESS                      F6A03950
 CITRA PZE                    CIT RELATIVE ADDRESS, TAG                 F6A03960
 ADDRS PZE                    ERASABLE ADDRESS FIELD                    F6A03970
 ERASE PZE                    ERASABLE FULL WORD                        F6A03980
 LOCTR PZE                    PROGRAM LOCATION COUNTER                  F6A03990
 UPCTR PZE     -207           UPPER STORAGE LOCATION COUNTER            F6A04000
 TIVCL MZE                    ERASABLE TO COMPUTE LENGTH OF TIV BLOCK   F6A04010
 IDENT PZE                    TABLE IDENTIFICATION NUMBER               F6A04020
 TABCT PZE                    TABLE COUNT FROM TAPE TABLE LABEL         F6A04030
 ARGNO PZE                    ERASABLE USED TO COMPUTE INITIALIZATION   F6A04040
       REM                                                              F6A04050
       REM                                                              F6A04060
 START SLF                    TURN OFF FLAGS                            F6A04070
       DVP     L(0)           TURN ON INDICATOR FOR COMMON AMUSEMENT    F6A04080
       NOP                    PATCH IN SWT FOR DEBUGGING                F6A04090
       TRA     *+2                                                      F6A04100
       HPR     27                                                       F6A04110
       REM                                                              F6A04120
       REM     INITIALIZE ORIGINS OF TABLES                             F6A04130
       LXD    XMEMRY,4        TOP OF MEMORY                             F6A04140
       LXA    XMEMRY,2        BOTTOM OF MEMORY                          F6A04150
       TXI     *+1,2,1                                                  F6A04160
       SXA    ORGDEV,4                                                  F6A04170
       SXA     ADDRS,4        INITIALIZE LOWER CORE TABLE OVERFLOW TEST F6A04180
       PXA     ,2             INITIALIZE ORIGINS OF LOWER CORE TABLES   F6A04190
       AXT     FORLP-ASSLP+1,1                                          F6A04200
       STA     FORLP+1,1                                                F6A04210
       TIX     *-1,1,1                                                  F6A04220
       SXA     CLEAR,4        PREPARE TO CLEAR WORKING MEMORY           F6A04230
       SXD     *+1,2                                                    F6A04240
       TIX     *+2,4,**                                                 F6A04250
       TSX    XERR00,4       *TOPMEM BELOW BOTMEM                       F6A04260
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A04270
*              THE LIMITS OF STORAGE IN CELL MEMRY HAVE BEEN ASSIGNED   F6A04280
*              DURING EDITING OF THIS SYSTEM TAPE. TOPMEM HAS BEEN FOUNDF6A04290
*              TO BE BELOW BOTMEM. SECTION 6 REQUIRES MORE ROOM TO PLAY.F6A04300
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A04310
 CLEAR STZ     **,4                                                     F6A04320
       TIX     *-1,4,1                                                  F6A04330
       REM                                                              F6A04340
       REM     READ IN TAPE TABLES, COMPILE CIT FOR TAPE TABLE CONSTANT F6A04350
       TSX    (TAPE),4       *BACKSPACE TABLE TAPE OVER ASSIGN CONSTANTSF6A04360
       PZE     BKSPC,,(SKBP)                                            F6A04370
       PZE     ASSLB,,TABTAP                                            F6A04380
       CAL     TRAOP          SET CIT OPCODE TO TRA                     F6A04420
       SLW     CITOP                                                    F6A04430
       TSX     RDTAB,4        *READ ASSIGN TABLE (FILE 9)               F6A04440
       TSX     CPCIT,4       *COMPILE 5) CITS                           F6A04450
       CAL     OCTOP          SET CIT OPCODE TO OCT                     F6A04460
       SLW     CITOP                                                    F6A04470
       TSX     RDTAB,4        *READ FIXCON TABLE (FILE 8)               F6A04480
       TSX     CPCIT,4       *COMPILE 2) CITS                           F6A04490
       TSX     RDTAB,4       *READ HOLARG TABLE (FILE 5 RECORD 4)       F6A04500
       TXL     HOLL3+1,1,0    IS HOLARG TABLE EMPTY                     F6A04510
       STA     HOLL1+2        NO, INITIALIZE ORIGIN FOR BCD WORD        F6A04520
       CAL     HLSYM          SET CIT SYMBOLIC LOCATION TO B)           F6A04530
       SLW     CITSL                                                    F6A04540
 HOLL1 CAL     BCDOP          SET CIT OPCODE TO BCD                     F6A04550
       SLW     CITOP                                                    F6A04560
       CAL     **,1           SET CIT SYMBOLIC ADDRESS TO NEXT WORD     F6A04570
       SLW     CITSA          IN HOLARG TABLE                           F6A04580
       ERA     ALONE          IS IT END OF ARGUMENT FLAG                F6A04590
       TZE     HOLL2          YES                                       F6A04600
       TSX     TBCIT,4       *NO, WRITE COMPILED CIT                    F6A04610
       STZ     CITSL          SET SUBSEQUENT SYMBOLIC LOCATION ZERO     F6A04620
       TIX     HOLL1+2,1,1    IS TABLE EXHAUSTED                        F6A04630
       TSX    XERR00,4       *YES, END OF SENTENCE FLAG MISSING         F6A04640
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A04650
*              THE HOLARG TABLE, PREPARED BY SECTION 1 AND 1P, READ FROMF6A04660
*              FILE 5 RECORD 4 LOGICAL TAPE 2, MUST HAVE A FLAG OF 36   F6A04670
*              BINARY ONES AS THE LAST WORD. IT HAS NOT BEEN RECOGNIZED.F6A04680
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A04690
 HOLL2 CAL     OCTOP          SET CIT OPCODE TO OCT                     F6A04700
       SLW     CITOP                                                    F6A04710
       TSX     TBCIT,4       *WRITE COMPILED CIT                        F6A04720
 HOLL3 TIX     HOLL1,1,1      IS TABLE EXHAUSTED                        F6A04730
       TSX     RDTAB,4       *READ FLOCON TABLE (FILE 4 RECORD 1)       F6A04740
       TSX     CPCIT,4       *COMPILE 3) CITS                           F6A04750
       AXT     SXTAB+6,1      INITIALIZE ORIGIN OF UNIVERSAL CONSTANTS $F6A04760
       PXA     ,1                                                       F6A04770
       AXT     6,1            PREPARE TO COMPILE 6 CONSTANTS           $F6A04780
       AXT     8,2            SET INITIAL SYMBOLIC LOCATION TO 6)       F6A04790
       TSX     CPCIT,4       *COMPILE 6) CITS                           F6A04800
       TSX     RDTAB,4       *READ IN FORMAT TABLE (FILE 4 RECORD 2)    F6A04810
       SXD    ORGDEV+1,1      SET SWITCH FOR FORMAT TABLE ENTRIES       F6A04820
       TSX     CPBCD,4       *COMPILE 8) CITS                           F6A04830
       REM                                                              F6A04840
       REM     WRITE OUT CONTENTS OF FINAL PARTIAL BUFFER               F6A04850
       LAC     TBCIT+1,4      COMPUTE PARTIAL WORD COUNT                F6A04860
       SXD     *+2,4                                                    F6A04870
       AXT     CITSIZ+4,4                                               F6A04880
       TXI     *+1,4,**                                                 F6A04890
       SXD     IOCIT,4        INITIALIZE I/O WORD COUNT                 F6A04900
       TSX    (TAPE),4       *WRITE FINAL PARTIAL BUFFER CONTENTS       F6A04910
       PZE     IOCIT,,(WBNP)                                            F6A04920
       PZE     3LABL,,CITTAP                                            F6A04930
       TSX    (TAPE),4       *MARK END OF CIT FILE                      F6A04940
       PZE     ,,(WEFP)                                                 F6A04950
       PZE     3LABL,,CITTAP                                            F6A04960
       TSX    (TAPE),4       *PREPARE FOR FIRST PASS                    F6A04970
       PZE     REWND,,(SKBP)                                            F6A04980
       PZE     3LABL,,CITTAP                                            F6A04990
       TSX     RDTAB,4       *READ FORSUB TABLE (FILE 3)                F6A05000
       SXD     RGFOR,1        SAVE FORSUB TABLE COUNT                   F6A05010
       STA     TAPAR,2        INITIALIZE LOAD POINT FOR SIZ TABLE       F6A05020
       STA     RGFOR          INITIALIZE ORIGIN FOR ARITH STATE NAMES   F6A05030
       ADD     L(1)                                                     F6A05040
       STA     RGFOR+1        INITIALIZE ORIGIN FOR LEVEL,,IFN          F6A05050
       TSX     RDTAB,4       *READ SIZ TABLE (FILE 4 RECORD 3)          F6A05060
       SXD     RGSIZ,1        SAVE SIZE TABLE COUNT                     F6A05070
       STA     TAPAR+1,2      INITIALIZE LOAD POINT FOR SUBDEF TABLE    F6A05080
       STA     RGSIZ          INITIALIZE ORIGIN FOR ARRAY NAME          F6A05090
       ADD     L(1)                                                     F6A05100
       STA     RGSIZ+1        INITIALIZE ORIGIN FOR ARRAY LENGTH        F6A05110
       LXD     IDENT,2        LOAD HIGHEST+1 IFN USED IN PROGRAM        F6A05120
       TXL     *+2,2,4096     IS IFN TOO LARGE                          F6A05130
       TSX    XERR02,4       *YES, IFN LARGER THAN 4095                 F6A05140
       TXI     *+1,2,1        NO, BUMP BY ONE                           F6A05150
       SXD    ORGIFN,2        SAVE HIGHEST IFN+2 FOR TABLE LENGTH ALLOC F6A05160
       TSX     RDTAB,4       *READ END TABLE (FILE 5 RECORD 1)          F6A05170
       TSX     RDTAB,4       *READ SUBDEF TABLE (FILE 5 RECORD 2)       F6A05180
       STA     TAPAR,2        INITIALIZE LOAD POINT FOR COMMON TABLE    F6A05190
       TXL     SUBL1+1,1,0    IS SUBDEF TABLE EMPTY                     F6A05200
       STA    ORGSUB          NO, INITIALIZE ORIGIN FOR DUMMY ARGUMENTS F6A05210
       CAL*   ORGSUB          INSERT BCD SUBPROGRAM NAME                F6A05220
       SLW    XPCD7L          INTO PROGRAM CARD 7L                      F6A05230
       TXI     *+1,1,-1       BUMP COUNT PAST SUBPROGRAM NAME           F6A05240
 SUBL1 SXD    ORGSUB,1        SAVE COUNT OF ARGUMENTS                   F6A05250
       TSX     RDTAB,4       *READ COMMON TABLE (FILE 5 RECORD 3)       F6A05260
       SXD     RGCOM,1        SAVE COMMON TABLE COUNT                   F6A05270
       STA     TAPAR,2        INITIALIZE LOAD POINT FOR EIF TABLE       F6A05280
       STA     IOCIT          INITIALIZE I/O PARAMETER TO WRITE EIF     F6A05290
       STA     TAPAR+1,2      INITIALIZE LOAD POINT FOR EQUIV TABLE     F6A05300
       STA     RGCOM          INITIALIZE ORIGIN FOR COMMON VARIABLE NAMEF6A05310
       TSX     RDTAB,4       *READ EIF  TABLE (FILE 5 RECORD 5)         F6A05320
       SXD    ORGEIF,1        SAVE EIF  TABLE COUNT                     F6A05330
       SXD     IOCIT,1        INITIALIZE I/O PARAMETER TO WRITE EIF     F6A05340
       TXL     *+4,1,0        IS EIF TABLE EMPTY                        F6A05350
       TSX    (TAPE),4       *NO, WRITE EIF TABLE AS FIRST RECORD TAPE 4F6A05360
       PZE     IOCIT,,(WBNC)                                            F6A05370
       PZE     ELABL,,COTTAP                                            F6A05380
       TSX     RDTAB,4       *READ EQUIV TABLE (FILE 5 RECORD 13)       F6A05390
       SXD     RGEQU,1        SAVE EQUIVALENCE TABLE COUNT              F6A05400
       STA     TAPAR,2        INITIALIZE LOAD POINT FOR CLOSUB TABLE    F6A05410
       STA     RGEQU          INITIALIZE ORIGIN FOR VARIABLE NAME       F6A05420
       ADD     L(1)                                                     F6A05430
       STA     RGEQU+1        INITIALIZE ORIGIN FOR SUBSCRIPT           F6A05440
       TSX     RDTAB,4       *READ CLOSUB TABLE (FILE 5 RECORD 14)      F6A05450
       SXD    XPCD8L,1        INSERT VECTOR LENGTH IN PC 8L DECREMENT   F6A05460
       SXD    ORGCLO,1        SAVE CLOSUB TABLE COUNT                   F6A05470
       STA    ORGCLO          INITIALIZE ORIGIN FOR SUBPROGRAM NAMES    F6A05480
       REM                                                              F6A05490
       REM     INITIALIZE ORIGIN OF DEA TABLE SPLITTING AVAILABLE       F6A05500
       REM     MEMORY ABOVE CLOSUB TABLE WITH DEV                       F6A05510
       STA     ADDRS          SET TOP OF LOWER MEMORY TABLES            F6A05520
       CLA    ORGDEV          GET ORIGIN OF UPPER TABLES                F6A05530
       ANA     ADMSK                                                    F6A05540
       ADD     L(1)                                                     F6A05550
       STA    ORGDEV+1                                                  F6A05560
       SUB     ADDRS          COMPUTE AVAILABLE MEMORY                  F6A05570
       TPL     *+2            DID TAPE TABLES OVERLAP UPPER MEMORY      F6A05580
       TSX    XERR03,4       *YES                                       F6A05590
       ARS     1              NO, SPLIT AVAILABLE MEMORY                F6A05600
       PAX     ,2                                                       F6A05610
       TXL     *+3,2,16383    IS THIS LONGER THAN BINARY SEARCH         F6A05620
       LXD     *-1,2          YES, SET MAXIMUM TABLE LENGTH             F6A05630
       PXA     ,2                                                       F6A05640
       SXD     ENDET,2        SET DEV TABLE OVERFLOW TEST               F6A05650
       SBM    ORGDEV          INITIALIZE ORIGIN FOR DEA TABLE           F6A05660
       STA    ORGDEA                                                    F6A05670
       SUB     L(1)                                                     F6A05680
       STA    ORGDEA+1                                                  F6A05690
       AXT     0,2                                                      F6A05700
       CLA     ALONE          SET BINARY SEARCH STOP                    F6A05710
       STO*   ORGDEV          AT UPPER END OF DEV TABLE                 F6A05720
       REM                                                              F6A05730
       REM     ALL TAPE TABLES REQUIRED BY SECTION 6 ARE IN MEMORY.     F6A05740
       REM     CONSTRUCT OBJECT PROGRAM STORAGE ALLOCATION TABLE        F6A05750
       REM     FROM INFORMATION IN TAPE TABLES                          F6A05760
       LXD     RGCOM,1        LOAD COMMON TABLE COUNT                   F6A05770
       REM                                                              F6A05780
       REM     REENTRY TO ASSIGN NEXT SUPERCOMMON STATEMENT             F6A05790
 SPRCM TXL     COMS1+1,1,0    IS COMMON TABLE EMPTY                     F6A05800
       SXD     RGCOM,1        NO, SAVE COUNT OF REMAINING COMMON VARIABSF6A05810
       CLA     T(2)           RESET TAG FOR INDIRECT ADDRESS OF         F6A05820
       STT     RGCOM          COMMON TABLE                              F6A05830
       REM                                                              F6A05840
       REM     ASSIGN LOCATIONS TO COMMON-EQUIVALENCE VARIABLES         F6A05850
       LXD     RGEQU,1        GET EQUIVALENCE TABLE COUNT               F6A05860
       TXL     EQCM1+1,1,0    IS EQUIVALENCE TABLE EMPTY                F6A05870
 EQCOM SXA     SEQAS+1,1      NO, SAVE COUNT OF FIRST SYMBOL THIS SET   F6A05880
       LXD     RGCOM,2        GET COMMON TABLE COUNT                    F6A05890
       CAL*    RGEQU          GET NEXT SYMBOL THIS SET                  F6A05900
       LAS*    RGCOM          IS EQUIVALENCE VARIABLE IN COMMON         F6A05910
       TRA     *+2            NO                                        F6A05920
       TSX     SEQAS,4       *YES, ASSIGN THIS SET TO UPPER MEMORY      F6A05930
       CAL*    RGCOM          GET COMMON VARIABLE                       F6A05940
       ERA     ALONE          IS THIS END OF SUPERCOMMON STATEMENT      F6A05950
       TZE     *+2            YES                                       F6A05960
       TIX     EQCOM+2,2,1    NO, IS COMMON TABLE EXHAUSTED             F6A05970
       CLA*    RGEQU+1        YES, GET SUBSCRIPT                        F6A05980
       TMI     EQCM1          IS THIS END OF SENTENCE                   F6A05990
       TIX     EQCOM+1,1,2    NO, IS EQUIVALENCE TABLE EXHAUSTED        F6A06000
       TSX    XERR00,4       *YES, END OF SENTENCE FLAG MISSING         F6A06010
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A06020
*              THE EQUIVALENCE TABLE PREPARED BY SECTION 1 AND PROCESSEDF6A06030
*              BY 1P, READ FROM FILE 5 RECORD 13 LOGICAL TAPE 2, MUST   F6A06040
*              HAVE A FLAG OF 36 BINARY ONES AS THE LAST WORD. THIS FLAGF6A06050
*              HAS NOT BEEN RECOGNIZED.                                 F6A06060
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A06070
 EQCM1 TIX     EQCOM,1,2      IS EQUIVALENCE TABLE EXHAUSTED            F6A06080
       REM                                                              F6A06090
       REM     ASSIGN LOCATIONS TO COMMON-DIMENSION VARIABLES           F6A06100
       LXD     RGCOM,1        GET COMMON TABLE COUNT                    F6A06110
       CLA     T(1)           RESET TAG FOR INDIRECT ADDRESS OF         F6A06120
       STT     RGCOM          COMMON TABLE                              F6A06130
       ADD     UPCTR          SET LOCATION ASSIGNED TO THIS SYMBOL      F6A06140
       SLW     ADDRS          TO CURRENT VALUE OF UPPER LOCATION COUNTERF6A06150
 COMAS CAL*    RGCOM          GET NEXT VARIABLE NAME                    F6A06160
       LAS     ALONE          IS THIS END OF SUPERCOMMON STATEMENT FLAG F6A06170
       TRA     *+2            NO                                        F6A06180
       TXI     SPRCM,1,-1     YES, ASSIGN NEXT SUPERCOMMON STATEMENT    F6A06190
       TSX    XSRDEV,4       *IS NAME IN AN EQUIVALENCE SENTENCE        F6A06200
       TSX     ENDEV,4       *NO, ENTER IT INTO DEV                     F6A06210
       TRA     *+2                                                      F6A06220
       TRA     COMS1          YES                                       F6A06230
       CAL    XSYMBL          GET VARIABLE NAME                         F6A06240
       TSX     SSIZE,4       *GET -LENGTH OF THIS ARRAY                 F6A06250
       ADD     ADDRS          BUMP LOCATION COUNTER BY ARRAY LENGTH     F6A06260
       SUB     T(1)           DID ASSIGNMENT WRAP AROUND MEMORY         F6A06270
       TPL     *+2            NO                                        F6A06280
       TSX    XERR04,4       *YES                                       F6A06290
       STA     UPCTR          SAVE NEW VALUE OF UPPER COUNTER           F6A06300
       STA     ADDRS                                                    F6A06310
 COMS1 TIX     COMAS,1,1      IS COMMON TABLE EXHAUSTED                 F6A06320
       CLA     UPCTR          YES, INSERT COMMON BREAK                  F6A06330
       STA    XPCD8R          IN PROGRAM CARD 8R ADDRESS                F6A06340
       REM                                                              F6A06350
       REM     ASSIGN EQUIVALENCE VARIABLES NOT IN COMMON               F6A06360
       LXD     RGEQU,1        GET EQUIVALENCE TABLE COUNT               F6A06370
       TXL     EQLO1+1,1,0    IS EQUIVALENCE TABLE EMPTY                F6A06380
 EQLOW SXA     SEQAS+1,1      NO, SAVE COUNT OF FIRST SYMBOL THIS SET   F6A06390
       CAL*    RGEQU          GET FIRST SYMBOL THIS SENTENCE            F6A06400
       TSX    XSRDEV,4       *IS SENTENCE IN COMMON                     F6A06410
       TSX     SEQAS,4       *NO, ASSIGN SENTENCE TO LOWER MEMORY       F6A06420
       PZE                    NOT USED                                  F6A06430
       CLA*    RGEQU+1        YES, GET NEXT SUBSCRIPT                   F6A06440
       TMI     EQLO1          IS THIS END OF SENTENCE                   F6A06450
       TIX     *-2,1,2        NO, IS EQUIVALENCE TABLE EXHAUSTED        F6A06460
       TSX    XERR00,4       *YES, END OF SENTENCE FLAG MISSING         F6A06470
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A06480
*              SEE DISCUSSION OF SIMILAR ERROR AT EQCOM.                F6A06490
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A06500
       PZE                    NOT USED                                  F6A06510
       PZE                    NOT USED                                  F6A06520
       PZE                    NOT USED                                  F6A06530
 EQLO1 TIX     EQLOW,1,2      IS EQUIVALENCE TABLE EXHAUSTED            F6A06540
       REM                                                              F6A06550
       REM                                                              F6A06560
       REM     ENTER SUBROUTINE ARGUMENTS INTO DEV                      F6A06570
       LXD    ORGSUB,1        GET SUBDEF TABLE COUNT                    F6A06580
       TXL     SBAR1+1,1,0    ARE THERE ANY ARGUMENTS                   F6A06590
       CAL     P(2)           YES, SET ARGUMENT FLAG                    F6A06600
       ADD     T(4)           SET SYMBOL TABLE FLAG                     F6A06610
 SBARG ADD     L(1)           BUMP ARGUMENT COUNT                       F6A06620
       STO     ADDRS                                                    F6A06630
       CAL*   ORGSUB          GET ARGUMENT NAME                         F6A06640
       TSX    XSRDEV,4       *IS ARGUMENT IN COMMON OR EQUIVALENCE      F6A06650
       TSX     ENDEV,4       *NO, ENTER IT INTO DEV                     F6A06660
       TRA     SBAR1                                                    F6A06670
       ANA     T(2)           IS THIS AN EQUIVALENCE VARIABLE           F6A06680
       TZE     *+3            NO                                        F6A06690
       CLA     L(1)           YES, GET SUBROUTINE ARGUMENT FLAG         F6A06700
       TSX     SMDER,4       *ADD THIS NAME TO MULTIPLY DEFINED LIST    F6A06710
       CLA     ADDRS          RESET COMMON STORAGE ASSIGNMENT           F6A06720
       STO*   ORGDEA          TO DELETE FROM MAP                        F6A06730
 SBAR1 TIX     SBARG,1,1      IS ARGUMENT LIST EXHAUSTED                F6A06740
       REM                                                              F6A06750
       REM     ASSIGN LOCATIONS TO DIMENSION VARIABLES                  F6A06760
       LXD     RGSIZ,1        GET SIZ TABLE COUNT                       F6A06770
       TXL     DIMN1+1,1,0    IS SIZ TABLE EMPTY                        F6A06780
       CLA     T(1)           SET SYMBOL TABLE FLAG                     F6A06790
       ADD     UPCTR          SET LOCATION OF ARRAY NAME TO CURRENT     F6A06800
       STO     ADDRS          VALUE OF UPPER LOCATION COUNTER           F6A06810
 DIMEN CAL*    RGSIZ          GET NEXT ARRAY NAME                       F6A06820
       TSX    XSRDEV,4       *IS THIS ARRAY IN COMMON, EQUIV, OR ARG    F6A06830
       TSX     ENDEV,4       *NO, ENTER IT IN DEV                       F6A06840
       TRA     *+2                                                      F6A06850
       TRA     DIMN1          YES, IT IS COMMON, EQUIV, OR ARGUMENT     F6A06860
       CLS*    RGSIZ+1        REDUCE LOCATION COUNTER BY LENGTH OF      F6A06870
       ADD     ADDRS          ARRAY (STORED BACKWARDS IN MEMORY)        F6A06880
       SUB     T(1)           DID ASSIGNMENT WRAP AROUND MEMORY         F6A06890
       TPL     *+2            NO                                        F6A06900
       TSX    XERR04,4       *YES                                       F6A06910
       STA     UPCTR          SAVE NEW VALUE OF UPPER COUNTER           F6A06920
       STA     ADDRS                                                    F6A06930
 DIMN1 TIX     DIMEN,1,2      NO, IS SIZ TABLE EXHAUSTED                F6A06940
       REM                                                              F6A06950
       REM     ENTER TRANSFER VECTOR NAMES IN DEV                       F6A06960
       CAL     P(1)           SET TRANSFER VECTOR FLAG                  F6A06970
       ADD     T(4)           SET SYMBOL TABLE FLAG                     F6A06980
       STO     ADDRS                                                    F6A06990
       LXD    ORGCLO,1        GET COUNT OF TRANSFER VECTOR              F6A07000
       TXL     TRVC1+1,1,0    IS TRANSFER VECTOR EMPTY                  F6A07010
 TRVEC CAL*   ORGCLO          NO, GET NEXT NAME IN TRANSFER VECTOR      F6A07020
       TSX    XSRDEV,4       *IS IT IN DEV                              F6A07030
       TSX     ENDEV,4       *NO, ENTER IT INTO DEV                     F6A07040
       TRA     *+3                                                      F6A07050
       CLA     L(3)           YES, GET TRANSFER VECTOR FLAG             F6A07060
       TSX     SMDER,4       *ADD NAME TO MULTIPLY DEFINED ERROR LIST   F6A07070
       CLA     ADDRS          BUMP LOWER LOCATION COUNTER               F6A07080
       ADD     L(1)                                                     F6A07090
       STA     ADDRS                                                    F6A07100
 TRVC1 TIX     TRVEC,1,1      IS TRANSFER VECTOR EXHAUSTED              F6A07110
       REM                                                              F6A07120
       REM      ENTER INITIAL SYMBOLIC LOCATION INTO DEV                F6A07130
       PXD     ,0             ERASE TRANSFER VECTOR FLAG IN PREFIX      F6A07140
       STP     ADDRS                                                    F6A07150
       CAL     L(SD)          SET INITIAL SYMBOLIC LOCATION TO $        F6A07160
       NZT    XPCD7L          IS THIS A SUBPROGRAM                      F6A07170
       CAL     L(DD)          NO, RESET INITIAL SYMBOLIC LOCATION TO $$ F6A07180
       TSX    XSRDEV,4       *IS THIS IN DEV                            F6A07190
       TSX     ENDEV,4       *NO, ENTER IT INTO DEV                     F6A07200
       TRA     *+2                                                      F6A07210
       TSX    XERR00,4       *YES, $ OR $$ APPEARS IN DEV PREMATURELY   F6A07220
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A07230
*              THE DEV TABLE, MADE UP OF BCD NAMES IN COMMON, DIMENSION,F6A07240
*              EQUIVALENCE, TRANSFER VECTOR (CLOSUB), ARGUMENT LIST     F6A07250
*              (SUBDEF) AND ARITHMETIC STATEMENT FUNCTION (FORSUB) NAMESF6A07260
*              HAS BEEN SEARCHED AND $ OR $$ (SEE LOC SYMBL) HAS BEEN   F6A07270
*              FOUND AT ORGDEV,2. NOONE PUT IT THERE.                   F6A07280
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A07290
       REM                                                              F6A07300
       REM     ENTER ARITHMETIC STATEMENT FUNCTION NAMES IN DEV         F6A07310
       LXD     RGFOR,1        GET FORSUB TABLE COUNT                    F6A07320
       TXL     FORS1+1,1,0    IS FORSUB TABLE EMPTY                     F6A07330
       CLS     T(4)           NO, SET ARITHMETIC STATEMENT FUNCTION     F6A07340
       STO     ADDRS          FLAG (MINUS), SYMBOL TABLE FLAG (TAG)     F6A07350
 FORSB CLA*    RGFOR+1        GET LEVEL,,IFN OF THIS FUNCTION           F6A07360
       ARS     18             ISOLATE IFN                               F6A07370
       STA     ADDRS          FOR DEA ENTRY                             F6A07380
       CAL*    RGFOR          GET NEXT ARITH STATE FUNCTION NAME        F6A07390
       TSX    XSRDEV,4       *IS IT IN DEV                              F6A07400
       TSX     ENDEV,4       *NO, ENTER IT INTO DEV                     F6A07410
       TRA     *+3                                                      F6A07420
       CLA     L(2)           YES, GET ARITHMETIC STATEMENT DEF FLAG    F6A07430
       TSX     SMDER,4       *ADD NAME TO MULTIPLY DEFINED LIST         F6A07440
 FORS1 TIX     FORSB,1,2      IS FORSUB TABLE EXHAUSTED                 F6A07450
       REM                                                              F6A07460
       REM     TO CHECK FOR ILLEGAL USE OF SUBPROGRAM NAME              F6A07470
       CAL    XPCD7L          GET NAME OF THIS SUBPROGRAM               F6A07480
       TSX    XSRDEV,4       *IS IT IN DEV                              F6A07490
       TRA     SBNER+1        NO                                        F6A07500
       PZE                    NOT USED                                  F6A07510
       ANA     T(4)           IS IT FORSUB, TRANSFER VECTOR, OR ARG NAMEF6A07520
       TZE     SBNER+1        NO                                        F6A07530
       CLA     L(4)           YES, GET SUBPROGRAM NAME FLAG             F6A07540
 SBNER TSX     SMDER,4       *ADD NAME TO MULTIPLY DEFINED LIST         F6A07550
       REM                                                              F6A07560
       REM     DEV TABLE IS COMPLETE. PACK DEA UP IN MEMORY AGAINST DEV F6A07570
       CLA    ORGDEA          INITIALIZE MOVE LOOP                      F6A07580
       STA     MVDEA                                                    F6A07590
       LXD    XDEVTL,4        COMPUTE POSITION OF LAST ENTRY IN DEV     F6A07600
       PXA     ,4                                                       F6A07610
       SBM    ORGDEV                                                    F6A07620
       STA    ORGDEA          INITIALIZE NEW ORIGIN OF DEA TABLE        F6A07630
       STA    ORGIFN          INITIALIZE ORIGIN OF IFN TABLE            F6A07640
       REM                    IFN WILL OCCUPY DECREMENT, DEA ADDRESS    F6A07650
       REM                    PORTION OF WORDS IN SHARED MEMORY         F6A07660
       SXD     MVDEA+3,4      SET END OF MOVE LOOP TEST                 F6A07670
       AXT     1,6            PREPARE TO MOVE DEA TABLE OFF THE TOP     F6A07680
 MVDEA CLA     **,2           MOVE NEXT ENTRY IN DEA                    F6A07690
       STO*   ORGDEA          UP PACKED AGAINST DEV                     F6A07700
       TXI     *+1,6,1        BUMP TO NEXT WORD IN DEA                  F6A07710
       TXL     MVDEA,2,**     IS DEA EXHAUSTED                          F6A07720
       SXD     *+2,2          YES, SET TEST FOR ORIGIN OF TEV TABLE     F6A07730
       LXD    ORGIFN,2        GET LENGTH OF REQUIRED IFN TABLE          F6A07740
       TXL     *+2,2,**       IS DEA LONGER THAN IFN                    F6A07750
       LXD    ORGIFN,4        NO, GET COUNT OF IFN TABLE INSTEAD        F6A07760
       PXA     ,4             COMPUTE ORIGIN OF TEV TABLE               F6A07770
       SBM    ORGDEA          PACKED AGAINST LAST ENTRY IN DEA OR IFN   F6A07780
       STA    ORGTEV                                                    F6A07790
       SUB     L(1)                                                     F6A07800
       STA    ORGTEV+1                                                  F6A07810
       REM                                                              F6A07820
       REM     INITIALIZE PASS OVER CIT TAPE                            F6A07830
       REM     INITIALIZE ORIGIN OF TIV TABLE ALLOWING 8 ENTRIES IN     F6A07840
       REM     ARGUMENT LIST FOR EACH ARGUMENT IN SOURCE PROGRAM        F6A07850
       LXD    ORGSUB,4        LOAD COUNT OF ARGUMENTS                   F6A07860
       PXA     ,4                                                       F6A07870
 ARGTB ALS     4              MULTIPLY BY 16 (2 WORDS FOR EACH ENTRY)   F6A07880
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F6A07890
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F6A07900
       REM     CHANGE SHIFT AT ARGTB TO ALTER LENGTH OF BUFFER          F6A07910
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F6A07920
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * F6A07930
       TXH     *+2,4,12       IS TABLE RESERVATION AT LEAST 200 WORDS   F6A07932
       CLA     L(200          NO, PROVIDE FOR AT LEAST 100 ENTRIES      F6A07934
       PAX     ,1                                                       F6A07940
       SXD     PAS10,1        INITIALIZE ARGUMENT LIST OVERFLOW TEST    F6A07950
       SXD     *+2,1                                                    F6A07960
       LXA    XMEMRY,1                                                  F6A07970
       TXI     *+1,1,**                                                 F6A07980
       SXA    ORGTIV,1                                                  F6A07990
       TXI     *+1,1,-1                                                 F6A08000
       SXA    ORGTIV-1,1                                                F6A08010
       LAC    ORGTIV,2        COMPUTE LENGTH OF TIV AND TEV TABLES      F6A08020
       SXD     *+2,2          FOR TABLE OVERFLOW TEST                   F6A08030
       LXA    ORGTEV,2                                                  F6A08040
       TXI     *+1,2,**                                                 F6A08050
       SXD     ENTET,2                                                  F6A08060
       PXA     ,2                                                       F6A08070
       PAC     ,2                                                       F6A08080
       SXD     ENTIT,2                                                  F6A08090
       CLA     ALONE                                                    F6A08100
       AXT     0,2            SET BINARY SEARCH STOPS                   F6A08110
       STO*   ORGTEV          AT UPPER END OF TEV TABLE                 F6A08120
       STO*   ORGTIV          AND AT LOWER END OF TIV TABLE             F6A08130
       TXI     *+1,2,-1       CLEAR FIRST WORD IN TIV                   F6A08140
       STZ*   ORGTIV                                                    F6A08150
       TXL     PAS01,4,0      ARE THERE ANY ARGUMENTS                   F6A08160
       TSX     RDCIT,4       *YES, READ FIRST CIT                       F6A08170
       TRA     RDCRR         *WAS END OF CIT FILE MISTAKENLY SENSED     F6A08180
       CAL     CITSL          NO, GET FIRST SYMBOLIC LOCATION           F6A08190
       TNZ     *+3            IS A SYMBOLIC LOCATION ASSIGNED           F6A08200
       CAL     L(8)           NO, SET IT TO A1                          F6A08210
       SLW     CITSL                                                    F6A08220
       SLW    XSLINT                                                    F6A08230
       TRA     PAS01+2                                                  F6A08240
       REM                                                              F6A08250
       REM     PASS OVER CIT TAPE 3 TO DEFINE VARIABLE NAMES NOT IN DEV F6A08260
       REM     AND TO PREPARE INITIALIZATION FOR ARGUMENTS              F6A08270
 PAS01 TSX     RDCIT,4       *GET NEXT CIT                              F6A08280
       TRA     PAS18+2        WAS END OF CIT FILE SENSED                F6A08290
       STZ     ADDRS          NO, RESET LOCATION OF THIS SYMBOL         F6A08300
       CAL     CITOP          GET CIT OPCODE                            F6A08310
       LXD     OPLST,4        LOAD COUNT OF SPECIAL OPERATIONS          F6A08320
       LAS     OPLST+16,4     IS OPCODE ON LIST                         F6A08330
       TRA     *+2            NO                                        F6A08340
       TRA     PAS02+1,4      YES                                       F6A08350
       TIX     *-3,4,1        IS SPECIAL OPERATION LIST EXHAUSTED       F6A08360
       TXI     PAS04,4,15     YES                                       F6A08370
       DUP     1,8            EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS  F6A08380
       PZE                                                              F6A08390
       TRA     PAS03+2        OPCODE IS SXQ                             F6A08400
       TRA     PAS03          OPCODE IS QXD                             F6A08410
       TRA     PAS02+1        OPCODE IS QPR                             F6A08420
       TRA     PAS14          OPCODE IS OCT                             F6A08430
       TRA     PAS14          OPCODE IS BCD                             F6A08440
       SLN     4              OPCODE IS BSS                             F6A08450
 PAS02 TRA     PAS04          OPCODE IS SYN                             F6A08460
       REM     OPCODE IS QPR                                            F6A08470
       STZ     CITSL          ERASE IFN FOR THIS INSTRUCTION            F6A08480
       CAL     TRAOP          REPLACE QPR WITH TRA                      F6A08490
       ZET     CITSA          IS IT TERMINAL SUBROUTINE CALL            F6A08500
       CAL     TSXOP          YES, REPLACE QPR WITH TSX INSTEAD         F6A08510
       SLW     CITOP                                                    F6A08520
       CLA     LOCTR          BUMP PROGRAM COUNTER                      F6A08530
       ADD     L(1)                                                     F6A08540
       STO     LOCTR                                                    F6A08550
       TSX     WRCIT,4       *WRITE CIT ON TAPE 4                       F6A08560
       TSX     RDCIT,4       *DELETE FOLLOWING CIT                      F6A08570
       TRA     RDCRR         *WAS END OF CIT FILE MISTAKENLY SENSED     F6A08580
       TRA     PAS01          NO                                        F6A08590
       REM     OPCODE IS QXD OR SXQ                                     F6A08600
 PAS03 CAL     LXDOP          REPLACE QXD WITH LXD                      F6A08610
       TRA     *+2                                                      F6A08620
       CAL     SXDOP          REPLACE SXQ WITH SXD                      F6A08630
       SLW     CITOP                                                    F6A08640
 PAS04 SXA     PAS13,4        SET SPECIAL OPCODE SWITCH                 F6A08650
       CAL     CITSA          GET CIT SYMBOLIC ADDRESS                  F6A08660
       TSX    XSORT0,4       *SORT OUT SYMBOLS                          F6A08670
       TRA     PAS13          NO SYMBOL ASSIGNED                        F6A08680
       TRA     PAS12          PROGRAM COUNTER, DEFINE SYN               F6A08690
       TRA     PAS07          EXTERNAL VARIABLE                         F6A08700
       TRA     PAS13          INTERNAL FORMULA NUMBER, DO NOT DEFINE SYNF6A08710
       TRA     PAS06          SUBSIDIARY INTERNAL FORMULA NUMBER        F6A08720
       TRA     PAS05          INTERNAL SYMBOL FOR ERASABLE              F6A08730
       TSX    XSRTIV,4       *IS INTERNAL SYMBOL FOR LOCATION OF LOAD   F6A08740
       REM                    OR SAVE XR INSTRUCTION IN TIV             F6A08750
       TRA     PAS13          NO                                        F6A08760
       TRA     PAS12+1        YES, DEFINE POSSIBLE SYN                  F6A08770
       REM     SYMBOLLIC ADDRESS IS INTERNAL SYMBOL FOR ERASABLE CELL   F6A08780
 PAS05 TSX    XSRTIV,4       *INTERNAL SYMBOL FOR ERASABLE, IS IT IN TIVF6A08790
       TSX     ENTIV,4       *NO ENTER IT IN TIV                        F6A08800
       STA     TIVCL          YES, GET COUNT OF BLOCK RESERVED          F6A08810
       LDQ     TIVCL                                                    F6A08820
       CLS     CITRA          GET COUNT OF BLOCK REQUIRED               F6A08830
       ARS     18                                                       F6A08840
       TLQ     *+2            IS BLOCK LONG ENOUGH                      F6A08850
       STA*   ORGTIV          NO, REPLACE WITH NEW BLOCK LENGTH         F6A08860
       TRA     PAS13          DO NOT DEFINE SYN                         F6A08870
       REM     SYMBOLLIC ADDRESS IS SUBSIDIARY INTERNAL FORMULA NUMBER  F6A08880
 PAS06 TSX    XSRTIV,4       *IS SUB IFN IN TIV                         F6A08890
       TSX     ENTIV,4       *NO, ENTER IT IN TIV (TO BE DEFINED LATER) F6A08900
       TRA     PAS13          DO NOT DEFINE SYN                         F6A08910
       REM     SYMBOLLIC ADDRESS IS EXTERNAL VARIABLE NAME              F6A08920
 PAS07 TSX    XSRDEV,4       *IS EXTERNAL NAME IN DEV                   F6A08930
       TRA     PAS11          NO                                        F6A08940
       PZE                    NOT USED                                  F6A08950
       TMI     PAS13          YES, IS IT FORSUB NAME                    F6A08960
       PAI                    NO, PICK UP PREFIX                        F6A08970
       LFT     200000         IS IT ARGUMENT NAME                       F6A08980
       TRA     PAS09          YES                                       F6A08990
       LFT     100000         NO, IS IT TRANSFER VECTOR NAME            F6A09000
       TRA     PAS08          YES                                       F6A09010
       CAL     DEAMK          NO, RESET FLAG FOR SYMBOL TABLE           F6A09020
       ANS*   ORGDEA          VARIABLE IS USED IN SOURCE PROGRAM        F6A09030
       TRA     PAS13          DO NOT DEFINE SYN                         F6A09040
       REM     CHECK FOR USE OF TRANSFER VECTOR NAME AS VARIABLE        F6A09050
 PAS08 CAL     CITOP          LOAD OPCODE                               F6A09060
       ERA     OPCD1          IS IT PZE                                 F6A09070
       TZE     PAS13          YES                                       F6A09072
       ERA     OPCD1+1        NO, IS IT TSX                             F6A09074
       TZE     PAS13          YES                                       F6A09080
       CAL     CITSA          NO, LOAD SYMBOLIC ADDRESS                 F6A09090
       LXD     TVTBL,2        LOAD LENGTH OF INTERNAL SUBROUTINE LIST   F6A09092
       LAS     TVTBL,2        IS SUBROUTINE NAME ON LIST                F6A09094
       TRA     *+2            NO                                        F6A09096
       TRA     PAS13          YES                                       F6A09100
       TIX     *-3,2,1        IS LIST EXHAUSTED                         F6A09110
       CLA     L(5)           YES, GET VECTOR NAME USED AS VARIABLE FLAGF6A09120
       TSX     SMDER,4       *ADD NAME TO MULTIPLY DEFINED LIST         F6A09130
       TRA     PAS14                                                    F6A09140
       REM     SYMBOLIC ADDRESS IS AN ARGUMENT WHICH MUST BE INITIALIZEDF6A09150
 PAS09 ALS     18             ISOLATE ARGUMENT NUMBER                   F6A09160
       ADD     LOCTR          RELATIVE COUNT,,ARGUMENT NUMBER           F6A09170
       LDQ     CITRA          GET TAG,,RA OF CIT FOR WORD 2             F6A09180
       LXD    ORGTIV,2        LOAD ARGUMENT LIST COUNT                  F6A09190
       TXI     *+1,2,2        BUMP LIST COUNT TO NEXT ENTRY             F6A09200
       STO*   ORGTIV-1                                                  F6A09210
       STQ*   ORGTIV                                                    F6A09220
 PAS10 TXL     *+2,2,**       DID LIST OVERFLOW                         F6A09230
       TSX    XERR05,4       *YES                                       F6A09240
       SXD    ORGTIV,2        NO, SAVE LIST COUNT                       F6A09250
       TRA     PAS13          DO NOT DEFINE SYN                         F6A09260
       REM     SYMBOLLIC ADDRESS IS SINGLE CELLED ERASABLE VARIABLE     F6A09270
 PAS11 TSX    XSRTEV,4       *IS VARIABLE NAME IN TEV                   F6A09280
       TSX     ENTEV,4       *NO, ENTER IT IN TEV                       F6A09290
       TRA     PAS13          DO NOT DEFINE SYN                         F6A09300
       REM     SYMBOLLIC ADDRESS IS PROGRAM COUNTER ( * )               F6A09310
 PAS12 CLA     LOCTR          GET CURRENT CONTENTS OF LOCATION COUNTER  F6A09320
       STA     ADDRS          TO DEFINE POSSIBLE SYN                    F6A09330
       REM     ENTRY POINT TO UNDEFINE POSSIBLE SYN                     F6A09340
 PAS13 AXT     **,4           LOAD SPECIAL OPCODE SWITCH                F6A09350
       TXH     PAS14,4,1      IS OPCODE SYN                             F6A09360
       NZT     ADDRS          YES, IS SYN DEFINED                       F6A09370
       TSX    XERR00,4       *NO, SYN TO (CITSA) IS UNDEFINED           F6A09380
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09390
*              SECTION 4 HAS WRITTEN THE CIT 'CITSL SYN CITSA',         F6A09400
*              EXPECTING THAT THE SYMBOL IN CITSA HAS ALREADY APPEARED  F6A09410
*              IN A CIT SYMBOLIC LOCATION FIELD. IF SECTION 6 FOUND IT, F6A09420
*              IT WOULD HAVE PUT IT IN TIV. IT HAS NOT BEEN RECOGNIZED. F6A09430
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09440
       TRA     PAS15          YES                                       F6A09450
       REM     OP CODE IS OCT OR BCD PSEUDOOPERATION                    F6A09460
 PAS14 SLT     4              IS OPCODE BSS                             F6A09461
       TRA     *+6            NO                                        F6A09462
       NZT     CITSL          YES, IS SYMBOLIC LOCATION BLANK           F6A09464
       TRA     PAS01          YES, DO NOT LIST NOR BUMP LOCATION COUNTERF6A09466
       CLA     LOCTR          SET LOCATION OF BSS TO RELATIVE COUNT     F6A09467
       STO     ADDRS                                                    F6A09468
       TRA     PAS15          SINCE BSS HAS LOCATION SYMBOL, LIST IT.   F6A09469
       CLA     LOCTR          BUMP RELATIVE COUNT                       F6A09470
       STO     ADDRS          SET LOCATION OF SYMBOL TO RELATIVE COUNT  F6A09480
       ADD     L(1)           NO, BUMP RELATIVE COUNT                   F6A09500
       STO     LOCTR                                                    F6A09510
 PAS15 CAL     CITSL          GET CIT SYMBOLIC LOCATION                 F6A09520
       TSX    XSORT0,4       *SORT OUT SYMBOLS                          F6A09530
       TRA     PAS18          NO SYMBOL ASSIGNED                        F6A09540
       STZ     CITSL          LOCATION COUNTER ( * )                    F6A09550
       REM                    (SEC 3 FLAG TIFGO ENTRY FOR TRASTO        F6A09560
       REM                    TRANSFER ADDRESS, FOR SEC 4 CONSIDERATION)F6A09570
       TRA     PAS18          EXTERNAL VARIABLE                         F6A09580
       TRA     PAS17          INTERNAL FORMULA NUMBER                   F6A09590
       TRA     PAS16          SUBSIDIARY INTERNAL FORMULA NUMBER        F6A09600
       TSX    XERR00,4       *INT SYMBOL FOR ERASABLE IN SYMBOLIC LOC   F6A09610
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09620
*              THE INTERNAL SYMBOL STORED IN SYMBL FOR AN ERASABLE CELL,F6A09630
*              WHICH IS DEFINED BY APPEARING ON THE STORAGE MAP, AND    F6A09640
*              SHOULD NEVER APPEAR IN A SYMBOLIC LOCATION FIELD OF A CITF6A09650
*              HAS BEEN RECOGNIZED IN CITSL.                            F6A09660
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09670
       TSX    XSRTIV,4       *IS INTERNAL SYMBOL FOR DATA IN TIV        F6A09680
       TRA     *+2            NO                                        F6A09690
       TSX    XERR00,4       *INT SYMBOL FOR DATA TWICE IN SYMBOLIC LOC F6A09700
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09710
*              THE INTERNAL SYMBOL FOR A DATA CELL SHOULD APPEAR ONCE   F6A09720
*              AND ONCE ONLY IN THE SYMBOLIC LOCATION FIELD OF A CIT,   F6A09730
*              WHICH SECTION 6 HAS COMPILED FROM DATA IN ASSIGN 5),     F6A09740
*              FIXCON 2), HOLARG B), FLOCON 3), UNIVERSAL CONSTANTS 6), F6A09750
*              AND FORMAT 8), IN THE ROUTINES FOLLOWING CLEAR. DURING   F6A09760
*              THIS PASS, WHEN THIS INTERNAL SYMBOL IS RECOGNIZED IN A  F6A09770
*              CIT SYMBOLIC LOCATION, SECTION 6 ENTERS IT INTO TIV. THE F6A09780
*              INTERNAL SYMBOL STORED IN SYMBL HAS BEEN ENCOUNTERED IN AF6A09790
*              CIT SYMBOLIC LOCATION FIELD (CITSL), AND HAS BEEN FOUND  F6A09800
*              TO BE IN ORGTIV,2 ALREADY. IT SHOULDNT BE THERE          F6A09810
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A09820
       TSX     ENTIV,4       *ENTER IT INTO TIV                         F6A09830
       TRA     PAS18                                                    F6A09840
 PAS16 TSX    XSRTIV,4       *IS SUB INTERNAL FORMULA NUMBER IN TIV     F6A09850
       TRA     PAS18          NO                                        F6A09860
       CLA     ADDRS          YES, DEFINE IT                            F6A09870
       STA*   ORGTIV                                                    F6A09880
       TRA     PAS18                                                    F6A09890
 PAS17 CLA     ADDRS          GET CURRENT LOCATION FOR MAIN IFN         F6A09900
       ADD     L(1)           DIFERENTIATE FROM NONEXECUTABLE IFNS      F6A09910
       ALS     18                                                       F6A09920
       LXD     CITSL,4        LOAD IFN                                  F6A09930
       STD*   ORGIFN          ENTER CURRENT LOCATION IN IFN TABLE       F6A09940
       TXL     *+3,4,**       IS THIS INLINE CODING                     F6A09950
       SXD     *-1,4          YES, UPDATE TEST                          F6A09960
       TRA     PAS18                                                    F6A09970
       PXA     ,4             NO, THIS IS FORSUB IFN                    F6A09980
       STO     ADDRS          SAVE IFN                                  F6A09990
       LXD    XDEVTL,2        LOAD DEV TABLE COUNT                      F6A10000
       CLA*   ORGDEA          LOAD FLAGS                                F6A10010
       TPL     *+4            IS THIS FORSUB NAME                       F6A10020
       ANA     ADMSK          YES, MASK IN IFN                          F6A10030
       SUB     ADDRS          IS IT THIS IFN                            F6A10040
       TZE     *+3            YES                                       F6A10050
       TIX     *-5,2,1        NO, IS DEV TABLE EXHAUSTED                F6A10060
       TRA     PAS18          YES, IFN IS WITHIN BODY OF ARITH STATE    F6A10070
       CAL*   ORGDEV          PICK UP FORSUB NAME                       F6A10080
       SLW     CITSL          REPLACE IFN WITH FORSUB NAME              F6A10090
 PAS18 TSX     WRCIT,4       *WRITE CIT ON TAPE 4                       F6A10100
       TRA     PAS01                                                    F6A10110
       REM                                                              F6A10120
       REM     END OF CIT FILE SENSED                                   F6A10130
       LXA     SMDER,2        HAVE THERE BEEN ANY ERRORS                F6A10140
       TXL     *+3,2,0        NO                                        F6A10150
       AXT     ERLST,1        YES, LOAD ORIGIN OF ERROR LIST            F6A10160
       TSX    XERR06,4       *COUNT OF ERRORS IS IN XR2                 F6A10170
       TSX    (TAPE),4       *PREPARE FOR BINARY OUTPUT                 F6A10180
       PZE     REWND,,(SKBP)                                            F6A10190
       PZE     3LABL,,CITTAP                                            F6A10200
       REM                                                              F6A10210
       REM     PREPARE PAGE HEADING                                     F6A10220
 HEDR0 CLA*   ORGFLG          IS THIS SINGLE COMPILE                    F6A10230
       TMI     CCRD1          NO                                        F6A10240
       ENK                    YES, PICK UP DATE IN CONSOLE KEYS         F6A10250
       STQ     ERASE                                                    F6A10260
       CAL     ERASE                                                    F6A10270
       TZE     CCARD          HAS A DATE BEEN SPECIFIED                 F6A10280
       ANA     BLNKS          YES, MASK IN ZONE BITS                    F6A10290
       TNZ     CCARD          IS IT AN APPARENTLY PROPER DATE           F6A10300
       LGL     12             YES, LEFT ADJUST BCD MONTH                F6A10310
       ALS     6                                                        F6A10320
       ORA     SLASH          FOLLOWED BY SLASH                         F6A10330
       LGL     12             RIGHT ADJUST BCD DAY                      F6A10340
       ALS     6                                                        F6A10350
       ORA     SLASH          FOLLOWED BY SLASH                         F6A10360
       SLW    XPGHED+14       IN WORD 15 OF PAGE HEADING                F6A10370
       LGL     12             LEFT ADJUST BCD YEAR                      F6A10380
       LDQ     BLNKS          FOLLOWED BY BLANKS                        F6A10390
       LGL     24                                                       F6A10400
       SLW    XPGHED+15       IN WORD 16 OF PAGE HEADING                F6A10410
 CCARD CAL    XSKDP1          RESET SKIP TO DECIMAL                    $F6A10411
       STD     SKDP2                                                    F6A10412
       TSX    (TAPE),4       *READ FIRST SOURCE CARD                   $F6A10420
       PZE     *+3,,(RDNC)                                              F6A10430
       PZE     ,,SLSTAP                                                 F6A10440
       PZE     HEDRR                                                    F6A10450
       IORT   XPGHED+1,,12    (NOP)                                     F6A10460
       PXD     ,0                                                       F6A10470
       LDQ    XPGHED+1        GET FIRST WORD                            F6A10480
       STQ    XLABEL          SAVE COMMENTS CHARACTER                   F6A10490
       LGL     6              FIRST CHARACTER                           F6A10500
       CAS     L(C)           IS IT COMMENTS CARD                       F6A10510
       TRA     *+2            NO                                        F6A10520
       CAL     BLANK          YES, DELETE C FROM HEADING                F6A10530
       LGR     6                                                        F6A10540
       STQ    XPGHED+1                                                  F6A10550
       TRA     CCRD1                                                    F6A10560
 HEDRR AXT     12,4           DELETE HEADING                            F6A10570
       CAL     BLNKS                                                    F6A10580
       SLW    XPGHED+13,4                                               F6A10590
       TIX     *-1,4,1                                                  F6A10600
       TSX    (PRNT),4       *PRINT HEADING DELETED MESSAGE             F6A10610
       PZE     HEDRM,,7                                                 F6A10620
 CCRD1 AXT     REWND,2        PREPARE TO PRINT FIRST FILE               F6A10630
       ZET    XSWCH3          IS ONLINE PRINT REQUESTED                 F6A10640
       SXA     *+2,2          YES, RESET SKIP INSTRUCTION TO REWIND     F6A10650
       TSX    (TAPE),4       *SPACE TO PROPER END OF SOURCE PROGRAM     F6A10660
 SKDP2 PZE     D(1),,(SKBP)   (RESET TO (SKDP) IF SINGLE COMPILE)       F6A10670
       PZE     ,,SLSTAP                                                 F6A10680
       REM                                                              F6A10690
       REM     COMPUTE ADDENDS REQUIRED FOR INITIALIZATION              F6A10700
       LXD    ORGTIV,2        LOAD COUNT OF ARGUMENT LIST               F6A10710
       TXL     ARG06+1,2,0    IS ARGUMENT LIST EMPTY                    F6A10720
       CLA     WRCBF-1        NO, INITIALIZE ORIGIN OF 9) TABLE         F6A10730
       STA     RG9TB          IN CIT INPUT BUFFER                       F6A10740
       LXD    ORGSUB,4        LOAD COUNT OF ARGUMENTS                   F6A10750
       SXD     INITT,4        INITIALIZE END OF COMPILE LOOP            F6A10760
 ARG01 SXD     ARGNO,4        SET CURRENT ARGUMENT NUMBER               F6A10770
       LXD    ORGTIV,2        LOAD ARGUMENT LIST COUNT                  F6A10780
       STZ     ADDRS          RESET RUNNING ADDEND                      F6A10790
 ARG02 CLA*   ORGTIV-1        GET NEXT RELATIVE COUNT,,ARGUMENT NUMBER  F6A10800
       ANA     DECMK          ISOLATE ARGUMENT NUMBER                   F6A10810
       SUB     ARGNO          IS IT THIS ARGUMENT                       F6A10820
       TNZ     ARG04+2        NO                                        F6A10830
       CLA*   ORGTIV          YES, GET ,,RA OF CIT TO BE INITIALIZED    F6A10840
       ARS     18                                                       F6A10850
       STO     ERASE                                                    F6A10860
       SUB     ADDRS          REDUCE BY INITIALIZATION TO DATE          F6A10870
       LDQ     ERASE          UPDATE RUNNING ADDEND (CURRENT RA)        F6A10880
       STQ     ADDRS                                                    F6A10890
       TZE     ARG04+1        IS THERE AN ADDEND                        F6A10900
       LXD     RG9TB,1        YES, PICK UP COUNT OF 9)TABLE             F6A10910
       TXL     ARG03,1,0      IS 9) TABLE EMPTY                         F6A10920
       CAS*    RG9TB          NO, IS THIS ADDEND IN 9)TABLE             F6A10930
       TRA     *+2            NO                                        F6A10940
       TRA     ARG04          YES                                       F6A10950
       TIX     *-3,1,1        IS 9) TABLE EXHAUSTED                     F6A10960
       LXD     RG9TB,1        YES, BUMP 9) TABLE COUNT                  F6A10970
 ARG03 TXI     *+1,1,1                                                  F6A10980
       TXL     *+2,1,2*CITSIZ DID 9)TABLE OVERFLOW                      F6A10990
       TSX    XERR07,4       *YES                                       F6A11000
       SXD     RG9TB,1        NO, SAVE NEW 9) TABLE COUNT               F6A11010
       STO*    RG9TB          INSERT CONSTANT IN 9) TABLE               F6A11020
 ARG04 PXA     ,1             INSERT POSITION+1 OF CONSTANT IN 9) TABLE F6A11030
       STO*   ORGTIV          AS NEW WORD 2 IN ARGUMENT LIST            F6A11040
       TIX     ARG02,2,2      IS ARGUMENT LIST EXHAUSTED                F6A11050
       TIX     ARG01,4,1      YES, ARE ARGUMENTS EXHAUSTED              F6A11060
       LXD     RG9TB,1        GET COUNT OF 9) TABLE                     F6A11070
       TXL     ARG06+1,1,0    IS 9) TABLE EMPTY                         F6A11080
       SXD     ARG05,1        NO, SET END OF 9) TABLE COMPILE LOOP TEST F6A11090
       STZ     CITRA          RESET RA,,TAG                             F6A11100
       CAL     OCTOP          SET CIT OPCODE TO OCT                     F6A11110
       SLW     CITOP                                                    F6A11120
       CLA     LOCTR          SET LOCATION OF SYMBOL TO CURRENT CONTENTSF6A11130
       STO     ADDRS          OF PROGRAM COUNTER                        F6A11140
       CAL     9)SYM          SET FIRST CIT SYMBOLIC LOCATION TO 9)     F6A11150
       SLW     CITSL                                                    F6A11160
       ALS     2              CONVERT TO TIV FORM                       F6A11170
       TSX    XSRTIV,4       *IS 9) SYMBOL IN TIV                       F6A11180
       TRA     *+2            NO                                        F6A11190
       TSX    XERR00,4       *YES, INT SYM FOR DATA 9) TWICE IN SYM LOC F6A11200
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A11210
*              THE INTERNAL SYMBOL FOR ARGUMENT ADDEND CONSTANTS 9),    F6A11220
*              WHICH HAS JUST BEEN COMPILED, HAS BEEN FOUND AT ORGTIV,2.F6A11230
*              IT SHOULD NOT HAVE APPEARED IN A SYMBOLIC LOCATION FIELD F6A11240
*              OF ANY CIT, AND SHOULD NOT HAVE BEEN ENTERED INTO TIV.   F6A11250
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A11260
       TSX     ENTIV,4       *ENTER IT                                  F6A11270
       AXT     1,1            START AT TOP OF LIST                      F6A11280
 ARG05 TXH     ARG06+1,1,**   IS 9) TABLE EXHAUSTED                     F6A11290
       CAL*    RG9TB          NO, SET CIT SYMBOLIC ADDRESS              F6A11300
       SLW     CITSA          TO NEXT CONSTANT IN 9) TABLE              F6A11310
       TSX     WRCIT,4       *WRITE CIT                                 F6A11320
       STZ     CITSL          RESET SUBSEQUENT CIT SYMBOLIC LOCATION    F6A11330
       CLA     LOCTR          BUMP PROGRAM COUNTER                      F6A11340
       ADD     L(1)                                                     F6A11350
       STO     LOCTR                                                    F6A11360
 ARG06 TXI     ARG05,1,1      BUMP 9) TABLE COUNT TO NEXT ENTRY         F6A11370
       REM                                                              F6A11380
       REM     WRITE OUT AND CHECK FINAL PARTIAL CIT BUFFER             F6A11390
       LAC     WRCIT+1,4      COMPUTE PARTIAL WORD COUNT                F6A11400
       SXD     *+2,4                                                    F6A11410
       AXT     CITSIZ+4,4                                               F6A11420
       TXI     *+1,4,**                                                 F6A11430
       SXD     IOCIT,4        INITIALIZE I/O COMMAND WORD COUNT         F6A11440
       LXA     WRCI2+1,4      COMPUTE LOAD ADDRESS                      F6A11450
       TXI     *+1,4,-CITSIZ                                            F6A11460
       SXA     IOCIT,4        INITIALIZE I/O COMMAND LOAD POINT         F6A11470
       TSX    (TAPE),4       *WRITE FINAL PARTIAL BUFFER CONTENTS       F6A11480
       PZE     IOCIT,,(WBNP)                                            F6A11490
       PZE     CLABL,,COTTAP                                            F6A11500
       TSX    (TAPE),4       *MARK END OF CIT FILE                      F6A11510
       PZE     ,,(WEFP)                                                 F6A11520
       PZE     CLABL,,COTTAP                                            F6A11530
       TSX    (TAPE),4       *PREPARE FOR SECOND PASS                   F6A11540
       PZE     REWND,,(SKBP)                                            F6A11550
       PZE     CLABL,,COTTAP                                            F6A11560
       CLA     LOCTR          SAVE CURRENT CONTENTS OF LOCATION COUNTER F6A11570
       STO    XPGBRK          (NUMBER OF INSTRUCTIONS IN MAIN PROGRAM)  F6A11580
       LXD    XPCD8L,3        LOAD COUNT OF TRANSFER VECTOR             F6A11590
       SXA    XPCD7R,2        SET TENTATIVE ENTRY POINT IN PC 7R ADDRESSF6A11600
       REM                                                              F6A11610
       REM     TRANSFER VECTOR, PROLOG AND INITIALIZATION RETAINED IN   F6A11620
       REM     TABULAR FORM, AND DO NOT APPEAR ON THE CIT TAPE 4        F6A11630
       SXA     LOCTR,2        INITIALIZE PROGRAM COUNTER                F6A11640
       REM                    TO INSTRUCTION FOLLOWING TRANSFER VECTOR  F6A11650
       LDC    XTEVTL,1        LOAD TEV TABLE LENGTH                     F6A11660
       PXA     ,1             COMPUTE ORIGIN FOR ARGUMENT LIST          F6A11670
       ADM    ORGTEV                                                    F6A11680
       STA    ORGSUB                                                    F6A11690
       NZT    XPCD7L          IS THIS A SUBPROGRAM                      F6A11700
       TRA     INIT5          NO                                        F6A11710
       TXI     *+1,2,4        YES, UPDATE ENTRY POINT PAST              F6A11720
       SXA    XPCD7R,2        NAME AND THREE XR STORAGE CELLS           F6A11730
       TXI     *+1,2,3        UPDATE PROGRAM COUNTER PAST               F6A11740
       SXA     LOCTR,2        THREE SAVE XR INSTRUCTIONS                F6A11750
       LXD    ORGTIV,4        ARE THERE ANY ARGUMENTS                   F6A11760
       TXL     INIT3+5,4,0    NO                                        F6A11770
       SXD     *+2,1          YES, INITIALIZE ARG TABLE OVERFLOW TEST   F6A11780
       LXD     ENTEV+4,4                                                F6A11790
       TXI     *+1,4,**                                                 F6A11800
       SXD     ENART,4                                                  F6A11810
 INIT1 LXD    ORGTIV,2        LOAD ARGUMENT LIST COUNT                  F6A11820
       TSX     GETRG,4       *GET NEXT ARGUMENT LIST ENTRY              F6A11830
       TRA     INIT3          LIST EXHAUSTED                            F6A11840
       REM     THIS ARGUMENT IS USED IN SOURCE PROGRAM                  F6A11850
       ARS     18             CONSTRUCT INITIALIZATION TABLE ENTRY      F6A11860
       ACL     CLAOP          CLA L                                     F6A11870
       TSX     ENARG,4       *ENTER INTO INITIALIZATION TABLE           F6A11880
 INIT2 CLA*   ORGTIV          GET POSITION+1 OF ADDEND IN 9) TABLE      F6A11890
       TZE     *+4            IS THERE AN ADDEND                        F6A11900
       SUB     L(1)           YES, COMPUTE POSITION IN 9) TABLE         F6A11910
       ACL     ADDOP          CONSTRUCT TABLE ENTRY ADD M               F6A11920
       TSX     ENARG,4       *ENTER INTO INITIALIZATION TABLE           F6A11930
       CLA*   ORGTIV-1        GET LOCATION,,ARGUMENT NUMBER             F6A11940
       ANA     ADMSK          CONSTRUCT INITIALIZATION TABLE ENTRY      F6A11950
       ACL     STAOP          STA N                                     F6A11960
       TSX     ENARG,4       *ENTER INTO INITIALIZATION TABLE           F6A11970
       TNX     INIT3,2,2      IS ARGUMENT LIST EXHAUSTED                F6A11980
       TSX     GETRG,4       *NO, GET NEXT  ARGUMENT LIST ENTRY         F6A11990
       TRA     INIT3          INITIALIZATION LIST EXHAUSTED             F6A12000
       TRA     INIT2          NEXT ENTRY IS FOR THIS ARGUMENT NUMBER    F6A12010
       REM     INITIALIZATION LIST EXHAUSTED. PREPARE TO SCAN FOR       F6A12020
       REM     NEXT ARGUMENT NUMBER                                     F6A12030
 INIT3 LXD     ARGNO,4        BUMP TO NEXT ARGUMENT NUMBER              F6A12040
       TXI     *+1,4,1                                                  F6A12050
       SXD     ARGNO,4                                                  F6A12060
 INITT TXL     INIT1,4,**     IS ARGUMENT NUMBER EXHAUSTED              F6A12070
       LXA     ENARG,4        YES, COMPUTE TOTAL LENGTH OF              F6A12080
       SXD    ORGSUB,4        TRANSFER VECTOR, PROLOG, INITIALIZATION   F6A12090
 INIT4 SXD     *+2,4                                                    F6A12100
       LXA     LOCTR,2        BUMP PROGRAM COUNTER BY LENGTH OF         F6A12110
       TXI     *+1,2,**       INITIALIZATION                            F6A12120
       REM                                                              F6A12130
       REM     RELOCATE INTERNAL STATEMENT NUMBER, SUB INTERNAL         F6A12140
       REM     STATEMENT NUMBER, UP BY LENGTH OF VECTOR, PROLOG, INIT   F6A12150
 INIT5 PXA     ,2             COMPUTE INCREMENT                         F6A12160
       STA     ADDRS          FOR TIV LOCATIONS IN LOWER MEMORY         F6A12170
       SUB     L(1)           CORRECT FOR NONEXECUTABLE STATEMNTS       F6A12180
       ALS     18                                                       F6A12190
       STO     ERASE          FOR IFN LOCATIONS                         F6A12200
       PXA     ,2             UPDATE LOWER PROGRAM COUNTER              F6A12210
       ADD    XPGBRK                                                    F6A12220
       STO     LOCTR          FOR TIV ERASABLE STORAGE ASSIGNMENTS      F6A12230
       LXD    ORGIFN,4        LOAD COUNT OF IFN TABLE                   F6A12240
       TXI     *+1,4,-1       FORGET IFNMAX+1                           F6A12250
       CAL*   ORGIFN          PICK UP LOCATION FOR IFN                  F6A12260
       ANA     DECMK          MASK IN LOCATION FOR IFN                  F6A12270
       TZE     *+3            IS IFN FOR NONEXECUTABLE STATEMENT        F6A12280
       ADD     ERASE          NO, INCREMENT BY LENGTH OF VECTOR, PROLOG F6A12290
       STD*   ORGIFN          AND INITIALIZATION                        F6A12300
       TIX     *-5,4,1        IS IFN TABLE EXHAUSTED                    F6A12310
       STZ     ERASE          YES                                       F6A12320
       CAL    ORGTIV          GET PRESENT ORIGIN OF TIV TABLE           F6A12330
       STA     REL01          INITIALIZE COPY LOOP                      F6A12340
       CAL    ORGSUB          GET ORIGIN OF ARGUMENT TABLE              F6A12350
       LXD    ORGSUB,2        GET LENGTH OF ARGUMENT TABLE              F6A12360
       SXA     ERASE,2                                                  F6A12370
       SUB     ERASE          RESERVE LAST UPPER TABLE STORAGE          F6A12380
       LXD    XTIVTL,2        LOAD COUNT OF TIV TABLE                   F6A12390
       SXA     ERASE,2                                                  F6A12400
       ADD     ERASE          RESERVE TIV STORAGE                       F6A12410
       STA     REL05                                                    F6A12420
       SUB     L(1)                                                     F6A12430
       STA    ORGTIV                                                    F6A12440
       TXI     *+1,2,1        BUMP TO LAST WORD IN TIV                  F6A12450
       CLA     T(1)           ENTER A1 IN TIV                           F6A12460
       ADD     ADDRS          WHICH MAY BE SLINT                        F6A12470
       TXI     REL05,2,1                                                F6A12480
 REL01 CAL     **,2           GET NEXT ENTRY IN TIV                     F6A12490
       STA     ERASE          SAVE BLOCK LENGTH                         F6A12500
       ARS     14             SHIFT OUT ADDRESS                         F6A12510
       PDX     ,1             GET FIRST CHARACTER                       F6A12520
       PAX     ,4             GET INCREMENT                             F6A12530
       CAL*    REL01          GET SYMBOL AGAIN                          F6A12540
       TRA     REL02,1        SORT OUT SYMBOLS                          F6A12550
       TSX    XERR00,4       *PROGRAM COUNTER (*) IN TIV TABLE          F6A12560
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A12570
*              THE INTERNAL SYMBOL FOR PROGRAM COUNTER (17)8 HAS BEEN   F6A12580
*              RECOGNIZED IN THE FIRST FOUR BITS AT ORGTIV,2. SECTION 6 F6A12590
*              SHOULD NOT HAVE PUT IT THERE.                            F6A12600
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A12610
       TRA     REL02+2        E)N                                       F6A12620
       TRA     REL02+2        D)N                                       F6A12630
       TRA     REL04          C)N                                       F6A12640
       TRA     REL02          B)                                        F6A12650
       TRA     REL02          A)N                                       F6A12660
       TRA     REL02          9)                                        F6A12670
       TRA     REL02          8)N                                       F6A12680
       TRA     REL04          7)N+M                                     F6A12690
       TRA     REL02          6)                                        F6A12700
       TRA     REL02          5)                                        F6A12710
       TRA     REL03          4)N+M                                     F6A12720
       TRA     REL02          3)                                        F6A12730
       TRA     REL02          2)                                        F6A12740
       TRA     REL04          1)N+M                                     F6A12750
 REL02 STA     TIVCL          NAM, SAVE LOCATION OF SYMBOL IN CIT FILE  F6A12760
       ZET     TIVCL          IS SYMBOL UNDEFINED                       F6A12770
       ADD     ADDRS          NO, RELOCATE SYMBOL IN CIT FILE LENGTH OF F6A12780
       TXI     REL05,2,1      TRANSFER VECTOR PROLOG AND INITIALIZATION F6A12790
 REL03 TXH     REL04,4,0      IS SYMBOL 4)N                             F6A12800
       ORA     ADMSK          NO, IT IS 4). SET ADDRESS TO TOP OF       F6A12810
       TXI     REL05,2,1      MEMORY                                    F6A12820
 REL04 SLW*   ORGTIV          PACK IT AGAINST UPPER TABLES              F6A12830
       CLA     LOCTR          SET LOCATION OF ERASABLE TO CURRENT       F6A12840
       STA*   ORGTIV          CONTENTS OF PROGRAM COUNTER               F6A12850
       ADD     ERASE          BUMP PROGRAM COUNTER BY LENGTH OF         F6A12860
       ADD     L(1)           BLOCK RESERVED                            F6A12870
       STO     LOCTR                                                    F6A12880
       TXI     REL05+1,2,1                                              F6A12890
 REL05 SLW     **,2           RESET INCREMENTED LOCATION                F6A12900
       TXH     REL01,2,0      IS TIV EXHAUSTED                          F6A12910
       CLA     LOCTR          YES, SET ORIGIN OF TEV TO                 F6A12920
       SUB     L(1)           TO LAST ASSIGNMENT MADE TO TIV            F6A12930
       STO    XTEVBS                                                    F6A12940
       LXD    XTEVTL,1        BUMP PROGRAM COUNTER BY LENGTH OF TEV     F6A12950
       PXA     ,1                                                       F6A12960
       ADD     LOCTR                                                    F6A12970
       STO     LOCTR                                                    F6A12980
       REM                                                              F6A12990
       REM     RELOCATE NON-COMMON STORAGE DOWN BELOW PROGRAM BREAK     F6A13000
       CLA     UPCTR          GET CELL BELOW LAST ASSIGNMENT MADE       F6A13010
       REM                    IN UPPER MEMORY                           F6A13020
       ADD     L(1)                                                     F6A13030
       STO     ERASE          THIS IS LOCATION OF LOWEST STORAGE CELL   F6A13040
       SUB     LOCTR          GET CELL ABOVE LAST CELL ON STORAGE MAP   F6A13050
       STO     ADDRS          THIS IS LENGTH OF RELOCATION              F6A13060
       TPL     *+2            DID ASSIGNMENT WRAP AROUND MEMORY         F6A13070
       TSX    XERR04,4       *YES                                       F6A13080
       CLA    XPCD8R          NO, GET COMMON BREAK                      F6A13090
       SUB     UPCTR          GET NUMBER OF VARIABLES TO BE RELOCATED   F6A13100
       ADD     LOCTR          ADD TO FIRST CELL INTO WHICH RELOCATED    F6A13110
       STA    XPCD8L          INSERT PROGRAM BREAK IN PC 8L ADDRESS     F6A13120
       SUB     L(1)                                                     F6A13130
       STO    XPGBRK          THIS IS TOP OF LOWER STORAGE              F6A13140
       LXD    XDEVTL,2        GET COUNT OF DEV TABLE                    F6A13150
 RLDEA LDI*   ORGDEA          GET NEXT ADDRESS IN DEA                   F6A13160
       RFT     400000         IS IT FORSUB, CLUSUB, ARGUMENT NAME OR $  F6A13170
       TRA     RLDE1          YES                                       F6A13180
       PIA                    NO                                        F6A13190
       ANA     ADMSK          ISOLATE ADDRESS                           F6A13200
       CAS    XPCD8R          IS IT BELOW COMMON                        F6A13210
       TRA     RLDE1          NO                                        F6A13220
       NOP                    YES                                       F6A13230
       SUB     ADDRS          YES, RELOCATE DOWNWARDS                   F6A13240
       STA*   ORGDEA                                                    F6A13250
 RLDE1 TIX     RLDEA,2,1      IS DEV TABLE EXHAUSTED                    F6A13260
       TSX    (LOAD),4       *CALL RECORD 31                            F6A13270
       PZE                    NOT USED                                  F6A13280
       REM                                                              F6A13290
       TTL SUBROUTINES RELEVANT TO FIRST CIT PASS                       F6A13300
       REM     READ TAPE TABLE INTO LOWER MEMORY                        F6A13310
       REM     PARAMETER IS   PRE ADDRS,TAG,DECREM                      F6A13320
       REM     WHERE PREFIX IS 4 IF NO TABLE IDENTIFICATION NUMBER      F6A13330
       REM                     2 IF NO WORD COUNT                       F6A13340
       REM                     1 IF WORD COUNT IS IN ADDRESS            F6A13350
       REM                     0 IF WORD COUNT IS IN DECREMENT          F6A13360
       REM           DECREM IS TABLE IDENTIFICATION NUMBER (IF ANY)     F6A13370
       REM           TAG    IS NUMBER OF WORDS PRECEDING TABLE          F6A13380
       REM           ADDRSS IS LOAD ADDRESS                             F6A13390
 RDTAB SXA     RDTBX,4        SAVE CALLING LINKAGE                      F6A13400
       AXT     TLABL-ASSLB,2  LOAD CURRENT TABLE INDEX                  F6A13410
       CAL     TAPAR,2        GET LOAD ADDRESS,,TABLE ID NUMBER         F6A13420
       STA     ERASE          INITIALIZE OVERFLOW TEST                  F6A13430
       STA     IOTAB+1        INITIALIZE TABLE LOAD ADDRESS             F6A13440
       ANA     T(7)           MASK IN PRETABLE WORD COUNT               F6A13450
       ALS     3                                                        F6A13460
       STD     IOTAB          INITIALIZE PRETABLE WORD COUNT            F6A13470
       PDC     ,4             COMPUTE PRETABLE LOAD ADDRESS             F6A13480
       TXI     *+1,4,IDENT+2                                            F6A13490
       SXA     IOTAB,4        INITIALIZE PRETABLE LOAD ADDRESS          F6A13500
       TSX    (TAPE),4       *READ IN TAPE TABLE                        F6A13510
       PZE     IOTAB,,(RBNP)                                            F6A13520
       PZE     TLABL,2,TABTAP                                           F6A13530
       TXH     *+3,2,1        IS THIS FINAL REPOSITION                  F6A13540
       STA     *+4            YES, DELETE LABEL                         F6A13550
       STT     *+3                                                      F6A13560
       TSX    (TAPE),4       *SKIP TO NEXT TABLE                        F6A13570
       PZE     SKLST,2,(SKBP)                                           F6A13580
       PZE     TLABL+1,2,TABTAP                                         F6A13590
       CLA     TAPAR,2        GET TABLE NUMBER                          F6A13600
       TMI     RDTB1          SHOULD TABLE NUMBER BE CHECKED            F6A13610
       PDX     ,1             YES, PUT TABLE NUMBER IN ADDRESS          F6A13620
       PXA     ,1                                                       F6A13630
       SUB     IDENT          IS TABLE NUMBER CORRECT                   F6A13640
       TZE     RDTB1          YES                                       F6A13650
       AXT     -1,1           NO, LOAD TABLE LABEL FLAG                 F6A13660
       TRA     RDTRR                                                    F6A13670
 RDTB1 LAC     IOTAB+1,1      COMPUTE LENGTH OF TABLE                   F6A13680
       SXD     *+2,1                                                    F6A13690
       LXA    (SCHU)+TABTAP,1 PICK UP TABLE LAST ADDRESS+1              F6A13700
       TXI     *+1,1,**       REDUCE BY TABLE LOAD ADDRESS              F6A13710
       LDI     TAPAR,2        LOAD WORD COUNT FLAG                      F6A13720
       LFT     200000         SHOULD WORD COUNT BE CHECKED              F6A13730
       TRA     RDTB2          NO                                        F6A13740
       PXD     ,1             YES, PUT WORD COUNT IN DECREMENT          F6A13750
       LFT     100000         IS WORD COUNT IN ADDRESS                  F6A13760
       PXA     ,1             YES, PUT WORD COUNT IN ADDRESS INSTEAD    F6A13770
       SUB     TABCT          IS WORD COUNT CORRECT                     F6A13780
       TZE     RDTB2          YES                                       F6A13790
       AXT     -2,1           NO, LOAD TABLE COUNT FLAG                 F6A13800
       TRA     RDTRR                                                    F6A13810
 RDTB2 CLA    (SCHU)+TABTAP   GET ORIGIN AT END OF TABLE                F6A13820
       ANA     ADMSK          MASK IN ADDRESS                           F6A13830
       CAS     ADDRS          DID TABLE OVERFLOW BUFFER SPACE           F6A13840
       TSX    XERR03,4       *YES                                       F6A13850
       NOP                    MAYBE NOT                                 F6A13860
       CAS     ERASE          DID TABLE WRAP AROUND MEMORY              F6A13870
       NOP                    NO                                        F6A13880
       TXI     *+2,2,-1       BUMP TABLE INDEX TO NEXT TABLE            F6A13890
       TSX    XERR03,4       *YES                                       F6A13900
       SXA     RDTAB+1,2      SAVE NEXT TABLE INDEX                     F6A13910
 RDTBX AXT     **,4           RELOAD CALLING LINKAGE                    F6A13920
       TRA     1,4                                                      F6A13930
       REM     ERROR ON TABLE TAPE                                      F6A13940
 RDTRR TSX    (TAPE),4       *PRINT ERROR MESSAGE                       F6A13950
       PZE     *+1,1,(TPER)                                             F6A13960
       PZE     TLABL,2,TABTAP                                           F6A13970
       BCI     1,LABEL                                                  F6A13980
       BCI     1,COUNT                                                  F6A13990
       REM                                                              F6A14000
 IOTAB IOCP    **,,**                                                   F6A14010
       IORT    **,,6001                                                 F6A14020
       REM                                                              F6A14030
 ASSLP MZE     **,1,65        ASSIGN                                    F6A14040
       MON     **,1,66        FIXCON                                    F6A14050
       PZE     **,2,13        HOLARG                                    F6A14060
       MON     **,1,67        FLOCON                                    F6A14070
       PZE     **,2,10        FORMAT                                    F6A14080
 FORLP MTW     **,1,68        FORSUB                                    F6A14090
       MON     **,2,69        SIZ                                       F6A14100
       MTW    XSWCH1,0,70     END                                       F6A14110
       PZE     **,2,11        SUBDEF                                    F6A14120
       PZE     **,2,12        COMMON                                    F6A14130
       PZE     **,2,0         EIF                                       F6A14140
       PZE     **,2,8         EQUIV                                     F6A14150
       PZE     **,2,9         CLOSUB                                    F6A14160
 TAPAR SYN     *                                                        F6A14170
       REM                                                              F6A14180
 3LABL BCI     1,CITS05                                                 F6A14190
 CLABL BCI     1,CITS06                                                 F6A14200
 ELABL BCI     1,TEIFN6                                                 F6A14210
 ASSLB BCI     1,ASCON5                                                 F6A14220
       BCI     1,FIXCN3                                                 F6A14230
       BCI     1,HOLARG                                                 F6A14240
       BCI     1,FLOCON                                                 F6A14250
       BCI     1,FORMAT                                                 F6A14260
       BCI     1,FORSUB                                                 F6A14270
       BCI     1,SIZ                                                    F6A14280
       BCI     1,END                                                    F6A14290
       BCI     1,SUBDEF                                                 F6A14300
       BCI     1,COMMON                                                 F6A14310
       BCI     1,TEIFNO                                                 F6A14320
       BCI     1,EQUIT                                                  F6A14330
       BCI     1,CLOSUB                                                 F6A14340
 TLABL SYN     *                                                        F6A14350
       REM                                                              F6A14360
 BKSPC MZE     1,,0                                                     F6A14370
       MZE     1,,1           TO FIXCON (FILE 8 RECORD 1)               F6A14380
       MZE     11,,3          TO HOLARG (FILE 5 RECORD 4)               F6A14390
       MZE     3,,1           TO FLOCON (FILE 4 RECORD  1)              F6A14400
       PZE     0,,0           TO FORMAT (FILE 4 RECORD  2)              F6A14410
       MZE     1,,1           TO FORSUB (FILE 3 RECORD  1)              F6A14420
       PZE     2,,1           TO SIZ    (FILE 4 RECORD  3)              F6A14430
       PZE     0,,1           TO END    (FILE 5 RECORD  1)              F6A14440
       PZE     0,,0           TO SUBDEF (FILE 5 RECORD  2)              F6A14450
       PZE     0,,0           TO COMMON (FILE 5 RECORD  3)              F6A14460
       PZE     1,,0           TO EIF    (FILE 5 RECORD  5)              F6A14470
       PZE     7,,0           TO EQUIV  (FILE 5 RECORD 13)              F6A14480
       PZE     0,,0           TO CLOSUB (FILE 5 RECORD 14)              F6A14490
 REWND PZE     ,,-1           TO SOURCE (FILE 1 RECORD  1)              F6A14500
 SKLST SYN     *                                                        F6A14510
       REM                                                              F6A14520
       REM     COMPILE CIT FOR FORTRAN CONSTANTS AND PROGRAM DATA       F6A14530
 CPCIT TXL     CPCIX+1,1,0    IS TABLE EMPTY                            F6A14540
       SXA     CPCIX,4        NO, SAVE CALLING LINKAGE                  F6A14550
       STA     CPCI1          INITIALIZE ORIGIN AT END OF TABLE         F6A14560
       CAL     TBSYM+8,2      SET INITIAL CIT SYMBOLIC LOCATION         F6A14570
       SLW     CITSL                                                    F6A14580
 CPCI1 CLA     **,1           GET NEXT CONSTANT                         F6A14590
       STO     CITSA                                                    F6A14600
       TSX     TBCIT,4       *WRITE OUT COMPILED CIT                    F6A14610
       STZ     CITSL          RESET SUBSEQUENT SYMBOLIC LOCATION        F6A14620
       TIX     CPCI1,1,1      IS TABLE EXHAUSTED                        F6A14630
 CPCIX AXT     **,4           YES, RELOAD CALLING LINKAGE               F6A14640
       TRA     1,4                                                      F6A14650
       REM                                                              F6A14660
 9)SYM BCI     1,900000                                                 F6A14670
       BCI     1,500000                                                 F6A14680
       BCI     1,200000                                                 F6A14690
 HLSYM BCI     1,=00000                                                 F6A14700
       BCI     1,300000                                                 F6A14710
 TBSYM BCI     1,600000                                                 F6A14720
       REM                                                              F6A14730
       REM     COMPILE CIT FOR BCD PROGRAM DATA                         F6A14740
 CPBCD TXL     CPBCX+1,1,0    IS TABLE EMPTY                            F6A14750
       SXA     CPBCX,4        NO, SAVE CALLING LINKAGE                  F6A14760
       SXD     CPBC2,1        SET END OF COMPILE LOOP TEST              F6A14770
       SUB     L(1)                                                     F6A14780
       STA     CPBC1+1        INITIALIZE ORIGIN FOR BCD WORD            F6A14790
       SUB     L(1)                                                     F6A14800
       STA     CPBC1+6        INITIALIZE ORIGIN FOR SYMBOL              F6A14810
       SUB     L(1)                                                     F6A14820
       STA     CPBC1+3        INITIALIZE ORIGIN FOR FLAG                F6A14830
       CAL     BCDOP          SET CIT OP CODE TO BCD                    F6A14840
       SLW     CITOP                                                    F6A14850
       CAL     ALONE          SET STOP PRECEDING TABLE                  F6A14860
       SLW*    CPBC1+1                                                  F6A14870
       AXT     1,1            START WITH LAST WORD IN TABLE             F6A14880
 CPBC1 STZ     CITSL          RESET CIT SYMBOLIC LOCATION               F6A14890
       CAL     **,1           MOVE BCD WORD INTO SYMBOLIC ADDRESS       F6A14900
       SLW     CITSA                                                    F6A14910
       CAL     **,1           IS THIS BEGIN STATEMENT FLAG              F6A14920
       ERA     ALONE                                                    F6A14930
       TNZ     *+4            NO                                        F6A14940
       CAL     **,1           YES, SET SYMBOLIC LOCATION TO M)N SYMBOL  F6A14950
       SLW     CITSL                                                    F6A14960
       TXI     *+1,1,2        BUMP WORD COUNT PAST FLAG AND SYMBOL      F6A14970
       TSX     TBCIT,4       *WRITE COMPILED CIT                        F6A14980
       TXI     *+1,1,1        BUMP WORD COUNT TO NEXT PRECEDING WORD    F6A14990
 CPBC2 TXL     CPBC1,1,**     IS TABLE EXHAUSTED                        F6A15000
 CPBCX AXT     **,4           YES, RELOAD CALLING LINKAGE               F6A15010
       TRA     1,4                                                      F6A15020
       REM                                                              F6A15030
       REM     MOVE 4-WORD CIT GENERATED BY TAPE TABLE CONSTANT INTO    F6A15040
       REM     CIT BUFFER. WHEN BUFFER IS FILLED, WRITE OUT ON TAPE 3   F6A15050
       REM     AND CHECK FOR TAPE ERROR. THIS SUBROUTINE IS NOT DOUBLE  F6A15060
       REM     BUFFERED                                                 F6A15070
 TBCIT SXA     TBCIX,4        SAVE CALLING LINKAGE                      F6A15080
       AXT     CITSIZ+4,4     LOAD BUFFER COUNT                         F6A15090
       TIX     TBCI3,4,4      IS BUFFER FILLED                          F6A15100
       TSX    (TAPE),4       *YES, WRITE BUFFER CONTENTS                F6A15110
       PZE     IOCIT,,(WBNC)                                            F6A15120
       PZE     3LABL,,CITTAP                                            F6A15130
       AXT     CITSIZ,4       RESET BUFFER COUNT                        F6A15140
 TBCI3 AXT     4,2            PREPARE TO MOVE 4-WORD CIT                F6A15150
       CAL     CITRA+1,2      MOVE NEXT WORD                            F6A15160
       SLW*    CITBF+1,2      TO OUTPUT BUFFER                          F6A15170
       TIX     *-2,2,1        HAVE ALL 4 WORDS BEEN MOVED               F6A15180
       SXA     TBCIT+1,4      YES, SAVE BUFFER COUNT                    F6A15190
 TBCIX AXT     **,4           RELOAD CALLING LINKAGE                    F6A15200
       TRA     1,4                                                      F6A15210
       REM                                                              F6A15220
 IOCIT IORT    BUFF3,,CITSIZ                                            F6A15230
       PZE     BUFF3+CITSIZ,4                                           F6A15240
       PZE     BUFF3+CITSIZ+1,4                                         F6A15250
       PZE     BUFF3+CITSIZ+2,4                                         F6A15260
 CITBF PZE     BUFF3+CITSIZ+3,4                                         F6A15270
       REM                                                              F6A15280
       REM     ASSIGN STORAGE FOR EQUIVALENCE SENTENCE                  F6A15290
 SEQAS SXA     SEQSX,4        SAVE CALLING LINKAGE                      F6A15300
       AXT     **,1           GET COUNT OF FIRST SYMBOL THIS SET        F6A15310
       STZ     ERASE          CLEAR WORKING CELL FOR MAXIMUM OVERHANG   F6A15320
       CLS*    RGEQU+1        GET FIRST SUBSCRIPT THIS SENTENCE         F6A15330
       XCA                                                              F6A15340
 SEQS1 CAL*    RGEQU          GET NEXT SYMBOL THIS SENTENCE             F6A15350
       TSX     SSIZE,4       *GET -LENGTH OF THIS ARRAY                 F6A15360
       ADM*    RGEQU+1        GET ARRAY LENGTH OVER SUBSCRIPT           F6A15370
       CAS     ERASE          IS THIS OVERHANG GREATER                  F6A15380
       TRA     *+3            NO                                        F6A15390
       TRA     *+2            NO                                        F6A15400
       STO     ERASE          YES, SAVE THIS OVERHANG INSTEAD           F6A15410
       CLS*    RGEQU+1        GET CORRESPONDING SUBSCRIPT               F6A15420
       TPL     SEQS2          IS THIS END OF SENTENCE                   F6A15430
       TLQ     *+2            NO, IS THIS SUBSCRIPT GREATER             F6A15440
       XCA                    YES, SAVE THIS SUBSCRIPT INSTEAD          F6A15450
       TIX     SEQS1,1,2      IS EQUIVALENCE TABLE EXHAUSTED            F6A15460
       TSX    XERR00,4       *YES, END OF SENTENCE FLAG MISSING         F6A15470
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A15480
*              SEE DISCUSSION OF SIMILAR ERROR AT EQCOM.                F6A15490
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A15500
 SEQS2 SSM                    CHANGE SIGN OF LAST SUBSCRIPT             F6A15510
       TLQ     *+2            IS THIS SUBSCRIPT GREATER                 F6A15520
       TRA     *+2            YES                                       F6A15530
       XCA                    NO, GET LARGEST SUBSCRIPT                 F6A15540
       REM     AT END OF SCAN OF EQUIVALENCE SENTENCE, -GREATEST        F6A15550
       REM     SUBSCRIPT IN SENTENCE IS IN AC. IF VARIABLE WITH LARGEST F6A15560
       REM     SUBSCRIPT IS ASSIGNED LOCATION OF UPPER COUNTER, ALL     F6A15570
       REM     OTHER VARIABLES IN SENTENCE NEED BE ASSIGNED LOCATIONS   F6A15580
       REM     LENGTH OF THEIR SUBSCRIPT ABOVE THIS BASE (AC). LARGEST  F6A15590
       REM     OVERHANG OF ARRAY LENGTH OVER SUBSCRIPT (ABOVE BASE) IS  F6A15600
       REM     IN ERASE. TOTAL STORAGE REQUIRED FOR THIS SENTENCE IS    F6A15610
       REM     LARGEST SUBSCRIPT + LARGEST OVERHANG.                    F6A15620
       ADD     UPCTR          REDUCE LOCATION COUNTER BY GREATEST       F6A15630
       STO     UPCTR          SUBSCRIPT AS BASE FOR ASSIGNING ADDRESS   F6A15640
       TPL     *+2            DID ASSIGNMENT WRAP AROUND MEMORY         F6A15650
       TSX    XERR04,4       *YES                                       F6A15660
       SXD     SEQS4,1        NO, SAVE COUNT OF LAST SYMBOL THIS SET    F6A15670
       LXA     SEQAS+1,1      GET COUNT OF FIRST SYMBOL THIS SENTENCE   F6A15680
 SEQS3 CLA     UPCTR          SET LOCATION ASSIGNED TO THIS SYMBOL      F6A15690
       ADM*    RGEQU+1        LENGTH OF SUBSCRIPT ABOVE BASE (ARRAY     F6A15700
       ADD     T(2)           STORED BACKWARDS IN MEMORY) FLAGGED AS    F6A15710
       STO     ADDRS          ALLOWABLE IN SYMBOL TABLE                 F6A15720
       CAL*    RGEQU          GET CORRESPONDING SYMBOL                  F6A15730
       TSX    XSRDEV,4       *IS SYMBOL IN DEV                          F6A15740
       TSX     ENDEV,4       *NO, ENTER IT INTO DEV                     F6A15750
       TRA     *+2                                                      F6A15760
       TSX    XERR00,4       *YES, EQUIV NAME TWICE IN EQUIV TABLE      F6A15770
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A15780
*              THE EQUIVALENCE TABLE HAS BEEN PREPARED BY SECTION 1 AND F6A15790
*              ALL REDUNDANCIES REMOVED BY SECTION 1P. SECTION 6 READ ITF6A15800
*              FROM FILE 5 RECORD 13 LOGICAL TAPE 2, AND HAS ENTERED    F6A15810
*              INTO DEV THE COMPLETE SENTENCE IN WHICH THE SYMBOL STOREDF6A15820
*              IN LOCATION SYMBL APPEARED. SECTION 6 HAS DETERMINED THATF6A15830
*              THIS SENTENCE IS NOT IN DEV, AS THE FIRST SYMBOL IN THE  F6A15840
*              SENTENCE WAS NOT RECOGNIZED IN DEV. NO SUBSEQUENT SYMBOL F6A15850
*              IN THE ENTIRE SENTENCE SHOULD BE RECOGNIZED IN DEV. THE  F6A15860
*              EQUIVALENCE VARIABLE NAME IN RGEQU,1 IS A MAVERICK.      F6A15870
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6A15880
 SEQS4 TXL     *+2,1,**       IS SENTENCE EXHAUSTED                     F6A15890
       TXI     SEQS3,1,-2     NO, BUMP TO NEXT SYMBOL                   F6A15900
       CLA     UPCTR          REDUCE UPPER LOCATION COUNTER BY GREATEST F6A15910
       SBM     ERASE          OVERHANG, RESERVING TOTAL BLOCK OF        F6A15920
       STO     UPCTR          STORAGE REQUIRED BY THIS SENTENCE         F6A15930
       TPL     *+2            DID ASSIGNMENT WRAP AROUND MEMORY         F6A15940
       TSX    XERR08,4       *YES                                       F6A15950
 SEQSX AXT     **,4           RELOAD CALLING LINKAGE                    F6A15960
       TRA     9,4                                                      F6A15970
       REM                                                              F6A15980
       REM     FIND LENGTH OF ARRAY FOR VARIABLE NAME                   F6A15990
 SSIZE SXA     SSIZX,1        SAVE TABLE COUNT                          F6A16000
       LXD     RGSIZ,1        GET SIZ TABLE COUNT                       F6A16010
       TXL     *+5,1,0        IS SIZ TABLE EMPTY                        F6A16020
       LAS*    RGSIZ          NO, IS VARIABLE NAME OF AN ARRAY          F6A16030
       TRA     *+2            NO                                        F6A16040
       TRA     *+4            YES                                       F6A16050
       TIX     *-3,1,2        IS SIZ TABLE EXHAUSTED                    F6A16060
       CLS     L(1)           YES, SET ARRAY LENGTH TO 1                F6A16070
       TRA     SSIZX                                                    F6A16080
       CLS*    RGSIZ+1        GET -ARRAY LENGTH                         F6A16090
 SSIZX AXT     **,1           RELOAD TABLE COUNT                        F6A16100
       TRA     1,4                                                      F6A16110
       REM                                                              F6A16120
       REM     ADD SYMBOL NAME AND FLAG TO MULTIPLY DEFINED ERROR LIST  F6A16130
       REM     FLAG           ERROR                                     F6A16140
       REM     1              ARGUMENT                                  F6A16150
       REM     2              ARITHMETIC STATEMENT FUNCTION             F6A16160
       REM     3              TRANSFER VECTOR (SUBSCR VAR NOT IN DIM)   F6A16170
       REM     4              SUBROUTINE NAME                           F6A16180
       REM     5              TRANSFER VECTOR NAME USED AS VARIABLE     F6A16190
 SMDER AXT     **,2           LOAD ERROR LIST COUNT                     F6A16200
       STO     ERLST+1,2      INSERT FLAG IN SECOND WORD                F6A16210
       CAL    XSYMBL          GET MULTIPLY DEFINED SYMBOL NAME          F6A16220
       SLW     ERLST,2        INSERT SYMBOL IN FIRST WORD               F6A16230
       TXI     *+1,2,-2       BUMP ERROR LIST COUNT                     F6A16240
       TXH     *+3,2,-2*CITSIZ  WILL ERROR LIST OVERFLOW BUFFER         F6A16250
       AXT     ERLST,1        YES, LOAD ORIGIN OF ERROR LIST            F6A16260
       TSX    XERR06,4       *COUNT OF ERRORS IS IN XR2                 F6A16270
       SXA     SMDER,2        NO, SAVE ERROR LIST COUNT                 F6A16280
       CLA     WRCIX+1        BYPASS CIT OUTPUTROUTINE                  F6A16290
       STO     WRCIT          TO PRESERVE ERROR LIST                    F6A16300
       TRA     1,4                                                      F6A16310
       REM                                                              F6A16320
       REM     MOVE 4-WORD CIT FROM TAPE 3 BUFFER TO WORKING AREA.      F6A16330
       REM     INITIALLY, BUFFER 1 IS FILLED, CHECKED FOR TAPE ERROR,   F6A16340
       REM     AND BUFFER 2 FILLED WITH NEXT RECORD. ERROR ON OR END    F6A16350
       REM     FILE ON SUCCESSIVE BUFFERS ARE NOT TESTED UNTIL PRIOR    F6A16360
       REM     BUFFER IS EXHAUSTED.                                     F6A16370
 RDCIT SXA     RDCIX,4        SAVE CALLING LINKAGE                      F6A16380
       AXT     **,4           GET CIT COUNT                             F6A16390
       TIX     RDCI2,4,4      IS BUFFER EXHAUSTED                       F6A16400
       AXT     1,2            YES, SET BUFFER 1 SWITCH                  F6A16410
       TXL     *+2,,0         IS BUFFER 1 NEXT                          F6A16420
       AXT     2,2            NO, SET BUFFER 2 SWITCH INSTEAD           F6A16430
       CLS     *-2            RESET BUFFER SWITCH                       F6A16440
       STO     *-3                                                      F6A16450
       TXH     *+5,4,0        IS THIS FIRST RECORD                      F6A16460
       TSX    (TAPE),4       *YES, READ FIRST CIT RECORD                F6A16470
       PZE     RDCBF,2,(RBEP)                                           F6A16480
       PZE     3LABL,,CITTAP                                            F6A16490
       PZE     CITRR                                                    F6A16500
       TSX    (TAPE),4       *READ NEXT CIT RECORD                      F6A16510
       PZE     RDCBF+1,2,(RBEP)                                         F6A16520
       PZE     3LABL,,CITTAP                                            F6A16530
       PZE     CITRR                                                    F6A16540
       REM     COMPUTE WORD COUNT AND INITIALIZE BUFFERS                F6A16550
       CLA     RDCBF,2        INITIALIZE WORD COUNT COMPUTATION         F6A16560
       PAC     ,4                                                       F6A16570
       SXD     RDCI1,4                                                  F6A16580
       LXA    (SCHU)+CITTAP,4 GET LOCATION OF LAST+1 WORD IN CIT BLOCK  F6A16590
       TXL     RDCI3,4,0      WAS END FILE SENSED                       F6A16600
       SXA     RDCI2,4        NO, INITIALIZE MOVE LOOP                  F6A16610
       TXI     *+1,4,1                                                  F6A16620
       SXA     RDCI2+2,4                                                F6A16630
       TXI     *+1,4,1                                                  F6A16640
       SXA     RDCI2+4,4                                                F6A16650
       TXI     *+1,4,1                                                  F6A16660
       SXA     RDCI2+6,4                                                F6A16670
       TXI     *+1,4,-3                                                 F6A16680
 RDCI1 TXI     *+1,4,**                                                 F6A16690
       TXL     RDCI2,4,CITSIZ IS RECORD TOO LONG                        F6A16700
       AXT     -1,2           YES, SET CIT COUNT SWITCH                 F6A16710
       TRA     RDCRR+1                                                  F6A16720
       REM     MOVE CIT FROM CIT BUFFER TO WORKING BUFFER               F6A16730
 RDCI2 CAL     **,4                                                     F6A16740
       SLW     CITSL                                                    F6A16750
       CAL     **,4                                                     F6A16760
       SLW     CITOP                                                    F6A16770
       CAL     **,4                                                     F6A16780
       SLW     CITSA                                                    F6A16790
       CAL     **,4                                                     F6A16800
       SLW     CITRA                                                    F6A16810
       SXA     RDCIT+1,4      SAVE CIT INPUT BUFFER COUNT               F6A16820
 RDCIX AXT     **,4           RELOAD CALLING LINKAGE                    F6A16830
       TRA     2,4                                                      F6A16840
       REM     END OF CIT FILE SENSED                                   F6A16850
 RDCI3 LXA     RDCIX,4        RELOAD CALLING LINKAGE                    F6A16860
       TRA     1,4                                                      F6A16870
       REM     ERROR ON CIT INPUT TAPE                                  F6A16880
 RDCRR AXT     -2,2           SET IMPROPER END OF FILE SWITCH           F6A16890
       TSX    (TAPE),4       *PRINT ERROR MESSAGE                       F6A16900
       PZE     *+2,2,(TPER)                                             F6A16910
       MZE     3LABL,,CITTAP                                            F6A16920
       TRA     CITRR                                                    F6A16922
       BCI     1,COUNT                                                  F6A16930
       BCI     1,ENDFIL                                                 F6A16940
       REM                                                              F6A16950
       IORT    BUFF2,,CITSIZ+1                                          F6A16960
       IORT    BUFF1,,CITSIZ+1                                          F6A16970
 RDCBF IORT    BUFF2,,CITSIZ+1                                          F6A16980
       REM                                                              F6A16990
       REM     MOVE 4-WORD CIT FROM WORKING AREA TO TAPE 4 BUFFER       F6A17000
       REM     IF BUFFER IS FILLED, WRITE OUT BUFFER CONTENTS ON TAPE   F6A17010
       REM     THIS ROUTINE IS DOUBLE BUFFERED. TAPE ERROR IS NOT       F6A17020
       REM     CHECKED UNTIL NEXT BUFFER IS FILLED.                     F6A17030
 WRCIT SXA     WRCIX,4        SAVE CALLING LINKAGE                      F6A17040
       AXT     **,4           GET CIT COUNT                             F6A17050
       TIX     WRCI2,4,4      IS BUFFER FILLED                          F6A17060
       AXT     1,2            YES, SET BUFFER 1 SWITCH                  F6A17070
       TXL     *+2,,0         IS BUFFER 1 NEXT                          F6A17080
       AXT     2,2            NO, SET BUFFER 2 SWITCH INSTEAD           F6A17090
       CLS     *-2            RESET BUFFER SWITCH                       F6A17100
       STO     *-3                                                      F6A17110
       TXL     *+5,4,0        IS THIS INITIAL ENTRY                     F6A17120
       TSX    (TAPE),4       *NO, WRITE NEXT CIT RECORD                 F6A17130
       PZE     WRCBF+1,2,(WBNP)                                         F6A17140
       PZE     CLABL,,COTTAP                                            F6A17150
       PZE     CITRR                                                    F6A17160
       CLA     WRCBF,2        INITIALIZE BUFFER ORIGINS                 F6A17170
       PAX     ,4                                                       F6A17180
       TXI     *+1,4,CITSIZ                                             F6A17190
       SXA     WRCI2+1,4                                                F6A17200
       TXI     *+1,4,1                                                  F6A17210
       SXA     WRCI2+3,4                                                F6A17220
       TXI     *+1,4,1                                                  F6A17230
       SXA     WRCI2+5,4                                                F6A17240
       TXI     *+1,4,1                                                  F6A17250
       SXA     WRCI2+7,4                                                F6A17260
       AXT     CITSIZ,4       RESET BUFFER COUNT                        F6A17270
       REM     MOVE CIT FROM WORKING BUFFER TO OUTPUT BUFFER            F6A17280
 WRCI2 CAL     CITSL                                                    F6A17290
       SLW     **,4                                                     F6A17300
       CAL     CITOP                                                    F6A17310
       SLW     **,4                                                     F6A17320
       CAL     CITSA                                                    F6A17330
       SLW     **,4                                                     F6A17340
       CAL     CITRA                                                    F6A17350
       SLW     **,4                                                     F6A17360
       SXA     WRCIT+1,4      SAVE CIT OUTPUT BUFFER COUNT              F6A17370
 WRCIX AXT     **,4           RELOAD CALLING LINKAGE                    F6A17380
       TRA     1,4                                                      F6A17390
       REM     ERROR ON READING/WRITING CIT TAPE                        F6A17400
 CITRR LXA     SMDER,2        HAVE THERE BEEN ANY ERRORS                F6A17410
       TXL     *+3,2,0        NO                                        F6A17420
       AXT     ERLST,1        YES, LOAD ORIGIN OF ERROR LIST            F6A17430
       TSX    XERR06,4       *COUNT OF ERRORS IS IN XR2                 F6A17440
       TSX    (MECL),4       *CALL MACHINE ERROR RECORD                 F6A17450
       PZE                    SPACER FOR POSSIBLE PARAMETER             F6A17460
       REM                                                              F6A17470
       IOCT    BUFF4,,CITSIZ                                           $F6A17480
       IOCT    BUFF3,,CITSIZ                                           $F6A17490
 WRCBF IOCT    BUFF4,,CITSIZ                                           $F6A17500
       REM                                                              F6A17510
       REM     FIND NEXT USE OF ARGUMENT                                F6A17520
 GETRG CLA*   ORGTIV-1        GET NEXT LOCATION,,ARGUMENT NUMBER        F6A17530
       ANA     DECMK          MASK IN ARGUMENT NUMBER                   F6A17540
       CAS     ARGNO          DO ARGUMENTS MATCH                        F6A17550
       TRA     *+2            NO                                        F6A17560
       TRA     2,4            YES                                       F6A17570
       TIX     *-5,2,2        IS ARGUMENT LIST EXHAUSTED                F6A17580
       TRA     1,4            YES                                       F6A17590
       REM                                                              F6A17600
       REM     ADD ENTRY TO ARGUMENT LIST                               F6A17610
 ENARG AXT     **,1           LOAD CURRENT INITIALIZATION TABLE COUNT   F6A17620
       TXI     *+1,1,1        BUMP ARGUMENT LIST COUNT                  F6A17630
 ENART TXL     *+2,2,**       DID ARGUMENT LIST OVERFLOW                F6A17640
       TSX    XERR08,4       *YES                                       F6A17650
       SXA     ENARG,1        NO                                        F6A17660
       SLW*   ORGSUB          INSERT NEXT ENTRY IN INITIALIZATION TABLE F6A17670
       TRA     1,4                                                      F6A17680
       REM                                                              F6A17690
       REM     ENTER VARIABLE NAME IN DEV, LOCATION (AND SYMBOL TABLE   F6A17700
       REM     FLAG) IN DEA. BINARY SEARCH OF DEV HAS SET XR2 TO        F6A17710
       REM     RELATIVE POSITION IN DEV INTO WHICH NEW ENTRY IS TO BE   F6A17720
       REM     INSERTED.                                                F6A17730
       REM     TABLE ENTRIES IN DEA ARE FLAGGED AS FOLLOWS              F6A17740
       REM     TABLE        PREFIX  DECREM  TAG  ADDRESS                F6A17750
       REM     COMMON          0    (IFN)    1   LOCATION               F6A17760
       REM     SIZ             0    (IFN)    1   LOCATION               F6A17770
       REM     EQUIV           0    (IFN)    2   LOCATION               F6A17780
       REM     $ OR $$         0    (IFN)    4   LOCATION               F6A17790
       REM     CLOSUB          1    (IFN)    4   LOCATION               F6A17800
       REM     SUBDEF (ARG)    2    (IFN)    4   ARGNO                  F6A17810
       REM     FORSUB          4    (IFN)    4   IFN                    F6A17820
       REM     BCD NAME OF VARIABLE OR SYMBOL IN DEV                    F6A17830
 ENDEV TXI     *+1,2,1        BUMP TABLE COUNT TO LOCATION BELOW NEW    F6A17840
       SXD     ENDE2,2        ENTRY FOR END OF MOVE LOOP TEST           F6A17850
       LXD    XDEVTL,2        GET OLD TABLE LENGTH                      F6A17860
       TXI     *+1,2,1        BUMP FOR NEW ENTRY                        F6A17870
 ENDET TXL     *+2,2,**       DID TABLE OVERFLOW                        F6A17880
       TSX    XERR08,4       *YES                                       F6A17890
       SXD    XDEVTL,2        NO, SAVE NEW TABLE LENGTH                 F6A17900
 ENDE1 TXL     ENDE2,2,**     DOES NEW TABLE LENGTH REQUIRE LARGER HOP  F6A17910
       CLA    XDEVTS          YES, SET THIS SYMBOL AS FIRST TO BE       F6A17920
       ADD     DEVTA          SCANNED IN NEXT SEARCH (MEDIAN ENTRY)     F6A17930
       STO    XDEVTS          SET HOP COUNT FOR NEW TABLE DOUBLE LENGTH F6A17940
       STD     DEVTA          OF OLD TABLE                              F6A17950
       ADD     DEVTA          UPDATE BUMPER TO NEXT POWER OF TWO        F6A17960
       STD     ENDE1          SET UPDATE TEST FOR TABLE DOUBLE SIZE     F6A17970
 ENDE2 TXL     ENDE3,2,**     IS THIS ORDERED POSITION OF NEW ENTRY     F6A17980
       CAL*   ORGDEV+1        NO, MOVE THIS ENTRY DOWN ONE SPACE TO MAKEF6A17990
       SLW*   ORGDEV          ROOM FOR NEW ENTRY ABOVE IT IN MEMORY     F6A18000
       CLA*   ORGDEA+1                                                  F6A18010
       STO*   ORGDEA                                                    F6A18020
       TXI     ENDE2,2,-1     BUMP TO NEXT HIGHER ENTRY                 F6A18030
 ENDE3 CAL    XSYMBL          ENTER SYMBOL NAME IN DEV                  F6A18040
       SLW*   ORGDEV                                                    F6A18050
       CLA     ADDRS          ENTER LOCATION AND FLAG IN DEA            F6A18060
       STO*   ORGDEA                                                    F6A18070
       TRA     1,4                                                      F6A18080
 DEVTA PZE     2,,1           HOP COUNT BUMPER,,POWER OF 2 BUMPER       F6A18090
       REM                                                              F6A18100
       REM     ENTER INTERNAL SYMBOL IN TIV. BINARY SEARCH OF TIV HAS   F6A18110
       REM     SET XR2 TO RELATIVE POSITION IN TIV INTO WHICH NEW ENTRY F6A18120
       REM     IS TO BE INSERTED. SYMBOL CONSISTS OF                    F6A18130
       REM       BITS  1 THRU  4  SYMBOL                                F6A18140
       REM       BITS  5 THRU 21  INCREMENT                             F6A18150
       REM       BITS 22 THRU 36  LOCATION (INITIALLY LENGTH OF BLOCK)  F6A18160
 ENTIV TXI     *+1,2,-1       BUMP TABLE COUNT TO LOCATION ABOVE NEW    F6A18170
       SXD     ENTI2,2        ENTRY FOR END OF MOVE LOOP TEST           F6A18180
       LXD    XTIVTL,2        GET OLD TABLE LENGTH                      F6A18190
       TXI     *+1,2,-1       BUMP FOR NEW ENTRY                        F6A18200
 ENTIT TXH     *+2,2,**       DID TABLE OVERFLOW                        F6A18210
       TSX    XERR08,4       *YES                                       F6A18220
       SXD    XTIVTL,2        NO, SAVE NEW TABLE LENGTH                 F6A18230
       TXI     *+1,2,1                                                  F6A18240
 ENTI1 TXH     ENTI2,2,-2     DOES NEW TABLE LENGTH REQUIRE LARGER HOP  F6A18250
       CLA    XTIVTS          YES, SET THIS SYMBOL AS FIRST TO BE       F6A18260
       ADD     TIVTA          SCANNED IN NEXT SEARCH (MEDIAN ENTRY)     F6A18270
       STO    XTIVTS          SET HOP COUNT FOR NEW TABLE DOUBLE LENGTH F6A18280
       STD     TIVTA          OF OLD TABLE                              F6A18290
       ADD     TIVTA          UPDATE BUMPER TO NEXT POWER OF TWO        F6A18300
       STD     ENTI1          SET UPDATE TEST FOR TABLE DOUBLE SIZE     F6A18310
 ENTI2 TXH     ENTI3,2,**     IS THIS ORDERED POSITION OF NEW ENTRY     F6A18320
       CAL*   ORGTIV-1        NO, MOVE THIS ENTRY UP ONE SPACE TO MAKE  F6A18330
       SLW*   ORGTIV          ROOM FOR NEW ENTRY BELOW IT IN MEMORY     F6A18340
       TXI     ENTI2,2,1      BUMP TO NEXT HIGHER ENTRY                 F6A18350
 ENTI3 CAL    XSYMBL          ENTER SYMBOL NAME IN TIV                  F6A18360
       ADD     ADDRS          WITH LOCATION OR LENGTH OF BLOCK ASSIGNED F6A18370
       SLW*   ORGTIV                                                    F6A18380
       SXA     *+4,2          SAVE POSITION IN TIV TABLE                F6A18390
       LXD     ENTET,2        RESET TEV OVERFLOW TEST                   F6A18400
       TXI     *+1,2,-1                                                 F6A18410
       SXD     ENTET,2                                                  F6A18420
       AXT     **,2           RELOAD POSITION IN TIV TABLE              F6A18430
       TRA     1,4                                                      F6A18440
 TIVTA PZE     2,,-1          HOP COUNT BUMPER,,POWER OF TWO BUMPER     F6A18450
       REM                                                              F6A18460
       REM     ENTER VARIABLE NAME IN TEV. BINARY SEARCH OF TEV HAS SET F6A18470
       REM     XR2 TO RELATIVE POSITION IN TEV INTO WHICH NEW ENTRY IS  F6A18480
       REM     TO BE INSERTED. STORAGE LOCATION DEFINED BY RELATIVE     F6A18490
       REM     POSITION ABOVE BASE LOCATION.                            F6A18500
 ENTEV TXI     *+1,2,1        BUMP TABLE COUNT TO LOCATION BELOW NEW    F6A18510
       SXD     ENTE2,2        ENTRY FOR END OF MOVE LOOP TEST           F6A18520
       LXD    XTEVTL,2        GET OLD TABLE LENGTH                      F6A18530
       TXI     *+1,2,1        BUMP FOR NEW ENTRY                        F6A18540
 ENTET TXL     *+2,2,**       DID TABLE OVERFLOW                        F6A18550
       TSX    XERR08,4       *YES                                       F6A18560
       SXD    XTEVTL,2        NO, SAVE NEW TABLE LENGTH                 F6A18570
 ENTE1 TXL     ENTE2,2,**     DOES NEW TABLE LENGTH REQUIRE LARGER HOP  F6A18580
       CLA    XTEVTS          YES, SET THIS SYMBOL AS FIRST TO BE       F6A18590
       ADD     TEVTA          SCANNED IN NEXT SEARCH (MEDIAN ENTRY)     F6A18600
       STO    XTEVTS          SET HOP COUNT FOR NEW TABLE DOUBLE LENGTH F6A18610
       STD     TEVTA          OF OLD TABLE                              F6A18620
       ADD     TEVTA          UPDATE BUMPER TO NEXT POWER OF TWO        F6A18630
       STD     ENTE1          SET UPDATE TEST FOR TABLE DOUBLE SIZE     F6A18640
 ENTE2 TXL     ENTE3,2,**     IS THIS ORDERED LOCATION OF NEW ENTRY     F6A18650
       CAL*   ORGTEV+1        NO, MOVE THIS ENTRY DOWN ONE SPACE TO MAKEF6A18660
       SLW*   ORGTEV          ROOM FOR NEW ENTRY ABOVE IT IN MEMORY     F6A18670
       TXI     ENTE2,2,-1     BUMP TO NEXT HIGHER ENTRY                 F6A18680
 ENTE3 CAL    XSYMBL          ENTER SYMBOL NAME IN TEV                  F6A18690
       SLW*   ORGTEV                                                    F6A18700
       LXD     ENTIT,2        RESET TIV OVERFLOW TEST                   F6A18710
       TXI     *+1,2,1                                                  F6A18720
       SXD     ENTIT,2                                                  F6A18730
       TRA     1,4                                                      F6A18740
 TEVTA PZE     2,,1           HOP COUNT BUMPER,,POWER OF TWO BUMPER     F6A18750
       REM                                                              F6A18760
       REM                                                              F6A18770
       REM     CONSTANTS                                                F6A18780
 L(0)  PZE     0                                                        F6A18790
 L(1)  PZE     1                                                        F6A18800
 L(2)  PZE     2                                                        F6A18810
 L(3)  PZE     3                                                        F6A18820
 L(4)  PZE     4                                                        F6A18830
 L(5)  PZE     5                                                        F6A18840
 L(8)  PZE     8                                                        F6A18850
 L(200 PZE     200                                                      F6A18860
 ADMSK PZE     -1             MASK TO ISOLATE 15-BIT ADDRESS FIELD      F6A18870
 T(1)  PZE     ,1             FLAG FOR SYMBOL TABLE ENTRY               F6A18880
 T(2)  PZE     ,2             FLAG FOR EQUIVALENCE VARIABLE             F6A18890
 T(4)  PZE     ,4             FLAG FOR NO SYMBOL TABLE ENTRY            F6A18900
 T(7)  PZE     ,7                                                       F6A18910
 D(1)  PZE     ,,1                                                      F6A18920
 DECMK PZE     ,,-1                                                     F6A18930
 P(1)  PON                    FLAG FOR TRANSFER VECTOR NAME             F6A18940
 P(2)  PTW                    FLAG FOR SUBROUTINE ARGUMENT              F6A18950
 DEAMK SVN     -1,4,-1        MASK TO RESET FLAG FOR SYMBOL USED IN CIT F6A18960
 L(C)  BCI     1,00000C                                                 F6A18970
 BLANK BCI     1,00000                                                  F6A18980
 SLASH BCI     1,00000/                                                 F6A18990
 L(DD) BCI     1,$$                                                     F6A19000
 L(SD) BCI     1,$                                                      F6A19010
 BLNKS BCI     1,                                                       F6A19020
       REM                                                              F6A19030
 OPLST PZE     ,,7                                                      F6A19040
       DUP     1,8            EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS  F6A19050
       BCI     1,000000                                                 F6A19060
       BCI     1,SXQ000                                                 F6A19070
       BCI     1,QXD000                                                 F6A19080
       BCI     1,QPR000                                                 F6A19090
 OCTOP BCI     1,OCT000                                                 F6A19100
 BCDOP BCI     1,BCD000                                                 F6A19110
       BCI     1,BSS000                                                 F6A19120
       BCI     1,SYN000                                                 F6A19130
       REM                                                              F6A19140
 ADDOP BCI     1,ADD000                                                 F6A19150
 CLAOP BCI     1,CLA000                                                 F6A19160
 LXDOP BCI     1,LXD000                                                 F6A19170
 STAOP BCI     1,STA000                                                 F6A19180
 SXDOP BCI     1,SXD000                                                 F6A19190
 TRAOP BCI     1,TRA000                                                 F6A19200
 TSXOP BCI     1,TSX000                                                 F6A19210
       REM                                                              F6A19212
 OPCD1 BCI     1,PZE000       (PZE)                                     F6A19213
       BCI     1,D=K000       (TSX ERA PZE)                             F6A19214
       REM                                                              F6A19215
       DEC     ,,,,,,,,,      PATCH SPACE FOR ADDITIONAL VECTOR NAMES   F6A19216
       BCI     1,(FPT)                                                  F6A19218
       BCI     1,(DFAD)                                                 F6A19219
       BCI     1,(DFSB)                                                 F6A19220
       BCI     1,(DFMP)                                                 F6A19221
       BCI     1,(DFDP)                                                 F6A19222
       BCI     1,(IFMP)                                                 F6A19223
       BCI     1,(IFDP)                                                 F6A19224
 TVTBL PZE     ,,7                                                      F6A19225
       REM                                                              F6A19226
 HEDRM BCI     7,0      HEADING DELETED DUE TO TAPE ERROR               F6A19230
       OCT     0,0,0,0,0      AREA NOT USED                            $F6A19240
 ALONE OCT     777777777777   END OF TABLE FENCE                        F6A19250
       REM                                                              F6A19260
 33PCH BSS     0              PATCH SPACE                               F6A19270
 SXTAB OCT     233000000000,377777,0,1000000,0,0                       $F6A19271
       REM                                                              F6A19280
 FINIS ORG     33PCH/8*8+96                                             F6A19290
       REM                                                              F6A19300
 BUFF1 BSS     CITSIZ         INPUT BUFFER 1                            F6A19310
 BUFF2 BSS     CITSIZ         INPUT PUFFER 2                            F6A19320
 ERLST BSS     0                                                        F6A19330
 BUFF3 BSS     CITSIZ         OUTPUT BUFFER 1                           F6A19340
 BUFF4 BSS     CITSIZ         OUTPUT BUFFER 2                           F6A19350
       TCD     -1                                                      $F6A19360
       TTL     0                                                        F6A19370
       EJECT                                                            F6A19380
       EJECT                                                            F6A19460
       LBL     9F31,X                                                   F6B00005
       REM                                                              F6B00010
       REM     PREPARE STORAGE MAP                                      F6B00020
       REM     PREPARE SYMBOL TABLE                                     F6B00030
       REM     PASS OVER LIBRARY FILE                                   F6B00040
       REM     CREATE BINARY MACHINE WORDS FOR CIT                      F6B00050
       REM     PREPARE BINARY OUTPUT TAPE, PUNCH ON LINE                F6B00060
       REM     PREPARE BCD MACHINE LANGUAGE LISTING, PRINT ON LINE      F6B00070
       REM                                                              F6B00080
       ORG     SYSCUR                                                  $F6B00090
       BCI     1,9F3100                                                $F6B00100
       ORG     (LODR)                                                  $F6B00130
       TXI     BSTART,,310                           8R ENTRY PT,,RECNO F6B00150
       REM                                                              F6B00160
       ABS                                                              F6B00170
       REM                                                              F6B00180
       ORG    XLOADP                                                    F6B00190
       REM                                                              F6B00200
       HEAD    B                                                        F6B00210
       REM                                                              F6B00220
       REM     ORIGIN FOR INDIRECT ADDRESSING OF TABLES                 F6B00230
 RGSLS PZE     **,1           ORIGIN FOR LIBRARY SECONDARY LOST LIST    F6B00240
       PZE     **,1                                                     F6B00250
 RGSFD PZE     **,1           ORIGIN FOR LIBRARY SECONDARY FOUND LIST   F6B00260
 RGCRD PZE     **,2,**        ORIGIN FOR LIBRARY PROGRAM OR DATA CARD   F6B00270
       PZE     **,2                                                     F6B00280
       PZE     **,2                                                     F6B00290
 RGSTL PZE     **,2           ORIGIN FOR BCD VARIABLE NAMES             F6B00300
       PZE     **,2                                                     F6B00310
 RGSTR PZE     **,2           ORIGIN FOR BINARY LOCATIONS, FLAGS        F6B00320
 RGSAP PZE                    ORIGIN FOR WORD IN MACHINE LANGUAGE FORM  F6B00330
       REM                                                              F6B00340
       DUP     1,10           PATCH SPACE FOR ORIGINS AND ERASABLE      F6B00350
       PZE                                                              F6B00360
       REM                                                              F6B00370
       REM     ERASEABLE STORAGE                                        F6B00380
 CITSL PZE                    CIT SYMBOLIC LOCATION                     F6B00390
 CITOP PZE                    CIT OPCOD, DECREMENT                      F6B00400
 CITSA PZE                    CIT SYMBOLIC ADDRESS                      F6B00410
 CITRA PZE                    CIT RELATIVE ADDRESS, TAG                 F6B00420
 ADDRS PZE                    ERASABLE ADDRESS FIELD                    F6B00430
 BILOC PZE                    ERASABLE ADDRESS FIELD                    F6B00440
 EFADD PZE                    EFFECTIVE ADDRESS FOR OBJECT PROGRAM      F6B00450
 ERASE PZE                    ERASABLE FULL WORD                        F6B00460
 ERAS1 PZE                    ERASABLE FULL WORD                        F6B00470
 ERAS2 PZE                    ERASABLE FULL WORD                        F6B00480
 ERAS3 PZE                    ERASABLE FULL WORD                        F6B00490
 LOCTR PZE                    PROGRAM LOCATION COUNTER                  F6B00500
 RLBIT PZE                    BINARY RELOCATION BITS                    F6B00510
 IDBUF PZE                                                              F6B00520
       PZE                                                              F6B00530
       PZE                                                              F6B00540
TBUFF  DUP     1,24                                                    $F6B00541
       PZE                                                             $F6B00542
 PCH9L PZE                                                              F6B00550
 PCH9R PZE                                                              F6B00560
 PCH8L PZE                                                              F6B00570
 PCH8R PZE                                                              F6B00580
       DUP     1,20                                                     F6B00590
       PZE                                                              F6B00600
 LINEB SYN     *              THIS BUFFER USED FOR MAPPING.             F6B00610
 PBUFF SYN     LINEB+19       NOT AVAILABLE AFTER LISTING BEGINS        F6B00620
       REM                                                              F6B00630
 WORD1 PZE                    MACHINE LANGUAGE LINE IMAGE               F6B00640
 WORD2 PZE                                                              F6B00650
 WORD3 PZE                                                              F6B00660
 WORD4 PZE                                                              F6B00670
 WORD5 PZE                                                              F6B00680
 WORD6 PZE                                                              F6B00690
 WORD7 PZE                                                              F6B00700
 WORD8 PZE                                                              F6B00710
 WORD9 PZE                                                              F6B00720
 WORD0 PZE                                                              F6B00730
       REM                                                              F6B00740
 SAPBF SYN     *              BCD OUTPUT BUFFER, OVERWRITES DEAD CODING F6B00750
 ENDSB SYN     SAPBF+1044     ALLOW FOR MAX OF 58 LINES + PAGE HEADING  F6B00760
       REM                                                              F6B00770
 PBUF1 SYN     ENDSB          STACKED BINARY OUTPUT BUFFER 1            F6B00772
 PBUF2 SYN     PBUF1+27       STACKED BINARY OUTPUT BUFFER 2            F6B00774
 PBUF3 SYN     PBUF2+27       PUNCH BINARY OUTPUT BUFFER 1              F6B00776
 PBUF4 SYN     PBUF3+24       PUNCH BINARY OUTPUT BUFFER 2              F6B00778
 ENDBF SYN     PBUF4+24       END OF PASS 2 BUFFERS                     F6B00780
       REM                                                              F6B00782
       REM                                                              F6B00784
       TTL INITIALIZATION                                               F6B00785
 START NOP                    PATCH IN SWT FOR DEBUGGING                F6B00790
       TRA     *+2                                                      F6B00800
       HPR     28                                                       F6B00810
       CLA*   ORGFLG          LOAD MONITOR FLAGS                        F6B00820
       TPL     *+3            IS THIS SINGLE COMPILE                    F6B00822
       ZSD     PNCH3          NO, SET SWITCH FOR BINARY STACK TAPE.     F6B00824
       NZT    XSWCH1          ARE ONLINE CARDS REQUESTED                F6B00830
       ZSD     PNCH8          YES, SET SWITCH FOR BINARY PUNCH TAPE.    F6B00840
       TMI     PINIT          IS THIS SINGLE COMPILE                    F6B00850
       AXT    SLSTAP,4        YES, RESET LISTING TAPE TO SINGLE COMPILE F6B00860
       SXD     WRITT,4                                                  F6B00870
       CAL     D(2)           RESET PARAMETERS FOR DECIMAL SOURCE FILE. F6B00872
       ORS     RDNP1                                                    F6B00874
       ORS     RDNP2                                                    F6B00875
       ORS     LSTRR+1                                                  F6B00876
       ORS     FFIL0+1                                                  F6B00878
       STZ     FINPT          DELETE REFERENCE TO SOURCE PROGRAM LABEL  F6B00879
       ZAC                                                              F6B00880
       LDQ    XLABEL          PICK UP FIRST WORD OF FIRST CARD          F6B00890
       LGL     6              ISOLATE FIRST CHARACTER                   F6B00900
       SUB     L(C)           IS IT COMMENTS CARD                       F6B00910
       TNZ     LINT1          NO                                        F6B00920
       TRA     LINIT          YES                                       F6B00930
       REM                                                              F6B00940
       REM     INITIALIZE PAGE HEADING                                  F6B00950
 PINIT TSX    (TAPE),4       *BACKSPACE OVER PAGE HEADING               F6B00960
       PZE     BKSPC,,(SKDP)                                            F6B00970
       PZE     ,,MLSTAP                                                 F6B00980
       TSX    (TAPE),4       *READ PAGE HEADING                         F6B00990
       PZE     *+2,,(RDNC)                                              F6B01000
       PZE     ,,MLSTAP                                                 F6B01010
       IORT   XPGHED,,18      (NOP)                                     F6B01020
       TSX    (TAPE),4       *BACKSPACE OVER PAGE HEADING               F6B01030
       PZE     BKSPC,,(SKDP)                                            F6B01040
       PZE     ,,MLSTAP                                                 F6B01050
       CLS     L(1)           SET POSITION OF LIST TAPE FOLLOWING HDG  $F6B01060
       STO    XLSTCT                                                    F6B01070
       LDI*   ORGLCT          LOAD MONITOR COMMENTS FLAG                F6B01080
       LNT     100000         WAS FIRST CARD COMMENTS CARD              F6B01090
       TRA     LINT1          NO                                        F6B01100
       REM                                                              F6B01110
       REM     INITIALIZE CARD LABEL                                    F6B01120
 LINIT CAL    XPGHED+1        LOAD POSSIBLE LABEL                       F6B01130
       LDQ    XPGHED+2                                                  F6B01140
       LGL     6                                                        F6B01150
       LAS     BLNKS          WAS A LABEL ASSIGNED                      F6B01160
       TRA     *+2            YES                                       F6B01170
 LINT1 CAL    XPCD7L          NO, PICK UP NAME OF SUBPROGRAM, IF ANY    F6B01180
       SLW    XLABEL          THIS IS CARD LABEL                        F6B01190
       REM                                                              F6B01200
       REM     INITIALIZE SENSE SWITCH OPTIONS                          F6B01210
       ZET    XSWCH7          IS CARD LABEL REQUESTED                   F6B01212
       TRA     *+3            YES                                       F6B01214
       ZSD     BOTIO          NO, RESET I/O COMMANDS                    F6B01216
       ZSD     BOTIO+2        TO OMIT WRITTING CARD LABELS.             F6B01219
       NZT    XSWCH9          ARE OFFLINE ROW BINARY CARDS REQUESTED    F6B01220
       TRA     *+8            NO.                                       F6B01222
       AXT    (WROW),4        YES, RESET PARAMETER TO OFFLINE ROW BINARYF6B01224
       SXD     PNCH6,4                                                  F6B01226
       SXD     PNCH7+1,4                                                F6B01228
       STZ     OFLCB          DELETE OFFLINE COLUMN BINARY BITS         F6B01230
       ZET    XPCD7L          IS THIS A MAIN PROGRAM                    F6B01231
       TRA     *+2            NO                                        F6B01232
       TSX     BSSCD,4        YES, WRITE BSS LOADER OF LINE ROW BINARY. F6B01233
       NZT    XSWC10          IS BLOCKED LISTING TAPE REQUESTED         F6B01234
       TRA     *+3            NO                                        F6B01235
       ZSD     BLKQT          YES, SET TESTS                            F6B01236
       TRA     *+3                                                      F6B01237
       CLA     LINES+3        NO, SET TEST.                             F6B01238
       SLW     LINES+3                                                  F6B01239
       NZT    XSWCH1          ARE ONLINE CARDS REQUESTED                F6B01240
       ZET    XSWCH4          YES, ARE ONLINE ROW BINARY CARDS REQUESTEDF6B01250
       TRA     STRT1          NO                                        F6B01260
       CLA     EOF04          YES, RESET PARAMETER TO ONLINE ROW BINARY F6B01270
       SLW     EOF04                                                    F6B01280
       STZ     BITBF          DELETE ONLINE COLUMN BINARY BITS          F6B01290
       ZET    XPCD7L          IS THIS A SUBPROGRAM                      F6B01300
       TRA     STRT1          YES                                       F6B01310
       TSX    (PNCH),4       *NO, PUNCH BINARY LOADER                   F6B01320
       PZE     LOADR,,ENDLD-LOADR                                       F6B01330
       TSX    (PNCH),4        DELAY WHILE WRITING BSS LOADER            F6B01332
       PZE                    TO PREVENT OVERWRITE OF BUFFER.           F6B01333
 STRT1 CLA    (PGCT)          LOAD MAXIMUM NUMBER OF LINES ON PAGE      F6B01340
       PDX     ,4             INITIALIZE PAGE HEADING ROUTINE           F6B01350
       SXA     HDPCT,4                                                  F6B01360
       STD     EOF00+3        INITIALIZE FINAL PAGE LENGTH COMPUTATIONS F6B01370
       STD     EOF01                                                    F6B01380
       STD     REMAN+1                                                  F6B01390
       ALS     1                                                        F6B01400
       STD     EOF00          INITIALIZE TWO COLUMNS FULL TEST          F6B01410
       NZT    XSWCH8          IS BINARY WORD REQUESTED                  F6B01420
       TRA     *+4            NO                                        F6B01430
       AXT     9,2            YES, RESET I/O PARAMETERS TO WRITE        F6B01440
       SXD     LOC02,2        EXTENDED LISTING                          F6B01450
       SXD     EOF02+1,2                                                F6B01480
       CLA    (PGCT)          LOAD MAXIMUM NUMBER OF LINES ON PAGE      F6B01490
       STD     COLFL+1        INITIALIZE COLUMN ONE TEST                F6B01500
       ALS     1              INITIALIZE COLUMN TWO TEST.               F6B01510
       STD     COLFL+2                                                  F6B01520
       STD     LSTHD          INITIALIZE LAST PAGE HEADING TEST        $F6B01530
       ADD     D(1)                                                    $F6B01540
       STD     COLFL+4        INITIALIZE COLUMN THREE TEST             $F6B01541
       CLA    (PGCT)                                                    F6B01550
       SUB     D(1)                                                     F6B01560
       STD     COLFL          INITIALIZE COLUMN FULL TEST               F6B01570
       SUB     D(1)                                                     F6B01580
       STD     ONEFL-1        INITIALIZE FULL COLUMN RESET.             F6B01590
       ALS     1                                                        F6B01600
       ADD     D(2)                                                     F6B01601
       STD     ONEFL+1        INITIALIZE COLUMN FULL TEST INCREMENT.    F6B01610
       ADD    (PGCT)                                                    F6B01620
       ADD     D(1)                                                     F6B01621
       STD     WRTIO+4        INITIALIZE FULL PAGE TEST.                F6B01622
       LXA    (PGCT),4        LOAD RESTRICTED PAGE WIDTH FLAG           F6B01630
       NZT    XSWCH8          IS BINARY WORD REQUESTED                  F6B01640
       TXL     INITW,4,0      NO, IS PAGE WIDTH RESTRICTED              F6B01641
       ZSD     COLFL+2        YES, RESET                                F6B01650
       ZSD     ONEFL+1        FULL PAGE                                 F6B01651
       CLA    (PGCT)          TESTS                                     F6B01652
       STD     LSTHD          INITIALIZE LAST PAGE HEADING TEST        $F6B01653
       ADD     D(1)                                                    $F6B01654
       STD     COLFL+4                                                 $F6B01655
       ADD     D(1)                                                    $F6B01657
       ADD    (PGCT)          TWO                                       F6B01658
       SUB     D(3)                                                     F6B01659
       STD     WRTIO+4        COLUMNS.                                  F6B01660
       NZT    XSWCH8          IS BINARY WORD REQUESTED                  F6B01670
       REM                    (XR2 CONTAINS ONE EXTENDED COLUMN COUNT)  F6B01680
       AXT     12,2           NO, LOAD TWO STANDARD COLUMN WORD COUNT   F6B01690
       TXL     INITW,4,0      IS PAGE WIDTH RESTRICTED                  F6B01700
       SXD     WRTIO,2        YES, RESET PARAMETER TO PRINT NARROW PAGE.F6B01710
       NZT    XSWCH8          IS BINARY WORD REQUESTED ON NARROW PAGE  $F6B01712
       TRA     *+3            NO                                       $F6B01720
       ZSD     COLFL+1        YES, CHANGE COL. ONE TEST                $F6B01730
       TRA     CCCCC                                                   $F6B01731
       AXT     12,2           RESET MAPPING TO THREE TETRADS PER LINE  $F6B01740
       SXD     WRCT1,2                                                 $F6B01750
       SXD     IOLIN,2        RESET MAPPING PARAMETER                   F6B01760
       TXI     *+1,2,-20                                                F6B01770
       PXA     ,2                                                   (20)F6B01780
       TRA     GGGGG          GO TO PATCH                           (20)F6B01790
 INITW AXT     -9,2           LOAD COLUMN COUNTER FOR BINARY WORD       F6B01810
       ZET    XSWCH8          IS BINARY WORD REQUESTED                  F6B01820
       SXA     ONEFL,2        YES, RESET COLUMN COUNTER.                F6B01830
       NZT    XSWCH3          IS ON LINE PRINT REQUESTED                F6B01840
       TRA     FFIL2+3        NO                                        F6B01850
       REM                                                              F6B01860
       REM     PRINT FIRST FILE ON LINE                                 F6B01870
       AXT     1,2           INITIALIZE BUFFER INDEX TO FIRST BUFFER.  $F6B01880
       AXT     1,1                                                     $F6B01885
       PXD     ,1             RESET PAGE COUNT TO 1                     F6B01890
       STD*   ORGLCT                                                    F6B01900
       TSX    (TAPE),4       *READ IN FIRST CARD                        F6B01910
 RDNP1 PZE     FFILI,2,(RBNP)                                           F6B01920
       PZE     FINPT,,TABTAP                                            F6B01930
       PZE     LSTRR                                                    F6B01940
       CAL     BLNKS          SET FIRST WORD OF EACH BUFFER BLANK       F6B01950
       SLW*    RDCBF-1                                                  F6B01960
       SLW*    RDCBF-2                                                  F6B01970
       CAL     EJECT                                                    F6B01980
       SLW    XPGHED+17                                                 F6B01990
       TRA     FFIL0                                                    F6B02000
       REM     ERROR ON LISTING TAPE                                    F6B02010
 LSTRR TSX    (TAPE),4       *SKIP BAD RECORD                           F6B02020
       PZE     L(1),,(SKBP)                                             F6B02030
       PZE     ,,TABTAP                                                 F6B02040
       MZE     *+1                                                      F6B02041
       TSX    (PRNT),4       *WRITE 'LINE DELETED' ONLINE               F6B02050
       PZE     LSTRM,,4                                                 F6B02060
       REM     REENTRY TO FILL NEXT BUFFER                              F6B02070
 FFIL0 TSX    (TAPE),4       *READ IN NEXT CARD                         F6B02080
       PZE     FFILI+1,2,(RBEP)                                         F6B02090
       PZE     FINPT,,TABTAP                                            F6B02100
       PZE     LSTRR                                                    F6B02110
       CAL     FFILI,2        PICK UP LOAD POINT FOR NEXT CARD          F6B02120
       SUB     L(1)           INCLUDE WORD OF BLANKS                    F6B02130
       STA     FFIL2          INITIALIZE WRITEOUT PARAMETER             F6B02140
       PAC     ,4             PREPARE FOR WORD COUNT COMPUTATION        F6B02150
       SXD     FFIL1,4                                                  F6B02160
       LXA    (SCHU)+TABTAP,4 LOAD LAST+1 WORD READ                     F6B02170
       TXL     FFIL2+3,4,0    WAS END OF FILE SENSED                    F6B02180
 FFIL1 TXI     *+1,4,**       NO, COMPUTE WORD COUNT                    F6B02190
       SXD     FFIL2,4        INITIALIZE WRITEOUT PARAMETER             F6B02200
       TIX     *+2,1,1        IS PAGE FULL                              F6B02210
       TSX     HEDPG,4       *YES, PRINT PAGE HEADING                   F6B02220
       TSX    (PRNT),4       *PRINT THIS LINE                           F6B02230
 FFIL2 PZE     **,,**                                                   F6B02240
       TIX     FFIL0,2,1      IS FIRST BUFFER DONE                      F6B02250
       TXI     FFIL0,2,1      YES, BUMP TO SECOND BUFFER                F6B02260
       ZSD     WRIT3          RESET FIRST FILE SWITCH.                  F6B02270
       REM                                                              F6B02280
       TTL CONTROL ROUTINES FOR MAPPING                                 F6B02281
       REM     MAP STORAGE NOT USED BY PROGRAM                          F6B02290
       TSX     WRITE,4       *WRITE STORAGE NOT USED TITLE              F6B02300
       IOCT    SNTIT,,13                                               $F6B02310
       TSX     WRITE,4       *WRITE SHORT DEC-OCT HEADING               F6B02320
       IOCT    DOHED,,8                                                $F6B02330
       LDQ     BLNKS          SET SECOND WORD BLANK                     F6B02340
       CLA    XPCD8L          GET PROGRAM BREAK                         F6B02350
       TSX     LINE1,4       *CONVERT IT TO LINE IMAGE ENTRY            F6B02360
       LDQ     BLNKS          SET SECOND WORD BLANK                     F6B02370
       CLA    XPCD8R          GET COMMON BREAK                          F6B02380
       TSX     LINE1,4       *CONVERT IT TO LINE IMAGE ENTRY            F6B02390
       TSX     WRIPL,2       *WRITE PARTIAL LINE                        F6B02400
       REM                                                              F6B02410
       REM     MAP STORAGE FOR VARIABLES IN COMMON                      F6B02420
       LXD    XDEVTL,2        GET DEV TABLE COUNT                       F6B02430
 MAPC1 LDI*   ORGDEA          PICK UP FLAGS                             F6B02440
       RFT     400000         IS THIS FORSUB, CLOSUB, ARGUMENT NAME OR $F6B02450
       TRA     MAPC3          YES                                       F6B02460
       CLA*   ORGDEA          NO, GET NEXT ADDRESS IN DEA               F6B02470
       ANA     ADMSK          MASK OUT FLAGS                            F6B02480
       CAS    XPCD8R          IS VARIABLE IN COMMON                     F6B02490
       TRA     *+3            YES                                       F6B02500
       TRA     MAPC3          NO                                        F6B02510
       TRA     MAPC3          NO                                        F6B02520
       TXH     MAPC2,2,-1     YES, HAS TITLE BEEN WRITTEN               F6B02530
       ZSD     *-1            NO, RESET SWITCH.                         F6B02540
       TSX     WRITE,4       *WRITE COMMON TITLE                        F6B02550
       IOCT    CMTIT,,16                                               $F6B02560
       TSX     WRITE,4       *WRITE DEC-OCT HEADING                     F6B02570
       IOCT    DOHED,,20                                               $F6B02580
       CLA*   ORGDEA          GET ADDRESS AGAIN                         F6B02590
 MAPC2 LDQ*   ORGDEV          GET VARIABLE NAME                         F6B02600
       TSX     LINE1,4       *CONVERT TO LINE IMAGE ENTRY               F6B02610
 MAPC3 TIX     MAPC1,2,1      IS DEV TABLE EXHAUSTED                    F6B02620
       TSX     WRIPL,2       *YES, WRITE OFF LAST PARTIAL LINE          F6B02630
       REM                                                              F6B02640
       REM     MAP VARIABLES IN DIMENSION AND EQUIVALENCE               F6B02650
       LXD    XDEVTL,2        GET DEV TABLE COUNT                       F6B02660
 MAPD1 LDI*   ORGDEA          PICK UP FLAGS                             F6B02670
       RFT     400000         IS THIS FORSUB, CLOSUB, ARGUMENT NAME OR $F6B02680
       TRA     MAPD3          YES                                       F6B02690
       CLA*   ORGDEA          NO, GET NEXT ADDRESS IN DEA               F6B02700
       ANA     ADMSK          MASK OUT FLAGS                            F6B02710
       CAS    XPCD8R          IS VARIABLE IN COMMON                     F6B02720
       TRA     MAPD3          NO                                        F6B02730
       TRA     *+1            YES                                       F6B02740
       TXH     MAPD2,2,-1     YES, HAS TITLE BEEN WRITTEN               F6B02750
       ZSD     *-1            NO, RESET SWITCH                          F6B02760
       TSX     WRITE,4       *WRITE DIMENSION EQUIVALENCE TITLE         F6B02770
       IOCT    DETIT,,18                                               $F6B02780
       TSX     WRITE,4       *WRITE DEC-OCT HEADING                     F6B02790
       IOCT    DOHED,,20                                               $F6B02800
       CLA*   ORGDEA          GET ADDRESS AGAIN                         F6B02810
 MAPD2 LDQ*   ORGDEV          GET VARIABLE SYMBOL                       F6B02820
       TSX     LINE1,4       *CONVERT TO LINE IMAGE ENTRY               F6B02830
 MAPD3 TIX     MAPD1,2,1      IS DEV TABLE EXHAUSTED                    F6B02840
       TSX     WRIPL,2       *YES, WRITE OFF LAST PARTIAL LINE          F6B02850
       REM                                                              F6B02860
       REM     MAP VARIABLES NOT IN COMMON OR DIMENSION                 F6B02870
       LXD    XTEVTL,2        GET TEV TABLE COUNT                       F6B02880
       TXL     MAPT2+2,2,0    IS TEV TABLE EMPTY                        F6B02890
       TSX     WRITE,4       *NO, WRITE OTHER VARIABLES TITLE           F6B02900
       IOCT    TETIT,,18                                               $F6B02910
       TSX     WRITE,4       *WRITE DEC-OCT HEADING                     F6B02920
       IOCT    DOHED,,20                                               $F6B02930
 MAPT1 PXA     ,2             COMPUTE ADDRESS OF TEV ENTRY              F6B02940
       ADD    XTEVBS                                                    F6B02950
       LDQ*   ORGTEV          GET VARIABLE SYMBOL                       F6B02960
       TSX     LINE1,4       *CONVERT TO LINE IMAGE ENTRY               F6B02970
 MAPT2 TIX     MAPT1,2,1      IS TEV TABLE EXHAUSTED                    F6B02980
       TSX     WRIPL,2       *YES, WRITE OFF LAST PARTIAL LINE          F6B02990
       REM                                                              F6B03000
       REM     MAP FORMAT STATEMENT NUMBERS                             F6B03010
       LXD    ORGDEV+1,4      ARE THERE ANY FORMAT STATEMENTS           F6B03020
       TXL     MAPM3+5,4,0    NO                                        F6B03030
       TSX     WRITE,4       *WRITE FORMAT TITLE                        F6B03040
       IOCT    FMTIT,,16                                               $F6B03050
       TSX     WRITE,4       *WRITE EFN-LOC HEADING                     F6B03060
       IOCT    ELHED,,20                                               $F6B03070
       CLA     MAPM2          RESET LINE ROUTINE FOR OCTAL LOCATION     F6B03080
       STA     LINE4                                                    F6B03090
       LXD    XTIVTL,2        GET TIV TABLE COUNT                       F6B03100
       TXI     *+1,2,2                                                  F6B03110
 MAPM1 LDQ*   ORGTIV          GET NEXT TIV ENTRY                        F6B03120
       ZAC                                                              F6B03130
       LGL     4              ISOLATE FIRST CHARACTER                   F6B03140
       CAS     L(8)           IS IT FORMAT SYMBOL                       F6B03150
       TRA     MAPM3          NO                                        F6B03160
       TRA     *+2            YES                                       F6B03170
       TRA     MAPM3          NO                                        F6B03180
       TSX     TIVSM+1,4     *CONVERT TO PSEUDOSYMBOL                   F6B03190
       XCL                                                              F6B03200
       CLA*   ORGTIV          GET ADDRESS OF PSEUDOSYMBOL               F6B03210
 MAPM2 STA     BILOC          SAVE ADDRESS                              F6B03220
       ARS     15             GET EFN                                   F6B03230
       TSX     LINE1,4       *CONVERT TO LINE IMAGE ENTRY               F6B03240
 MAPM3 TXI     *+1,2,1        BUMP TABLE COUNT                          F6B03250
       TXH     MAPM1,2,0      IS TABLE EXHAUSTED                        F6B03260
       TSX     WRIPL,2       *YES, WRITE OFF LAST PARTIAL LINE          F6B03270
       CLA     LINE1+1        RESET LINE ROUTINE FOR OCTAL LOCATION     F6B03280
       STA     LINE4                                                    F6B03290
       REM                                                              F6B03300
       REM     MAP INTERNAL SYMBOLS                                     F6B03310
       TSX     WRITE,4       *WRITE INTERNAL SYMBOL TITLE               F6B03320
       IOCT    TITIT,,16                                               $F6B03330
       TSX     WRITE,4       *WRITE DEC-OCT HEADING                     F6B03340
       IOCT    DOHED,,20                                               $F6B03350
       LXD    XTIVTL,2        GET TIV TABLE COUNT                       F6B03360
       TXI     *+1,2,2                                                  F6B03370
 MAPI1 LDQ*   ORGTIV          GET NEXT TIV ENTRY                        F6B03380
       ZAC                                                              F6B03390
       LGL     4              ISOLATE FIRST CHARACTER                   F6B03400
       TZE     MAPI2          IS THIS SUBIFN                            F6B03410
       CAS     L(8)           NO, IS IT FORMAT SYMBOL                   F6B03420
       TRA     *+2            NO                                        F6B03430
       TRA     MAPI2          YES                                       F6B03440
       TSX     TIVSM+1,4     *CONVERT TO PSEUDOSYMBOL                   F6B03450
       XCL                                                              F6B03460
       CLA*   ORGTIV          GET ADDRESS OF PSEUDOSYMBOL               F6B03470
       TSX     LINE1,4       *CONVERT TO LINE IMAGE ENTRY               F6B03480
 MAPI2 TXI     *+1,2,1        BUMP TABLE COUNT                          F6B03490
       TXH     MAPI1,2,0      IS TABLE EXHAUSTED                        F6B03500
       TSX     WRIPL,2       *YES, WRITE OFF LAST PARTIAL LINE          F6B03510
       REM                                                              F6B03520
       REM     MAP TRANSFER VECTOR                                      F6B03530
       REM     RECONSTRUCT CLOSUB TABLE FROM SEARCH OF DEV              F6B03540
       LXD    XPCD8L,2        LOAD TRANSFER VECTOR COUNT                F6B03550
       TXL     MAPV3+2,2,0    IS TRANSFER VECTOR EMPTY                  F6B03560
       SXD     *+3,2                                                    F6B03570
       LXA    XMEMRY,2        INITIALIZE ORIGIN AT END OF CLOSUB TABLE  F6B03580
       SXA     MAPV2,2                                                  F6B03590
       TXI     *+1,2,**                                                 F6B03600
       SXA    ORGCLO,2                                                  F6B03610
       SXD     *+2,2          CHECK FOR TABLE OVERLAP                   F6B03620
       LXA    ORGTIV,2                                                  F6B03630
       TXH     *+2,2,**       DID TABLES OVERLAP                        F6B03640
       TSX    XERR08,4       *YES                                       F6B03650
       TSX     WRITE,4       *WRITE TRANSFER VECTOR TITLE               F6B03660
       IOCT    TVTIT,,14                                               $F6B03670
       TSX     WRITE,4       *WRITE DEC-OCT HEADING                     F6B03680
       IOCT    DOHED,,20                                               $F6B03690
       LXD    XDEVTL,2        GET DEV TABLE COUNT                       F6B03700
 MAPV1 LDI*   ORGDEA          PICK UP FLAGS                             F6B03710
       LNT     100000         IS THIS TRANSFER VECTOR NAME              F6B03720
       TRA     MAPV3          NO                                        F6B03730
       CLA*   ORGDEA          YES, GET NEXT ADDRESS IN DEA              F6B03740
       LDQ*   ORGDEV          GET ENTRY POINT NAME                      F6B03750
       PAC     ,4             COMPUTE POSITION IN CLOSUB TABLE          F6B03760
 MAPV2 STQ     **,4           INSERT IN PROPER POSITION                 F6B03770
       TSX     LINE1,4       *CONVERT TO LINE IMAGE ENTRY               F6B03780
 MAPV3 TIX     MAPV1,2,1      IS DEV TABLE EXHAUSTED                    F6B03790
       TSX     WRIPL,2       *YES, WRITE OFF LAST PARTIAL LINE          F6B03800
       REM                                                              F6B03810
       TTL CONTROL ROUTINES FOR LIBRARY SEARCH AND MAPPING              F6B03811
       REM     SEARCH LIBRARY FILE FOR NAMES OF SUBPROGRAMS IN          F6B03820
       REM     SOURCE PROGRAM TRANSFER VECTOR                           F6B03830
       REM     A PASS IS MADE OVER THE LIBRARY FILE TO EXAMINE LIBRARY  F6B03840
       REM     SUBROUTINE PROGRAM CARDS AND TRANSFER VECTORS. IF A      F6B03850
       REM     LIBRARY SUBROUTINE IS FOUND TO BE REQUIRED, IT IS ADDED  F6B03860
       REM     TO THE BINARY OUTPUT, AND ITS TRANSFER VECTOR IS ADDED   F6B03870
       REM     TO A SECONDARY LOOKFOR LIST. ADDITIONAL PASSES ARE MADE  F6B03880
       REM     UNTIL ONE OF THE FOLLOWING CONDITIONS IS MET             F6B03890
       REM     1) DURING A PASS, THE SOURCE PROGRAM TRANSFER VECTOR AND F6B03900
       REM        THE SECONDARY LOOKFOR LISTS ARE SATISFIED             F6B03910
       REM     2) AT THE END OF A PASS (END OF LIBRARY FILE) THE        F6B03920
       REM        SECONDARY LOOKFOR LIST IS SATISFIED OR NO NAMES WERE  F6B03930
       REM        ADDED TO THE SECONDARY LOOKFOR LIST DURING THE PASS   F6B03940
       REM     DURING A PASS, THE NAMES OF PRIMARY ENTRY POINTS TO EACH F6B03950
       REM     LIBRARY SUBROUTINE ARE CHECKED AGAINST THE SOURCE PROGRAMF6B03960
       REM     TRANSFER VECTOR AND SECONDARY LOOKFOR LISTS. IF THE      F6B03970
       REM     SUBROUTINE IS SO REQUIRED, ALL ENTRY POINTS (PRIMARY AND F6B03980
       REM     SECONDARY) WHICH ARE ON THE SOURCE PROGRAM TRANSFER      F6B03990
       REM     VECTOR ARE DELETED FROM THE TRANSFER VECTOR AND ADDED TO F6B04000
       REM     THE FOUND LIST. ALL ENTRY POINTS WHICH ARE ON THE        F6B04010
       REM     SECONDARY LOOKFOR LIST ARE DELETED AND ADDED TO THE      F6B04020
       REM     SECONDARY FOUND LIST. ALL ENTRY POINTS NOT ON ANY LOOKFORF6B04030
       REM     LIST (NOT YET REQUIRED) OR ON ANY FOUND LIST (NOT YET IN F6B04040
       REM     THE DECK) ARE ADDED TO THE SECONDARY FOUND LIST. NAMES ONF6B04050
       REM     THE SECONDARY FOUND LIST DO NOT APPEAR ON THE STORAGE MAPF6B04060
       REM     NAMES ON THE SUBROUTINE TRANSFER VECTOR ARE CHECKED      F6B04070
       REM     AGAINST THE FOUND LISTS AND LOOKFOR LISTS. IF A NAME IS  F6B04080
       REM     NOT ALREADY IN THE DECK, OR IS NOT A PRIOR REQUIREMENT,  F6B04090
       REM     IT IS ADDED TO THE SECONDARY LOOKFOR LIST. NAMES OF ALL  F6B04100
       REM     SUBROUTINES OUTPUT, AND ENTRY POINTS REQUIRED IN THE     F6B04110
       REM     SOURCE PROGRAM TRANSFER VECTOR WILL APPEAR ON THE STORAGEF6B04120
       REM     MAP. NAMES OF ENTRY POINTS NOT OUTPUT FROM THE LIBRARY,  F6B04130
       REM     ON THE SOURCE PROGRAM TRANSFER VECTOR, OR ON THE         F6B04140
       REM     SECONDARY LOOKFOR LIST, WILL APPEAR ON THE STORAGE MAP.  F6B04150
       REM     THE SOURCE PROGRAM TRANSFER VECTOR IS FOUND FLAGGED IN   F6B04160
       REM     DEV/DEA. TO DELETE A NAME, THE FLAG IS RESET.            F6B04170
       REM     THE CONSOLIDATED LIBRARY PROGRAM CARD IS CONSTRUCTED IN  F6B04180
       REM     CIT INPUT BUFFERS, AND MAY NOT EXCEED TWICE CITSIZ.      F6B04190
       REM     THE SECONDARY LOOKFOR LIST EXTENDS DOWN FROM TIV. THE    F6B04200
       REM     PRIMARY FOUND LIST EXTENDS UP FROM CLOSUB, WITH LENGTH   F6B04210
       REM     RESERVED EQUAL TO FOUR TIMES THE LENGTH OF CLOSUB (ALLOW F6B04220
       REM     FOR NAMES OF SECONDARY SUBROUTINES). THE SECONDARY FOUND F6B04230
       REM     FOUND LIST EXTENDS UP FROM THE PRIMARY FOUND LIST.  IF   F6B04240
       REM     IF THE PRIMARY, SECONDARY FOUND LISTS OR SECONDARY LOST  F6B04250
       REM     LIST OVERLAP EACH OTHER, OR CONSOLIDATED PROGRAM CARD IS F6B04260
       REM     LONGER THAN BUFFER SPACE AVAILABLE, OR IN CASE OF LIBRARYF6B04270
       REM     TAPE ERROR, THE LIBRARY SEARCH HAS FAILED, THE LAST      F6B04280
       REM     (POSSIBLY INCOMPLETE) LIBRARY SUBROUTINE IS ERASED, AND  F6B04290
       REM     NO ADDITIONAL SUBROUTINES WILL BE OUTPUT.                F6B04300
       LXD    ORGCLO,2        LOAD TRANSFER VECTOR LENGTH               F6B04310
       TXL     MAPL2+2,2,0    IS TRANSFER VECTOR EMPTY                  F6B04320
       SXA     LSRLS,2        NO, INITIALIZE LENGTH OF LOST LIST        F6B04330
       AXT     0,1            RESET LENGTH OF SECONDARY LOST LIST       F6B04340
       NZT    XSWCH5          IS LIBRARY SEARCH REQUIRED                F6B04350
       TRA     MAPS1+2        NO, GO MAP SUBROUTINES LOST               F6B04360
       PXA     ,2             YES, GET TRANSFER VECTOR COUNT            F6B04370
       ALS     2              MULTIPLY BY FOUR                          F6B04380
       TXH     *+2,2,25       ARE AT LEAST 100 SPACES RESERVED          F6B04390
       CLA     L(100          NO, SET LENGTH TO AT LEAST 100            F6B04400
       PAC     ,2             INITIALIZE OVERFLOW TEST                  F6B04410
       SXD     LNFDT,2                                                  F6B04420
       ADM    ORGCLO          INITIALIZE ORIGIN FOR SECONDARY FOUND LISTF6B04430
       STA     RGSFD                                                    F6B04440
       CAL    ORGTIV          INTIALIZE ORIGIN FOR SECONDARY LOOKFOR    F6B04450
       STA     RGSLS          LIST                                      F6B04460
       ADD     L(1)                                                     F6B04470
       STA     RGSLS+1                                                  F6B04480
       SUB     RGSFD          INITIALIZE OVERLAP TESTS                  F6B04490
       PAX     ,2                                                       F6B04500
       SXD     LNSLT,2                                                  F6B04510
       PAC     ,2                                                       F6B04520
       SXD     LNSFT,2                                                  F6B04530
       LXD    (LIBT),4        LOAD LIBRARY TAPE NUMBER                  F6B04540
       SXD     LIBTP,4        INITIALIZE LIBRARY TAPE                   F6B04550
       SXD     *+2,4          INITIALIZE (SCHU) COMPUTATION             F6B04560
       AXT    (SCHU),2                                                  F6B04570
       TXI     *+1,2,**       COMPUTE (SCHU) CELL                       F6B04580
       SXA     RDLB1,2        INITIALIZE END FILE TEST                  F6B04590
       TXH     LIBS0,4,SYSTAP IS LIBRARY ON SYSTEM TAPE             (31)F6B04600
       TXL     LIBS0,4,SYSTAP-1                                     (31)F6B04610
       TSX     SYSPS,4        YES, SPACE SYSTEM TAPE OVER END OF FILE 2.F6B04620
       PZE     D(1)                                                     F6B04630
       ZSD     LIB14          SET LIBRARY ON SYSTEM TAPE SWITCH.        F6B04650
LIBS0  NZT    XSWCH7          IS CARD LABEL REQUESTED               (31)F6B04652
       TRA     LIBS1          NO                                        F6B04654
       LDQ    XLABEL          YES, LOAD LABEL FOR PROGRAM BEING COMPILEDF6B04660
       TSX     IDENT,4       *CREATE CARD LABEL                         F6B04670
       AXT     24,4           CLEAR PUNCH BUFFER                        F6B04680
       STZ     PCH9L+24,4                                               F6B04690
       TIX     *-1,4,1                                                  F6B04692
       TSX     PCHLD,4       *PUNCH LABELED BLANK CARD                  F6B04700
       REM     REENTRY AT END OF LIBRARY FILE                           F6B04710
 LIBS1 SXD     LIBFG,0        RESET FLAG FOR ENTRY POINT ADDED THIS PASSF6B04720
       AXT     BUFFR,4        SET LOAD POINT FOR                       $F6B04721
       SXA     (LBLD),4       POSSIBLE DISK LIBRARY                    $F6B04722
       AXT     ,0                                                      $F6B04723
       REM     REENTRY TO FIND NEXT PROGRAM CARD                        F6B04730
       SXA    XCRDCT,0        RESET CARD COUNT                          F6B04740
       TSX     RDLBC,4       *READ NEXT CARD                            F6B04750
       TRA     LIB12          WAS END OF LIBRARY FILE SENSED            F6B04760
       TPL     *-2            NO, IS THIS PROGRAM CARD                  F6B04770
       REM     REENTRY TO FIND CONTINUATION PROGRAM CARDS               F6B04780
 LIBS2 SXA     RGCRD,2        SAVE LOAD POINT OF NEXT CARD              F6B04790
       LAS     D(22)          IS PROGRAM CARD COMPLETE                  F6B04800
       TRA     LIBS3          YES (CONSOLIDATED PROGRAM CARD)           F6B04810
       TRA     *+2            MAYBE                                     F6B04820
       TRA     LIBS3          YES (SINGLE PROGRAM CARD)                 F6B04830
       TSX     RDLCC,4       *READ POSSIBLE CONTINUATION PROGRAM CARD   F6B04840
       TRA     LIBEF         *WAS END FILE MISTAKENLY SENSED            F6B04850
       TMI     LIBS2          NO, IS THIS CONTINUATION PROGRAM CARD     F6B04860
       AXT     MFTBF,4        NO. SKIP READ NEXT TIME                  $F6B04870
       SXA     LCTRA,4                                                 $F6B04871
       CLA     PCH9L          MOVE PRESENT RECORD TO TEMPORARY BUFFER  $F6B04872
       STO     TBUFF                                                   $F6B04873
       CLA     PCH9L+1                                                 $F6B04880
       STO     TBUFF+1                                                 $F6B04881
       AXT     22,4                                                    $F6B04882
       CLA     STINB+1                                                 $F6B04883
       STA     *+1                                                     $F6B04890
       CLA     **,4                                                    $F6B04891
       STO     TBUFF+2+22,4                                            $F6B04892
       TIX     *-2,4,1                                                 $F6B04893
       CAL     P(4)           RESET 9L PREFIX FOR PROGRAM CARD          F6B04900
       SLW     PCH9L                                                    F6B04910
       REM     PROGRAM CARD IS COMPLETE                                 F6B04920
 LIBS3 ZSD     RDLCT          RESET OVERFLOW SWITCH.                    F6B04930
       LXA     RGCRD,2        INTITALIZE ORIGIN AT END OF CARD          F6B04940
       TXI     *+1,2,1                                                  F6B04950
       SXA     RGCRD+1,2                                                F6B04960
       TXI     *+1,2,-PCH8R-2 COMPUTE LENGTH OF CONSOLID PROGRAM CARD   F6B04970
       SXD     RGCRD,2                                                  F6B04980
       LDI     L(0)           SET NO ENTRY FLAG                         F6B04990
       REM     REENTRY TO SCAN NEXT NAME ON PROGRAM CARD                F6B05000
       CLA*    RGCRD+1        GET NEXT ENTRY POINT                      F6B05010
       TMI     *+3            IS THIS ENTRY POINT                       F6B05020
       CAL*    RGCRD          YES, GET ENTRY POINT NAME                 F6B05030
       TSX     LSRLS,4       *IS ENTRY POINT REQUIRED                   F6B05040
       TIX     *-4,2,2        NO, IS THIS END OF PROGRAM CARD           F6B05050
       TRA     LIBS1+4        YES, THIS SUBROUTINE NOT REQUIRED        $F6B05060
       REM     THIS SUBROUTINE IS REQUIRED                              F6B05070
       REM     INSERT SUROUTINE NAME ON FOUND LIST                      F6B05080
       LXD     RGCRD,2        LOAD COUNT OF FIRST NAME ON PROGRAM CARD  F6B05090
       LDQ*    RGCRD          PICK UP SUBROUTINE NAME                   F6B05100
       ZAC                                                              F6B05110
       LGL     6              ISOLATE FIRST CHARACTER                   F6B05120
       CAS     OPARN          IS IT ( FOR I/O SUBROUTINE                F6B05130
       TRA     *+2            NO                                        F6B05140
       TRA     *+2            YES                                       F6B05150
       LGR     6              RESTORE FIRST CHARACTER                   F6B05160
       CAL     L9LBL          PICK UP 9 LABEL                           F6B05170
       AXT     0,4            SET CHARACTER COUNT TO RIGHTMOST CHARACTERF6B05180
 LIBS4 SLW     ERAS1          SAVE PARTIALLY CONVERTED SYMBOL           F6B05190
       LGL     6              SHIFT IN NEXT CHARACTER                   F6B05200
       SLW     ERASE          SAVE                                      F6B05210
       ANA     CHMSK          ISOLATE LAST CHARACTER                    F6B05220
       ERA     PAREN          IS IT )                                   F6B05230
       TZE     *+5            YES, SYMBOL IS COMPLETE                   F6B05240
       CAL     ERASE          NO, PICK UP PARTIALLY CONVERTED SYMBOL    F6B05250
       TXI     *+1,4,6        BUMP CHARACTER COUNT LEFT ONE CHARACTER   F6B05260
       TXL     LIBS4,4,24     IS SYMBOL LEFT ADJUSTED                   F6B05270
       TRA     *+4            YES                                       F6B05280
       CAL     ERAS1          PICK UP SYMBOL STRIPPED OF PARENS         F6B05290
       LDQ     BLNKS          AND FOLLOWING BLANKS                      F6B05300
       LGL     30,4           LEFT ADJUST                               F6B05310
       SLW    XSYMBL          SAVE LIBRARY SUBROUTINE LABEL             F6B05320
       SLW     LIBLB          SAVE IT FOR POSSIBLE DIAGNOSTIC           F6B05330
       TSX     LENFD,4       *ADD IT TO FOUND LIST                      F6B05340
       PZE                    NOT USED                                  F6B05350
       PZE                    NOT USED                                  F6B05360
       LDQ    XSYMBL          PICK UP NAME OF LIBRARY SUBROUTINE        F6B05370
       TSX     IDENT,4       *CREATE CARD LABEL                         F6B05380
       REM     ADD NAMES ON PROGRAM CARD TO FOUND OR SECONDARY LIST     F6B05390
       LDI     OPMSK          SET ENTRY FLAG                            F6B05400
       LXD     RGCRD,2        RELOAD COUNT OF FIRST NAME ON PROGRAM CARDF6B05410
       CAL*    RGCRD          GET NEXT ENTRY POINT NAME                 F6B05420
       TSX     LSRLS,4       *IS ENTRY POINT REQUIRED                   F6B05430
       TSX     LSRFD,4       *NO, IS ENTRY POINT IN DECK                F6B05440
       TSX     LENSF,4       *NO, ADD NAME TO SECONDARY FOUND LIST      F6B05450
       TIX     *-4,2,2        IS THIS END OF PROGRAM CARD               F6B05460
       LXD     PCH8L,2        YES, SAVE SUBROUTINE TRANSFER VECTOR      F6B05470
       SXA     LIBS8,2        LENGTH                                    F6B05480
       REM     PUNCH FIRST PROGRAM CARD FOR REQUIRED SUBROUTINE         F6B05490
       LXD     RGCRD,2        LOAD CONSOLIDATED PROGRAM CARD COUNT      F6B05500
       TIX     *+2,2,20       IS PROGRAM CARD LONGER THAN ONE CARD      F6B05510
       TXI     LIBS7,2,2      NO, BUMP WORD COUNT TO INCLUDE 8 ROW      F6B05520
       REM     PUNCH SUBSEQUENT PROGRAM CARD                            F6B05530
 LIBS5 SXD     RGCRD,2        SAVE COUNT ON REMAINING CARDS             F6B05540
       AXT     22,2           SET CARD WORD COUNT TO FULL CARD          F6B05550
       TSX     PCHPC,4       *PUNCH CARD                                F6B05560
       SXA     PCH9L,0        RESET 9L ADDRESS                          F6B05570
       LXD     RGCRD,2        LOAD REMAINING PROGRAM CARD COUNT         F6B05580
       AXT     22,1           SET CARD COUNT TO FULL CARD               F6B05590
       CLA*    RGCRD          MOVE NEXT WORD                            F6B05600
       STO     PCH9L+24,1     INTO PUNCH BUFFER                         F6B05610
       TNX     LIBS6,2,1      IS CONSOLIDATED PROGRAM CARD EXHAUSTED    F6B05620
       TIX     *-3,1,1        NO, IS CARD FULL                          F6B05630
       TRA     LIBS5          YES                                       F6B05640
       REM     PUNCH LAST PROGRAM CARD FOR REQUIRED SUBROUTINE          F6B05650
 LIBS6 SXD     *+2,1          COMPUTE LENGTH OF LAST CARD               F6B05660
       AXT     23,2                                                     F6B05670
       TIX     *+1,2,**                                                 F6B05680
 LIBS7 TSX     PCHPC,4       *PUNCH LAST CARD                           F6B05690
       REM     SCAN LIBRARY DATA CARDS FOR SUBROUTINE TRANSFER VECTOR   F6B05700
       TSX     RDLBC,4       *READ NEXT DATA CARD                       F6B05710
       TRA     LIBEF         *WAS END FILE MISTAKENLY SENSED            F6B05720
       TMI     LIBOR         *NO, IS THIS PROGRAM CARD                  F6B05730
 LIBS8 AXT     **,2           NO, LOAD SUBROUTINE TRANSFER VECTOR COUNT F6B05740
       TXL     LIB11,2,0      IS SUBROUTINE TRANSFER VECTOR EMPTY       F6B05750
       LDI     L(0)           NO, SET NO ENTRY FLAG                     F6B05760
       AXT     20,1           SET RELOCATABLE CARD LENGTH               F6B05770
 LIBS9 SXA     LIB10,1        SAVE CURRENT CARD COUNT                   F6B05780
       CAL     PCH9L+24,1     GET NEXT NAME ON SUBROUTINE VECTOR        F6B05790
 XMTST TSX     EXEMQ,4        CHECK FOR EXEM SUBSTITUTION               F6B05795
       TSX     LSRLS,4       *IS ENTRY POINT REQUIRED                   F6B05800
       TSX     LSRFD,4       *NO, IS ENTRY POINT IN DECK                F6B05810
       TSX     LENSL,4       *NO, ADD NAME TO SECONDARY LOOKFOR LIST    F6B05820
       TNX     LIB11,2,1      IS TRANSFER VECTOR EXHAUSTED              F6B05830
 LIB10 AXT     **,1           NO, RELOAD CURRENT CARD COUNT             F6B05840
       TIX     LIBS9,1,1      IS CARD EXHAUSTED                         F6B05850
       SXA     LIBS8,2        YES, SAVE SUBROUTINE TRANSFER VECTOR COUNTF6B05860
       TSX     PCHLD,4       *PUNCH CARD                                F6B05870
       TRA     LIBS7+1                                                  F6B05880
       REM     SUBROUTINE TRANSFER VECTOR IS PROCESSED                  F6B05890
       REM     PUNCH REMAINDER OF SUBROUTINE                            F6B05900
 LIB11 TSX     PCHLD,4       *PUNCH CARD                                F6B05910
       TSX     RDLBC,4       *READ NEXT CARD                            F6B05920
       TRA     LIB12          WAS END OF LIBRARY FILE SENSED            F6B05930
       TPL     LIB11          NO, IS THIS DATA CARD                     F6B05940
       TRA     LIB13          NO                                        F6B05950
       REM     END OF LIBRARY FILE SENSED                               F6B05960
 LIB12 TSX    (TAPE),4       *BACKSPACE LIBRARY TAPE OVER               F6B05970
       PZE     BKS2F,,(SKBP)  END LIBE FILE AND LIBE FILE               F6B05980
       PZE    (LIBT),,-1                                                F6B05990
       SLN     4              SET END OF LIBRARY SEARCH FLAG            F6B06000
 LIBFG TXH     LIBEX,2,**     WERE ANY ENTRY POINTS ADDED TO            F6B06010
       REM                    SECONDARY LOOKFOR LIST THIS PASS          F6B06020
       TRA     LIB13+2        YES                                       F6B06030
       REM     REENTRY AFTER PROCESSING SUBROUTINE                      F6B06040
 LIB13 LXA     LSRLS,1        LOAD SOURCE PROGRAM VECTOR COUNT          F6B06050
       TXH     *+3,1,0        IS OBJECT PROGRAM VECTOR SATISFIED        F6B06060
       LXA     LENSL,1        YES, LOAD SECONDARY LOOKFOR LIST COUNT    F6B06070
       TXL     LIBEX,1,0      IS SECONDARY LOOKFOR LIST SATISFIED       F6B06080
       SLT     4              NO, IS THIS END OF LIBRARY FILE           F6B06090
       TRA     LIBS2          NO                                        F6B06100
 LIB14 TXL     *+3,4,-1       YES, IS LIBRARY ON SYSTEM TAPE            F6B06110
       TSX     SYSPS,4        YES, SPACE SYSTEM TAPE OVER END OF FILE 2.F6B06120
       PZE     D(1)                                                     F6B06130
       TRA     LIBS1                                                    F6B06150
       REM     LIBRARY SEARCH FAILED DUE TO TABLE OVERLAP,              F6B06160
       REM     LIBRARY FILE OUT OF ORDER, OR TAPE ERROR                 F6B06170
 LIBEF TSX    (TAPE),4       *BACKSPACE OVER END FILE MISTAKENLY SENSED F6B06180
       PZE     BKSPC,,(SKBP)                                            F6B06190
       PZE    (LIBT),,-1                                                F6B06200
       AXT     0,2            SET ENDFIL ERROR                          F6B06210
       TRA     LIBOR+1                                                  F6B06220
 LIBOV AXT     -1,2           SET OVERFLO ERROR                         F6B06230
       TRA     LIBOR+1                                                  F6B06240
 LIBOR AXT     -2,2           SET ORDER ERROR                           F6B06250
       TSX    (TAPE),4       *WRITE ERROR MESSAGE                       F6B06260
       PZE     LIBER,2,(TPER)                                           F6B06270
 LIBTP MZE     LIBLB,,**                                                F6B06280
 LIBRR TSX     WRITE,4       *WRITE LIBRARY SEARCH DISCONTINUED         F6B06290
       PZE     LIBRM,,6                                                 F6B06300
       LXD     PNCH3,4        LOAD MONITOR OUTPUT SWITCH                F6B06310
       TXH     *+4,4,0        IS MONITOR OUTPUT REQUESTED               F6B06320
       TSX    (TAPE),4       *YES, DELETE LAST SUBROUTINE OUTPUT        F6B06330
       PZE    XCRDCT,,(SKBP)                                            F6B06340
       PZE     ,,MBNTAP                                                 F6B06350
       LXD     PNCH8,4        LOAD ONLINE PUNCH SWITCH                  F6B06360
       TXH     *+4,4,0        IS ONLINE PUNCH REQUESTED                 F6B06370
       TSX    (TAPE),4       *YES, DELETE LAST SUBROUTINE OUTPUT        F6B06380
       PZE    XCRDCT,,(SKBP)                                            F6B06390
       PZE     ,,SBNTAP                                                 F6B06391
       REM     END OF LIBRARY SEARCH                                    F6B06400
 LIBEX AXT     1,1            PREPARE TO BACKSPACE ONE FILE             F6B06410
       SLT     4              WAS END OF LIBE FILE SENSED               F6B06420
       SXD     REPS1,1        NO, RESET PARAMETER TO BACKSPACE FILE     F6B06430
       TSX    (TAPE),4       *REPOSITION SYSTEM TAPE TO END OF          F6B06440
       PZE     REPS1,,(SKBP)  RECORD 31 (IF LIBRARY IS ON SYSTEM TAPE)  F6B06450
       PZE    (LIBT),,-1                                                F6B06460
       SXA    XCRDCT,0        RESET CARD COUNT                          F6B06470
       REM                                                              F6B06480
       REM     MAP SUBROUTINES FOUND                                    F6B06490
       LAC     LENFD,2        LOAD COUNT OF FOUND LIST                  F6B06500
       TXL     MAPS1+2,2,0    IS FOUND LIST EMPTY                       F6B06510
       TSX     WRITE,4       *NO, WRITE SUBROUTINES OUTPUT TITLE        F6B06520
       IOCT    FDTIT,,16                                               $F6B06530
       TSX     WRITE,4       *WRITE BLANK LINE                          F6B06540
       IOCT    FDTIT+1,,4                                              $F6B06550
       PXA     ,2             COMPUTE ORIGIN AT END OF LIST             F6B06560
       ADM    ORGCLO                                                    F6B06570
       STA     *+1                                                      F6B06580
       LDQ     **,2           GET NEXT ENTRY POINT NAME                 F6B06590
       TSX     LINE0,4       *CONVERT TO LINE IMAGE ENTRY               F6B06600
 MAPS1 TIX     *-2,2,1        IS FOUND LIST EXHAUSTED                   F6B06610
       TSX     WRIPL,2       *YES, WRITE OFF FINAL PARTIAL LINE         F6B06620
       REM                                                              F6B06630
       REM     MAP SUBROUTINES LOST                                     F6B06640
       LXA     LENSL,2        LOAD SECONDARY LOST LIST COUNT            F6B06650
       TXH     *+3,2,0        IS SECONDARY LOST LIST EMPTY              F6B06660
       LXA     LSRLS,2        YES, LOAD PRIMARY LOST LIST COUNT         F6B06670
       TXL     MAPL2+2,2,0    IS PRIMARY LOST LIST EMPTY                F6B06680
       TSX     WRITE,4       *NO, WRITE SUBROUTINES NOT OUTPUT TITLE    F6B06690
       IOCT    LSTIT,,15                                               $F6B06700
       TSX     WRITE,4       *WRITE BLANK LINE                          F6B06710
       IOCT    LSTIT+1,,4                                              $F6B06720
       LXA     LSRLS,2        RELOAD PRIMARY LOST LIST COUNT            F6B06730
       TXL     MAPL1+1,2,0    IS PRIMARY LOST LIST EMPTY                F6B06740
       LXD    XDEVTL,2        NO, LOAD DEV TABLE COUNT                  F6B06750
       CLA*   ORGDEA          GET NEXT LOCATION FROM DEA                F6B06760
       ANA     P(1)           MASK IN TRANSFER VECTOR FLAG              F6B06770
       TZE     MAPL1          IS THIS LOST TRANSFER VECTOR NAME         F6B06780
       LDQ*   ORGDEV          YES, PICK UP NAME                         F6B06790
       TSX     LINE0,4       *CONVERT TO LINE IMAGE ENTRY               F6B06800
 MAPL1 TIX     *-5,2,1        IS PRIMARY LOST LIST EXHAUSTED            F6B06810
       LXA     LENSL,2        YES, LOAD SECONDARY LOST LIST COUNT       F6B06820
       TXL     MAPL2+1,2,0    IS SECONDARY LOST LIST EMPTY              F6B06830
       CLA     T(2)           NO, RESET TAG ON INDIRECT ADDRESS OF      F6B06840
       STT     RGSLS          SECONDARY LOST LIST                       F6B06850
       LDQ*    RGSLS          PICK UP NEXT LOST NAME                    F6B06860
       TSX     LINE0,4       *CONVERT TO LINE IMAGE ENTRY               F6B06870
 MAPL2 TIX     *-2,2,1        IS LIST EXHAUSTED                         F6B06880
       TSX     WRIPL,2       *YES, WRITE OFF FINAL PARTIAL LINE         F6B06890
       REM                                                              F6B06900
       REM     DEFINE AND MAP LOCATIONS OF ARITH STATEMENT FUNCTIONS    F6B06910
       LXD    XDEVTL,2        LOAD DEV TABLE COUNT                      F6B06920
 MAPF1 CLA*   ORGDEA          GET NEXT ADDRESS IN DEA                   F6B06930
       TPL     MAPF3          IS IT FORSUB INTERNAL STATEMENT NUMBER    F6B06940
       PAX     ,4                                                       F6B06950
       CLA*   ORGIFN          GET LOCATION OF IFN                       F6B06960
       ARS     18                                                       F6B06970
       STA*   ORGDEA          INSERT IN DEA TABLE                       F6B06980
       TXH     MAPF2,2,-1     HAS TITLE BEEN WRITTEM                    F6B06990
       SXD     *-1,0          NO, RESET SWITCH                          F6B07000
       TSX     WRITE,4       *WRITE ARITHMETIC STATEMENT TITLE          F6B07010
       IOCT    FOTIT,,15                                               $F6B07020
       TSX     WRITE,4       *WRITE DEC-OCT COLUMN HEADINGS             F6B07030
       IOCT    DOHED,,20                                               $F6B07040
       CLA*   ORGDEA          GET ADDRESS AGAIN                         F6B07050
 MAPF2 LDQ*   ORGDEV          GET FORSUB NAME                           F6B07060
       TSX     LINE1,4       *CONVERT TO LINE IMAGE ENTRY               F6B07070
 MAPF3 TIX     MAPF1,2,1      IS FORSUB TABLE EXHAUSTED                 F6B07080
       TSX     WRIPL,2       *YES, WRITE OFF LAST PARTIAL LINE          F6B07090
       REM                                                              F6B07100
       TTL     CONTROL ROUTINES FOR MAPPING                             F6B07101
       REM     MAP EXTERNAL-INTERNAL STATEMENT NUMBERS                  F6B07110
       LXD    ORGEIF,2        LOAD EIF TABLE COUNT                      F6B07120
       SXD     FFILI,2        SET I/O COMMAND WORD COUNT                F6B07130
       CLA    ORGCLO          INITIALIZE I/O COMMAND TO READ IN EIF     F6B07140
       STA     FFILI          EIF TABLE FOLLOWING CLOSUB TABLE          F6B07150
       PXA     ,2             INITIALIZE ORIGIN AT END OF TABLE         F6B07160
       ADM     FFILI                                                    F6B07170
       STA    ORGEIF                                                    F6B07180
       TXL     MAPE4+2,2,0    IS EIF TABLE EMPTY                        F6B07190
       STA     ADDRS          NO, PREPARE TO CHECK FOR TABLE OVERLAP    F6B07200
       CAL    ORGTIV                                                    F6B07210
       ANA     ADMSK                                                    F6B07220
       SUB     ADDRS          WILL EIF OVERLAP UPPER CORE TABLES        F6B07230
       TPL     MAPE0          NO                                        F6B07240
 EIFRR TSX    (TAPE),4       *YES, SPACE OVER EIF TABLE                 F6B07250
       PZE     L(1),,(SKBP)                                             F6B07260
       PZE     CLABL,,COTTAP                                            F6B07270
       TSX     WRITE,4       *WRITE TABLE OUT MESSAGE                   F6B07280
       IOCT    EIFOT,,20                                               $F6B07290
       TRA     PST05+2                                                  F6B07300
 MAPE0 TSX    (TAPE),4       *READ EIF TABLE                            F6B07310
       PZE     FFILI,,(RBNC)                                            F6B07320
       PZE     ELABL,,COTTAP                                            F6B07330
       PZE     EIFRR                                                    F6B07340
       CLA    (SCHU)+COTTAP   LOAD LAST+1 WORD READ                     F6B07350
       ANA     ADMSK                                                    F6B07360
       SUB     ADDRS          IS IT SKEW                                F6B07370
       TNZ     EIFRR+3        YES                                       F6B07380
       STZ     ERAS3          RESET PRIOR EFN FOR REDUNDANCY TEST       F6B07390
       CLA     MAPE2          RESET LINE ROUTINE FOR OCTAL LOCATION     F6B07400
       STA     LINE4                                                    F6B07410
 MAPE1 CAL*   ORGEIF          GET NEXT EFN,,IFN                         F6B07420
       ANA     ADMSK          MASK IN EFN                               F6B07430
       TSX     DECCV,4       *CONVERT EFN TO DECIMAL                    F6B07440
       LAS     ERAS3          IS EFN REDUNDANT                          F6B07450
       TRA     *+2            NO                                        F6B07460
       STZ*   ORGEIF          YES                                       F6B07470
       SLW     ERAS3          SAVE NEW EFN                              F6B07480
       CAL*   ORGEIF          GET SAME EFN,,IFN                         F6B07490
       TZE     MAPE4          IS EFN REDUNDANT                          F6B07500
       PDX     ,4             NO, PICK UP IFN                           F6B07510
       LDQ*   ORGIFN          GET LOCATION ASSIGNED TO IFN              F6B07520
       SLQ*   ORGEIF          REPLACE IFN WITN LOCATION ( EFN,,LOC )    F6B07530
       LGL     18                                                       F6B07540
       ANA     ADMSK          MASK OUT FLAGS                            F6B07550
       TZE     MAPE4          IS THIS NONEXECUTABLE STATEMENT NUMBER    F6B07560
 MAPE2 STA     BILOC          NO                                        F6B07570
       SXA     ADDRS,4        GET IFN                                   F6B07580
       TXH     MAPE3,2,-1     HAS TITLE BEEN WRITTEN                    F6B07590
       SXD     *-1,0          NO, RESET SWITCH                          F6B07600
       TSX     WRITE,4       *WRITE EIF TITLE                           F6B07610
       IOCT    EITIT,,18                                               $F6B07620
       TSX     WRITE,4       *WRITE EIF COLUMN HEADINGS                 F6B07630
       IOCT    EIHED,,20                                               $F6B07640
 MAPE3 LDQ     ERAS3          GET EFN CONVERTED TO DECIMAL              F6B07650
       TSX     LINE0+1,4     *CONVERT TO LINE IMAGE ENTRY               F6B07660
 MAPE4 TIX     MAPE1,2,1      IS EIF TABLE EXHAUSTED                    F6B07670
       TSX     WRIPL,2       *YES, WRITE OFF LAST PARTIAL LINE          F6B07680
       CLA     LINE1+1        RESET LINE ROUTINE FOR OCTAL LOCATION     F6B07690
       STA     LINE4                                                    F6B07700
       NZT    XSWCH2          IS LISTING REQUESTED                      F6B07701
       NZT    XSWC10          NO, IS BLOCKING REQUESTED                 F6B07702
       TRA     *+2            NO                                        F6B07703
       TSX     WFBLK,4        YES, WRITE FINAL BLOCK                    F6B07704
       REM                                                              F6B07710
       REM     REPOSITION SYSTEM TAPE                                   F6B07720
       LDI*   ORGFLG          LOAD MONITOR FLAGS                        F6B07730
       RFT     100000         IS THIS JOB READY TO EXECUTE...           F6B07740
       TRA     *+3            YES, LEAVE THE SYSTEM TAPE AT DEBUG       F6B07750
       TSX     SYSPS,4        NO, BACKSPACE OVER FIRST FILE.            F6B07760
       PZE     REPS2                                                    F6B07770
       REM                                                              F6B07800
       TTL     CONTROL ROUTINES FOR SYMBOL TABLE                        F6B07801
       REM     PREPARE SYMBOL TABLE                                     F6B07810
       REM     SYMBOL TABLE TO BE OF FOLLOWING FORM                     F6B07820
       REM     9L PREFIX      6                                         F6B07830
       REM        DECREMENT   CARD WORD COUNT                           F6B07840
       REM        ADDRESS     ZERO                                      F6B07850
       REM     9R             CHECKSUM                                  F6B07860
       REM     8L             SUBPROGRAM NAME PACKED TO LEFT AND FILLED F6B07870
       REM                    WITH BLANKS                               F6B07880
       REM     8R PREFIX      ZERO                                      F6B07890
       REM        DECREMENT   TABLE WORD COUNT                          F6B07900
       REM        ADDRESS     LOWEST LOCATION OF SOURCE PROGRAM DATA(20)F6B07910
       REM     7L             SOURCE PROGRAM VARIABLE NAME              F6B07920
       REM                    INTERNAL SYMBOL FOR ERASABLE DATA         F6B07930
       REM                    EFN                                       F6B07940
       REM                    PACKED TO LEFT AND FILLED WITH BLANKS     F6B07950
       REM     7R PREFIX      RELOCATION BITS 010                       F6B07960
       REM        DECREMENT   0 DATA IN COMMON                          F6B07970
       REM                    2 OTHER SOURCE PROGRAM DATA               F6B07980
       REM                    3 ERASABLE DATA 1)N, 4)N, 6), 7)N, C)N    F6B07990
       REM                      PROGRAM DATA  2), 3), 8)N, B)           F6B08000
       REM                    4 EFN                                     F6B08010
       REM        ADDRESS     NOMINAL LOCATION, DESCENDING ORDER SORT   F6B08020
       REM                                                              F6B08030
       NZT    XSWCH6          IS SYMBOL TABLE REQUESTED                 F6B08040
       TRA     PST05+2        NO                                        F6B08050
       CAL    ORGEIF          INITIALIZE SYMBOL TABLE TO FOLLOW EIF     F6B08060
       STA     EFN01          INITIALIZE ORIGIN OF EIF TABLE            F6B08070
       STA     RGSTL-1                                                  F6B08080
       ADD     L(1)                                                     F6B08090
       STA     RGSTL                                                    F6B08100
       LDC    XTIVTL,2        GET LENGTH OF TIV TABLE                   F6B08110
       TXI     *+1,2,-2                                                 F6B08120
       PXA     ,2                                                       F6B08130
       LXD    XTEVTL,1        ADD LENGTH OF TEV TABLE                   F6B08140
       SXA     BILOC,1                                                  F6B08150
       ADD     BILOC                                                    F6B08160
       LXD    XDEVTL,1        ADD LENGTH OF DEV TABLE                   F6B08170
       SXA     BILOC,1                                                  F6B08180
       ADD     BILOC                                                    F6B08190
       LXD    ORGEIF,1        ADD LENGTH OF EIF TABLE                   F6B08200
       SXA     BILOC,1                                                  F6B08210
       ADD     BILOC                                                    F6B08220
       ADM     RGSTL          INITIALIZE ORIGIN OF RIGHT BUFFER         F6B08230
       STA     RGSTR                                                    F6B08240
       SUB     L(1)                                                     F6B08250
       STA     RGSTR-1                                                  F6B08260
       CAL     OPMSK                                                    F6B08270
       AXT     0,2            SET BINARY SEARCH STOP                    F6B08280
       SLW*    RGSTR          AT LOWER END OF RIGHT BUFFER              F6B08290
       TXI     *+1,2,-1       CLEAR FIRST WORD OF RIGHT BUFFER          F6B08300
       STZ*    RGSTR                                                    F6B08310
       CAL    ORGTIV          INITIALIZE TEST FOR TABLE OVERLAP         F6B08320
       STA     BILOC                                                    F6B08330
       TXL     EFN02+1,1,0    IS EIF TABLE EMPTY                        F6B08340
 EFN01 LDQ     **,1           GET NEXT EFN,,LOC FROM EIF TABLE          F6B08350
       LGL     18                                                       F6B08360
       STA     ADDRS          SAVE BINARY LOCATION                      F6B08370
       ZAC                                                              F6B08380
       LGL     18             GET BINARY EFN                            F6B08390
       LDQ     BLNKS          PICK UP FOLLOWING BLANKS                  F6B08400
       TSX     SAPDC,4       *CONVERT TO DECIMAL                        F6B08410
       XCL                                                              F6B08420
       SLW    XSYMBL          SAVE BCD EFN                              F6B08430
       CLA     ADDRS          GET LOCATION OF EFN                       F6B08440
       TZE     EFN02          IS THIS NONEXECUTABLE STATEMENT NUMBER    F6B08450
       ADD     D(4)           NO, SET DECREMENT 4 (EFN)                 F6B08460
       TSX     SRSYM,4       *ENTER INTO SYMBOL TABLE                   F6B08470
       TXI     ENSYM,2,-1    *NOT FOUND, CONTINUE                       F6B08480
 EFN02 TIX     EFN01,1,1      IS EIF TABLE EXHAUSTED                    F6B08490
       LDC    XTIVTL,1        YES, GET TIV TABLE COUNT                  F6B08500
       TXI     *+1,1,-1                                                 F6B08510
       TSX     TOVLP,4       *CHECK FOR TABLE OVERLAP                   F6B08520
       PXA     ,1             INITIALIZE ORIGIN AT TOP OF TIV TABLE     F6B08530
       ADM    ORGTIV                                                    F6B08540
       STA     TIV01                                                    F6B08550
       TXI     *+1,1,-1                                                 F6B08560
 TIV01 LDQ     **,1           GET NEXT TIV ENTRY                        F6B08570
       ZAC                                                              F6B08580
       LGL     4              GET INTERNAL SYMBOL NAME                  F6B08590
       PAX     ,4                                                       F6B08600
       TRA     TIV02,4                                                  F6B08610
       TRA     TOVL1         *SYMBOL IS PROGRAM COUNTER                 F6B08620
       TRA     TIV03          E)                                        F6B08630
       TRA     TIV03          D)                                        F6B08640
       TRA     TIV02+1        C)N  INDEX REGISTER ERASABLE              F6B08650
       TRA     TIV02+1        B)   HOLLERITH ARGUMENT                   F6B08660
       TRA     TIV03          A)                                        F6B08670
       TRA     TIV03          9)                                        F6B08680
       TRA     TIV02+1        8)N  FORMAT                               F6B08690
       TRA     TIV02+1        7)N  SUBROUTINE INDEX REGISTER ERASABLE   F6B08700
       TRA     TIV02+1        6)                                        F6B08710
       TRA     TIV03          5)                                        F6B08720
       TRA     TIV02+1        4)N  SUBROUTINE ARGUMENT ERASABLE         F6B08730
       TRA     TIV02+1        3)   FLOATING POINT CONSTANT              F6B08740
       TRA     TIV02+1        2)   FIXED POINT CONSTANT                 F6B08750
       TRA     TIV02+1        1)N  ARITHMETIC ERASABLE                  F6B08760
 TIV02 TRA     TIV03          0)                                        F6B08770
       TSX     TIVSM+1,4     *CONVERT TO PSEUDOSYMBOL                   F6B08780
       XCL                                                              F6B08790
       STQ    XSYMBL          SAVE BCD LISTING SYMBOL                   F6B08800
       CLA*    TIV01          GET LOCATION OF SYMBOL                    F6B08810
       STA     ADDRS          SAVE BINARY LOCATION                      F6B08820
       CLA     ADDRS                                                    F6B08830
       CAS     ADMSK          IS THIS 4)                                F6B08832
       TSX    XERR00,4       *IMPOSSIBLE PATH OF FLOW                   F6B08834
       TRA     TIV03          YES, IGNORE IT                            F6B08836
       ADD     D(3)           SET DECREMENT 3 (INTERNAL VARIABLE)       F6B08840
       TSX     SRSYM,4       *ENTER INTO SYMBOL TABLE                   F6B08850
       TXI     ENSYM,2,-1    *NOT FOUND, CONTINUE                       F6B08860
 TIV03 TIX     TIV01,1,1      IS TIV TABLE EXHAUSTED                    F6B08870
       LXD    XTEVTL,1        YES, GET TEV TABLE COUNT                  F6B08880
       TXL     TEV02+1,1,0    IS TEV TABLE EMPTY                        F6B08890
       TSX     TOVLP,4       *CHECK FOR TABLE OVERLAP                   F6B08900
       CLA    ORGTEV          INITIALIZE ORIGIN FOR TEV TABLE           F6B08910
       STA     TEV01                                                    F6B08920
 TEV01 LDQ     **,1           GET NEXT ENTRY IN TEV                     F6B08930
       STQ    XSYMBL          SAVE BCD VARIABLE NAME                    F6B08940
       PXA     ,1             GET RELATIVE LOCATION IN TEV              F6B08950
       ADD    XTEVBS          ADD LOCATION OF BEGINNING OF VARIABLES    F6B08960
       STA     ADDRS          SAVE BINARY LOCATION                      F6B08970
       CLA     ADDRS                                                    F6B08980
       ADD     D(2)           SET DECREMENT 2 (EXTERNAL VARIABLE)       F6B08990
       TSX     SRSYM,4       *ENTER INTO SYMBOL TABLE                   F6B09000
       TXI     ENSYM,2,-1    *NOT FOUND, CONTINUE                       F6B09010
 TEV02 TIX     TEV01,1,1      IS TEV TABLE EXHAUSTED                    F6B09020
       LXD    XDEVTL,1        YES, GET DEV TABLE COUNT                  F6B09030
       TSX     TOVLP,4       *CHECK FOR TABLE OVERLAP                   F6B09040
       CLA    ORGDEA          INITIALIZE ORIGINS FOR DEA AND DEV TABLES F6B09050
       STA     DEV01+2                                                  F6B09060
       CLA    ORGDEV                                                    F6B09070
       STA     DEV01                                                    F6B09080
 DEV01 CAL     **,1           GET NEXT DEV ENTRY                        F6B09090
       SLW    XSYMBL          SAVE BCD VARIABLE NAME                    F6B09100
       CLA     **,1           GET NEXT DEA ENTRY                        F6B09110
       STA     ADDRS          SAVE BINARY LOCATION                      F6B09120
       ANA     T(7)           ISOLATE FLAG                              F6B09130
       TNZ     DEV02          IS VARIABLE USED IN SOURCE PROGRAM        F6B09140
       CLA     ADDRS          YES, GET LOCATION OF VARIABLE             F6B09150
       CAS    XPCD8R          IS VARIABLE IN COMMON                     F6B09160
       TRA     *+3            YES, DECREMENT IS 0 (COMMON VARIABLE)     F6B09170
       TRA     *+1            NO                                        F6B09180
       ADD     D(2)           NO, SET DECREMENT 2 (UNCOMMON VARIABLE)   F6B09190
       TSX     SRSYM,4       *ENTER INTO SYMBOL TABLE                   F6B09200
       TXI     ENSYM,2,-1    *NOT FOUND, CONTINUE                       F6B09210
 DEV02 TIX     DEV01,1,1      IS DEV TABLE EXHAUSTED                    F6B09220
       REM                                                              F6B09230
       REM     PUNCH OUT SYMBOL TABLE                                   F6B09240
       CAL     P(6)           SET SYMBOL TABLE FLAG IN 9L PREFIX        F6B09250
       SLW     PCH9L                                                    F6B09260
       LDQ    XPCD7L          PICK UP SUBPROGRAM NAME                   F6B09270
       STQ     PCH8L          INSERT IN 8L                              F6B09280
       LDQ    XLABEL          PICK UP CARD LABEL                        F6B09290
       SLQ     STLBL          INSERT THREE CHARACTERS OF PROGRAM NAME   F6B09300
       LDQ     STLBL          WITH THREE CHARACTERS SYM                 F6B09310
       TSX     IDENT,4       *CREATE CARD LABEL                         F6B09320
       LDC     SYMTL,1        LOAD SYMBOL TABLE COUNT                   F6B09330
       TXI     *+1,1,-1                                                 F6B09340
       PXA     ,1             COMPUTE ORIGIN AT END OF LEFT BUFFER      F6B09350
       ADM     RGSTL                                                    F6B09360
       STA     PST01                                                    F6B09370
       PXA     ,1             COMPUTE ORIGIN AT END OF RIGHT BUFFER     F6B09380
       ADM     RGSTR                                                    F6B09390
       STA     PST01+2                                                  F6B09400
       TXI     FFFFF,1,-1                                           (20)F6B09410
       SXD     PCH8R,1        SET 8R DECREMENT TO TABLE LENGTH          F6B09420
       AXT     20,2           SET FIRST CARD COUNT TO 10 SYMBOLS        F6B09430
 PST01 CAL     **,1           MOVE NEXT LEFT INTO PUNCH BUFFER          F6B09440
       SLW     PCH9L+24,2                                               F6B09450
       CLA     **,1           MOVE NEXT RIGHT INTO PUNCH BUFFER         F6B09460
       SLW     PCH9L+25,2                                               F6B09470
       TNX     PST02,1,1      IS SYMBOL TABLE EXHAUSTED                 F6B09480
       TIX     PST01,2,2      NO, IS CARD FULL                          F6B09490
       AXT     22,2           YES, SET CARD WORD COUNT TO 22            F6B09500
       SXA     *+3,1          SAVE SYMBOL TABLE COUNT                   F6B09510
       TSX     PCHPC,4       *PUNCH OUT THIS CARD                       F6B09520
       SXA     PCH9L,0        RESET 9L ADDRESS TO ZERO                  F6B09530
       AXT     **,1           RELOAD SYMBOL TABLE COUNT                 F6B09540
       TXI     PST01,2,2      BUMP CARD WORD COUNT TO ELEVEN SYMBOLS    F6B09550
 PST02 SXD     *+2,2          COMPUTE PARTIAL CARD WORD COUNT           F6B09560
       AXT     24,2                                                     F6B09570
       TIX     *+1,2,**                                                 F6B09580
       TSX     PCHPC,4       *PUNCH OUT PARTIAL CARD                    F6B09590
 PST05 TSX     WRITE,4       *WRITE TABLE IN MESSAGE                    F6B09600
       IOCT    TABIN,,15                                               $F6B09610
       REM                                                              F6B09620
       REM     PUNCH OUT PROGRAM CARD                                   F6B09630
       LDQ    XLABEL          PICK UP CARD LABEL                        F6B09640
       TSX     IDENT,4       *CREATE CARD LABEL                         F6B09650
       CAL     P(4)           SET PROGRAM CARD FLAG IN 9L PREFIX        F6B09660
       SLW     PCH9L                                                    F6B09670
       AXT     4,3            PREPARE TO MOVE PROGRAM CARD TO           F6B09680
       CAL    XPCD7R+1,1      PUNCH BUFFER                              F6B09690
       SLW     PCH9L+6,1                                                F6B09700
       TIX     *-2,1,1        IS CARD COMPLETE                          F6B09710
       TSX     PCHPC,4       *YES, PUNCH OUT PROGRAM CARD               F6B09720
       TRA     PROL0                                                    F6B09730
       REM                                                              F6B09740
       TTL     0                                                        F6B09741
       REM                                                              F6B09750
       REM     I/O DATA (NOT REQUIRED DURING OR AFTER PASS OVER CITS)   F6B09760
       REM                                                              F6B09770
 ZEROB DUP     1,24                                                     F6B09780
       PZE                                                              F6B09790
 DOHED BCI     2,0                                                      F6B09800
       BCI     2,  DEC   OCT                                            F6B09810
       DUP     2,4                                                      F6B09820
       BCI     2,                                                       F6B09830
       BCI     2,  DEC   OCT                                            F6B09840
 ELHED BCI     2,0                                                      F6B09850
       BCI     2,  EFN   LOC                                            F6B09860
       DUP     2,4                                                      F6B09870
       BCI     2,                                                       F6B09880
       BCI     2,  EFN   LOC                                            F6B09890
 EIHED BCI     1,0                                                      F6B09900
       BCI     3,  EFN   IFN   LOC                                      F6B09910
       DUP     2,4                                                      F6B09920
       BCI     1,                                                       F6B09930
       BCI     3,  EFN   IFN   LOC                                      F6B09940
 LSTIT BCI     6,0                                                      F6B09941
       BCI     9, ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY   F6B09941
 TABIN BCI     6,0                                                      F6B09941
       BCI     9,  SYMBOL TABLE PRECEDES PROGRAM CARD IN BINARY DECK    F6B09941
 LSTRM BCI     4,0     ***LINE OMITTED***                               F6B09941
 LIBLB BCI     1,LIBE                                                   F6B09941
 LIBER BCI     3,ENDFILOVRFLOORDER                                      F6B09941
 LIBRM BCI     6,0     LIBRARY SEARCH DISCONTINUED.                     F6B09941
 EIFOT BCI     1,0                                                      F6B09941
       BCI     9,  MAPPING OF EXTERNAL FORMULA NUMBERS (AND SYMBOL TABL F6B09941
       BCI     9,E IF REQUESTED) DELETED DUE TO CORE OVERFLOW OR TAPE E F6B09941
       BCI     1,RROR.                                                  F6B09941
 TABOT BCI     5,0                                                      F6B09941
       BCI     9,     SYMBOL TABLE DELETED DUE TO CORE OVERFLOW OR MACH F6B09941
       BCI     2,INE ERROR                                              F6B09941
 FDTIT BCI     5,0                                                      F6B0994K
       BCI     9,   NAMES OF AND ENTRY POINTS TO SUBROUTINES OUTPUT FRO F6B0994M
       BCI     2,M LIBRARY                                              F6B0994O
 FOTIT BCI     6,0                                                      F6B0994P
       BCI     9,NAMES AND LOCATIONS OF ARITHMETIC STATEMENT FUNCTIONS  F6B0994Q
 EITIT BCI     3,0                                                      F6B0994R
       BCI     9, EXTERNAL FORMULA NUMBERS WITH CORRESPONDING INTERNAL  F6B0994S
       BCI     6,FORMULA NUMBERS AND OCTAL LOCATIONS                    F6B0994T
 SNTIT BCI     8,0                                                      F6B09950
       BCI     5, STORAGE NOT USED BY PROGRAM                           F6B09960
 CMTIT BCI     5,0                                                      F6B09970
       BCI     9,  STORAGE LOCATIONS FOR VARIABLES APPEARING IN COMMON  F6B09980
       BCI     2,STATEMENTS                                             F6B09990
 DETIT BCI     3,0                                                      F6B10000
       BCI     9,    STORAGE LOCATIONS FOR VARIABLES APPEARING IN DIMEN F6B10010
       BCI     6,SION AND EQUIVALENCE STATEMENTS                        F6B10020
 TETIT BCI     2,0                                                      F6B10030
       BCI     9,    STORAGE LOCATIONS FOR VARIABLES NOT APPEARING IN C F6B10040
       BCI     8,OMMON, DIMENSION, OR EQUIVALENCE STATEMENTS            F6B10050
 FMTIT BCI     5,0                                                      F6B10060
       BCI     9,    SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT ST F6B10070
       BCI     2,ATEMENTS                                               F6B10080
 TITIT BCI     5,0                                                      F6B10090
       BCI     9,   LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE F6B10100
       BCI     2, PROGRAM                                               F6B10110
 TVTIT BCI     7,0                                                      F6B10120
       BCI     7,  LOCATIONS OF NAMES IN TRANSFER VECTOR                F6B10130
 PROLO MAX     *,ENDBF                                                  F6B10371
       REM                                                              F6B10400
       REM     END OF BCD LISTING OUTPUT BUFFER                         F6B10410
       REM                                                              F6B10420
       TTL CONTROL ROUTINES FOR SECOND CIT PASS                         F6B10421
       REM                                                              F6B10430
       REM     TRANSFER VECTOR, PROLOG AND INITIALIZATION DO NOT APPEAR F6B10440
       REM     ON TAPE 4. FOR CUSTOMER PATCHES, THE SL, OP, SA AND RA   F6B10450
       REM     CAN BE OBTAINED FROM THE CORRESPONDING CIT CELLS AT THE  F6B10460
       REM     PATCH SPACE RESERVED FOR CUSTOMERS IN SAPCV ROUTINE, Q.V.F6B10470
       REM                                                              F6B10480
       REM     CREATE TRANSFER VECTOR, PROLOG AND INITIALIZATION        F6B10490
       ORG     PROLO                                                    F6B10491
 PROL0 CAL     P(2)           SET RELOCATABLE CARD FLAG IN 9L PREFIX    F6B10500
       TRA     BBBBB          GO TO PATCH                              *F6B10510
       LXD    ORGCLO,1        LOAD COUNT OF NAMES IN TRANSFER VECTOR    F6B10520
       TXL     PROL3+1,1,0    IS TRANSFER VECTOR EMPTY                  F6B10530
       CAL     BCDOP          SET CIT OPCODE TO BCD                     F6B10540
       SLW     CITOP                                                    F6B10550
 PROL2 CAL*   ORGCLO          GET NEXT NAME IN CLOSUB                   F6B10560
       SLW     CITSL          IN CIT SYMBOLIC LOCATION                  F6B10570
       SLW     CITSA          IN CIT SYMBOLIC ADDRESS                   F6B10580
       TSX     CITCV,4       *COMPILE                   NAME BCD 1NAME  F6B10590
 PROL3 TIX     PROL2,1,1      IS TRANSFER VECTOR EXHAUSTED              F6B10600
       NZT    XPCD7L          YES, IS THIS SUBPROGRAM                   F6B10610
       TRA     PROL5+1        NO                                        F6B10620
       CAL     L(SD)          YES, SET FIRST PROLOG                     F6B10630
       SLW     CITSL          SYMBOLIC LOCATION TO $                    F6B10640
       CAL     PZEOP          SET CIT OPCODE TO PZE                     F6B10650
       SLW     CITOP                                                    F6B10660
       STZ     CITSA          RESET CIT SYMBOLIC ADDRESS                F6B10670
       TSX     CITCV,4       *COMPILE                      $ PZE        F6B10680
       STZ     CITSL          RESET SUBSEQUENT SYMBOLIC LOCATION        F6B10690
       TSX     CITCV,4       *COMPILE                        PZE        F6B10700
       TSX     CITCV,4       *COMPILE                        PZE        F6B10710
       CAL     BCDOP          SET CIT OPCODE TO BCD                     F6B10720
       SLW     CITOP                                                    F6B10730
       CAL    XPCD7L          SET CIT SYMBOLIC ADDRESS                  F6B10740
       SLW     CITSA          TO SUBPROGRAM NAME                        F6B10750
       TSX     CITCV,4       *COMPILE                        BCD 1NAME  F6B10760
       CAL     SXDOP          SET CIT OPCODE TO SXD                     F6B10770
       SLW     CITOP                                                    F6B10780
       CAL     L(SD)          SET CIT SYMBOLIC ADDRESS TO $             F6B10790
       SLW     CITSA                                                    F6B10800
       AXT     3,1            PREPARE TO WRITE 3 INSTRUCTIONS           F6B10810
       CAL     PADTG+1,1      GET PROPER TAG,,RA                        F6B10820
       SLW     CITRA                                                    F6B10830
       TSX     CITCV,4       *COMPILE                        SXD $+N,T  F6B10840
       TIX     *-3,1,1        ARE THREE INSTRUCTIONS COMPILED           F6B10850
       LXD    ORGSUB,1        YES, LOAD COUNT OF INITIALIZATION TABLE   F6B10860
       TXL     PROL5+1,1,0    IS INITIALIZATION TABLE EMPTY             F6B10870
       SXD     PROL5,1        NO, SET END OF COMPILE LOOP TEST          F6B10880
       CAL    XSLINT          SET INITIAL SYMBOLIC LOCATION             F6B10890
       SLW     PROSM                                                    F6B10900
       AXT     1,1                                                      F6B10910
 PROL4 CAL*   ORGSUB          GET NEXT INITIALIZATION INSTRUCTION       F6B10920
       STA     ADDRS          SAVE N                                    F6B10930
       ANA     OPMSK          MASK IN OPCODE                            F6B10940
       SLW     CITOP          INSERT IN CIT OPCODE                      F6B10950
       AXT     3,4            PREPARE TO TEST OPCODE                    F6B10960
       LAS     PROOP+1,4      IS OPCODE CLA, ADD, OR STA                F6B10970
       TRA     *+2            NO                                        F6B10980
       TRA     *+3            YES                                       F6B10990
       TIX     *-3,4,1        IS LIST EXHAUSTED                         F6B11000
       TSX    XERR00,4       *YES, OPCODE NOT CLA, ADD, OR STA          F6B11010
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B11020
*              SECTION 6 HAS MADE UP A TABLE OF ARGUMENT INITIALIZATION F6B11030
*              INFORMATION AT ROUTINE INIT1, OF THE FORM CLA L, ADD M,  F6B11040
*              STA N. THE FIRST 18 BITS OF THE ENTRY AT ORGSUB,2 IS NOT F6B11050
*              OF THE FORM OF BCD CHARACTERS CLA, ADD, OR STA.          F6B11060
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B11070
       CLA     ADDRS          PICK UP N                                 F6B11080
       ALS     18             FOR RA                                    F6B11090
       TXL     *+2,4,2        IS OPCODE CLA                             F6B11100
       ADD     L(4)           YES, APPEND TAG                           F6B11110
       STO     CITRA                                                    F6B11120
       CLA     PROSM+1,4      GET PROPER SYMBOL ( 0, 9), A1 )           F6B11130
       SLW     CITSA          FOR CIT SYMBOLIC ADDRESS                  F6B11140
       TSX     CITCV,4       *COMPILE   CLA N,4 , ADD 9)+N , STA A1+N   F6B11150
       TXI     *+1,1,1        BUMP INITIALIZATION TABLE COUNT           F6B11160
 PROL5 TXL     PROL4,1,**     IS INITIALIZATION TABLE EXHAUSTED         F6B11170
       REM                                                              F6B11180
       REM     PASS OVER CIT FILE                                       F6B11190
       ZAC                    NOP THE PAGE LINE                         F6B11191
       STT     HDPCT          COUNT RESET FOR MACHINE LANGUAGE LISTING. F6B11192
       TSX     RDCIT,4       *GET NEXT CIT                              F6B11200
       TRA     *+3            WAS END OF FILE SENSED                    F6B11210
       TSX     CITCV,4       *NO, COMPILE NEXT INSTRUCTION              F6B11220
       TRA     *-3                                                      F6B11230
       REM                                                              F6B11240
       REM     END OF CIT FILE SENSED                                   F6B11250
       TSX    (TAPE),4       *REWIND SCRATCH TAPE                       F6B11260
       PZE     REWND,,(SKBP)                                            F6B11270
       PZE     CLABL,,COTTAP                                            F6B11280
       LXA     SAP14,1        LOAD PAGE IMAGE ENTRY COUNT               F6B11290
       TXL     EOF0X,1,0      IS BUFFER EMPTY                          $F6B11300
       CAL     WRTIO          SET INITIAL ADDRESS OF PAGE IMAGE REMAINS F6B11302
       STA     LOC01                                                    F6B11303
       STA     LOC02                                                    F6B11304
       STA     REGUL+2                                                  F6B11304
       STA     EOF02+1                                                  F6B11305
 LSTHD TXH     *+2,1,**       HAS PAGE HEADING ALREADY BEEN WRITTEN     F6B11306
       TSX     HEDPG,4       *NO, PRINT PAGE HEADING                    F6B11310
 EOF00 TNX     EOF01,1,**     ARE TWO COLUMNS FULL                      F6B11312
       SXA     *+1,1          COMPUTE NUMBER                            F6B11313
       AXC     **,1           OF LINES                                  F6B11313
       TXI     *+1,1,**       REMAINING                                 F6B11313
       TSX     LISTG,4       *WRITE TWOS REMAINING.                     F6B11314
 LOC01 IOCT    **,,12                                                  $F6B11316
       TRA     EOF0X                                                    F6B11317
 EOF01 TNX     DDDDD,1,**     MORE THAN TWO COLUMNS FILLED             $F6B11318
       NZT    XSWCH8          IS EXTENDED LISTING REQUESTED            $F6B11320
       TRA     EEEEE          NO, SEE IF NARROW PAGE REQUESTED         $F6B11330
       SXA     *+1,1                                                   $F6B11340
 REMAN AXC     **,1                                                    $F6B11350
       TXI     EEEEE+3,1,**   SEE IF LAST PAGE ALREADY PRINTED         $F6B11360
       TSX     LISTG,4                                                 $F6B11370
LOC02  IOCT    **,,6                                                   $F6B11380
       TRA     EOF0X                                                   $F6B11390
 REGUL SXA     REMAN,1                                                 $F6B11400
       TSX     LISTG,4                                                 $F6B11410
       IOCT    **,,12                                                  $F6B11420
       CAL     LIST0+2                                                 $F6B11430
       STA     LOC02                                                   $F6B11440
       TRA     REMAN                                                   $F6B11450
 EOF02 TSX     LISTG,4        WRITE PARTIAL COLUMN                     $F6B11460
       IOCT    **,,6                                                   $F6B11470
 EOF0X TSX     WFBLK,4        WRITE FINAL BLOCK OF LISTING             $F6B11480
       NZT    XSWCH3          IS ONLINE PRINT REQUESTED                 F6B11580
       TRA     *+3            NO                                        F6B11590
       TSX    (PRNT),4       *YES, EJECT PAGE ON LINE                   F6B11600
 EJCIO IOCD    EJECT,,3                                                 F6B11610
       LXA     PUNCH+2,2      GET PARTIAL WORD COUNT                    F6B11620
       SXD     *+2,2          COMPUTE WORD COUNT FOR FINAL CARD         F6B11630
       AXT     20,2                                                     F6B11640
       TNX     *+2,2,**       IS BUFFER EMPTY                           F6B11650
       TSX     PCHLC,4       *NO, PUNCH OUT FINAL CARD                  F6B11660
       NZT    XPCD7L          IS THIS A MAIN PROGRAM                    F6B11661
       NZT    XSWCH9          YES, ARE OFF-LINE CARDS ROW BINARY        F6B11662
       TRA     *+2            EITHER NOT A MAIN PROGRAM OR NOT ROW BIN. F6B11664
       TSX     PCHTC,4       *ROW BINARY MAIN PROGRAM, PUNCH TRANSFER CDF6B11666
       TSX    (TAPE),4       *WRITE END OF SINGLE COMP MACHINE LANG LISTF6B11770
       PZE     ,,(WEFP)                                                 F6B11780
       PZE     ,,SLSTAP                                                 F6B11790
       MZE     *+1                                                      F6B11800
       TSX    (TAPE),4       *WRITE END OF SINGLE COMPILE BINARY TAPE   F6B11810
       PZE     ,,(WEFP)                                                 F6B11820
       PZE     ,,SBNTAP                                                 F6B11830
       MZE     *+1                                                      F6B11840
       TSX    (TAPE),4       *REWIND SINGLE COMPILE LISTING TAPE        F6B11850
 RDNP2 PZE     REWND,,(SKBP)                                            F6B11860
       PZE     ,,SLSTAP                                                 F6B11870
       TSX    (TAPE),4       *REWIND SINGLE COMPILE BINARY TAPE         F6B11880
       PZE     REWND,,(SKBP)                                            F6B11890
       PZE     ,,SBNTAP                                                 F6B11900
       ZET    XSWCH1          ARE ONLINE CARDS REQUESTED                F6B11901
       TRA     EOF05+3        NO                                        F6B11902
       STL*    EOF04+3        YES, DELETE POSSIBLE HANGING END FILE     F6B11903
       REM     OUTPUT CARDS ON LINE                                     F6B11904
 EOF03 AXT    BOTTAB-24,2     RESET ORIGIN OF OUTPUT BUFFER             F6B11905
       TXI     *+1,2,24       BUMP TO ORIGIN OF NEXT CARD               F6B11906
       SXA     *+5,2                                                    F6B11907
       TSX    (TAPE),4       *READ PUNCH TAPE BINARY CARD IMAGE         F6B11908
       PZE     *+3,,(RBEP)                                              F6B11909
       PZE     ,,SBNTAP                                                 F6B11910
       PZE     EOF05          ALL DONE IN CASE OF ERROR                 F6B11911
       IORT    **,,24         (NOP)                                     F6B11912
       NZT*    EOF04+3        IS THIS END OF INTERMEDIATE TAPE          F6B11913
       TXI     *+4,2,-48      YES, BUMP COUNT TO NUMBER OF CARDS READ   F6B11914
       TXL     EOF03+1,2,TOPTAB-25  NO, IS BUFFER FULL                  F6B11915
       TSX    (TAPE),4       *YES, CHECK LAST CARD READ                 F6B11916
       PZE    SBNTAP,,(CHKU)                                            F6B11917
       SXD     EOF04+2,2      SET END OF BUFFER TEST                    F6B11918
       AXT     BOTTAB,2       RESET ORIGIN OF OUTPUT BUFFER             F6B11919
       SXA     *+2,2          TO BOTTOM OF TABLE SPACE                  F6B11920
       TSX    (PNCH),4       *PUNCH CARD                                F6B11921
 EOF04 MZE     **,,24         (RESET TO PZE FOR ROW BINARY)             F6B11922
       TXI     *+1,2,24       BUMP TO ORIGIN OF NEXT CARD               F6B11923
       TXL     *-4,2,**       IS BUFFER EXHAUSTED                       F6B11924
       ZET     (SCHU)+SBNTAP  YES, WAS END OF PUNCH TAPE SENSED         F6B11926
       TRA     EOF03          NO                                        F6B11927
       REM     END OF BINARY INTERMEDIATE TAPE SENSED                   F6B11928
       NZT    XSWCH4          IS ROW BINARY REQUESTED                   F6B11929
       ZET    XPCD7L          YES, IS THIS A MAIN PROGRAM               F6B11930
       TRA     *+3            NO                                        F6B11931
       TSX    (PNCH),4       *YES, PUNCH ROW BINARY TRANSFER CARD       F6B11932
       PZE     P(4),,1                                                  F6B11933
       TSX    (PNCH),4       *PUNCH TWO BLANK CARDS                     F6B11934
       PZE     L(0),,1                                                  F6B11935
       TSX    (PNCH),4       *                                          F6B11936
       PZE     L(0),,1                                                  F6B11937
 EOF05 TSX    (TAPE),4       *REWIND SINGLE COMPILE BINARY TAPE         F6B11938
       PZE     REWND,,(SKBP)                                            F6B11939
       PZE     ,,SBNTAP                                                 F6B11940
       DCT                    TURN OFF INDICATOR, WE ARE ALL DULY AMUSEDF6B11941
       TRA     *+1                                                      F6B11942
       LDI*    ORGFLG        LOAD FLAGS                                $F6B12030
       RFT     100000         IS THIS JOB READY TO EXECUTE              F6B12040
       TRA     *+6           YES                                       $F6B12050
       CLA     SCLBL         SET EXIT TO SCAN.                         $F6B12053
       STO     EXLBL                                                   $F6B12057
       TSX     SYSPS,4       *NO, BACKSPACE TO SCAN                     F6B12060
       PZE     SCNBS                                                    F6B12070
       TRA     *+6                                                     $F6B12090
       CLA     DBGLB         SET EXIT TO DEBUG.                        $F6B12093
       STO     EXLBL                                                   $F6B12097
       TSX    (TAPE),4       *EJECT PAGE OFF LINE                       F6B12100
       PZE     EJTIO,,(WDNP)                                           $F6B12110
       PZE     ,,MLSTAP                                                 F6B12120
 EOF07 TXL     *+4,4,-1       IS EXECUTION DELETED                      F6B12130
       TSX    (TAPE),4       *YES, WRITE MESSAGE OFF LINE               F6B12140
       PZE     *+2,,(WDNP)                                              F6B12150
       PZE     ,,MLSTAP                                                 F6B12160
       IORT    DLXEM+5,,4     (NOP)                                     F6B12170
       TSX    (TAPE),4       *CLOSE OUT MONITOR BINARY TAPE             F6B12180
       PZE    MBNTAP,,(CHKU)                                            F6B12190
       TSX    (TAPE),4       *CLOSE OUT MONITOR LISTING TAPE            F6B12200
       PZE    MLSTAP,,(CHKU)                                            F6B12210
       TSX     (LOAD),4,1    *CALL DEBUG OR SCAN.                      $F6B12220
 EXLBL PZE                   SET WITH LABEL NEEDED FOR DISKS.          $F6B12230
 DBGLB BCI     1,9F0700                                                $F6B12231
 SCLBL BCI     1,9F0600                                                $F6B12232
       REM                                                              F6B12233
       REM END OF CONTROL ROUTINES                                      F6B12234
       EJECT                                                            F6B12235
       TTL SUBROUTINES RELEVANT TO LIBRARY SEARCH                       F6B12236
       REM                                                              F6B12240
       REM                                                              F6B12250
       REM     READ NEXT LIBRARY CARD                                   F6B12260
 RDLBC AXT     22,2           PREPARE TO CLEAR CARD BUFFER              F6B12270
       STZ     PCH8L+22,2                                               F6B12280
       TIX     *-1,2,1                                                  F6B12290
       AXT     PCH8L,2        SET LOAD POINT TO COPY 8 ROW              F6B12300
       REM     ENTRY POINT FOR CONTINUATION PROGRAM CARD                F6B12310
 RDLCC SXA     RDLBX,4        SAVE CALLING LINKAGE                      F6B12320
       SXA     CTCLD,2        SAVE CARD LOAD POINT                     $F6B12330
       TXI     *+1,2,22      INITIALIZE FOR LOAD POINT                 $F6B12331
       SXA     STINB+1,2                                               $F6B12332
RDLCT  TXL     LIBOV,2,**    *WILL NEXT CARD OVERLAP CODING            $F6B12333
LCTRA  TRA     *+1           IF RECORD READ PREVIOUSLY, GO TO MFTBF    $F6B12334
 CTCLA AXT     **,2           WORDS REMAINING IN INPUT BUFFER          $F6B12340
       TXL     READ,2,0      IF NO WORDS LEFT, READ NEXT RECORD        $F6B12341
MOVRC  AXT     22,4          MOVE A RECORD FROM BLOCK                  $F6B12342
       CAL     BUFFR+BLFAC*24,2                                        $F6B12343
       ANA     MASK7         MASK OUT COLUMN BINARY BITS               $F6B12344
       SLW     PCH9L                                                   $F6B12350
       TXI     *+1,2,-1                                                $F6B12351
       CLA     BUFFR+BLFAC*24,2                                        $F6B12352
       STO     PCH9L+1                                                 $F6B12353
       TXI     *+1,2,-1                                                $F6B12354
       REM                                                             $F6B12360
 STINB CLA     BUFFR+BLFAC*24,2                                        $F6B12361
       STO     **,4                                                    $F6B12362
       TIX     STINB-1,4,1                                             $F6B12363
       TXI     *+1,2,-1       TO NEXT CARD                             $F6B12364
       SXA     CTCLA,2       SAVE INPUT WORD COUNT                  (31)F6B12370
CTCLD  AXT     **,2          LOAD POINT FOR NEXT CARD               (31)F6B12371
CLPNC  AXT     LCTRA+1,4     RESTORE TRA *+1 AT LCTRA               (31)F6B12372
       SXA     LCTRA,4                                              (31)F6B12380
       LXD     PCH9L,4       COMPUTE LOAD POINT FOR NEXT CARD       (31)F6B12390
       SXD     *+1,4                                                    F6B12400
       TXI     *+1,2,**                                                 F6B12410
 RDLBX AXT     **,4           RELOAD CALLING LINKAGE                    F6B12420
       TXL     *+2,2,LIBS1-24 WILL NEXT CARD OVERLAP UPPER MEMORY      $F6B12450
       SXD     RDLCT,4        YES, SET SWITCH                           F6B12460
       CLA     PCH9L          PICK UP 9 LEFT                            F6B12470
       TRA     2,4                                                     $F6B12471
       REM                                                             $F6B12472
READ   TSX     (TAPE),4      READ IN BLOCKED RECORD                    $F6B12473
       PZE     RDBLK,,(RBEC)                                           $F6B12474
       PZE     (LIBT),,-1                                              $F6B12475
       PZE     LIBRR                                                   $F6B12476
       XEC     RDLBX                                                   $F6B12477
       AXT     BLFAC*24,2     RE-INITIALIZE BLOCK WORD COUNT           $F6B12478
 RDLB1 NZT     **             WAS END OF FILE SENSED                   $F6B12479
       TRA     1,4            YES                                      $F6B1247A
       TRA     MOVRC                                                   $F6B12480
MFTBF  AXT     24,4                                                    $F6B12481
       CLA     TBUFF+24,4                                              $F6B12482
       STO     PCH9L+24,4                                              $F6B12483
       TIX     *-2,4,1                                                 $F6B12484
       TRA     CLPNC                                                   $F6B12485
 BLFAC EQU     12             LIBRARY BLOCKING FACTOR                  $F6B12486
 RDBLK IOCPN   *,,3                                                    $F6B12487
       IOCT    BUFFR,,BLFAC*24                                         $F6B12488
MASK7  OCT     777277777777                                            $F6B12489
       REM                                                              F6B12490
       REM     SEARCH LOST LISTS FOR ENTRY POINT NAME                   F6B12500
 LSRLS AXT     **,1           LOAD CURRENT TRANSFER VECTOR COUNT        F6B12510
       TXL     LSRL1+3,1,0    IS TRANSFER VECTOR EMPTY                  F6B12520
       SXA     LSRLX+1,4      NO, SAVE CALLING LINKAGE                  F6B12530
       SXA     LSRLX,2        SAVE CARD COUNT                           F6B12540
       TSX    XSRDEV,4       *IS ENTRY POINT NAME IN DEV                F6B12550
       TRA     LSRL1+1        NO                                        F6B12560
       PZE                    NOT USED                                  F6B12570
       ANA     P(1)           YES, IS IT REQUIRED BY SOURCE PROGRAM     F6B12580
       TZE     LSRL1          NO                                        F6B12590
       TIF     *+5            YES, SHOULD NAME BE DELETED               F6B12600
       PXD     ,0             YES, RESET TRANSFER VECTOR FLAG           F6B12610
       STP*   ORGDEA                                                    F6B12620
       TXI     *+1,1,-1       BUMP TRANSFER VECTOR COUNT                F6B12630
       SXA     LSRLS,1                                                  F6B12640
 LSRLX AXT     **,2           RELOAD CARD COUNT                         F6B12650
       AXT     **,4           RELOAD CALLING LINKAGE                    F6B12660
       LNT     1              SHOULD NAME BE ADDED TO FOUND LIST        F6B12670
       TRA     3,4            NO                                        F6B12680
       CAL    XSYMBL          YES, PICK UP NAME AGAIN                   F6B12690
       TRA     LENFD                                                    F6B12700
 LSRL1 CAL    XSYMBL          PICK UP NAME AGAIN                        F6B12710
       LXA     LSRLX,2        RELOAD CARD COUNT                         F6B12720
       LXA     LSRLX+1,4      RELOAD CALLING LINKAGE                    F6B12730
       LXA     LENSL,1        LOAD SECONDARY LOOKFOR LIST COUNT         F6B12740
       TXL     LSRL2,1,0      IS SECONDARY LOOKFOR LIST EMPTY           F6B12750
       SXD     LSRL3+2,1      NO, SET END OF MOVE LOOP TEST             F6B12760
       LAS*    RGSLS          IS ENTRY POINT ON SECONDARY LOOKFOR LIST  F6B12770
       TRA     *+2            NO                                        F6B12780
       TXI     LSRL3,1,1      YES, GO DELETE NAME                       F6B12790
       TIX     *-3,1,1        IS SECONDARY LOOKFOR LIST EXHAUSTED       F6B12800
 LSRL2 TRA     1,4            YES                                       F6B12810
       REM     OPTIONAL SUBROUTINE TO SUBSTITUTE EXEM FOR EXE           F6B12811
 EXEMQ LAS     EXENM          IS NAME EXE                               F6B12811
       TRA     1,4            NO                                        F6B12812
       ZET    XSWCH9          YES, IS OFF LINE OUTPUT COLUMN BINARY     F6B12813
       TRA     1,4            NO                                        F6B12814
       NZT    XSWCH1          ARE ON-LINE CARDS REQUESTED               F6B12815
       ZET    XSWCH4          YES, ARE THEY ROW BINARY                  F6B12816
       CAL     EXEMN          NO, SUBSTITUTE EXEM FOR EXE               F6B12817
       TRA     1,4            RETURN                                    F6B12818
       REM     DELETE NAME FROM SECONDARY LOOKFOR LIST                  F6B12820
 LSRL3 TIF     3,4            SHOULD NAME BE DELETED                    F6B12830
       SLW    XSYMBL          YES, SAVE NAME TO BE DELETED              F6B12840
       TXH     *+4,1,**       IS THIS FINAL NAME ON LOOKFOR LIST        F6B12850
       CAL*    RGSLS          NO, MOVE NEXT NAME UP (OFF THE TOP)       F6B12860
       SLW*    RGSLS+1                                                  F6B12870
       TXI     *-3,1,1        BUMP TO NEXT NAME                         F6B12880
       TXI     *+1,1,-2       BUMP SECONDARY LOOKFOR LIST COUNT DOWN ONEF6B12890
       SXA     LENSL,1                                                  F6B12900
       LXD     LNSFT,1        BUMP SECONDARY FOUND LIST OVERFLOW TEST   F6B12910
       TXI     *+1,1,-1                                                 F6B12920
       SXD     LNSFT,1                                                  F6B12930
       CAL    XSYMBL          PICK UP DELETED NAME AGAIN                F6B12940
       TRA     2,4            GO ADD NAME TO SECONDARY FOUND LIST       F6B12950
       REM                                                              F6B12960
       REM     SEARCH FOUND LISTS FOR ENTRY POINT NAME                  F6B12970
 LSRFD LXA     LENSF,1        LOAD SECONDARY FOUND LIST COUNT           F6B12980
       TXL     LSRF1,1,0      IS SECONDARY FOUND LIST EXHAUSTED         F6B12990
       LAS*    RGSFD          NO, IS ENTRY POINT ON SECONDARY FOUND LISTF6B13000
       TRA     *+2            NO                                        F6B13010
       TRA     2,4            YES                                       F6B13020
       TXI     *-4,1,1        BUMP SECONDARY FOUND LIST COUNT           F6B13030
 LSRF1 LXA     LENFD,1        LOAD FOUND LIST COUNT                     F6B13040
       TXL     LSRF2,1,0      IS FOUND LIST EXHAUSTED                   F6B13050
       LAS*   ORGCLO          NO, IS ENTRY POINT ON FOUND LIST          F6B13060
       TRA     *+2            NO                                        F6B13070
       TRA     2,4            YES                                       F6B13080
       TXI     *-4,1,1        BUMP LIST COUNT TO NEXT NAME              F6B13090
 LSRF2 TRA     1,4            NOT FOUND                                 F6B13100
       REM                                                              F6B13110
       REM     ADD NAME TO FOUND LIST                                   F6B13120
 LENFD AXT     **,1           LOAD CURRENT FOUND COUNT                  F6B13130
       SLW*   ORGCLO          ADD THIS NAME TO FOUND LIST               F6B13140
       TXI     *+1,1,-1       BUMP FOUND COUNT                          F6B13150
 LNFDT TXL     LIBOV,1,**    *DID PRIMARY FOUND LIST OVERLAP SEC FOUND  F6B13160
       SXA     LENFD,1        NO                                        F6B13170
       TRA     3,4                                                      F6B13180
       REM                                                              F6B13190
       REM     ADD NAMES ON SUBROUTINE PROGRAM CARD NOT REQUIRED BY     F6B13200
       REM     OBJECT PROGRAM TO SECONDARY FOUND LIST                   F6B13210
 LENSF AXT     **,1           LOAD CURRENT SECONDARY FOUND LIST COUNT   F6B13220
       SLW*    RGSFD          ADD THIS NAME TO SECONDARY FOUND LIST     F6B13230
       TXI     *+1,1,-1       BUMP SECONDARY FOUND LIST COUNT           F6B13240
 LNSFT TXL     LIBOV,1,**    *DID SECONDARY FOUND LIST OVERLAP LOST LISTF6B13250
       SXA     LENSF,1        NO                                        F6B13260
       LXD     LNSLT,1        BUMP SECONDARY LOST LIST OVERFLOW TEST    F6B13270
       TXI     *+1,1,-1                                                 F6B13280
       SXD     LNSLT,1                                                  F6B13290
       TRA     1,4                                                      F6B13300
       REM                                                              F6B13310
       REM     ADD NAMES ON SUBROUTINE TRANSFER VECTOR NOT ALREADY IN   F6B13320
       REM     DECK TO SECONDARY LOOKFOR LIST                           F6B13330
 LENSL AXT     **,1           LOAD CURRENT SECONDARY LOOKFOR LIST COUNT F6B13340
       TXI     *+1,1,1        BUMP SECONDARY LOOKFOR LIST COUNT         F6B13350
       SLW*    RGSLS          ADD THIS NAME TO SECONDARY LOOKFOR LIST   F6B13360
 LNSLT TXH     LIBOV,1,**    *DID SECONDARY LOST LIST OVERLAP FOUND LISTF6B13370
       SXA     LENSL,1        NO                                        F6B13380
       LXD     LNSFT,1        BUMP SECONDARY FOUND LIST OVERFLOW TEST   F6B13390
       TXI     *+1,1,1                                                  F6B13400
       SXD     LNSFT,1                                                  F6B13410
       SXD     LIBFG,4        SET FLAG FOR ENTRY POINT ADDED THIS PASS  F6B13420
       TRA     1,4                                                      F6B13430
       REM                                                              F6B13440
       REM     CHECK FOR TABLE OVERLAP                                  F6B13450
       REM     XR1 HAS COUNT OF TABLE TO BE ADDED                       F6B13460
 TOVLP SXD     *+2,1          COMPUTE LENGTH OF SYMBOL TABLE            F6B13470
       LDC     SYMTL,2        INCLUDING NUMBER OF ENTRIES MADE          F6B13480
       TXI     *+1,2,**       AND LENGTH OF TABLE TO BE ADDED           F6B13490
       SXA     ADDRS,2                                                  F6B13500
       CAL     RGSTR                                                    F6B13510
       ANA     ADMSK                                                    F6B13520
       ADD     ADDRS                                                    F6B13530
       CAS     BILOC          WILL IT OVERLAP UPPER TABLES              F6B13540
       NOP                    YES                                       F6B13550
       TRA     *+2            YES                                       F6B13560
       TRA     1,4            NO                                        F6B13570
 TOVL1 TSX     WRITE,4       *YES, WRITE TABLE OUT MESSAGE              F6B13580
       IOCT    TABOT,,16                                               $F6B13590
       TRA     PST05+2                                                  F6B13600
       REM                                                              F6B13610
       TTL SUBROUTINE RELEVANT TO SYMBOL TABLE                          F6B13611
       REM     FIND ORDERED POSITION FOR NEW ENTRY INTO SYMBOL TABLE    F6B13620
 SRSYM SXA     ENSYX,1        SAVE TABLE COUNT                          F6B13630
       SLW     ERASE          SAVE RIGHT ENTRY                          F6B13640
       LDQ     SYMTL          INITIALIZE BINARY SEARCH FOR SYMBOL TABLE F6B13650
       STQ    XBSRCH                                                    F6B13660
       LXA     SYMTS,1        LOAD HOP COUNT                            F6B13670
       LXD     SYMTS,2        LOAD BUFFER LENGTH                        F6B13680
 SRSY1 CLA*    RGSTR          GET NEXT RIGHT ENTRY                      F6B13690
       ANA     ADMSK          MASK IN LOCATION                          F6B13700
       CAS     ADDRS          IS IT SAME AS NEW ENTRY                   F6B13710
       TXI    XLOWER,1,-2     NO, BUMP HOP COUNT TO HALF TABLE LENGTH   F6B13720
       TXI     ENSYM,2,-1     YES, GO MAKE ENTRY                        F6B13730
       TXI    XRAISE,1,-2     NO, BUMP HOP COUNT TO HALF TABLE LENGTH   F6B13740
       REM     INSERT NEXT ENTRY INTO ORDERED POSITION IN SYMBOL TABLE  F6B13750
 ENSYM SXD     ENSY2,2        SET END OF MOVE LOOP TO THIS POSITION     F6B13760
       LXD     SYMTL,2        GET CURRENT BUFFER LENGTH                 F6B13770
       TXI     *+1,2,-1       BUMP FOR NEW ENTRY                        F6B13780
       SXD     SYMTL,2        AND SAVE                                  F6B13790
       TXI     ENSY1,2,1      BUMP BACK FOR PARAMETER UPDATE TEST       F6B13800
 ENSY1 TXH     ENSY2,2,-2     DOES LENGTH OF TABLE REQUIRE A LARGER HOP F6B13810
       CAL     SYMTS          YES, GET OLD PARAMETER                    F6B13820
       ADD     SYMTA          UPDATE TO NEXT LARGER INITIAL HOP         F6B13830
       SLW     SYMTS          AND SAVE                                  F6B13840
       STD     SYMTA          UPDATE BUMPER FOR NEXT LARGER HOP         F6B13850
       ADD     SYMTA          UPDATE PARAMETER UPDATE TEST              F6B13860
       STD     ENSY1          AND SAVE                                  F6B13870
 ENSY2 TXH     ENSY3,2,**     IS THIS ORDERED LOCATION OF NEW ENTRY     F6B13880
       CAL*    RGSTL-1        NO, MOVE THIS ENTRY UP ONE SPACE          F6B13890
       SLW*    RGSTL          TO MAKE ROOM FOR NEW ENTRY WHICH SHALL    F6B13900
       CLA*    RGSTR-1        PRECEDE IT                                F6B13910
       STO*    RGSTR                                                    F6B13920
       TXI     ENSY2,2,1      BUMP TO NEXT LOWER ENTRY, AND GO MOVE MOREF6B13930
 ENSY3 CAL    XSYMBL          INSERT BCD SYMBOL                         F6B13940
       SLW*    RGSTL          IN LEFT BUFFER                            F6B13950
       CLA     ERASE          INSERT LOCATION (ADDRESS), FLAG (DECR)    F6B13960
       ORA     P(2)           AND RELOCATION BITS 010 (PREFIX)          F6B13970
       STO*    RGSTR          IN RIGHT BUFFER                           F6B13980
 ENSYX AXT     **,1           RELOAD TABLE COUNT                        F6B13990
       TRA     2,4                                                      F6B14000
 SYMTA PZE     2,,-1                                                    F6B14010
 SYMTS PZE     5,,-1                                                    F6B14020
 SYMTL TXH     SRSY1,2,-2                                               F6B14030
       REM                                                              F6B14040
       TTL SUBROUTINES RELEVANT TO SECOND CIT PASS                      F6B14041
       REM     MOVE 4-WORD CIT FROM TAPE 4 BUFFER TO WORKING AREA.      F6B14050
       REM     ON THE FIRST CALL TO THIS SUBROUTINE BUFFER 1 IS FILLED, F6B14060
       REM     CHECKED FOR TAPE ERROR, AND BUFFER 2 FILLED WITH NEXT    F6B14070
       REM     RECORD. ERROR ON OR END OF FILE ON SUCCESSIVE BUFFERS    F6B14080
       REM     ARE NOT TESTED UNTIL PRIOR BUFFER IS EXHAUSTED.          F6B14090
 RDCIT SXA     RDCIX,4        SAVE CALLING LINKAGE                      F6B14100
       AXT     **,4           GET CIT COUNT                             F6B14110
       TIX     RDCI2,4,4      IS BUFFER EXHAUSTED                       F6B14120
       AXT     1,2            YES, SET BUFFER 1 SWITCH                  F6B14130
       TXL     *+2,,0         IS BUFFER 1 NEXT                          F6B14140
       AXT     2,2            NO, SET BUFFER 2 SWITCH INSTEAD           F6B14150
       CLS     *-2            RESET BUFFER SWITCH                       F6B14160
       STO     *-3                                                      F6B14170
       TXH     *+5,4,0        IS THIS FIRST RECORD                      F6B14180
       TSX    (TAPE),4       *YES, READ FIRST CIT RECORD                F6B14190
       PZE     RDCBF,2,(RBEP)                                           F6B14200
       PZE     CLABL,,COTTAP                                            F6B14210
       PZE    XDELET+1                                                  F6B14220
       TSX    (TAPE),4       *READ NEXT CIT RECORD                      F6B14230
       PZE     RDCBF+1,2,(RBEP)                                         F6B14240
       PZE     CLABL,,COTTAP                                            F6B14250
       PZE    XDELET+1                                                  F6B14260
       REM     COMPUTE WORD COUNT AND INITIALIZE BUFFERS                F6B14270
       CLA     RDCBF,2        INITIALIZE WORD COUNT COMPUTATION         F6B14280
       PAC     ,4                                                       F6B14290
       SXD     RDCI1,4                                                  F6B14300
       LXA    (SCHU)+COTTAP,4 GET LOCATION OF LAST+1 WORD IN CIT BLOCK  F6B14310
       TXL     RDCI3,4,0      WAS END FILE SENSED                       F6B14320
       SXA     RDCI2,4        NO, INITIALIZE MOVE LOOP                  F6B14330
       TXI     *+1,4,1                                                  F6B14340
       SXA     RDCI2+2,4                                                F6B14350
       TXI     *+1,4,1                                                  F6B14360
       SXA     RDCI2+4,4                                                F6B14370
       TXI     *+1,4,1                                                  F6B14380
       SXA     RDCI2+6,4                                                F6B14390
       TXI     *+1,4,-3                                                 F6B14400
 RDCI1 TXI     *+1,4,**                                                 F6B14410
       TXL     RDCI2,4,CITSIZ IS RECORD TOO LONG                        F6B14420
       AXT     -1,2           YES, SET CIT COUNT SWITCH                 F6B14430
       TRA     RDCRR+1                                                  F6B14440
       REM     MOVE CIT FROM BUFFER TO WORKING AREA                     F6B14450
 RDCI2 CAL     **,4                                                     F6B14460
       SLW     CITSL                                                    F6B14470
       CAL     **,4                                                     F6B14480
       SLW     CITOP                                                    F6B14490
       CAL     **,4                                                     F6B14500
       SLW     CITSA                                                    F6B14510
       CAL     **,4                                                     F6B14520
       SLW     CITRA                                                    F6B14530
       SXA     RDCIT+1,4      SAVE CIT COUNT                            F6B14540
 RDCIX AXT     **,4           RELOAD CALLING LINKAGE                    F6B14550
       TRA     2,4                                                      F6B14560
       REM     END OF CIT FILE SENSED                                   F6B14570
 RDCI3 LXA     RDCIX,4        RELOAD CALLING LINKAGE                    F6B14580
       TRA     1,4                                                      F6B14590
       REM     ERROR ON CIT OUTPUT TAPE                                 F6B14600
 RDCRR AXT     -2,2           SET IMPROPER END OF FILE SWITCH           F6B14610
       TSX    (TAPE),4       *PRINT ERROR MESSAGE                       F6B14620
       PZE     *+3,2,(TPER)                                             F6B14630
       MZE     CLABL,,COTTAP                                            F6B14640
       TRA    XDELET+1                                                  F6B14650
       BCI     1,COUNT                                                  F6B14660
       BCI     1,ENDFIL                                                 F6B14670
 CLABL BCI     1,CITS06                                                 F6B14680
       REM                                                              F6B14690
       IORT    BUFF2,,CITSIZ+1                                          F6B14700
       IORT    BUFF1,,CITSIZ+1                                          F6B14710
 RDCBF IORT    BUFF2,,CITSIZ+1                                          F6B14720
       REM                                                              F6B14730
       REM     CONTROL CONVERSION OF FOUR WORD CIT                      F6B14740
 CITCV SXA     CITCX,4        SAVE CALLING LINKAGE                      F6B14750
       SXA     CITCX+1,1      SAVE TABLE COUNT                          F6B14760
       CAL     CITOP          GET OPCODE                                F6B14770
       ANA     OPMSK                                                    F6B14780
       LXD     OPLST,2        PREPARE TO TEST FOR PSEUDOOPERATION       F6B14790
       LAS     OPLST+10,2     IS IT PSEUDOOP                            F6B14800
       TRA     *+2            NO                                        F6B14810
       TRA     *+3            YES                                       F6B14820
       TIX     *-3,2,1        IS LIST EXHAUSTED                         F6B14830
       TXI     *+1,2,-1       YES, OP IS MACHINE OP                     F6B14840
       SXA     POPSW,2        SET PSEUDOOPERATION SWITCH                F6B14850
       TSX     BINCV,4       *CONVERT CIT TO BINARY INSTRUCTION         F6B14860
       TSX     SAPCV,4       *CONVERT CIT TO MACHINE LANGUAGE LISTING   F6B14870
 POPSW AXT     **,4           PICK UP PSEUDOOP SWITCH                   F6B14880
       TRA     CITC1,4        SORT OUT OPCODES                          F6B14890
       DUP     1,5            EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS  F6B14900
       PZE                                                              F6B14910
       TRA     CITC1          OPCODE IS OCT                             F6B14920
       TRA     CITC1          OPCODE IS BCD                             F6B14930
       TRA     CITC2          OPCODE IS BSS                             F6B14940
       TRA     CITC2+2        OPCODE IS SYN                             F6B14950
 CITC1 CLA     LOCTR          UPDATE PROGRAM COUNTER                    F6B14960
       STA     ADDRS          SAVE TO CHECK DEFINITION OF SYMBOLIC LOC  F6B14970
       ADD     L(1)                                                     F6B14980
       STA     LOCTR                                                    F6B14990
       TRA     CITC2+2                                                  F6B15000
 CITC2 CLA     LOCTR          OPCODE IS BSS, CHECK SYMBOLIC LOCATION    F6B15010
       STA     ADDRS          LENGTH OF BLOCK RESERVED IS ZERO          F6B15020
       CAL     CITSL          GET SYMBOLIC LOCATION                     F6B15030
       TSX    XSORT0,4       *SORT OUT SYMBOLS                          F6B15040
       TRA     CITCX          NO SYMBOLIC LOCATION                      F6B15050
       TSX    XERR00,4       *PROGRAM COUNTER (*) IN SYMBOLIC LOC       F6B15060
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15070
*              THE INTERNAL SYMBOL FOR PROGRAM COUNTER (17)8 HAS BEEN   F6B15080
*              FOUND IN THE FIRST SIX BITS IN THE SYMBOLIC LOCATION     F6B15090
*              LOCATION FIELD OF A CIT (CITSL). SECTION 3 PUT IT THERE, F6B15100
*              BUT SECTION 6 SHOULD HAVE DELETED IT AT ROUTINE PAS15.   F6B15110
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15120
       TRA     CITC5          EXTERNAL VARIABLE                         F6B15130
       TRA     CITC4          INTERNAL FORMULA NUMBER                   F6B15140
       TRA     CITC3          SUB INTERNAL FORMULA NUMBER               F6B15150
       TSX    XERR00,4       *INT SYMBOL FOR ERASABLE IN SYMBOLIC LOC   F6B15160
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15170
*              SEE DISCUSSION OF SIMILAR ERROR AT PAS15.                F6B15180
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15190
       TSX    XSRTIV,4       *IS INTERNAL SYMBOL IN TIV                 F6B15200
       TSX    XERR00,4       *NO, UNDEFINED INTERNAL SYMBOL             F6B15210
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15220
*              THE INTERNAL SYMBOL STORED IN LOCATION SYMBL HAS BEEN    F6B15230
*              RECOGNIZED IN THE SYMBOLIC LOCATION FIELD OF A CIT       F6B15240
*              (CITSL). SECTION 6 SHOULD HAVE ENTERED IT IN TIV AT      F6B15250
*              ROUTINE PAS15. IT HAS NOT BEEN RECOGNIZED IN TIV.        F6B15260
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15270
       TRA     CITC6          YES                                       F6B15280
 CITC3 TSX    XSRTIV,4       *IS SUB IFN IN TIV                         F6B15290
       TRA     CITCX          NO, NOT REQUIRED BY ANY SYMBOLIC ADDRESS  F6B15300
       ANA     ADMSK          YES, MASK IN LOCATION                     F6B15310
       TNZ     CITC6+1        IS SYMBOL DEFINED                         F6B15320
       CLA     ADDRS          NO, DEFINE IT IN THIS PASS                F6B15330
       STA*   ORGTIV                                                    F6B15340
       TRA     CITCX                                                    F6B15350
 CITC4 LXD     CITSL,4        GET LOCATION FROM IFN TABLE               F6B15360
       CLA*   ORGIFN                                                    F6B15370
       ARS     18                                                       F6B15380
       TRA     CITC6                                                    F6B15390
 CITC5 TSX    XSRDEV,4       *IS TRANSFER VECTOR OR FORSUB NAME IN DEV  F6B15400
       TSX    XERR00,4       *NO, UNDEFINED EXTERNAL SYMBOL             F6B15410
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15420
*              THE EXTERNAL SYMBOL FOR A TRANSFER VECTOR OR ARITHMETIC  F6B15430
*              STATEMENT FUNCTION NAME STORED IN LOCATION SYMBL HAS BEENF6B15440
*              ENCOUNTERED IN THE SYMBOLIC LOCATION FIELD OF A CIT      F6B15450
*              (CITSL). SECTION 6 SHOULD HAVE ENTERED IT INTO DEV AT    F6B15460
*              ROUTINE TRVEC OR FORSB. IT HAS NOT BEEN RECOGNIZED IN DEVF6B15470
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15480
       PZE                    NOT USED                                  F6B15490
 CITC6 ANA     ADMSK          MASK IN ADDRESS                           F6B15500
       SUB     ADDRS          DO ASSIGNMENTS AGREE FIRST PASS VS SECOND F6B15510
       TZE     *+2            YES                                       F6B15520
       TSX    XERR00,4       *NO, STORAGE ASSIGNMENTS DIFFER PASS1 VS 2 F6B15530
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15540
*              THE LOCATION ASSIGNED TO THE SYMBOL STORED IN LOCATION   F6B15550
*              SYMBL HAS BEEN DEFINED BY SECTION 6 AT ROUTINE PAS14. THEF6B15560
*              LOCATION COMPUTED HERE DOES NOT QUITE AGREE.             F6B15570
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15580
 CITCX AXT     **,4           RELOAD CALLING LINKAGE                    F6B15590
       AXT     **,1           RELOAD TABLE COUNT                        F6B15600
       TRA     1,4                                                      F6B15610
       REM                                                              F6B15620
       REM     CONVERT CIT TO BINARY MACHINE OP CODE                    F6B15630
 BINCV SXA     BINCX,4        SAVE CALLING LINKAGE                      F6B15640
       STZ     ADDRS          RESET EFFECTIVE ADDRESS                   F6B15650
       STZ     RLBIT          RESET RELOCATION BITS                     F6B15660
       AXT     0,1                                                      F6B15670
       TRA     BIN01,2        SORT OUT OPCODES                          F6B15680
       DUP     1,5            EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS  F6B15690
       PZE                                                              F6B15700
       TRA     BIN07          OPCODE IS OCT                             F6B15710
       TRA     BIN07          OPCODE IS BCD                             F6B15720
       TRA     1,4            OPCODE IS BSS                             F6B15730
       NOP                    OPCODE IS SYN                             F6B15740
 BIN01 CAL     CITSA          GET SYMBOLIC ADDRESS                      F6B15750
       TSX    XSORT0,4       *SORT OUT SYMBOLS                          F6B15760
       TRA     BIN05          NO SYMBOLIC ADDRESS                       F6B15770
       TRA     BIN04          PROGRAM COUNTER                           F6B15780
       TRA     BIN03          EXTERNAL VARIABLE                         F6B15790
       TRA     BIN02          INTERNAL FORMULA NUMBER                   F6B15800
       TRA     *+2            SUB INTERNAL FORMULA NUMBER               F6B15810
       TRA     *+1            INTERNAL SYMBOL FOR ERASABLE              F6B15820
       TSX    XSRTIV,4       *INTERNAL SYMBOL FOR DATA, IS IT IN TIV    F6B15830
       TSX    XERR00,4       *NO, UNDEFINED INTERNAL SYMBOL             F6B15840
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15850
*              THE INTERNAL SYMBOL STORED IN LOCATION SYMBL HAS BEEN    F6B15860
*              ENCOUNTERED IN A CIT SYMBOLIC ADDRESS FIELD, BUT IS NOT  F6B15870
*              IN TIV. SECTION 6 SHOULD HAVE ENTERED IT IN TIV AT       F6B15880
*              ROUTINE PAS05 IF IT IS AN ERASABLE CELL, PAS06 IF IT IS AF6B15890
*              SUBSIDIARY INTERNAL FORMULA NUMBER, PAS15 IF IT IS A DATAF6B15900
*              CELL, OR JUST ABOVE REL01 IF IT IS 0A1. IT IS LOST.      F6B15910
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15920
       ANA     ADMSK          YES, GET LOCATION ASSIGNED                F6B15930
       TNZ     BIN04+1        WAS THIS SYMBOL DEFINED                   F6B15940
       TSX    XERR00,4       *NO, UNDEFINED INTERNAL SYMBOL             F6B15950
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B15960
*              THE INTERNAL SYMBOL STORED IN LOCATION SYMBL HAS BEEN    F6B15970
*              ENCOUNTERED IN A CIT SYMBOLIC ADDRESS FIELD, AND HAS BEENF6B15980
*              ENTERED IN TIV AT PAS04, EXPECTING THAT IT WOULD BE      F6B15990
*              DEFINED AT CITC3 WHEN IT APPEARED IN A CIT SYMBOLIC      F6B16000
*              LOCATION FIELD. IT HAS NOT BEEN SO RECOGNIZED, AND IS    F6B16010
*              UNDEFINED. DID A PRIOR SECTION OMIT ANY CITS.            F6B16020
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16030
 BIN02 LXD     CITSA,4        GET LOCATION FROM IFN TABLE               F6B16040
       CLA*   ORGIFN                                                    F6B16050
       ARS     18                                                       F6B16060
       ANA     ADMSK          YES, IS IT DEFINED                        F6B16070
       TNZ     BIN04+1        YES                                       F6B16080
       TSX    XERR00,4       *NO, UNDEFINED INTERNAL STATEMENT NUMBER   F6B16090
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16100
*              THE INTERNAL STATEMENT NUMBER STORED IN LOCATION SYMBL   F6B16110
*              HAS BEEN ENCOUNTERED IN A CIT SYMBOLIC ADDRESS FIELD, BUTF6B16120
*              IT HAS NO LOCATION ASSIGNED TO IT IN IFN TABLE.  WHEN IT F6B16130
*              APPEARED IN A CIT SYMBOLIC LOCATION FIELD, SECTION 6     F6B16140
*              SHOULD HAVE DEFINED IT AT PAS17. ARE ANY CITS MISSING.   F6B16150
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16160
 BIN03 TSX    XSRDEV,4       *EXTERNAL VARIABLE, IS IT IN DEV           F6B16170
       TSX    XSRTEV,4       *NO, IS IT IN TEV                          F6B16180
       TSX    XERR00,4       *NO, UNDEFINED EXTERNAL SYMBOL             F6B16190
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16200
*              THE EXTERNAL SYMBOL STORED IN LOCATION SYMBL HAS BEEN    F6B16210
*              ENCOUNTERED IN A CIT SYMBOLIC ADDRESS FIELD, BUT IS NOT  F6B16220
*              IN DEV OR TEV. SECTION 6 SHOULD HAVE ENTERED IT IN DEV ATF6B16230
*              ROUTINE AFTER TRVC1 IF IT IS $ OR $$, FROM SPRCM TO FORS1F6B16240
*              IF IT APPEARED IN A TAPE TABLE, OR IN TEV AT PAS11 IF IT F6B16250
*              IS A SINGLE CELLED ERASABLE VARIABLE NAME.               F6B16260
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16270
       PAI                    YES                                       F6B16280
       LNT     200000         IS IT AN ARGUMENT                         F6B16290
       TRA     BIN04+1        NO                                        F6B16300
       CAL     CITOP          YES, GET OPCODE                           F6B16310
       TSX     SROPT,4       *FIND CORRESPONDING BINARY MACHINE OP      F6B16320
       TSX    XERR00,4       *NOT FOUND, ILLEGAL OPCODE                 F6B16330
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16340
*              THE OPCODE IN THE ACCUMULATOR HAS NOT BEEN RECOGNIZED IN F6B16350
*              THE LIST OF VALID MACHINE OPERATION CODES.               F6B16360
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16370
       PXD     ,0             RESET ADDRESS                             F6B16380
       TRA     BIN06                                                    F6B16390
 BIN04 CLA     LOCTR          GET CURRENT CONTENTS OF PROGRAM COUNTER   F6B16400
       STA     ADDRS          SAVE LOCATION ASSIGNED TO SYMBOL          F6B16410
       CLA     L(2)           SET ADDRESS DIRECTLY RELOCATABLE 010      F6B16420
       STO     RLBIT                                                    F6B16430
       AXT     3,1            PREPARE TO RESET RELOCATION BIT           F6B16440
 BIN05 LXA     POPSW,4        PICK UP PSEUDOOPERATION SWITCH            F6B16450
       TXH     BINCX,4,0      IS OPCODE SYN                             F6B16460
       CAL     CITOP          NO, GET BCD OPCODE                        F6B16470
       TSX     SROPT,4       *FIND CORRESPONDING BINARY MACHINE OP      F6B16480
       TSX    XERR00,4       *NOT FOUND, ILLEGAL OPCODE                 F6B16490
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16500
*              SEE DISCUSSION OF SIMILAR ERROR IMMEDIATELY ABOVE.       F6B16510
*              * * * * * * * * * * * * * * * * * * * * * * * * * * * * *F6B16520
       CLA     CITRA          GET CIT RELATIVE ADDRESS                  F6B16530
       ARS     18                                                       F6B16540
       ADD     ADDRS          COMPUTE EFFECTIVE ADDRESS                 F6B16550
       ADD     T(1)           COMPLEMENT IF NECESSARY                   F6B16560
       STA     EFADD          AND SAVE                                  F6B16570
       LDQ    XPGBRK          GET PROGRAM BREAK                         F6B16580
       CLA     ADDRS          GET LOCATION OF BASE SYMBOL               F6B16590
       TLQ     *+4            IS SYMBOL IN COMMON                       F6B16600
       CLA     EFADD          NO, GET EFFECTIVE ADDRESS                 F6B16610
       TLQ     *+4            IS IT IN COMMON                           F6B16620
       TRA     *+4            NO                                        F6B16630
       CLA     EFADD          GET EFFECTIVE ADDRESS FOR COMMON VARIABLE F6B16640
       TLQ     *+2            IS IT BELOW COMMON                        F6B16650
       SXA     RLBIT,1        YES, SET BITS COMPLEMENT RELOCATABLE 011  F6B16660
 BIN06 LRS     15             COMBINE EFFECTIVE ADDRESS                 F6B16670
       CAL     CITRA          WITH TAG                                  F6B16680
       LRS     3                                                        F6B16690
       CAL     CITOP          DECREMENT                                 F6B16700
       LLS     18                                                       F6B16710
       ORA*    RGABS          AND BINARY OPCODE                         F6B16720
       TRA     BIN07+1                                                  F6B16730
 BIN07 CAL     CITSA          GET BINARY WORD (PSEUDOOPERATION)         F6B16740
       SLW     ERAS2          SAVE BINARY INSTRUCTION FOR LISTING       F6B16750
       TSX     PUNCH,4       *PUNCH OUT INSTRUCTION                     F6B16760
 BINCX AXT     **,4           RELOAD CALLING LINKAGE                    F6B16770
       TRA     1,4                                                      F6B16780
       REM                                                              F6B16790
       REM     SEARCH DICTIONARY OF OP CODES                            F6B16800
 SROPT SXA     SOPRX,1        SAVE RELOCATION BITS                      F6B16810
       LDQ     OPRTL          INITIALIZE BINARY SEARCH FOR DICTIONARY   F6B16820
       STQ    XBSRCH                                                    F6B16830
       AXT     19,1           SET SEARCH FOR TABLE BETWEEN 128 AND 255  F6B16840
       AXT     128,2          OPERATIONS                                F6B16850
       ANA     OPMSK          MASK IN OPCODE                            F6B16860
       SLW    XSYMBL          SAVE FOR POSSIBLE DIAGNOSTIC CALL         F6B16870
 SOPR1 LAS*    RGOPS          IS THIS OPCODE                            F6B16880
       TXI    XLOWER,1,-2     NO, CONTINUE                              F6B16890
       TRA     SOPRX          YES, FOUND                                F6B16900
       TXI    XRAISE,1,-2     NO, CONTINUE                              F6B16910
 SOPRX AXT     **,1           RELOAD RELOCATION BITS                    F6B16920
       TRA     2,4                                                      F6B16930
       REM                                                              F6B16940
       REM     PREPARE MACHINE LANGUAGE LISTING                         F6B16950
 SAPCV NZT    XSWCH2          IS MACHINE LANGUAGE LISTING REQUIRED      F6B16960
       TRA     1,4            NO                                        F6B16970
       SXA     SAPCX,4        YES, SAVE CALLING LINKAGE                 F6B16980
       AXT     WORD2,4        RESET BUFFER ORIGIN                       F6B16990
       SXA     RGSAP,4                                                  F6B17000
       LXA     POPSW,4        GET PSEUDOOPERATION SWITCH                F6B17010
       TXL     *+2,4,0        IS OP CODE MACHINE OP                     F6B17020
       TXL     SAPC2,4,2      NO, IS IT BSS OR SYN PSEUDOOP             F6B17030
       CLA     LOCTR          NO, OP REQUIRES OCTAL COUNTER             F6B17040
       LGR     15             CONVERT RELATIVE COUNT TO BCD             F6B17050
       CAL     BLANK          PICK UP LEADING BLANK                     F6B17060
       TNO     *+1            TURN OFF TRIGGER                          F6B17070
       ALS     3              CREATE ZONE                               F6B17080
       LGL     3              SHIFT IN DIGIT                            F6B17090
       TNO     *-2            IS COUNTER CONVERTED                      F6B17100
       ALS     6              YES, LEFT ADJUST OCTAL COUNT              F6B17110
       ORA     BLANK          ADD FOLLOWING BLANK                       F6B17120
 SAPC1 SLW     WORD1                                                    F6B17130
       NZT    XSWCH8          IS BINARY OPCODE REQUESTED                F6B17140
       TRA     SAP00          NO                                        F6B17150
       REM     CONVERT BINARY MACHINE OP CODE AND RELOCATION BITS       F6B17160
       REM     TO THREE WORD LISTING FORM                               F6B17170
       LDQ     ERAS2          PICK UP BINARY MACHINE OP                 F6B17180
       TSX     OCTCV,4       *CONVERT BINARY OP TO OCTAL                F6B17190
       CAL     ERASE          PICK UP SIGN                              F6B17200
       LDQ     ERAS1          AND FIRST HALF OF WORD                    F6B17210
       LGL     30             LEFT ADJUST                               F6B17220
       SLW*    RGSAP          INSERT IN WORD 2                          F6B17230
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B17240
       LGL     6              LEFT ADJUST SECOND HALF                   F6B17250
       LDQ     ERAS2                                                    F6B17260
       LGL     30                                                       F6B17270
       SLW*    RGSAP          INSERT IN WORD 3                          F6B17280
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B17290
       XCL                    SHIFT LAST CHARACTER TO LEADING POSITION  F6B17300
       LXA     RLBIT,4        CONVERT RELOCATION BITS TO BCD            F6B17310
       ORA     SPBIT,4                                                  F6B17320
       SLW*    RGSAP          INSERT IN WORD 4                          F6B17330
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B17340
       AXT     4,4                                                      F6B17350
       TRA     SAP00+1        MACHINE LISTING WILL BE IN WORDS 5 THRU 8 F6B17360
       REM     OP CODE IS BSS OR SYN SET WORDS 1 THRU 10 BLANK          F6B17370
 SAPC2 NZT    XSWCH8          IS BINARY OPCODE REQUESTED                F6B17380
       TRA     *+4            NO                                        F6B17390
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B17400
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B17410
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B17420
       AXT     10,4                                                     F6B17430
       TRA     SAP00+1                                                  F6B17440
       REM     BINARY OPCODE NOT REQUESTED, SET WORDS 4 THRU 10 BLANK   F6B17450
 SAP00 AXT     7,4                                                      F6B17460
       REM     BINARY OPCODE REQUESTED, SET WORDS 7 THRU 10 BLANK       F6B17470
       LDQ     BLNKS          SET VARIABLE FIELD BLANK                  F6B17480
       STQ     WORD0+1,4                                                F6B17490
       TIX     *-1,4,1                                                  F6B17500
       REM     CONVERT FOUR WORD CIT TO STANDARD MACHINE LANGUAGE FORM  F6B17510
       CAL     CITSL          GET SYMBOLIC LOCATION                     F6B17520
       TSX    XSORT0,4       *SORT OUT SYMBOLS                          F6B17530
       TRA     SAP01+1        NO SYMBOLIC ADDRESS                       F6B17540
       CAL     HASHS          PROGRAM COUNTER                           F6B17550
       TRA     SAP01+2        EXTERNAL VARIABLE                         F6B17560
       LGL     32             INTERNAL FORMULA NUMBER                   F6B17570
       TRA     SAP01          SUB INTERNAL FORMULA NUMBER               F6B17580
       TRA     *-4            INTERNAL SYMBOL FOR ERASABLE              F6B17590
       TSX     TIVSM,4       *CONVERT INTERNAL SYMBOL TO LISTING SYMBOL F6B17600
       TRA     SAP01+2                                                  F6B17610
 SAP01 TSX     TIVNF,4       *CONVERT SUB OR MAIN IFN TO LISTING SYMBOL F6B17620
       LGL     36             SHIFT IN BLANKS, MAIN OR SUBIFN           F6B17630
       SLW*    RGSAP          INSERT IN LISTING LOCATION FIELD          F6B17640
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B17650
       LDQ     CITOP          GET OPCODE                                F6B17660
       CAL     BLANK          AND LEADING BLANK                         F6B17670
       LGL     18                                                       F6B17680
       STQ     ERAS3          SAVE DECREMENT                            F6B17690
       LDQ     BLNKS          ADD FOLLOWING BLANK                       F6B17700
       LGL     6                                                        F6B17710
       ALS     6              LEFT ADJUST AND INSERT IN FIRST FIVE      F6B17720
       SLW*    RGSAP          CHARACTERS OF OPERATION FIELD WORD        F6B17730
       LXA     POPSW,4        GET PSEUDOOP SWITCH                       F6B17740
       TRA     *+10,4         SORT OUT OP CODES                         F6B17750
       DUP     1,5            EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS  F6B17760
       PZE                                                              F6B17770
       TRA     SAP11          OPCODE IS OCT                             F6B17780
       TRA     SAP10          OPCODE IS BCD                             F6B17790
       TRA     SAP06+2        OPCODE IS BSS                             F6B17800
       NOP                    OPCODE IS SYN                             F6B17810
       CAL     CITSA          GET SYMBOLIC ADDRESS                      F6B17820
       TSX    XSORT0,4       *SORT OUT SYMBOLS                          F6B17830
       TRA     SAP05          NO SYMBOLIC ADDRESS                       F6B17840
       CAL     PROCT          PROGRAM COUNTER                           F6B17850
       TRA     SAP02          EXTERNAL VARIABLE                         F6B17860
       LGL     32             INTERNAL FORMULA NUMBER                   F6B17870
       TRA     SAP03          SUB INTERNAL FORMULA NUMBER               F6B17880
       NOP                    INTERNAL SYMBOL FOR ERASABLE              F6B17890
       TSX     TIVSM,4       *CONVERT INTERNAL SYMBOL TO LISTING SYMBOL F6B17900
 SAP02 LGR     30             SHIFT OUT FOLLOWING 5 CHARACTERS          F6B17910
       TRA     SAP04                                                    F6B17920
 SAP03 TSX     TIVNF,4       *CONVERT SUB OR MAIN IFN TO LISTING SYMBOL F6B17930
       LGL     6              SHIFT IN FIRST CHARACTER                  F6B17940
 SAP04 ORS*    RGSAP          FILL OPFIELD WORD WITH FIRST CHARACTER    F6B17950
       STQ     ERASE          SAVE FOLLOWING CHARACTERS                 F6B17960
       CAL     BLANK          MARK END OF SYMBOL                        F6B17970
       ORS     ERASE                                                    F6B17980
       LDQ     ERASE          PICK UP SYMBOL                            F6B17990
       TSX     SAPF0,4       *INSERT CHARACTERS IN FOLLOWING WORD       F6B18000
       CLA     CITRA          GET TAG,,RELATIVE ADDRESS                 F6B18010
       ARS     18             ISOLATE RELATIVE ADDRESS                  F6B18020
       TZE     SAP08          IS RELATIVE ADDRESS EMPTY                 F6B18030
       LDQ     BLNKS          NO, PICK UP FOLLOWING BLANKS              F6B18040
       TSX     SAPDC,4       *CONVERT TO DECIMAL                        F6B18050
       CLA     CITRA          GET RELATIVE ADDRESS AGAIN                F6B18060
       TPL     *+3            IS IT POSITIVE                            F6B18070
       CAL     MINUS          NO, GET BCD MINUS                         F6B18080
       TRA     *+2                                                      F6B18090
       CAL     PLUSS          YES, GET BCD PLUS                         F6B18100
       TSX     SAPFL,4       *INSERT IN NEXT FOLLOWING POSITIONS        F6B18110
       TRA     SAP08                                                    F6B18120
       REM     NO SYMBOLIC ADDRESS                                      F6B18130
 SAP05 CLA     CITRA          GET TAG,,RELATIVE ADDRESS                 F6B18140
       TZE     SAP06          ARE RELATIVE ADDRESS AND TAG EMPTY        F6B18150
       ARS     18             NO, ISOLATE RELATIVE ADDRESS              F6B18160
       TZE     SAP07          IS RELATIVE ADDRESS EMPTY                 F6B18170
       TSX     SAPDC,4       *NO, CONVERT TO DECIMAL                    F6B18180
       CLA     CITRA          GET RELATIVE ADDRESS AGAIN                F6B18190
       TPL     *+3            IS IT POSITIVE                            F6B18200
       CAL     MINUS          NO, GET BCD MINUS                         F6B18210
       TRA     *+3                                                      F6B18220
       PXD     ,0             YES, OMIT SIGN                            F6B18230
       LGL     6                                                        F6B18240
       ORS*    RGSAP          FILL OPFIELD WORD WITH FIRST CHARACTER    F6B18250
       TRA     SAP07                                                    F6B18260
       REM     NO SYMBOLIC ADDRESS, TAG, OR RELATIVE ADDRESS            F6B18270
 SAP06 CLA     ERAS3          GET DECREMENT                             F6B18280
       TNZ     SAP07          IS DECREMENT EMPTY                        F6B18290
       CAL     BLANK          YES, FILL OPFIELD WORD WITH BLANK         F6B18300
       ORS*    RGSAP                                                    F6B18310
       TRA     SAP12                                                    F6B18320
 SAP07 TSX     SAPF0,4       *INSERT CHARACTERS IN FOLLOWING WORD       F6B18330
       REM     SYMBOLIC ADDRESS AND/OR RELATIVE ADDRESS ASSEMBLED       F6B18340
       REM     IF BLANK, TAG AND/OR DECREMENT EXIST                     F6B18350
       REM     PROCESS TAG AND DECREMENT                                F6B18360
 SAP08 LDQ     BLNKS          PICK UP FOLLOWING BLANKS                  F6B18370
       CLA     CITRA          GET TAG,,RELATIVE ADDRESS                 F6B18380
       ANA     ADMSK          ISOLATE TAG                               F6B18390
       TZE     *+3            IS TAG EMPTY                              F6B18400
       LGR     6              NO, SHIFT IN BCD TAG                      F6B18410
       TRA     *+4                                                      F6B18420
       CLA     ERAS3          TAG IS EMPTY, PICK UP DECREMENT           F6B18430
       TZE     SAP09          IS DECREMENT EMPTY                        F6B18440
       LDQ     SPACE          NO, PICK UP ZERO TAG                      F6B18450
       CLA     COMMA          PICK UP COMMA BEFORE TAG                  F6B18460
       TSX     SAPFL,4       *INSERT CHARACTERS IN FOLLOWING WORD       F6B18470
       CLA     CITOP          PICK UP DECREMENT                         F6B18480
       ANA     ADMSK          ISOLATE DECREMENT                         F6B18490
       TZE     SAP09          IS DECREMENT EMPTY                        F6B18500
       TSX     SAPDC,4       *NO, CONVERT TO DECIMAL                    F6B18510
       CLA     COMMA          PICK UP LEADING COMMA                     F6B18520
       TSX     SAPFL,4       *INSERT CHARACTERS IN FOLLOWING WORD       F6B18530
 SAP09 PXD     ,0             FILL IN LAST WORD WITH BLANKS             F6B18540
       LDQ     BLNKS                                                    F6B18550
       LGL     36,2                                                     F6B18560
       ORS*    RGSAP                                                    F6B18570
       TRA     SAP12                                                    F6B18580
       REM     OPCODE IS BCD                                            F6B18590
 SAP10 CAL     L(1)           INSERT 1 AS LAST CHARACTER IN OPFIELD     F6B18600
       ORS*    RGSAP                                                    F6B18610
       TSX     SAPBP,2        BUMP ORIGIN TO NEXT WORD                  F6B18620
       CAL     CITSA          INSERT BCD WORD IN NEXT WORD              F6B18630
       SLW*    RGSAP                                                    F6B18640
       TRA     SAP12                                                    F6B18650
       REM     OPCODE IS OCT                                            F6B18660
 SAP11 LDQ     CITSA          GET BINARY CONSTANT                       F6B18670
       TSX     OCTCV,4       *CONVERT BINARY CONSTANT TO OCTAL          F6B18680
       CAL     ERASE          PICK UP SIGN                              F6B18690
       ORS*    RGSAP          INSERT AS LAST CHARACTER IN OPFIELD WORD  F6B18700
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B18710
       CAL     ERAS1          INSERT FIRST HALF INTO NEXT WORD          F6B18720
       SLW*    RGSAP                                                    F6B18730
       TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B18740
       CAL     ERAS2                                                    F6B18750
       SLW*    RGSAP          INSERT SECOND HALF INTO NEXT WORD         F6B18760
       SPACE                                                            F6B18761
       REM     CIT HAS BEEN CONVERTED TO MACHINE LANGUAGE LISTING FORM  F6B18770
       REM     WORD 1 IS OCTAL COUNTER                                  F6B18780
       REM     IF BINARY WORD IS REQUESTED, BINARY WORD AND RELOCATION  F6B18790
       REM     BITS ARE IN WORDS 2, 3, 4, SL IN WORD 5, OP IN WORD 6,   F6B18800
       REM     AND VARIABLE FIELD BEGINS IN WORD 6 CHARACTER 6          F6B18810
       REM     EXTENDING TO A MAXIMUM LENGTH INTO WORD 10               F6B18820
       REM     IF BINARY WORD IS NOT REQUESTED, SL IS IN WORD 2, AND    F6B18830
       REM     VARIABLE FIELD EXTENDS INTO WORD 7                       F6B18840
       REM     SL, OP, SA AND RA CAN BE FOUND IN CORRESPONDING CIT CELLSF6B18850
 SAP12 TRA     SAP13          PATCH SPACE FOR CUSTOMERS TO MESS AROUND  F6B18860
       PZE                    WITH SAP LISTING                          F6B18870
       PZE                    NOT USED                                  F6B18880
       PZE                    NOT USED                                  F6B18890
       PZE                    NOT USED                                  F6B18900
       PZE                    NOT USED                                  F6B18910
       PZE                    NOT USED                                  F6B18920
       PZE                    NOT USED                                  F6B18930
       PZE                    NOT USED                                  F6B18940
       REM     MOVE MACHINE LANGUAGE LISTING INTO PAGE BUFFER           F6B18950
       REM     IF BINARY WORD REQUESTED, TWO 9 WORD COLUMNS PER PAGE    F6B18960
       REM     IF NOT REQUESTED, THREE 6 WORD COLUMNS PER PAGE          F6B18970
 SAP13 AXT     **,4           LOAD WORD COUNT                           F6B18980
       CAL     BLNKS          SET WORD 0 BLANK                          F6B18990
       SLW     SAPBF,4                                                  F6B19000
       AXT     5,2            PREPARE TO MOVE 5 WORDS INTO BUFFER       F6B19010
       ZET    XSWCH8          DO BINARY WORDS EXIST                     F6B19020
       TXI     *+1,2,3        YES, PREPARE TO MOVE 8 WORDS INTO BUFFER  F6B19030
       CAL     SAP13+2        COMPUTE ORIGIN AT END OF BUFFER ENTRY     F6B19040
       ADD     L(1)                                                     F6B19050
       SXA     ERASE,4                                                  F6B19060
       SBM     ERASE                                                    F6B19070
       SXA     ERASE,2                                                  F6B19080
       ADM     ERASE                                                    F6B19090
       STA     *+5                                                      F6B19100
       CAL     SAPC1          COMPUTE ORIGIN AT END OF LISTING BUFFER   F6B19110
       ADM     ERASE                                                    F6B19120
       STA     *+1                                                      F6B19130
       CAL     **,2           MOVE NEXT WORD IN MACHINE LANGUAGE LISTINGF6B19140
       SLW     **,2           TO PAGE IMAGE                             F6B19150
       TIX     *-2,2,1        IS BUFFER MOVED                           F6B19160
       TXI     *+1,4,-18      YES, BUMP WORD COUNT TO NEXT LINE         F6B19170
SAP14  AXT     **,1           LOAD ENTRY COUNT                          F6B19180
       TXI     *+1,1,1        BUMP ENTRY COUNT TO NEXT ENTRY THIS PAGE  F6B19190
COLFL  TXL     SAP17+1,1,**   IS A COLUMN FULL YET...                   F6B19200
       TXL     ONEFL,1,**     YES, IS IT COLUMN ONE...                  F6B19220
       TXL     TWOFL,1,**     ONE IS DONE, IS COLUMN TWO FULL YET...    F6B19230
       SXA     SAP13,4                                                  F6B19231
       TXH     SKPTL,1,**     TWO IS DONE, HOW IS THREE COMING...       F6B19240
       TSX     HEDPG,4        THREE IS BEING FILLED, WRITE HEADING.     F6B19250
SKPTL  TSX     WRIT2,4        WRITE PAGE LINE                           F6B19260
WRTIO  IOCT    SAPBF,,18                                               $F6B19270
       LXA     *-1,4         RESET ORIGIN OF I/O COMMAND.               F6B19280
       TXI     *+1,4,18       BY BUMPING                                F6B19290
       SXA     WRTIO,4        LOCATION OF LINE ORIGIN BY WORD COUNT.    F6B19300
       TXL     SAPCX-1,1,**   IS PAGE COMPLETELY FIILED YET             F6B19330
       LXA     SAP13+2,1      YES, RESET INITAL ADDRESS OF PAGE IMAGE   F6B19334
       SXA     WRTIO,1                                                  F6B19336
       AXT     0,1            INITIALIZE COLUMN ENTRY COUNT             F6B19340
       AXT     0,4            INITIALIZE PAGE WORD COUNT                F6B19350
       TXI     SAP17,2,**     INITIALIZE COLUMN FULL TEST               F6B19355
ONEFL  AXT     -6,4           COLUMN ONE JUST FILLED, SET               F6B19360
       TXI     SAP17,2,**     WORD COUNT TO AT LEAST ONE COL.           F6B19365
TWOFL  AXT     -12,4         COLUMN TWO JUST FILLED, SET                F6B19366
       TRA     SAP17+1                                                  F6B19367
SAP17  SXD     COLFL,2       RESET COLUMN-FULL TEST TO NEXT LINE.       F6B19368
       SXA     SAP13,4        RESET WORD COUNT...                       F6B19369
       SXA     SAP14,1        RESET COLUMN ENTRY COUNT                  F6B19370
SAPCX  AXT     **,4          RETURN                                     F6B19375
       TRA     1,4           TO CALLER.                                 F6B19380
       REM                                                              F6B19390
       REM     INSERT CHARACTERS MARKED BY BLANK INTO NEXT WORD         F6B19400
 SAPFL ALS     30,2           POSITION CHARACTER                        F6B19410
       ORS*    RGSAP          INSERT IN WORD                            F6B19420
       TXI     *+1,2,6        BUMP CHARACTER COUNT RIGHT ONE POSITION   F6B19430
       TXL     *+3,2,30       IS WORD FULL                              F6B19440
       REM     ENTRY POINT TO START NEW WORD                            F6B19450
 SAPF0 TSX     SAPBP,2       *BUMP ORIGIN TO NEXT WORD                  F6B19460
       AXT     0,2            RESET CHARACTER COUNT TO LEFT POSITION    F6B19470
       ZAC                                                              F6B19480
       LGL     6              SHIFT IN NEXT CHARACTER                   F6B19490
       LAS     BLANK          IS CHARACTER BLANK                        F6B19500
       TRA     SAPFL          NO                                        F6B19510
       TRA     1,4            YES                                       F6B19520
       TRA     SAPFL                                                    F6B19530
       REM                                                              F6B19540
       REM     BUMP ORIGIN OF SAP BUFFER TO NEXT WORD                   F6B19550
 SAPBP CAL     RGSAP                                                    F6B19560
       ADD     L(1)                                                     F6B19570
       STA     RGSAP                                                    F6B19580
       STZ*    RGSAP          CLEAR NEXT WORD                           F6B19590
       TRA     1,2                                                      F6B19600
       REM                                                              F6B19610
       REM     CONVERT INTERNAL VARIABLE TO LISTING SYMBOL              F6B19620
       REM     FIRST SIX BITS OF SYMBOL (NON ZERO) ARE IN AC            F6B19630
       REM     REMAINDER OF SYMBOL IS IN MQ                             F6B19640
       REM     LISTING SYMBOL WILL BE LEFT ADJUSTED IN AC               F6B19650
 TIVSM LGR     32             ISOLATE TABLE LABEL                       F6B19660
       SXA     TIVSX+2,4      SAVE CALLING LINKAGE                      F6B19670
       SXA     TIVSX+1,2      SAVE TIV TABLE COUNT                      F6B19680
       SXA     TIVSX,1        SAVE LINE COUNT                           F6B19690
       PAX     ,4             GET FIRST BCD CHARACTER                   F6B19700
       CAL     CHART,4        GET CORRESPONDING BCD CHARACTER           F6B19710
       ALS     6              FOR FIRST CHARACTER                       F6B19720
       ORA     PAREN          FOLLOWED BY )                             F6B19730
       ALS     24             LEFT ADJUST                               F6B19740
       SLW     ERASE          SAVE PARTIAL PSEUDOSYMBOL                 F6B19750
       AXT     4,3            PREPARE TO EXAMINE 17 BIT SUBSYMBOL       F6B19760
       PXD     ,0                                                       F6B19770
       LGL     2              GET FIRST CHARACTER OF 17 BIT SUBADDRESS  F6B19780
       TNZ     TIVS1          DOES IT EXIST                             F6B19790
       TNX     TIVS2,1,1      MAYBE, IS ENTIRE FIELD SCANNED            F6B19800
       LGL     5              NO, IS THERE A SUBCHARACTER               F6B19810
       TZE     *-2            NOT YET                                   F6B19820
 TIVS1 PAX     ,4             YES                                       F6B19830
       CAL     CHART,4        GET APPROPRIATE SUBCHARACTER              F6B19840
       TNX     TIVS2+1,1,1    IS ENTIRE SUBFIELD SCANNED                F6B19850
       ALS     22,2           NO, POSITION CHARACTER                    F6B19860
       ORS     ERASE          AND ADD TO PARTIAL PSEUDOSYMBOL           F6B19870
       PXD     ,0                                                       F6B19880
       LGL     5              GET NEXT CHARACTER                        F6B19890
       TXI     TIVS1,2,6      BUMP POSITION COUNT TO NEXT CHARACTER     F6B19900
 TIVS2 CAL     BLANK          GET FOLLOWING BLANKS                      F6B19910
       LDQ     BLNKS                                                    F6B19920
       LGL     22,2           POSITION                                  F6B19930
       ORA     ERASE          AND ADD TO SYMBOL                         F6B19940
 TIVSX AXT     **,1           RELOAD LINE COUNT                         F6B19950
       AXT     **,2           RELOAD TIV TABLE COUNT                    F6B19960
       AXT     **,4           RELOAD CALLING LINKAGE                    F6B19970
       TRA     1,4                                                      F6B19980
       REM                                                              F6B19990
       REM     CONVERT SUB OR MAIN IFN TO LISTING SYMBOL                F6B20000
       REM     FIRST SIX BITS OF SYMBOL (ZERO) HAVE BEEN DISCARDED      F6B20010
       REM     REMAINDER OF SYMBOL IS IN MQ                             F6B20020
       REM     LISTING SYMBOL WILL BE LEFT ADJUSTED IN MQ               F6B20030
 TIVNF SXA     DECCX,4        SAVE CALLING LINKAGE                      F6B20040
       LGR     20             SHIFT IN 12 BIT INTERNAL FORMULA NUMBER   F6B20050
       STO     ERASE          AND SAVE                                  F6B20060
       PXD     ,0                                                       F6B20070
       LGR     31             RIGHT ADJUST INCREMENT                    F6B20080
       DVP     L(10)          CONVERT INCREMENT TO DECIMAL              F6B20090
       TNZ     *+2            IS INCREMENT ZERO                         F6B20100
       CAL     BLANK          YES, REPLACE DIGIT WITH BLANK             F6B20110
       SLW     ERAS2          AND SAVE                                  F6B20120
       LGL     36             GET REMAINDER                             F6B20130
       PAX     ,2                                                       F6B20140
       CAL     ALPHA,2        PICK UP LEADING ALPHABETIC CHARACTER      F6B20150
       ALS     6              POSITION LEADING CHARACTER                F6B20160
       ORA     ERAS2          GET FOLLOWING DIGIT                       F6B20170
       LDQ     BLNKS          PICK UP FOLLOWING BLANKS                  F6B20180
       LGR     12             LEFT ADJUST IN MQ                         F6B20190
       CLA     ERASE          PICK UP INTERNAL FORMULA NUMBER           F6B20200
       REM                                                              F6B20210
       REM     CONVERT BINARY NUMBER TO DECIMAL                         F6B20220
       REM     BINARY NUMBER IS RIGHT ADJUSTED IN AC                    F6B20230
       REM     DECIMAL NUMBER WILL BE LEFT ADJUSTED IN MQ               F6B20240
 SAPDC STQ     ERAS2          SAVE FOLLOWING CHARACTERS                 F6B20250
       SLN     4              SET MQ FLAG                               F6B20260
       REM     DECIMAL NUMBER WILL BE RIGHT ADJUSTED IN AC              F6B20270
 DECCV SXA     DECCX,4        SAVE CALLING LINKAGE                      F6B20280
       XCA                    GET BINARY NUMBER IN MQ                   F6B20290
       STZ     ERAS1          CLEAR WORKING STORAGE                     F6B20300
       AXT     0,4            SET CHARACTER COUNT TO LEAST SIGNIF DIGIT F6B20310
 DECC1 PXD     ,0                                                       F6B20320
       DVP     L(10)          DIVIDE BY TEN                             F6B20330
       ALS     0,4            ADJUST POSITION OF REMAINDER              F6B20340
       ORS     ERAS1          INSERT IN DECIMAL NUMBER                  F6B20350
       CLA     L(1)           IS REMAINDER ZERO                         F6B20360
       TLQ     *+2            YES, CONVERSION IS COMPLETE               F6B20370
       TXI     DECC1,4,-6     NO, BUMP CHARACTER COUNT LEFT ONE DIGIT   F6B20380
       REM     BINARY NUMBER IS CONVERTED                               F6B20390
       SLT     4              IS MQ FLAG ON                             F6B20400
       TRA     *+5            NO                                        F6B20410
       CAL     ERAS1          YES, PICK UP DECIMAL NUMBER               F6B20420
       LDQ     ERAS2          AND FOLLOWING CHARACTERS                  F6B20430
       LGR     6,4            LEFT ADJUST IN MQ                         F6B20440
       TRA     DECCX                                                    F6B20450
       CAL     BLNKS          INSERT LEADING BLANKS                     F6B20460
       ALS     6,4                                                      F6B20470
       ORA     ERAS1          PICK UP DECIMAL NUMBER                    F6B20480
 DECCX AXT     **,4           RELOAD CALLING LINKAGE                    F6B20490
       TRA     1,4                                                      F6B20500
       REM                                                              F6B20510
       REM     CONVERT BINARY WORD TO TWO OCTAL WORDS                   F6B20520
       REM     BINARY WORD IS IN MQ                                     F6B20530
       REM     SIGN WILL BE IN ERASE, FIRST IN ERAS1, SECOND IN ERAS2   F6B20540
 OCTCV CAL     PLUSS          SET SIGN PLUS (TENTATIVELY)               F6B20550
       TQP     *+3            IS BINARY WORD POSITIVE                   F6B20560
       CAL     MINUS          NO, RESET SIGN MINUS                      F6B20570
       LRS     0              DELETE SIGN FROM BINARY WORD              F6B20580
       SLW     ERASE          SAVE SIGN                                 F6B20590
       AXT     2,2            PREPARE TO CONVERT OPCODE TO TWO BCD WORDSF6B20600
 OCTC1 AXT     6,1            PREPARE TO GENERATE 6 BCD CHARACTERS      F6B20610
       ALS     3              CREATE ZONE                               F6B20620
       LGL     3              SHIFT IN DIGIT                            F6B20630
       TIX     *-2,1,1        IS WORD COMPLETE                          F6B20640
       SLW     ERAS3,2        YES SAVE IT                               F6B20650
       TIX     OCTC1,2,1      IS BINARY WORD EXHAUSTED                  F6B20660
       TRA     1,4            YES                                       F6B20670
       REM                                                              F6B20680
       REM                                                              F6B20690
       REM     PREPARE A TWO WORD STORAGE MAP ENTRY                     F6B20700
       REM     BLANK WORD, BCD NAME                                     F6B20710
       REM     NAME IS IN MQ                                            F6B20720
 LINE0 SLN     4              SET ENTRY POINT NAME FLAG                 F6B20730
       SXA     LINEX,4        SAVE CALLING LINKAGE                      F6B20740
       CAL     BLNKS          SET WORD 1 BLANK                          F6B20750
       SLW     PBUFF+1,1                                                F6B20760
       STQ     PBUFF+2,1      INSERT SYMBOL IN WORD 2                   F6B20770
       SLT     4              IS THIS EIF TABLE ENTRY                   F6B20780
       TRA     LINE3          YES                                       F6B20790
       TIX     LINEX,1,2      NO, IS LINE FULL                          F6B20800
       TRA     LINE5          YES                                       F6B20810
       REM     PREPARE A FOUR WORD STORAGE MAP ENTRY                    F6B20820
       REM     BLANK WORD, BCD NAME, DECIMAL LOCATION, OCTAL LOCATION   F6B20830
       REM     NAME IS IN MQ, BINARY LOCATION IN AC ADDRESS             F6B20840
 LINE1 SXA     LINEX,4        SAVE CALLING LINKAGE                      F6B20850
       STA     ADDRS          SAVE BINARY LOCATION                      F6B20860
       CAL     BLNKS          PICK UP BLANKS TO RIGHT ADJUST SYMBOL     F6B20870
       SLW     PBUFF+1,1      INSERT IN FIRST WORD                      F6B20880
       SLW     PBUFF+2,1      AND (TENTATIVELY) IN SECOND WORD          F6B20890
       AXT     6,4            PREPARE TO RIGHT ADJUST 6 CHARACTERS      F6B20900
 LINE2 LGL     6              SHIFT IN NEXT CHARACTER                   F6B20910
       SLW     ERASE          SAVE PARTIALLY ADUSTED SYMBOL             F6B20920
       ANA     CHMSK          MASK IN LAST CHARACTER                    F6B20930
       ERA     BLANK          IS IT BLANK                               F6B20940
       TZE     *+4            YES                                       F6B20950
       CAL     ERASE          NO, INSERT PARTIALLY ADJUSTED SYMBOL      F6B20960
       SLW     PBUFF+2,1      IN SECOND WORD                            F6B20970
       TIX     LINE2,4,1      HAVE SIX CHARACTERS BEEN ADJUSTED         F6B20980
 LINE3 CLA     ADDRS          PICK UP BINARY LOCATION                   F6B20990
       TSX     DECCV,4       *CONVERT TO BCD DECIMAL                    F6B21000
       SLW     PBUFF+3,1      IN THIRD WORD                             F6B21010
 LINE4 CLA     ADDRS          PICK UP BINARY LOCATION                   F6B21020
       LRS     15             LEFT ADJUSTED IN MQ                       F6B21030
       CLA     BLANK          PICK UP MARKER                            F6B21040
       TNO     *+1            TURN OFF TRIGGER                          F6B21050
       ALS     3              CREATE ZONE                               F6B21060
       LLS     3              SHIFT IN OCTAL DIGIT                      F6B21070
       TNO     *-3            IS MARKER LEFT ADJUSTED                   F6B21080
       SLW     PBUFF+4,1      YES, INSERT OCTAL LOCATION IN FOURTH WORD F6B21090
       TIX     LINEX,1,4      IS LINE FULL                              F6B21100
 LINE5 TSX     WRITS,4       *WRITE OFF THIS LINE                       F6B21110
 IOLIN IOCT    LINEB,,20                                               $F6B21120
 LINEX AXT     **,4           RELOAD CALLING LINKAGE                    F6B21130
       TRA     1,4                                                      F6B21140
       REM                                                              F6B21150
       REM     WRITE LINE ON STORAGE MAP                                F6B21160
 WRITE SLN     3              ENTRY FOR TITLE                           F6B21162
       TRA     *+2                                                      F6B21164
 WRITS SLN     4              ENTRY POINT TO SUPPRESS SPACE SKIP        F6B21170
       CLA     1,4            INITIALIZE I/O COMMAND                    F6B21180
       STO     WRIT1                                                    F6B21190
       SXA     WRITX,4        SAVE CALLING LINKAGE                      F6B21200
 PGLCT AXT     **,1           LOAD PAGE LINE COUNT                      F6B21210
       SLT     4              IS THIS SINGLE SPACE                      F6B21220
       TIX     *+1,1,1        NO, BUMP LINE COUNT FOR SPACE             F6B21230
       SLT     3              IS THIS A TITLE CALL                      F6B21232
       TRA     *+2            NO                                        F6B21234
       TXL     *+2,1,4        PREVENT LONELY TITLE                      F6B21236
       TIX     *+2,1,1        IS PAGE FULL                              F6B21240
       TSX     HEDPG,4       *YES, PRINT PAGE HEADING                   F6B21250
       SXA     WRITE+6,1      SAVE PAGE LINE COUNT                      F6B21260
       LXD     WRCT1,1        RESET LINE WORD COUNT                     F6B21270
       TSX     WRIT2,4       *WRITE OFF THIS LINE                       F6B21280
 WRIT1 PZE                                                              F6B21290
 WRITX AXT     **,4           RELOAD CALLING LINKAGE                    F6B21300
       TRA     2,4                                                      F6B21310
       REM                                                              F6B21320
       REM     WRITE OFF FINAL PARTIAL LINE                             F6B21330
 WRIPL TXH     WRIPX,1,19     DOES PARTIAL LINE EXIST                   F6B21340
       PXD     ,1             YES, COMPUTE LENGTH OF PARTIAL LINE       F6B21350
       SBM     IOLIN                                                    F6B21360
       SLW     *+2            INITIALIZE I/O COMMAND                    F6B21370
       TSX     WRIT2,4       *WRITE OFF PARTIAL LINE                    F6B21380
       IOCT    **,,**                                                  $F6B21390
       LXA     PGLCT,1        BUMP LINE COUNT BUT DO NOT CREATE         F6B21400
       TIX     *+1,1,1        PRINTERS WIDOW                            F6B21410
       SXA     PGLCT,1                                                  F6B21420
       LXD     WRCT1,1                                                 $F6B21430
 WRIPX TRA     1,2                                                      F6B21440
       REM                                                              F6B21450
       REM     WRITE MACHINE LANGUAGE LISTING, FINAL PAGE.              F6B21460
 LISTG CLA     1,4            INITIALIZE I/O COMMAND                    F6B21470
       STO     LIST0+2                                                  F6B21480
 LIST0 SXA     LISTX,4        SAVE CALLING LINKAGE                      F6B21490
       TSX     WRIT2,4       *WRITE OFF NEXT LINE                       F6B21500
       IOCT    **,,**                                                  $F6B21510
       LXA     LIST0+2,4      BUMP PARAMETER FOR NEXT LINE              F6B21520
       TXI     *+1,4,18                                                 F6B21530
       SXA     LIST0+2,4                                                F6B21540
       TIX     LIST0+1,1,1    IS PAGE EXHAUSTED                         F6B21550
 LISTX AXT     **,4           YES, RELOAD CALLING LINKAGE               F6B21560
       TRA     2,4                                                      F6B21570
       REM                                                              F6B21580
       REM     WRITE PAGE HEADING                                       F6B21590
 HEDPG SXA     HEDPX,4        SAVE CALLING LINKAGE                      F6B21600
       TSX     WRIT2,4       *WRITE PAGE HEADING                        F6B21610
       IOCT    XPGHED,,18                                              $F6B21620
       ZSA    XLSTCT          RESET POSITION OF LISTING TAPE           $F6B21630
       TSX     WRIT2,4       *WRITE BLANK LINE                          F6B21640
       IOCT    BLNKS,,3                                                $F6B21650
       CAL*   ORGLCT          BUMP PAGE NUMBER                          F6B21660
       ADD     D(1)                                                     F6B21670
       STD*   ORGLCT                                                    F6B21680
       ANA     REWND          MASK IN PAGE NUMBER                       F6B21690
       LDQ     L(0)           PREPARE TO CONVERT PAGE NUMBER TO DECIMAL F6B21700
       LRS     22             HUNDREDS                                  F6B21710
       VDP     L(100,,4                                                 F6B21720
       RQL     6                                                        F6B21730
       LRS     4              TENS                                      F6B21740
       VDP     L(10),,4                                                 F6B21750
       RQL     6                                                        F6B21760
       STQ    XPGHED+17                                                 F6B21770
       ORA    XPGHED+17       COMBINE WITH ONES                         F6B21780
       LDQ     BLNKS          LEFT ADJUST                               F6B21790
       LGR     6                                                        F6B21800
       TNZ     *-1                                                      F6B21810
       STQ    XPGHED+17       INSERT IN PAGE HEADING                    F6B21820
 HDPCT AXT     56,1           RESET LINE COUNT TO EMPTY PAGE            F6B21830
 HEDPX AXT     **,4           RELOAD CALLING LINKAGE                    F6B21840
       TRA     1,4                                                      F6B21850
       REM                                                              F6B21860
       REM     WRITE LINE ON AND OFF LINE                               F6B21870
 WRIT2 SXA     WRT2X,4        SAVE CALLING LINKAGE                      F6B21880
       SXA     WRT2X+1,1                                                F6B21881
       SXA     WRT2X+2,2                                                F6B21882
       CLA     1,4           INITIALIZE I/O COMMAND.                   $F6B21888
       SSP                   AVOID DIFFICULTIES WHEN ADDING.           $F6B21890
       STD     PRINT+1       SET ON LINE PARAMETER.                    $F6B21910
       STA     PRINT+1                                                 $F6B21911
       PDX     0,4                                                     $F6B21920
 WRCT1 TNX     *+2,4,20       IS LINE LONGER THAN PERMITTED            $F6B21930
       AXT     12,4           YES, TRUNCATE IT AND                     $F6B21931
       SXD     PRINT+1,4      SET WORD COUNT                           $F6B21932
       SXA     ERASE,4        SET UP MOVE                               F6B21933
       ADM     ERASE          LOOP.                                     F6B21934
       STA     MOVER                                                    F6B21935
       LAC     WRITT+1,2      PICK UP FLIPPER.                          F6B21936
WRIT3  TXL     PRINT,4,-1     IS THIS THE FIRST FILE.                   F6B21950
 BLKWD AXT     **,1           LOAD BLOCK WORD COUNT.                    F6B21980
 BLKQT TXL     MOVER,1,-1     (IF BLOCKED LISTING DECREMENT = 0)        F6B22000
       CAL     RECMK          NOT YET, PLACE RECORD MARK                F6B22010
       SLW*    WRTCM+1,2      AS LAST WORD OF PREVIOUS LINE.            F6B22020
       TXI     *+1,1,-1       BUMP WORD COUNT PICK UP.                  F6B22040
MOVER  CAL     **,4           MOVE GIVEN LINE TO ONE                    F6B22070
       SLW*    WRTCM+1,2      OR THE OTHER BUBBLE DUFFER.               F6B22080
       TXI     *+1,1,-1       BUMP WORD COUNT OF BLOCK.                 F6B22082
       TIX     *-3,4,1        ANY MORE WORDS...                         F6B22083
       SXA     BLKWD,1        SAVE BLOCK WORD COUNT.                    F6B22084
 LINES AXT     **,4           BUMP                                      F6B22085
       TXI     *+1,4,1        BLOCK                                     F6B22086
       SXA     *-2,4          LINE COUNT.                               F6B22090
       TXL     NOWRT,4,4      IS BLOCK READY TO BE WRITTEN              F6B22093
       TSX     WRBLK,4        WRITE BLOCK                               F6B22100
 NOWRT NZT    XSWCH3          IS ON-LINE PRINT REQUESTED...             F6B22107
       TRA     *+3                                                      F6B22108
PRINT  TSX    (PRNT),4        *PRINT LINE ON-LINE                       F6B22109
       PZE     **,,**                                                   F6B22110
WRT2X  AXT     **,4                                                     F6B22111
       AXT     **,1           RELOAD WORD COUNT THUS FAR.               F6B22112
       AXT     **,2                                                     F6B22113
       TRA     2,4                                                      F6B22114
       REM                                                              F6B22114
       REM     ROUTINE TO WRITE BLOCK                                   F6B22114
 WRBLK SXA     WRBLX,4        SAVE CALLING LINKAGE                      F6B22114
       LAC     BLKWD,1       SET                                        F6B22115
       PXD     ,1            UP                                         F6B22116
       STD     WRTCM,2        I/O COMMAND WORD COUNT.                   F6B22117
       TSX     (TAPE),4       WRITE OFF LINE OR BLOCK.                  F6B2211A
       PZE     WRTCM,2,(WDNP) I/O COMMAND INDEXED,DOUBLE BUFFER.        F6B2211B
WRITT  PZE     ,,MLSTAP                                                 F6B2211C
       AXC     1,2            FLIP BUFFER INDEX                         F6B2211D
       SXA     *-1,2                                                    F6B2211E
       CAL*    ORGLCT         BUMP LINE COUNT.                          F6B2211I
       ADM     LINES                                                    F6B2211J
       STA*    ORGLCT                                                   F6B2211K
       CLA    XLSTCT          BUMP LISTING TAPE POSITION               $F6B2211L
       SBM     LINES          COUNTER.                                  F6B2211M
       STA    XLSTCT                                                    F6B2211N
       ZSA     BLKWD          RESET BLOCK WORD COUNT.                   F6B2211O
       ZSA     LINES          RESET BLOCK LINE COUNT.                   F6B2211P
 WRBLX AXT     **,4                                                     F6B2211Q
       TRA     1,4                                                      F6B2211R
       REM     ROUTINE TO WRITE FINAL BLOCK                             F6B2211R
 WFBLK SXA     WFBLX,4        SAVE CALLING LINKAGE                      F6B22120
       LXA     BLKWD,1        LOAD BLOCK WORD COUNT                     F6B2212A
       TXL     WFBLX,1,0      IS BLOCK EMPTY                            F6B2212C
       LAC     WRITT+1,2      NO, PICK UP FLIPPER                       F6B2212E
       CAL     FRCMK          PLACE FINAL RECORD MARK AFTER             F6B2212G
       SLW*    WRTCM+1,2      LAST LINE OF LISTING                      F6B2212J
       TXI     *+1,1,-1       BUMP BLOCK LINE COUNT                     F6B2212L
       SXA     BLKWD,1        AND SAVE IT                               F6B2212N
       TSX     WRBLK,4        WRITE BLOCK                               F6B2212P
 WFBLX AXT     **,4           RETURN                                    F6B2212R
       TRA     1,4                                                      F6B2212T
       REM                                                              F6B2212X
       REM     SPACE PAGE ON LINE                                       F6B2212Z
 SPACP TSX    (PRNT),4       *SPACE PAGE UP TWO LINES                   F6B22130
       PZE     SPACE,,1                                                 F6B22140
       TSX    (PRNT),4       *SPACE PAGE UP TWO MORE LINES              F6B22150
       PZE     SPACE,,1                                                 F6B22160
       HPR                                                              F6B22162
       TRA     1,2                                                      F6B22170
       REM                                                              F6B22180
       REM     GENERATE COLUMN BCD CARD SERIALIZATION (CC 73 - 80)      F6B22190
       REM     TWO WORDS (SIX CHAR) NAME, ONE WORD (TWO DIGIT) SERIAL   F6B22200
       REM     THIS SUBROUTINE IS LIMITED TO ALPHANUMERIC CHARACTERS    F6B22210
       REM     BLANKS WILL BE CONVERTED TO ZERO (OCT 12 WILL BE BLANK)  F6B22220
 IDENT SXA     IDENX,4        SAVE CALLING LINKAGE                      F6B22230
       AXT     1,4            SET CHARACTER COUNT TO LEFTMOST CHARACTER F6B22240
       ZAC                                                              F6B22250
       LGL     2              GET ZONE                                  F6B22260
       PAX     ,2             INTO XR2                                  F6B22270
       ZAC                                                              F6B22280
       LGL     4              GET DIGITS                                F6B22290
       PAX     ,1             INTO XR1                                  F6B22300
       CAL     ZONER,2        PICK UP ZONE BITS (12, 11, 0)             F6B22310
       ANA     L(7)           MASK IN NO ZONE                           F6B22320
       ALS     9              POSITION ZONE BITS                        F6B22330
       ORA     DIGIT,1        PICK UP DIGIT BITS (0,1,2,3,4,5,6,7,8,9)  F6B22340
       SLW     BMPBF+9,4      INSERT NEXT CHARACTER                     F6B22350
       TXI     *+1,4,1        BUMP CHARACTER COUNT RIGHT ONE CHARACTER  F6B22360
       TXL     IDENT+2,4,8    HAVE 8 CHARACTERS BEEN CREATED (CC 73-80) F6B22370
       TSX     PAKID,4       *YES, INSERT THEM IN LABEL                 F6B22380
 IDENX AXT     **,4           RELOAD CALLING LINKAGE                    F6B22390
       TRA     1,4                                                      F6B22400
       EJECT                                                            F6B22405
       REM                                                              F6B22410
       REM                                                              F6B22411
       REM     ROUTINE TO POSITION THE SYSTEM TAPE**********************F6B22412
 SYSPS SXA     SYSPX,4        SAVE CALLING LINK.                        F6B22413
       CAL     1,4            PICK UP PARAMETER FOR TAPE POSITIONING    F6B22414
       STA     *+2                                                      F6B22415
       TSX    (TAPE),4       *REPOSITION SYSTEM TAPE.                   F6B22416
       PZE     **,,(SKBP)                                               F6B22417
       PZE     ,,SYSTAP                                                 F6B22418
 SYSPX AXT     **,4           RETURN TO CALLER.                         F6B22419
       TRA     2,4                                                      F6B2241A
       REM                                                              F6B2241B
       REM     CONSTANTS TO POSITION THE SYSTEM TAPE                    F6B2241C
 REPS1 MZE     3,,**          REPOSITION LIBE TAPE AT END OF RECORD 31  F6B2241D
 REPS2 MZE     0,,1           BACKSPACE SYSTEM TAPE OVER SECOND FILE    F6B2241E
 BKSPC MZE     1,,0                                                     F6B2241H
 SCNBS MZE     7,,0           REPOSITION SYSTEM TAPE TO MONITOR SCAN    F6B2241I
       REM     (BACKSPACE OVER 9A, SPERR 9, MERR8, LIBE SEARCH 7A,      F6B2241J
       REM     BSS CONTROL 7, DEBUG 6A, SCAN 6.                         F6B2241K
 BKS2F MZE     ,,2                                                      F6B2241M
 UNLOD MZE     ,,-1                                                     F6B2241O
       REM     CHANGE REPS2 TO PZE 0,,-1 TO REWIND SYSTEM TAPE. CHANGE  F6B2241P
       REM     SCNBS TO PZE 6,,0 TO SPACE FORWARD OVER 1TOCS (IOP),     F6B2241Q
       REM     CTSM, SIGN-ON, DUMP, FAP 4-5.                            F6B2241R
       REM                                                              F6B2241S
       REM                                                              F6B2241T
       EJECT                                                            F6B2241U
       REM     INSERT BINARY WORD INTO CARD IMAGE BUFFER AND WRITE OFF  F6B22420
       REM     FULL CARDS ON BINARY TAPE 3. PUNCH ON LINE IF REQUIRED   F6B22430
 PUNCH SXA     PNCHX,4        SAVE CALLING LINKAGE                      F6B22440
       AXT     **,4           LOAD RELOCATION BIT COUNT                 F6B22450
       AXT     **,2           LOAD CARD WORD COUNT                      F6B22460
       SLW     PCH9L+24,2     INSERT WORD IN PUNCH BUFFER               F6B22470
       TXI     *+1,4,2        SET DECR, ADDR, NOT RELOCAT (BITS = 00)   F6B22480
       LDQ     RLBIT          GET RELOCATION BITS                       F6B22490
       CLA     L(1)           IS ADDRESS RELOCATABLE                    F6B22500
       TLQ     PNCH1          NO                                        F6B22510
       TXI     *+1,4,1        YES, BUMP BIT COUNT FOR RELOCATION BITS   F6B22520
       ZAC                    (BITS = 010 OR 011)                       F6B22530
       LGL     72,4           POSITION BITS IN LEFT WORD                F6B22540
       ORS     PCH8L          IF BIT COUNT IS LESS THAN 36              F6B22550
       LGL     36             POSITION BITS IN RIGHT WORD               F6B22560
       ORS     PCH8R          IF BIT COUNT IS GREATER THAN 36           F6B22570
 PNCH1 SXA     PUNCH+1,4      SAVE RELOCATION BIT COUNT                 F6B22580
       TIX     BMPI2,2,1      IS CARD IMAGE FULL                        F6B22590
       TXI     PCHLC+1,2,19   YES, SET WORD COUNT TO 20                 F6B22600
       REM     PUNCH LAST CARD                                          F6B22610
 PCHLC SXA     PNCHX,4        SAVE CALLING LINKAGE                      F6B22620
       SXD     PCH9L,2        INSERT CARD WORD COUNT IN 9L DECREMENT    F6B22630
       LXD     PCH9L,4                                                  F6B22640
       TXI     *+1,4,2       BUMP CARD WORD COUNT TO FULL CARD         $F6B22650
       TXI     PCHPC+3,2,2                                             $F6B22651
       REM     PUNCH NON RELOCATABLE CARD                               F6B22660
 PCHPC SXA     PNCHX,4        SAVE CALLING LINKAGE                      F6B22670
       SXD     PCH9L,2        SET CARD WORD COUNT IN 9L DECREMENT       F6B22680
       LXD     PCH9L,4                                                  F6B22690
       TXI     *+1,2,PCH8L    GET ORIGIN AT END OF CARD                 F6B22700
       SXA     *+2,2          INITIALIZE CHECKSUM COMPUTATION           F6B22710
       CAL     PCH9L          PICK UP 9 LEFT                            F6B22720
       ACL     **,4           ADD IN REST OF CARD                       F6B22730
       TIX     *-1,4,1        IS CHECKSUM COMPLETE                      F6B22740
       TRA     AAAAA          GO TO PATCH                              *F6B22750
       REM     PUNCH LIBRARY DATA CARD                                  F6B22810
 PCHLD SXA     PNCHX,4        SAVE CALLING LINKAGE                      F6B22820
       STL     CBSWT                                                   $F6B22821
 PNCH2 AXC     1,1            LOAD BUFFER INDEX                         F6B22830
       SXA     *-1,1          FLIP BUFFER INDEX                         F6B22836
       AXT     24,4           LOAD BUFFER LENGTH                        F6B22838
       CAL     PCH9L+24,4     MOVE CARD IMAGE                           F6B22840
       SLW*    BOTBF,1        INTO MONITOR OUTPUT BUFFER                F6B22842
       SLW*    BITBF,1        AND INTERMEDIATE OUTPUT BUFFER            F6B22844
       TIX     *-3,4,1                                                  F6B22848
       AXT     3,4            LOAD ID LENGTH                            F6B22850
       CAL     IDBUF+3,4      MOVE ID                                   F6B22852
       SLW*    BOTBF+1,1      INTO MONITOR OUTPUT BUFFER                F6B22854
       TIX     *-2,4,1                                                  F6B22856
 PNCH3 TXL     PNCH8,4,-1     IS MONITOR OUTPUT REQUIRED                F6B22858
       CAL     OFLCB          YES, INSERT COLUMN BINARY BITS            F6B22860
       ORS*    BOTCB,1        INTO 9L                                   F6B22862
       NZT     CBSWT         ARE BITS IN CHECKSUM                      $F6B22863
       TRA     *+3           NO                                        $F6B22864
       STZ     CBSWT         YES                                       $F6B22865
       TRA     PNCH7                                                   $F6B22866
       ACL*    BOTCB+1,1     ADD INTO CHECKSUM                         $F6B22867
       ZET*    BOTCB+1,1     IS THERE A CHECKSUM                       $F6B22868
       SLW*    BOTCB+1,1     YES, INSERT INTO 9R                       $F6B22869
       TRA     PNCH7                                                    F6B22870
 CBSWT PZE                   NONZERO IF COL BIN BITS ALREADY IN CKSUM  $F6B22871
       REM     ERROR ON MONITOR BINARY OUTPUT TAPE                      F6B22872
 PNCH4 TSX    (TAPE),4       *WRITE END FILE ON STACK TAPE              F6B22874
       PZE     ,,(WEFP)                                                 F6B22876
       PZE     ,,MBNTAP                                                 F6B22878
       MZE     *+1                                                      F6B22880
       TSX    (TAPE),4       *WRITE ANOTHER                             F6B22882
       PZE     ,,(WEFP)                                                 F6B22884
       PZE     ,,MBNTAP                                                 F6B22886
       MZE     *+1                                                      F6B22888
       TSX    (TAPE),4       *UNLOAD STACK TAPE                         F6B22900
       PZE     UNLOD,,(SKBP)                                            F6B22902
       PZE     ,,MBNTAP                                                 F6B22904
       LDI*   ORGFLG          LOAD MONITOR FLAGS                        F6B22906
       AXT     5,4            PREPARE TO PRINT 'CHANGE TAPE'            F6B22908
       RNT     000200         IS EXECUTION REQUESTED                    F6B22910
       TRA     PNCH5+2        NO                                        F6B22912
       RIR     000200         YES, RESET EXECUTION FLAG                 F6B22914
       SXD     EOF07,0        SET EXECUTION DELETED SWITCH              F6B22916
       RNT     100000         DOES EXECUTION FOLLOW THIS COMPILE        F6B22918
       TRA     PNCH5          NO                                        F6B22920
       RIR     100000         YES, RESET FLAG                           F6B22922
       TSX     SYSPS,4       *REPOSITION SYSTEM TAPE                    F6B22924
       PZE     REPS2          BEFORE FIRST FILE.                        F6B22926
 PNCH5 STI*   ORGFLG          RESET FLAGS                               F6B22930
       AXT     9,4            APPEND 'EXECUTION DELETED'                F6B22932
       REM     REENTRY FOR NO EXECUTION                                 F6B22934
       SXD     *+2,4          INITIALIZE I/O PARAMETER WORD COUNT       F6B22936
       TSX    (PRNT),4       *PRINT 'CHAHGE TAPE/EXECUTION DELETED'     F6B22938
       PZE     DLXEM,,**                                                F6B22940
       TSX     SPACP,2       *SPACE PAGE                                F6B22942
       LAC     PNCH2,2        LOAD INDEX OF BUFFER IN ERROR             F6B22944
       TSX    (TAPE),4       *REWRITE ERROR RECORD                      F6B22946
 PNCH6 PZE     BOTIO,2,(WBNP) (RESET TO WROW FOR ROW BINARY)            F6B22948
       PZE     ,,MBNTAP                                                 F6B22950
       PZE     PNCH4                                                    F6B22952
       CLA     L(1)           RESET COUNT OF BINARY CARDS OUTPUT        F6B22954
       STA    XCRDCT                                                    F6B22956
       REM     STACK BINARY OUTPUT                                      F6B22958
 PNCH7 TSX    (TAPE),4       *WRITE MONITOR BINARY OUTPUT TAPE          F6B22960
       PZE     BOTIO,1,(WBNP) (RESET TO WROW FOR ROW BINARY)            F6B22962
       PZE     ,,MBNTAP                                                 F6B22964
       PZE     PNCH4                                                    F6B22966
       CAL    XCRDCT          BUMP MONITOR BINARY OUTPUT RECORD COUNT   F6B22968
       ADD     L(1)                                                     F6B22970
       STA    XCRDCT                                                    F6B22972
       REM     WRITE SINGLE COMPILE/PUNCH INTERMEDIATE TAPE             F6B22974
 PNCH8 TXL     PNCH9,4,-1     IS SINGLE COMPILE/ONLINE PUNCH REQUESTED  F6B22976
       CAL     BITBF          YES, INSERT COLUMN BINARY BITS            F6B22978
       ORS*    BITCB,1        INTO 9L                                   F6B22980
       ACL*    BITCB+1,1      AND INTO CHECKSUM                         F6B22982
       ZET*    BITCB+1,1      IS THERE A CHECKSUM                       F6B22984
       SLW*    BITCB+1,1      YES, INSERT INTO 9R                       F6B22986
       TSX    (TAPE),4       *WRITE BINARY INTERMEDIATE TAPE            F6B22988
       PZE     BITIO,1,(WBNP)                                           F6B22990
       PZE     ,,SBNTAP                                                 F6B22992
       PZE     *+2                                                      F6B22994
       TRA     PNCH9                                                    F6B22996
       REM     ERROR ON BINARY INTERMEDIATE TAPE                        F6B22998
       TSX    (TAPE),4       *REWIND INTERMEDIATE TAPE                  F6B23000
       PZE     REWND,,(SKBP)                                            F6B23002
       PZE     ,,SBNTAP                                                 F6B23004
       TSX    (PRNT),4       *PRINT 'ONLINE CARDS DELETED'              F6B23006
       PZE     DELOL,,14                                                F6B23008
       TSX     SPACP,2       *SPACE PAGE                                F6B23010
       AXT     -1,2           RESET SWITCH                              F6B23012
       SXD     PNCH8,2                                                  F6B23014
       SXA    XSWCH1,2        RESET ONLINE CARDS SWITCH SETTING         F6B23016
       REM     REENTRY FOR NO SINGLE COMPILE/PUNCH INTERMEDIATE TAPE    F6B23018
 PNCH9 SXA     PUNCH+1,0      RESET RELOCATION BIT COUNT                F6B23020
       CLA     PCH9L          BUMP LOAD POINT FOR NEXT CARD             F6B23030
       ADD     L(20)                                                    F6B23040
       STA     PCH9L                                                    F6B23050
       AXT     23,4           CLEAR PUNCH BUFFER 9R, 8-12 ROWS          F6B23060
       STZ     PCH9L+24,4                                               F6B23070
       TIX     *-1,4,1                                                  F6B23080
       AXT     8,4            PREPARE TO BUMP 8 DIGITS (CC 73-80)       F6B23090
 BMPI0 CAL     BMPBF+9,4      LOAD NEXT MORE SIGNIFICANT CHARACTER      F6B23100
       PAI                                                              F6B23110
       RFT     6000           IS IT NONNUMERIC                          F6B23120
       TRA     BMPI1+2        YES                                       F6B23130
       RNT     1000           MAYBE, IS THERE A ZERO PUNCH              F6B23140
       TRA     *+3            NO                                        F6B23150
       RFT     0777           YES, ARE THERE ANY DIGIT PUNCHES          F6B23160
       TRA     BMPI1+2        YES                                       F6B23170
       RNT     0001           NO, IS THE DIGIT 9                        F6B23180
       TRA     BMPI1          NO                                        F6B23190
       CAL     DIGIT          YES, PICK UP ZERO                         F6B23200
       SLW     BMPBF+9,4      RESET THIS ORDER DIGIT                    F6B23210
       TIX     BMPI0,4,1      HAVE ALL DIGITS BEEN RESET                F6B23220
       TRA     BMPI1+2        YES                                       F6B23230
 BMPI1 ARS     1              BUMP LAST DIGIT BY ONE                    F6B23240
       SLW     BMPBF+9,4                                                F6B23250
       TSX     PAKID,4       *INSERT NEW SERIALS IN LABEL               F6B23260
       AXT     20,2           RESET WORD COUNT TO 20 INSTRUCTIONS       F6B23270
 BMPI2 SXA     PUNCH+2,2      SAVE CARD WORD COUNT                      F6B23280
 PNCHX AXT     **,4           RELOAD CALLING LINKAGE                    F6B23290
       TRA     1,4                                                      F6B23292
       REM                                                              F6B23296
       REM     ROUTINE TO WRITE OFF-LINE ROW BINARY BSS LOADER          F6B23300
 BSSCD SXA     BSSCX,4        SAVE CALLING LINK                         F6B23301
       LDQ     BSSNM          PREPARE                                   F6B23302
 PCBSS TSX     IDENT,4        LABEL.                                    F6B23304
       TSX    (TAPE),4        WRITE CARD FOR ROW BINARY BSS LOADER.     F6B23306
       MZE     LODIO,,(WROW)                                            F6B23308
       PZE     ,,MBNTAP                                                 F6B2330A
       PZE     *+1            IGNORE ERROR IN WRITING BSS LOADER OFFLINEF6B2330B
       LXA     LODIO,4        BUMP ADDRESS OF                           F6B2330C
       TXI     *+1,4,24       I/O COMMAND                               F6B2330E
       SXA     LODIO,4        UP THROUGH BSS CODING.                    F6B2330F
       CLA     IDBUF+2                                                  F6B2330G
       ERA     P(1)           BUMP SERIAL                               F6B2330G
       ARS     1              OF                                        F6B2330H
       STD     IDBUF+2        THE                                       F6B2330H
       STT     IDBUF+2        9 CARD                                    F6B2330H
       STA     IDBUF+2        BSS LOADER.                               F6B2330I
       TNX     PCBSS+1,4,ENDLD-25   IS END OF BSS REACHED..             F6B2330J
       SXD     LODIO,4        ALMOST, RESET WORD COUNT,                 F6B2330K
       TXL     PCBSS+1,4,24   DROP THROUGH AFTER LAST CARD.             F6B2330L
       CLA    XCRDCT          BUMP MONITOR BINARY OUTPUT                F6B2330N
       ADD     L(9)           RECORD COUNT                              F6B2330N
       STO    XCRDCT                                                    F6B2330N
 BSSCX AXT     **,4           RETURN                                    F6B2330O
       TRA     1,4                                                      F6B2330R
 LODIO IOCP    LOADR,,24      I/O COMMAND FOR LOADER AND                F6B2330T
       IOCT    IDBUF,,3      LABEL.                                    $F6B2330V
       REM                                                              F6B23310
       REM     ROUTINE TO PUNCH OFF-LINE ROW BINARY TRANSFER CARD       F6B23311
 PCHTC SXA     PCTCX,4                                                  F6B23312
       AXT     23,4           CLEAR                                     F6B23313
       STZ     PCH9L+23,4     BUFFER FOR                                F6B23314
       TIX     *-1,4,1        TRANSFER CARD.                            F6B23315
       CAL     P(4)           SET 4 PREFIX IN 9L                        F6B23316
       SLW     PCH9L                                                    F6B23317
       CAL     ZLABL          SET UP ZZZZZZZZ LABEL                     F6B23318
       SLW     PCH9L+24       FOR                                       F6B23319
       SLW     PCH9L+25       SORT                                      F6B2331A
       SLW     PCH9L+26       ORDERING.                                 F6B2331C
       TSX    (TAPE),4        WRITE LABELED TRANSFER CARD               F6B2331E
       MZE     TCCOM,,(WROW)  OFF-LINE                                  F6B2331G
       PZE     ,,MBNTAP                                                 F6B2331H
 PCTCX AXT     **,4           RETURN                                    F6B2331L
       TRA     1,4                                                      F6B2331N
 TCCOM IOCP    PCH9L,,24      I/O COMMANDS FOR TRANSFER CARD            F6B2331O
       IOCT    PCH9L+24,,3   AND LABEL.                                $F6B2331P
       REM                                                              F6B2331Q
 BMPBF DEC     ,,,,,,,,                                                 F6B23320
       REM                                                              F6B23330
       IOCP    PBUF1,,24      I/O COMMAND TO WRITE STACKED BINARY OUTPUTF6B23340
 BOTIO IOCT    PBUF1+24,,3   I/O COMMAND TO WRITE STACKED BINARY ID    $F6B23350
       IOCP    PBUF2,,24                                                F6B23360
       IOCT    PBUF2+24,,3                                             $F6B23370
       REM                                                              F6B23380
       PZE     PBUF1+24,4     ORIGIN OF STACKED BINARY OUTPUT BUFFER    F6B23390
 BOTBF PZE     PBUF1+27,4     ORIGIN OF STACKED BINARY ID BUFFER        F6B23400
       PZE     PBUF2+24,4                                               F6B23410
       PZE     PBUF2+27,4                                               F6B23420
       REM                                                              F6B23430
       PZE     PBUF1          STACKED BINARY 9L                         F6B23440
 BOTCB PZE     PBUF1+1        STACKED BINARY 9R                         F6B23450
       PZE     PBUF2                                                    F6B23460
       PZE     PBUF2+1                                                  F6B23470
       REM                                                              F6B23480
 OFLCB PZE     ,,320          STACKED BINARY CB BITS                    F6B23490
       REM                                                              F6B23500
       IOCP    PBUF3,,24      I/O COMMAND TO WRITE PUNCH BINARY OUTPUT  F6B23510
 BITIO TCH     BOTIO          I/O COMMAND TO WRITE PUNCH BINARY ID      F6B23520
       IOCP    PBUF4,,24                                                F6B23530
       TCH     BOTIO+2                                                  F6B23540
       REM                                                              F6B23550
       PZE     PBUF3+24,4     ORIGIN OF PUNCH BINARY OUTPUT BUFFER      F6B23560
 BITBF PZE     ,,320          PUNCH COLUMN BINARY BITS                  F6B23570
       PZE     PBUF4+24,4                                               F6B23580
       REM                                                              F6B23590
       PZE     PBUF3          PUNCH BINARY 9L                           F6B23600
 BITCB PZE     PBUF3+1        PUNCH BINARY 9R                           F6B23610
       PZE     PBUF4                                                    F6B23620
       PZE     PBUF4+1                                                  F6B23630
       REM                                                              F6B23640
       REM                                                              F6B23710
       REM     INSERT NEW SERIALS IN LABEL                              F6B23720
 PAKID SXA     PAKIX,4        SAVE CALLING LINKAGE                      F6B23730
       AXT     3,4            PREPARE TO GENERATE 3 ID WORDS            F6B23740
       AXT     0,2            PREPARE TO PACK 3 CHARACTERS IN EACH WORD F6B23750
       CAL     BMPBF+8,2      PACK LEFTMOST CHARACTER                   F6B23760
       ALS     12                                                       F6B23770
       ACL     BMPBF+7,2      CENTERMOST CHARACTER                      F6B23780
       ALS     12                                                       F6B23790
       ACL     BMPBF+6,2      RIGHTMOST CHARACTER                       F6B23800
       SLW     IDBUF+3,4      IN NEXT WORD                              F6B23810
       TXI     *+1,2,3        BUMP CHARACTER COUNT RIGHT 3 CHARACTERS   F6B23820
       TIX     PAKID+3,4,1    HAVE THREE WORDS BEEN PACKED              F6B23830
 PAKIX AXT     **,4           YES, RELOAD CALLING LINKAGE               F6B23840
       TRA     1,4                                                      F6B23850
       REM                                                              F6B23860
       REM                                                              F6B23870
       REM     CONSTANTS                                                F6B23880
       REM                                                              F6B23890
 OPLST PZE     ,,4                                                      F6B23900
       DUP     1,5            EXPANSION SPACE FOR ADDITIONAL PSEUDOOPS  F6B23910
       BCI     1,000000                                                 F6B23920
       BCI     1,OCT000                                                 F6B23930
 BCDOP BCI     1,BCD000                                                 F6B23940
       BCI     1,BSS000                                                 F6B23950
       BCI     1,SYN000                                                 F6B23960
       REM                                                              F6B23970
       REM     BIT GENERATORS TO CREATE COLUMN BCD                      F6B23980
 L(0)  PZE     0                                                        F6B23990
 L(1)  PZE     1              9 BIT    0 ZONE                           F6B24000
 L(2)  PZE     2              8 BIT   11 ZONE                           F6B24010
 L(4)  PZE     4              7 BIT   12 ZONE                           F6B24020
 ZONER SYN     *                                                        F6B24030
 L(8)  PZE     8              6 BIT   NO ZONE                           F6B24040
 PLUSS SYN     *                                                        F6B24050
 L(16) PZE     16             5 BIT                                     F6B24060
 MINUS SYN     *                                                        F6B24070
       PZE     32             4 BIT                                     F6B24080
       PZE     64             3 BIT                                     F6B24090
       PZE     128            2 BIT                                     F6B24100
       PZE     256            1 BIT                                     F6B24110
 DIGIT PZE     512            0 BIT                                     F6B24120
       REM                                                              F6B24130
 L(3)  PZE     3                                                        F6B24140
 L(7)  PZE     7                                                        F6B24150
 L(9)  PZE     9                                                        F6B24155
 L(10) PZE     10                                                       F6B24160
 L(20) PZE     20                                                       F6B24170
 CHMSK PZE     63             MASK TO ISOLATE SIX BIT CHARACTER         F6B24180
 L(100 PZE     100                                                      F6B24190
 ADMSK PZE     -1                                                       F6B24200
 T(1)  PZE     ,1                                                       F6B24210
 T(2)  PZE     ,2                                                       F6B24220
 T(7)  PZE     ,7                                                       F6B24230
 D(1)  PZE     ,,1                                                      F6B24240
 D(2)  PZE     ,,2                                                      F6B24250
 D(3)  PZE     ,,3                                                      F6B24260
 D(4)  PZE     ,,4                                                      F6B24270
 D(22) PZE     ,,22                                                     F6B24280
 REWND PZE     ,,-1                                                     F6B24290
 P(1)  PON                                                              F6B24300
 P(2)  PTW                                                              F6B24310
 P(4)  FOR                                                              F6B24320
 P(6)  SIX                                                              F6B24330
 OPMSK SVN     ,,-1                                                     F6B24340
       PZE     1,,0                                                     F6B24350
       PZE     2,,1                                                     F6B24360
 PADTG PZE     4,,2                                                     F6B24370
       REM                                                              F6B24380
 FCARD IOCP    ZEROB,,24                                                F6B24670
       IOCT    IDBUF,,3                                                 F6B24680
 LIBIO IOCP    PCH9L,,2                                                 F6B24690
       IORT    **,,LIBS1-PCH8L-2                                        F6B24700
       IORT    BUFF2+1,,14                                              F6B24710
       IORT    BUFF1+1,,14                                              F6B24720
 FFILI IORT    BUFF2+1,,14                                              F6B24730
       IOCT    BLKBF,,**     I/O COMMANDS                              $F6B24737
WRTCM  PZE     BLKBF,1        AND BUFFERS TAGGED FOR                    F6B24738
       IOCT    BLKBF+104,,** DOUBLE BUFFERING                          $F6B24739
       PZE     BLKBF+104,1    OF LISTING TAPE                           F6B24740
 RECMK OCT     606060606072   RECORD MARK FOR BLOCKED RECORDS.          F6B24741
 FRCMK OCT     606060607260   FINAL RECORD MARK FOR BLOCKED RECORDS.    F6B24742
 EXENM BCI     1,(EXE)                                                  F6B24743
 EXEMN BCI     1,(EXEM)                                                 F6B24744
 BSSNM OCT     122262620000   LABEL FOR OFF-LINE BSS LOADER             F6B24745
 EJTIO IOCT    EJECT,,3                                                $F6B24746
 STLBL OCT     000000126263   LABEL TO PUNCH ABC ST00 IN SYMBOL TABLE   F6B24750
 ZLABL OCT     100110011001   LABEL TO PUNCH ZZZZZZZZ IN TRANSFER CARD  F6B24760
 L(C)  BCI     1,00000C                                                 F6B24770
 PAREN BCI     1,00000)                                                 F6B24780
 BLANK BCI     1,00000                                                  F6B24790
 COMMA BCI     1,00000,                                                 F6B24800
 OPARN BCI     1,00000(                                                 F6B24810
 SPACE BCI     1,0                                                      F6B24820
 EJECT BCI     1,1                                                      F6B24830
 BLNKS BCI     3,                                                       F6B24840
 L(SD) BCI     1,$                                                      F6B24850
 HASHS BCI     1,******                                                 F6B24860
 PROCT BCI     1,*                                                      F6B24870
 L9LBL BCI     1,     9                                                 F6B24880
 ELABL BCI     1,TEIFN6                                                 F6B24890
 FINPT BCI     1,FINPUT       LABEL FOR SOURCE PROGRAM (MONITOR MODE)   F6B24895
 PZEOP BCI     1,PZE000                                                 F6B24900
 SXDOP BCI     1,SXD000                                                 F6B24910
       BCI     1,CLA000                                                 F6B24920
       BCI     1,ADD000                                                 F6B24930
 PROOP BCI     1,STA000                                                 F6B24940
       BCI     1,000000                                                 F6B24950
       BCI     1,900000                                                 F6B24960
 PROSM BCI     1,000000                                                 F6B24970
       BCI     1,0 011                                                  F6B24980
       BCI     1,0 010                                                  F6B24990
       BCI     1,0 001                                                  F6B25000
 SPBIT BCI     1,0 00                                                   F6B25010
       BCI     9,00000V00000U00000T00000S00000R00000Q00000P00000O00000N F6B25020
       BCI     9,00000M00000L00000K00000J00000I00000H00000G00000F00000E F6B25030
       BCI     3,00000D00000C00000B                                     F6B25040
 ALPHA BCI     1,00000A                                                 F6B25050
       BCI     9,000009000008000007000006000005000004000003000002000001 F6B25060
 CHART BCI     1,000000                                                 F6B25070
 DLXEM BCI     9,0     CHANGE BINARY OUTPUT TAPE. EXECUTION DELETED     F6B25072
 DELOL BCI     9,0    SINGLE COMPILE BINARY OUTPUT TAPE/ONLINE CARDS DE F6B25074
       BCI     5,LETED. PUSH START TO CONTINUE.                         F6B25076
 ENDMS BCI     7,0     END SINGLE COMPILE, READY CARD READER            F6B25078
       REM                                                              F6B25080
       REM     DICTIONARY OF MACHINE OPERATION CODES                    F6B25090
 RGOPS PZE     SYMOP,2                                                  F6B25100
 RGABS PZE     ABSOP,2                                                  F6B25110
 OPRTL TXL     SOPR1,2,ABSOP-SYMOP                                      F6B25120
       BCI     1,ACL000                                                 F6B25130
       BCI     1,ADD000                                                 F6B25140
       BCI     1,ADM000                                                 F6B25150
       BCI     1,ALS000                                                 F6B25160
       BCI     1,ANA000                                                 F6B25170
       BCI     1,ANS000                                                 F6B25180
       BCI     1,ARS000                                                 F6B25190
       BCI     1,AXC000                                                 F6B25200
       BCI     1,AXT000                                                 F6B25210
       BCI     1,CAD000                                                 F6B25220
       BCI     1,CAL000                                                 F6B25230
       BCI     1,CAQ000                                                 F6B25240
       BCI     1,CAS000                                                 F6B25250
       BCI     1,CFF000                                                 F6B25260
       BCI     1,CHS000                                                 F6B25270
       BCI     1,CLA000                                                 F6B25280
       BCI     1,CLM000                                                 F6B25290
       BCI     1,CLS000                                                 F6B25300
       BCI     1,COM000                                                 F6B25310
       BCI     1,CPY000                                                 F6B25320
       BCI     1,CRQ000                                                 F6B25330
       BCI     1,CVR000                                                 F6B25340
       BCI     1,DCT000                                                 F6B25350
       BCI     1,DVH000                                                 F6B25360
       BCI     1,DVP000                                                 F6B25370
       BCI     1,ENB000                                                 F6B25380
       BCI     1,ENK000                                                 F6B25390
       BCI     1,ERA000                                                 F6B25400
       BCI     1,ETM000                                                 F6B25410
       BCI     1,FAD000                                                 F6B25420
       BCI     1,FAM000                                                 F6B25430
       BCI     1,FDH000                                                 F6B25440
       BCI     1,FDP000                                                 F6B25450
       BCI     1,FMP000                                                 F6B25460
       BCI     1,FOR000                                                 F6B25470
       BCI     1,FRN000                                                 F6B25480
       BCI     1,FSB000                                                 F6B25490
       BCI     1,FSM000                                                 F6B25500
       BCI     1,FVE000                                                 F6B25510
       BCI     1,HPR000                                                 F6B25520
       BCI     1,HTR000                                                 F6B25530
       BCI     1,IIA000                                                 F6B25540
       BCI     1,IIL000                                                 F6B25550
       BCI     1,IIR000                                                 F6B25560
       BCI     1,IIS000                                                 F6B25570
       BCI     1,IOT000                                                 F6B25580
       BCI     1,LAC000                                                 F6B25590
       BCI     1,LAS000                                                 F6B25600
       BCI     1,LBT000                                                 F6B25610
       BCI     1,LCA000                                                 F6B25620
       BCI     1,LDA000                                                 F6B25630
       BCI     1,LDC000                                                 F6B25640
       BCI     1,LDI000                                                 F6B25650
       BCI     1,LDQ000                                                 F6B25660
       BCI     1,LFT000                                                 F6B25670
       BCI     1,LGL000                                                 F6B25680
       BCI     1,LGR000                                                 F6B25690
       BCI     1,LLS000                                                 F6B25700
       BCI     1,LNT000                                                 F6B25710
       BCI     1,LRS000                                                 F6B25720
       BCI     1,LTM000                                                 F6B25730
       BCI     1,LXA000                                                 F6B25740
       BCI     1,LXD000                                                 F6B25750
       BCI     1,MON000                                                 F6B25760
       BCI     1,MPR000                                                 F6B25770
       BCI     1,MPY000                                                 F6B25780
       BCI     1,MSE000                                                 F6B25790
       BCI     1,MTH000                                                 F6B25800
       BCI     1,MTW000                                                 F6B25810
       BCI     1,MZE000                                                 F6B25820
       BCI     1,NOP000                                                 F6B25830
       BCI     1,NTR000                                                 F6B25840
       BCI     1,NZT000                                                 F6B25850
       BCI     1,OAI000                                                 F6B25860
       BCI     1,OFT000                                                 F6B25870
       BCI     1,ONT000                                                 F6B25880
       BCI     1,ORA000                                                 F6B25890
       BCI     1,ORS000                                                 F6B25900
       BCI     1,OSI000                                                 F6B25910
       BCI     1,PAC000                                                 F6B25920
       BCI     1,PAI000                                                 F6B25930
       BCI     1,PAX000                                                 F6B25940
       BCI     1,PBT000                                                 F6B25950
       BCI     1,PDC000                                                 F6B25960
       BCI     1,PDX000                                                 F6B25970
       BCI     1,PIA000                                                 F6B25980
       BCI     1,PON000                                                 F6B25990
       BCI     1,PSE000                                                 F6B26000
       BCI     1,PTH000                                                 F6B26010
       BCI     1,PTW000                                                 F6B26020
       BCI     1,PXA000                                                 F6B26030
       BCI     1,PXD000                                                 F6B26040
       BCI     1,PZE000                                                 F6B26050
       BCI     1,RCD000                                                 F6B26060
       BCI     1,RDR000                                                 F6B26070
       BCI     1,RDS000                                                 F6B26080
       BCI     1,RFT000                                                 F6B26090
       BCI     1,RIA000                                                 F6B26100
       BCI     1,RIL000                                                 F6B26110
       BCI     1,RIR000                                                 F6B26120
       BCI     1,RIS000                                                 F6B26130
       BCI     1,RLA000                                                 F6B26140
       BCI     1,RND000                                                 F6B26150
       BCI     1,RNT000                                                 F6B26160
       BCI     1,RQL000                                                 F6B26170
       BCI     1,   000                                                 F6B26180
       BCI     1,SBM000                                                 F6B26190
       BCI     1,SIL000                                                 F6B26200
       BCI     1,SIR000                                                 F6B26210
       BCI     1,SIX000                                                 F6B26220
       BCI     1,SLF000                                                 F6B26230
       BCI     1,SLN000                                                 F6B26240
       BCI     1,SLQ000                                                 F6B26250
       BCI     1,SLT000                                                 F6B26260
       BCI     1,SLW000                                                 F6B26270
       BCI     1,SSM000                                                 F6B26280
       BCI     1,SSP000                                                 F6B26290
       BCI     1,STA000                                                 F6B26300
       BCI     1,STD000                                                 F6B26310
       BCI     1,STI000                                                 F6B26320
       BCI     1,STL000                                                 F6B26330
       BCI     1,STO000                                                 F6B26340
       BCI     1,STP000                                                 F6B26350
       BCI     1,STQ000                                                 F6B26360
       BCI     1,STR000                                                 F6B26370
       BCI     1,STT000                                                 F6B26380
       BCI     1,STZ000                                                 F6B26390
       BCI     1,SUB000                                                 F6B26400
       BCI     1,SVN000                                                 F6B26410
       BCI     1,SWT000                                                 F6B26420
       BCI     1,SXA000                                                 F6B26430
       BCI     1,SXD000                                                 F6B26440
       BCI     1,TAF000                                                 F6B26450
       BCI     1,TCH000                                                 F6B26460
       BCI     1,TIF000                                                 F6B26470
       BCI     1,TIO000                                                 F6B26480
       BCI     1,TIX000                                                 F6B26490
       BCI     1,TLQ000                                                 F6B26500
       BCI     1,TMI000                                                 F6B26510
       BCI     1,TNO000                                                 F6B26520
       BCI     1,TNX000                                                 F6B26530
       BCI     1,TNZ000                                                 F6B26540
       BCI     1,TOV000                                                 F6B26550
       BCI     1,TPL000                                                 F6B26560
       BCI     1,TQO000                                                 F6B26570
       BCI     1,TQP000                                                 F6B26580
       BCI     1,TRA000                                                 F6B26590
       BCI     1,TSX000                                                 F6B26600
       BCI     1,TTR000                                                 F6B26610
       BCI     1,TXH000                                                 F6B26620
       BCI     1,TXI000                                                 F6B26630
       BCI     1,TXL000                                                 F6B26640
       BCI     1,TZE000                                                 F6B26650
       BCI     1,UAM000                                                 F6B26660
       BCI     1,UFA000                                                 F6B26670
       BCI     1,UFM000                                                 F6B26680
       BCI     1,UFS000                                                 F6B26690
       BCI     1,USM000                                                 F6B26700
       BCI     1,VDH000                                                 F6B26710
       BCI     1,VDP000                                                 F6B26720
       BCI     1,VLM000                                                 F6B26730
       BCI     1,WDR000                                                 F6B26740
       BCI     1,WRS000                                                 F6B26750
       BCI     1,WTV000                                                 F6B26760
       BCI     1,XCA000                                                 F6B26770
       BCI     1,XCL000                                                 F6B26780
       BCI     1,XEC000                                                 F6B26790
       BCI     1,XIT000                                                 F6B26800
       BCI     1,ZET000                                                 F6B26810
 SYMOP SYN     *                                                        F6B26820
       ACL                                                              F6B26830
       ADD                                                              F6B26840
       ADM                                                              F6B26850
       ALS                                                              F6B26860
       ANA                                                              F6B26870
       ANS                                                              F6B26880
       ARS                                                              F6B26890
       AXC                                                              F6B26900
       AXT                                                              F6B26910
       CAD                                                              F6B26920
       CAL                                                              F6B26930
       CAQ                                                              F6B26940
       CAS                                                              F6B26950
       CFF                                                              F6B26960
       CHS                                                              F6B26970
       CLA                                                              F6B26980
       CLM                                                              F6B26990
       CLS                                                              F6B27000
       COM                                                              F6B27010
       CPY                                                              F6B27020
       CRQ                                                              F6B27030
       CVR                                                              F6B27040
       DCT                                                              F6B27050
       DVH                                                              F6B27060
       DVP                                                              F6B27070
       ENB                                                              F6B27080
       ENK                                                              F6B27090
       ERA                                                              F6B27100
       ETM                                                              F6B27110
       FAD                                                              F6B27120
       FAM                                                              F6B27130
       FDH                                                              F6B27140
       FDP                                                              F6B27150
       FMP                                                              F6B27160
       FOR                                                              F6B27170
       FRN                                                              F6B27180
       FSB                                                              F6B27190
       FSM                                                              F6B27200
       FVE                                                              F6B27210
       HPR                                                              F6B27220
       HTR                                                              F6B27230
       IIA                                                              F6B27240
       IIL                                                              F6B27250
       IIR                                                              F6B27260
       IIS                                                              F6B27270
       IOT                                                              F6B27280
       LAC                                                              F6B27290
       LAS                                                              F6B27300
       LBT                                                              F6B27310
       LCHA                   (LCA)                                     F6B27320
       LDA                                                              F6B27330
       LDC                                                              F6B27340
       LDI                                                              F6B27350
       LDQ                                                              F6B27360
       LFT                                                              F6B27370
       LGL                                                              F6B27380
       LGR                                                              F6B27390
       LLS                                                              F6B27400
       LNT                                                              F6B27410
       LRS                                                              F6B27420
       LTM                                                              F6B27430
       LXA                                                              F6B27440
       LXD                                                              F6B27450
       MON                                                              F6B27460
       MPR                                                              F6B27470
       MPY                                                              F6B27480
       MSE                                                              F6B27490
       MTH                                                              F6B27500
       MTW                                                              F6B27510
       MZE                                                              F6B27520
       NOP                                                              F6B27530
       NTR                    (TXI)                                     F6B27540
       NZT                                                              F6B27550
       OAI                                                              F6B27560
       OFT                                                              F6B27570
       ONT                                                              F6B27580
       ORA                                                              F6B27590
       ORS                                                              F6B27600
       OSI                                                              F6B27610
       PAC                                                              F6B27620
       PAI                                                              F6B27630
       PAX                                                              F6B27640
       PBT                                                              F6B27650
       PDC                                                              F6B27660
       PDX                                                              F6B27670
       PIA                                                              F6B27680
       PON                                                              F6B27690
       PSE                                                              F6B27700
       PTH                                                              F6B27710
       PTW                                                              F6B27720
       PXA                                                              F6B27730
       PXD                                                              F6B27740
       PZE                                                              F6B27750
       RCDA                   (RCD)                                     F6B27760
       RDR                                                              F6B27770
       RDS                                                              F6B27780
       RFT                                                              F6B27790
       RIA                                                              F6B27800
       RIL                                                              F6B27810
       RIR                                                              F6B27820
       RIS                                                              F6B27830
       RCHA                   (RLA)                                     F6B27840
       RND                                                              F6B27850
       RNT                                                              F6B27860
       RQL                                                              F6B27870
                              (BLANK)                                   F6B27880
       SBM                                                              F6B27890
       SIL                                                              F6B27900
       SIR                                                              F6B27910
       SIX                                                              F6B27920
       SLF                                                              F6B27930
       SLN                                                              F6B27940
       SLQ                                                              F6B27950
       SLT                                                              F6B27960
       SLW                                                              F6B27970
       SSM                                                              F6B27980
       SSP                                                              F6B27990
       STA                                                              F6B28000
       STD                                                              F6B28010
       STI                                                              F6B28020
       STL                                                              F6B28030
       STO                                                              F6B28040
       STP                                                              F6B28050
       STQ                                                              F6B28060
       STR                                                              F6B28070
       STT                                                              F6B28080
       STZ                                                              F6B28090
       SUB                                                              F6B28100
       SVN                                                              F6B28110
       SWT                                                              F6B28120
       SXA                                                              F6B28130
       SXD                                                              F6B28140
       TEFA                   (TAF)                                     F6B28150
       TCH                                                              F6B28160
       TIF                                                              F6B28170
       TIO                                                              F6B28180
       TIX                                                              F6B28190
       TLQ                                                              F6B28200
       TMI                                                              F6B28210
       TNO                                                              F6B28220
       TNX                                                              F6B28230
       TNZ                                                              F6B28240
       TOV                                                              F6B28250
       TPL                                                              F6B28260
       TQO                                                              F6B28270
       TQP                                                              F6B28280
       TRA                                                              F6B28290
       TSX                                                              F6B28300
       TTR                                                              F6B28310
       TXH                                                              F6B28320
       TXI                                                              F6B28330
       TXL                                                              F6B28340
       TZE                                                              F6B28350
       UAM                                                              F6B28360
       UFA                                                              F6B28370
       UFM                                                              F6B28380
       UFS                                                              F6B28390
       USM                                                              F6B28400
       VDH                                                              F6B28410
       VDP                                                              F6B28420
       VLM                                                              F6B28430
       WDR                                                              F6B28440
       WRS                                                              F6B28450
       WTV                                                              F6B28460
       XCA                                                              F6B28470
       XCL                                                              F6B28480
       XEC                                                              F6B28490
       XIT                    (TTR)                                     F6B28500
       ZET                                                              F6B28510
 ABSOP SYN     *                                                        F6B28520
       REM                                                              F6B28530
       REM     PATCH SPACE TO ALLOW UP TO 256 OPCODES                   F6B28540
       ORG     OPRTL+512                                                F6B28550
       REM                                                              F6B28560
       REM     BINARY LOADER                                            F6B28570
 LOADR SYN     *                                                        F6B28580
 BLKBF SYN     *              DOUBLE BUFFERING OVERWRITES DEAD CODING.  F6B28581
       UNLIST                 BOOLS TO DEFINE BSS LOADER VARIABLE FIELD F6B28590
 STRTO BOOL    77453                                                    F6B28600
 CD8RO BOOL    77457                                                    F6B28610
 RDCDO BOOL    77461                                                    F6B28620
 IO9RO BOOL    77473                                                    F6B28630
 CNCDO BOOL    77474                                                    F6B28640
 IOTSO BOOL    77501                                                    F6B28650
 STCDO BOOL    77504                                                    F6B28660
 CMRGO BOOL    77505                                                    F6B28670
 SETIO BOOL    77514                                                    F6B28680
 ADDRO BOOL    77517                                                    F6B28690
 RELDO BOOL    77525                                                    F6B28700
 RELAO BOOL    77534                                                    F6B28710
 RELXO BOOL    77541                                                    F6B28720
 RELTO BOOL    77543                                                    F6B28730
 RELLO BOOL    77551                                                    F6B28740
 RELCO BOOL    77563                                                    F6B28750
 RELBO BOOL    77567                                                    F6B28760
 CKSMO BOOL    77573                                                    F6B28770
 RGCDO BOOL    77605                                                    F6B28780
 NOCKO BOOL    77612                                                    F6B28790
 IOONO BOOL    77614                                                    F6B28800
 PGBKO BOOL    77615                                                    F6B28810
 PRCDO BOOL    77617                                                    F6B28820
 PRC1O BOOL    77632                                                    F6B28830
 PRC2O BOOL    77643                                                    F6B28840
 PRC3O BOOL    77651                                                    F6B28850
 EPRGO BOOL    77660                                                    F6B28860
 ADMKO BOOL    77672                                                    F6B28870
 FTRAO BOOL    77673                                                    F6B28880
 INITO BOOL    77677                                                    F6B28890
 EPCTO BOOL    77713                                                    F6B28900
 RGVCO BOOL    77714                                                    F6B28910
 SRVCO BOOL    77720                                                    F6B28920
 SRV1O BOOL    77725                                                    F6B28930
 ADNMO BOOL    77734                                                    F6B28940
 INIVO BOOL    77737                                                    F6B28950
 NTSTO BOOL    77743                                                    F6B28960
 IT8LO BOOL    77755                                                    F6B28970
 IO9LO BOOL    77756                                                    F6B28980
 IO8LO BOOL    77757                                                    F6B28990
 IO8RO BOOL    77760                                                    F6B29000
 IOCDO BOOL    77761                                                    F6B29010
 PFLGO BOOL    77762                                                    F6B29020
 LCTRO BOOL    77763                                                    F6B29030
 CMBKO BOOL    77764                                                    F6B29040
 FINIO BOOL    77765                                                    F6B29050
 CLERO BOOL    77774                                                    F6B29060
 TRADO BOOL    77777                                                    F6B29070
       LIST                                                             F6B29080
 CD9LO SYN     0                                                        F6B29090
 CD9RO SYN     1                                                        F6B29100
 CD8LO SYN     2                                                        F6B29110
 WDIOF SYN     99                                                       F6B29120
       REM                                                              F6B29130
       REM     THE FOLLOWING THREE INSTRUCTIONS ARE READ INTO 0, 1, 2   F6B29140
       REM                                                              F6B29150
       IOCT    STRTO,,-STRTO                                           $F6B29160
       TCOA    1                                                        F6B29170
       TTR     STRTO                                                    F6B29180
       REM                                                              F6B29190
 EPLST SYN     STRTO-19                                                 F6B29200
 OVRLP SYN     STRTO-17                                                 F6B29210
 TVLST SYN     STRTO+3                                                  F6B29220
       REM                                                              F6B29230
 STRT0 LTM                    RESET INDICATORS                          F6B29240
       SLF                                                              F6B29250
       TEFA    STRTO+3                                                  F6B29260
       AXT     -1,4           INITIALIZE MACHINE CORE SIZE              F6B29270
 CD8R0 SXA     ADMKO,4        USED AS ERASABLE CELL FOR C(8R)           F6B29280
       REM                                                              F6B29290
       REM     REENTRY IF SUBROUTINES MISSING AFTER TRANSFER CARD       F6B29300
       STZ     OVRLP          RESET MISSING SUBROUTINE FLAG             F6B29310
       REM                                                              F6B29320
       REM     REENTRY TO GET NEXT CARD                                 F6B29330
 RDCD0 RCDA                   READ NEXT CARD                            F6B29340
       RCHA    IO9LO          READ 9L                                   F6B29350
       LCHA    IO9RO          DELAY UNTIL 9L IS IN AND READ 9R          F6B29360
       CLA     CD9LO          GET 9L (PREFIX, WORD COUNT, LOAD ADDRESS) F6B29370
       PDX     ,1             LOAD CARD WORD COUNT                      F6B29380
       STD     IOCDO          SET WORD COUNT OF I/O COMMAND             F6B29390
       TXL     STCDO,1,31    *IS THIS DATA, TRANSFER, OR PROGRAM CARD   F6B29400
       TXL     CNCDO,1,32    *NO, IS CARD CONTROL CARD                  F6B29410
       LCHA    IT8LO          NO, MUST BE SELF LOADER. READ 8L INTO 2   F6B29420
       LCHA    CD9LO          SIMULATE MACHINE LOAD CHANNEL FROM 0      F6B29430
 IO9R0 TXL     CD9RO,,1      *TRANSFER TO 1 (ALSO USED AS IOST COMMAND) F6B29440
       REM                                                              F6B29450
       REM     CARD IS CONTROL CARD                                     F6B29460
 CNCD0 ADD     LCTRO          BUMP LOWER STORAGE COUNTER                F6B29470
       STA     LCTRO          BY LENGTH OF BLOCK RESERVED (9L ADDRESS)  F6B29480
       LCHA    ADMKO          DELAY UNTIL 9R READ IN                    F6B29490
       CLA     CD9RO          SET COMMON ORIGIN TO                      F6B29500
       STA     CMRGO          9R ADDRESS                                F6B29510
 IOTS0 IOT                    IS I/O CHECK LIGHT ON                     F6B29520
       TRA     IOONO         *YES                                       F6B29530
       TRA     RDCDO         *NO, GET NEXT CARD                         F6B29540
       REM                                                              F6B29550
       REM     SORT CARDS ON 9L PREFIX                                  F6B29560
 STCD0 ARS     15             GET 9L PREFIX                             F6B29570
 CMRG0 PDX     **,4           (ADDRESS FIELD USED AS COMMON DECREMENT)  F6B29580
       TMI     PRCDO         *IS CARD INSTRUCTION OR DATA CARD          F6B29590
       REM                                                              F6B29600
       REM     CARD IS DATA OR TRANSFER CARD (PREFIX 0, 1, 2, 3)        F6B29610
       CAL     CD9LO          GET 9L                                    F6B29620
       TZE     IOTSO         *IS CARD BLANK                             F6B29630
       TXL     SETIO,4,1      NO, IS THIS RELOCATABLE BINARY CARD       F6B29640
       LCHA    IO8LO          YES, CARD IS DATA OR TRANSFER (PREFIX 2,3)F6B29650
       TSX     RELLO,2       $RELOCATE LOAD OR TRANSFER ADDRESS         F6B29660
 SETI0 STA     IOCDO          SET LOAD ADDRESS OF I/O COMMAND           F6B29670
       LCHA    IOCDO          READ 8L (PREFIX 0, 1) OR 7L (PREFIX 2, 3) F6B29680
       REM                    USING IOST TO DISCONTINUE AT END OF CARD  F6B29690
       TXL     IOCDO,1,0     *IS THIS ABSOLUTE OR RELOCATABLE TRANSFER  F6B29700
       REM                    CARD (PREFIX 0, 1, 2, 3, WORD COUNT 0)    F6B29710
 ADDR0 PXA     **,1           NO, COMPUTE LAST ADDRESS+1 OF CARD        F6B29720
       SUB     IOCDO          FOR CHECKSUM LOOP                         F6B29730
       SLF                    RESET SWITCHES                            F6B29740
       TSX     CKSMO,2       $COMPUTE CHECKSUM                          F6B29750
       TXL     RDCDO,4,1      IS CARD ABSOLUTE BINARY (PREFIX 0, 1)     F6B29760
       LDQ     CD8RO          NO, LOAD RIGHT HALF RELOCATION BITS       F6B29770
       REM                                                              F6B29780
       REM     REENTRY TO RELOCATE NEXT DATA WORD                       F6B29790
 RELD0 TSX     RELBO,4       $GET NEXT RELOCATION BIT                   F6B29800
       TPL     RELAO          IS DECREMENT RELOCATABLE                  F6B29810
       CLA*    RGCDO          YES, GET DECREMENT PORTION OF WORD        F6B29820
       ARS     18                                                       F6B29830
       TSX     RELTO,2       $RELOCATE DECREMENT                        F6B29840
       ALS     18                                                       F6B29850
       STD*    RGCDO          INSERT RELOCATED DECREMENT                F6B29860
 RELA0 TSX     RELBO,4       $GET NEXT RELOCATION BIT                   F6B29870
       TPL     RELXO          IS ADDRESS RELOCATABLE                    F6B29880
       CLA*    RGCDO          YES, GET ADDRESS PORTION OF WORD          F6B29890
       TSX     RELTO,2       $RELOCATE ADDRESS                          F6B29900
       STA*    RGCDO          INSERT RELOCATED ADDRESS                  F6B29910
 RELX0 TIX     RELDO,1,1      IS CARD EXHAUSTED                         F6B29920
       TRA     RDCDO          YES, GET NEXT CARD                        F6B29930
       REM                                                              F6B29940
       REM     CLOSED SUBROUTINES TO RELOCATE DATA                      F6B29950
       REM                                                              F6B29960
       REM     ENTRY POINT FOR DATA                                     F6B29970
 RELT0 STA     ADDRO          SAVE LOCATION TO BE RELOCATED             F6B29980
       TSX     RELBO,4       $GET NEXT RELOCATION BIT                   F6B29990
       TPL     RELTO+4        IS LOCATION DIRECTLY RELOCATABLE          F6B30000
       SLN     1              NO, SET COMPLEMENT RELOCATABLE FLAG       F6B30010
       SLN     2              SET DATA FLAG                             F6B30020
       CAL     ADDRO          GET LOCATION TO BE RELOCATED              F6B30030
       REM                                                              F6B30040
       REM     ENTRY POINT FOR LOAD OR TRANSFER ADDRESS                 F6B30050
 RELL0 ANA     ADMKO          COMPUTE DIFFERENCE BETWEEN LOCATION AND   F6B30060
       SUB     PGBKO          OBJECT PROGRAM BREAK                      F6B30070
       SLT     2              IS THIS DATA                              F6B30080
       TRA     RELCO+2        NO, THIS IS LOAD OR TRANSFER ADDRESS      F6B30090
       TPL     RELCO          YES, IS LOCATION ABOVE PROGRAM BREAK      F6B30100
       SLT     1              NO, IS DATA LOCATION COMPLEMENT RELOC,BLE F6B30110
       TRA     RELCO+2        NO, GO RELOCATE NORMAL DATA UPWARDS       F6B30120
       REM                                                              F6B30130
       REM     RELOCATE COMMON STORAGE DOWNWARDS                        F6B30140
       CAL     ADDRO          GET LOCATION TO BE RELOCATED              F6B30150
       ADM     CMRGO          ADD COMMON REASSIGNMENT                   F6B30160
       TRA     1,2                                                      F6B30170
       REM                                                              F6B30180
       REM     REENTRY FOR LOCATIONS ABOVE PROGRAM BREAK                F6B30190
 RELC0 SLT     1              IS COMMON LOCATION COMPLEMENT RELOCATABLE F6B30200
       TRA     RELCO-3        NO, GO RELOCATE DOWNWARDS                 F6B30210
       REM                                                              F6B30220
       REM     RELOCATE PROGRAM DATA UPWARDS                            F6B30230
       ADD     LCTRO          ADD RELOCATED PROGRAM BREAK TO DIFFERENCE F6B30240
       TRA     1,2            BETWEEN LOCATION AND OBJECT PROGRAM BREAK F6B30250
       REM                                                              F6B30260
       REM     CLOSED SUBROUTINE TO GET NEXT RELOCATION BIT             F6B30270
 RELB0 CLA     CD8LO          GET CURRENT RELOCATION BITS               F6B30280
       LGL     1              SHIFT IN NEXT BIT                         F6B30290
       SLW     CD8LO          SAVE RESIDUE                              F6B30300
       TRA     1,4                                                      F6B30310
       REM                                                              F6B30320
       REM     CLOSED SUBROUTINE TO COMPUTE CHECKSUM                    F6B30330
 CKSM0 STA     RGCDO          INITIALIZE LAST ADDRESS+1 ON CARD         F6B30340
       CAL     CD9LO          PICK UP 9L                                F6B30350
       TCOA    CKSMO+2        DELAY UNTIL CARD READ IN                  F6B30360
       IOT                    IS I/O CHECK LIGHT ON                     F6B30370
       TRA     IOONO         *YES                                       F6B30380
       TXL     RGCDO,4,0      NO, IS CARD NONRELOCATABLE (PREFIX 0, 4)  F6B30390
       TXL     NOCKO,4,1      NO, IS CHECKSUM IGNORED (PREFIX 1, 5)     F6B30400
       TXH     NOCKO,4,2      NO, IS CHECKSUM IGNORED (PREFIX 3)        F6B30410
       ACL     CD8LO          NO, CARD IS RELOCATABLE WITH CHECKSUM     F6B30420
       ACL     CD8RO          (PREFIX 2), ADD IN DISJOINT 8L AND 8R     F6B30430
 RGCD0 ACL     **,1           CHECKSUM CARD                             F6B30440
       TIX     RGCDO,1,1                                                F6B30450
       LXD     IOCDO,1        RELOAD CARD WORD COUNT                    F6B30460
       LAS     CD9RO          DO CHECKSUMS AGREE                        F6B30470
       NZT     CD9RO          NO, IS 9R ZERO                            F6B30480
 NOCK0 TRA     1,2           *YES, CHECKSUM IS ACCEPTABLE               F6B30490
       HTR     1,2           *NO, PAUSE AND THEN ACCEPT                 F6B30500
 IOON0 TEFA    IOONO+2        WAS I/O CHECK CAUSED BY END FILE          F6B30510
 PGBK0 PZE     **             NO, LOADING CANNOT CONTINUE               F6B30520
       REM                    (ADDRESS IS OBJECT PROGRAM BREAK)         F6B30530
       HTR     RDCDO         *YES, PAUSE AND PROCEDE                    F6B30540
       REM                                                              F6B30550
       REM     CARD IS FORTRAN PROGRAM CARD (PREFIX 4, 5)               F6B30560
       REM             FORTRAN TRANSFER CARD (PREFIX 4, WORD COUNT 0)   F6B30570
       REM             SYMBOL TABLE CARD (PREFIX 6,7)                   F6B30580
 PRCD0 TXH     RDCDO,4,1     *IS CARD NONLOADABLE (PREFIX 6 OR 7)       F6B30590
       PXA     ,1             NO, GET WORD COUNT AND COMPUTE            F6B30600
       SBM     EPRGO          LOAD ADDRESS FOR ENTRY POINT LIST         F6B30610
       STA     IOCDO          SET LOAD ADDRESS OF I/O COMMAND           F6B30620
       LCHA    IOCDO          READ CARD INTO ENTRY POINT LIST           F6B30630
       TXL     FTRAO,1,0     *IS CARD FORTRAN TRANSFER CARD             F6B30640
       REM                    (PREFIX 4, WORD COUNT 0)                  F6B30650
       CLA     EPRGO          NO, INITIALIZE CHECKSUM COMPUTATION       F6B30660
       TSX     CKSMO,2       $COMPUTE CHECKSUM                          F6B30670
       SLT     3              IS THIS FIRST PROGRAM CARD                F6B30680
       TXI     PRC1O,1,-1     YES                                       F6B30690
       TXI     EPRGO,1,-1     NO, PROGRAM CARD IMMEDIATELY PRECEDED     F6B30700
 PRC10 CLA*    IOCDO          GET 8L                                    F6B30710
       PDX     ,4             LOAD LENGTH OF TRANSFER VECTOR            F6B30720
       LDQ     LCTRO          SAVE LOAD POINT FOR THIS PROGRAM          F6B30730
       STA     PGBKO          SET OBJECT PROGRAM BREAK                  F6B30740
       ADD     LCTRO          BUMP RELOCATED PROGRAM BREAK BY LENGTH OF F6B30750
       STA     LCTRO          THIS PROGRAM                              F6B30760
       PXD     ,4             GET LENGTH OF TRANSFER VECTOR             F6B30770
       TNZ     PRC2O          IS TRANSFER VECTOR EMPTY                  F6B30780
       CLA     PFLGO          YES, GET VECTOR EMPTY FLAG                F6B30790
 PRC20 STO*    IOCDO          INSERT IN ENTRY POINT LIST NAME CELL      F6B30800
       CLA*    EPRGO          GET 8R                                    F6B30810
       ACL     CMRGO          COMPUTE REASSIGNED COMMON BREAK          $F6B30820
       ANA     ADMKO          REDUCE TO CORE SIZE                       F6B30830
       TZE     PRC3O          IS COMMON REASSIGNMENT ZERO               F6B30840
       CAS     CMBKO          NO, IS THIS COMMON BREAK LOWER            F6B30850
 PRC30 CLA     CMBKO          NO, GET OLD COMMON BREAK                  F6B30860
       NOP                                                              F6B30870
       STO     CMBKO          RESET COMMON BREAK                        F6B30880
       SUB     LCTRO          IS THIS LOWER THAN TOP OF DATA            F6B30890
       TMI     OVRLP         *YES, GO TO STOP                           F6B30900
       STQ*    EPRGO          NO, INSERT LOAD POINT FOR THIS PROGRAM    F6B30910
       TXI     EPRGO,1,-2     IN ENTRY POINT ADDRESS CELL               F6B30920
 EPRG0 CLA     EPLST,1        GET NEXT ENTRY POINT ON LIST              F6B30930
       TSX     RELLO,2       $RELOCATE                                  F6B30940
       STA*    EPRGO          INSERT RELOCATED ENTRY POINT IN LIST      F6B30950
       TIX     EPRGO,1,2      IS CARD EXHAUSTED                         F6B30960
       CLA     IOCDO          YES, RESET ORIGIN FOR NEXT CARD           F6B30970
       STA     EPRGO                                                    F6B30980
       ANA     ADMKO          REDUCE TO CORE SIZE                       F6B30990
       SLN     3              SET PROGRAM CARD FLAG                     F6B31000
       SUB     LCTRO          DOES ENTRY POINT LIST OVERLAP LOADED DATA F6B31010
       TPL     RDCDO         *NO, READ NEXT CARD                        F6B31020
 ADMK0 PZE     -1             YES, LOADING CANNOT CONTINUE              F6B31030
       REM                                                              F6B31040
       REM     CARD IS FORTRAN TRANSFER CARD (PREFIX 4, WORD COUNT 0)   F6B31050
 FTRA0 LAC     EPRGO,2        COMPUTE LENGTH OF ENTRY POINT LIST        F6B31060
       TXI     FTRAO+2,2,EPLST                                          F6B31070
       SXA     EPCTO,2        SAVE COUNT                                F6B31080
       TXI     NTSTO+1,2,2   *BUMP TO TEST BEFORE USING DATA            F6B31090
       REM                                                              F6B31100
       REM     REENTRY AFTER ONE OBJECT PROGRAM TRANSFER VECTOR IS      F6B31110
       REM     COMPLETE TO INITIALIZE TRANSFER VECTOR IN NEXT PROGRAM   F6B31120
 INIT0 CAL     EPLST,2        GET NEXT NAME ON ENTRY POINT LIST         F6B31130
       TNZ     INITO+5        IS THIS MAIN PROGRAM (BLANK NAME)         F6B31140
       CLA     EPLST+1,2      YES, GET ENTRY POINT TO MAIN PROGRAM      F6B31150
       STA     TRADO          INITIALIZE TRANSFER ADDRESS               F6B31160
       TRA     NTSTO+1       *TEST FOR END OF ENTRY POINT LIST          F6B31170
       ANA     PFLGO          IS THIS TRANSFER VECTOR EMPTY FLAG,       F6B31180
       TNZ     NTSTO+1       *OR NAME OF ENTRY POINT                    F6B31190
       CLA     EPLST,2        NO, GET TRANSFER VECTOR COUNT             F6B31200
       PDX     ,4                                                       F6B31210
       PXA     ,4                                                       F6B31220
       ADD     EPLST+1,2      COMPUTE ORIGIN AT TOP OF TRANSFER VECTOR  F6B31230
       STA     RGVCO          INITIALIZE COPY LOOP                      F6B31240
       REM                                                              F6B31250
       REM     REENTRY TO INITIALIZE NEXT VECTOR NAME IN OBJECT PROGRAM F6B31260
 EPCT0 AXT     **,1           LOAD ENTRY POINT LIST COUNT               F6B31270
 RGVC0 CAL     **,4           GET NEXT NAME ON OBJECT PROGRAM VECTOR    F6B31280
       ANA     PFLGO          HAS THIS NAME BEEN INITIALIZED            F6B31290
       TZE     NTSTO         *YES                                       F6B31300
       CAL*    RGVCO          NO, GET NAME AGAIN                        F6B31310
 SRVC0 LAS     EPLST,1        IS NAME ON ENTRY POINT LIST               F6B31320
       TRA     SRVCO+3        NO                                        F6B31330
       TRA     INIVO         *YES                                       F6B31340
       TIX     SRVCO,1,2      IS ENTRY POINT LIST EXHAUSTED             F6B31350
       AXT     20,1           YES, GET COUNT OF MISSING LIST BUFFER     F6B31360
 SRV10 NZT     TVLST,1        IS THIS CELL EMPTY                        F6B31370
       TRA     ADNMO         *YES, ADD THIS NAME TO LIST                F6B31380
       LAS     TVLST,1        NO, IS THIS NAME ALREADY ON LIST          F6B31390
       TRA     SRV1O+5        NO                                        F6B31400
       TRA     NTSTO         *YES, IGNORE THIS NAME                     F6B31410
       TIX     SRV1O,1,1      IS MISSING LIST EXHAUSTED                 F6B31420
       HTR     RDCDO-1       *YES, PAUSE ON MORE THAN 20 MISSING NAMES  F6B31430
       REM                                                              F6B31440
       REM     ADD NAME TO MISSING TRANSFER VECTOR LIST                 F6B31450
 ADNM0 SLW     TVLST,1        ADD NAME TO MISSING LIST                  F6B31460
       STZ     TVLST+1,1      CLEAR NEXT CELL TO SET SEARCH STOP        F6B31470
       TTR     NTSTO         *GO TEST FOR END OF TRANSFER VECTOR        F6B31480
       REM                                                              F6B31490
       REM     TRANSFER VECTOR NAME HAS BEEN FOUND                      F6B31500
 INIV0 CAL     ADNMO+2        GET TTR COMMAND                           F6B31510
       SLW*    RGVCO          INSERT IN TRANSFER VECTOR                 F6B31520
       CLA     EPLST+1,1      GET ENTRY POINT AND                       F6B31530
       STA*    RGVCO          INITIALIZE TRANSFER VECTOR                F6B31540
       REM                                                              F6B31550
       REM     REENTRY FOR NAME ALREADY INITIALIZED, OR NAME LOST       F6B31560
 NTST0 TIX     EPCTO,4,1      IS TRANSFER VECTOR EXHAUSTED              F6B31570
       REM                                                              F6B31580
       REM     REENTRY FOR TRANSFER CARD, OR PROGRAM WITH BLANK VECTOR  F6B31590
       TIX     INITO,2,2      IS ENTRY POINT LIST EXHAUSTED             F6B31600
       ZET     OVRLP          YES, ARE ANY ENTRY POINTS MISSING         F6B31610
       HTR     RDCDO-1       *YES, PAUSE AND GET NEXT CARD              F6B31620
       LXA     LCTRO,4        NO, SET PARAMETERS FOR WD I/O PACKAGE     F6B31630
       PXD     ,4             PLACE HIGHEST LOCATION IN LOWER CORES     F6B31640
       ORA     CMBKO          LOWEST LOCATION IN COMMON                 F6B31650
       STO     WDIOF          IN DECREMENT AND ADDRESS OF PARAMETER     F6B31660
       LXA     EPCTO,2        COMPUTE LENGTH OF LOADER AND EPLST        F6B31670
       TXI     FINIO,2,CLERO-EPLST                                      F6B31680
       REM                                                              F6B31690
       REM     I/O DATA                                                 F6B31700
 IT8L0 IOCT    CD8LO,,1                                                 F6B31710
 IO9L0 IOCT    CD9LO,,1                                                 F6B31720
 IO8L0 IOCP    CD8LO,,1                                                 F6B31730
 IO8R0 IOCT    CD8RO,,1                                                 F6B31740
 IOCD0 IOST    **,,**         (ALSO USED AS TXL TO ENTRY POINT WHEN     F6B31750
       REM                     NON-FORTRAN TRANSFER CARD ENCOUNTERED)   F6B31760
       REM     CONSTANTS                                                F6B31770
 PFLG0 SVN                    FLAG FOR EMPTY TRANSFER VECTOR            F6B31780
 LCTR0 PZE     100            RELOCATED PROGRAM BREAK LAST PROG LOADED  F6B31790
 CMBK0 PZE     -1             LOWEST COMMON BREAK LOADED                F6B31800
       REM                                                              F6B31810
       REM     AFTER SUCCESSFUL LOAD RESTORE MACHINE TO PRISTINE STATE  F6B31820
 FINI0 TOV     FINIO+1        TURN OFF TRIGGERS                         F6B31830
       SLF                                                              F6B31840
       TQO     FINIO+3                                                  F6B31850
       EFTM                   ENTER FLOATING POINT TRAP MODE            F6B31860
       STZ     CD9LO          CLEAR 0,1,2                               F6B31870
       STZ     CD9RO                                                    F6B31880
       STZ     CD8LO                                                    F6B31890
 CLER0 STZ     CLERO,2        CLEAR LOADER, TVLST, EPLST                F6B31900
       TIX     CLERO,2,1                                                F6B31910
       AXT     0,7            CLEAR INDEX REGISTERS                     F6B31920
 TRAD0 TRA     **             AND GO                                    F6B31930
 ENDLD SYN     *                                                        F6B31940
 34PCH BSS     0              PATCH SPACE                               F6B31949
       PZE                    (NOT USED)                                F6B31950
 AAAAA SLW     PCH9R          YES, INSERT CHKSM INTO 9R (RESTORE CODE) *F6B31951
       TRA     PNCH2          RETURN TO CODING.                        *F6B31952
 BBBBB SLW     PCH9L          (RESTORE INSTRUCTION)                    *F6B31953
       ZAC                    NOP PAGE LINE COUNT RESET                *F6B31954
       STT     HDPCT          FOR MACHINE LANGUAGE LISTING.            *F6B31955
       TRA     PROL0+2        RETURN TO CODING                         *F6B31956
 CCCCC CLA     COLFL          BINARY IS REQUESTED ON NARROW PAGE       $F6B31957
       STD     WRTIO+4        CHANGE FULL PAGE TEST                    $F6B31958
       ZSD     COLFL          CHANGE COLUMN FULL TEST                  $F6B31959
       AXT     -1,2                                                    $F6B31960
       SXD     ONEFL-1,2      CHANGE FULL COLUMN RESET                 $F6B31961
       AXT     1,2                                                     $F6B31962
       SXD     LSTHD,2        CHANGE LAST PAGE TEST                    $F6B31963
       SXD     COLFL+4,2      CHANGE COLUMN THREE TEST                 $F6B31964
       TRA     INITW-6                                                 $F6B31965
 DDDDD NZT    XSWCH8          IF BINARY IS REQUESTED ON NARROW PAGE    $F6B31966
       TRA     EOF02          IT IS NOT                                $F6B31967
       LXA    (PGCT),4        IT IS, WRITE FINAL BLOCK                 $F6B31968
       TXL     EOF02,4,0      WHICH IS ALREADY IN                      $F6B31969
       TRA     EOF0X          THE BUFFER                               $F6B31970
 EEEEE LXA    (PGCT),4                                                 $F6B31971
       TXL     REGUL,4,0                                               $F6B31972
       TRA     REMAN-1                                                 $F6B31973
       TXL     EOF0X,1,0                                               $F6B31974
       TRA     LOC02-1                                                 $F6B31975
 FFFFF CLA    XTEVBS          STORE LOWEST LOCATION OF              (20)F6B31976
       STA     PCH8R          PROGRAM DATA IN 8R ADDRESS            (20)F6B31977
       TRA     PST01-2                                              (20)F6B31978
GGGGG  SBM     IOLIN          REDUCE NUMBER OF STORAGE              (20)F6B31979
       STA     IOLIN          MAP COLUMNS FROM 5 TO 3               (20)F6B31980
       TRA     INITW                                                (20)F6B31981
 FINIS ORG     34PCH/8*8+96                                            $F6B31988
 BUFFR BSS     10*28+2+1      BUFFER SIZE FOR OLD LIBRARY FORMAT       $F6B31989
       REM     FOLLOWING LOCATIONS ARE NOW TREATED AS AN               $F6B3198A
       REM     EXTENSION OF BUFFR TO ALLOW A LARGER LIBRARY RECORD     $F6B3198B
 BUFF1 BSS     CITSIZ                                                   F6B31990
 BUFF2 BSS     CITSIZ                                                   F6B32000
BOTTAB BSS     0              BOTTOM OF ALLOWABLE MEMORY FOR TABLES     F6B32010
       END     -1                                                       F6B99999
« 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: