      $JOB   7090-PR-130   7090/7094 IBSYS PROCESSOR   7090-SV-918 VERSION ;6$IBB00000
      * 7090-PR-130   7090/7094 IBSYS    7090-SV-918   VERSION 6  MOD. 11 (11)IBB00025
             PCC     ON                                                    $6$IBB00035
             PMC     ON                                                    $6$IBB00040

      *-------------------------------------------------------------------------------
      ;              MACROS - TABLE GENERATORS, ETC.                       $6$IBB00051
      *-------------------------------------------------------------------------------
      GETCHN MACRO   X             CNTCHN#NO. OF HIGHEST EXISTING CHAN(A#1)$6$IBB00053
      CNTCHN SET     0                                                     $6$IBB00054
             IRP     X                                                     $6$IBB00055
      CNTCHN SET     CNTCHN+1                                              $6$IBB00056
             IFF     CH'X'4#0                                              $6$IBB00057
      LSTCHN SET     CNTCHN                                                $6$IBB00058
             IRP                                                           $6$IBB00059
             ENDM    GETCHN                                                $6$IBB0005A

      COMMDS MACRO   COMTYP,ADDITL       TABLE GENERATOR                   $6$IBB0005C
             CALCOM  (A,B,C,D,E,F,G,H),COMTYP,(ADDITL)                     $6$IBB0005D
             ENDM    COMMDS,NOCRS                                          $6$IBB0005E

      CALCOM MACRO   X,COMTYP,ADDITL     CALLS COMTYP ONCE FOR EACH CHAN   $6$IBB0005G
      FINI   SET     0                                                     $6$IBB0005H
             IRP     X                                                     $6$IBB0005I
      FINI   SET     FINI+1                                                $6$IBB0005J
             COMTYP  X,ADDITL                                              $6$IBB0005M
             IRP                                                           $6$IBB0005N
             ENDM    CALCOM,NOCRS                                          $6$IBB0005O

      UCWLOC MACRO   X,NULARG                                              $6$IBB0005Q
      UCB'X' VFD     3/CDRD'X'+PRNT'X'+PNCH'X',15/CH'X'0,18/UE'X'11        $6$IBB0005R
             ENDM    UCWLOC,NOCRS                                          $6$IBB0005S

      VARLOC MACRO   X,LOC,OP,AD                                           $6$IBB0005U
      LOC'X' OP      AD                                                    $6$IBB0005V
             ENDM    VARLOC                                                $6$IBB0005W

      STCMAC MACRO   X,NULARG                                              $6$IBB0005Y
             STC'X'  UE'X'11+4*CH'X'0-4                                    $6$IBB0005Z
             ENDM    STCMAC,NOCRS                                          $6$IBB00060

      VAROP  MACRO   X,OP,AD                                               $6$IBB00062
             OP'X'   AD                                                    $6$IBB00063
             ENDM    VAROP                                                 $6$IBB00064

      TEFMAC MACRO   X,NULARG                                              $6$IBB00066
             TEF'X'  4*CH'X'0                                              $6$IBB00067
             ENDM    TEFMAC,NOCRS                                          $6$IBB00068

      ETTSDC MACRO   X,NULARG                                              $6$IBB0006A
             IFF     CH'X'3#0                                              $6$IBB0006B
             SCD'X'  COMMD                                                 $6$IBB0006C
             IFT     CH'X'3#0                                              $6$IBB0006D
             ETT'X'                                                        $6$IBB0006E
             ENDM    ETTSDC,NOCRS                                          $6$IBB0006F

      ;      rem     'MOVLDR' MOVES IBNUC,SPOUT,SYSLB LOADERS              $6$IBB0006G
      MOVLDR MACRO   BGNLDR,ENDLDR,LOADAD,XR1,AC                           $6$IBB0006H
             IFF     /XR1/#//                                              $6$IBB0006I
             SXA     XR1SAV,1                                              $6$IBB0006J
             IFF     /AC/#//                                               $6$IBB0006K
             SLW     ACKEP                                                 $6$IBB0006L
             AXT     ENDLDR-BGNLDR,1                                       $6$IBB0006M
             CAL     LOADAD+ENDLDR-BGNLDR,1                                $6$IBB0006N
             SLW     ENDLDR,1                                              $6$IBB0006O
             TIX     *-2,1,1                                               $6$IBB0006P
             IFF     /XR1/#//                                              $6$IBB0006Q
             LXA     XR1SAV,1                                              $6$IBB0006R
             IFF     /AC/#//                                               $6$IBB0006S
             CAL     ACKEP                                                 $6$IBB0006T
             ENDM    MOVLDR,NOCRS                                          $6$IBB0006U

      *-------------------------------------------------------------------------------
      ;      ttl     INSTALLATION MACHINE CONFIGURATION                       IBB00070
      *    THE FOLLOWING 'EQU' CARDS MUST BE PROPERLY SET UP ACCORDING TO     IBB00080
      *       THE MACHINE CONFIGURATION AND THE INSTALLATION STANDARD         IBB00090
      EQU    OPSYN   SET                                                   $6$IBB00095
                                                                              IBB00100
      *                     MACHINE TYPE.....709 OR 7090                      IBB00110
      *      EXPANSION FACTOR#12 CELLS IN IOEX FOR 7090 OVER 709              IBB00120
      IBM    EQU     7090                                                     IBB00130
                                                                              IBB00140
      *             BASIC MONITOR ORG FOR NUCLEUS ALWAYS IN CORE              IBB00150
      *      (MINIMUM#LAST MACHINE TRAP/INTERUPT CELL+1)                      IBB00160
      IBSORG EQU     64                                                       IBB00170
                                                                              IBB00180
      *                    IOEX ORIGIN (TRAP SUPERVISOR)                      IBB00190
      *      (MINIMUM#LAST UNIT CONTROL BLOCK CELL+1)                         IBB00200
      IOXORG EQU     450                                                      IBB00210
                                                                              IBB00220
      *                  COMMON SYSTEM ORIGIN (ALL SYSTEMS)                   IBB00230
      *      (MINIMUM#LAST INSTALLATION TRAP ROUTINE CELL+51)                 IBB00240
      SYSORG EQU     1450                                                     IBB00250
                                                                              IBB00260
      *             COMMON SYSTEM UPPER CORE LIMIT (ALL SYSTEMS)              IBB00270
      *      (MOVE DOWN TO MAKE ROOM FOR INSTALLATION ACCOUNTING ETC.ROUTINES)IBB00280
      SYSEND EQU     -1                                                       IBB00290
                                                                              IBB00300
      *      DENSITY TO BE ASSUMED ON $AS CARD IF NOT SPECIFIED               IBB00310
      *              HIGH IF HIGHLO # 1,  LOW IF HIGHLO # 0                   IBB00320
      HIGHLO EQU     1                                                     $6$IBB00330
      ;                                                                    $6$IBB00331
      *      DENSITY TO BE ASSUMED WHEN WRITING BLANK TAPE                 $6$IBB00332
      ASDENS EQU     800                 CHARACTERS/INCH                   $6$IBB00333
                                                                              IBB00340
      *PP    EQU     CUU      WHERE C # CHAN, UU # UNIT OF ALTERNATE SYSTEM   IBB00350
      *                       TAPE     IF EQU 0, NO PING PONG WILL TAKE PLACE IBB00360
      PP     EQU     0                                                        IBB00370
                                                                              IBB00380
      *                            SYSTEM PRINTER                             IBB00390
      *         PRINTER BOARD SENSE EXIT FOR EJECT.....1 THROUGH 10           IBB00410
      EJECT  EQU     1                                                        IBB00420
                                                                              IBB00430
      *      PRINTER BOARD SENSE EXIT FOR DOUBLE SPACE.....1 THROUGH 10       IBB00440
      DBLSP  EQU     4                                                        IBB00450
                                                                              IBB00460
      *          NUMBER OF RECOVERY TRIES FOR EACH READ REDUNDANCY.           IBB00470
      RDUNRT EQU     100                                                      IBB00480
                                                                              IBB00490
      *      TRANSFER TRAP MODE. IF#1, TRAP MODE WILL BE SAVED BY IOEX.       IBB00500
      *            IF#0, TRAP MODE WILL REMAIN IN EFFECT IN IOEX.             IBB00510
      * IF#1 ADDS 13 CELLS IN IOEX AND COSTS 18 CYCLES PER TRAP               IBB00520
      ETMODE EQU     0                                                        IBB00530
                                                                              IBB00540
      *                             CHANNEL 'A'                               IBB00550
      *              729 TAPE DRIVES                                          IBB00560
      *                    NO. OF TAPES.....0 THROUGH 10                      IBB00570
       CHA1  EQU     10                                                       IBB00580
                                                                              IBB00590
      *      TAPES ATTACHED..... 1 BIT PER UNIT SIGNIFYING WHETHER UNIT       IBB00600
      *    IS ATTACHED TO MACHINE (I.E.-LEGALLY DIALABLE) BITS GO LEFT TO     IBB00610
      *       RIGHT (CR,PU,PR,TAPES 1 TO 10) AND # 1 IF NOT ATTACHED          IBB00620
      CHAAT  BOOL    00003               CR, PU, PR, AND 8 TAPES ATTACHED     IBB00630
                                                                              IBB00640
      *          MODEL TYPES OF UNITS ON CHANNEL.... 1 BIT PER UNIT           IBB00650
      *   #1 IF MOD IV, #0 IF MOD II (BITS GO LEFT TO RIGHT (UNIT 1 TO 10)    IBB00660
      CHAMD  BOOL    01777               ALL TAPES MODEL IV                   IBB00670
                                                                              IBB00680
      *              PRINTER.....1 IF IT EXISTS. OTHERWISE, 0.                IBB00690
      PRNTA  EQU     1                                                        IBB00700
                                                                              IBB00710
      *               PUNCH.....1 IF IT EXISTS. OTHERWISE, 0.                 IBB00720
      PNCHA  EQU     1                                                        IBB00730
                                                                              IBB00740
      *            CARD READER.....1 IF IT EXISTS. OTHERWISE, 0.              IBB00750
      CDRDA  EQU     1                                                        IBB00760
                                                                              IBB00770
      *                             7340 TAPE DRIVES (REDUNDAMT ON CHANNEL A) IBB00780
      *          NUMBER OF TAPES ON INTERFACE 1.....0 THROUGH 10.             IBB00790
      HTA1   EQU     0                                                        IBB00800
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB00810
      HTAA1  BOOL    1777                                                     IBB00820
                                                                              IBB00830
      *          NUMBER OF TAPES ON INTERFACE 2.....0 THROUGH 10.             IBB00840
      HTA2   EQU     0                                                        IBB00850
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB00860
      HTAA2  BOOL    1777                                                     IBB00870
                                                                              IBB00880
      *              1301 DISK AND 7320 NEED FILES                            IBB00890
      *          NUMBER OF DISK MODULES ON INTERFACE 1       (0 THRU 10)      IBB00900
      DFA1   EQU     0                                                        IBB00910
      *          NUMBER OF 1302 MODULES ON INTERFACE 1                     $6$IBB00920
      DFA3   EQU     0                                                     $6$IBB00930
      *          NUMBER OF NEED MODULES ON INTERFACE 1       (0 THRU 5)       IBB00940
      NFA1   EQU     0                                                        IBB00950
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB00960
      DFAA1  BOOL    1777                                                     IBB00970
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB00980
      IFA1   EQU     0                                                        IBB00990
                                                                              IBB01000
      *          NUMBER OF DISK MODULES ON INTERFACE 2       (0 THRU 10)      IBB01010
      DFA2   EQU     0                                                        IBB01020
      *          NUMBER OF 1302 MODULES ON INTERFACE 2                     $6$IBB01030
      DFA4   EQU     0                                                     $6$IBB01040
      *          NUMBER OF NEED MODULES ON INTERFACE 2       (0 THRU 5)       IBB01050
      NFA2   EQU     0                                                        IBB01060
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB01070
      DFAA2  BOOL    1777                                                     IBB01080
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB01090
      IFA2   EQU     0                                                        IBB01100
                                                                              IBB01110
      *                             CHANNEL 'B'                               IBB01120
      *              729 TAPE DRIVES                                          IBB01130
      *                    NO. OF TAPES.....0 THROUGH 10                      IBB01140
       CHB1  EQU     10                                                       IBB01150
                                                                              IBB01160
      *      TAPES ATTACHED..... 1 BIT PER UNIT SIGNIFYING WHETHER UNIT       IBB01170
      *    IS ATTACHED TO MACHINE (I.E.-LEGALLY DIALABLE) BITS GO LEFT TO     IBB01180
      *       RIGHT (CR,PU,PR,TAPES 1 TO 10) AND # 1 IF NOT ATTACHED          IBB01190
      CHBAT  BOOL    16003               8 729 TAPES ATTACHED                 IBB01200
                                                                              IBB01210
      *          MODEL TYPES OF UNITS ON CHANNEL.... 1 BIT PER UNIT           IBB01220
      *   #1 IF MOD IV, #0 IF MOD II (BITS GO LEFT TO RIGHT (UNIT 1 TO 10)    IBB01230
      CHBMD  BOOL    01777               ALL TAPES MODEL IV                   IBB01240
                                                                              IBB01250
      *              PRINTER.....1 IF IT EXISTS. OTHERWISE, 0.                IBB01260
      PRNTB  EQU     0                                                        IBB01270
                                                                              IBB01280
      *               PUNCH.....1 IF IT EXISTS. OTHERWISE, 0.                 IBB01290
      PNCHB  EQU     0                                                        IBB01300
                                                                              IBB01310
      *            CARD READER.....1 IF IT EXISTS. OTHERWISE, 0.              IBB01320
      CDRDB  EQU     0                                                        IBB01330
                                                                              IBB01340
      *              7340 TAPE DRIVES                                         IBB01350
      *          NUMBER OF TAPES ON INTERFACE 1.....0 THROUGH 10.             IBB01360
      HTB1   EQU     0                                                        IBB01370
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB01380
      HTBA1  BOOL    1777                                                     IBB01390
                                                                              IBB01400
      *          NUMBER OF TAPES ON INTERFACE 2.....0 THROUGH 10.             IBB01410
      HTB2   EQU     0                                                        IBB01420
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB01430
      HTBA2  BOOL    1777                                                     IBB01440
                                                                              IBB01450
      *              1301 DISK AND 7320 NEED FILES                            IBB01460
      *          NUMBER OF DISK MODULES ON INTERFACE 1       (0 THRU 10)      IBB01470
      DFB1   EQU     0                                                        IBB01480
      *          NUMBER OF 1302 MODULES ON INTERFACE 1                     $6$IBB01490
      DFB3   EQU     0                                                     $6$IBB01500
      *          NUMBER OF NEED MODULES ON INTERFACE 1       (0 THRU 5)       IBB01510
      NFB1   EQU     0                                                        IBB01520
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB01530
      DFBA1  BOOL    1777                                                     IBB01540
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB01550
      IFB1   EQU     0                                                        IBB01560
                                                                              IBB01570
      *          NUMBER OF DISK MODULES ON INTERFACE 2       (0 THRU 10)      IBB01580
      DFB2   EQU     0                                                        IBB01590
      *          NUMBER OF 1302 MODULES ON INTERFACE 2                     $6$IBB01600
      DFB4   EQU     0                                                     $6$IBB01610
      *          NUMBER OF NEED MODULES ON INTERFACE 2       (0 THRU 5)       IBB01620
      NFB2   EQU     0                                                        IBB01630
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB01640
      DFBA2  BOOL    1777                                                     IBB01650
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB01660
      IFB2   EQU     0                                                        IBB01670
                                                                              IBB01680
      *                             CHANNEL 'C'                               IBB01690
      *              729 TAPE DRIVES                                          IBB01700
      *                    NO. OF TAPES.....0 THROUGH 10                      IBB01710
      CHC1   EQU     6                                                        IBB01720
                                                                              IBB01730
      *      TAPES ATTACHED..... 1 BIT PER UNIT SIGNIFYING WHETHER UNIT       IBB01740
      *    IS ATTACHED TO MACHINE (I.E.-LEGALLY DIALABLE) BITS GO LEFT TO     IBB01750
      *       RIGHT (CR,PU,PR,TAPES 1 TO 10) AND # 1 IF NOT ATTACHED          IBB01760
      CHCAT  BOOL    17777                                                 $6$IBB01770
                                                                              IBB01780
      *          MODEL TYPES OF UNITS ON CHANNEL.... 1 BIT PER UNIT           IBB01790
      *   #1 IF MOD IV, #0 IF MOD II (BITS GO LEFT TO RIGHT (UNIT 1 TO 10)    IBB01800
      CHCMD  BOOL    1777                ALL DRIVES MODEL IV                  IBB01810
                                                                              IBB01820
      *              PRINTER.....1 IF IT EXISTS. OTHERWISE, 0.                IBB01830
      PRNTC  EQU     0                                                        IBB01840
                                                                              IBB01850
      *               PUNCH.....1 IF IT EXISTS. OTHERWISE, 0.                 IBB01860
      PNCHC  EQU     0                                                        IBB01870
                                                                              IBB01880
      *            CARD READER.....1 IF IT EXISTS. OTHERWISE, 0.              IBB01890
      CDRDC  EQU     0                                                        IBB01900
                                                                              IBB01910
      *              7340 TAPE DRIVES                                         IBB01920
      *          NUMBER OF TAPES ON INTERFACE 1.....0 THROUGH 10.             IBB01930
      HTC1   EQU     0                                                        IBB01940
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB01950
      HTCA1  BOOL    1777                                                     IBB01960
                                                                              IBB01970
      *          NUMBER OF TAPES ON INTERFACE 2.....0 THROUGH 10.             IBB01980
      HTC2   EQU     0                                                        IBB01990
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB02000
      HTCA2  BOOL    1777                                                     IBB02010
                                                                              IBB02020
      *              1301 DISK AND 7320 NEED FILES                            IBB02030
      *          NUMBER OF DISK MODULES ON INTERFACE 1       (0 THRU 10)      IBB02040
      DFC1   EQU     0                                                        IBB02050
      *          NUMBER OF 1302 MODULES ON INTERFACE 1                     $6$IBB02060
      DFC3   EQU     0                                                     $6$IBB02070
      *          NUMBER OF NEED MODULES ON INTERFACE 1       (0 THRU 5)       IBB02080
      NFC1   EQU     0                                                        IBB02090
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB02100
      DFCA1  BOOL    1777                                                     IBB02110
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB02120
      IFC1   EQU     0                                                        IBB02130
                                                                              IBB02140
      *          NUMBER OF DISK MODULES ON INTERFACE 2       (0 THRU 10)      IBB02150
      DFC2   EQU     0                                                        IBB02160
      *          NUMBER OF 1302 MODULES ON INTERFACE 2                     $6$IBB02170
      DFC4   EQU     0                                                     $6$IBB02180
      *          NUMBER OF NEED MODULES ON INTERFACE 2       (0 THRU 5)       IBB02190
      NFC2   EQU     0                                                        IBB02200
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB02210
      DFCA2  BOOL    1777                                                     IBB02220
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB02230
      IFC2   EQU     0                                                        IBB02240
                                                                              IBB02250
      *                             CHANNEL 'D'                               IBB02260
      *              729 TAPE DRIVES                                          IBB02270
      *                    NO. OF TAPES.....0 THROUGH 10                      IBB02280
      CHD1   EQU     6                                                        IBB02290
                                                                              IBB02300
      *      TAPES ATTACHED..... 1 BIT PER UNIT SIGNIFYING WHETHER UNIT       IBB02310
      *    IS ATTACHED TO MACHINE (I.E.-LEGALLY DIALABLE) BITS GO LEFT TO     IBB02320
      *       RIGHT (CR,PU,PR,TAPES 1 TO 10) AND # 1 IF NOT ATTACHED          IBB02330
      CHDAT  BOOL    17777                                                 $6$IBB02340
                                                                              IBB02350
      *          MODEL TYPES OF UNITS ON CHANNEL.... 1 BIT PER UNIT           IBB02360
      *   #1 IF MOD IV, #0 IF MOD II (BITS GO LEFT TO RIGHT (UNIT 1 TO 10)    IBB02370
      CHDMD  BOOL    1777                ALL DRIVES MODEL IV                  IBB02380
                                                                              IBB02390
      *              PRINTER.....1 IF IT EXISTS. OTHERWISE, 0.                IBB02400
      PRNTD  EQU     0                                                        IBB02410
                                                                              IBB02420
      *               PUNCH.....1 IF IT EXISTS. OTHERWISE, 0.                 IBB02430
      PNCHD  EQU     0                                                        IBB02440
                                                                              IBB02450
      *            CARD READER.....1 IF IT EXISTS. OTHERWISE, 0.              IBB02460
      CDRDD  EQU     0                                                        IBB02470
                                                                              IBB02480
      *              7340 TAPE DRIVES                                         IBB02490
      *          NUMBER OF TAPES ON INTERFACE 1.....0 THROUGH 10.             IBB02500
      HTD1   EQU     0                                                        IBB02510
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB02520
      HTDA1  BOOL    1777                                                     IBB02530
                                                                              IBB02540
      *          NUMBER OF TAPES ON INTERFACE 2.....0 THROUGH 10.             IBB02550
      HTD2   EQU     0                                                        IBB02560
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB02570
      HTDA2  BOOL    1777                                                     IBB02580
                                                                              IBB02590
      *              1301 DISK AND 7320 NEED FILES                            IBB02600
      *          NUMBER OF DISK MODULES ON INTERFACE 1       (0 THRU 10)      IBB02610
      DFD1   EQU     0                                                        IBB02620
      *          NUMBER OF 1302 MODULES ON INTERFACE 1                     $6$IBB02630
      DFD3   EQU     0                                                     $6$IBB02640
      *          NUMBER OF NEED MODULES ON INTERFACE 1       (0 THRU 5)       IBB02650
      NFD1   EQU     0                                                        IBB02660
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB02670
      DFDA1  BOOL    1777                                                     IBB02680
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB02690
      IFD1   EQU     0                                                        IBB02700
                                                                              IBB02710
      *          NUMBER OF DISK MODULES ON INTERFACE 2       (0 THRU 10)      IBB02720
      DFD2   EQU     0                                                        IBB02730
      *          NUMBER OF 1302 MODULES ON INTERFACE 2                     $6$IBB02740
      DFD4   EQU     0                                                     $6$IBB02750
      *          NUMBER OF NEED MODULES ON INTERFACE 2       (0 THRU 5)       IBB02760
      NFD2   EQU     0                                                        IBB02770
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB02780
      DFDA2  BOOL    1777                                                     IBB02790
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB02800
      IFD2   EQU     0                                                        IBB02810
                                                                              IBB02820
      *                             CHANNEL 'E'                               IBB02830
      *              729 TAPE DRIVES                                          IBB02840
      *                    NO. OF TAPES.....0 THROUGH 10                      IBB02850
      CHE1   EQU     0                                                        IBB02860
                                                                              IBB02870
      *      TAPES ATTACHED..... 1 BIT PER UNIT SIGNIFYING WHETHER UNIT       IBB02880
      *    IS ATTACHED TO MACHINE (I.E.-LEGALLY DIALABLE) BITS GO LEFT TO     IBB02890
      *       RIGHT (CR,PU,PR,TAPES 1 TO 10) AND # 1 IF NOT ATTACHED          IBB02900
      CHEAT  BOOL    17777                                                    IBB02910
                                                                              IBB02920
      *          MODEL TYPES OF UNITS ON CHANNEL.... 1 BIT PER UNIT           IBB02930
      *   #1 IF MOD IV, #0 IF MOD II (BITS GO LEFT TO RIGHT (UNIT 1 TO 10)    IBB02940
      CHEMD  BOOL    1777                                                     IBB02950
                                                                              IBB02960
      *              PRINTER.....1 IF IT EXISTS. OTHERWISE, 0.                IBB02970
      PRNTE  EQU     0                                                        IBB02980
                                                                              IBB02990
      *               PUNCH.....1 IF IT EXISTS. OTHERWISE, 0.                 IBB03000
      PNCHE  EQU     0                                                        IBB03010
                                                                              IBB03020
      *            CARD READER.....1 IF IT EXISTS. OTHERWISE, 0.              IBB03030
      CDRDE  EQU     0                                                        IBB03040
                                                                              IBB03050
      *              7340 TAPE DRIVES                                         IBB03060
      *          NUMBER OF TAPES ON INTERFACE 1.....0 THROUGH 10.             IBB03070
      HTE1   EQU     0             -                                          IBB03080
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB03090
      HTEA1  BOOL    1777                                                     IBB03100
                                                                              IBB03110
      *          NUMBER OF TAPES ON INTERFACE 2.....0 THROUGH 10.             IBB03120
      HTE2   EQU     0                                                        IBB03130
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB03140
      HTEA2  BOOL    1777                                                     IBB03150
                                                                              IBB03160
      *              1301 DISK AND 7320 NEED FILES                            IBB03170
      *          NUMBER OF DISK MODULES ON INTERFACE 1       (0 THRU 10)      IBB03180
      DFE1   EQU     0                                                        IBB03190
      *          NUMBER OF 1302 MODULES ON INTERFACE 1                     $6$IBB03200
      DFE3   EQU     0                                                     $6$IBB03210
      *          NUMBER OF NEED MODULES ON INTERFACE 1       (0 THRU 5)       IBB03220
      NFE1   EQU     0                                                        IBB03230
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB03240
      DFEA1  BOOL    1777                                                     IBB03250
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB03260
      IFE1   EQU     1                                                        IBB03270
                                                                              IBB03280
      *          NUMBER OF DISK MODULES ON INTERFACE 2       (0 THRU 10)      IBB03290
      DFE2   EQU     0                                                        IBB03300
      *          NUMBER OF 1302 MODULES ON INTERFACE 2                     $6$IBB03310
      DFE4   EQU     0                                                     $6$IBB03320
      *          NUMBER OF NEED MODULES ON INTERFACE 2       (0 THRU 5)       IBB03330
      NFE2   EQU     0                                                        IBB03340
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB03350
      DFEA2  BOOL    1777                                                     IBB03360
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB03370
      IFE2   EQU     0                                                        IBB03380
                                                                              IBB03390
      *                             CHANNEL 'F'                               IBB03400
      *              729 TAPE DRIVES                                          IBB03410
      *                    NO. OF TAPES.....0 THROUGH 10                      IBB03420
      CHF1   EQU     0                                                        IBB03430
                                                                              IBB03440
      *      TAPES ATTACHED..... 1 BIT PER UNIT SIGNIFYING WHETHER UNIT       IBB03450
      *    IS ATTACHED TO MACHINE (I.E.-LEGALLY DIALABLE) BITS GO LEFT TO     IBB03460
      *       RIGHT (CR,PU,PR,TAPES 1 TO 10) AND # 1 IF NOT ATTACHED          IBB03470
      CHFAT  BOOL    17777                                                    IBB03480
                                                                              IBB03490
      *          MODEL TYPES OF UNITS ON CHANNEL.... 1 BIT PER UNIT           IBB03500
      *   #1 IF MOD IV, #0 IF MOD II (BITS GO LEFT TO RIGHT (UNIT 1 TO 10)    IBB03510
      CHFMD  BOOL    1777                                                     IBB03520
                                                                              IBB03530
      *              PRINTER.....1 IF IT EXISTS. OTHERWISE, 0.                IBB03540
      PRNTF  EQU     0                                                        IBB03550
                                                                              IBB03560
      *               PUNCH.....1 IF IT EXISTS. OTHERWISE, 0.                 IBB03570
      PNCHF  EQU     0                                                        IBB03580
                                                                              IBB03590
      *            CARD READER.....1 IF IT EXISTS. OTHERWISE, 0.              IBB03600
      CDRDF  EQU     0                                                        IBB03610
                                                                              IBB03620
      *              7340 TAPE DRIVES                                         IBB03630
      *          NUMBER OF TAPES ON INTERFACE 1.....0 THROUGH 10.             IBB03640
      HTF1   EQU     0                                                        IBB03650
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB03660
      HTFA1  BOOL    1777                                                     IBB03670
                                                                              IBB03680
      *          NUMBER OF TAPES ON INTERFACE 2.....0 THROUGH 10.             IBB03690
      HTF2   EQU     0                                                        IBB03700
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB03710
      HTFA2  BOOL    1777                                                     IBB03720
                                                                              IBB03730
      *              1301 DISK AND 7320 NEED FILES                            IBB03740
      *          NUMBER OF DISK MODULES ON INTERFACE 1       (0 THRU 10)      IBB03750
      DFF1   EQU     0                                                        IBB03760
      *          NUMBER OF 1302 MODULES ON INTERFACE 1                     $6$IBB03770
      DFF3   EQU     0                                                     $6$IBB03780
      *          NUMBER OF NEED MODULES ON INTERFACE 1       (0 THRU 5)       IBB03790
      NFF1   EQU     0                                                        IBB03800
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB03810
      DFFA1  BOOL    1777                                                     IBB03820
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB03830
      IFF1   EQU     0                                                        IBB03840
                                                                              IBB03850
      *          NUMBER OF DISK MODULES ON INTERFACE 2       (0 THRU 10)      IBB03860
      DFF2   EQU     0                                                        IBB03870
      *          NUMBER OF 1302 MODULES ON INTERFACE 2                     $6$IBB03880
      DFF4   EQU     0                                                     $6$IBB03890
      *          NUMBER OF NEED MODULES ON INTERFACE 2       (0 THRU 5)       IBB03900
      NFF2   EQU     0                                                        IBB03910
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB03920
      DFFA2  BOOL    1777                                                     IBB03930
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB03940
      IFF2   EQU     0                                                        IBB03950
                                                                              IBB03960
      *                             CHANNEL 'G'                               IBB03970
      *              729 TAPE DRIVES                                          IBB03980
      *                    NO. OF TAPES.....0 THROUGH 10                      IBB03990
      CHG1   EQU     0                                                        IBB04000
                                                                              IBB04010
      *      TAPES ATTACHED..... 1 BIT PER UNIT SIGNIFYING WHETHER UNIT       IBB04020
      *    IS ATTACHED TO MACHINE (I.E.-LEGALLY DIALABLE) BITS GO LEFT TO     IBB04030
      *       RIGHT (CR,PU,PR,TAPES 1 TO 10) AND # 1 IF NOT ATTACHED          IBB04040
      CHGAT  BOOL    17777                                                    IBB04050
                                                                              IBB04060
      *          MODEL TYPES OF UNITS ON CHANNEL.... 1 BIT PER UNIT           IBB04070
      *   #1 IF MOD IV, #0 IF MOD II (BITS GO LEFT TO RIGHT (UNIT 1 TO 10)    IBB04080
      CHGMD  BOOL    1777                                                     IBB04090
                                                                              IBB04100
      *              PRINTER.....1 IF IT EXISTS. OTHERWISE, 0.                IBB04110
      PRNTG  EQU     0                                                        IBB04120
                                                                              IBB04130
      *               PUNCH.....1 IF IT EXISTS. OTHERWISE, 0.                 IBB04140
      PNCHG  EQU     0                                                        IBB04150
                                                                              IBB04160
      *            CARD READER.....1 IF IT EXISTS. OTHERWISE, 0.              IBB04170
      CDRDG  EQU     0                                                        IBB04180
                                                                              IBB04190
      *              7340 TAPE DRIVES                                         IBB04200
      *          NUMBER OF TAPES ON INTERFACE 1.....0 THROUGH 10.             IBB04210
      HTG1   EQU     0                                                        IBB04220
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB04230
      HTGA1  BOOL    1777                                                     IBB04240
                                                                              IBB04250
      *          NUMBER OF TAPES ON INTERFACE 2.....0 THROUGH 10.             IBB04260
      HTG2   EQU     0                                                        IBB04270
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB04280
      HTGA2  BOOL    1777                                                     IBB04290
                                                                              IBB04300
      *              1301 DISK AND 7320 NEED FILES                            IBB04310
      *          NUMBER OF DISK MODULES ON INTERFACE 1       (0 THRU 10)      IBB04320
      DFG1   EQU     0                                                        IBB04330
      *          NUMBER OF 1302 MODULES ON INTERFACE 1                     $6$IBB04340
      DFG3   EQU     0                                                     $6$IBB04350
      *          NUMBER OF NEED MODULES ON INTERFACE 1       (0 THRU 5)       IBB04360
      NFG1   EQU     0                                                        IBB04370
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB04380
      DFGA1  BOOL    1777                                                     IBB04390
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB04400
      IFG1   EQU     0                                                        IBB04410
                                                                              IBB04420
      *          NUMBER OF DISK MODULES ON INTERFACE 2       (0 THRU 10)      IBB04430
      DFG2   EQU     0                                                        IBB04440
      *          NUMBER OF 1302 MODULES ON INTERFACE 2                     $6$IBB04450
      DFG4   EQU     0                                                     $6$IBB04460
      *          NUMBER OF NEED MODULES ON INTERFACE 2       (0 THRU 5)       IBB04470
      NFG2   EQU     0                                                        IBB04480
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB04490
      DFGA2  BOOL    1777                                                     IBB04500
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB04510
      IFG2   EQU     0                                                        IBB04520
                                                                              IBB04530
      *                             CHANNEL 'H'                               IBB04540
      *              729 TAPE DRIVES                                          IBB04550
      *                    NO. OF TAPES.....0 THROUGH 10                      IBB04560
      CHH1   EQU     0                                                        IBB04570
                                                                              IBB04580
      *      TAPES ATTACHED..... 1 BIT PER UNIT SIGNIFYING WHETHER UNIT       IBB04590
      *    IS ATTACHED TO MACHINE (I.E.-LEGALLY DIALABLE) BITS GO LEFT TO     IBB04600
      *       RIGHT (CR,PU,PR,TAPES 1 TO 10) AND # 1 IF NOT ATTACHED          IBB04610
      CHHAT  BOOL    17777                                                    IBB04620
                                                                              IBB04630
      *          MODEL TYPES OF UNITS ON CHANNEL.... 1 BIT PER UNIT           IBB04640
      *   #1 IF MOD IV, #0 IF MOD II (BITS GO LEFT TO RIGHT (UNIT 1 TO 10)    IBB04650
      CHHMD  BOOL    1777                                                     IBB04660
                                                                              IBB04670
      *              PRINTER.....1 IF IT EXISTS. OTHERWISE, 0.                IBB04680
      PRNTH  EQU     0                                                        IBB04690
                                                                              IBB04700
      *               PUNCH.....1 IF IT EXISTS. OTHERWISE, 0.                 IBB04710
      PNCHH  EQU     0                                                        IBB04720
                                                                              IBB04730
      *            CARD READER.....1 IF IT EXISTS. OTHERWISE, 0.              IBB04740
      CDRDH  EQU     0                                                        IBB04750
                                                                              IBB04760
      *              7340 TAPE DRIVES                                         IBB04770
      *          NUMBER OF TAPES ON INTERFACE 1.....0 THROUGH 10.             IBB04780
      HTH1   EQU     0                                                        IBB04790
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB04800
      HTHA1  BOOL    1777                                                     IBB04810
                                                                              IBB04820
      *          NUMBER OF TAPES ON INTERFACE 2.....0 THROUGH 10.             IBB04830
      HTH2   EQU     0                                                        IBB04840
      *              TAPES ATTACHED.(SAME FUNCTION AS CHAAT)                  IBB04850
      HTHA2  BOOL    1777                                                     IBB04860
                                                                              IBB04870
      *              1301 DISK AND 7320 NEED FILES                            IBB04880
      *          NUMBER OF DISK MODULES ON INTERFACE 1       (0 THRU 10)      IBB04890
      DFH1   EQU     0                                                        IBB04900
      *          NUMBER OF 1302 MODULES ON INTERFACE 1                     $6$IBB04910
      DFH3   EQU     0                                                     $6$IBB04920
      *          NUMBER OF NEED MODULES ON INTERFACE 1       (0 THRU 5)       IBB04930
      NFH1   EQU     0                                                        IBB04940
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB04950
      DFHA1  BOOL    1777                                                     IBB04960
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB04970
      IFH1   EQU     0                                                        IBB04980
                                                                              IBB04990
      *          NUMBER OF DISK MODULES ON INTERFACE 2       (0 THRU 10)      IBB05000
      DFH2   EQU     0                                                        IBB05010
      *          NUMBER OF 1302 MODULES ON INTERFACE 2                     $6$IBB05020
      DFH4   EQU     0                                                     $6$IBB05030
      *          NUMBER OF NEED MODULES ON INTERFACE 2       (0 THRU 5)       IBB05040
      NFH2   EQU     0                                                        IBB05050
      *          MODULES ATTACHED. (SIMILAR TO CHAAT - FIRST DISK THEN NEED)  IBB05060
      DFHA2  BOOL    1777                                                     IBB05070
      * MODEL OF 7631.#1 IF MODEL III OR IV, ELSE#0.                          IBB05080
      IFH2   EQU     0                                                        IBB05090
                                                                              IBB05100
      *-------------------------------------------------------------------------------
      *                         CONTROL CARD FORMAT                           IBB05110
      *      COL           COL                                                IBB05130
      *      1             16                                                 IBB05140
      *      $AS           SYSUNI,HI     ASSIGN LAST ATTACH UNIT TO NAME      IBB05150
      *      $ATTACH       UNI,II        ATTACH SPECIFIED UNIT                IBB05160
      *      $CARDS                      NEXT IBSYS CONTROL CARD ON SYSCRD    IBB05170
      *      $DATE         MMDDYY        ENTER DATE                           IBB05180
      *      $DETACH       UNI           DETACH SPECIFIED UNIT                IBB05190
      *      $ENDFILE      SYSUNI        WRITE EOF ON SPEC. SYSTEM UNIT       IBB05200
      *      $EXECUTE      SYSTEM        LOAD AND EXECUTE SPECIFIED SYSTEM    IBB05210
      *      $IBSYS                      RELOAD'IBSUP'                        IBB05220
      *      $JOB                        FIRST CARD OF A NEW JOB              IBB05230
      *      $IBEDT                      CALL SYSTEM EDITOR                   IBB05240
      *      $ID                         CALL INSTALLATION ACCOUNTING ROUTINE IBB05250
      *      $UNITS                      PRINT STATUS OF ATTACHED UNITS       IBB05260
      *      $PAUSE                      PAUSE FOR OPERATOR                   IBB05270
      *      $PROTECT      SYSUNI        FILE PROTECT UNIT (HYPER)            IBB05280
      *      $RELEASE      SYSUNI        RELEASE UNIT FROM SPEC. SYSUNI       IBB05290
      *      $REMOVE       SYSUNI        REW-UNLOAD SPEC. SYSTEM UNIT         IBB05300
      *      $RESTORE                    RELOAD 'IBNUC' EXCEPT TAPE POSITIONS IBB05310
      *      $REWIND       SYSUNI        REWIND SPECIFIED SYSTEM UNIT         IBB05320
      *      $STOP                       STOP                                 IBB05330
      *      $SWITCH       SYSUNI,SYSUNI SWITCH UNITS FOR SPEC. SYS. FUNCTIONSIBB05340
      *      $TAPE                       NEXT IBSYS CONTROL CARD ON SYSIN1    IBB05350
      *      $LIST                       LIST IBSYS CONTROL CARDS             IBB05360
      *      $UNLIST                     SUPPRESS LISTING CONTROL CARDS       IBB05370
      *      $UNLOAD       SYSUNI        UNLOAD UNIT (HYPER) WITHOUT REWIND   IBB05380
      *      $RESET                      REASSIGN RELEASED SYSUNI FUNCTIONS   IBB05390
      *      $RESTART      N             RESTART A JOB ON A SYSIN1 STACK      IBB05400
      *      $*..COMMENT......           COMMENT CARD (NO ACTION)             IBB05410
      *   WHERE...                                                            IBB05420
      *      SYSUNI # ANY NAME FROM THE SET                                   IBB05430
      *      ''SYSLB1,SYSLB2,SYSLB3,SYSLB4,SYSCRD,SYSPRT,SYSPCH,SYSIN1,SYSIN2,IBB05440
      *        SYSOU1,SYSOU2,SYSPP1,SYSPP2,SYSUT1,SYSUT2,SYSUT3,SYSUT4,SYSCK1,IBB05450
      *        OR SYSCK2''                                                    IBB05460
      *                                                                       IBB05470
      *      UNI    #  SYMBOLIC UNIT REFERENCE OF THE SET                     IBB05480
      *      '' A1,A2,...,A9,A0,RDA,PRA,PUA,B1,....,PUH''                     IBB05490
      *      ''AD00/0,...,HD19/1,AN00/0,...,HN08/1,AH0/0,...,HH9/1''          IBB05500
      *                                                                       IBB05510
      *      MMDDYY   #  MONTH DAY YEAR                                       IBB05520
      *                                                                       IBB05530
      *      SYSTEM  # SYSTEM NAME                                            IBB05540
      *-------------------------------------------------------------------------------

      *                       INTERMEDIATE DEFINITIONS FOR 7909 CHANNEL       IBB05560
      *                    NO. OF DISK ARMS + NEED DRUMS FOR EACH CHANNEL     IBB05580
      DUCA   EQU     DFA1+DFA3*2+DFA2+DFA4*2+NFA1+NFA2                     $6$IBB05590
      DUCB   EQU     DFB1+DFB3*2+DFB2+DFB4*2+NFB1+NFB2                     $6$IBB05600
      DUCC   EQU     DFC1+DFC3*2+DFC2+DFC4*2+NFC1+NFC2                     $6$IBB05610
      DUCD   EQU     DFD1+DFD3*2+DFD2+DFD4*2+NFD1+NFD2                     $6$IBB05620
      DUCE   EQU     DFE1+DFE3*2+DFE2+DFE4*2+NFE1+NFE2                     $6$IBB05630
      DUCF   EQU     DFF1+DFF3*2+DFF2+DFF4*2+NFF1+NFF2                     $6$IBB05640
      DUCG   EQU     DFG1+DFG3*2+DFG2+DFG4*2+NFG1+NFG2                     $6$IBB05650
      DUCH   EQU     DFH1+DFH3*2+DFH2+DFH4*2+NFH1+NFH2                     $6$IBB05660
                                                                              IBB05670
      *                    NO. HYPERTAPE UNITS EACH CHANNEL                   IBB05680
       HTCA  EQU     HTA1+HTA2                                                IBB05690
       HTCB  EQU     HTB1+HTB2                                                IBB05700
       HTCC  EQU     HTC1+HTC2                                                IBB05710
       HTCD  EQU     HTD1+HTD2                                                IBB05720
       HTCE  EQU     HTE1+HTE2                                                IBB05730
       HTCF  EQU     HTF1+HTF2                                                IBB05740
       HTCG  EQU     HTG1+HTG2                                                IBB05750
       HTCH  EQU     HTH1+HTH2                                                IBB05760
                                                                              IBB05770
      *                    NO. 7909 CHANNEL DEVICES EACH CHANNEL              IBB05780
       CHA2  EQU     DUCA+HTCA                                                IBB05790
       CHB2  EQU     DUCB+HTCB                                                IBB05800
       CHC2  EQU     DUCC+HTCC                                                IBB05810
       CHD2  EQU     DUCD+HTCD                                                IBB05820
       CHE2  EQU     DUCE+HTCE                                                IBB05830
       CHF2  EQU     DUCF+HTCF                                                IBB05840
       CHG2  EQU     DUCG+HTCG                                                IBB05850
       CHH2  EQU     DUCH+HTCH                                                IBB05860
                                                                              IBB05870
      *                    EQUALS 1 IF CHANNEL IS 7909 - ELSE 0.              IBB05880
      CHA3   EQU     CHA2/CHA2      A                                         IBB05890
      CHB3   EQU     CHB2/CHB2      B                                         IBB05900
      CHC3   EQU     CHC2/CHC2      C                                         IBB05910
      CHD3   EQU     CHD2/CHD2      D                                         IBB05920
      CHE3   EQU     CHE2/CHE2      E                                         IBB05930
      CHF3   EQU     CHF2/CHF2      F                                         IBB05940
      CHG3   EQU     CHG2/CHG2      G                                         IBB05950
      CHH3   EQU     CHH2/CHH2      H                                         IBB05960
                                                                              IBB05970
      *                    TOTAL DISK ARMS AND NEED DRUMS ALL CHANNELS        IBB05980
       TDUAC EQU     DUCA+DUCB+DUCC+DUCD+DUCE+DUCF+DUCG+DUCH                  IBB05990
      *                    EQUALS 1 IF DISK OR NEED EXISTS -ELSE 0.           IBB06000
       DUEX  EQU     TDUAC/TDUAC                                              IBB06010
                                                                              IBB06020
      *                    TOTAL HYPERTAPE UNITS ALL CHANNELS                 IBB06030
       THTAC EQU     HTCA+HTCB+HTCC+HTCD+HTCE+HTCF+HTCG+HTCH                  IBB06040
      *                    EQUALS 1 IF HYPERTAPE EXISTS - ELSE 0.             IBB06050
       HTEX  EQU     THTAC/THTAC                                              IBB06060
                                                                              IBB06070
      *                    NO. OF 7909 CHANNELS THAT EXIST                    IBB06080
       T7909 EQU     CHA3+CHB3+CHC3+CHD3+CHE3+CHF3+CHG3+CHH3                  IBB06090
      *                    EQUALS 1 IF 7909 CHANNEL EXISTS - ELSE 0.          IBB06100
       CHEX  EQU     T7909/T7909                                              IBB06110
                                                                              IBB06120
      *                    NO. OF SECOND DISK ARMS - EACH INTERFACE, EACH CH. IBB06130
      DDA1   EQU     DFA3                                                  $6$IBB06140
      DDA2   EQU     DFA4                                                  $6$IBB06150
      DDB1   EQU     DFB3                                                  $6$IBB06160
      DDB2   EQU     DFB4                                                  $6$IBB06170
      DDC1   EQU     DFC3                                                  $6$IBB06180
      DDC2   EQU     DFC4                                                  $6$IBB06190
      DDD1   EQU     DFD3                                                  $6$IBB06200
      DDD2   EQU     DFD4                                                  $6$IBB06210
      DDE1   EQU     DFE3                                                  $6$IBB06220
      DDE2   EQU     DFE4                                                  $6$IBB06230
      DDF1   EQU     DFF3                                                  $6$IBB06240
      DDF2   EQU     DFF4                                                  $6$IBB06250
      DDG1   EQU     DFG3                                                  $6$IBB06260
      DDG2   EQU     DFG4                                                  $6$IBB06270
      DDH1   EQU     DFH3                                                  $6$IBB06280
      DDH2   EQU     DFH4                                                  $6$IBB06290
                                                                              IBB06300
      *                       INTERMEDIATE DEFFINITIONS FOR 7607 CHANNEL      IBB06310
      *                     CONSTANTS FOR UCW GENERATION                      IBB06330
       UG1   EQU     32*CDRDA+16*PNCHA+8*PRNTA+4*CDRDB+2*PNCHB+PRNTB          IBB06340
       UG2   EQU     32*CDRDC+16*PNCHC+8*PRNTC+4*CDRDD+2*PNCHD+PRNTD          IBB06350
       UG3   EQU     32*CDRDE+16*PNCHE+8*PRNTE+4*CDRDF+2*PNCHF+PRNTF          IBB06360
       UG4   EQU     32*CDRDG+16*PNCHG+8*PRNTG+4*CDRDH+2*PNCHH+PRNTH          IBB06370
                                                                              IBB06380
      *                       INTERMEDIATE DEFINITIONS                        IBB06390
      *                    NO. OF IO DEVICES EACH CHANNEL   CHX0#CHX(ZERO)    IBB06410
       CHA0  EQU     CDRDA+PNCHA+PRNTA+CHA1+CHA2                              IBB06420
       CHB0  EQU     CDRDB+PNCHB+PRNTB+CHB1+CHB2                              IBB06430
       CHC0  EQU     CDRDC+PNCHC+PRNTC+CHC1+CHC2                              IBB06440
       CHD0  EQU     CDRDD+PNCHD+PRNTD+CHD1+CHD2                              IBB06450
       CHE0  EQU     CDRDE+PNCHE+PRNTE+CHE1+CHE2                              IBB06460
       CHF0  EQU     CDRDF+PNCHF+PRNTF+CHF1+CHF2                              IBB06470
       CHG0  EQU     CDRDG+PNCHG+PRNTG+CHG1+CHG2                              IBB06480
       CHH0  EQU     CDRDH+PNCHH+PRNTH+CHH1+CHH2                              IBB06490
                                                                              IBB06500
      *                  NO. OF IO DEVICES FOR ALL CHANNELS                   IBB06510
      NOUCW  EQU     CHA0+CHB0+CHC0+CHD0+CHE0+CHF0+CHG0+CHH0                  IBB06520
                                                                              IBB06530
      *                    EQUALS 1 IF CHANNEL EXISTS - ELSE 0.               IBB06540
      CHA4   EQU     CHA0/CHA0      A                                         IBB06550
      CHB4   EQU     CHB0/CHB0      B                                         IBB06560
      CHC4   EQU     CHC0/CHC0      C                                         IBB06570
      CHD4   EQU     CHD0/CHD0      D                                         IBB06580
      CHE4   EQU     CHE0/CHE0      E                                         IBB06590
      CHF4   EQU     CHF0/CHF0      F                                         IBB06600
      CHG4   EQU     CHG0/CHG0      G                                         IBB06610
      CHH4   EQU     CHH0/CHH0      H                                         IBB06620
                                                                              IBB06630
      *                    NO. OF CHANNELS THAT EXIST                         IBB06640
      CHH5   EQU     CHA4+CHB4+CHC4+CHD4+CHE4+CHF4+CHG4+CHH4                  IBB06650
                                                                              IBB06660
      *                       PING/PONG DEFINITIONS                           IBB06670
      PPC    EQU     PP/100              DEFINES PING/PONG CHANNEL            IBB06680
      PPU    EQU     PP-PPC*100          DEFINES PING/PONG UNIT               IBB06690
      PPE    EQU     PPC/PPC             DEFINES PING/PONG EXISTENCE          IBB06700
      ;                                                                    $6$IBB06701
      *      NO. CORRESPONDING TO HIGHEST EXISTING CHANNEL                 $6$IBB06702
             GETCHN  (A,B,C,D,E,F,G,H)                                     $6$IBB06703
      HGHCHN SET     LSTCHN                                                $6$IBB06704

      *-------------------------------------------------------------------------------
      ;              STORE CHANNEL DIAGNOSTIC CATECHISM FOR IBMAP          $6$IBB06705
       SCDA  OPVFD   O6/43,5/,1/,2/,2/1,2/3,6/,O12/0644                    $6$IBB06706
       SCDB  OPVFD   O6/43,5/,1/,2/,2/1,2/3,6/,O12/4644                    $6$IBB06707
       SCDC  OPVFD   O6/43,5/,1/,2/,2/1,2/3,6/,O12/0645                    $6$IBB06708
       SCDD  OPVFD   O6/43,5/,1/,2/,2/1,2/3,6/,O12/4645                    $6$IBB06709
       SCDE  OPVFD   O6/43,5/,1/,2/,2/1,2/3,6/,O12/0646                    $6$IBB06710
       SCDF  OPVFD   O6/43,5/,1/,2/,2/1,2/3,6/,O12/4646                    $6$IBB06711
       SCDG  OPVFD   O6/43,5/,1/,2/,2/1,2/3,6/,O12/0647                    $6$IBB06712
       SCDH  OPVFD   O6/43,5/,1/,2/,2/1,2/3,6/,O12/4647                    $6$IBB06713

      *-------------------------------------------------------------------------------
      ;           SYSTEM LOADING TABLES AND TRANSFER INFORMATION              IBB06715
      *                         BASIC MONITOR 'IBS'                           IBB06720
      *   1. RECEIVES CONTROL AT 'COLD' IF COLD START                         IBB06730
      *      -THEN MOVES IBSNUC (TABLES AND REST OF NUCLEUS WHICH STAYS IN)   IBB06740
      *       TO ITS RESTING PLACE                                            IBB06750
      *      -GENERATES THE UNIT CONTROL WORD TABLES,INCLUDING ALL            IBB06760
      *       ATTACHMENT,MODEL TYPE BITS AND FORMS UNIT CHAINS                IBB06770
      *   2. RECEIVES CONTROL AT IBSYS IF LOADED BY IBSNUC OR AFTER           IBB06790
      *      COLD START PROCEDURE                                             IBB06800
      *-------------------------------------------------------------------------------
      SLTBLS EQU     410                                                      IBB06820
      SLTABL EQU     SLTBLS*2                                                 IBB06830
      CLDORG EQU     SYSORG+100+7+SLTABL                                      IBB06840
      ;                                                                    $6$IBB06841
      EMTM   OPVFD   O6/46,6/,2/3,2/1,2/2,3/1,O15/16  MAKE OK FOR M90      $6$IBB06842
      TSX    OPVFD   O6/43,6/,2/,2/,2/1,O18/0074      SPECIFY DECREMENT OK $6$IBB06843
      TCH    OPVFD   O6/42,6/1,2/,2/3,2/1,O18/1000    SPECIFY DECREMENT OK $6$IBB06844
      EQU    OPSYN   SYN                                                   $6$IBB06845
             BES     SYSCUR-*                                              $6$IBB06850
             BCI     1,IBSYS             NAME CELL FOR MAINTAINANCE           IBB06860
             BES     SYSORG-*                                                 IBB06870
             DUP     2,50                SYSTEM NAME AND LOCATION INDEX TABLE IBB06880
             BCI     1,                                                       IBB06890
             PZE                                                              IBB06900
             DUP     1,7                                                      IBB06910
             PZE                                                              IBB06920
      DSYSNM DUP     1,SLTABL                                                 IBB06930
             PZE                                                              IBB06940
             BES     3-*                                                      IBB06950
             TRA     COLD                TRA PT FOR COLD START                IBB06960
             BES     IBSORG-*                                                 IBB06970
             TRA     TPPS                TRA PT FOR RESTORE LOAD              IBB06980

      *-------------------------------------------------------------------------------
      ;              IBSUP COLD START INITIALIZATION                          IBB07370
      *                         COLD START PROCEDURE                          IBB07380
      *-------------------------------------------------------------------------------
             BES     CLDORG-*                                                 IBB07400
04511 COLD   STZ     0                   SET STOP IF REDUNDANCY ENCOUNTERED   IBB07410
04512        STZ     COLD                SET COLD START EXECUTED SWITCH       IBB07420
      *      CHECK IF CHANNEL  FROM WHICH IBS WAS LOADED ENCOUNTERED       $6$IBB07430
      *      TAPE CHECK.  SINCE END OF COLD START LOADING PROCEDURE WILL   $6$IBB07440
      *      HAVE CAUSED A TRAP AND IOEX KNOWS NOT OF ANY I/O ACTION IT    $6$IBB07450
      *      WILL RETURN TO CELL 3 AND OFF WE GO.  CELL 3 GETS CONTROL     $6$IBB07460
      *      SINCE HPR IN CELL 2 EXECUTED IN LOAD SEQUENCE                 $6$IBB07470
;            COMMDS  VAROP,(TRC,0)                                         $6$IBB07480
04513        +
04514        +
      *       COLD START LOADED W/O REDUNDANCY - MOVE IBSNUC TO IBSORG        IBB07530
;            MOVLDR  SYSDAT,CALIB2,IBSNUC+1   MOVE IBNUC EXECEPT SYSTRA    $6$IBB07540
04515        +
04516        +
04517        +
04520        +
;            MOVLDR  CALIB3,NUCEND,CALB3L                                  $6$IBB07550
04521        +
04522        +
04523        +
04524        +
04525        ENK                                                              IBB07580
;            STQ     SYSKEY                                                $6$IBB07590
;            LDI     SYSSWS                                                $6$IBB07600
;            SWT     6                   PLACE CURRENT                        IBB07610
;            RIR     40                  SETTING SENSE SWITCHES               IBB07620
;            SWT     5                   INTO IBSSWS BITS                     IBB07630
;            RIR     20                  30-35                                IBB07640
;            SWT     4                                                        IBB07650
;            RIR     10                                                       IBB07660
;            SWT     3                                                        IBB07670
;            RIR     4                                                        IBB07680
04526        SWT     2                                                        IBB07690
04527        RIR     2                                                        IBB07700
04530        SWT     1                                                        IBB07710
04531        RIR     1                                                        IBB07720
04532        STI     SYSSWS                                                $6$IBB07730
04533 DRCOLD ZAC                                                              IBB07740
04534        STT     SYSLB4              RESET PING PONG FLAG              $6$IBB07750
;            MOVLDR  SPOUT,SPTEND,SPTLD                                    $6$IBB07760
04535        +
04536        +
04537        +
04540        +
      *      MOVE INTERCEPT DUMP ROUTINE                                   $6$IBB07800
;            MOVLDR  CEMBGN,CEMBGN+50,GENITD                               $6$IBB07810
04541        +
04542        +
04543        +
04544        +
04545        CLA     SYSORG+101          IS SYSLB1 A 7909 DEVICE              IBB07840
04546        TZE     RCOLD               IF NO TRA TO RCOLD                   IBB07850
04547        STO     SYSLB1              IF YES - FIRST SET UP             $6$IBB07860
04550        CLA     SYSORG+100          SYSUNI ENTRY OF SYSLB1               IBB07870
04551        STO     SYSLB1+SUNLG                                          $6$IBB07880
;     RCOLD  NULL                                                          $6$IBB07890
04552  RCLD  AXC     4*NOUCW,4           CLEAR                                IBB07930
04553        LDQ     FOR                 UCW BLOCK TO                         IBB07940
04554        STZ     UEA11-1,4           WORD 4 PZE                           IBB07950
04555        STQ     UEA11-2,4           3 MZE                                IBB07960
04556        STZ     UEA11-3,4           2 PZE                                IBB07970
04557        STQ     UEA11-4,4           1 MZE                                IBB07980
04560        TXI     *+1,4,4             STEP TO NEXT UNIT                    IBB07990
04561        TXH     *-5,4,0             BACK FOR NEXT BLOCK                  IBB08000
04562        AXC     UEA11,4             L(1ST UCW)                           IBB08010
                                                                              IBB08020
      *                    GENERATE CARD EQUIPMENT UNIT CONTROL BLOCKS        IBB08030
04563 IGCDE  AXT     3,2                                                      IBB08050
04564        LDQ     ROCTST                                                   IBB08060
04565 CHN    AXC     1,1                                                      IBB08070
04566        LDI     AAMT-1,1                                                 IBB08080
04567        CAL     UFWCT               PLACE CARD ADDRESS IN AC (E.G. 1321) IBB08090
04570        TQP     SUNCDE              EXISTANT                             IBB08100
04571        RFT     10000               -YES ATTACHED                        IBB08110
04572        ORA     PTW                 -NO                                  IBB08120
04573        LFT     10000               MODEL                                IBB08130
04574        ORA     PON                 HI                                   IBB08140
04575        ORS     0,4                 STORE                                IBB08150
04576        TXI     *+1,4,-4            ADVANCE L(UCW)                       IBB08160

      *                     STEP UNIT FOR CARD EQUIPMENT                      IBB08170
04577 SUNCDE PDX     0,1                 ADVANCE                              IBB08180
04600        TXI     *+1,1,16            UNIT ADDRESS                         IBB08190
04601        PIA                         SHIFT                                IBB08200
04602        LGL     1                   CARD AND ATTACHMENT                  IBB08210
04603        PAI                         AND MODEL BITS                       IBB08220
04604        PXD     0,1                 NEXT UNIT ADDRESS                    IBB08230
04605        TIX     CHN+3,2,1           ALL CARD EQUIP                       IBB08240
                                                                              IBB08250
      *                    GENERATE 729 TAPE UNIT CONTROL BLOCKS              IBB08260
04606        STQ     ROCTST              SAVE CARD BITS                       IBB08280
04607        CAL     NTONCH              EXTRACT                              IBB08290
04610        LGR     32                  NUMBR OF TAPES                       IBB08300
04611        STQ     NTONCH              THIS CHANNEL                         IBB08310
04612        PAX     0,1                                                      IBB08320
04613        CLA     TWFCH               1ST TAPE ADDRESS                     IBB08330
04614        TXL     GNXD1,1,0      IF NONE-TO DISKS                          IBB08340
04615        TSX     GNXUN,2        GO GENERATE UNIT                          IBB08350
04616        TIX     *-1,1,1                                                  IBB08360
                                                                              IBB08370
      *                    GENERATE DISK AND NEED INTERFACE 0 UCB'S           IBB08380
      *              GENERATE DISK FILE UNIT CONTROL BLOCKS (ACCESS 0)        IBB08390
04617 GNXD1  LAC     CHN,1                                                    IBB08400
04620        LDI     AADF1-1,1                                                IBB08410
04621        CAL     DFONC1                                                   IBB08420
04622        LGR     32                                                       IBB08430
04623        STQ     DFONC1                                                   IBB08440
04624        PAX     0,1                                                      IBB08450
04625        CLA     DFWC1                                                    IBB08460
04626        TXL     GNX02,1,0                                             $6$IBB08470
04627        TSX     GNSEK,2             GO GENERATE UCB AND UCB+2            IBB08480
04630        TIX     *-1,1,1                                               $6$IBB08482
                                                                           $6$IBB08484
      *              GENERATE 1302 UNIT CONTROL BLOCKS (ACCESS 0)          $6$IBB08486
04631  GNX02 STI     AAD02               SAVE ATTACH BITS FOR ACC 1        $6$IBB08488
04632        PDX     ,2                                                    $6$IBB08490
04633        TXI     *+1,2,384                                             $6$IBB08492
04634        CAL     DFONC2                                                $6$IBB08493
04635        LGR     32                                                    $6$IBB08494
04636        PAX     ,1                                                    $6$IBB08495
04637        PXD     ,2                                                    $6$IBB08496
04640        TXL     GNXN1,1,0                                             $6$IBB08498
04641        STL     DSK02               SET SAVE SWITCH                   $6$IBB08500
04642        TSX     GNSEK,2                                               $6$IBB08502
04643        TIX     *-1,1,1                                               $6$IBB08504
04644        STZ     DSK02                                                 $6$IBB08506
                                                                           $6$IBB08508
      *              GENERATE NEED FILE UNIT CONTROL BLOCKS                   IBB08510
04645  GNXN1 LAC     CHN,1                                                    IBB08520
04646        PDX     ,2                  PICK UP NEXT DISK ADDRESS.           IBB08530
04647        TIX     *+1,2,256                                             $6$IBB08540
04650        CAL     NDONC1                                                   IBB08550
04651        LGR     32                                                       IBB08560
04652        STQ     NDONC1                                                   IBB08570
04653        PAX     ,1                  SET XR1# NO. OF NEED DRUMS.          IBB08580
04654        PXD     ,2                                                       IBB08590
04655        TXL     GNXD2,1,0           MOVE ON IF THERE ARE NONE.           IBB08600
04656        TSX     GNEED,2                                                  IBB08610
04657        TIX     *-1,1,1                                                  IBB08620
                                                                              IBB08630
      *              GENERATE 1302 UNIT CONTROL BLOCKS (ACCESS 1)          $6$IBB08640
04660 GNXD2  LAC     CHN,1                                                    IBB08650
04661        LDI     AAD02               RETRIEVE ATTACH BITS              $6$IBB08660
04662        CAL     DFONC2                                                   IBB08670
04663        LGR     32                                                       IBB08680
04664        STQ     DFONC2                                                   IBB08690
04665        PAX     0,1                                                      IBB08700
04666        TXL     GNXD3,1,0                                                IBB08720
04667        CAL     TBL02,1                                               $6$IBB08722
04670        ORA     ACC02               CREATE ACCESS 1 BIT               $6$IBB08724
04671        TSX     GNSEK,2             GO GENERATE UCB AND UCB+2            IBB08730
04672        TIX     *-3,1,1                                               $6$IBB08740
                                                                              IBB08750
      *                    GENERATE DISK AND NEED INTERFACE 1 UCB'S           IBB08760
      *              GENERATE DISK FILE UNIT CONTROL BLOCKS (ACCESS 0)        IBB08780
04673 GNXD3  LAC     CHN,1                                                    IBB08790
04674        LDI     AADF2-1,1                                                IBB08800
04675        CAL     DFONC3                                                   IBB08810
04676        LGR     32                                                       IBB08820
04677        STQ     DFONC3                                                   IBB08830
04700        PAX     0,1                                                      IBB08840
04701        CLA     DFWC3                                                    IBB08850
04702        TXL     GNX12,1,0                                             $6$IBB08860
04703        TSX     GNSEK,2             GO GENERATE UCB AND UCB+2            IBB08870
04704        TIX     *-1,1,1                                               $6$IBB08872
                                                                           $6$IBB08874
      *              GENERATE 1302 UNIT CONTROL BLOCKS (ACCESS 0)          $6$IBB08876
04705  GNX12 STI     AAD02               SAVE ATTACH BITS FOR ACC 1        $6$IBB08878
04706        PDX     ,2                                                    $6$IBB08880
04707        TXI     *+1,2,384                                             $6$IBB08882
04710        CAL     DFONC4                                                $6$IBB08883
04711        LGR     32                                                    $6$IBB08884
04712        PAX     ,1                                                    $6$IBB08885
04713        PXD     ,2                                                    $6$IBB08886
04714        TXL     GNXN2,1,0                                             $6$IBB08888
04715        STL     DSK02               SET SAVE SWITCH                   $6$IBB08890
04716        TSX     GNSEK,2                                               $6$IBB08892
04717        TIX     *-1,1,1                                               $6$IBB08894
04720        STZ     DSK02                                                 $6$IBB08896
                                                                           $6$IBB08898
      *              GENERATE NEED FILE UNIT CONTROL BLOCKS                   IBB08900
04721  GNXN2 LAC     CHN,1                                                    IBB08910
04722        PDX     ,2                  PICK UP NEXT DISK ADDRESS.           IBB08920
04723        TIX     *+1,2,256                                             $6$IBB08930
04724        CAL     NDONC2                                                   IBB08940
04725        LGR     32                                                       IBB08950
04726        STQ     NDONC2                                                   IBB08960
04727        PAX     ,1                  SET XR1# NO. OF NEED DRUMS.          IBB08970
04730        PXD     ,2                                                       IBB08980
04731        TXL     GNXD4,1,0           MOVE ON IF THERE ARE NONE.           IBB08990
04732        TSX     GNEED,2                                                  IBB09000
04733        TIX     *-1,1,1                                                  IBB09010
                                                                              IBB09020
      *              GENERATE 1302 UNIT CONTROL BLOCKS (ACCESS 1)          $6$IBB09030
04734 GNXD4  LAC     CHN,1                                                    IBB09040
04735        LDI     AAD02               RETREIVE ATTACH BITS              $6$IBB09050
04736        CAL     DFONC4                                                   IBB09060
04737        LGR     32                                                       IBB09070
04740        STQ     DFONC4                                                   IBB09080
04741        PAX     0,1                                                      IBB09090
04742        TXL     GNXH1,1,0                                                IBB09110
04743        CAL     TBL02,1                                               $6$IBB09112
04744        ORA     ACC02                                                 $6$IBB09114
04745        TSX     GNSEK,2             GO GENERATE UCB AND UCB+2            IBB09120
04746        TIX     *-3,1,1                                               $6$IBB09130
                                                                              IBB09140
      *                    GENERATE HYPERTAPE INTERFACE 0 UNIT CONTROL BLOCKS IBB09150
04747  GNXH1 LAC     CHN,1                                                    IBB09170
04750        LDI     AAHT1-1,1                                                IBB09180
04751        CAL     HTONC1                                                   IBB09190
04752        LGR     32                                                       IBB09200
04753        STQ     HTONC1                                                   IBB09210
04754        PAX     ,1                                                       IBB09220
04755        CLA     HTWC1                                                    IBB09230
04756        TXL     GNXH2,1,0                                                IBB09240
04757  GNXHA STZ     2,4                                                      IBB09250
04760        TSX     GNXUN,2                                                  IBB09260
04761        TIX     GNXHA,1,1                                                IBB09270
                                                                              IBB09280
      *                    GENERATE HYPERTAPE INTERFACE 1 UNIT CONTROL BLOCKS IBB09290
04762 GNXH2  LAC     CHN,1                                                    IBB09310
04763        LDI     AAHT2-1,1                                                IBB09320
04764        CAL     HTONC2                                                   IBB09330
04765        LGR     32                                                       IBB09340
04766        STQ     HTONC2                                                   IBB09350
04767        PAX     0,1                                                      IBB09360
04770        CLA     HTWC2                                                    IBB09370
04771        TXL     GNXCH,1,0                                                IBB09380
04772  GNXHB STZ     2,4                                                      IBB09390
04773        TSX     GNXUN,2                                                  IBB09400
04774        TIX     GNXHB,1,1                                                IBB09410
                                                                              IBB09420
      *                       ADVANCE TO NEXT CHANNEL                         IBB09430
04775 GNXCH  LXD     UFWCT,1             ADVANCE                              IBB09450
04776        TXI     *+1,1,512           CHANNEL IN                           IBB09460
04777        SXD     UFWCT,1             CARD SELECT ADDR.                    IBB09470
05000        LXD     TWFCH,1             ADVANCE                              IBB09480
05001        TXI     *+1,1,512           CHANNEL IN TAPE SELECT               IBB09490
05002        SXD     TWFCH,1             ADDRESS                              IBB09500
05003        LXD     DFWC1,1                                                  IBB09510
05004        TXI     *+1,1,512                                                IBB09520
05005        SXD     DFWC1,1                                                  IBB09530
05006        LXD     DFWC2,1                                                  IBB09540
05007        TXI     *+1,1,512                                                IBB09550
05010        SXD     DFWC2,1                                                  IBB09560
05011        LXD     HTWC1,1                                                  IBB09570
05012        TXI     *+1,1,512                                                IBB09580
05013        SXD     HTWC1,1                                                  IBB09590
05014        LXD     DFWC3,1                                                  IBB09600
05015        TXI     *+1,1,512                                                IBB09610
05016        SXD     DFWC3,1                                                  IBB09620
05017        LXD     DFWC4,1                                                  IBB09630
05020        TXI     *+1,1,512                                                IBB09640
05021        SXD     DFWC4,1                                                  IBB09650
05022        LXD     HTWC2,1                                                  IBB09660
05023        TXI     *+1,1,512                                                IBB09670
05024        SXD     HTWC2,1                                                  IBB09680
05025        AXT     UCAA,1              ADVANCE                           $6$IBB09690
05026        TXI     *+1,1,1             STARTING                             IBB09700
05027        SXA     *-2,1               LOC AVAILABILITY                     IBB09710
05030        SXA     LUCAC,1             CHAIN                                IBB09720
05031        LXA     CHN,1               ADVANCE                              IBB09730
05032        TXI     *+1,1,1             CHANNEL                              IBB09740
05033        SXA     CHN,1                                                    IBB09750
05034        CAL     IBGBIT                                                   IBB09760
05035        SLW     GAPBIT              RESTORE THE GAP BIT                  IBB09770
05036        NZT     ACSAV                                                    IBB09780
05037        TRA     *+6                 RESET D(UCAA,1) TO ZERO IF           IBB09790
05040        CLA     IBLD1               NO 2ND DEVICE FOR THE                IBB09800
05041        TNZ     *+2                 7909 CHANNEL.                        IBB09810
05042        STD*    ACSAV                                                    IBB09820
05043        STZ     ACSAV                                                    IBB09830
05044        STZ     IBLD1                                                    IBB09840
05045        TXL     IGCDE,1,HGHCHN                                        $6$IBB09850
05046        CAL     PTW                 AVOID SETTING DENSITY                IBB09860
05047        STP     SELX-2              UNTIL UNITS ARE                      IBB09870
05050        STP     SELX-1              REFERENCED BY IBSYS                  IBB09880
                                                                              IBB09890
      *              FORM UEXY REFERENCES IN SYSTEM UNITS TABLE               IBB09900
05051        CLA     SYSUNI              PICKUP                               IBB09910
05052        PAC     0,2                 LOC 1ST SYSTEM UNIT                  IBB09920
05053        PDX     0,1                 AND NO. OF SYSTEM UNITS              IBB09930
05054 IUEF1  CLA     0,2                 AC# PRE CHAN,,UNIT                   IBB09940
05055        SXA     IUEF2,2             SAVE IR2                             IBB09950
05056        TSX     IBVAL,4             VALIDATE AND GENERATE L(UCW)         IBB09960
05057        LNT     600000                                                   IBB09970
05060        TRA     *+2                 IS UNIT ATTACHED                     IBB09980
05061        PXA     0,0                 -NO                                  IBB09990
05062 IUEF2  AXT     **,2                RESTORE SYSUNI POINTER               IBB10000
05063        STA     0,2                 SET SYSUNI REF#                      IBB10010
05064        ANA     IBADDR              CLEAR DECREMENT                   $6$IBB10012
05065        ORA     HA2TBL-SYSLB1,2                                       $6$IBB10013
05066        LNT     020100              IS DISK ATTACHED                  $6$IBB10014
05067        CLA     0,2                                                   $6$IBB10015
05070        STD     0,2                 YES                               $6$IBB10016
05071        LNT     020100              IF DISK OR NEED DO NOT               IBB10020
05072        TSX     RSYUR,4             REMOVE UNIT FROM AVAILABLE           IBB10030
05073        LXA     IUEF2,2             RESTORE SYSUNI POINTER               IBB10040
05074        SXA     *+2,1                                                    IBB10050
05075        TSX     INITUS,1            INITIALIZE FOR USE                   IBB10060
05076        AXT     **,1                                                     IBB10070
05077        TXI     *+1,2,-1            TO NEXT UNIT                         IBB10080
05100        TIX     IUEF1,1,1           COUNT ALL                            IBB10090
05101        PXD     0,0                 RESTORE SET DENSITY                  IBB10100
05102        STP     SELX-2              INSTRUCTIONS                         IBB10110
05103        STP     SELX-1              IN IOEX                              IBB10120
05104        AXC     SYSOU1,2            SET DENSITY OF SYSOU              $6$IBB10121
05105        TSX     INITUS,1                                              $6$IBB10122
05106        AXT     SYSTT,1             MOVE SYSNAM TABLE                    IBB10130
05107        CAL     SYSORG+SYSTT,1      TO WORKING AREA                      IBB10140
05110        SLW     SYNEND,1            X                                    IBB10150
05111        TIX     *-2,1,1             X                                    IBB10160
05112        AXT     SYSTT,1             LENGTH OF SYSNAM TABLE TO            IBB10170
05113        CAL     SYNEND+1,1          IR1. MODIFY INDEX TO                 IBB10180
05114        ARS     15                  SYSLBX TO CONFORM WITH               IBB10190
05115        ANA     L(7)                NORMAL OPERATION.                    IBB10200
05116        STA     SYNEND+1,1          X                                    IBB10210
05117        STT     SYNEND+1,1          CLEAR TAG                            IBB10220
05120        TIX     *-5,1,2             BACK FOR NEXT ONE                    IBB10230
05121 RCOLDX TRA     *+1                 SWITCH EXIT IF $RESTORE              IBB10240
05122        CAL     SYSLB1                                                $6$IBB10241
05123        SLW     CLDLB1                                                $6$IBB10242
05124        CAL     SYSLB1+SUNLG                                          $6$IBB10243
05125        SLW     CLDLB1+1                                              $6$IBB10244
                                                                              IBB10250
      *         SIMULATE 'CARDS' OR 'TAPE' CONTROL VIA SSW 1 SETTING          IBB10260
05126  CLDX2 STZ     IBSINP              IF S.S.1 IS DOWN                  $6$IBB10270
05127        SWT     1                   SET INPUT SWITCH#0                   IBB10280
05130  CLDX1 STL     IBSINP              (CARDS CARD EQUIV.),              $6$IBB10290
05131        CLA     SYSCRD              IF UP INPUT SWITCH NOT #0         $6$IBB10300
05132        ZET     IBSINP              (TAPE CARD EQUIV)                 $6$IBB10310
05133        CLA     SYSIN1              L(UCW) IN AC                      $6$IBB10320
05134        STZ     IBSAV                                                 $6$IBB10330
05135        ZET     IBSINP              SET IBSAV TO SAVE ORIGINAL        $6$IBB10340
05136        STL     IBSAV               SS1 SETTING                       $6$IBB10350
05137        PAC     0,2                 TEST IF                              IBB10360
05140        TXL     IUEF3,2,0           UNIT ASSIGNED                        IBB10370
05141        CLA     2,2                 SET (+) TAPE POSITION                IBB10380
05142        SLW     2,2                 AS IT IS ABOUT TO BE USED            IBB10390
05143        TRA     TPSTR                                                    IBB10400
05156 IUEF3  SWT     1                   NO- UNIT IS TAPE                     IBB10410
05157        TRA     IBNOIN              GO ASK OPERATOR                      IBB10420
05160        TSX     PROUT,4             CARD READER NOT KNOWN CAUSES         IBB10430
             PZE     2                   AUTOMATIC SWITCH TO SYSIN1.          IBB10440
             PZE     NORDA,,5                                                 IBB10450
             PZE     NORDB,,4                                                 IBB10460
             CLA     *+3                                                      IBB10470
             STO     IUEF3                                                    IBB10480
             TRA     CLDX1                                                    IBB10490
             TRA     *+1                                                      IBB10500
             TSX     PROUT,4             HERE IF NO SYSIN1 EITHER             IBB10510
             PZE     1                                                        IBB10520
             PZE     NOIN1,,4                                                 IBB10530
             TSX     IBPASP,4            PAUSE ON-LINE ONLY                   IBB10540
             TRA     CLDX2                                                    IBB10550
                                                                              IBB10560
       NORDA BCI     5,SYSCRD NO ASSIGNMENT MADE                              IBB10570
       NORDB BCI     4,S.S.1 SETTING IGNORED.                                 IBB10580
       NOIN1 BCI     4,NO SYSIN1 EITHER - HELP..........                      IBB10590
                                                                              IBB10600
      *              NEED ENTRANCE TO GNSEK                                   IBB10610
       GNEED STD     0,4                                                      IBB10620
             ANA     1B17                                                     IBB10630
             TNZ     *+3                                                      IBB10640
             CLA     0,4                                                      IBB10650
             TRA     GNSEK+1             IF NEXT MODULE IS EVEN MOVE ON.      IBB10660
             CAL     GAPBIT              IF IT IS ODD - - -                   IBB10670
             ARS     1                                                        IBB10680
             SLW     GAPBIT              1. SET GAPBIT TO PUT SPACE IN IBSGAP IBB10690
             PIA                                                              IBB10700
             ALS     1                   2. POSITION THE ATTACH BIT        $6$IBB10710
             PAI                                                              IBB10720
             CLS     0,4                 3. BUMP MODULE ADDRESS UP ONE        IBB10730
             ADD     1B17                                                     IBB10740
                                                                              IBB10760
      *-------------------------------------------------------------------------------
      *              SUBROUTINE TO GENERATE UCB+2 FOR DISK                    IBB10770
      *-------------------------------------------------------------------------------
       GNSEK STD     0,4                                                      IBB10780
             LDQ     L(0)                                                     IBB10790
             LGR     22                                                       IBB10800
             RQL     34                                                       IBB10810
             ANA     GNXS                                                     IBB10820
             LGR     12                  SET MQ BITS S,1-17 # 0AM  (BCD)      IBB10830
             CAL     GNXE                PLACE 8 (FOR SEEK ORDER) IN AC.      IBB10850
             LGL     30                  PLACE 80AM  (BCD)  IN AC AND         IBB10860
             ANA     IBMK1                                                    IBB10870
             SLW     2,4                 THEN SLW INTO UCB+2.                 IBB10880
             CLA     0,4                 SET UP AC FOR GNXUN AND FALL THRU    IBB10890
                                                                              IBB10900
      *-------------------------------------------------------------------------------
      *              SUBROUTINE TO GENERATE UNIT CONTROL WORD 1.              IBB10910
      *-------------------------------------------------------------------------------
05232 GNXUN  SXA     GNXUX,2        SAVE IR2                                  IBB10920
05233        RFT     10000                                                    IBB10930
05234        ORA     PTW                 NOT ATTACHED                         IBB10940
05235        LFT     10000                                                    IBB10950
05236        ORA     PON                 MODEL IV                             IBB10960
05237        ORS     0,4                 STORE                                IBB10970
05240  GNXE  PDX     8,2                 BUMP TAPE                            IBB10980
05241        TXI     *+1,2,1             ADDRESS                              IBB10990
05242        ANA     D8192               7909 CHANNEL DEVICE...               IBB11000
05243        TNZ     GNXH                TO GNXH IF YES                       IBB11010
05244        RFT     10000               IF ATTACHED                          IBB11020
05245        TRA     *+6                 ENTER IT IN                          IBB11030
05246  GNXS  PXA     1,4                 AVAIL CHAIN                          IBB11040
05247        COM                                                              IBB11050
05250        ACL     L(1)                                                     IBB11060
05251        STA*    LUCAC                                                    IBB11070
05252        STA     LUCAC                                                    IBB11080
05253        PIA                         SHIFT                                IBB11090
05254        ALS     1                   MODEL AND                            IBB11100
05255        PAI                         ATTACH BITS                          IBB11110
05256        PXD     0,2                 NEXT UNIT ADDRESS TO AC DECRE        IBB11120
05257        TXI     *+1,4,-4            TO NEXT UCW                          IBB11130
05260 GNXUX  AXT     **,2           RESTORE IR2                               IBB11140
05261        TRA     1,2            RETURN                                    IBB11150

       GNXH  SXA     GNAX,1                                                $6$IBB11152
             CLA     0,4                                                   $6$IBB11154
             ZET     DSK02                                                 $6$IBB11156
             STD     TBL02,1             SAVE MODULE # FOR ACCESS 1        $6$IBB11158
             ANA     ACC02                                                 $6$IBB11160
             TNZ     GNAX                SKIP GAPBIT FOR ACCESS 1          $6$IBB11162
             LAC     CHN,1                                                    IBB11170
             CAL     GAPBIT                                                   IBB11180
             ZET     DSK02               IF 1302, SET GAPBIT TO ALLOW      $6$IBB11182
             ARS     10                  FOR ACCESS 1 ATTENTIONS           $6$IBB11184
             ORA     GAPBIT                                                $6$IBB11186
             ORS     IBSGAP-1,1                                            $6$IBB11190
             ANA     GAPBIT              CLEAR OUT 1302 ACC 1 BITS         $6$IBB11200
             ARS     1                                                        IBB11210
             SLW     GAPBIT                                                   IBB11220
       GNAX  AXT     **,1                                                  $6$IBB11222
             ZET     IBLD1                                                    IBB11230
             TRA     GNEXT                                                    IBB11240
             CAL     0,4                                                      IBB11250
             ZET     ACSAV               IN THE L.O. END OF THE DECR          IBB11260
             TRA     GNXEH               OF THE AVAILABILITY CHAIN HEADER     IBB11270
             LDQ     LUCAC               PUT 36 MINUS THE NUMBER OF UNITS     IBB11280
             STQ     ACSAV               FOR THE INTERFACE COMING FIRST.      IBB11290
             STD     ACSAV               NOTE, LATER ON IF THERE IS           IBB11300
             TRA     GNEXT               NO SECOND TYPE OF DEVICE FOR THE     IBB11310
       GNXEH ERA     ACSAV               CHANNEL, ZERO OUT THE DECR OF        IBB11320
             ANA     1B12                THE CHAIN HEADER.                    IBB11330
             TZE     *+3                                                      IBB11340
             STO     IBLD1                                                    IBB11350
             TRA     GNEXT                                                    IBB11360
             CLA*    ACSAV                                                    IBB11370
             SUB     1B17                                                     IBB11380
             ZET     NDGCT               WAS THERE A NEED GAP...              IBB11390
             SUB     1B17                THE GAP MUST BE COUNTED              IBB11400
             STO*    ACSAV                                                    IBB11410
       GNEXT STZ     NDGCT                                                    IBB11420
             TRA     GNXS-2                                                   IBB11430
                                                                              IBB11440
       LUCAC PZE     UCAA                LOC OF CHAN A AVAIL CHAIN HEADER  $6$IBB11450
       IBLD1 PZE                                                              IBB11460
       ACSAV PZE                                                              IBB11470
      IBGBIT MZE     1                                                        IBB11480
      GAPBIT MZE     1                                                        IBB11490
       NDGCT PZE                                                              IBB11500
      ACKEP  PZE                                                           $6$IBB11501
      XR1SAV PZE                                                           $6$IBB11502
       TBL02 BES     10                                                       IBB11503
       DSK02 PZE     0                                                     $6$IBB11504
       ACC02 PZE     ,,16                                                  $6$IBB11506
       AAD02 PZE     0                                                     $6$IBB11508

      *-------------------------------------------------------------------------------
      ;              IBSUP / CONTROL                                          IBB11510
      *                IBS BASIC MONITOR SUPERVISORY CONTROL                  IBB11520
      *    RECIEVES CONTROL WHEN EACH SYSTEM RELINQUISHES CONTROL TO IBS      IBB11530
      *                AND AFTER COLD START SETUP IS COMPLETE                 IBB11540
      *   READS CONTROL CARDS,EXECUTES THE SPECIFIED FUNCTION AND RELEASES    IBB11550
      *        CONTROL TO ANOTHER SYSTEM UPON PRESENCE OF 'EXEC' CARD         IBB11560
      *-------------------------------------------------------------------------------
05354 IBSYS  AXC     SYSCRD,2            PICK UP INPUT UNIT                $6$IBB11580
05355        ZET     IBSINP              FROM CARD-TAPE SWITCH             $6$IBB11590
05356        AXC     SYSIN1,2                                              $6$IBB11600
05357        CLA     0,2                                                      IBB11610
05360        PAC     0,4                                                      IBB11620
05361        TXL     IBNOIN,4,0                                               IBB11630
05362        TSX     INITUS,1                                                 IBB11640
05363        AXT     IBWAT,4             SET WAIT #                           IBB11650
05364        SXA     IBWAT,4             TRA *                                IBB11660
05365        CLA     0,2                 -L(UCW)                              IBB11670
05366        PAC     0,1                 TO IR1                               IBB11680
05367        ZET     1,1                 WAIT TILL                            IBB11690
05370        TRA     *-1                 DORMANT                              IBB11700
05371        LDI     0,1                 USE SELECT                           IBB11710
05372        LDQ     IBITP               DEPENDENT                            IBB11720
05373        LFT     000100              ON CARD READER                       IBB11730
05374        LDQ     IBICD               OR TAPE                              IBB11740
05375        LNT     020000                                                   IBB11750
05376        TRA     IBSY1                                                    IBB11760
05377        PIA                         HERE IF HYPERTAPE - SET UP THE       IBB11770
05400        ARS     23                 SELECT ROUTINE BEFORE ENTERING IT.    IBB11780
05401        ANA     L(1)                                                     IBB11790
05402        ORA     L(22)                                                    IBB11800
05403        STA     IBIHT+1             SMS (BCD MODE)                       IBB11810
05404        CAL     INMK2                                                    IBB11820
05405        ANS     IBHTU                                                    IBB11830
05406        PIA                                                              IBB11840
05407        ANA     L(15D)                                                   IBB11850
05410        ORS     IBHTU               UNIT SELECT                          IBB11860
05411        LDQ     IBIHT                                                    IBB11870
05412  IBSY1 STQ     1,1                                                      IBB11880
05413        TSX     ACTV,4              ENTER SELECT                         IBB11890
05414        MZE     0,2                 AND WAIT FOR                         IBB11900
05415 IBWAT  TRA     *                   TRAP                                 IBB11910
05416 IBICD  PZE     *+2,,IBON                                                IBB11920
05417 IBITP  PTW     *+2,,IBOF                                                IBB11930
05420        IORT    IBMAG,,24           CARD INPUT                           IBB11940
05421        IORT    ICARD,,14           TAPE INPUT                        $6$IBB11950
05422  IBIHT PZE     *+1,,IBHTS          HYPERTAPE INPUT                      IBB11960
05423        SMS     **                                                       IBB11970
05424        CTLR    IBHTU                                                    IBB11980
05425        CPYD    ICARD,,14                                             $6$IBB11990
05426        TCH     SYSTWT                                                   IBB12000
05427  IBHTU OCT     120600120100                                             IBB12010
                                                                              IBB12020
      *                       CARD READER SELECT ROUTINE                      IBB12030
05430?IBON   TPL     IBSPL               SEL (+) BRANCH CARDS                 IBB12050
05431        LNT     200000              IF EOF                               IBB12060
05432        TRA     IBONC               IN CARD                              IBB12070
05433        NZT     IBSAV               READER, PROCEED TO READ           $6$IBB12080
05434        TRA     IBONA               INPUT FROM SYSIN1 IF                 IBB12090
05435        STL     JBINT                                                    IBB12100
05436        STL     IBSINP              ORIGINAL IBSYS INPUT IS SYSIN1    $6$IBB12110
05437        AXT     IBSYS,2             AND SYSIN1 IS NOT ATTACHED AS        IBB12120
05440        LDI*    SYSIN1              THE CARD READER                   $6$IBB12130
05441        LNT     000300                                                   IBB12140
05442        TRA     IBOF1+1                                                  IBB12150
05443? IBONA SXA     IBONB,4             OTHERWISE PRINT                      IBB12160
05444        TSX     PROUT,4             MESSAGE AND                          IBB12170
05445        PZE     1                   PAUSE                                IBB12180
05446        PZE     *+4,,7                                                   IBB12190
05447        TSX     IBPASP,4            PAUSE ON-LINE ONLY                   IBB12200
05450  IBONB AXT     **,4                AND TRY AGAIN.                       IBB12210
05451        TRA     1,4                                                      IBB12220
05452        BCI     7, CONTROL CARDS NEEDED IN CARD READER                   IBB12230
05461 IBONC  AXT     IBCDIN,2            SET HOLLERITH                        IBB12240
05462        TRA     IBOF1+1                                               $6$IBB12250
                                                                              IBB12260
      *                       SYSIN1#729 TAPE SELECT ROUTINE                  IBB12270
05463 IBOF   TPL     IBSPL               SEL (+) BRANCH TAPE                  IBB12290
05464        LFT     200000              IF EOF                               IBB12300
05465        TRA     1,4                 IGNORE IT                            IBB12310
05466        LNT     400000              TEST FOR NOISE RECORD             $6$IBB12311
05467        TRA     2,4                                                   $6$IBB12312
05470  IBOF1 AXT     IBTPIN,2            SET DIRECT                           IBB12320
05471        SXA     IBWAT,2             EXIT (NO CONV. NECESSARY)            IBB12330
05472        PAC     0,2                 CLEAR UCW                            IBB12340
05473        STZ     1,2                 ACTIVITY                             IBB12350
05474        TRA     1,4                 BACK TO IOEX                         IBB12360
05475 IBSPL  PAC     0,2                 -L(UCW)                              IBB12370
05476        CLA     1,2                 L(IORT) TO                           IBB12380
05477        STA     RCHX,1              RCHX COMMAND                         IBB12390
05500        CLA     0,2                 UNIT                                 IBB12400
05501        ARS     18                  ADDRESS                              IBB12410
05502        STA     *+1                 TO SELECT                            IBB12420
05503        RDS     **                  RDS                                  IBB12430
05504        XEC     RCHX,1              RCHX                                 IBB12440
05505        CLA     TMPGET                                                   IBB12450
05506        CAS     IBSXEC                                                   IBB12460
05507        TRA     *+2                                                      IBB12470
05510        STZ     RCTX,1                                                   IBB12480
05511        CAS     IBSNXT                                                   IBB12490
05512        TRA     1,4                 SUPPRESS REDUNDANCY RECOVERY IF      IBB12500
05513        STZ     RCTX,1              SKIP JOB IS IN EFFECT.               IBB12510
05514        TRA     1,4                 BACK TO IOEX                         IBB12520
                                                                              IBB12530
      *                       SYSIN1#7340 HYPER SELECT ROUTINE                IBB12540
05515  IBHTS TPL     IBHSP                                                    IBB12560
05516        LFT     007100              ANY ERROR...                         IBB12570
             TRA     *+2                                                      IBB12580
             LFT     001000              HERE IF YES                          IBB12600
             RFT     000010              IGNORE ERROR IF I/O CK,              IBB12610
             TRA     1,4                 SEQ CK, INTF CK, OR EOF.             IBB12620
             TRA     IBOF1               ACCEPT IF ANYTHING ELSE.             IBB12630
       IBHSP PAC     0,2                 SELECT PLUS                          IBB12640
             CLA     1,2                                                      IBB12650
             STA     RCHX,1                                                   IBB12660
05530        XEC     RCHX,1              START THE CHANNEL                    IBB12670
05531        TRA     1,4                 AND RETURN TO IOEX.                  IBB12680
                                                                              IBB12690
      *                      EXIT PROCEED WHEN CARD IN                        IBB12700
05532 IBCDIN TSX     RHBCD,4             HOLL TO BCD                          IBB12720
05533        TRA     IBTPIN+5                                              $6$IBB12721
05534 IBTPIN LDQ     ICARD+13            BLANK OUT COLS 81-84              $6$IBB12722
05535        LGL     12                                                    $6$IBB12723
05536        LDQ     ALBLK                                                 $6$IBB12724
05537        LGR     12                                                    $6$IBB12725
05540        STQ     ICARD+13                                              $6$IBB12726
05541        CLA     TMPGET                                                $6$IBB12730
05542        SUB     IBSNXT                                                   IBB12740
05543        TZE     IBT2                                                     IBB12750
05544        SUB     NXTXEC                                                   IBB12760
05545        TNZ     IBT1                                                     IBB12770
05546        CLA     ICARD               HERE IF SYSGET#IBSXEC.               IBB12780
05547        CAS     EXCRD                                                    IBB12790
05550        TRA     IBSYS                                                    IBB12800
05551        TRA     IBXCC                                                    IBB12810
05552        SUB     IBCRD                                                    IBB12820
05553        TZE     IBSCD                                                    IBB12830
05554  IBT2  CLA     ICARD               HERE IF SYSGET#IBSNXT.               IBB12840
05555        CAS     JBCRD               DO NOT WRITE OUT ANY CARDS           IBB12850
05556        TRA     IBSYS               WHILE HUNTING FOR NEXT               IBB12860
05557        TRA     IBJBA               $JOB OR $STOP CARD.                  IBB12870
05560        SUB     STCRD                                                    IBB12880
05561        TNZ     IBSYS                                                    IBB12890
05562        TRA     IBSTP                                                    IBB12900
05563  IBT1  CAL     ICARD                                                    IBB12910
05564        AXT     IBOPL,4             CONTROL OP                           IBB12920
05565        LAS     IBOPT+IBOPL,4       IN OP TABLE                          IBB12930
05566        TRA     *+2                 IF NOT FOUND                         IBB12940
05567        TRA     IBOPX+IBOPL,4       GO GET NEXT                          IBB12950
05570        TIX     *-3,4,1             CARD                                 IBB12960
05571        PAI                                                              IBB12970
05572        LNT     003124              HERE IF $*, $ID, OR AN               IBB12980
05573        TRA     IBT5                ILLEGAL CARD. CHECK                  IBB12990
05574        LFT     004653              FIRST FOR AN $ID CARD.               IBB13000
05575        TRA     IBT5                                                     IBB13010
05576        ZET     SYSACC              HERE IF IT IS AN $ID CARD.           IBB13020
05577        TRA     IBT4                PRINT IT OUT ONLY IF                 IBB13030
05600        TSX     PROPR,4             SYSACC#0                             IBB13040
05601        PZE     1                                                        IBB13050
05602        PZE     ICARD,,14           IN ANY CASE, GO TO                $6$IBB13060
05603  IBT4  TSX     SYSIDR,4            SYSIDR IF AN $ID CARD                IBB13070
05604        PZE     ICARD,,14           AND                               $6$IBB13080
05605        TRA     IBSYS               RETURN TO READ NEXT CARD.            IBB13090
05606  IBT5  TSX     PROPR,4             HERE IF $* COMMENT CARD OR           IBB13100
05607        PZE     1                   AN ILLEGAL CARD. ALWAYS              IBB13110
05610        PZE     ICARD,,14           PRINT IT ON LINE.                 $6$IBB13120
05611        LNT     005400              FOR *                                IBB13130
05612        TRA     *+4                 IN COL 2                             IBB13140
05613        LFT     002300                                                   IBB13150
05614        TRA     *+2                                                      IBB13160
05615        TRA     IBSYS                                                    IBB13170
             TSX     PROPR,4             HERE IF AN ILLEGAL CARD              IBB13180
             PZE     1                                                        IBB13190
             PZE     *+2,,6                                                   IBB13200
             TRA     IBT3                                                     IBB13210
             BCI     6, NOT A BASIC MONITOR CONTROL CARD                      IBB13220
                                                                              IBB13230
      ICARD  BSS     14                  BCD CONTROL CARD                  $6$IBB13240
     ? IBMAG BSS     24                  ON-LINE HOLLERITH IMAGE              IBB13250
     ?NXTXEC OCT     000000213540        IBSXEC-IBSNXT                        IBB13260
       CARD  EQU     ICARD                                                    IBB13270

      *-------------------------------------------------------------------------------
      ;              IBSUP / OPERATION TABLE                                  IBB13280
      *                 OP TABLE BASIC MONITOR CONTROL CARDS                  IBB13290
      *-------------------------------------------------------------------------------
      IBOPT  BCI     1,$AS                                                    IBB13300
             BCI     1,$ATTAC                                                 IBB13310
             BCI     1,$CARDS                                                 IBB13320
             BCI     1,$DATE                                                  IBB13330
             BCI     1,$DETAC                                                 IBB13340
             BCI     1,$ENDFI                                                 IBB13350
       EXCRD BCI     1,$EXECUTE                                               IBB13360
       IBCRD BCI     1,$IBSYS                                                 IBB13370
       JBCRD BCI     1,$JOB                                                   IBB13380
             BCI     1,$UNITS                                                 IBB13390
             BCI     1,$PAUSE                                                 IBB13400
             BCI     1,$PROTE                                                 IBB13410
             BCI     1,$RELEA                                                 IBB13420
             BCI     1,$REMOV                                                 IBB13430
             BCI     1,$RESTO                                                 IBB13440
             BCI     1,$REWIN                                                 IBB13450
       STCRD BCI     1,$STOP                                                  IBB13460
             BCI     1,$SWITC                                                 IBB13470
             BCI     1,$TAPE                                                  IBB13480
             BCI     1,$LIST                                                  IBB13490
             BCI     1,$UNLIS                                                 IBB13500
             BCI     1,$UNLOA                                                 IBB13510
             BCI     1,$IBEDT                                                 IBB13520
             BCI     1,$RESET                                                 IBB13530
             BCI     1,$RESTA                                                 IBB13540
      IBOPE  BSS     0                                                        IBB13550
                                                                              IBB13560
      *                        TRA TABLE FOR OP CODES                         IBB13570
05732 IBOPX  TRA     IBASC               $AS                                  IBB13580
05733        TRA     IBATC               $ATTACH                              IBB13590
05734        TRA     IBCCC               $CARDS                               IBB13600
05735        TRA     IBDAT               $DATE                                IBB13610
05736        TRA     IBDTC               $DETACH                              IBB13620
05737        TRA     IBWEF               $ENDFILE                             IBB13630
05740        TRA     IBXCC               $EXECUTE                             IBB13640
05741        TRA     IBSCD               $IBSYS                               IBB13650
05742        TRA     IBJBA               $JOB                                 IBB13660
05743        TRA     IBUNT               $UNITS                               IBB13670
05744        TRA     IBPAC               $PAUSE                               IBB13680
05745        TRA     IBPRO               $PROTECT                             IBB13690
05746        TRA     IBREL               $RELEASE                             IBB13700
05747        TRA     IBRUN               $REMOVE                              IBB13710
05750        TRA     IBRES               $RESTORE                             IBB13720
05751        TRA     IBREW               $REWIND                              IBB13730
05752        TRA     IBSTP               $STOP                                IBB13740
05753        TRA     IBSWC               $SWITCH                              IBB13750
05754        TRA     IBTCC               $TAPE                                IBB13760
05755        TRA     IBLIS               $LIST                                IBB13770
05756        TRA     IBUNL               $UNLIST                              IBB13780
05757        TRA     IBULD               $UNLOAD                              IBB13790
05760        TRA     IBEDT               $IBEDT                               IBB13800
05761        TRA     RESET               $RESET                               IBB13810
05762        TRA     RSTRT               $RESTART                             IBB13820

      *-------------------------------------------------------------------------------
      ;              IBSUP / ATTACH PROCESSOR                                 IBB13830
      *                            $ATTACH   UNI                              IBB13840
      *-------------------------------------------------------------------------------
05765  IBATC TSX     PRCRD,4                                                  IBB13860
05766        PZE     1                                                        IBB13870
05767        PZE     ICARD,,14                                             $6$IBB13880
05770        TSX     SYUCU,4                                                  IBB13890
05771        TRA     IBAT1               ILLEGAL SYMBOLIC                     IBB13900
05772        TSX     IBVAL,4             FROM CHANNEL UNIT CODE               IBB13910
05773        STA     LATUN               TO L(UCW)                            IBB13920
05774        TZE     IBAT1               ILLEGAL UNIT                         IBB13930
05775        LFT     000100                                                   IBB13940
05776        TRA     IBATC2                                                   IBB13950
05777        SXD     IBATC1,2            CHECK FOR SYSUNI FUNCTION            IBB13960
06000        AXT     SUNLG,4             LOAD LENGTH OF SYSUNI TABLE          IBB13970
06001        CLA     SYSLB1+SUNLG,4      GET FIRST ENTRY                   $6$IBB13980
06002        PAX     0,1                                                      IBB13990
06003 IBATC1 TXI     *+1,1,**                                                 IBB14000
06004        TXL     IBSYS,1,0           SYSUNI FOUND EXIT                    IBB14010
06005        TIX     *-4,4,1                                                  IBB14020
06006 IBATC2 CAL     LATUN               PLACE                                IBB14030
06007        ARS     20                  MODEL TYPE                           IBB14040
06010        STT     *+1                 IN UCW                               IBB14050
06011        RIL     **                  IF II OR V WAS SPECIFIED.            IBB14060
06012        SIL     400000              SET UN-AVAILABLE                     IBB14070
06013        RIL     200000              SET ATTACHED                         IBB14080
06014        STI     0,2                 STORE CODES                          IBB14090
06015        LNT     020000                                                   IBB14100
06016        LNT     300                IF CARD EQUIPMENT                     IBB14110
06017        TRA     *+2                ENTER IT IN CHAIN                     IBB14120
06020        TRA     IBSYS               EXIT, ELSE                           IBB14130
06021        PIA                         PLACE                                IBB14140
06022        ARS     9                   UCW IN                               IBB14150
06023        ANA     L(15D)              CORRESPONDING                        IBB14160
06024        PDC     0,1                 CHANNEL AVAILABILITY                 IBB14170
06025        CLA     LATUN               JUST IN CASE ALREADY ATTACHED        IBB14180
06026        TSX     RSYUR,4             REMOVE BEFORE ENTERING               IBB14190
06027        CLA     UCAA-1,1            CHAIN                             $6$IBB14200
06030        STA     0,2                                                      IBB14210
06031        CLA     LATUN                                                    IBB14220
06032        STA     UCAA-1,1                                              $6$IBB14230
06033        TRA     IBSYS               BACK TO IBSYS                        IBB14240
                                                                              IBB14250
      *                  LAST UNIT SPECIFIED ON ATTACH CARD                   IBB14260
06034  LATUN PZE     **                  PRE  L(UCB),,0   (PRE#- IF II SPEC.) IBB14270

      *-------------------------------------------------------------------------------
      ;              IBSUP / RELEASE, AS PROCESSOR                            IBB14280
      *                            $RELEASE   SYSUNI                          IBB14290
      *-------------------------------------------------------------------------------
06035 IBREL  STZ     LATUN                                                    IBB14310
      *                            $AS   SYSUNI                               IBB14330
06036  IBASC TSX     PRCRD,4                                                  IBB14350
06037        PZE     1                                                        IBB14360
06040        PZE     ICARD,,14                                             $6$IBB14370
06041        CAL     ICARD+2             LOOKUP                               IBB14380
06042        LDQ     ICARD+3             NAME IN                              IBB14390
06043        LGL     18                  SYSTEM                               IBB14400
06044        AXT     SUNLG,2             NAME                                 IBB14410
06045        LAS     SYUNAM+SUNLG,2      TABLE                                IBB14420
06046        TRA     *+2                 NO                                   IBB14430
06047        TRA     *+3                 YES                                  IBB14440
06050        TIX     *-3,2,1             NO                                   IBB14450
06051        TRA     IBAS1               NOT FOUND                            IBB14460
06052        CLA     SYUEND,2            SAVE UNIT THAT                    $6$IBB14470
06053        STA     IBASX               WAS ASSIGNED FOR FURTHER TEST        IBB14480
06054        CLA     LATUN               PLACE UNIT                           IBB14490
06055        STA     SYUEND,2            SPECIFIED ON                      $6$IBB14500
06056        TZE     IBAS7                                                    IBB14510
06057        LDI*    SYUEND,2            LAST ATTACH IN SYSUNI TABLE.      $6$IBB14520
06060        LNT     020100              IF DISK OR NEED DO NOT REMOVE        IBB14530
06061        TSX     RSYUR,4             FROM AVAIL CHAIN. IF NOT DISK        IBB14540
06062        LDQ     ICARD+3             REMOVE FROM                          IBB14550
06063        RQL     24                  AVAIL UNIT CHAIN                     IBB14560
06064        PXA     0,0                 AND CHECK FOR                        IBB14570
06065        LGL     6                   DENSITY SPECIFICATION                IBB14580
06066        CAS     LOWL                IF NON SPECIFIED, SET DENSITY        IBB14590
06067        ACL     HILOW+HIGHLO        ACCORDING TO THE ASSEMBLY            IBB14600
06070        ACL     MZE                 PARAMETER HIGHLO.                    IBB14610
06071        ACL     MZE                                                      IBB14620
06072        STP     SYUEND,2            SET SYSTEM CELL (-) FOR HI-DEN    $6$IBB14630
06073 IBAS7  TXI     *+1,2,-SYUEND       INITIALIZE USAGE                  $6$IBB14640
06074        TSX     INITUS,1            RECALL AT A LATER TIME               IBB14650
06075        TXI     *+1,2,SYUEND        RESTORE POINTER                   $6$IBB14660
06076        LDI*    SYUEND,2                                              $6$IBB14670
06077        ZET     LATUN               IF A RELEASE - TO IBAS3              IBB14680
06100        LNT     020000              IS A 7909 DEVICE BEING ASSIGNED...   IBB14690
06101        TRA     IBAS3               NO                                   IBB14700
06103        LFT     000700              IS IT HYPER...                       IBB14710
06104        TRA     IBAS6                                                    IBB14720
06105        CLA     SYUEND,2            IF YES-                           $6$IBB14730
06106        PAC     ,1                  MAKE SURE IT IS IN READY STATUS      IBB14740
06107        PIA                                                              IBB14750
06110        ARS     23                                                       IBB14760
06111        ANA     L(1)                                                     IBB14770
06112        STA     ASSMS                                                    IBB14790
06113        PIA                                                              IBB14800
06114        ANA     L(15D)                                                   IBB14810
06115        ORA     DPH1                                                     IBB14820
06116        STD     ASSEL                                                    IBB14830
06117        CAL     ASHSL                                                    IBB14840
06120        ZET     1,1                                                      IBB14850
06121        TRA     *-1                                                      IBB14860
06122        SLW     1,1                                                      IBB14870
06123        TSX     ACTIV,4                                                  IBB14880
06124        PZE     SYUEND,2                                              $6$IBB14890
06125        ZET     1,1                                                      IBB14900
06126        TRA     *-1                                                      IBB14910
06127        CAL     2,1                 ADJUST REC COUNT BECAUSE             IBB14920
06130        SUB     L(1)                NO RECORD WAS READ.                  IBB14930
06131        SLW     2,1                                                      IBB14940
06132        TRA     IBAS3                                                    IBB14950
06133  IBAS6 LDQ     ICARD+4             IF DISK OR NEED, SET PZE DORG,,DEND  IBB14960
06134        RQL     12                  LOAD H.O. END OF MQ WITH MMM         IBB14970
06135        AXT     6,4                                                      IBB14980
06136        AXT     6,1                                                      IBB14990
06137        STZ     IBDSK                                                    IBB15000
06140  IBAS4 PXD     ,0                  COMMENCE TO CONVERT                  IBB15010
06141        LGL     6                   MMM (THEN NNN) FROM                  IBB15020
06142        CAS     L(9)                BCD TO BINARY.                       IBB15030
06143        TRA     IBAS1               MAKE SURE NO CHARACTER               IBB15040
06144        NOP                         IS GREATER THAN 9                    IBB15050
06145        ADD     IBDSK                                                    IBB15060
06146        SLW     IBDSK                                                    IBB15070
06147        ALS     2                                                        IBB15080
06150        ADD     IBDSK                                                    IBB15090
06151        ALS     1                                                        IBB15100
06152        SLW     IBDSK                                                    IBB15110
06153        TIX     IBAS4,1,2                                                IBB15120
06154        ALS     2                   GET 40*MMM  (THEN 40*NNN)            IBB15130
06155        TNX     IBAS2,4,3                                                IBB15140
06156        STA     SYUEND+SUNLG,2      SET UP DORG IN SYSUNI+SUNLG       $6$IBB15150
06157        CLA     ICARD+3             NOW GET 40*NNN                       IBB15160
06160        LDQ     ICARD+4                                                  IBB15170
06161        LGR     12                                                       IBB15180
06162        TXI     IBAS4-1,1,4         RESTORE XR1 TO 6                     IBB15190
06163  IBAS2 ACL     SYUEND+SUNLG,2      NOW SET UP DEND IN SYSUNI+SUNLG   $6$IBB15200
06164        SUB     IBL(1)                                                $6$IBB15210
06165        PAX     ,4                                                       IBB15220
06166        LFT     000400                                                $6$IBB15222
06167        TRA     *+3                                                   $6$IBB15224
06170        LFT     000200              REDUCE DEND MODULO -                 IBB15230
06171        TIX     *,4,400             400   IF NEED OR                     IBB15240
06172        TIX     *,4,10000           10000 IF DISK.                       IBB15250
06173        PXD     ,4                                                       IBB15260
06174        STD     SYUEND+SUNLG,2      DEND#40*(MMM+NNN)-1               $6$IBB15270
06175        CAL     SYUEND,2                                              $6$IBB15280
06176        ANA     IBADR               NEXT - SET RA ADDRESS                IBB15290
06177        SLW     SYUEND,2            SPECIFIED ON THE $AS CARD         $6$IBB15300
06200        LDQ     ICARD+5             IN THE DECR OF THE SYSUNI FUNCTION.  IBB15310
06201        AXT     0,4                                                      IBB15320
06202  IBAS5 PXD     ,0                                                       IBB15330
06203        LGL     6                   CONVERT BLANKS AND 0 TO 12'S         IBB15340
06204        TZE     *+3                                                      IBB15350
06205        CAS     L(48)                                                    IBB15360
06206        TRA     *+2                                                      IBB15370
06207        CAL     L(10)                                                    IBB15380
06210        ALS     24,4                                                     IBB15390
06211        ORS     SYUEND,2                                              $6$IBB15400
06212        TXH     IBAS3,4,1                                                IBB15410
06213        TXI     IBAS5,4,6                                                IBB15420
06214  IBAS3 NZT     IBASX               IF LAST UNIT ASSIGNED                IBB15430
06215        TRA     STJBSW              WERE NON-ZERO                        IBB15440
06216        AXT     SUNLG,4             AND UNIT NO LONGER IN USE            IBB15450
06217        CLA     SYUEND,4            IN ANY OTHER SYSTEM ASSIGNMENT    $6$IBB15460
06220        ANA     IBADR               MASK OFF ADDRESS                     IBB15470
06221        LAS     IBASX               THEN ENTER IT INTO                   IBB15480
06222        TRA     *+2                 CORRECT CHANNEL CHAIN                IBB15490
06223        TRA     STJBSW              STILL IN USE                         IBB15500
06224        TIX     *-5,4,1             CONTINUE TESTS ON ALL SYS UNITS      IBB15510
06225        LAC     IBASX,2             SET IR2#-L(UCW)                      IBB15520
06226        LDI     0,2                 IF CARD EQUIP LEAVE OUT OF CHAIN     IBB15530
06227        LNT     020000                                                   IBB15540
06230        LNT     000300              OTHERWISE                            IBB15550
06231        TRA     *+2                 ENTER IT IN CHAIN                    IBB15560
06232        TRA     STJBSW              GO SET SYSJOB SWITCH MINUS           IBB15570
06233        RIL     200000              RESET NO REPOSITIONING FLAG          IBB15580
06234        SIL     400000              SET UNIT NOT ASSIGNED                IBB15590
06235        STI     0,2                 PUT UNIT                             IBB15600
06236        PIA                         INTO AVAILABLE                       IBB15610
06237        ARS     9                   CHANNEL CHAIN                        IBB15620
06240        ANA     L(15D)              -CHANNEL NUMBER TO AC                IBB15630
06241        PDC     0,1                 TO IR1                               IBB15640
06242        CLA     IBASX               L(UCW) TO AC                         IBB15650
06243        TSX     RSYUR,4             REMOVE BEFORE ENTRY TO PREVENT DUPS  IBB15660
06244        CLA     UCAA-1,1            ENTER UNIT INTO AVAILABILITY      $6$IBB15670
06245        STA     0,2                 CHAIN FOR CORRECT                    IBB15680
06246        CLA     IBASX               CHANNEL                              IBB15690
06247        STA     UCAA-1,1                                              $6$IBB15700
06250 STJBSW CLA     SYSJOB              SET S(SYSJOB) # - TO INDICATE        IBB15710
06251        SSM                         NECESSITY OF SYSUNI AND              IBB15720
06252        STO     SYSJOB              SYSUAV RESTORATION ON THE            IBB15730
06253        TRA     IBSYS               NEXT $JOB CARD.                      IBB15740
                                                                              IBB15750
06254  ASHSL PZE     ASSMS,,*+1                                               IBB15760
06255        PAC     ,2                                                       IBB15770
06256        TPL     ASHT1+2                                                  IBB15780
06257        SXA     ASHX4,4                 SELECT MINUS                     IBB15790
06260        LDI     ASSNS                                                    IBB15800
06261        STZ     ASSNS                                                    IBB15810
06262        LNT     200000              CHECK FOR NOT READY                  IBB15820
06263        TRA     *+3                                                      IBB15830
06264        SIL     020000                                                   IBB15840
06265        TRA     ASHX4-1                                                  IBB15850
06266        LNT     000004              CHECK FOR NOT LOADED                 IBB15860
06267        TRA     ASHT1                                                    IBB15870
06270        RIL     070000                                                   IBB15880
06271        SIL     010000                                                   IBB15890
06272        TSX     HOPRQ,4             GO PRINT ERROR MESSAGE               IBB15900
06273  ASHX4 AXT     **,4                                                     IBB15910
06274        TRA     1,4                                                      IBB15920
06275  ASHT1 STZ     1,2                                                      IBB15930
06276        TRA     1,4                                                      IBB15940
06277        CLA     ASHSL                                                    IBB15950
06300        STA     RCHX,1                                                   IBB15960
06301        XEC     RCHX,1                                                   IBB15970
06302        TRA     1,4                                                      IBB15980
06303  ASSMS SMS     **                                                       IBB15990
06304        CTL     ASSEL                                                    IBB16000
06305        SNS                                                              IBB16010
06306        CPYD    ASSNS,,1                                                 IBB16020
06307        TCH     SYSTWT                                                   IBB16030
06310  ASSEL OCT     120600120112                                             IBB16040
                                                                              IBB16050
                                                                              IBB16060
      *                    CHECK CELL FOR HI DENSITY CALL                     IBB16070
06311  LOWL  BCI     1,00000L                                                 IBB16080
06312  HILOW BCI     2,000000-00000                                           IBB16090
      *            LAST ASSIGNMENT OF NEWLY ASSIGNED SYSTEM UNIT              IBB16100
06313 IBASX  PZE     **                                                       IBB16110
06314  IBDSK PZE                                                              IBB16120
06315  ASSNS PZE     **                                                       IBB16130

      *-------------------------------------------------------------------------------
      ;              IBSUP / DETACH PROCESSOR                                 IBB16140
      *                            $DETACH   UNI                              IBB16150
      *-------------------------------------------------------------------------------
06316  IBDTC TSX     PRCRD,4                                                  IBB16170
06317        PZE     1                                                        IBB16180
06320        PZE     ICARD,,14                                             $6$IBB16190
06321        TSX     SYUCU,4             CONVERT SYMB TO CHAN UNIT            IBB16200
06322        TRA     IBAT1               ILLEGAL SYMBOLIC                     IBB16210
06323        TSX     IBVAL,4             CONVERT CHANNEL UNIT TO L(UCW)       IBB16220
06324        TZE     IBAT1               NO UCW                               IBB16230
06325        STA     IBDT1               SAVE AND COMPARE                     IBB16240
06326        SIL     600000              SET NOT AVAILABLE AND                IBB16250
06327        STI     0,2                 NOT ATTACHED                         IBB16260
06330        TSX     RSYUR,4             REMOVE FROM AVAILABILITY CHAIN       IBB16270
06331        AXC     SYSLB1,2                                              $6$IBB16280
06332 IBDTG  CLA     0,2                 GET FIRST SYSUNI ENTRY               IBB16290
06333        ANA     IBADR               MASK OFF ADDRESS PORTION             IBB16300
06334        SUB     IBDT1                                                    IBB16310
06335        TNZ     IBDT4                                                    IBB16320
06336        STA     0,2                 SYSUNI FOUND CLEAR ADDRESS           IBB16330
06337        TSX     INITUS,1            CHECK FOR PP2 AND OU1                IBB16340
06340 IBDT4  TXL     IBSYS,2,-SYSLB1-SUNLG+1                               $6$IBB16350
06341        TXI     IBDTG,2,-1                                               IBB16360
                                                                              IBB16370
06342  IBDT1 PZE     **                                                       IBB16380
                      0                                                       IBB16390

      *-------------------------------------------------------------------------------
      *                            $IBSYS                                     IBB16400
      *-------------------------------------------------------------------------------
06343  IBSCD TSX     PRCRD,4                                                  IBB16420
06344        PZE     1                   PRINT THE CARD AND                   IBB16430
06345        PZE     ICARD,,14           LOAD IN IBSUP.                    $6$IBB16440
06346        TRA     CALIB1                                                $6$IBB16450

      *-------------------------------------------------------------------------------
      ;              IBSUP / SWITCH PROCESSOR                                 IBB16460
      *                            $SWITCH   SYSUNI,SYSUNI                    IBB16470
      *-------------------------------------------------------------------------------
06347  IBSWC TSX     PRCRD,4                                                  IBB16490
06350        PZE     1                                                        IBB16500
06351        PZE     ICARD,,14                                             $6$IBB16510
06352        CAL     ICARD+2             LOOKUP                               IBB16520
06353        LDQ     ICARD+3             1ST SYSUNI                           IBB16530
06354        LGR     18                  SPECIFIED                            IBB16540
06355        STZ     IBSWT                                                    IBB16550
06356        TSX     IBSWX,1                                                  IBB16560
06357        SXA     *+1,2                                                    IBB16570
06360        AXT     **,4                                                     IBB16580
06361        CAL     ICARD+3             LOOKUP                               IBB16590
06362        LDQ     ICARD+4             2ND SYSUNI                           IBB16600
06363        LGR     12                  SPECIFIED                            IBB16610
06364        TSX     IBSWX,1                                                  IBB16620
06365        ZET     IBSWT                                                    IBB16630
06366        TRA     IBSW2                                                    IBB16640
06367        LDQ     SYUEND+SUNLG,4      SWITCH                            $6$IBB16650
06370        CLA     SYUEND+SUNLG,2      SYSUNI+SUNLG ENTRIES              $6$IBB16660
06371        STQ     SYUEND+SUNLG,2      AND                               $6$IBB16670
06372        STO     SYUEND+SUNLG,4      THEN                              $6$IBB16680
06373  IBSW2 LDQ     SYUEND,4            SWITCH                            $6$IBB16690
06374        CLA     SYUEND,2            UCW                               $6$IBB16700
06375        STO     SYUEND,4                                              $6$IBB16710
06376        STQ     SYUEND,2                                              $6$IBB16720
06377        TRA     *+3                                                   $6$IBB16730
             STA     SYUEND,2                                              $6$IBB16740
             SXD     *+3,4               INITIALIZE FOR USE                   IBB16760
             SXD     *+5,2               BOTH UNITS                           IBB16770
             TXI     *+1,2,**            SYSUNI UNIT 1.                       IBB16790
             TSX     INITUS,1            INITIALIZE                           IBB16800
06407        AXC     SYUEND,2            COMPUTE INDEX TO                  $6$IBB16810
06410        TXI     *+1,2,**            SYSUNI UNIT 2.                       IBB16820
06411        TSX     INITUS,1            INITIALIZE                           IBB16830
06412        TRA     STJBSW              SET SYSJOB # - AND GET NEXT CARD     IBB16840
06413  IBSWX AXT     SUNLG,2                                                  IBB16850
06414        XCA                                                              IBB16860
06415        CAS     SYUNAM+SUNLG,2                                           IBB16870
06416        TRA     *+2                                                      IBB16880
06417        TRA     *+3                                                      IBB16890
06420        TIX     *-3,2,1                                                  IBB16900
06421        TRA     IBAS1                                                    IBB16910
06422        CAS     SYUCRD                                                   IBB16920
06423        TRA     1,1                                                      IBB16930
06424        STL     IBSWT                                                    IBB16940
06425        CAS     SYUPCH                                                   IBB16950
06426        TRA     1,1                                                      IBB16960
06427        STL     IBSWT                                                    IBB16970
06430        SUB     SYUPRT                                                   IBB16980
06431        TZE     *-2                                                      IBB16990
06432        TRA     1,1                                                      IBB17000
06433  IBSWT PZE     **                                                       IBB17010

      *-------------------------------------------------------------------------------
      ;              IBSUP / EXECUTE PROCESSOR                                IBB17020
      *                            $EXECUTE   SYSNAM                          IBB17030
      *-------------------------------------------------------------------------------
06434  IBXCC TSX     PRCRD,4                                                  IBB17050
06435        PZE     1                                                        IBB17060
06436        PZE     ICARD,,14                                             $6$IBB17070
06437  IBXED AXC     SYSLB1,2            IF COLD START WERE                $6$IBB17080
06440        NZT     COLD                EXECUTED THEN INITIALIZE             IBB17090
06441        TSX     INITUS,1            SYSLB1 USED IN COLD START PROC.      IBB17100
06442        TSX     IFIND,4             POSITION TO CORRECT SYSTEM           IBB17110
06443  IBXC1 CAL     0,2                 ENTRY FROM IBEDT                     IBB17120
             PAC     0,2                 -L(UCW) TO IR2                       IBB17130
             ALS     18                                                       IBB17140
             STD     SYSLDR                                                   IBB17150
             CAL     0,2                 UNIT TO AC                           IBB17160
             ARS     9                                                        IBB17170
             ANA     L(15D)              SET D(AC)#CHANNEL NUMBER             IBB17180
             STD     *+2                                                      IBB17190
             AXT     CHXSP-1,1                                                IBB17200
             TXI     *+1,1,**                                                 IBB17210
             SXA     CALIB3,1            INITIALIZE ENTRANCE TO SYSLBN LOAD$6$IBB17220
             PDC     ,1                  SET XR1#-(CHANNEL NO.-1)             IBB17230
             TXI     *+1,1,+1                                                 IBB17240
             TQP     DDX1                TRA ONLY IF SYSLB1 AND LBN ARE DISK  IBB17250
             LDQ     TCOX,1                                                   IBB17260
             PXA     ,2                                                       IBB17270
             PAC     ,4                                                       IBB17280
             TXI     *+1,4,2             SET XR4#L(UCB+2)                     IBB17290
      IBCX2  TRA     TEX1                                                  $6$IBB17311
      IBCX3  CAL     CALB3L+7                                              $6$IBB17312
             STA     CALIB4-1            ADJUST THE ENTRANCE               $6$IBB17313
             STA     CALIB4              ADDRESSES IN SYSLDR               $6$IBB17314
             TSX     SYSLDR,4                                              $6$IBB17315
                                                                              IBB17320
      ;              HERE IF SYSLBN IS 729 TAPE                            $6$IBB17328
      TEX1   MOVLDR  CATLBN,ENTLBN,CTLBNL,XR1                              $6$IBB17329
06471        +       
06472        +
06473        +
06474        +
06475        +
06476        +
06477        SLQ     LBNT4               HERE IF SYSLBN IS 729 TAPE           IBB17330
06500        LDQ     RCHX,1                                                   IBB17340
06501        SLQ     LBNT2                                                    IBB17350
06502        SLQ     LBNT7                                                    IBB17360
06503        LDQ     TRCX,1                                                   IBB17370
06504        SLQ     LBNT3                                                    IBB17380
06505        SLQ     LBNT5                                                    IBB17390
06506        TRA     IBCX3                                                 $6$IBB17400
                                                                              IBB17490
      *-------------------------------------------------------------------------------
      ;              IBSUP / PROCESS MISCELLANY                               IBB18750
      *                            $PAUSE                                     IBB18760
      *-------------------------------------------------------------------------------
06507  IBPAC TSX     PROPR,4             ALWAYS PRINT $PAUSE ON-LINE          IBB18770
06510        PZE     1                                                        IBB18780
06511        PZE     ICARD,,14                                             $6$IBB18790
06512        TSX     IBPAS,4             PAUSE AND WAIT                       IBB18800
06513        TRA     IBSYS               FOR OPERATOR                         IBB18810
                                                                              IBB18820
      *                            $DATE   MMDDYY                             IBB18830
06514 IBDAT  CAL     ICARD+2                                                  IBB18840
06515        LDQ     ICARD+3                                                  IBB18850
06516        LGR     18                                                       IBB18860
06517        STQ     SYSDAT                                                $6$IBB18870
06520        TSX     PRCRD,4                                                  IBB18880
06521        PZE     1                                                        IBB18890
06522        PZE     ICARD,,14                                             $6$IBB18900
06523        TRA     IBSYS                                                    IBB18910
                                                                              IBB18920
      *                            $CARDS                                     IBB18930
06524 IBCCC  STZ     IBSINP                                                $6$IBB18940
06525        STZ     IBSAV                                                 $6$IBB18950
06526        TRA     IBUNL+1             ALWAYS PRINT $CARDS CARD             IBB18960
                                                                              IBB18970
      *                            $TAPE                                      IBB18980
06527 IBTCC  STL     IBSINP                                                $6$IBB18990
06530        STL     IBSAV                                                 $6$IBB19000
06531        TRA     IBUNL+1             ALWAYS PRINT $TAPE CARD              IBB19010
                                                                              IBB19020
      *                            $LIST                                      IBB19030
06532  IBLIS STL     LSTSW                                                    IBB19040
06533        TRA     IBUNL+1             ALWAYS PRINT $LIST ON-LINE           IBB19050
                                                                              IBB19060
      *                            $UNLIST                                    IBB19070
06534  IBUNL STZ     LSTSW                                                    IBB19080
06535        TSX     PROPR,4             ALWAYS PRINT $UNLIST ON-LINE         IBB19090
06536        PZE     1                                                        IBB19100
06537        PZE     ICARD,,14                                             $6$IBB19110
06540        TRA     IBSYS                                                    IBB19120
                                                                              IBB19130
      *                            $REWIND   SYSUNI                           IBB19140
06541 IBREW  AXT     3,1                 PLACE REW CODE                       IBB19150
06542        TRA     IBRUN+1             FOR ND SELECT                        IBB19160
06543 REWOU1 PZE                         $REWIND SYSOU1 SWITCH                IBB19170
                                                                              IBB19180
      *                            $ENDFILE   SYSUNI                          IBB19190
06544 IBWEF  AXT     7,1                 WEF CODE                             IBB19200
06545        TRA     IBRUN+1             USE IBRVN ROUTINE                    IBB19210
                                                                              IBB19220
      *                            $PROTECT   SYSUNI                          IBB19230
06546  IBPRO AXT     16,1                                                     IBB19240
06547        TRA     IBRUN+1                                                  IBB19250
                                                                              IBB19260
      *                            $UNLOAD   SYSUNI                           IBB19270
06550  IBULD AXT     13,1                                                     IBB19280
06551        TRA     IBRUN+1                                                  IBB19290

      *-------------------------------------------------------------------------------
      ;              IBSUP / REMOVE PROCESSOR                                 IBB19300
      *                            $REMOVE   SYSUNI                           IBB19310
      *-------------------------------------------------------------------------------
06552 IBRUN  AXT     4,1                 SET RUN CODE                         IBB19320
06553        TSX     PRCRD,4                                                  IBB19330
06554        PZE     1                                                        IBB19340
06555        PZE     ICARD,,14                                             $6$IBB19350
06556        CAL     ICARD+2             LOOKUP                               IBB19360
06557        LDQ     ICARD+3             SYSTEM UNIT                          IBB19370
06560        LGL     18                  NAME IN                              IBB19380
06561        TXL     *+3,1,4             TABLE.                               IBB19390
06562        TXH     IBRN5,1,15                                               IBB19400
06563        TXL     IBRN5,1,12                                               IBB19410
06564        LAS     SYUOU1              SET REWOU1 SWITCH IFF                IBB19420
06565        TRA     IBRN5               SYSOU1 IS BEING REWOUND.             IBB19430
06566        STL     REWOU1                                                   IBB19440
06567  IBRN5 AXT     0,2                                                      IBB19450
06570 IBRN1  LAS     SYUNAM,2                                                 IBB19460
06571        TRA     *+2                 -NO                                  IBB19470
06572        TRA     IBRN2               -YES                                 IBB19480
06573        TXI     *+1,2,-1            -NO                                  IBB19490
06574        TXL     IBAS1,2,-SUNLG      TABEL EXHAUSTED                      IBB19500
06575        TRA     IBRN1               -NO                                  IBB19510
06576  IBRN2 CLA     SYSLB1,2                                              $6$IBB19520
06577        PAX     ,4                  IS UNIT ASSIGNED...                  IBB19530
06600        TXL     IBSYS,4,0           TO IBSYS IF NO.                      IBB19540
06601        LDI*    SYSLB1,2                                              $6$IBB19550
06602        LNT     020000                                                   IBB19560
06603        TRA     IBRN3               IF HYPERTAPE CHANGE                  IBB19570
06604        TNX     *+2,1,6             16 TO 42, 13 TO 39,                  IBB19580
06605        TXI     *+1,1,5             7 TO 33, 4 TO 31, AND 3 TO 33.       IBB19590
06606        TXI     IBRN4,1,27                                               IBB19600
06607  IBRN3 TXH     IBSYS,1,15          IF 729 TAPE IGNORE PROTECTAND        IBB19610
06610        TIX     *+1,1,9             CHANGE UNLOAD TO REMOVE.             IBB19620
06611  IBRN4 SXD     *+2,1                                                    IBB19630
06612        TSX     NDSEL+1,4                                                IBB19640
06613        PZE     SYSLB1,2,**                                           $6$IBB19650
06614        NOP                         NORMAL RETURN                        IBB19660
06615        LFT     020000                                                   IBB19670
06616        TRA     IBSYS               EXIT IF HYPERTAPE                    IBB19680
06617        CLA     SYSLB1,2            GET SYSUNI ENTRY                  $6$IBB19690
06620        PAC     0,1                 -L(UCW)TO IR1                        IBB19700
06621        CLA     2,1                 PICKUP POSITION                      IBB19710
06622        TMI     IBSYS               EXIT IF UNLOADED                     IBB19720
06623        TNZ     IBSYS               OR NOT AT LOAD POINT.                IBB19730
06624        CAL     SYSLB1,2            UNIT IS REWOUND                   $6$IBB19740
06625        ARS     17                  SET DENSITY                          IBB19750
06626        ADD     1B17                ACCORDING TO                         IBB19760
06627        STD     *+2                 SIGN OF SYSUNI ENTRY                 IBB19770
06630        TSX     NDSEL+1,4           X                                    IBB19780
06631        PZE     SYSLB1,2,**         X                                 $6$IBB19790
06632        TRA     IBSYS               TO NEXT CONTROL CARD                 IBB19800

      *-------------------------------------------------------------------------------
      ;              IBSUP / UNITS PROCESSOR                                  IBB19820
      *                            $UNITS                                     IBB19830
      *-------------------------------------------------------------------------------
06633  IBUNT TSX     PRCRD,4                                                  IBB19850
06634        PZE     2                   PRINT THE $UNITS CARD                IBB19860
06635        PZE     ICARD,,14           AND THEN THE MAP                  $6$IBB19870
06636        PZE     HDMAP,,4            HEADING                              IBB19880
06637        AXT     SUNLG,2             CONVERT                              IBB19890
06640  IBMP7 CLA     SYUEND,2            UCWS TO UNIT                      $6$IBB19900
06641        PAC     0,1                 SAVE L(UCW)                          IBB19910
06642        TXH     IBMP6,1,0           SET NO UNIT CODE                     IBB19920
06643        CAL     IBLNK               IN MESSAGE                           IBB19930
06644        SLW     MPRAD               IF NO UNIT ASSIGNED.                 IBB19940
06645        SLW     MPUNI                                                    IBB19950
06646        SLW     MPUNI+2                                                  IBB19960
06647        SLW     MPUNI+3                                                  IBB19970
06650        CAL     INONE                                                    IBB19980
06651        TRA     RUBC3                                                    IBB19990
06652  IBMP6 LDI     0,1                                                      IBB20000
06653        LNT     020100              TEST FOR DISK OR NEED                IBB20010
06654        TRA     IBMP4               TO IBMP4 IF NO                       IBB20020
06655        CAL     SYUEND+SUNLG,2      HERE IF YES - -                   $6$IBB20030
06656        TSX     .DECVA,4            APPEND DORG AND DEND              $6$IBB20040
06657        CAL     IBLNK                                                    IBB20050
06660        RQL     12                                                       IBB20060
06661        LGR     12                                                       IBB20070
06662        STQ     MPUNI+2                                                  IBB20080
06663        CAL     SYUEND+SUNLG,2                                        $6$IBB20090
06664        TSX     .DECVD,4                                              $6$IBB20100
06665        XCA                                                              IBB20110
06666        LDQ     IBLNK                                                    IBB20120
06667        LGL     12                                                       IBB20130
06670        SLW     MPUNI+3                                                  IBB20140
06671        LDQ     CLPER                                                    IBB20150
06672        CAL     SYUEND,2            SET UP THE RECORD                 $6$IBB20160
06673        ARS     18                  ADDRESS FROM THE DECREMENT           IBB20170
06674        LGR     12                  OF THE SYSUNI TABLE.                 IBB20180
06675        CAL     OPPER                                                    IBB20190
06676        LGR     12                                                       IBB20200
06677        STQ     MPRAD                                                    IBB20210
06700        CAL     ITHRU                                                    IBB20220
06701        TRA     IBMP5                                                    IBB20230
06702  IBMP4 LDQ     IBLNK                                                    IBB20240
06703        STQ     MPUNI+2                                                  IBB20250
06704        STQ     MPUNI+3                                                  IBB20260
06705        STQ     MPRAD                                                    IBB20270
06706        LFT     020500              IF NOT 729 TAPE,                     IBB20280
06707        TRA     IBMP5-1             FORGET ABOUT DENSITY.                IBB20290
06710        XCA                         DENSITY BIT TO MQ                    IBB20300
06711        PXA     0,0                 CLEAR AC                             IBB20310
06712        LGL     3                   IF HIGH DENSITY APPEND UNIT          IBB20320
06713        TZE     *+3                 WITH WORDS ''HI DEN''                IBB20330
06714        CAL     HIDEN                                                    IBB20340
06715        TRA     *+2                                                      IBB20350
06716        CAL     IBLNK                                                    IBB20360
06717  IBMP5 SLW     MPUNI               STORE BLANK, HIDEN, OR THRU          IBB20370
06720        LDQ     0,1                                                      IBB20380
06721        TSX     SYUNCV,4            CONVERT UNIT TO SYMBOLIC             IBB20390
06722 RUBC3  SLW     MPUNI+1                                                  IBB20400
06723        TSX     PRCRD,4             PRINT MAPPING MESSAGE                IBB20410
06724        PZE     7                                                        IBB20420
06725        MZE     IBLNK,,1                                                 IBB20430
06726        MZE     SYUNAM+SUNLG,2,1    NAME XXXXXX HI DEN                   IBB20440
06727        MZE     MPRAD,,1                                                 IBB20450
06730        MZE     MPUNI+1,,1          OR NAME NONE NONE                    IBB20460
06731        MZE     MPUNI+2,,1                                               IBB20470
06732        MZE     MPUNI,,1                                                 IBB20480
06733        PZE     MPUNI+3,,1                                               IBB20490
06734        TIX     IBMP7,2,1                                                IBB20500
06735        TSX     PRCRD,4             PRINT HEADING FOR                    IBB20510
06736        PZE     1                   ATTACHED UNITS                       IBB20520
06737        PZE     HDMP2,,7            NOT ASSIGNED OR RESERVED.            IBB20530
06740        AXT     4*NOUCW,2           NUMBER OF UNIT CONTROL WORDS.        IBB20540
06741        STZ     MAPSW               RESET MAP SWITCH.                    IBB20550
06742 IBMP1  LDI     UEA11+4*NOUCW,2     PICKUP UNIT STATUS BITS.             IBB20560
06743        LFT     400000              PRINT ONLY IF NOT ASSIGNED A         IBB20570
06744        LFT     240000              SYSUNI FUNCTION (A#1), NOT           IBB20580
06745        TRA     IBMPT               RESERVED (R#0), AND ATTACHED (M#0).  IBB20590
06746        LDQ     UEA11+4*NOUCW,2     NO. PICKUP UNIT ADDRESS.             IBB20600
06747        TSX     SYUNCV,4            CONVERT TO SYMBOLIC.                 IBB20610
06750        SLW     MPUNI               PUT IT INTO LINE.                    IBB20620
06751        STL     MAPSW               FLAG IT AS PRINTED.                  IBB20630
06752        TSX     PRCRD,4             PRINT                                IBB20640
06753        PZE     2                   UNIT.                                IBB20650
06754        MZE     IBLNK,,1            X                                    IBB20660
06755        PZE     MPUNI,,1            X                                    IBB20670
06756 IBMPT  TIX     IBMP1,2,4           BACK FOR NEXT UNIT.                  IBB20680
06757        ZET     MAPSW               ANY UNITS PRINTED.                   IBB20690
06760        TRA     IBMP2               YES.                                 IBB20700
06761        TSX     PRCRD,4             NO. PRINT                            IBB20710
06762        PZE     2                   NONE.                                IBB20720
06763        MZE     IBLNK,,1                                                 IBB20730
06764        PZE     INONE,,1                                                 IBB20740
06765 IBMP2  STZ     MAPSW               RESET MAP SWITCH.                    IBB20750
06766        TSX     PRCRD,4             PRINT HEADING FOR                    IBB20760
06767        PZE     1                   INTRA SYSTEM RESERVE UNITS.          IBB20770
06770        PZE     HDMP3,,5            X                                    IBB20780
06771        AXT     4*NOUCW,2           NO. OF UNIT CONTROL WORDS.           IBB20790
06772 IBMP3  LDI     UEA11+4*NOUCW,2     PICKUP UNIT STATUS BITS.             IBB20800
06773        LNT     40000               TEST FOR RESERVE STATUS.             IBB20810
06774        TRA     IBMTX               NO.                                  IBB20820
06775        LDQ     UEA11+4*NOUCW,2     YES. PICKUP UNIT ADDRESS.            IBB20830
06776        TSX     SYUNCV,4            CONVERT TO SYMBOLIC.                 IBB20840
06777        SLW     MPUNI               PUT IT INTO LINE.                    IBB20850
07000        STL     MAPSW               FLAG UNIT PRINTED.                   IBB20860
07001        TSX     PRCRD,4             PRINT SYMBOLIC UNIT ADDRESS          IBB20870
07002        PZE     2                   X                                    IBB20880
07003        MZE     IBLNK,,1            X                                    IBB20890
07004        PZE     MPUNI,,1            X                                    IBB20900
      IBMTX  TIX     IBMP3,2,4           BACK FOR NEXT UNIT.                  IBB20910
             ZET     MAPSW               ANY UNITS PRINTED.                   IBB20920
             TRA     IBSYS                                                    IBB20930
             TSX     PRCRD,4             NO. PRINT                            IBB20940
             PZE     2                                                        IBB20950
             MZE     IBLNK,,1                                                 IBB20960
             PZE     INONE,,1            NONE.                                IBB20970
             TRA     IBSYS                                                    IBB20980
      MAPSW  PZE     **                  MAP SWITCH.                          IBB20990
       MPRAD BCI     1,                                                       IBB21000
       OPPER BCI     1,     (                                                 IBB21010
       CLPER BCI     1,)                                                      IBB21020
      HDMP2  BCI     7, ATTACHED UNITS NOT ASSIGNED OR RESERVED.              IBB21030
      HDMP3  BCI     5, INTER SYSTEM RESERVE UNITS.                           IBB21040
      IBLNK  BCI     1,                                                       IBB21050
      INONE  BCI     1, NONE                                                  IBB21060
      HIDEN  BCI     1,HI DEN                                                 IBB21070
      MPUNI  BSS     4                                                        IBB21080
       HDMAP BCI     4,     FUNCTION      UNIT                                IBB21090
      ITHRU  BCI     1, THRU                                                  IBB21100

      *-------------------------------------------------------------------------------
      ;              IBSUP / RESTORE PROCESSOR                                IBB21110
      *                            $RESTORE                                   IBB21130
      *-------------------------------------------------------------------------------
07051  IBRES TSX     PRCRD,4                                                  IBB21150
07052        PZE     1                                                        IBB21160
07053        PZE     ICARD,,14                                             $6$IBB21170
07054        CLA     CLDLB1              PICK UP ORIGINAL SYSLB1              IBB21180
07055        STO     SYSLB1                                                $6$IBB21190
07056        CLA     CLDLB1+1            ALSO ORIGINAL DISK LIMITS            IBB21210
07057        STO     SYSLB1+SUNLG        IN CASE SYSLB1 WAS DISK.          $6$IBB21220
07060        STZ     PNGSW               RESET ING-PONG FLAG                  IBB21230
07061        AXC     SYSLB1,2                                              $6$IBB21240
07062        TSX     INITUS,1            INITIALIZE LOADER FOR EVENTUAL       IBB21250
07063        LXA     SYSLB1,4            LOADING OF ORIGINAL IBSUP.        $6$IBB21260
07064        SXD     SYSLDR,4                                                 IBB21270
07065        AXT     IBRS1,4             SET THE LOADER RETURNS TO            IBB21280
07066        SXA     CALIBN-1,4          IBRS1 INSTEAD OF SYSTRA.             IBB21290
07067        TRA     CALIB1              GO LOAD IN ORIGINAL IBSUP         $6$IBB21300
                                                                              IBB21310
07070  IBRS1 LDQ     IBNOP               HERE AFTER IBSUP IS LOADEDE          IBB21320
07071        STQ     RCLD+3              NOP TO AVOID DESTROYING UCB+2        IBB21330
07072        STQ     GNXHA                                                    IBB21340
07073        STQ     GNXHB                                                    IBB21350
07074        CLA     SYSJOB              SAVE INPUT JOB COUNT                 IBB21360
07075        SLW     SYSJOB+.                                              $6$IBB21370
07076        ZET     IBSAV                                                 $6$IBB21380
07077        STL     IBSAV+.                                               $6$IBB21390
07100        CLA     IBSINP              SAVE CARDS OR TAPE                $6$IBB21400
07101        STO     IBSINP+.            MODE                              $6$IBB21410
07102        ENB     L(0)                                                     IBB21420
07103        AXT     2*HGHCHN,4                                            $6$IBB21430
07104        LDQ     CHXSP+2*HGHCHN,4                                      $6$IBB21440
07105        STQ     CHXSP+2*HGHCHN+.,4                                    $6$IBB21450
07106        TIX     *-2,4,1                                                  IBB21460
      ;              MOVE IBNUC (EXCEPT COLD START CELLS)                  $6$IBB21470
07107        MOVLDR  SYSPOS,CALIB2,IBSNUC+6   MOVE IBNUC EXECEPT SYSTRA    $6$IBB21480
07110        +
07111        +
07112        +
07113        MOVLDR  CALIB3,NUCEND,CALB3L                                  $6$IBB21490
07114        +
07115        +
07116        +
      ;                                                                    $6$IBB21500
07117        STZ     COLD                SET COLD START INTITALIZATION SWITCH IBB21510
07120        AXT     IBSYS,4             SET IBSYS PROCESSING                 IBB21520
07121        SXA     RCOLDX,4            AFTER                                IBB21530
07122        TRA     DRCOLD              GO THRU COLD START                   IBB21540
                                                                              IBB21550
07123  IBNOP NOP                                                              IBB21560
     
      *-------------------------------------------------------------------------------
      ;              IBSUP / JOB PROCESSOR                                    IBB21570
      *                            $JOB                                       IBB21580
      *-------------------------------------------------------------------------------
07124  IBJBA ZET     IBNCT               IBNCT NOT ZERO MEANS                 IBB21600
07125        TRA     RSSCAN              $RESTART IS IN PROGRESS.             IBB21610
07126        CLA     SYSGET+.                                              $6$IBB21620
07127        STO     TMPGET                                                   IBB21630
07130        NZT     IBSINP              BEFORE PROCESSING THE $JOB CARD   $6$IBB21640
07131        TRA     IBJ9                CHECK FOR A POSSIBLE OPERATOR        IBB21650
07132        LDI*    SYSIN1              INTERRUPT. (DO NOT CHECK IF THE   $6$IBB21660
07133        LNT     000100              JOB CARD WAS READ FROM THE CARD      IBB21670
07134        ZET     JBINT               READER OR IF JUST COMPLETING AN      IBB21680
07135        TRA     IBJ9                INTERRUPT IN WHICH CASE JBINT WILL   IBB21690
07136        SWT     1                   BE NON-ZERO).                        IBB21700
07137        TRA     IBJ9                NOTE)) JBINT SET NON-ZERO IN THE EOF IBB21710
07140        STZ     IBSINP              PORTION OF THE ROUTINE IBSYS      $6$IBB21720
07141        TRA     ENTTP               WHEN READING CRD READER AND NORMAL   IBB21730
07142  IBJ9  STZ     JBINT               IBSINP IS TAPE.                      IBB21740
07143        STZ     REWOU1              RESET NO OFF-LINE SWITCH             IBB21750
07144        ZET     SYSACC                                                   IBB21760
07145        TRA     *+5                 PRINT THE $JOB CARD ONLY IF          IBB21770
07146        TSX     PROPR,4             SYSACC#0                             IBB21780
07147        PZE     2                                                        IBB21790
07150        PZE     *,,0+512*EJECT                                           IBB21800
07151        PZE     ICARD,,14                                             $6$IBB21810
07152        CAL     SYSJOB                                                   IBB21820
07153        ANA     MN1617                                                $6$IBB21830
07154        NZT     IBSINP                                                $6$IBB21840
07155        TRA     IBJ1                SET S(SYSJOB)#+. ALSO,               IBB21850
07156        LDI     SYSIN1              IF INPUT IS NOT FROM              $6$IBB21860
07157        LNT     000100              CARD READER,INCREASE                 IBB21870
07160        ADD     L(1)                JOB COUNT BY ONE.                    IBB21880
07161  IBJ1  STO     SYSJOB                                                   IBB21890
07162        AXT     HGHCHN,1            NOW RESTORE AVAILABILITY          $6$IBB21900
07163        AXT     UCAA,2              CHAIN FOR EACH CHANNEL.           $6$IBB21910
07164  IBJ2  SXA     IBJCC,2                                                  IBB21920
07165        SXA     IBJIN,2             CHAIN EVERY UNIT ON A                IBB21930
07166        CLA     UCBA+HGHCHN,1       CHANNEL UNLESS IT IS              $6$IBB21940
07167        PDX     ,2                  DETACHED OR A CARD UNIT.             IBB21950
07170        PAX     ,4                                                       IBB21960
07171  IBJ3  SXA     IBJ4,4                                                   IBB21970
07172        LDI*    IBJ4                                                     IBB21980
07173        LNT     000300                                                   IBB21990
07174        TRA     *+3                                                      IBB22000
07175        LNT     020000                                                   IBB22010
07176        TRA     IBJ5                IF CARD EQUIP-TO IBJ5                IBB22020
07177        LNT     600000                                                   IBB22030
07200        TRA     *+2                                                      IBB22040
07201        TRA     IBJ5                TO IBJ5 ALSO IF UNIT DETACHED.       IBB22050
07202        SIL     400000              RE-INITIALIZE FLAG BITS              IBB22060
07203        RIL     240000              A#1                                  IBB22070
07204  IBJ4  STI     **                  M#0                                  IBB22080
07205        CLA     IBJ4                R#0                                  IBB22090
07206        STA*    IBJIN                                                    IBB22100
07207        STA     IBJIN                                                    IBB22110
07210  IBJ5  LXA     IBJ4,4                                                   IBB22120
07211        TNX     *+2,2,1             ALL UNITS ON CHANNEL DONE...         IBB22130
07212        TXI     IBJ3,4,4            TO IBJ3 IF NO.                       IBB22140
07213        PXD     ,0                  HERE IF YES-END CHAIN AND            IBB22150
07214        STA*    IBJIN               MOVE ON TO NEXT CHANNEL.             IBB22160
07215        LXA     IBJCC,2                                                  IBB22170
07216        TNX     *+2,1,1             ALL CHANNELS DONE...                 IBB22180
07217        TXI     IBJ2,2,1            TO IBJ2 IF NO.                       IBB22190
07220        AXT     -SYSLB1,2           HERE IF YES                       $6$IBB22200
07221        CAL     PTW                 AVOID SETTING DENSITIES              IBB22210
07222        STP     SELX-2              ON THE SYSUNI RESTORE.               IBB22220
07223        STP     SELX-1                                                   IBB22230
07224        CLA     CLDLB1              USE ORIGINAL SYSLB1 INSTEAD OF       IBB22240
07225        ZET     PNGSW               ASSEMBLED IF NOT IN PING PONG MODE.  IBB22250
07226        TRA     IBJ6                                                  $6$IBB22251
07227        LDI*    CLDLB1                                                $6$IBB22252
07230        TRA     IBJ7-5                                                $6$IBB22253
07231  IBJ6  CLA     .,2                                                      IBB22260
07232        TXH     *+2,2,-SYSOU1                                         $6$IBB22270
07233        TXH     IBJ7-3,2,-SYSPP2-1                                    $6$IBB22280
07234        SXA     *+2,2                                                    IBB22290
07235        TSX     IBVAL,4             ASSIGN TO THE NUCLEUS                IBB22300
07236        AXT     **,2                FUNCTION, THE ASSEMBLED              IBB22310
07237        TZE     IBJ7                FUNCTIONS UNIT IFF                   IBB22320
07240        LNT     600000              THAT UNIT IS NOT DETACHED.           IBB22330
07241        TRA     IBJ7                (INDICATORS#C(UCB) UPON IBVAL EXIT)  IBB22340
07242        CLA     0,2                                                      IBB22350
07243        STA     IBJCC                                                    IBB22360
07244        TRA     IBJ7A                                                    IBB22370
07245  IBJ7  STA     IBJCC                                                    IBB22380
07246        CAL     HA2TBL-SYSLB1,2                                       $6$IBB22381
07247        LNT     020100              IS DISK ASSIGNED                  $6$IBB22382
07250        CAL     .,2                                                      IBB22390
07251        ANA     IBDCR                                                    IBB22400
07252        ORA     IBJCC                                                    IBB22410
07253        SLW     0,2                                                      IBB22420
07254  IBJ7A ZET     IBJCC                                                    IBB22430
07255        LNT     020100              IF NOT DISK, REMOVE THE              IBB22440
07256        TSX     RSYUR,4             UNIT FROM THE AVAIL CHAIN.           IBB22450
07257        TSX     INITUS,1                                                 IBB22460
07260 IBJ8   TXL     *+2,2,-SYSLB1-SUNLG+1                                 $6$IBB22470
07261        TXI     IBJ6,2,-1                                                IBB22480
07262        PXD     ,0                  RESET THE DENSITY                    IBB22490
07263        STP     SELX-2              INSTRUCTIONS IN NDATA.               IBB22500
07264        STP     SELX-1                                                   IBB22510
07265        TSX     SYSIDR,4                                                 IBB22520
07266        PZE     ICARD                                                    IBB22530
07267        ZET     IBFLP                                                    IBB22540
07270        TSX     IBPNG,4                                                  IBB22550
07271        TRA     IBSYS               GO READ NEXT CARD                    IBB22560
                                                                              IBB22570
07272 IBPNG  LDQ     SYSLB1                                                $6$IBB22580
07273        CAL     SYSLB4              SWITCH SYSLB1 WITH                $6$IBB22590
07274        STQ     SYSLB4              SYSLB4 FOR PING/PONG              $6$IBB22600
07275        SLW     SYSLB1              SYSTEM TAPES                      $6$IBB22610
07276        TRA     1,4                                                      IBB22620
                                                                              IBB22630
07277 PNGSW  PZE                                                              IBB22640
07300 IBFLP  PZE                                                              IBB22650
07301  IBJIN PZE     **                                                       IBB22660
07302  IBJCC PZE     **                                                       IBB22670
07303  JBINT PZE     **                                                       IBB22680

      *-------------------------------------------------------------------------------
      ;              IBSUP / STOP PROCESSOR                                   IBB22690
      *                            $STOP                                      IBB22700
      *-------------------------------------------------------------------------------
07304  IBSTP ZET     IBNCT               IBNCT NOT ZERO MEANS                 IBB22720
07305        TRA     RSSTOP              $RESTART IN PROCESS.                 IBB22730
07306        STZ     SYSJOB              RE-INITIALIZE JOB COUNT              IBB22740
07307        CLA     SYSGET+.            REINIT TMPGET TO IBSYST           $6$IBB22750
07310        STO     TMPGET                                                   IBB22760
07311        TSX     PROPR,4             ALWAYS WRITE OUT THE                 IBB22770
07312        PZE     1                   $STOP CARD.                          IBB22780
07313        PZE     ICARD,,14                                             $6$IBB22790
07314  IBST1 LAC     SYSPP1,2            NEXT, WRITE TRAILER ON            $6$IBB22800
07315        STZ     FARPP               SYSPP1 (IF THERE IS A                IBB22810
07316        TXL     IBST2,2,0           FILE AND RECORD COUNT) AND           IBB22820
07317        CAL     2,2                 THEN BACKSPACE OVER IT.              IBB22830
07320        ANA     IBABP                                                    IBB22840
07321        STO     FARPP                                                    IBB22850
07322        TZE     IBST2                                                    IBB22860
07323        STZ     COMUNT              CLEAR COMBINED SWITCH             $6$IBB22861
07324        SXD     *+2,2                                                 $6$IBB22862
07325        LXA     SYSOU1,4                                              $6$IBB22863
07326        TXI     *+1,4,**                                              $6$IBB22864
07327        TXH     IBST2-2,4,0         GO AND WRITE TRAILER              $6$IBB22865
07330        STL     COMUNT                                                $6$IBB22866
07331        TRA     IBST2                                                 $6$IBB22867
07332        CLA     IBST1                                                    IBB22870
07333        TSX     WRTRL,4                                                  IBB22880
07334  IBST2 CLA     NOUNT               NEXT, WRITE OUT THE                  IBB22890
07335        LDQ     NOUNT+1             PERIPHERAL TAPE POSITIONS            IBB22900
07336        LDI     STZER               AT THE END OF JOBS.                  IBB22910
07337        AXT     18,1                                                     IBB22920
07340  IBST3 STO     STLR-1,1            (REINITIALIZE MESSAGES IN CASE       IBB22930
07341        STQ     STLR,1              OF A SECOND $STOP CARD               IBB22940
07342        STI     STLR+2,1            WITHOUT A RECALL OF IBSUP)           IBB22950
07343        STI     STLR+4,1                                                 IBB22960
07344        TIX     IBST3,1,7                                                IBB22970
07345        CLA     FARPP                                                    IBB22980
07346        AXT     18,1                                                     IBB22990
07347  IBST4 TXL     IBST5,2,0                                                IBB23000
07350        STO     STFRC               CONVERT                              IBB23010

07351        TSX     BCVDEC-1,4          FILE COUNT TO                        IBB23020
07352        STQ     STLR+4,1            BCD.                                 IBB23030
07353        CLA     STFRC               CONVERT                              IBB23040
07354        TSX     BCVDEC,4            RECORD COUNT TO                      IBB23050
07355        STQ     STLR+2,1            BCD.                                 IBB23060
07356        LDQ     0,2                 CONVERT                              IBB23070
07357        TSX     SYUNCV,4            UNIT TO                              IBB23080
07360        SLW     STLR,1              SYMBOLIC.                            IBB23090
07361        CLA     NEWLN                                                    IBB23100
07362        STO     STLR-1,1                                                 IBB23110
07363  IBST5 TXL     IBST6+1,1,12                                             IBB23120
07364        LAC     SYSOU1,2                                              $6$IBB23130
07365        STZ     FAROU                                                    IBB23140
07366        TXL     IBST6,2,0                                                IBB23150
07367        CAL     2,2                                                      IBB23160
07370        NZT     REWOU1              ADJUST REC COUNT FOR                 IBB23170
07371        TRA     *+1                                                   $6$IBB23180
07372        STO     FAROU                                                    IBB23190
07373  IBST6 TXI     IBST4,1,-7                                               IBB23200
07374        TXL     IBST7,1,5                                                IBB23210
07375        LAC     SYSIN1,2                                              $6$IBB23220
07376        CAL     2,2                                                      IBB23230
07377        TXI     IBST4,1,-7                                               IBB23240
07400  IBST7 TSX     PROPR,4                                                  IBB23250
07401        PZE     6                                                        IBB23260
07402        PZE     *,,0+512*DBLSP                                           IBB23270
07403        PZE     STHED,,7+512*DBLSP                                       IBB23280
07404        PZE     LINE1,,7                                                 IBB23290
07405        PZE     LINE2,,7                                                 IBB23300
07406        PZE     LINE3,,7+512*DBLSP                                       IBB23310
07407        PZE     STHED+5,,2+512*EJECT                                     IBB23320
07410        ZET     REWOU1              IF REWIND SYSOU1 SWITCH              IBB23330
07411        TRA     IBSTA               NOT ON, WRITE A                      IBB23340
07412        LAC     SYSOU1,2                                              $6$IBB23350
07413        CLA     *-1                 TRAILER ON SYSOU1                    IBB23360
07414        TXL     *+2,2,0                                                  IBB23370
07415        TSX     WRTRL,4                                                  IBB23380
07416  IBSTA NZT     FARPP               FINALLY, BACK SPACE OVER             IBB23390
07417        TRA     IBST8               THE TRAILERS.                        IBB23400
07420        ZET     COMUNT              IS THIS COMBINED UNIT             $6$IBB23401
07421        TRA     IBST8                                                 $6$IBB23402
07422        LAC     SYSPP1,2                                              $6$IBB23410
07423        LDI     0,2                                                      IBB23420
07424        AXT     6,4                                                      IBB23430
07425        LFT     020000                                                   IBB23440
07426        AXT     35,4                                                     IBB23450
07427        AXT     2,1                                                      IBB23460
07430        SXD     *+2,4                                                    IBB23470
07431        TSX     NDATA,4                                                  IBB23480
07432        PZE     SYSPP1,,**                                            $6$IBB23490
07433        TIX     *-2,1,1                                                  IBB23500
07434        CLA     FARPP                                                    IBB23510
07435        STO     2,2                                                      IBB23520
07436  IBST8 ZET     REWOU1                                                   IBB23530
07437        TRA     IBST9                                                    IBB23540
07440        LAC     SYSOU1,2                                              $6$IBB23550
07441        TXL     IBST9,2,0                                                IBB23560
07442        LDI     0,2                                                      IBB23570
07443        AXT     6,4                                                      IBB23580
07444        LFT     020000                                                   IBB23590
07445        AXT     35,4                                                     IBB23600
07446        AXT     2,1                                                      IBB23610
07447        SXD     *+2,4                                                    IBB23620
07450        TSX     NDATA,4                                                  IBB23630
07451        PZE     SYSOU1,,**                                            $6$IBB23640
07452        TIX     *-2,1,1                                                  IBB23650
07453        CLA     FAROU                                                    IBB23660
07454        STO     2,2                                                      IBB23670
07455  IBST9 STL     REWOU1              SUSPEND  IBSYS OFF-LINE UNTILL       IBB23680
07456        STZ     IBSINP              A NEW JOB CARD. IF START IS PRESSE$6$IBB23690
07457        HTR     IBSYS               SELECT CARD READER.                  IBB23700
                                                                              IBB23710
      *                                  WRITE TRAILER ROUTINE                IBB23720
07460  WRTRL SXA     ACCTL+1,4           ON ENTRY -                           IBB23740
07461        STA     NDCTL               XR2 # - L(UCB)                       IBB23750
07462        AXT     7,4                 A(AC) # L(SYSPP1) OR L(SYSOU1)       IBB23760
07463        LDI     0,2                                                      IBB23770
07464        LFT     020000              TRAILER CONSISTS OF -                IBB23780
07465        AXT     33,4                EOF                                  IBB23790
07466        SXD     NDCTL,4             END OF OUTPUT                        IBB23800
07467        TSX     NDATA,4             EOF                                  IBB23810
07470  NDCTL PZE     **,,**                                                   IBB23820
07471        NOP                                                              IBB23830
07472        CLA     NDCTL                                                    IBB23840
07473        STA     1,2                                                      IBB23850
07474        STA     ACCTL                                                    IBB23860
07475        CLA     WRSL7                                                    IBB23870
07476        LFT     020000                                                   IBB23880
07477        CLA     WRSLH                                                    IBB23890
07500        ORS     1,2                                                      IBB23900
07501        TSX     ACTIV,4                                                  IBB23910
07502  ACCTL PZE     **                                                       IBB23920
07503        AXT     **,4                                                     IBB23930
07504        TRA     1,4                                                      IBB23940
                                                                              IBB23950
      *                                  729 TAPE SELECT                      IBB23960
07505  STSL7 PAC     ,2                                                       IBB23980
07506        TMI     WRS7M                                                    IBB23990
07507        CLA     0,2                                                      IBB24000
07510        ARS     18                                                       IBB24010
07511        LDQ     RCHX,1                                                   IBB24020
07512        STA     *+1                                                      IBB24030
07513        WRS     **                                                       IBB24040
07514        SLQ     *+1                                                      IBB24050
07515        RCHA    WR729                                                    IBB24060
07516        TRA     1,4                                                      IBB24070
07517  WRS7M SXA     WRS7X,4                                                  IBB24080
07520        CLA     1,2                                                      IBB24090
07521        STA     *+2                                                      IBB24100
07522        TSX     NDATA,4             FINISH UP TRAILER WITH               IBB24110
07523        PZE     **,,7               AN END OF FILE.                      IBB24120
07524        NOP                                                              IBB24130
07525  WRS7X AXT     **,4                                                     IBB24140
07526        STZ     1,2                                                      IBB24150
07527        TRA     1,4                                                      IBB24160
                                                                              IBB24170
      *                                  7340 HYPER SELECT                    IBB24180
       STSLH PAC     ,2                                                       IBB24200
             TMI     WRSHM                                                    IBB24210
             CLA     0,2                                                      IBB24220
             ARS     23                                                       IBB24230
             ANA     L(1)                                                     IBB24240
             ORA     L(22)                                                    IBB24250
             STA     HYPCP               SET SMS (BCD MODE)                   IBB24260
             CLA     0,2                                                      IBB24270
             ANA     L(15D)                                                   IBB24280
             ORA     STHTU               SET HYPER UNIT SELECT                IBB24290
             SLW     STHUN                                                    IBB24300
             LDQ     RCHX,1                                                   IBB24310
             SLQ     *+1                                                      IBB24320
             RCHA    HYPCP                                                    IBB24330
             TRA     1,4                                                      IBB24340
       WRSHM CLA     1,2                                                      IBB24350
             SXA     WRSHX,4                                                  IBB24360
             STA     *+2                                                      IBB24370
             TSX     NDATA,4             FINISH UP WITH AN                    IBB24380
             PZE     **,,33              END OF FILE                          IBB24390
       WRSHX AXT     **,4                                                     IBB24400
             STZ     1,2                                                      IBB24410
             TRA     1,4                                                      IBB24420
                                                                              IBB24430
       STHUN OCT     120600120112                                             IBB24440
       HYPCP SMS     **                                                       IBB24450
             CTLW    STHUN                                                    IBB24460
             CPYD    TRAIL,,4                                                 IBB24470
             TCH     SYSTWT                                                   IBB24480
                                                                              IBB24490
                                                                              IBB24500
       STFRC PZE                                                              IBB24510
       FAROU PZE                                                              IBB24520
       FARPP PZE     **                                                       IBB24530
       WRSL7 MZE     ,,STSL7                                                  IBB24540
       WRSLH MZE     ,,STSLH                                                  IBB24550
       WR729 IORT    TRAIL,,4                                                 IBB24560
       STHTU OCT     120600120112                                             IBB24570
       STHED BCI     7, PERIPHERAL UNIT POSITIONS AT END OF JOBS              IBB24580
       LINE1 BCI     7, SYSPP1  IS UNIT    REC.     0, FILE     0             IBB24590
       LINE2 BCI     7, SYSOU1  IS UNIT    REC.     0, FILE     0             IBB24600
       LINE3 BCI     7, SYSIN1  IS UNIT    REC.     0, FILE     0             IBB24610
       NEWLN BCI     1,1  IS                                                  IBB24620
       NOUNT BCI     2,1  NO UNIT                                             IBB24630
       STZER BCI     1,     0                                                 IBB24640
       TRAIL BCI     4,1EOF  END OF OUTPUT                                    IBB24650
       STLR  EQU     LINE3+6                                                  IBB24660

      *-------------------------------------------------------------------------------
      ;              IBSUP / IBEDT PROCESSOR                                  IBB24670
      *                            $IBEDT                                     IBB24680
      *-------------------------------------------------------------------------------
       IBEDT TSX     PRCRD,4                                                  IBB24700
             PZE     1                                                        IBB24710
             PZE     ICARD,,14                                             $6$IBB24720
             CAL     EDT7                                                     IBB24760
             LGR     18                  PLACE NAME (EDITOR) IN               IBB24770
             SLW     ICARD+2             ICARD+2 AND +3 AND THEN ESSENTIALLY  IBB24780
             STQ     ICARD+3             DO AN    $EXECUTE  EDITOR.           IBB24790
             TRA     IBXED                                                    IBB24800
       EDT7  BCI     1,EDITOR            EDITOR NAME IF SYSLB1 ON DISK.       IBB25370

      *-------------------------------------------------------------------------------
      ;              IBSUP / RESET PROCESSOR                                  IBB25380
      *                            $RESET                                     IBB25390
      *-------------------------------------------------------------------------------
       RESET TSX     PRCRD,4                                                  IBB25410
             PZE     1                                                        IBB25420
             PZE     ICARD,,14                                             $6$IBB25430
             CAL     PTW                 AVOID DENSITY SETTINGS.              IBB25440
             STP     SELX-2                                                   IBB25450
             STP     SELX-1                                                   IBB25460
             AXT     SUNLG,4             TRY TO ASSIGN A UNIT TO              IBB25470
       RST1  CAL     SYSLB1+SUNLG,4      ANY RELEASED SYSUNI               $6$IBB25480
             PAX     ,2                  FUNCTION (WHICH HAD A UNIT AT        IBB25490
             TXH     RST6,2,0            COLD START) AS FOLLOWS - - - -       IBB25500
             CAL     SYSLB1+SUNLG+.,4                                      $6$IBB25510
             SXA     *+2,4               1. IF ASSEMBLED FUNCTIONS UNIT       IBB25520
             TSX     IBVAL,4                IS NOT DETACHED OR RESERVED       IBB25530
             AXT     **,4                   ASSIGN IT TO THE NUCLEUS FUNCTION.IBB25540
             TZE     RST6                                                     IBB25550
             LDI     0,2                 (XR2 SET ON IBVAL EXIT)              IBB25560
             LFT     240000              2. OTHERWISE - PICK UP A             IBB25570
             TRA     RST2                   UNIT (NOT DISK) FROM THE          IBB25580
             LFT     400000                 AVAILABILITY CHAIN. START         IBB25590
             TRA     RST4                   LOOKING FOR A FREE UNIT           IBB25600
      RST2   AXT     HGHCHN,1              WITH THE CHANNEL A CHAIN        $6$IBB25610
             CAL     UCAA+HGHCHN,1                                         $6$IBB25620
             PAC     ,2                                                       IBB25630
             TXL     RST3,2,0                                                 IBB25640
             LDI     0,2                                                      IBB25650
             LNT     020100                                                   IBB25660
             TRA     RST4                                                     IBB25670
             CAL     0,2                                                      IBB25680
             TRA     RST2+2                                                   IBB25690
       RST3  TIX     RST2+1,1,1                                               IBB25700
             TRA     RST6                                                     IBB25710
       RST4  STA     RSTSV                                                    IBB25720
             CAL     SYSLB1+SUNLG+.,4                                      $6$IBB25730
             ANA     IBDCR                                                    IBB25740
             ORA     RSTSV                                                    IBB25750
             SLW     SYSLB1+SUNLG,4                                        $6$IBB25760
             SXA     RST5,4                                                   IBB25770
             TSX     RSYUR,4                                                  IBB25780
             LXA     RST5,2                                                   IBB25790
             TXI     *+1,2,-SYSLB1-SUNLG                                   $6$IBB25800
             TSX     INITUS,1                                                 IBB25810
       RST5  AXT     **,4                                                     IBB25820
       RST6  TIX     RST1,4,1                                                 IBB25830
             PXD     ,0                  RESET THE SET DENSITY                IBB25840
             STP     SELX-2              INSTRUCTIONS IN NDATA.               IBB25850
             STP     SELX-1                                                   IBB25860
             TRA     IBSYS                                                    IBB25870
                                                                              IBB25880
       RSTSV PZE     **                                                       IBB25890

      *-------------------------------------------------------------------------------
      ;              IBSUP / RESTART PROCESSOR                                IBB25900
      *                            $RESTART                                   IBB25910
      *-------------------------------------------------------------------------------
07730 RSTRT  LDI*    SYSIN1              MAKE SURE SYSIN1#TAPE             $6$IBB25930
07731        LNT     000100                                                   IBB25940
07732        ZET     IBSINP              AND THAT $RESTART#SYSCRD          $6$IBB25950
07733        TRA     IBSYS               TEST FAILS,RETURN                    IBB25960
07734        STL     IBSAV               SIMULATE PRECEDING $TAPE          $6$IBB25965
07735        TSX     PROPR,4                                                  IBB25970
07736        PZE     1                                                        IBB25980
07737        PZE     ICARD,,14                                             $6$IBB25990
07740        CLA     SYSJOB              SAVE MAGNITUDE OF SYSJOB             IBB26000
07741        STA     RSHJB               IN CASE OF FUTURE ERROR              IBB26010
07742        CAL     ICARD+2             NOW LOCATE OPERAND IN                IBB26020
07743        LDQ     ICARD+3             ACCUMULATOR,RIGHT-AJDUSTED           IBB26030
07744        STL     RSMTSW              AND INITIALIZE MATCH                 IBB26040
07745        STZ     RSFSTM              SWITCHES                             IBB26050
07746        STZ     RSMTER                                                   IBB26060
07747        STZ     RSERSW                                                   IBB26070
07750        LGL     18                                                       IBB26080
07751        LGR     6                                                        IBB26090
07752        LAS     RSMTCH              COMPARE WITH'OMATCH'                 IBB26100
07753        TRA     *+2                                                      IBB26110
07754        TRA     RSCONT              MATCH OPTION FOUND,EXIT              IBB26120
07755        LGR     24                  NON-MATCH,GET COL.16                 IBB26130
07756        STZ     RSQUAN              INITIALIZE QUANTITY AT               IBB26140
07757        STZ     RSMTSW              ZERO,RESET MATCH SWITCH              IBB26150
07760        STL     RSSIGN              AND INITIALIZE SIGN TO MINUS         IBB26160
07761        LAS     L(48)               NOW COMPARE COL.16 WITH BLANK        IBB26170
07762        TRA     IBRT1               INVALID CARD,EXIT                    IBB26180
07763        ZAC                         TREAT BLANK AND ZERO AS              IBB26190
07764        TZE     RSEOS               MZE,BYPASS CONVERSION                IBB26200
07765        LAS     L(32)               CHECK FOR COL 16#MINUS               IBB26210
07766        TRA     IBRT1               INVALID CARD                         IBB26220
07767        TRA     *+2                 MINUS FOUND,CLEAR A.C.               IBB26230
07770        STZ     RSSIGN              MUST BE PLUS,RESET SIGN              IBB26240
07771        ANA     L(15)               FORCE NUMERIC,AND SHIFT              IBB26250
07772        LGR     6                   INTO MQ FOR SCANNER                  IBB26260
07773        STZ     RSTOT               INITIALIZE TOTAL                     IBB26270
07774        AXT     6,1                                                      IBB26280
07775 RSBOS  ZAC                         CONVERT QUANTITY TO BINARY           IBB26290
07776        LGL     6                   GET FIRST NUMBER                     IBB26300
07777        LAS     L(48)                                                    IBB26310
10000        TRA     IBRT1               INVALID CHARACTER,EXIT               IBB26320
10001        TRA     RSEOS               BLANK TERMINATES SCANNER             IBB26330
10002        LAS     L(9)                                                     IBB26340
10003        TRA     IBRT1               NON-NUMERIC,EXIT                     IBB26350
10004 RSFUL  NOP     63                                                       IBB26360
10005        ADD     RSTOT               ADD DIGIT TO TOTAL,THEN              IBB26370
10006        SLW     RSQUAN              SAVE RESULT INQUANTITY               IBB26380
10007        TNX     RSEOS,1,1           EXIT WHEN FIELD TERMINATED           IBB26390
10010        XCL                                                              IBB26400
10011        SLW     RSIDCD              SAVE REMAINING DIGITS                IBB26410
10012        MPY     L(10)               THEN MULTIPLY TOTAL BY 10            IBB26420
10013        XCL                                                              IBB26430
10014        SLW     RSTOT                                                    IBB26440
10015        LDQ     RSIDCD              PICK UP REMAINING DIGITS             IBB26450
10016        TRA     RSBOS               AND GO ROUND AGAIN                   IBB26460
10017 RSEOS  CLA     RSSIGN                                                   IBB26470
10020        ZET     RSQUAN              SKIP JOB REQUEST IF SIGN             IBB26480
10021        TZE     RSCONT              PLUS AND QUANTITY NON-ZERO           IBB26490
10022 RSMIN  CLA     RSHJB               BACK-UP REQUEST,COMPUTE              IBB26500
10023        SUB     RSQUAN              'SYSJOB'-QUANTITY AND                IBB26510
10024        STO     RSQUAN              SAVE RESULT                          IBB26520
10025        SUB     L(1)                NOW CHECK FOR VALID COUNT            IBB26530
10026        TMI     IBRT3               ABSOLUTE VALUE TOO HIGH,EXIT         IBB26540
      RSMTEN LDI*    SYSIN1              PICK UP VCB(1) FOR SYSIN1         $6$IBB26550
             AXT     30,1                                                     IBB26560
             LNT     020000              TEST FOR 7909 D.C.                   IBB26570
             AXT     3,1                                                      IBB26580
             SXD     *+2,1               HERE FOR 7340 TAPE UNIT              IBB26590
             TSX     NDSEL,4                                                  IBB26600
             PZE     SYSIN1,,**          REWIND SYSIN1                     $6$IBB26610
             STZ     SYSJOB              AND SET SYSJOB TO ZERO               IBB26620
      RSCONT CAL     IBSNXT              O.K. TO TELL IBSUP TO                IBB26630
             SLW     TMPGET              SKIP TILL $JOB OR$STOP               IBB26640
             STL     IBNCT               SET SKIP JOB SWITCH                  IBB26650
             ZET     RSMTSW              IF MATCH OPTION NEED                 IBB26660
             TRA     IBSYS               $JOB CARD FROM READER                IBB26670
             TRA     NDINT               INDICATE INTERRUPT COMPLETED      (6)IBB26680
      RSPLRT SUB     L(1)                DECREMENT COUNTER BY ONE          (6)IBB26690
             STO     RSQUAN              SAVE,RETURN UNLESS COUNT             IBB26700
             TNZ     IBSYS               REDUCED TO ZERO                      IBB26710
             ZET     RSERSW              PREVIOUS ERROR OCCURED               IBB26720
             TRA     RSERBK              YES,GO TO BACKSPACE                  IBB26730
             STZ     IBNCT               NO,RESET SKIP JOB SWITCH             IBB26740
             TRA     IBSYS               AND RETURN,JOB COMPLETE              IBB26750
      RSSCAN ZET     RSMTSW              IBSYS RETURNS HERE WITH              IBB26760
             TRA     RSMTRT              $JOB, GO TO MATCH ROUTINE            IBB26770
             NZT     IBSINP              OTHERWISE TEST INPUT              $6$IBB26780
             TRA     IBSYS               DEVISE,IGNORE SYSCRO                 IBB26790
             LXA     SYSJOB,1            IS TAPE,BUMP SYSJOB                  IBB26800
             TXI     *+1,1,1             TO REFLECT PASSING OF                IBB26810
             SXA     SYSJOB,1            $JOB CARD AND GO TO TEST             IBB26820
             TRA     RSPLUS              COUNTER                              IBB26830
      RSMTRT ZET     RSFSTM              MATCH ROUTINE ENTERED BEFORE         IBB26840
             TRA     RSNXTM              YES,EXIT                             IBB26850
             STL     RSMTER                                                   IBB26860
             ZET     IBSINP              TEST IBSINP FOR SYSCRD            $6$IBB26870
             TRA     RSERBK              ERROR IF TAPE $JOB CARD              IBB26880
             STZ     RSMTER                                                   IBB26890
             AXT     12,1                O.K.,SET UP MATCH                    IBB26900
      RSAX2  AXT     6,2                 BUFFER FROM $JOB                     IBB26910
             LDQ     ICARD+12,1          CARD FOR LATER USE                   IBB26920
      RSCLR  ZAC                                                              IBB26930
             LGL     6                                                        IBB26940
             ERA     L(48)                                                    IBB26950
             TZE     *+2                                                      IBB26960
             ORA     RSFUL                                                    IBB26970
             LGR     6                                                        IBB26980
             RQL     6                                                        IBB26990
             TIX     RSCLR,2,1                                                IBB27000
             STQ     RSMSK+12,1          CREATE MASK BUFFER                   IBB27010
             CAL     ICARD+12,1                                               IBB27020
             ANA     RSMSK+12,1                                               IBB27030
             SLW     RSIDCD+12,1         CREATE MATCH BUFFER                  IBB27040
             TIX     RSAX2,1,1           LOOP TILL COMPLETE                   IBB27050
             STL     RSFSTM              SET SWITCH TO BYPASS                 IBB27060
             TRA     NDINT1              INDICATE INTERRUPT COMPLETED      (6)IBB27070
      RSNXTM NZT     IBSINP                                                $6$IBB27080
             TRA     IBSYS         IGNORE CARD READER $JOB                    IBB27090
             LXA     SYSJOB,2            BUMP SYSJOB BY ONE                   IBB27100
             TXI     *+1,2,1                                                  IBB27110
             SXA     SYSJOB,2                                                 IBB27120
             AXT     12,2                AND MATCH TAPE $JOB                  IBB27130
      RSLOP  CAL     ICARD+12,2          WITH ORIGINAL $JOB                   IBB27140
             ANA     RSMSK+12,2                                               IBB27150
             ERA     RSIDCD+12,2                                              IBB27160
             TNZ     IBSYS               EXIT ON FIRST NON-MATCH              IBB27170
             TIX     RSLOP,2,1           OR ELSE LOOP TILL COMPLETE           IBB27180
      RSERBK LXA     SYSJOB,2            PERFECT MATCH FOUND,                 IBB27190
             TXI     *+1,2,-1            BUMP SYSJOB DOWN                     IBB27200
             SXA     SYSJOB,2            BY ONE,,                             IBB27210
             LDI*    SYSIN1              BACKSPACE SYSIN1                  $6$IBB27220
             AXT     34,1                ONE RECORD                           IBB27230
             LNT     020000                                                   IBB27240
             AXT     5,1                                                      IBB27250
             SXD     *+2,1                                                    IBB27260
             TSX     NDSEL,4                                                  IBB27270
             PZE     SYSIN1,,**                                            $6$IBB27280
      RSERBL STZ     IBNCT               RESET SKIP JOB SWITCH             (6)IBB27290
             CAL     SYSGET+.       AND SET TMPGET TO                      $6$IBB27300
             SLW     TMPGET              'IBSYST' TO ALLOW FURTHER            IBB27310
             ZET     RSMTER              MATCH JOB ERROR FOUND                IBB27320
             TRA     IBRT2               YES,PRINT ERROR MESSAGE              IBB27330
             ZET     RSERSW              WAS THERE  A SKIP JOB ERRER          IBB27340
             TRA     IBRT3               YES PRINT MESSAGE                    IBB27350
             TRA     IBSYS               NO,GOOD MATCH FOUND                  IBB27360
      RSSTOP TRA     RSTOPP                                                (6)IBB27370
             NOP                         OLD CODING, PATCH SPACE           (6)IBB27380
             CLS     L(2)                OTHERWISE CAUSE ROUTINE              IBB27390
             STO     RSQUAN              TO REPOSITION SYSIN1                 IBB27400
             STL     RSERSW              TO ORIGINAL NEXT JOB                 IBB27410
             CLA     RSMTSW                                                   IBB27420
             STZ     RSMTSW                                                   IBB27430
             TZE     RSMIN                                                    IBB27440
             STL     RSMTER              FOR MATCH ERROR                      IBB27450
             TRA     RSMIN               AND GO REWIND SYSIN1                 IBB27460
      RSMTCH BCI     1,0MATCH                                                 IBB27470
      RSMTSW PZE                                                              IBB27480
      RSMTER PZE                                                              IBB27490
      RSFSTM PZE                                                              IBB27500
      RSQUAN PZE                                                              IBB27510
      RSSIGN PZE                                                              IBB27520
      RSTOT  PZE                                                              IBB27530
      RSHJB  PZE                                                              IBB27540
      IBNCT  PZE                                                              IBB27550
      RSERSW PZE                                                              IBB27560
      RSMSK  BSS     12                                                       IBB27570
      RSIDCD BSS     12                                                       IBB27580

      *-------------------------------------------------------------------------------
      ;              IBSUP ERROR MESSAGES                                     IBB27590
      *                     GENERAL ERROR PRINT ROUTINE                       IBB27600
      *-------------------------------------------------------------------------------
       PUNT  CLA     IBSINP              FIRST - PRINT THE PREVIOUS CARD   $6$IBB27620
             NZT     REWOU1                      ON-LINE IF NOT ALREADY.      IBB27630
             ZET     LSTSW                                                    IBB27640
             TRA     PUNT1                                                    IBB27650
             TZE     PUNT1                                                    IBB27660
             TSX     PROUT,4                                                  IBB27670
             PZE     1                                                        IBB27680
             PZE     ICARD,,14                                             $6$IBB27690
11571  PUNT1 LDQ     1,1                                                      IBB27700
11572        STQ     *+3                 SECOND - PRINT WHATS WRONG           IBB27710
11573        TSX     PROPR,4                                                  IBB27720
11574        PZE     2                                                        IBB27730
11575        PZE     **,,**                                                   IBB27740
11576        PZE     IBERM,,6                                                 IBB27750
11577        TSX     IBPAS,4                                                  IBB27760
11600        STZ     IBSINP              SIMULATE $CARDS CARD              $6$IBB27770
11601        TRA     IBSYS                                                    IBB27780
       IBERM BCI     6,PROVIDE CLARIFICATION IN CARD READER                   IBB27790
                                                                              IBB27800
       IBAS1 TSX     PUNT,1                                                   IBB27810
             PZE     *+1,,5                                                   IBB27820
             BCI     5,ILLEGAL SYSUNI DEFINITION                              IBB27830
                                                                              IBB27840
       IBAT1 TSX     PUNT,1                                                   IBB27850
             PZE     *+1,,4                                                   IBB27860
             BCI     4, ILLEGAL UNIT SPECIFIED                                IBB27870
                                                                              IBB27880
      IBNOIN LDQ     SYUNAM+9                                                 IBB27890
       IFND5 STQ     IFND4+1                                                  IBB27900
             TSX     PUNT1,1                                                  IBB27910
       IFND4 PZE     *+1,,5                                                   IBB27920
             BCI     5,****** NO ASSIGNMENT MADE                              IBB27930
                                                                              IBB27940
       IFND2 SLW     IFND3+1                                                  IBB27950
             TSX     PUNT,1                                                   IBB27960
       IFND3 PZE     *+1,,4                                                   IBB27970
             BCI     4,****** UNKNOWN SYSTEM                                  IBB27980
                                                                              IBB27990
       IBT3  TSX     PUNT1,1                                                  IBB28000
             PZE     *+1,,4                                                   IBB28010
             BCI     4,PRESS START TO IGNORE OR                               IBB28020
                                                                              IBB28030
       IBRT1 TSX     PUNT1,1                                                  IBB28040
             PZE     *+1,,6                                                   IBB28050
             BCI     6,$RESTART IGNORED - ILLEGAL FIELD                       IBB28060
                                                                              IBB28070
       IBRT2 TSX     PUNT1,1                                                  IBB28080
             PZE     *+1,,6                                                   IBB28090
             BCI     6,$RESTART IGNORED - NO MATCH FOUND                      IBB28100
                                                                              IBB28110
11673  IBRT3 TSX     PUNT1,1                                                  IBB28120
             PZE     *+1,,9                                                   IBB28130
             BCI     9,$RESTART IGNORED - ABSOLUTE VALUE OF COUNT TOO LARGE   IBB28140

      *-------------------------------------------------------------------------------
      ;              IBSUP / SUBROUTINES                                      IBB28150
      *              CONVERT SYMBOLIC UNIT TO CHANNEL UNIT FORM               IBB28160
      *      TSX     SYUCU,4             UNIT IN COLS 16-18 OF ICARD          IBB28170
      *      ERROR RETURN                  ILLEGAL UNIT (SYMBOLIC)            IBB28180
      *      NORMAL RETURN                 AC#  PRE  CHAN,,UNIT               IBB28190
                                                                              IBB28200
      *     ACCEPTABLE A1,...,A9,A0,B1,...,H0 RDA,PRA,PUA,RDB,PRB,PUB,..      IBB28210
      *              AD00/0,...,HD19/1,AN00/0,...,HN08/1,AH0/0,...,HH9/1      IBB28220
      *-------------------------------------------------------------------------------
      * LATUN OR LOGICAL AC.  A0(II) -  MZE 1,,10      A4(IV) -  PZE 1,,4     IBB28240
      *                       B3(V)  -  MZE 2,,3       B1(VI) -  PZE 2,,1     IBB28250
      *                       0      -  PZE 0,,0       RDB    -  PZE 2,,11    IBB28260
      *                       PUC    -  PZE 3,,12      PRG    -  PZE 7,,13    IBB28270
      *                       CD01/0 -  PZE 3,,(23101)8                       IBB28280
      *                       CN01/0 -  PZE 3,,(23301)8                       IBB28290
      *                       EH7/1  -  PZE 5,,(25047)8                       IBB28300
      *-------------------------------------------------------------------------------
11706 SYUCU  LDQ     ICARD+2             PLACE SYMBOLIC                       IBB28310
11707        RQL     18                  UNIT IN MQ                           IBB28320
11710        PXA     0,0                 HI 3 CHAR.                           IBB28330
11711        LGL     6                   PLACE CHANNEL                        IBB28340
11712        PAX     0,1                 NUMBER (IF TAPE)                     IBB28350
11713        TIX     SYUC2,1,16          IN IR1                               IBB28360
11714 SYUC1  TRA     1,4                 CHANNEL LESS THAN 'A'                IBB28370
      *    TAPE SYMBOLIC OF FORM XN, X#CHANNEL A THRU H,N # UNIT 0 THRU 9     IBB28380
11715 SYUC2  TIX     SYUC5,1,22          IF 'P' OR GRT THEN CD EQUIP          IBB28390
11716        PXA     0,0                 CLEAR AC                             IBB28400
11717        LGL     6                   PLACE UNIT NUMBER                    IBB28410
11720        PAX     0,2                 IN IR2                               IBB28420
11721        TXH     SYUC6,2,9           UNIT GR THAN 9, TRY 7909 DEVICE      IBB28430
11722        TXH     *+2,2,0             SET '0'                              IBB28440
11723        TXI     *+1,2,10            TO '10'                              IBB28450
11724        LDQ     ICARD+3             PICKUP MODEL                         IBB28460
11725        PXA     0,0                 DESIGNATION                          IBB28470
11726        LGL     12                  IF ANY                               IBB28480
11727        ERA     LOII                'II' SETS MODEL II UNIT              IBB28490
11730        TZE     SYUC3-2             'V' SET MODEL V UNIT                 IBB28500
11731        ERA     LOII                (IN $ATTACH PROCESSEOR THE T BIT     IBB28510
11732        ERA     LOV                  IN UCW WILL BE TO ZERO IF II OR V   IBB28520
11733        TNZ     SYUC3                IS SPECIFIED -OTHERWISE LEFT AS IS) IBB28530
11734        CAL     FOR                                                      IBB28540
11735        TRA     SYUC3+1                                                  IBB28550
11736 SYUC3  PXA     0,0                                                      IBB28560
11737        STP     LATUN                                                    IBB28570
11740        SXA     LATUN,1                                                  IBB28580
11741        SXD     LATUN,2                                                  IBB28590
11742        CAL     LATUN                                                    IBB28600
11743        TRA     2,4                 TO NORMAL RETURN                     IBB28610
      * CARD EQUIPMENT SYMBOLIC OF FORM RDX,PRX OR PUX ,X# CHANNEL A THRU H   IBB28620
      SYUC5  TXH     *+2,1,2             INDEX ALLOWABLE                      IBB28630
             TXH     SYUC1,1,1           1 OR 3 (P OR R)                      IBB28640
             TXH     SYUC1,1,3                                                IBB28650
             PXA     0,0                 PLACE IN                             IBB28660
             LGL     6                   INDEX 2                              IBB28670
             AXT     3,2                 11 FOR RDX                           IBB28680
             LAS     SYUC9+3,2           12 FOR PUX                           IBB28690
             TRA     *+2                 13 FOR PRX                           IBB28700
             TRA     *+3                                                      IBB28710
             TIX     *-3,2,1                                                  IBB28720
             TRA     SYUC1                                                    IBB28730
             TXI     *+1,2,10                                                 IBB28740
             PXA     0,0                 FORM CHANNEL                         IBB28750
             LGL     6                   IN IR1                               IBB28760
             PAX     0,1                                                      IBB28770
             TIX     SYUC3,1,16                                               IBB28780
             TRA     1,4                 ILLEGAL CHANNEL                      IBB28790
       SYUC6 PXA     **,1                HERE TO TEST FOR DISK, NEED, HYPER   IBB28800
             ALS     5                                                        IBB28810
             STA     SYUC6                                                    IBB28820
             PXD     ,0                                                       IBB28830
             CAL     SYDSK                                                    IBB28840
             TXL     SYUC1,2,19          ERROR IF LS THAN 20 (20#D)           IBB28850
             TXL     SYC6A,2,20          IF 20 WE HAVE DISK                   IBB28860
             TXL     SYUC7,2,36          MAY BE HYPER IF LS THAN 37 (37#N)    IBB28870
             TXH     SYUC1,2,37          ERROR IF GR THAN 37                  IBB28880
             CAL     SYNED                                                    IBB28890
       SYC6A STD     SYC6B                                                    IBB28900
             LGL     6                                                        IBB28910
             PAX     ,2                                                       IBB28920
             TXH     SYUC1,2,1           ERROR IF GR THAN 1  (ACCESS 2 #1)    IBB28930
             ORA     SYUC6                                                    IBB28940
             ALS     4                                                        IBB28950
             STA     SYUC6                                                    IBB28960
             PXD     ,0                                                       IBB28970
             LDQ     ICARD+3                                                  IBB28980
             LGL     6                                                        IBB28990
             PAX     ,2                                                       IBB29000
             TXH     SYUC1,2,9           CHECK FOR LEGAL MODULE               IBB29010
             ORA     SYUC6                                                    IBB29020
             RQL     11                                                       IBB29030
             TQP     *+2                                                      IBB29040
             ORA     *+1                 ADD IN INTERFACE BIT IF NEEDED       IBB29050
             PAX     32,2                                                     IBB29060
       SYC6B TXI     SYUC3,2,**          ADD IN 7909 CHANNEL AND DEVICE BITS  IBB29070
       SYUC7 TXH     SYUC1,2,24          MUST HAVE AN H OR THERE              IBB29080
             TXL     SYUC1,2,23          IS AN ERROR                          IBB29090
             LGL     6                                                        IBB29100
             PAX     ,2                                                       IBB29110
             TXH     SYUC1,2,9           CHECK FOR LEGAL TAPE NO.             IBB29120
             PXA     ,2                                                       IBB29130
             LGR     4                                                        IBB29140
             CLA     SYUC6                                                    IBB29150
             LGL     4                                                        IBB29160
             LDQ     ICARD+3                                                  IBB29170
             RQL     11                                                       IBB29180
             TQP     *+2                                                      IBB29190
             ORA     *+1                                                      IBB29200
             PAX     32,2                ADD IN INTERFACE BIT IF NEEDED       IBB29210
             TXI     SYUC3,2,8192        ADD IN 7909 CHANNEL BIT              IBB29220
       SYUC9 BCI     3,00000R00000U00000D                                     IBB29230
       SYDSK PZE     ,,8192+64                                                IBB29240
       SYNED PZE     ,,8192+192                                               IBB29250
      LOII   BCI     1,0000II                                                 IBB29260
      LOV    BCI     1,0000V                                                  IBB29270
                                                                              IBB29280
      *-------------------------------------------------------------------------------
      *                    INITIALIZE SYSTEM TAPE USEAGE                      IBB29290
      *      TSX     INITUS,1            IR2#-L(INDIRECT REF TO UCW)          IBB29310
      *      RETURN                       IR4 DESTROYED                       IBB29320
      *         IF THE REFERENCE IS TO SYSLB1 THE SELF LOAD SEQUENCE          IBB29340
      *        FOR THE RESTORATION OF THE BASIC MONITOR IS GENERATED          IBB29350
      *-------------------------------------------------------------------------------
12047 INITUS CLA     0,2                 CHECK                                IBB29370
12050        PAC     0,4                 TAPE AT                              IBB29380
12051        TXH     *+2,4,0                                                  IBB29390
12052        TRA     INITL3              TEST FOR DUMP TAPE                   IBB29400
12053        LDI     0,4                                                      IBB29410
12054        RIL     600000              RESET A AND M FLAGS TO 0             IBB29420
12055        STI     0,4                                                      IBB29430
12056        TXH     INLB1,2,-SYSLB2     TO INLB2 IF UNIT IS SYSLB1        $6$IBB29440
12057        TXH     *+2,2,-SYSPP2                                         $6$IBB29450
12060        TXH     INPP2,2,-SYSPP2-1   TO INPP2 IF UNIT IS SYSPP2        $6$IBB29460
12061 INITL1 LFT     020000                                                   IBB29470
12062        TRA     INITL2              IF 7909 CHANNEL AVOID SETTING        IBB29480
12063        CAL     0,2                 DENSITY. OTHERWISE SET               IBB29490
12064        ARS     17                  DENSITY                              IBB29500
12065        ADD     1B17                ACCORDING TO                         IBB29510
12066        STD     *+2                 SIGN OF SYSUNI                       IBB29520
12067        TSX     .NDSEL,4                                              $6$IBB29530
12070        PZE     0,2,**              X                                    IBB29540
12071 INITL2 LNT     020100                                                   IBB29550
12072        TRA     *+2                                                      IBB29560
12073        TRA     1,1                 IF DISK ASSIGNMENT, EXIT NOW         IBB29570
12074        TXH     *+2,2,-SYSUT1                                         $6$IBB29580
12075        TRA     1,1                                                      IBB29590
12076        TXH     *-1,2,-SYSOU1                                         $6$IBB29600
12077        TXL     INITL9,2,-SYSCK1    SET M FLAG FOR SYSCK'S            $6$IBB29610
12100        TXH     INITL8,2,-SYSOU2                                      $6$IBB29620
12101        TXH     INITL9,2,-SYSOU2-1  SET M FLAG FOR SYSOU'S            $6$IBB29630
12102        TXH     *+2,2,-SYSIN2-1                                       $6$IBB29640
12103        TXH     INITL9,2,-SYSPP2    SET M FLAG FOR SYSPP1             $6$IBB29650
12104        TRA     1,1                                                      IBB29660
12105 INITL9 CLA     0,2                 HERE IF SOME OUTPUT UNIT             IBB29670
12106        PAC     0,4                 SET NO REPOSITIONING                 IBB29680
12107        CAL     PTW                 FLAG IN                              IBB29690
12110        ORS     0,4                 UCW                                  IBB29700
12111        TRA     1,1                                                      IBB29710
                                                                              IBB29720
      *-------------------------------------------------------------------------------
      *              INITIALIZE SYSLB1 LOADER AND MOVE INTO NUCLEUS           IBB29730
      *-------------------------------------------------------------------------------
12112  INLB1 SXA     TIN2,1                                                   IBB29750
12113        ZET     PNGSW                                                    IBB29760
12114        TRA     1,1                 RETURN IF PING/PONG IS IN EFFECT     IBB29770
12115        CLA     SISTRA              (WHEN SYSLB1 LOADERS ARE DONE THEY   IBB29780
12116        STO     CALIBN-1            TRA TO CALIBN-1 SO SET # TRA SYSTRA) IBB29790
12117        PIA                                                              IBB29800
12120        ARS     9                                                        IBB29810
12121        ANA     L(15D)                                                   IBB29820
12122        STD     *+2                                                      IBB29830
12123        AXT     CHXSP-1,1                                                IBB29840
12124        TXI     *+1,1,**                                                 IBB29850
12125        SXA     CALIB1,1            INITIALIZE ENTRANCE TO SYSLB1 LOAD$6$IBB29860
12126        PDC     ,1            SET XR1 # -(CHANNEL NUMBER)                IBB29870
12127        LXA     SYSLB1,4                                              $6$IBB29880
12130        TXI     *+1,4,2       SET XR4 # L(UCB+2)                         IBB29890
12131        LDQ     RCHX-1,1            SET MQ#CORRECT RCHX (RSCX) INTR.     IBB29900
12132 TIN1   LFT     000500              HERE IF 7607 CHANNEL              $6$IBB29940
12133        TRA     IBAS1               GO PRINT ILLEGAL SYSUNI MESSAGE      IBB29950
;            MOVLDR  CATLB1,ENTLB1,CTLB1L,XR1                              $6$IBB29951
12134        +
12135        +
12136        +
12137        +
12140        +
12141        +
12142        SLQ     LB1T4                                                    IBB29960
12143        SLQ     LB1T8         RCHX                                       IBB29970
12144        SXA     LB1T1,4       STZ VCB+2                                  IBB29980
12145        LDQ     TCOX-1,1                                                 IBB29990
12146        SLQ     LB1T2               TCOX                                 IBB30000
12147        SLQ     LB1T6                                                    IBB30010
12150        LDQ     TRCX-1,1                                                 IBB30020
12151        SLQ     LB1T5         TRCX                                       IBB30030
12152        SLQ     LB1T7                                                    IBB30040
12153        PIA                                                              IBB30050
12154        ARS     18                                                       IBB30060
12155        ORA     L(16)                                                    IBB30070
12156        STA     CATLB1        REW X                                      IBB30080
12157        STA     LB1T3         RDS X                                      IBB30090
12160        STA     LB1T9         BSR X                                      IBB30100
12161  TIN2  AXT     **,1                                                  $6$IBB30101
12162        TRA     INITL1+2                                              $6$IBB30110
                                                                              IBB30210
      SISTRA TRA     SYSCEM                                                   IBB30980
       DRABM BCI     1,0BM000                                                 IBB30990
                                                                              IBB31000
       LCHXT LCHA    *                                                        IBB31010
             LCHB    *                                                        IBB31020
             LCHC    *                                                        IBB31030
             LCHD    *                                                        IBB31040
             LCHE    *                                                        IBB31050
             LCHF    *                                                        IBB31060
             LCHG    *                                                        IBB31070
             LCHH    *                                                        IBB31080
                                                                              IBB31090
      *-------------------------------------------------------------------------------
      *                    INITIALIZE DUMP SPILL FOR SYSPP2                   IBB31100
      *-------------------------------------------------------------------------------
12175  INPP2 LNT     000100                                                   IBB31120
12176        TRA     INPPW                                                    IBB31130
12177        TSX     PROPR,4             PRINT DUMP WARNING IF                IBB31140
12200        PZE     1                   SYSPP2 IS NOT 729 OR HYPER.          IBB31150
12201        PZE     INMS1,,9                                                 IBB31160
12202        TRA     INITL7                                                   IBB31170
12203  INPPW CLA     SYSPP2              HERE IF SYSPP2 IS 729 OR HYPER    $6$IBB31180
12204        ALS     18                                                       IBB31190
12205        STD     DPUCB               SET D(DPUCB) # L(SPILL UCB)       $6$IBB31200
12206        CAL*    0,2                                                      IBB31210
12207        ARS     9                                                        IBB31220
12210        ANA     L(15D)                                                   IBB31230
12211        PDC     ,4                  SET XR4# -(CHANNEL NUMBER)           IBB31240
12212        LDQ     LCHXT-1,4                                                IBB31250
12213        SLQ     DPH4                SET LCHX OR STCX                  $6$IBB31260
12214        LDQ     RCHX-1,4                                                 IBB31270
12215        SLQ     DPH3                SET RCHX OR RSCX                  $6$IBB31280
12216        LDQ     DUMP+.                                                $6$IBB31281
12217        CLA*    0,2                 NOW SPLIT FOR 729 OR HYPER           IBB31290
12220        LFT     020000                                                   IBB31300
12221        TRA     INPPX                                                    IBB31310
12222        ARS     18                  HERE IF 729 TAPE#SYSPP2              IBB31320
12223        ORA     L(16)                                                    IBB31330
12224        STA     DHENT+.                                               $6$IBB31340
12225        CLA     DHENT+.                                               $6$IBB31350
12226        STO     DHENT                                                 $6$IBB31360
12227        STQ     DUMP                                                  $6$IBB31361
12230        CLA     DPH2+.                                                $6$IBB31370
12231        STO     DPH2                                                  $6$IBB31380
12232        CLA     DPH3+.                                                $6$IBB31390
12233        STA     DPH3                RCHX  DMPCW                       $6$IBB31400
12234        CLA     INDP1                                                    IBB31410
12235        TRA     INPPZ                                                    IBB31420
12236  INPPX ANA     L(15D)              HERE IF HYPERTAPE # SYSPP2           IBB31430
12237        CLA     DPH1+.                                                $6$IBB31440
12240        SLW     DPH1                                                  $6$IBB31450
12241        STQ     DHENT                                                 $6$IBB31451
12242        CLA*    0,2                                                      IBB31460
12243        ARS     23                                                       IBB31470
12244        ANA     L(1)                                                     IBB31480
12245  INPPY SLW     DUMP                                                  $6$IBB31500
12246        CLA     INCTL               CTLW  *-2                            IBB31510
12247        STO     DPH2                                                  $6$IBB31520
12250        CLA     INPPY                                                    IBB31530
12251        STA     DPH3                RSCX                              $6$IBB31540
12252        CLA     INDP2                                                    IBB31550
12253  INPPZ LXA     SYSOU1,4            NOW JOIN 729 AND HYPER            $6$IBB31560
12254        TXL     INPPV,4,0           PREVENT DUMP SPILL IF                IBB31570
12255        LDI*    SYSOU1              SYSOU1 IS NOT 729 OR HYPER        $6$IBB31580
12256        LNT     020100                                                   IBB31590
12257        TRA     INPPV+1                                                  IBB31600
12260  INPPV CAL     INDP3                                                    IBB31610
12261        LDI*    SYSPP2                                                $6$IBB31620
12262        STO     SYSDMP                                                   IBB31630
12263        STO     2                                                        IBB31640
12264        TRA     INITL1                                                   IBB31650
                                                                              IBB31660
       INDP1 TTR     DUMP                                                  $6$IBB31670
       INDP2 TTR     DHENT                                                 $6$IBB31680
       INCTL CTLW    DPH1                                                  $6$IBB31690
       INMS1 BCI     9,SYSPP2 IS NOT 729 OR HYPER. NO DUMP CAN BE TAKEN.      IBB31700
                                                                              IBB31710
      *-------------------------------------------------------------------------------
      *                    CHECK IF SYSPP2 OR SYSOU1 NOT ASSIGNED             IBB31720
      *-------------------------------------------------------------------------------
      INITL3 TXH     INITL4,2,-SYSOU1+.                                       IBB31740
             TXH     INITL5,2,-SYSOU2+.                                       IBB31750
             TXH     INITL4,2,-SYSPP2+.                                       IBB31760
12301        TXH     INITL6,2,-SYSPP2-1+.                                     IBB31770
12305 INITL4 TRA     1,1                                                      IBB31780
      INITL5 TSX     PROPR,4             NO SYSOU1, TELL OPR NO DUMP --    $6$IBB31810
             PZE     2                                                        IBB31820
             MZE     SYUNAM+7,,1                                              IBB31830
             PZE     INMS2,,7                                                 IBB31840
             TRA     INITL7                                                   IBB31850
      INITL6 TSX     PROPR,4                                                  IBB31860
             PZE     2                                                        IBB31870
             MZE     SYUNAM+12,,1                                             IBB31880
             PZE     INMS2,,7                                                 IBB31890
      INITL7 CAL     INDP3                                                    IBB31900
             SLW     SYSDMP                                                   IBB31910
             SLW     2                                                        IBB31920
             TRA     1,1                                                      IBB31930
                                                                              IBB31940
       INDP3 TTR     CALIB1                                                $6$IBB31950
       INMS2 BCI     7, IS NOT ASSIGNED. NO DUMP CAN BE TAKEN.                IBB31960
                                                                              IBB31970
      *-------------------------------------------------------------------------------
      *                    RESTORE DUMP SPILL AND SPOUT IF SYSOU1 ASSIGNED.   IBB31980
      *-------------------------------------------------------------------------------
12333 INITL8 LXA     SYSPP2,4                                              $6$IBB32000
12334        CLA     SPTLD               RESTORE SPOUT                     $6$IBB32010
12335        LDI*    SYSOU1              IF SYSOU1 IS 729 OR HYPER.        $6$IBB32020
12336        LFT     000100              KILL IT OTHERWISE.                   IBB32030
12337        CLA     SPTLD+1                                               $6$IBB32040
12340        STO     SPOUT               NEXT RESTORE DUMP SPILL           $6$IBB32050
12341        TXL     INITL9,4,0                                               IBB32060
12342        LDI*    SYSPP2              FORGET ALL ABOUT IT THOUGH        $6$IBB32070
12343        LFT     000100              IF SYSPP2 IS NOT 729 OR HYPER.       IBB32080
12344        TRA     INITL9                                                   IBB32090
12345        LDQ     DUMP                                                  $6$IBB32100
12346        CLA     INDP1                                                    IBB32110
12347        TQP     *+2                                                      IBB32120
12350        CLA     INDP2                                                    IBB32130
12351        STO     SYSDMP                                                   IBB32140
12352        STO     2                                                        IBB32150
12353        TRA     INITL9                                                   IBB32160
                                                                              IBB32170
      *-------------------------------------------------------------------------------
      *           REMOVE UNIT REFERENCE FROM AVAILABLE UNIT CHAIN             IBB32180
      *      TSX     RSYUR,4             AC ADDR#L(UCW), IF ZERO EXIT OCCURS  IBB32200
      *      RETURN                       INDICES PRESERVED                   IBB32210
      *-------------------------------------------------------------------------------
12354 RSYUR  SXA     RSY2,4              SAVE IR4                             IBB32230
12355        SXA     RSY2+1,2            SAVE IR2                             IBB32240
12356        SXA     RSY2+2,1            SAVE IR1                             IBB32250
12357        STA     RSY5                SET COMPARE CELL                     IBB32260
12360        NZT     RSY5                IF ZERO                              IBB32270
12361        TRA     1,4                 EXIT                                 IBB32280
12362        PAC     0,2                                                      IBB32290
12363        CLA     0,2                                                      IBB32300
12364        ARS     9                                                        IBB32310
12365        ANA     L(15D)              MASK OUT CHANNEL                     IBB32320
12366        ARS     18                  AND FORM ADDRESS OF START            IBB32330
12367        ACL     SYSUAV              OF AVAILABILITY CHAIN             $6$IBB32340
12370        PAC     0,4                 FOR THAT CHANNEL                     IBB32350
12371        TXI     *+1,4,1                                                  IBB32360
12372 RSY1   CLA     0,4                 FIND REFERENCE                       IBB32370
12373        ANA     IBADR               TO UCW BEING                         IBB32380
12374        CAS     RSY5                DELETED                              IBB32390
12375        TRA     *+2                 NO-                                  IBB32400
12376        TRA     RSY3                YES                                  IBB32410
12377        PAC     0,4                 AT CHAIN                             IBB32420
12400        TXH     RSY1,4,0            END                                  IBB32430
12401 RSY2   AXT     **,4                YES RESTORE IR4                      IBB32440
12402        AXT     **,2                YES RESTORE IR2                      IBB32450
12403        AXT     **,1                YES RESTORE IR1                      IBB32460
12404        TRA     1,4                 EXIT                                 IBB32470
12405 RSY3   CLA     0,2                 FOUND REF. HOOK CHAIN                IBB32480
12406        STA     0,4                 FROM UCW TO REF                      IBB32490
12407        TRA     RSY2                AND EXIT                             IBB32500
                                                                              IBB32510
12410 RSY5   PZE     **                  TEMPORARY                            IBB32520
                                                                              IBB32530
      *-------------------------------------------------------------------------------
      *             VALIDATE CHANNEL AND UNIT,IF OK FORM L(UCW)               IBB32540
      *      TSX     IBVAL,4             AC# PARAM                            IBB32560
      *      RETURN                       IR1 NOT DESTROYED                   IBB32570
      *                  PARAM OF FORMAT PZE CHANNEL,,UNIT                    IBB32590
      *               CHANNEL#1-8,UNIT#1-13 11#CRD,12#PU,13#PR                IBB32600
      *            AT EXIT - AC # PZE L(UCW) OR PZE 0 IF ILLEGAL              IBB32610
      *                             IR2# -L(UCW)                              IBB32620
      *                             SI # C(UCW)                               IBB32630
      *-------------------------------------------------------------------------------
12411 IBVAL  SXA     IBV2+2,4            SAVE IR4                             IBB32650
12412        SXA     IBV2+3,1            1                                    IBB32660
12413        PAC     0,1                 CHECK                                IBB32670
12414        TXL     IBV5+2,1,-HGHCHN-1  LEGIT CHANNEL                     $6$IBB32680
12415        PDX     0,2                 CHECK UNIT                           IBB32690
12416        TXH     IBV7,2,16      VALIDATE DISK OR HYPER TAPE               IBB32700
12417        TXL     IBV5+2,2,0          GR THAN ZERO                         IBB32710
12420        TIX     IBV3,2,10           IF GR THAN 10 NOT TAPE               IBB32720
                                                                              IBB32730
      *                     REFERENCE TO 729 TAPE                             IBB32740
12421        ZET     IBSGAP-1,1                                            $6$IBB32750
12422        TRA     IBV5+2              EXIT IF 7909 CHANNEL                 IBB32760
12423        CAL     UCBA-1,1                                              $6$IBB32770
12424        STD     IBV1                SET TOTAL UNIT CT ON CHANNEL         IBB32780
12425        ARS     15                  BUMP TAPE                            IBB32790
12426        STD     *+1                 NUMBER BY CARD                       IBB32800
12427        TXI     *+1,2,**            EQUIP CT TO FORM                     IBB32810
12430        PXD     0,2                 POSITION NUMBER                      IBB32820
12431        PDC     0,4                                                      IBB32830
12432 IBV1   TXI     *+1,4,**            TEST IF THAT                         IBB32840
12433        TXH     IBV5+2,4,12         UNIT EXISTS                          IBB32850
12434        ARS     16                  YES - IT DOES                        IBB32860
12435        ACL     UCBA-1,1            FORM UCW LOC BY                   $6$IBB32870
12436        SUB     L(4)                4*POS+L(UEX11)-4                     IBB32880
12437        PAC     0,2                 -L(UCW) TO IR2                       IBB32890
12440 IBV2   ANA     IBADR               CLEAR AC EXCEPT UCW LOC              IBB32900
12441        LDI     0,2                 C(UCW) TO SI                         IBB32910
12442        AXT     **,4                RESTORE IR4                          IBB32920
12443        AXT     **,1                                                     IBB32930
12444        TRA     1,4                 EXIT                                 IBB32940
                                                                              IBB32950
      *                     REFERENCE TO CARD EQUIPMENT                       IBB32960
12445 IBV3   TXH     IBV5+2,2,3          TEST GR THAN 3 (LAST CD TYPE ALLOWED)IBB32970
12446        CLA     UCBA-1,1            SAVE                              $6$IBB32980
12447        STA     IBV4                SAVE L(UCW)                          IBB32990
12450        ARS     15                  AND NUMBER                           IBB33000
12451        PDX     0,4                 CARD DEVICES (ILLEGAL IF NONE)       IBB33010
12452        TXL     IBV5+2,4,0                                               IBB33020
12453        PXD     0,2                 FORM CORRECT                         IBB33030
12454        ALS     4                   MASK IF IR2#1,321                    IBB33040
12455        ACL     I301D               2,341                                IBB33050
12456        STO     IBV9                3,361                                IBB33060
12457 IBV4   AXC     **,2                -L(UEX11)                            IBB33070
12460        LDI     0,2                 TEST IF                              IBB33080
12461        TIO     *+2                 CORRECT                              IBB33090
12462        TRA     IBV5                CARD UNIT                            IBB33100
12463        COM                         EXISTS                               IBB33110
12464        ANA     I377D                                                    IBB33120
12465        TIF     IBV6                                                     IBB33130
12466        CLA     IBV9                NOT YET FOUND                        IBB33140
12467 IBV5   TXI     *+1,2,-4                                                 IBB33150
12470        TIX     IBV4+1,4,1                                               IBB33160
12471        PXA     0,0                 NON-EXISTANT                         IBB33170
12472        TRA     IBV2+2                                                   IBB33180
12473 IBV6   PXA     0,2                 FOUND                                IBB33190
12474        PAC     0,4                 +L(UCW)                              IBB33200
12475        PXA     0,4                 TO AC                                IBB33210
12476        TRA     IBV2+1              EXIT                                 IBB33220
                                                                              IBB33230
      *                     REFERENCE TO 7909 CHANNEL DEVICE                  IBB33240
12477 IBV7   CLA     UCBA-1,1                                              $6$IBB33250
12500        PAC     ,4                  SET XR4#-L(FIRST UCB ON CHANNEL)     IBB33260
12501        PDX     ,1                  SET XR1# NO. OF UCBS ON CHANNEL      IBB33270
12502  IBV8  PXD     ,2                  SET D(AC)#FULL UNIT ADDRESS (2XXXX)  IBB33280
12503        LDI     0,4                                                      IBB33290
12504        ORA     IBVD                CHECK FOR 1302 REQUEST            $6$IBB33292
12505        TIO     *+4                 TRANSFER FOR 1302                 $6$IBB33294
12506        PXD     0,2                                                   $6$IBB33296
12507        TIO     *+2                                                      IBB33300
12510        TRA     *+4                                                      IBB33310
12511        COM                                                              IBB33320
12512        ANA     I377D                                                    IBB33330
12513        TIF     *+4                                                      IBB33340
12514        TXI     *+1,4,-4                                                 IBB33350
12515        TIX     IBV8,1,1                                                 IBB33360
12516        TRA     IBV5+2                                                   IBB33370
12517        PXA     0,4                                                      IBB33380
12520        PAX     ,2                  SET XR2#-L(UCW)                      IBB33390
12521        TRA     IBV6+1                                                   IBB33400
                                                                              IBB33410
12522 IBV9   PZE     0,,**                                                    IBB33420
12523  IBVD  PZE     ,,384                                                 $6$IBB33422
                                                                              IBB33430
      *-------------------------------------------------------------------------------
      *                        PROCESS FIND FUNCTION                          IBB33440
      *                LOOKS UP LOCATION OF SPECIFIED SYSTEM                  IBB33460
      *       AND CALLS GENERAL TP POSITIONER TO POSITION CORRECT REEL        IBB33470
      *               IN FRONT OF FIRST RECORD OF THAT SYSTEM                 IBB33480
      *      TSX     IFIND,4             COLS 16-21 OF ICARD#NAME             IBB33500
      *              RETURN        ON RETURN XR2 # L(SYSLBX)                  IBB33510
      *-------------------------------------------------------------------------------
12524 IFIND  SXA     IFND7,1             SAVE IR1                             IBB33530
12525        SXA     IFND9,4             SAVE IR4                             IBB33540
12526        CAL     ICARD+2                                                  IBB33550
12527        LDQ     ICARD+3             POSITION SYSTEM NAME IN AC           IBB33560
12530        LGL     18                                                       IBB33570
12531        LAS     ALBLK                                                 $6$IBB33650
12532        TRA     *+2                                                      IBB33660
12533        TRA     IFND2               ALL BLANKS IS UNKNOWN SYSTEM         IBB33670
12534        LAC     SYSNAM,4                                                 IBB33680
12535        LXD     SYSNAM,1            O.K. - COLS 16 THRU 21 NOT ALL       IBB33690
12536        LAS     0,4                 BLANK - LETS GO TRY AND FIND         IBB33700
12537        TRA     *+2                 IT IN THE SYSTEM NAME TABLE.         IBB33710
12540        TRA     IFND1               HERE IT IS - TO IFND1                IBB33720
12541        TXI     *+1,4,-2                                                 IBB33730
12542        TIX     *-4,1,1                                                  IBB33740
12543        TRA     IFND2               UNKNOWN SYSTEM                       IBB33750
12544 IFND1  SLW     SYSCUR              STORE CURRENT SYSTEM NAME            IBB33760
12545        CLA     1,4                                                      IBB33770
12546        STO     SYSPOS                                                   IBB33780
12547        PAC     ,4                  NOW DETERMINE SYSLBN              $6$IBB33790
12550        ACL     SYSUNI                                                   IBB33800
12551        SUB     L(1)                                                     IBB33810
12552        PAC     ,2                  SET XR2 # -L(SYSLBN)                 IBB33820
12553        CLA     0,2                                                      IBB33830
12554        ANA     IBADR               MAKE SURE SYSLBN IS ASSIGNED         IBB33840
12555        TNZ     IFND6                                                    IBB33850
12556        LDQ     SYUNAM-1,4          IF NOT, PRINT ERROR MESSAGE       $6$IBB33860
12557        TRA     IFND5                                                 (9)IBB33870
12560        STR                         * PATCH SPACE *                   (9)IBB33880
12561        STR                         * PATCH SPACE *                   (9)IBB33890
12562 IFND6  LDI*    SYSLB1                                                $6$IBB33900
12563        LNT     020100              IS SYSLB1 DISK OR NEED...         $6$IBB33905
12564        TRA     IFNDA               NO                                   IBB33910
12565        LDI*    0,2                 YES.                                 IBB33920
12566        LNT     020100              IF YES - HOW ABOUT SYSLBN...         IBB33930
12567        TRA     IFNDB               NO                                   IBB33940
12570        AXT     0,4                 YES - THEN LOCATE THE TRACK          IBB33950
12571        CAL     SYSCUR              POSITION OF THE SYSTEM BY            IBB33960
12572        LAS     DSYSNM,4            LOOKUP IN DISK NAME TABLE.           IBB33970
12573        TRA     *+2                                                      IBB33980
12574        TRA     IFND8               --FOUND--                            IBB33990
12575        TXI     *+1,4,-2                                                 IBB34000
12576        TXH     *-4,4,-SLTABL                                            IBB34010
12577        TRA     IFND2               OH WELL, CANT FIND IT.               IBB34020
12600  IFND8 CLA     DSYSNM+1,4          HERE IF FOUND                        IBB34030
12601        STD     SYSPOS              SET D,SYSPOS.# TTTT ORIGIN           IBB34040
12602        LDQ     L(0)                RETURN WITH S(MQ)#+ TO               IBB34050
12603        TRA     IFND7               INDICATE LB1 AND LBN # DISK (NEED).  IBB34060
12604  IFNDA LDI*    0,2                 HERE IF SYSLB1 IS TAPE               IBB34070
12605        LNT     020100              HOW ABOUT SYSLBN - IT BETTER         IBB34080
12606        TRA     IFNDB               BE TAPE ALSO                         IBB34090
12607        LDQ     SYUNAM-1,4                                               IBB34100
12610        STQ     IFNDX                                                    IBB34110
12611        TSX     PUNT,1                                                   IBB34120
12612        PZE     *+1,,7                                                   IBB34130
;      IFNDX BCI     7,SYSLBN NOT TAPE (LB1 IS)-CANT $EXECUTE                 IBB34140
12622  IFNDB CLA     SYSPOS                                                   IBB34150
12623        TSX     RGTPO,4             IF SYSLBN IS NOT DISK THEN ----      IBB34160
12624        LDQ     MZE                 A (SYSPOS) # N OF SYSLBN             IBB34170
12625  IFND7 AXT     **,1                D (SYSPOS) # NUMBER OF FILES TO SKIP IBB34180
12626  IFND9 AXT     **,4                RETURN WITH TAPE POSITIONED          IBB34190
12627        TRA     1,4                 AND WITH S(MQ) # -                   IBB34200

      *-------------------------------------------------------------------------------
      ;              SYSTEM RETURN VIA SYSRET                                 IBB34210
      *                    RETURN TO IBSUP VIA SYSRET                         IBB34220
      *-------------------------------------------------------------------------------
13016 TPPS   CLA     SYSLB4+.            TEST FOR EXISTENCE                $6$IBB34240
13017        LAC     SYSLB4,1            DUPLICATE SYSTEM TAPE             $6$IBB34250
13020        STT     *+1                 FROM ASSEMBLED SYSLB4 ASSSIGNMENT    IBB34260
13021        PXA     0,**                                                     IBB34270
13022        TZE     TPPNM               NON-EXISTENT, EXIT                   IBB34280
13023        LDI     0,1                                                      IBB34290
13024        LFT     000100                                                   IBB34300
13025        TRA     TPPNM               IGNORE REQUEST IF EITHER OF          IBB34310
13026        LDI*    SYSLB1              THE PING PONG UNITS ARE DISK TYPE $6$IBB34320
13027        LFT     000100                                                   IBB34330
13030        TRA     TPPNM                                                    IBB34340
13031        AXT     30,4                ALL TESTS PASSED,                    IBB34350
13032        LNT     020000              REWIND SYSLB1                        IBB34360
13033        AXT     3,4                 HERE IF 7607                         IBB34370
13034        SXD     *+2,4               HERE IF 7909                         IBB34380
13035        TSX     NDATA,4                                                  IBB34390
13036        PZE     SYSLB1,,**                                            $6$IBB34400
13037        CAL     PTW                                                      IBB34410
13040        STP     SELX-2              NOP THE DENSITY SETTING INSTX        IBB34420
13041        STP     SELX-1                                                   IBB34430
13042        AXC     SYSLB1,2                                              $6$IBB34440
13043        TSX     INITUS,1            GO TO INITUS FOR SYSLB1              IBB34450
13044        ZAC                                                              IBB34460
13045        STP     SELX-2              RESTORE DENSITY SETTING INSTX        IBB34470
13046        STP     SELX-1                                                   IBB34480
13047        CLA     SYSLB4+.                                              $6$IBB34490
13050        TSX     IBVAL,4                                                  IBB34500
13051        STA     IBFLP                                                    IBB34510
13052        CLA     SYSLB1              TEST ASSEMBLED AGAINST NEW SYSLB1 $6$IBB34520
13053        ANA     IBADR               MASK OFF ADDRESS                     IBB34530
13054        SUB     IBFLP                                                    IBB34540
13055        STA     IBFLP               AND USE RESULTS  AS SWITCH FOR $JOB  IBB34550
13056        TSX     IBPNG,4                                                  IBB34560
13057        STL     PNGSW                                                    IBB34570
13060  TPPNM MOVLDR  SPOUT,SPTEND,SPTLD                                    $6$IBB34580
13061        +
13062        +
13063        +
13064        CAL     SYSDMP                                                $6$IBB34600
13065        SLW     2                   SO THAT STR RESULTS IN CORE DUMP  $6$IBB34610
13066        LXA     SYSOU1,1                                              $6$IBB34620
13067        TXL     *+4,1,0             KILL SPOUT IF SYSOU1                 IBB34630
13070        LDI*    SYSOU1              IS NOT 729 OR HYPERTAPE.          $6$IBB34640
13071        LNT     000100                                                   IBB34650
13072        TRA     *+3                                                      IBB34660
13073        CLA     SPTLD+1                                               $6$IBB34670
13074        STO     SPOUT                                                 $6$IBB34680
13075        AXT     SYSTT,1             RESTORE SYSTEM NAME                  IBB34690
13076        CAL     SYSORG+SYSTT,1      TABLE TO                             IBB34700
13077        SLW     SYNEND,1            WORKING AREA                         IBB34710
13100        TIX     *-2,1,1             X                                    IBB34720
13101        AXT     SYSTT,1             MODIFY WORKING NAME                  IBB34730
13102        CAL     SYNEND+1,1          TABLE INDEX WORDS TO                 IBB34740
13103        ARS     15                  COMPLY WITH NORMAL                   IBB34750
13104        ANA     L(7)                OPERATION OF SYSTEM                  IBB34760
13105        STA     SYNEND+1,1          FROM THE EDITED FORMAT               IBB34770
13106        STT     SYNEND+1,1          X                                    IBB34780
13107        TIX     *-5,1,2             X                                    IBB34790
13110        EMTM                                                          $6$IBB34800
13111 TPSTR  LDQ     SYSGET+.                                              $6$IBB34810
13112        CLA     SYSGET                                                   IBB34820
13113        STQ     SYSGET                                                   IBB34830
13114        STO     TMPGET              NOW TAKE A LOOK AT SYSGET...         IBB34840
13115        CAS     SYSGET+.                                              $6$IBB34850
13116        TRA     *+2                                                      IBB34860
13117        TRA     IBSYS               IF IBSYST GO TO IBSYS                IBB34870
13120        CAS     IBSBSR                                                   IBB34880
13121        TRA     *+2                                                      IBB34890
13122        TRA     TPP5                IF IBSBSR GO TO TPP5                 IBB34900
13123        CAS     IBSNXT                                                   IBB34910
13124        TRA     *+2                                                      IBB34920
13125        TRA     IBSYS               IF IBSNXT GO TO IBSYS                IBB34930
13126        CAS     IBSXEC                                                   IBB34940
13127        TRA     *+2                                                      IBB34950
13130        TRA     IBSYS               IF IBSXEC GO TO IBSYS                IBB34960
13131        CAS     STCRD                                                    IBB34970
13132        TRA     *+2                                                      IBB34980
13133        TRA     TPP1                IF $STOP GO TO TPP1                  IBB34990
13134        LDQ     ALBLK                                                    IBB35000
13135        CAL     TMPGET                                                   IBB35010
13136        LGR     18                  IF NONE OF THE ABOVE ASSUME          IBB35020
13137        STQ     ICARD+3             SYSNAM IS IN SYSGET.                 IBB35030
13140        LDQ     ESS                                                      IBB35040
13141        STQ     ICARD+1             SIMULATE $EXECUTE SYSNAM             IBB35050
13142        LDQ     EXCRD                                                    IBB35060
13143        TRA     TPP8                                                     IBB35070
13144  TPP1  STO     ICARD               HERE IF SYSGET#$STOP                 IBB35080
13145        AXT     13,1                                                  $6$IBB35090
13146        LDQ     ALBLK                                                    IBB35100
13147        STQ     ICARD+14,1                                            $6$IBB35110
13150        TIX     *-1,1,1                                                  IBB35120
13151        TRA     IBT1                                                     IBB35130
13152  TPP5  LXA     SYSJOB,2            HERE IF SYSGET # IBSBSR              IBB35140
13153        TXI     *+1,2,-1            A $JOB CARD HAS BEEN READ            IBB35150
13154        NZT     IBSINP                                                $6$IBB35160
13155        TRA     TPP6                                                     IBB35170
13156        SXA     SYSJOB,2                                                 IBB35180
13157        SWT     1                                                        IBB35190
13160        TRA     TPP6                                                     IBB35200
13161        STZ     IBSINP                                                $6$IBB35210
13162  TPP6  NZT     IBSAV                IF READ FROM THE CARD            $6$IBB35220
13163        TRA     TPP7                READER, DUMMY UP A $JOB              IBB35230
13164        LDI*    SYSIN1              CARD AND PROCEED AS IF            $6$IBB35240
13165        LFT     000100              IBSYS HAD READ IT IN.                IBB35250
13166        TRA     TPP7                                                     IBB35260
13167  ENTTP AXT     5,1                 IF READ FROM 729 OR                  IBB35270
13170        LFT     020000              HYPERTAPE, BACK SPACE                IBB35280
13171        AXT     34,1                OVER IT AND CONTINUE.                IBB35290
13172        SXD     *+2,1                                                    IBB35300
13173        TSX     NDATA,4                                                  IBB35310
13174        PZE     SYSIN1,,**                                            $6$IBB35320
13175        TRA     IBSYS                                                    IBB35330
13176  TPP7  LDQ     ALBLK                                                    IBB35340
             STQ     ICARD+1                                                  IBB35350
             CAL     XXESS                                                    IBB35360
             LGR     18                                                       IBB35370
             STQ     ICARD+3                                                  IBB35380
             LDQ     JBCRD                                                    IBB35390
       TPP8  STQ     ICARD                                                    IBB35400
             ORA     HOBLK                                                    IBB35410
             SLW     ICARD+2                                                  IBB35420
             AXT     10,1                                                  $6$IBB35430
             LDQ     ALBLK                                                    IBB35440
             STQ     ICARD+14,1                                            $6$IBB35450
             TIX     *-1,1,1                                                  IBB35460
             TRA     IBT1                                                     IBB35470
                                                                              IBB35480
      TMPGET PZE     **                                                       IBB35490
      IBSBSR BCI     1,IBSBSR                                                 IBB35500
      IBSNXT BCI     1,IBSNXT                                                 IBB35510
      IBSXEC BCI     1,IBSXEC                                                 IBB35520
       ESS   BCI     1,TE                                                     IBB35530
       XXESS BCI     1,XXXXXX                                                 IBB35540
     
      *-------------------------------------------------------------------------------
      ;              IBSUP GENERAL TAPE POSITIONER                            IBB35550
      *            GENERAL TAPE POSITIONER ROUTINE BY FILE NUMBER             IBB35560
      *      TSX     RGTPO,4             IR2#-L(INDIRECT REF UCW), AC DEC#FILEIBB35580
      *      RETURN                       IR1 DESTROYED                       IBB35590
      *-------------------------------------------------------------------------------
13222  RGTPO SXA     RGT2+2,4                                                 IBB35610
13223        STD     RGT3                STORE DESIRED TAPE POSITION          IBB35620
13224        TSX     INITUS,1            INITIALIZE THAT SYS TAPE USEAGE      IBB35630
13225        LDI*    0,2                                                      IBB35640
13226        CLA     RGT3                                                     IBB35650
13227        TNZ     RGT1                                                     IBB35660
13230        AXT     30,4                IF NUMBER OF FILES TO                IBB35670
13231        LNT     020000              SKIP # 0, THEN REWIND THE            IBB35680
13232        AXT     3,4                 TAPE ANE EXIT                        IBB35690
13233        SXD     *+2,4                                                    IBB35700
13234        TSX     NDSEL,4                                                  IBB35710
13235        PZE     0,2,**                                                   IBB35720
13236        CLA     0,2                                                      IBB35730
13237        PAC     0,1                                                      IBB35740
13240        TRA     RGT2                                                     IBB35750
13241 RGT1   CLA     0,2                 COMPARE DESIRED                      IBB35760
13242        PAC     0,1                 TAPE POSITION                        IBB35770
13243        CLA     2,1                 WITH ACTUAL POSITION                 IBB35780
13244        ANA     IBABP                                                    IBB35790
13245        CAS     RGT3                                                     IBB35800
13246        TRA     *+3                 MOVE TAPE BACKWARD                   IBB35810
13247        TRA     RGT2                POSITION IS CORRECT                  IBB35820
13250        TRA     RGT4                MOVE TAPE FORWARD                    IBB35830
13251        AXT     35,4                                                     IBB35840
13252        LNT     020000                                                   IBB35850
13253        AXT     6,4                                                      IBB35860
13254        SXD     *+2,4                                                    IBB35870
13255        TSX     NDSEL,4             BSF                                  IBB35880
13256        PZE     0,2,**              AND CHECK                            IBB35890
13257        TRA     RGT1+2              AGAIN                                IBB35900
13260  RGT2  ZET     1,1                                                      IBB35910
13261        TRA     *-1                                                      IBB35920
13262        AXT     **,4                                                     IBB35930
13263        TRA     1,4                 EXIT                                 IBB35940
                                                                              IBB35950
      *                        DESIRED TAPE POSITION                          IBB35960
13264 RGT3   PZE     0,,**                                                    IBB35970

      *                   MOVE FORWARD PAST NEXT EOF MARK                     IBB35990
13265 RGT4   ZET     1,1                 WAIT TILL                            IBB36000
13266        TRA     *-1                 UNIT DORMANT                         IBB36010
13267        LNT     020000                                                   IBB36020
13270        TRA     *+4                                                      IBB36030
13271        TSX     NDSEL,4             HERE TO HSKF                         IBB36040
13272        PZE     0,2,37                                                   IBB36050
13273        TRA     RGT1                                                     IBB36060
13274        AXT     RGT5,4              SET WAIT                             IBB36070
13275        SXA     RGT5,4              TRA *                                IBB36080
13276        CAL     RGT6                ENTER                                IBB36090
13277        SLW     1,1                 SELECT                               IBB36100
13300        TSX     ACTV,4                                                   IBB36110
13301        MZE     0,2                                                      IBB36120
13302 RGT5   TRA     *                   WAIT TILL DONE                       IBB36130
      *                  SELECT WORD FOR FORWARD SPACE FILE                   IBB36140
13303 RGT6   PTW     *+1,,RGT7           DISABLE REDUN. MESSAGE               IBB36150
13304        IORTN   **,,0                                                    IBB36160
                                                                              IBB36170
      *              SELECT ROUTINE FSF - (FORWARD SPACE FILE)                IBB36180
13305 RGT7   PAC     0,2                 -L(UCW) TO IR2                       IBB36190
13306        TMI     RGT8                SEL (-) BRANCH                       IBB36200
13307        STZ     RCTX,1              SET NO REDUN. CHECK                  IBB36210
13310        CLA     1,2                 SET L(IORT)                          IBB36220
13311        STA     RCHX,1              TO RCHX                              IBB36230
13312        CLA     0,2                 FORM                                 IBB36240
13313        ARS     18                  BINARY                               IBB36250
13314        ORA     L(16)               SELECT                               IBB36260
13315        STA     *+1                                                      IBB36270
13316        RDS     **                  RDS                                  IBB36280
13317        XEC     RCHX,1              RCHX                                 IBB36290
13320        TRA     1,4                 BACK TO IOEX                         IBB36300
13321 RGT8   CLA     2,2                 COMPARE TP POSITION                  IBB36310
13322        LAS     RGT3                WITH DESIRED                         IBB36320
13323        TRA     *+3                 GOT PAST                             IBB36330
13324        TRA     *+2                 EQUAL                                IBB36340
13325        TRA     1,4                 PROCEED FORWARD                      IBB36350
13326        STZ     1,2                 CLEAR ACTIVITY                       IBB36360
13327        AXT     RGT1,2              SETUP WAIT                           IBB36370
13330        SXA     RGT5,2              PROCEED                              IBB36380
13331        TRA     1,4                 AND BACK TO IOEX                     IBB36390

      *-------------------------------------------------------------------------------
      ;              PROUT / PAUSE CONTROL                                    IBB36400
      *                            PROUT AND PAUSE CONTROL REOUTINES          IBB36410
      *-------------------------------------------------------------------------------
13332  PRCRD ENB     L(0)                ENTER HERE TO WRITE ON-LINE          IBB36430
13333        STZ     PRCSW               ONLY IF CANT WRITE OFF-LINE OR       IBB36440
13334        TRA     PROPR+2             IN LIST MODE OR READ FROM SYSCRD.    IBB36450
13335  PROPR ENB     L(0)                ENTER HERE TO WRITE ON-LINE AND,     IBB36460
13336        STL     PRCSW               IF POSSIBLE, OFF-LINE.P              IBB36470
13337        PXD     ,0                                                       IBB36480
13340        ZET     REWOU1                                                   IBB36490
13341        TRA     PRCHM                                                    IBB36500
13342        CAL     *                                                        IBB36510
13343        ZET     PRCSW                                                    IBB36520
13344        TRA     PRCHM                                                    IBB36530
13345        NZT     LSTSW                                                    IBB36540
13346        NZT     IBSINP                                                $6$IBB36550
13347        TXI     PRCHM,0,0                                                IBB36560
13350        ORA     *-1                                                      IBB36570
13351  PRCHM STP     1,4                                                      IBB36580
13352        TTR     PROUT                                                    IBB36590
                                                                              IBB36600
13353  IBPAS ENB     L(0)                ENTER HERE TO WRITE PAUSE            IBB36610
13354        STZ     PRCSW               ON-LINE AND IF POSSIBLE OFF-LINE.    IBB36620
13355        TRA     IBPASP+2                                                 IBB36630
13356 IBPASP ENB     L(0)                ENETER HERE TO WRITE PAUSE           IBB36640
13357        STL     PRCSW               ON-LINE ONLY.                        IBB36650
13360        SXA     PASX4,4                                                  IBB36660
13361        STL     ENBSW                                                    IBB36670
13362        ZET     PRCSW                                                    IBB36680
13363        TRA     PASHM                                                    IBB36690
13364        ZET     REWOU1                                                   IBB36700
13365        TRA     PASHM                                                    IBB36710
13366        CAL     *                                                        IBB36720
13367        STP     PWSP1                                                    IBB36730
13370        STP     PWSP2                                                    IBB36740
13371        TSX     PAUSE,4                                                  IBB36750
13372        PXD     ,0                                                       IBB36760
13373        STP     PWSP1                                                    IBB36770
13374        STP     PWSP2                                                    IBB36780
13375        TRA     *+2                                                      IBB36790
13376  PASHM TSX     PAUSE,4                                                  IBB36800
13377        SXA     ENBSW,0                                                  IBB36810
13400  PASX4 AXT     **,4                                                     IBB36820
13401        ENB*    TRAPX                                                    IBB36830
13402        TRA     1,4                                                      IBB36840
                                                                              IBB36850
13403  PRCSW PZE     **                                                       IBB36860

      *-------------------------------------------------------------------------------
      ;              SPOUT                                                    IBB36870
      *              OFF-LINE MESSAGE PRINTING ROUTINE                        IBB36880
      *                                  CALLING SEQUENCE                     IBB36900
      *      TSX     PROUT,4                                                  IBB36910
      *      MZE     N                                                        IBB36920
      * THE FOLLOWING PARAMETER MUST BE CHANGED IF SPOUT IS                $6$IBB36931
      *  MODIFIED IN SUCH A WAY AS TO CHANGE ITS LENGTH                    $6$IBB36932
      ;                                                                    $6$IBB36933
      SPARE  BOOL    310                 LENGTH OF SPOUT                   $6$IBB36934
      ;                                                                    $6$IBB36935
      SPTLD  ORG     *                                                     $6$IBB36936
      SPOUT  LOC     SYSEND-SPARE+1                                        $6$IBB36937
      *-------------------------------------------------------------------------------
77470        ZET     TRPSW                                                 $6$IBB36940
77471        TRA     PRT7                                                     IBB36950
77472        SXA     SPXR4,4                                               $6$IBB36960
77473        SXA     SPXR2,2                                               $6$IBB36970
77474        SXA     SPX1,1                                                $6$IBB36980
77475        CLA     ENBSW                                                    IBB36990
77476        STO     SPESW                                                 $6$IBB37000
77477        STZ     ENBSW                                                    IBB37010
77500        LAC     SYSOU1,2                                              $6$IBB37020
77501        TXL     PRT7,2,0            NO SYSOU1                         $6$IBB37025
77502        NZT     1,2                                                      IBB37030
77503        TRA     SPT1                                                  $6$IBB37040
77504        TSX     ACTIV,4                                                  IBB37050
77505        MZE     SYSOU1                                                $6$IBB37060
77506        ZET     1,2                                                      IBB37070
77507        TRA     *-1                                                   $6$IBB37080
77510 SPT1   CLA     SPM3                                                  $6$IBB37090
77511        STO     1,2                                                      IBB37100
77512        TSX     ACTIV,4                                                  IBB37110
77513        MZE     SYSOU1                                                $6$IBB37120
77514        ZET     1,2                                                      IBB37130
77515        TRA     *-1                                                   $6$IBB37140
77516        ENB     L(0)                                                     IBB37150
77517        CLA     SPESW                                                 $6$IBB37160
77520        STO     ENBSW                                                    IBB37170
77521 SPXR4  AXT     **,4                                                     IBB37180
77522 SPXR2  AXT     **,2                                                     IBB37190
      ;              COMPUTE CALLING SEQUENCE END                          $6$IBB37200
77523        PXA     2,4                                                   $6$IBB37210
77524        SBM     *-1                                                   $6$IBB37220
77525        ACL     1,4                 GET L(TSX) +2+N+PREFIX            $6$IBB37230
77526        STA     PRTEX                                                    IBB37240
77527        ALS     2                                                        IBB37250
77530        PBT                                                              IBB37260
77531 SPT1A  TXI     PRT7,,15                                                 IBB37270
77532 SPT1B  TXI     PRTAX+1,,8576                                            IBB37280
                                                                              IBB37290
      *-------------------------------------------------------------------------------
      *                    SPOUT SELECT ROUTINE                               IBB37300
      *-------------------------------------------------------------------------------
77533  SPSEL SXA     SPSX4,4                                               $6$IBB37320
77534        TMI     SPSLM                                                 $6$IBB37330
77535        LDI*    SYSOU1                                                $6$IBB37340
77536        ZET     URRX,1              IN WRITE RECOVERY...                 IBB37350
77537        TRA     SPWRS-1                                               $6$IBB37360
77540        ZET     SPTSW               HERE IF NO. FIRST TIME HERE...    $6$IBB37370
77541        TRA     SPSX2                                                 $6$IBB37380
77542        LXA     SPXR4,2             HERE IF YES-INITIALIZE            $6$IBB37390
77543        CLA     1,2                                                      IBB37400
77544        STA     SPTSW               SET SPTSW#ENTRY COUNT             $6$IBB37410
77545  SPS1  PIA     SPIOC                                                 $6$IBB37420
77546        ARS     18                  NO. SYSOU1 IS 729 TAPE               IBB37430
77547        STA     SPWRS                                                 $6$IBB37440
77550 SPS2   ARS     5                   SET UP SMS FOR HT                    IBB37450
77551        ANA     L(1)                                                     IBB37460
77552        ORA     SPS3A                                                 $6$IBB37470
77553  SPS3  STA     SPHT2               SET UP THE SMS                    $6$IBB37480
77554 SPS3A  PIA     22                                                       IBB37490
77555        ANA     SPT1A                                                 $6$IBB37500
77556        ORA     SPT1B                                                 $6$IBB37510
77557        STD     SPHT1               SET H.T. UNIT SELECT              $6$IBB37520
77560        CLA     SPS1                                                  $6$IBB37530
77561        LFT     020000                                                   IBB37540
77562        CLA     SPS3                                                  $6$IBB37550
77563  SPS4  STO     SPWRS+1             SET UP RCHX ADDRESS               $6$IBB37560
77564        LDQ     RCHX,1                                                   IBB37570
77565        SLQ     SPWRS+1             SET UP RCHX OP CODE               $6$IBB37580
77566        TXI     *+2,2,-2                                              $6$IBB37590
77567  SPSX2 AXT     **,2                                                     IBB37600
77570        AXT     14,4                NOW SET UP I/O COMMANDS              IBB37610
77571        ZET     SPEOR                                                 $6$IBB37620
77572        TRA     SPS7                                                  $6$IBB37630
77573  SPS5  CLA     0,2                                                      IBB37640
77574        ANA     MSK1                                                     IBB37650
77575        STD     SPCOM+14,4                                            $6$IBB37660
77576        SXA     SPS1X,1                                               $6$IBB37670
77577        SXA     SPS2X,2                                               $6$IBB37680
77600        LXA     SPXR2,2                                               $6$IBB37690
77601 SPX1   AXT     **,1                                                     IBB37700
77602        STT     *+1                                                   $6$IBB37710
77603        PXA     ,**                                                      IBB37720
77604 SPS1X  AXT     **,1                                                     IBB37730
77605 SPS2X  AXT     **,2                                                     IBB37740
77606        SBM     0,2                                                      IBB37750
77607        STA     SPCOM+14,4                                            $6$IBB37760
77610        CAL     *                                                     $6$IBB37770
77611        STP     SPCOM+14,4          SET COMMAND TO IOCP (CPYP)        $6$IBB37780
77612        CAL     0,2                                                      IBB37790
77613        ANA     SPCN4                                                 $6$IBB37800
77614        PBT                         MZE ENTRY...                         IBB37810
77615        TRA     SPS5A                                                 $6$IBB37820
77616        TXL     SPS6,4,1                                              $6$IBB37830
77617        CLA     SPTSW                                                 $6$IBB37840
77620        SUB     L(1)                                                     IBB37850
77621        TZE     SPS6                                                  $6$IBB37860
77622        STA     SPTSW                                                 $6$IBB37870
77623        TIX     *+1,4,1                                               $6$IBB37880
77624        TXI     SPS5,2,-1           HERE IF YES. GET NEXT ENTRY       $6$IBB37890
77625  SPS5A TZE     SPS6                HERE IF PZE. SENSE...             $6$IBB37900
77626        ARS     3                   HERE IF YES                          IBB37910
77627        ANA     SPCN6                                                 $6$IBB37920
77630        TNZ     *+2                 IS IT AN EJECT...                 $6$IBB37930
77631        ORA     SPCN8               NO - ITS A DOUBLE SPACE           $6$IBB37940
77632        ORA     SPCN7               YES                               $6$IBB37950
77633        SLW     SPRCM                                                 $6$IBB37960
77634        CAL     SPCTL                                                 $6$IBB37970
77635        SLW     SPCOM+15,4          SET UP IOCT RECORD MARK           $6$IBB37980
77636        TXI     SPS7,4,-1                                             $6$IBB37990
77637  SPS6  CAL     SPCTL               IF NO SENSE, SET LAST I/O         $6$IBB38000
77640        STP     SPCOM+14,4          TO IOCT (CPYD)                    $6$IBB38010
77641 SPS7   CAL     SYSCYD+1            ADD ON A TCH SYSTWT FOR H.T.         IBB38020
77642        SLW     SPCOM+15,4          JUST IN CASE ITS HYPER            $6$IBB38030
77643        TXI     *+1,2,-1                                              $6$IBB38040
77644        SXA     SPSX2,2             SAVE XR2 FOR NEXT (SEL+)          $6$IBB38050
77645        LNT     020000                                                   IBB38060
77646  SPWRS WRS     **                                                       IBB38070
77647        RCHA    **                                                       IBB38080
77650  SPSX4 AXT     **,4                                                     IBB38090
77651        TRA     1,4                                                      IBB38100
                                                                              IBB38110
      *-------------------------------------------------------------------------------
      *                             SELECT MINUS                              IBB38120
      *-------------------------------------------------------------------------------
77652  SPSLM LFT     000010              TEST FOR 7340 DATA CHECK             IBB38140
77653        TRA     3,4                 ON, RETRY                            IBB38150
77654        LNT     000100              TEST FOR INT. CHK.                   IBB38160
77655        TRA     SPM1                OFF, CARRY ON                     $6$IBB38170
77656        CLA     L(1)                ON, GO BACK FOR ANOTHER              IBB38180
77657        STA     URRX,1              TRY                                  IBB38190
77660        TRA     END13                                                    IBB38200
77661  SPM1  LAC     SYSOU1,4                                              $6$IBB38210
77662 SPM1A  CLA     SPTSW                                                 $6$IBB38220
77663        SUB     L(1)                                                     IBB38230
77664        STO     SPTSW                                                 $6$IBB38240
77665        TNZ     END13               KEEP CONTROL UNTIL SPTSW#0           IBB38250
77666        LDI*    SYSOU1              TEST UCB1 FOR EOT                 $6$IBB38260
77667        RFT     400000              FLAG (EWA FLAG)                      IBB38270
77670        TRA     SPM2                ON , WRITE TRAILER                $6$IBB38280
77671        STZ     1,4                 OFF, ZERO OUT UCB 2                  IBB38290
77672        TRA     SPSX4               AND EXIT.                         $6$IBB38300
      SPM2   AXT     33,4                                                     IBB38310
             LNT     020000              WRITE EOF, TRAILER, EOF              IBB38320
             AXT     7,4                 ON SYSOU1                            IBB38330
             SXD     *+2,4                                                 $6$IBB38340
             TSX     NDATA,4                                                  IBB38350
             PZE     SYSOU1,,**                                            $6$IBB38360
             NOP                                                              IBB38370
             CLA     SPTWD               MESSAGE # TRAILER                 $6$IBB38380
             STO     SPCOM                                                 $6$IBB38390
             AXT     1,4                 NOP IOCP IN COMMAND                  IBB38400
             SXA     SPTSW,4             SEQUENCE AND SET SPTSW            $6$IBB38410
             ZET     SPEOR                                                 $6$IBB38420
             TXI     SPM2A,4,1           TRANSFER IF SECOND TIME           $6$IBB38430
             SXD     SPIOC,0             TO ONE AND EOR SWITCH             $6$IBB38440
             STL     SPEOR               NON-ZERO                          $6$IBB38450
             TRA     END13               GO WRITE TRAILER ON SYSOU1           IBB38460
      SPM2A  SXD     SPIOC,4             RESET IOCP IN COMMAND             $6$IBB38470
             STZ     SPEOR               SEQUENCE AND EOR SWITCH           $6$IBB38480
             TSX     PROUT,4             AND TELL OPERATOR TO                 IBB38490
      SPM3   MZE     1,,SPSEL            MOUNT NEW SYSOU1                  $6$IBB38500
      SPTWD  PTH     EORMSG,,4                                             $6$IBB38510
             TSX     PAUSE,4                                                  IBB38520
             LAC     SYSOU1,4                                              $6$IBB38530
             STZ     2,4                 ZERO OUT FILE + REC. CNT             IBB38540
             RIS     4TAG                RESET EOT FLAG IN UCB1               IBB38550
             STI     0,4                                                      IBB38560
             TRA     SPM1A                                                 $6$IBB38570
                                                                              IBB38580
       SPTSW PZE     **                                                       IBB38590
      SPEOR  PZE                                                              IBB38600
       SPCN4 MZE     ,,2560                                                   IBB38610
       SPCN6 PZE     ,,64                                                     IBB38620
       SPCN7 OCT     720060606060                                             IBB38630
       SPCN8 PZE     ,,3072                                                   IBB38640
       SPHT1 OCT     120600120112                                             IBB38650
       SPCTL IOCT    SPRCM,,1            (CPYD FOR H.T.)                   $6$IBB38660
      SPFWD  BCI     2,                                                       IBB38670
      EORMSG BCI     4,1EOR  MOUNT NEW SYSOU1..                               IBB38680
             BSS     6                   SPOUT PATCH AREA                     IBB38690
       SPHT2 SMS     **                                                       IBB38700
             CTLW    SPHT1                                                 $6$IBB38710
       SPIOC IOCP    SPFWD,,2            MESSAGES S/B AT LEAST 3 WORDS     $6$IBB38720
       SPCOM PZE     1                   SPCOM MUST # SPIOC+1                 IBB38730
             DUP     1,13                   REST OF SPCOM                     IBB38740
             PZE                                                              IBB38750
       SPXTR BSS     3                                                        IBB38760
       SPESW PZE     **                  THE 19 CELLS FROM SPCOM THRU SPRCM   IBB38770
       SPRCM PZE     **                  IS SNAP DUMP SNEAK OFF AREA.         IBB38780
      SPTEND BSS     0                                                        IBB38790

             ORG     *+SPTLD-SPOUT                                         $6$IBB38791
      *-------------------------------------------------------------------------------
      ;              CEMON                                                    IBB38800
      *              GENITD THRU GENITD+49 COMPRISES THE DIAGNOSTIC ROUTINE   IBB38810
      *              FOR THE CEMON AREA (SYSORG-50 THRU SYSORG-1). GENITD IS  IBB38820
      *              PLACED (FRESH) IN THE CEMON AREA AT COLD START OR        IBB38830
      *              AT $RESTORE TIME BY IBSUP.                               IBB38840
      *-------------------------------------------------------------------------------
      GENITD BSS     0                   50 WORD INTERCEPT DUMP ROUTINE       IBB39030
      CEMBGN LOC     SYSORG-50                                             $6$IBB39031
      SECT   BSFA    8                   POSITION DUMP TAPE                $6$IBB39040
      LOCAT  TRA     DCT-1               GO SAVE PANEL                     $6$IBB39050
      INSTR  TRA     SYSORG-50           TRA 3636 OCT                      $6$IBB39060
      IOWD   DCT                         DIVIDE CHECK                      $6$IBB39070
      DCT    STZ     DCT                 NO                                $6$IBB39080
      IOT    IOT                         I/O CHECK                         $6$IBB39090
      ACCG   STZ     IOT                 NO                                $6$IBB39100
      MQG    STO     ACCG                SAVE ACC                          $6$IBB39110
      PRFIX  ARS     35                                                    $6$IBB39120
      OVER   STO     PRFIX               SAVE PREFIX                       $6$IBB39130
             TNO     OVER+3              OVFLW ON                             IBB39140
             STZ     OVER                YES                                  IBB39150
      IR4    STQ     MQG                 SAVE MQ                           $6$IBB39160
             SXA     IR4-2,1             SAVE                                 IBB39170
             SXA     IR4-1,2             INDEX                                IBB39180
             SXA     IR4,4               REGISTERS                            IBB39190
      ON4    AXT     4,4                                                   $6$IBB39200
             SLT     5,4                 SENSE LITE ON                        IBB39210
             TRA     ON4+4               NO, LEAVE NON-ZERO                   IBB39220
             STZ     ON4+1,4             YES                                  IBB39230
             TIX     ON4+1,4,1                                                IBB39240
             AXT     6,4                                                      IBB39250
      SWT6   SWT     7,4                 SSW DOWN                          $6$IBB39260
      INDIA  STZ     SWT6+1,4            NO                                $6$IBB39270
      CKUM   TIX     SWT6,4,1            YES, LEAVE NON ZERO               $6$IBB39280
             STI     INDIA               SAVE INDICATORS                      IBB39290
             ZAC                                                              IBB39300
             AXC     100,4               GENERATE                             IBB39310
             ACL     0,4                                                   $6$IBB39320
             TIX     CKUM+4,4,1          100-32767                            IBB39330
             SLW     CKUM                                                     IBB39340
             CLA     IOLSTA+2            SET I/O WORD                         IBB39350
             STO     IOWD                TO DUMP COMMAND                      IBB39360
             ENK                                                              IBB39370
             SLQ     SECT                SET INSTRUCTION AND LOCATION         IBB39380
             STQ     LOCAT               FROM KEYS                            IBB39390
             WTBA    8                                                        IBB39400
             RCHA    IOLSTA              WRITE INTERCEPT DUMP                 IBB39410
             WEFA    8                   IN BINARY ON A-8                     IBB39420
             HTR     SYSRET              DUMP COMPLETED                       IBB39430
      IOLSTA IORP    1,,100                                                $6$IBB39440
             IOCP    SECT,,25                                                 IBB39450
             IOCD    1,,-1                                                    IBB39460
      ;                                                                    $6$IBB39470
                                                                              IBB39480
      ;                                  PATCH SPACE HERE TO CEMEND        $6$IBB39490
      CEMEND BES     SYSORG-*                                              $6$IBB39500
             ORG     *+GENITD-CEMBGN     RESET LOC                         $6$IBB39510
      *-------------------------------------------------------------------------------
      ;              HOLLERITH TO BCD CONVERSION                              IBB39520
      *               HOLLERITH TO BCD CONVERSION 1025 CYCLES                 IBB39530
      *                        FOR ON-LINE CARD READ                          IBB39540
      *      TSX     RHBCD,4             24 WORDS IN IBMAG                    IBB39560
      *      RETURN                       12 WORDS IN CARD                    IBB39570
      *-------------------------------------------------------------------------------
13776 RHBCD  SXA     RHB3,4              SAVE IR4                             IBB39590
13777        AXT     12,4                CLEAR                                IBB39600
14000        STZ     CARD+12,4           CARD                                 IBB39610
14001        TIX     *-1,4,1                                                  IBB39620
14002        AXT     12,2                SET 12 ROWS                          IBB39630
14003        AXT     24,4                SET 24 WORDS BIN                     IBB39640
14004 RHB1   AXT     6,1                 1ST 6 BCD                            IBB39650
14005        LDQ     IBMAG+24,4          9L,8L,7L,...ETC                      IBB39660
14006        PXA     0,0                                                      IBB39670
14007        CAQ     RCVT2,,1            MASK FOR PUNCHED COLS                IBB39680
14010        ANA     RCVT1+12,2          MASK OUT ROW VALUE                   IBB39690
14011        ORS     CARD+6,1            OR ROW TO CARD                       IBB39700
14012        TIX     *-4,1,1             6 WORDS BCD                          IBB39710
14013        LDQ     IBMAG+25,4          9R,8R,7R,...ETC                      IBB39720
14014        AXT     6,1                 2ND 6 BCD                            IBB39730
14015        PXA     0,0                                                      IBB39740
14016        CAQ     RCVT2,,1            MASK FOR PUNCHED COLS                IBB39750
14017        ANA     RCVT1+12,2          MASK OUT ROW VALUE                   IBB39760
14020        ORS     CARD+12,1           OR ROW TO CARD                       IBB39770
14021        TIX     *-4,1,1             6 WORDS BCD                          IBB39780
14022        TXI     *+1,4,-2            MOVE TO NEXT ROW                     IBB39790
14023        TIX     RHB1,2,1            DO 12 ROWS                           IBB39800
14024        AXT     12,4                REPLACE                              IBB39810
14025        LDQ     CARD+12,4           00 BY 60                             IBB39820
14026        CRQ     RCVT3,,6            60 BY 00                             IBB39830
14027        STQ     CARD+12,4           AND GIVE ILLEGALS                    IBB39840
14030        TIX     *-3,4,1             A VALUE 54 (*)                       IBB39850
14031        LDQ     ALBLK                                                 $6$IBB39851
14032        STQ     CARD+12                                               $6$IBB39852
14033        STQ     CARD+13                                               $6$IBB39853
14034 RHB3   AXT     **,4                RESTORE IR4                          IBB39860
14035        TRA     1,4                 EXIT                                 IBB39870
                                                                              IBB39880
      *            MASKS FOR 9,8,7,.... ROWS IN HOLL TO BCD CONV.             IBB39890
                                                                              IBB39900
      RCVT1  BCI     9,999999888888777777666666555555444444333333222222111111 IBB39910
             BCI     3,      ------++++++                                     IBB39920
                                                                              IBB39930
      *-------------------------------------------------------------------------------
      *              CONVERT TABLE FOR HOLLERITH TO BCD VIA CAQ               IBB39940
      *-------------------------------------------------------------------------------
      RCVT2  OCT     0                                                        IBB39960
             OCT     0077                                                     IBB39970
             OCT     7700                                                     IBB39980
             OCT     7777                                                     IBB39990
             OCT     770000                                                   IBB40000
             OCT     770077                                                   IBB40010
             OCT     777700                                                   IBB40020
             OCT     777777                                                   IBB40030
             OCT     77000000                                                 IBB40040
             OCT     77000077                                                 IBB40050
             OCT     77007700                                                 IBB40060
             OCT     77007777                                                 IBB40070
             OCT     77770000                                                 IBB40080
             OCT     77770077                                                 IBB40090
             OCT     77777700                                                 IBB40100
            iOCT     77777777                                                 IBB40110
             OCT     7700000000                                               IBB40120
             OCT     7700000077                                               IBB40130
             OCT     7700007700                                               IBB40140
             OCT     7700007777                                               IBB40150
             OCT     7700770000                                               IBB40160
             OCT     7700770077                                               IBB40170
             OCT     7700777700                                               IBB40180
             OCT     7700777777                                               IBB40190
             OCT     7777000000                                               IBB40200
             OCT     7777000077                                               IBB40210
             OCT     7777007700                                               IBB40220
             OCT     7777007777                                               IBB40230
             OCT     7777770000                                               IBB40240
             OCT     7777770077                                               IBB40250
             OCT     7777777700                                               IBB40260
             OCT     7777777777                                               IBB40270
             OCT     770000000000                                             IBB40280
             OCT     770000000077                                             IBB40290
             OCT     770000007700                                             IBB40300
             OCT     770000007777                                             IBB40310
             OCT     770000770000                                             IBB40320
             OCT     770000770077                                             IBB40330
             OCT     770000777700                                             IBB40340
             OCT     770000777777                                             IBB40350
             OCT     770077000000                                             IBB40360
             OCT     770077000077                                             IBB40370
             OCT     770077007700                                             IBB40380
             OCT     770077007777                                             IBB40390
             OCT     770077770000                                             IBB40400
             OCT     770077770077                                             IBB40410
             OCT     770077777700                                             IBB40420
             OCT     770077777777                                             IBB40430
             OCT     777700000000                                             IBB40440
             OCT     777700000077                                             IBB40450
             OCT     777700007700                                             IBB40460
             OCT     777700007777                                             IBB40470
             OCT     777700770000                                             IBB40480
             OCT     777700770077                                             IBB40490
             OCT     777700777700                                             IBB40500
             OCT     777700777777                                             IBB40510
             OCT     777777000000                                             IBB40520
             OCT     777777000077                                             IBB40530
             OCT     777777007700                                             IBB40540
             OCT     777777007777                                             IBB40550
             OCT     777777770000                                             IBB40560
             OCT     777777770077                                             IBB40570
             OCT     777777777700                                             IBB40580
             OCT     777777777777                                             IBB40590
                                                                              IBB40600
      *  BCD TO BCD WITH ZERO AND BLANK ALTERATION AND * REPLACES ILLEGALS    IBB40610
      RCVT3  VFD     O6/60,15/0,15/RCVT3 00 00 TO BLANK                       IBB40620
             VFD     O6/01,15/0,15/RCVT3 01 1 TO 1                            IBB40630
             VFD     O6/02,15/0,15/RCVT3 02 2 TO 2                            IBB40640
             VFD     O6/03,15/0,15/RCVT3 03 3 TO 3                            IBB40650
             VFD     O6/04,15/0,15/RCVT3 04 4 TO 4                            IBB40660
             VFD     O6/05,15/0,15/RCVT3 05 5 TO 5                            IBB40670
             VFD     O6/06,15/0,15/RCVT3 06 6 TO 6                            IBB40680
             VFD     O6/07,15/0,15/RCVT3 07 7 TO 7                            IBB40690

             VFD     O6/10,15/0,15/RCVT3 10 8 TO 8                            IBB40700
             VFD     O6/11,15/0,15/RCVT3 11 9 TO 9                            IBB40710
             VFD     O6/00,15/0,15/RCVT3 12 0 TO 0                            IBB40720
             VFD     O6/13,15/0,15/RCVT3 13 # TO #                            IBB40730
             VFD     O6/14,15/0,15/RCVT3 14 - TO -                            IBB40740
             VFD     O6/54,15/0,15/RCVT3 15 15 TO *                           IBB40750
             VFD     O6/54,15/0,15/RCVT3 16 16 TO *                           IBB40760
             VFD     O6/54,15/0,15/RCVT3 17 17 TO *                           IBB40770
             VFD     O6/20,15/0,15/RCVT3 20 + TO +                            IBB40780
             VFD     O6/21,15/0,15/RCVT3 21 A TO A                            IBB40790
             VFD     O6/22,15/0,15/RCVT3 22 B TO B                            IBB40800
             VFD     O6/23,15/0,15/RCVT3 23 C TO C                            IBB40810
             VFD     O6/24,15/0,15/RCVT3 24 D TO D                            IBB40820
             VFD     O6/25,15/0,15/RCVT3 25 E TO E                            IBB40830
             VFD     O6/26,15/0,15/RCVT3 26 F TO F                            IBB40840
             VFD     O6/27,15/0,15/RCVT3 27 G TO G                            IBB40850
             VFD     O6/30,15/0,15/RCVT3 30 H TO H                            IBB40860
             VFD     O6/31,15/0,15/RCVT3 31 I TO I                            IBB40870
             VFD     O6/32,15/0,15/RCVT3 32 32 +0                             IBB40880
             VFD     O6/33,15/0,15/RCVT3 33 . .                               IBB40890
             VFD     O6/34,15/0,15/RCVT3 34 ) )                               IBB40900
             VFD     O6/54,15/0,15/RCVT3 35 35 *                              IBB40910
             VFD     O6/54,15/0,15/RCVT3 36 36 *                              IBB40920
             VFD     O6/54,15/0,15/RCVT3 37 37 *                              IBB40930
             VFD     O6/40,15/0,15/RCVT3 40 - -                               IBB40940
             VFD     O6/41,15/0,15/RCVT3 41 J J                               IBB40950
             VFD     O6/42,15/0,15/RCVT3 42 K K                               IBB40960
             VFD     O6/43,15/0,15/RCVT3 43 L L                               IBB40970
             VFD     O6/44,15/0,15/RCVT3 44 M M                               IBB40980
             VFD     O6/45,15/0,15/RCVT3 45 N N                               IBB40990
             VFD     O6/46,15/0,15/RCVT3 46 O O                               IBB41000
             VFD     O6/47,15/0,15/RCVT3 47 P P                               IBB41010
             VFD     O6/50,15/0,15/RCVT3 50 Q Q                               IBB41020
             VFD     O6/51,15/0,15/RCVT3 51 R R                               IBB41030
             VFD     O6/52,15/0,15/RCVT3 52 -0 -0                             IBB41040
             VFD     O6/53,15/0,15/RCVT3 53 $ $                               IBB41050
             VFD     O6/54,15/0,15/RCVT3 54 * *                               IBB41060
             VFD     O6/54,15/0,15/RCVT3 55 55 *                              IBB41070
             VFD     O6/54,15/0,15/RCVT3 56 56 *                              IBB41080
             VFD     O6/54,15/0,15/RCVT3 57 57 *                              IBB41090
             VFD     O6/00,15/0,15/RCVT3 60 BLANK TO ZERO                     IBB41100
             VFD     O6/61,15/0,15/RCVT3 61 / TO /                            IBB41110
             VFD     O6/62,15/0,15/RCVT3 62 S TO S                            IBB41120
             VFD     O6/63,15/0,15/RCVT3 63 T TO T                            IBB41130
             VFD     O6/64,15/0,15/RCVT3 64 U TO U                            IBB41140
             VFD     O6/65,15/0,15/RCVT3 65 V TO V                            IBB41150
             VFD     O6/66,15/0,15/RCVT3 66 W TO W                            IBB41160
             VFD     O6/67,15/0,15/RCVT3 67 X TO X                            IBB41170
             VFD     O6/70,15/0,15/RCVT3 70 Y TO Y                            IBB41180
             VFD     O6/71,15/0,15/RCVT3 71 Z TO ;;;                          IBB41190
             VFD     O6/72,15/0,15/RCVT3 72 RM TO RM                          IBB41200
             VFD     O6/73,15/0,15/RCVT3 73 , TO ,                            IBB41210
             VFD     O6/74,15/0,15/RCVT3 74 ( TO (                            IBB41220
             VFD     O6/54,15/0,15/RCVT3 75 75 TO *                           IBB41230
             VFD     O6/54,15/0,15/RCVT3 76 76 TO *                           IBB41240
             VFD     O6/54,15/0,15/RCVT3 77 77 TO *                           IBB41250

      *-------------------------------------------------------------------------------
      ;              IBSUP / CONSTANTS FOR INITIALIZATION                     IBB41269
      *                            CONSTANT POOL                              IBB41270
      *-------------------------------------------------------------------------------
      PON    PON     0                                                        IBB41280
      PTW    PTW     0                                                        IBB41290
      L(10D) PZE     ,,10                                                     IBB41300
      L(15D) PZE     ,,15                                                     IBB41310
      IBIDA  PZE     ,,48                                                     IBB41320
      I301D  PZE     ,,193                                                    IBB41330
      I377D  PZE     ,,255                                                    IBB41340
      D8192  PZE     ,,8192                                                   IBB41350
      L(2)   PZE     2                                                        IBB41360
      L(4)   PZE     4                                                        IBB41370
       L(6)  PZE     6                                                        IBB41380
      L(7)   PZE     7                                                        IBB41390
      L(9)   PZE     9                                                        IBB41400
      L(10)  PZE     10                                                       IBB41410
      L(15)  PZE     15                                                       IBB41420
      L(16)  PZE     16                                                       IBB41430
      L(22)  PZE     22                                                       IBB41440
      L(32)  PZE     32                                                       IBB41450
      L(48)  PZE     48                                                       IBB41460
      INMK1  OCT     000000017000                                             IBB41470
      INMK2  OCT     777700777777                                             IBB41480
      IBDCR  OCT     777777000000                                             IBB41490
       IBMK1 OCT     777777770000                                             IBB41500
      IBABP  OCT     077777777777                                             IBB41510
      IBALL  OCT     777777777777                                             IBB41520
      RICA   OCT     076000000350                                             IBB41530
      ALBLK  BCI     1,                                                       IBB41540
      HOBLK  BCI     1,   000                                                 IBB41550

      *-------------------------------------------------------------------------------
      *                   SYSTEM UNITS EXTERNAL NAME TABLE                    IBB41560
      *-------------------------------------------------------------------------------
      SYUNAM BCI     1,SYSLB1                                                 IBB41570
             BCI     1,SYSLB2                                                 IBB41580
             BCI     1,SYSLB3                                                 IBB41590
             BCI     1,SYSLB4                                                 IBB41600
      SYUCRD BCI     1,SYSCRD                                                 IBB41610
      SYUPRT BCI     1,SYSPRT                                                 IBB41620
      SYUPCH BCI     1,SYSPCH                                                 IBB41630
      SYUOU1 BCI     1,SYSOU1                                                 IBB41640
             BCI     1,SYSOU2                                                 IBB41650
             BCI     1,SYSIN1                                                 IBB41660
             BCI     1,SYSIN2                                                 IBB41670
             BCI     1,SYSPP1                                                 IBB41680
             BCI     1,SYSPP2                                                 IBB41690
             BCI     1,SYSCK1                                                 IBB41700
             BCI     1,SYSCK2                                                 IBB41710
             BCI     1,SYSUT1                                                 IBB41720
             BCI     1,SYSUT2                                                 IBB41730
             BCI     1,SYSUT3                                                 IBB41740
             BCI     1,SYSUT4                                                 IBB41750
             BCI     1,SYSUT5                                              $6$IBB41751
             BCI     1,SYSUT6                                              $6$IBB41752
             BCI     1,SYSUT7                                              $6$IBB41753
             BCI     1,SYSUT8                                              $6$IBB41754
             BCI     1,SYSUT9                                              $6$IBB41755
      HA2TBL BCI     1,0BM000            SYSLB1 HA2                        $6$IBB41756
             BCI     1,0BM000            SYSLB2 HA2                        $6$IBB41757
             BCI     1,0BM000            SYSLB3 HA2                        $6$IBB41758
             BCI     1,0BM000            SYSLB4 HA2                        $6$IBB41759
             PZE                         SYSCRD HA2                        $6$IBB4175A
             PZE                         SYSPRT HA2                        $6$IBB4175B
             PZE                         SYSPCM HA2                        $6$IBB4175C
             OCT     001212000000        SYSOU1 HA2                        $6$IBB4175D
             OCT     001212000000        SYSOU2 HA2                        $6$IBB4175E
             OCT     001212000000        SYSIN1 HA2                        $6$IBB4175F
             OCT     001212000000        SYSIN2 HA2                        $6$IBB4175G
             OCT     001212000000        SYSPP1 HA2                        $6$IBB4175H
             OCT     001212000000        SYSPP2 HA2                        $6$IBB4175I
             OCT     001212000000        SYSCK1 HA2                        $6$IBB4175J
             OCT     001212000000        SYSCK2 HA2                        $6$IBB4175K
             OCT     001212000000        SYSUT1 HA2                        $6$IBB4175L
             OCT     001212000000        SYSUT2 HA2                        $6$IBB4175M
             OCT     001212000000        SYSUT3 HA2                        $6$IBB4175N
             OCT     001212000000        SYSUT4 HA2                        $6$IBB4175O
            iOCT     001212000000        SYSUT5 HA2                        $6$IBB4175P
             OCT     001212000000        SYSUT6 HA2                        $6$IBB4175Q
             OCT     001212000000        SYSUT7 HA2                        $6$IBB4175R
             OCT     001212000000        SYSUT8 HA2                        $6$IBB4175S
             OCT     001212000000        SYSUT9 HA2                        $6$IBB4175T
      COMUNT PZE                         COMBINED OUTPUT CELL              $6$IBB4175U
      IBADDR OCT     700000777777        MASK FOR CLEARING DECRE.          $6$IBB4175V
      NDINT  STL     IBSINP              INDICATE INTERRUPT                (6)IBB4175W
             STL     JBINT               COMPLETED                         (6)IBB4175X
      RSPLUS CLA     RSQUAN              NON-MATCH LOOP, DECREMENT COUNTER (6)IBB4175Y
             TRA     RSPLRT              RETURN                            (6)IBB4175Z
      NDINT1 STL     IBSINP              INDICATE INTERRUPT                (6)IBB41760
             STL     JBINT               COMPLETED                         (6)IBB41761
             TRA     RSMTEN              AND REWIND SYSIN1                 (6)IBB41762
      RSTOPP ZET     IBSINP              IS $STOP FROM SYSCRD              (6)IBB41763
             TRA     *+3                 NO                                (6)IBB41764
             STL     RSMTER              YES, MATCH ERROR                  (6)IBB41765
             TRA     RSERBL              ISSUE MESSAGE                     (6)IBB41766
             ZET     RSERSW              HAS ERROR ALREADY OCCURRED        (6)IBB41767
             TRA     RSERBK+3            YES, ISSUE MESSAGE                (6)IBB41768
             TRA     RSSTOP+2            NO, RETURN                        (6)IBB41769
      RSTORE NULL                                                         (11)IBB4176I
      IBSPAT BES     6720-*              IBSUP PATCH AREA HERE TO IBSNUC   (9)IBB4176V

      *-------------------------------------------------------------------------------
      ;              IBNUC                                                    IBB41770
             BES     6720-*                                                   IBB41780
      *            NUCLEUS OF BASIC MONITOR TO ALWAYS BE IN CORE              IBB41790
      *             ITS ACTUAL LOCATION IS IBSORG WHICH#64 (DEC)              IBB41800
      *                        ONE WORD ENTRIES TABLE                         IBB41820
      *-------------------------------------------------------------------------------
      IBSNUC ORG     *                                                     $6$IBB41831
             LOC     IBSORG                                                $6$IBB41832
      SYSTRA TRA     **                  ENTRY TO EACH SYSTEM              $6$IBB41840
      SYSDAT BCI     1,120164            CURRENT DATE                      $6$IBB41850
      SYSCUR BCI     1,                  CURRENT SYSTEM NAME               $6$IBB41860
      SYSRET TRA     CALIB1              RETURN FROM EACH SYSTEM           $6$IBB41870
      SYSKEY PZE     **,,**              ENTRY KEYS AT COLD START          $6$IBB41880
      SYSSWS OCT     77                  SENSE SWITCHES AT COLD START      $6$IBB41890
      SYSPOS PZE     **,,**              LOCATION INDEX TO CUR SYSTEM      $6$IBB41900
      SYSUNI PZE     SYSLB1,,SUNLG       LOC + LENGTH SYSTEM UNITS TABLE   $6$IBB41910
      SYSUBC PZE     UCBA,,HGHCHN   LOCATION + LENGTH OF UCW LOCATOR TABLE $6$IBB41920
      SYSUAV PZE     UCAA,,HGHCHN   LOCATION + LENGTH OF UCW AVAIL CHAINS  $6$IBB41930
      SYSUCW PZE     UEA11,,NOUCW*4      LOC + LENGTH UNIT CONTROL WDS     $6$IBB41940
      SYSRPT TRA     INTRUP              OPERATOR INTERRUPT TEST ROUTINE   $6$IBB41950
00114 SYSCEM TRA     SYSTRA-2            CEMON AREA ENTRY                  $6$IBB41960
00115 SYSDMP TTR     DUMP                DUMP CALL ROUTINE                 $6$IBB41970
00116 SYSIOX PZE     IOEX,,IXCEND-IOEX   LOC,,LENGTH IOEX COMMUNICATIONS   $6$IBB41980
00117?SYSIDR TRA     2,4                 INSTALLATION ACCOUNTING ROUTINE   $6$IBB41990
00120 SYSCOR PZE     SYSEND,,SYSORG      CORE LIMITS FOR SYSTEMS           $6$IBB42000
00121 SYSLDR TXI     CALIB3,,UEA1        SYSTEM LOAD ROUTINE               $6$IBB42010
00122 SYSACC PZE                         INSTALLATION ACCOUNTING CELLS     $6$IBB42020
00123 SYSPID PZE                         INSTALLATION ACCOUNTING CELLS     $6$IBB42030
00124 SYSCYD CPYD    0,,0                1301/729 DISCONNECT               $6$IBB42040
00125        TCH     SYSTWT                                                $6$IBB42050
00126 SYSSLD CPYP    *+1,,1              IOCP/CPYP                         $6$IBB42060
      SYSTCH CPYD    0,,0                                                  $6$IBB42070
             TCH     *-2                                                   $6$IBB42080
      SYSTWT                             (TWT CHNS3 IF 7909 EXISTS)        $6$IBB42082
      SYSGET BCI     1,IBSYST                                              $6$IBB42100
      SYSJOB PZE                                                           $6$IBB42110
      .CHEXI PZE     *                   D.C. CELL                         $6$IBB42120
      .MODSW PZE                         D.C. CELL                         $6$IBB42121
             PZE                         SPARES                            $6$IBB42122
             PZE                                                              IBB42130
                                                                              IBB42140
      *-------------------------------------------------------------------------------
      *                          SYSTEM UNITS TABLE                           IBB42150
      *   THESE ENTRIES SHOULD BE PATCHED OR THE CARDS REPLACED               IBB42170
      *   TO REFLECT THE STANDARD SYSTEM UNIT CONFIGURATION                   IBB42180
      *   ADOPTED BY THE INSTALLATION. FORMAT#                                IBB42190
      *      P       C,,U                                                     IBB42200
      *   WHERE-                                                              IBB42210
      *      P#PZE# LOW DENSITY                                               IBB42220
      *       #MZE# HIGH DENSITY                                              IBB42230
      *      C# CHANNEL NUMBER.(1....8)                                       IBB42240
      *      U#UNIT NUMBER OR ADDRESS.  (1...10#TAPES, 11#READER, 12#PUNCH,   IBB42250
      *                    13#PRINTER, 2X0XX#H.T., 2X1XX#DISK, 2X3XX#NEED)    IBB42260
      *-------------------------------------------------------------------------------
      SYUNIL EQU     *+IBSNUC-IBSORG                                       $6$IBB42279
      SYSLB1 MZE     1,,1                SYSTEM LIBRARY-1 HIGH DEN A1         IBB42280
      SYSLB2 MZE     0                   SYSTEM LIBRARY-2                     IBB42290
      SYSLB3 MZE     0                   SYSTEM LIBRARY-3                     IBB42300
      SYSLB4 MZE     PPC,PPE,PPU         SYSTEM LIBRARY-4                     IBB42310
      SYSCRD PZE     1,,11               SYSTEM CARD READER CHANNEL A         IBB42320
      SYSPRT PZE     1,,13               SYSTEM PRINTER CHANNEL A             IBB42330
      SYSPCH PZE     1,,12               SYSTEM PUNCH CHANNEL A               IBB42340
      SYSOU1 MZE     2,,1                                                  $6$IBB42350
      SYSOU2 MZE     2,,1                                                  $6$IBB42360
      SYSIN1 MZE     1,,2                                                  $6$IBB42370
      SYSIN2 MZE     1,,2                                                  $6$IBB42380
      SYSPP1 MZE     2,,2                                                  $6$IBB42390
      SYSPP2 MZE     2,,4                                                     IBB42400
      SYSCK1 MZE     0                   SYSTEM CHECKPOINT-1 UNASSIGNED       IBB42410
      SYSCK2 MZE     1,,5                SYSCK2 FOR DEBUG                  $6$IBB42420
      SYSUT1 MZE     1,,3                                                     IBB42430
      SYSUT2 MZE     2,,3                                                     IBB42440
      SYSUT3 MZE     1,,4                                                     IBB42450
      SYSUT4 MZE     2,,4                                                     IBB42460
      SYSUT5 MZE     0                                                     $6$IBB42461
      SYSUT6 MZE     0                                                     $6$IBB42462
      SYSUT7 MZE     0                                                     $6$IBB42463
      SYSUT8 MZE     0                                                     $6$IBB42464
      SYSUT9 MZE     0                                                     $6$IBB42465
      SYUEND BSS     0                                                        IBB42470
                                                                              IBB42480
      *              DISK AND NEED LIMITS TABLE FOR SYSTEM UNITS              IBB42490
      *              (SYSCRD, SYSPRT, AND SYSPCH NEVER DISK OR NEED)          IBB42500
             PZE                                                              IBB42510
             PZE                                                              IBB42520
             PZE                                                              IBB42530
             PZE                                                              IBB42540
       DMPSW PZE     **                  DUMP SWITCH                          IBB42550
00175? DMPSV PZE     **,7,**             DUMP INFO SAVE                       IBB42560
       IBSAV PZE     **                  S.S.1 SAVE                           IBB42570
             PZE                                                              IBB42580
             PZE                                                              IBB42590
             PZE                                                              IBB42600
             PZE                                                              IBB42610
             PZE                                                              IBB42620
             PZE                                                              IBB42630
             PZE                                                              IBB42640
             PZE                                                              IBB42650
             PZE                                                              IBB42660
             PZE                                                              IBB42670
             PZE                                                              IBB42680
             PZE                                                              IBB42690
             PZE                                                           $6$IBB42691
             PZE                                                           $6$IBB42692
             PZE                                                           $6$IBB42693
             PZE                                                           $6$IBB42694
             PZE                                                           $6$IBB42695
                                                                           $6$IBB42700
      *                    LOCATORS FOR UCW'S BY CHANNEL                      IBB42710
;            COMMDS  UCWLOC                                                $6$IBB42730
                                                                              IBB42820
      *            LOCATORS FOR AVAILABLE UNIT CHAINS BY CHANNEL              IBB42830
;            COMMDS  VARLOC,(UCA,PZE,(**,,35))                             $6$IBB42850
                                                                              IBB42940
      IBSGAP NULL                                                          $6$IBB42950
             DUP     1,HGHCHN                                              $6$IBB42960
             PZE     **,**,**                                              $6$IBB42970
                                                                              IBB43040
      IBL(0) PZE     0                   CONSTANTS                            IBB43050
      IBL(1) PZE     1                                                        IBB43060
      SKWMSK OCT     040000300000                                          $6$IBB43070
      MN1617 OCT     777774777777                                          $6$IBB43100
      IBSINP PZE     **                  INPUT UNIT FOR IBSUP                 IBB43110
       LSTSW PZE     **                  LIST/UNLIST SWITCH                $6$IBB43120
                                                                              IBB43130
      IBXSP  DUP     1,HGHCHN                                              $6$IBB43140
             PZE                                                           $6$IBB43141
      IBXAC  DUP     1,HGHCHN                                              $6$IBB43150
             PZE                                                           $6$IBB43151
                                                                              IBB43160
      *-------------------------------------------------------------------------------
      *                       SYSTEM DUMP CALL ROUTINE                        IBB43180
      *-------------------------------------------------------------------------------
      DPCLL  EQU     *+IBSNUC-IBSORG                                       $6$IBB43199
       DPH1  OCT     120600120112                                             IBB43200
00241 DUMP   ENB     L(0)                                                  $6$IBB43210
00242  DPH2  TTR     DHENT                             (CTLW *-2  IF HYPER)$6$IBB43220
00243  DMPCW IOCT    0,,ENDDMP                         (CPYD      IF HYPER)   IBB43230
00244 DHENT  WTBA    **                  HT ENTRANCE                       $6$IBB43240
00245  DPH3  RCHA    DMPCW                             (RSCX DUMP IF HYPER)$6$IBB43250
00246  DPH4  LCHA    L(0)                              (STCX      IF HYPER)   IBB43260
00247        STL     DMPSW                                                 $6$IBB43270
00250        STZ     0                                                        IBB43280
00251  DPTWO TIX     0,0,0                                                    IBB43290
00252        LTM                                                              IBB43300
00253        SXD     D$IR2,2                                                  IBB43310
00254        AXT     *+3,2                                                 $6$IBB43320
00255        SXA     SAVE4,2                                                  IBB43330
00256        TRA     SAVE2                                                    IBB43340
00257        STP     QP                                                       IBB43350
00260        CAL     0                   MOVE TRA TRAP INDICATION             IBB43360
00261        SLW     D$TRIG+1            FOR DUMP                             IBB43370
00262  DPUCB TXI     CADLBX,0,**                                           $6$IBB43380
                                                                              IBB43390
      *                    INTERRUPT BETWEEN JOBS                             IBB43400
      INTRPL EQU     *+IBSNUC-IBSORG                                       $6$IBB43419
00263 INTRUP CLA     SYSJOB                                                   IBB43420
00264        LRS     0                                                        IBB43430
00265        ANA     MN1617                                                $6$IBB43440
00266        ZET     IBSINP                                                $6$IBB43450
00267        ADD     L(1)                                                     IBB43460
00270        SLW     SYSJOB              ADJUST JOB COUNT                     IBB43470
00271        ZET     IBSINP              IBSYS INPUT FROM SYSCRD...        $6$IBB43480
00272        SWT     1                   IF NO - TEST S.S.1                   IBB43490
00273        TQP     1,4                 IF YES - FORGET ANY INTERRUPT        IBB43500
      *                FALL THRU TO CALIB1 TO LOAD IBSUP                      IBB43510

      *-------------------------------------------------------------------------------
      ;              SYSTEM LOADER ROUTINES                                   IBB43520
      *-------------------------------------------------------------------------------
      CALB1L EQU     *+IBSNUC-IBSORG                                       $6$IBB43539
00274 CALIB1 ZET     **                  CHECK CLEARENCE THRU PRIORITY CELL   IBB43540
00275        TRA     *-1                 WHEN CLEAR - -                    $6$IBB43550
00276        STZ     0                   LOAD IBSUP (OR SYSDMP)               IBB43560
00277        ENB     0                   INTO CORE FROM SYSLB1                IBB43570
      CALIB2 EQU     *                                                     $6$IBB43571
                                                                              IBB43580
      *                                  SYSLB1 AND SYSLBN#DISK-NEED LOADER.  IBB43590
      *                                  THEY MAY BE ON DIFFERENT CHANNELS    IBB43600
      CDLBXL EQU     *+IBSNUC-IBSORG                                       $6$IBB43616
      CADLBX LOC     CALIB2                                                $6$IBB43617
      ENDLBX BSS     0                                                        IBB44530
                                                                              IBB44540
      CALB3L EQU     *+CDLBXL-CADLBX                                       $6$IBB44548
      CALIB3 LOC     MAXLBN                                                $6$IBB44549
00372        ZET     **                  HERE TO LOAD A RECORD FROM SYSLBN $6$IBB44550
00373        TRA     *-1                                                   $6$IBB44560
00374        STZ     0                                                        IBB44570
00375        ENB     0                                                        IBB44580
00376        CAL     0,4                                                      IBB44590
00377  BLANK PDX     48,2                                                     IBB44600
00400        TXL     CALIBN,2,3840       N#0     NOTE.. CALIBN REPLACED WITH  IBB44610
00401 CALIB4 TRA     CALIBN              N#1     CADX1+ IF CADLBX LOADER      IBB44620
      NUCEND BSS     0                   END OF NUCLEUS                       IBB44630
                                                                              IBB44640
      *              ALTERNATE LOADING ROUTINES WHICH MAY, DEPENDING ON       IBB44650
      *              SYSLBX CONFIGURATION, BE LOADED INTO IBNUC BY IBSUP.     IBB44660
                                                                              IBB44670
      *                        SYSLB1 IS 729 TAPE       (ANY CHANNEL)         IBB44680
      CTLB1L EQU     *+CALB3L-CALIB3                                       $6$IBB44698
      CATLB1 LOC     CALIB2                                                $6$IBB44699
00300        REW     **                                                    $6$IBB44700
00301  LB1T1 STZ     **                  ZERO OUT FILE AND RECORD COUNT       IBB44710
00302  LB1T2 TCOA    *                   WAIT FOR COMPLETION OF REWIND        IBB44720
00303        STL     0                                                        IBB44730
00304        AXT     10,4                                                     IBB44740
00305        CLA     SYSSLD                                                $6$IBB44741
00306        STO     SYSTCH                                                $6$IBB44742
00307  LB1T3 RDS     **                  SELECT SYSLB1 AND                    IBB44750
00310  LB1T4 RCHA    SYSSLD              READ IN ONE RECORD.                  IBB44760
00311  LB1T5 TRCA    LB1T8               CONTINUALLY TEST FOR                 IBB44770
00312        CLA     SYSTCH              GET I/O COMMAND                   $6$IBB44771
00313        TPL     LB1T8               SIGN BIT OFF, SKEW CHECK          $6$IBB44772
00314        ANA     SKWMSK                                                $6$IBB44773
00315        TNZ     LB1T8               IF NOT ZERO,ASSUME SKEW           $6$IBB44774
00316 LB1T6  TCOA    LB1T5                                                 $6$IBB44780
00317  LB1T7 TRCA    LB1T9               TEST FOR ERROR ON THE LAST WORD.     IBB44790
00320        CAL*    LB1T1               HERE IF NO ERROR.                    IBB44800
00321        ACL     IBL(1)                                                $6$IBB44810
00322        STA*    LB1T1               ADJUST RECORD COUNT                  IBB44820
00323        NZT     DMPSW               WAS THIS A DUMP CALL...           $6$IBB44830
00324  TPRET TRA     CALIBN-1            NO - THEN GO TO SYSTRA               IBB44840
00325        TRA     LB1T2               YES-THEN READ IN SYSDMP.             IBB44850
       LB1T8 RCHA    IBL(1)              STOP CHANNEL AND                  $6$IBB44860
       LB1T9 BSR     **                  REPOSITION TAPE TO RETRY             IBB44870
             TIX     LB1T3-2,4,1         LOADING IF AN ERROR.              (3)IBB44880
             TRA     0                                                        IBB44890
      ENTLB1 BSS     0                                                        IBB44900
                                                                              IBB44910
      *                        SYSLB1 IS 7340 HYPERTAPE (ANY CHANNEL)         IBB44920
      CHLB1L EQU     *+CTLB1L-CATLB1                                       $6$IBB44936
      CAHLB1 LOC     CALIB2                                                $6$IBB44937
      ENHLB1 BSS     0                                                        IBB45300
                                                                              IBB45310
      *                        SYSLB1 IS DISK/NEED         (ANY CHANNEL)      IBB45320
      CDLB1L EQU     *+CHLB1L-CAHLB1                                       $6$IBB45336
      CADLB1 LOC     CALIB2                                                $6$IBB45337
      ENDLB1 BSS     0                                                        IBB45730
                                                                              IBB45740
      *                        SYSLBN IS 729 TAPE       (ANY CHANNEL)         IBB45750
      CTLBNL EQU     *+CDLB1L-CADLB1                                       $6$IBB45768
      CATLBN LOC     CALIBN                                                $6$IBB45769
00333        LDC     SYSLDR,4                                              $6$IBB45770
00334        CLA     0,4                                                      IBB45780
00335        ARS     18                                                       IBB45790
00336        ORA     CAT16                                                    IBB45800
00337        STA     LBNT1                                                    IBB45810
00340        STA     LBNT8                                                    IBB45820
00341  CAT16 PXA     16,4                                                     IBB45830
00342        PAC     ,4                                                       IBB45840
00343        TXI     *+1,4,2                                                  IBB45850
00344        SXA     LBNT6,4                                                  IBB45860
00345        STL     0                                                        IBB45870
00346        AXT     10,4                                                     IBB45880
00347        CLA     SYSSLD                                                $6$IBB45881
00350        STO     SYSTCH                                                $6$IBB45882
00351  LBNT1 RDS     **                  READ IN ONE RECORD                   IBB45890
00352  LBNT2 RCHB    SYSSLD                                                   IBB45900
00353  LBNT3 TRCB    LBNT7                                                    IBB45910
00354        CLA     SYSTCH              GET I/O COMMAND                   $6$IBB45911
00355        TPL     LBNT7               IF NO SIGN BIT,SKEW               $6$IBB45912
00356        ANA     SKWMSK              CHECK FOR MORE POSSIBLE SKEW      $6$IBB45913
00357        TNZ     LBNT7               IF NOT ZERO ASSUME ZERO           $6$IBB45914
00360 LBNT4  TCOB    LBNT3                                                 $6$IBB45920
00361  LBNT5 TRCB    LBNT8                                                    IBB45930
00362  LBNT6 CAL     **                  HERE IF SUCCESS                      IBB45940
00363        ACL     IBL(1)              ADJUST RECORD COUNT               $6$IBB45950
00364        STA*    LBNT6               AND                                  IBB45960
00365        TRA     SYSCEM              RETURN THRU SYSTRA.                  IBB45970
00366  LBNT7 RCHB    IBL(1)              IF AN ERROR, STOP CHANNEL         $6$IBB45980
00367  LBNT8 BSR     **                  AND REPOSITION TAPE TO               IBB45990
00370        TIX     LBNT1-2,4,1         RETRY LOADING.                    (3)IBB46000
00371        TRA     0                                                        IBB46010
      ENTLBN BSS     0                                                        IBB46020
                                                                              IBB46030
      *                        SYSLBN IS 7340 HYPERTAPE (ANY CHANNEL)         IBB46040
      CHLBNL EQU     *+CTLBNL-CATLBN                                       $6$IBB46056
      CAHLBN LOC     CALIBN                                                $6$IBB46057
      ENHLBN BSS     0                                                        IBB46430
                                                                              IBB46440
      *                        SYSLBN IS DISK/NEED         (ANY CHANNEL)      IBB46450
      CDLBNL EQU     *+CHLBNL-CAHLBN                                       $6$IBB46466
      CADLBN LOC     CALIBN                                                $6$IBB46467
      ENDLBN BSS     0                                                        IBB46840

      *-------------------------------------------------------------------------------
      ;              UNITS CONFIGURATION CELLS                                IBB46850
      *-------------------------------------------------------------------------------
      RSTLOC ORG     *+CDLBNL-CADLBN                                       $6$IBB46859
             BES     8192-*                                                   IBB46860
                                                                              IBB46870
      AAMT   PZE     CHAAT,,CHAMD                                             IBB46890
             PZE     CHBAT,,CHBMD                                             IBB46900
             PZE     CHCAT,,CHCMD                                             IBB46910
             PZE     CHDAT,,CHDMD                                             IBB46920
             PZE     CHEAT,,CHEMD                                             IBB46930
             PZE     CHFAT,,CHFMD                                             IBB46940
             PZE     CHGAT,,CHGMD                                             IBB46950
             PZE     CHHAT,,CHHMD                                             IBB46960
                                                                              IBB46970
      AADF1  VFD     15/IFA1*1023,18/DFAA1                                    IBB46980
             VFD     15/IFB1*1023,18/DFBA1                                    IBB46990
             VFD     15/IFC1*1023,18/DFCA1                                    IBB47000
             VFD     15/IFD1*1023,18/DFDA1                                    IBB47010
             VFD     15/IFE1*1023,18/DFEA1                                    IBB47020
             VFD     15/IFF1*1023,18/DFFA1                                    IBB47030
             VFD     15/IFG1*1023,18/DFGA1                                    IBB47040
             VFD     15/IFH1*1023,18/DFHA1                                    IBB47050
                                                                              IBB47060
      AADF2  VFD     15/IFA2*1023,18/DFAA2                                    IBB47070
             VFD     15/IFB2*1023,18/DFBA2                                    IBB47080
             VFD     15/IFC2*1023,18/DFCA2                                    IBB47090
             VFD     15/IFD2*1023,18/DFDA2                                    IBB47100
             VFD     15/IFE2*1023,18/DFEA2                                    IBB47110
             VFD     15/IFF2*1023,18/DFFA2                                    IBB47120
             VFD     15/IFG2*1023,18/DFGA2                                    IBB47130
             VFD     15/IFH2*1023,18/DFHA2                                    IBB47140
                                                                              IBB47150
      AAHT1  VFD     33/HTAA1                                                 IBB47160
             VFD     33/HTBA1                                                 IBB47170
             VFD     33/HTCA1                                                 IBB47180
             VFD     33/HTDA1                                                 IBB47190
             VFD     33/HTEA1                                                 IBB47200
             VFD     33/HTFA1                                                 IBB47210
             VFD     33/HTGA1                                                 IBB47220
             VFD     33/HTHA1                                                 IBB47230
                                                                              IBB47240
      AAHT2  VFD     33/HTAA2                                                 IBB47250
             VFD     33/HTBA2                                                 IBB47260
             VFD     33/HTCA2                                                 IBB47270
             VFD     33/HTDA2                                                 IBB47280
             VFD     33/HTEA2                                                 IBB47290
             VFD     33/HTFA2                                                 IBB47300
             VFD     33/HTGA2                                                 IBB47310
             VFD     33/HTHA2                                                 IBB47320
                                                                              IBB47330
      ROCTST VFD     6/UG1,6/UG2,6/UG3,6/UG4,12/0                             IBB47340
      NTONCH VFD     4/CHA1,4/CHB1,4/CHC1,4/CHD1,4/CHE1,4/CHF1,4/CHG1,4/CHH1  IBB47350
      HTONC1 VFD     4/HTA1,4/HTB1,4/HTC1,4/HTD1,4/HTE1,4/HTF1,4/HTG1,4/HTH1  IBB47360
      HTONC2 VFD     4/HTA2,4/HTB2,4/HTC2,4/HTD2,4/HTE2,4/HTF2,4/HTG2,4/HTH2  IBB47370
      DFONC1 VFD     4/DFA1,4/DFB1,4/DFC1,4/DFD1,4/DFE1,4/DFF1,4/DFG1,4/DFH1  IBB47380
      DFONC2 VFD     4/DDA1,4/DDB1,4/DDC1,4/DDD1,4/DDE1,4/DDF1,4/DDG1,4/DDH1  IBB47390
      DFONC3 VFD     4/DFA2,4/DFB2,4/DFC2,4/DFD2,4/DFE2,4/DFF2,4/DFG2,4/DFH2  IBB47400
      DFONC4 VFD     4/DDA2,4/DDB2,4/DDC2,4/DDD2,4/DDE2,4/DDF2,4/DDG2,4/DDH2  IBB47410
      NDONC1 VFD     4/NFA1,4/NFB1,4/NFC1,4/NFD1,4/NFE1,4/NFF1,4/NFG1,4/NFH1  IBB47420
      NDONC2 VFD     4/NFA2,4/NFB2,4/NFC2,4/NFD2,4/NFE2,4/NFF2,4/NFG2,4/NFH2  IBB47430
                                                                              IBB47440
       UFWCT VFD     O18/1321            1ST CRD EQUIP ADDR                   IBB47450
       TWFCH VFD     O18/1201            1ST TAPE ADDR                        IBB47460
       HTWC1 VFD     O18/21000           1ST H.T. ADDR (INTF 0)               IBB47470
       HTWC2 VFD     O18/21040           1ST H.T. ADDR (INTF 1)               IBB47480
       DFWC1 VFD     O18/21100           1ST DISK ADDR (INTF 0, ARM 0)        IBB47490
      DFWC2  VFD     O18/21700           1ST 1302 ADDRESS (INTF 0,ARM 0)   $6$IBB47500
       DFWC3 VFD     O18/21140           1ST DISK ADDR (INTF 1, ARM 0)        IBB47510
      DFWC4  VFD     O18/21740           1ST 1302 ADDRESS (INTF 1,ARM0)    $6$IBB47520
      ACTORG BSS     0                                                     $6$IBB47525
                                                                              IBB47530
      *                 SYSTEM NAME AND LOCATION INDEX TABLE                  IBB47540
      SYSNAM PZE     SYSTMS,,SYSCT                                            IBB47550
                                                                              IBB47560
      SYSTMS BSS     100                                                      IBB47570
      SYNEND BSS     0                   END OF IBSUP                         IBB47580

      *-------------------------------------------------------------------------------
      ;              IOEX / DEFINITIONS                                       IBB47590
      *-------------------------------------------------------------------------------
       SYSTT EQU     SYNEND-SYSTMS       LENGTH OF TAPE SYSTEMS NAME TABLE    IBB47600
       SYSCT EQU     SYSTT/2             TOTAL ALLOWABLE NUMBER OF SYSTEMS    IBB47610
       IBOPL EQU     IBOPE-IBOPT         LENGTH OF IBSYS CONTROL CARD TABLE   IBB47620
       SUNLG EQU     SYUEND-SYSLB1       LENGTH OF SYSUNI TABLE               IBB47630
      LIBSN  EQU     NUCEND-IBSORG       LENGTH OF NUCLEUS                 $6$IBB47640
      .      EQU     IBSNUC-IBSORG       DIFF IN LOAD AND STORE NUCLEUS    $6$IBB47660
       QP    EQU     DMPSV                                                 $6$IBB47680
       L(0)  EQU     IBL(0)                                                $6$IBB47690
       L(1)  EQU     IBL(1)                                                $6$IBB47700
       TWO   EQU     DPTWO                                                 $6$IBB47740
       CHXSP EQU     IBXSP                                                 $6$IBB47750
       CHXAC EQU     IBXAC                                                 $6$IBB47760
      R      EQU     SPOUT-SPTLD                                           $6$IBB47870
      CALIBN MAX     ENTLB1+1,ENHLB1+1,ENDLB1+1                            $6$IBB47871
      MAXLBN MAX     ENTLBN,ENHLBN,ENDLBN,ENDLBX                           $6$IBB47872
       UEA11 EQU     NUCEND              LOC OF FIRST UCB AFTER NUCLEUS    $6$IBB47880
       UEA12 EQU     UEA11+4*CDRDA                                            IBB47890
       UEA13 EQU     UEA12+4*PNCHA                                            IBB47900
       UEA1  EQU     UEA13+4*PRNTA                                            IBB47910
       UEB11 EQU     UEA11+4*CHA0        LOC OF FIRST CHANNEL B UCB           IBB47920
       UEC11 EQU     UEB11+4*CHB0        LOC OF FIRST CHANNEL C UCB           IBB47930
       UED11 EQU     UEC11+4*CHC0        LOC OF FIRST CHANNEL D UCB           IBB47940
       UEE11 EQU     UED11+4*CHD0        LOC OF FIRST CHANNEL E UCB           IBB47950
       UEF11 EQU     UEE11+4*CHE0        LOC OF FIRST CHANNEL F UCB           IBB47960
       UEG11 EQU     UEF11+4*CHF0        LOC OF FIRST CHANNEL G UCB           IBB47970
       UEH11 EQU     UEG11+4*CHG0        LOC OF FIRST CHANNEL H UCB           IBB47980

      *-------------------------------------------------------------------------------
      ;              IOEX/TRAP CELLS                                       $6$IBB47990
      *-------------------------------------------------------------------------------
             LBL     IOEX0000,1                                               IBB48000
             BES     10-*                DSC TRAP CELLS                       IBB48010
      ATRAP  NULL                                                          $6$IBB48020
             DUP     2,HGHCHN                                              $6$IBB48030
             PZE                                                           $6$IBB48040
             TTR     SAVE                                                  $6$IBB48050
                                                                              IBB48190
      AGOOF  NULL                                                          $6$IBB48200
             DUP     2,8-HGHCHN                                            $6$IBB48210
             PZE     *+1                                                   $6$IBB48220
             HTR*    *-1                                                   $6$IBB48230
      ;              SPACE BETWEEN TRAP AND INTERRUPT CELLS USED...        $6$IBB48370
       ACTSI PZE                         S.I. SAVE FOR ACTIV                  IBB48380
       DUESI PZE                         S.I. SAVE FOR 7909R                  IBB48390
       NDSSI PZE                         S.I. SAVE FOR NDATA                  IBB48400
       NDTSI PZE                         S.I. SAVE FOR NDATA (TRAP TIME)      IBB48410
       ISSSI PZE                         S.I. SAVE FOR ISSK1                  IBB48420
       ISSSP PZE                         ISSEK SPARE STORAGE                  IBB48430
       NDSSW PZE                         NDATA/ACTIV SWITCH                   IBB48440
       FRSW1 PZE                         PRINTER TRAP SWITCH                  IBB48450
                                                                              IBB48460
      ;              DSC INTERRUPT CELLS                                   $6$IBB48470
      CHNSNS EQU     0             DEFINED IN IOEX ONLY IF 7909 CHANNEL    $6$IBB48472
             PZE                                                              IBB48480
             TCH     CHNSNS,,0                                                IBB48490
             PZE                                                              IBB48500
             TCH     CHNSNS,,1                                                IBB48510
             PZE                                                              IBB48520
             TCH     CHNSNS,,2                                                IBB48530
             PZE                                                              IBB48540
             TCH     CHNSNS,,3                                                IBB48550
             PZE                                                              IBB48560
             TCH     CHNSNS,,4                                                IBB48570
             PZE                                                              IBB48580
             TCH     CHNSNS,,5                                                IBB48590
             PZE                                                              IBB48600
             TCH     CHNSNS,,6                                                IBB48610
             PZE                                                              IBB48620
             TCH     CHNSNS,,7                                                IBB48630
                                                                              IBB48640
       IOEXT BSS     9                   IOEX SPARE STORAGE                   IBB48650
      CLDLB1 BSS     2                   ORIGINAL COLD START SYSLB1 SAVE      IBB48660
       IOPR  IOCD    IMAGE,,24                                                IBB48670
                                                                              IBB48680
             NZT     .ENBSW              SYSLDR RETURNS HERE TO ENABLE     $6$IBB48690
             ENB*    .TRAPX              TRAPS BEFORE GOING TO SYSTRA      $6$IBB48700

      *-------------------------------------------------------------------------------
      ;              IOEX / COMMUNICATION REGION                              IBB48710
      *            COMMUNICATION REGION TO IOEX (TRAP SUPERVISOR)             IBB48720
      *-------------------------------------------------------------------------------
             BES     IOXORG-*                                                 IBB48740
      ;                                                                    $6$IBB48750
       IOEX  BSS     0                                                     $6$IBB48760
      ;                                                                    $6$IBB48770
00702 .ACTV  TTR     TEST                VALIDATE UNIT AND                 $6$IBB48780
00703        TTR     ACTIV               ACTIVATE CHANNEL                  $6$IBB48790
00704 .NDSEL TTR     TEST                VALIDATE UNIT AND                 $6$IBB48800
00705        TTR     NDATA               NON DATA SELECT                   $6$IBB48810
00706 .MWR   TTR     PROUT               MESSAGE WRITER                    $6$IBB48820
00707 .PUNCH TTR     PUNCH               HOLLERITH PUNCH                   $6$IBB48830
00710 .ENBSW PZE     **                  ENABLE SWITCH                     $6$IBB48840
00711 .PAWS  TTR     PAWS                ERROR PAUSE                       $6$IBB48850
00712 .PAUSE TTR     PAUSE               OPERATOR ACTION PAUSE             $6$IBB48860
00713 .STOP  TTR     SYSDMP              POST-MORTEM DUMP                  $6$IBB48870
      .SYMUN TTR     SYUNCV              SYMBOLIC UNIT CONVERSION          $6$IBB48880
      .DECVD TTR     BCVDEC-1            BIN TO DEC CONV AC DECREMENT      $6$IBB48890
      .DECVA TTR     BCVDEC              BIN TO DEC CONV AC ADDRESS        $6$IBB48900
      .CKWAT TTR     CKWAIT              CHECKPOINT DELAY ROUTINE          $6$IBB48910
      .BCD5R TTR     BCD5-1              BIN TO OCT CONV MQ 3-17           $6$IBB48920
      .BCD5X TTR     BCD5                BIN TO OCT CONV MQ S-14           $6$IBB48930
      .CVPRT TTR     CVPRT               APPEND UNIT AND PRINT MESSAGE     $6$IBB48940
      .STOPD TTR     SYSDMP              POST-MORTEM DUMP                  $6$IBB48950
      .CHXAC PZE     CHXAC,1             INDIRECT REF CHANNEL ACTIVITY     $6$IBB48960
      .URRX  PZE     URRX,1              INDIRECT REF REDUNDANCY COUNTS    $6$IBB48970
      .RCTX  PZE     RCTX,1              INDIRECT REF REDUNDANCY CONTROL   $6$IBB48980
      .RCHX  PZE     RCHX,1              INDIRECT REF RESET LOAD CHANNEL   $6$IBB48990
      .TCOX  PZE     TCOX,1              INDIRECT REF CHANNEL DELAY        $6$IBB49000
      .TRCX  PZE     TRCX,1              INDIRECT REF REDUNDANCY TEST      $6$IBB49010
      .ETTX  PZE     ETTX,1              INDIRECT REF END TAPE TEST        $6$IBB49020
      .TEFX  PZE     TEFX,1              INDIRECT REF END FILE TEST        $6$IBB49030
      .TRAPX PZE     .TRAPS              INDIRECT REF TRAP CELL            $6$IBB49040
      .TRAPS OCT     377                 TRAP CELL (CURRENT TRAPS ENABLED) $6$IBB49050
      .COMM  ***     **,,**              STORE CHANNEL RESULTS AT TRAP     $6$IBB49060
      .LTPOS         **,,**              TAPE POSITION BEFORE LAST TRAP    $6$IBB49070
      .IOXSI BSS     1                   SENSE INDICATORS AT TRAP          $6$IBB49080
      .CHPSW PZE     **                  CHECKPOINT SWITCH                 $6$IBB49090
      .TRPSW PZE     **                  TRAP SWITCH                       $6$IBB49100
      .FDAMT TTR     FDAMT               DISK ORDER FORMATION              $6$IBB49110
      .SDCXI PZE     SDCX,1              INDIRECT REF SDCX TABLE           $6$IBB49120
      .STCXI PZE     STCX,1              INDIRECT REF STCX TABLE           $6$IBB49130
      .COMMD PZE     **                  STORE CHANNEL DIAGNOSTIC RESULTS  $6$IBB49140
      .IBCDZ CRQ     DECRQ,,6            BCD ZERO CONVERT ROUTINE          $6$IBB49150
      .CHXSP PZE     CHXSP,1             PRIORITY SWITCH TABLE             $6$IBB49160
      .BLKSW PZE     0,,150                                                (6)IBB49165
             DUP     1,3                                                   (6)IBB49166
             PZE                         SPARE                             (6)IBB49167
      IXCEND BSS     0                   END OF IOEX COMMUNICATIONS REGION.   IBB49170
                                                                              IBB49180
      *                       INTERMEDIATE DEFINITIONS                        IBB49190
       TRAPX SYN     .TRAPX                                                $6$IBB49220
       TRAP  SYN     .TRAPS                                                $6$IBB49230
       COMM  SYN     .COMM                                                 $6$IBB49240
       COMMD SYN     .COMMD                                                $6$IBB49250
       CHPSW SYN     .CHPSW                                                $6$IBB49260
       TRPSW SYN     .TRPSW                                                $6$IBB49270
       ENBSW SYN     .ENBSW                                                $6$IBB49280
       LTPOS SYN     .LTPOS                                                $6$IBB49290
       ACTV  SYN     .ACTV                                                 $6$IBB49310
       NDSEL SYN     .NDSEL                                                $6$IBB49320
                     5                                                        IBB49330

      *                    XTRAP SAVE   (ALSO USED BY DUMP SPILL)             IBB49340
00755  SAVE  ZET     FRSW1                                                    IBB49360
00756        TTR     PRT3                                                     IBB49370
00757  SAVE2 STQ     MQ                  MQ,                                  IBB49400
00760  SAVE3 STO     ACC                 AC                                   IBB49410
00761        ARS     35                  INCLUDING                            IBB49420
00762        STA     QP                  QP,                                  IBB49430
00763        STI     .IOXSI              SENSE INDICATORS                  $6$IBB49440
00764 SAVE3A TNO     *+2                 OVERFLOW                          (3)IBB49450
00765        CLA     TWO                 INDICATOR,                           IBB49460
00766        STP     OUT1                AND                                  IBB49470
00767        SXD     QP,4                INDEX REGISTER 4.                    IBB49480
00770  SAVE4 TTR     SAVE1                                                    IBB49490
                                                                              IBB49500
00771  MQ    BSS     1                                                        IBB49510
00772  ACC   BSS     1                                                        IBB49520

      *-------------------------------------------------------------------------------
      ;              IOEX / TRAP SUPERVISOR                                   IBB49530
      *   CHECKPOINT DELAY ROUTINE FOR READING OR WRITING 32K WORD RECORD.    IBB49540
      *-------------------------------------------------------------------------------
      CKWAIT SXA     *+2,4               IN CONSTANT LOCATION FOR             IBB49550
             TCOA    *                   DIFFERENCE IN LOCATIONS OF           IBB49560
             AXT     **,4                CHECKPOINT AND RESTART               IBB49570
             TRA     1,4                 ROUTINES.                            IBB49580
                                                                              IBB49590
      *                    CRQ CONVERSION TABLE TO REPLACE 00,S WITH 12,S     IBB49600
       DECRQ PON     *,,8192                                                  IBB49620
             PZE     *-1,,4096                                                IBB49630
             PZE     *-2,,8192                                                IBB49640
             PZE     *-3,,12288                                               IBB49650
             PZE     *-4,,16384                                               IBB49660
             PZE     *-5,,20480                                               IBB49670
             PZE     *-6,,24576                                               IBB49680
             PZE     *-7,,28672                                               IBB49690
             PON     *-8,,0                                                   IBB49700
             PON     *-9,,4096                                                IBB49710
                                                                              IBB49730
      *                    BINARY TO BCD DECIMAL CONVERSION                   IBB49740
      *      TSX     .DECVD,4      D(AC)# NUMBER TO BE CONVERTED           $6$IBB49760
      *      TSX     .DECVA,4      A(AC)# NUMBER TO BE CONVERTED           $6$IBB49770
      *      ON RETURN             C(MQ)# 60 XX XX XX XX XX                   IBB49780
                                                                              IBB49790
01011        ARS     18                                                       IBB49800
01012 BCVDEC ANA     IBADR                                                    IBB49810
01013        LDQ     BLNKS                                                    IBB49820
01014        VDP     BCVDT,,6                                                 IBB49830
01015        VDP     BCVDT+1,,6                                               IBB49840
01016        VDP     BCVDT+2,,6                                               IBB49850
01017        VDP     BCVDT+3,,6                                               IBB49860
01020        VDP     BCVDT+4,,6                                               IBB49870
01021        TRA     1,4                                                      IBB49880
       IBADR OCT     77777                                                 $6$IBB49885
       BCVDT DEC     -640000,-4096000,-26214400,-167772160,-1073741824        IBB49890
                                                                              IBB49900
;     FDAMT  NULL    FORMS DISK/NEED ADDRESS AND GENERATES ORDER           $6$IBB49910

      *-------------------------------------------------------------------------------
      ;              IOEX / TRAP SUPERVISOR                                   IBB50350
      *                            DSC TRAP SUPERVISOR                        IBB50360
      *                    CHENNEL PROGRAM TO ENABLE ATTN INTERRUPTS          IBB50380
      *-------------------------------------------------------------------------------
;     STCX   NULL                                                          $6$IBB50847

;    ?RCHX   COMMDS  VAROP,(RCH,**)                                        $6$IBB50970
01030?       +
01031?       +
                                                                              IBB51060
;     SCHX   COMMDS  VAROP,(SCH,COMM)                                      $6$IBB51070
01032?       +
01033?       +
                                                                              IBB51160
;     TCOX   COMMDS  VAROP,(TCO,**)                                        $6$IBB51170
01034        +
01035        +
                                                                              IBB51260
;     TRCX   COMMDS  VAROP,(TRC,**)                                        $6$IBB51270
01036?       +
01037?       +
                                                                              IBB51360
;    ?TEFX   COMMDS  TEFMAC                                                $6$IBB51370
01040?       +
01041?       +
                                                                              IBB51460
      *                        REDUNDANCY COUNT CELLS                         IBB51470
;     URRX   NULL                                                          $6$IBB51490
             DUP     1,HGHCHN                                              $6$IBB51500
01042        PZE                                                           $6$IBB51510
                                                                              IBB51590
;     RCTX   NULL                                                          $6$IBB51600
01043        DUP     1,HGHCHN                                              $6$IBB51610
             PZE     0                                                     $6$IBB51620
                                                                              IBB51690
;     ETTX   NULL                                                          $6$IBB51700
;     SDCX   COMMDS  ETTSDC                                                $6$IBB51710
01045        +
01046        +
                                                                              IBB52040
      *                        NON-DATA SELECT TABLE                          IBB52050
01047        WEF     **                  7 WEF                                IBB52070
01050        BSF     **                  6 BSF                                IBB52080
01051        BSR     **                  5 BSR                                IBB52090
01052        RUN     **                  4 RUN                                IBB52100
01053        REW     **                  3 REW                                IBB52110
01054        SDN     **                  2 SDNH                               IBB52120
01055        SDN     **                  1 SDNL                               IBB52130
01056 SELX   BSS     0                                                        IBB52140
                                                                              IBB52150
      *                            X-T-R-A-P                                  IBB52160
01057  SAVE1 SXA     X2,2                CONTINUE SAVE                        IBB52180
01060        SXA     X1,1                                                     IBB52190
                                                                              IBB52290
01061  XTRAP AXT     16,2                FIRST FIND CHANNEL THAT TRAPPED      IBB52300
01062        NZT     26,2                                                     IBB52310
01063        TIX     *-1,2,2                                                  IBB52320
01064        CLA     26,2                                                     IBB52330
01065        SXA     OUT,2               ONCE FOUND, SAVE ITS INDEX           IBB52340
01066        PAI                         AND                                  IBB52350
01067        NZT     TRPSW               EXIT ALREADY SET IF TRPSW NOT 0 HERE IBB52360
01070        STA     EXIT                SET UP EXIT.                         IBB52370
01071        CLA     51,2                                                     IBB52380
01072        PDC     ,1                  SET XR1# -(CHANNEL NO. -1)           IBB52390
01073        CLA     CHXAC,1             CHANNEL ACTIVITY                     IBB52400
01074        TNZ     XTRA1                                                    IBB52410
01075        CLA     CHXSP,1                                                  IBB52420
01076        TZE     END9                NON-STANDARD TRAP ENTRY              IBB52430
01077        STO     CHXAC,1                                                  IBB52440
01100  XTRA1 STO     TRPSW               SET TRAP SWITCH                      IBB52450
01101        LDQ     ACOMM                                                    IBB52460
01102        STQ     COMM                                                     IBB52470
01103        NZT     FRSW1                                                    IBB52480
01104        XEC     SCHX,1              STORE CHANNEL INFO IN COMM           IBB52490
01105        STZ     FRSW1                                                    IBB52500
01106  NDEND IOT                                                              IBB52940
01107        TSX     END1,4              TO END1 IF I/O CHECK                 IBB52950
01110  END2  LAC     TRPSW,2             SET XR2#-L(UCW)                      IBB52960
01111        RIL     777770                                                   IBB52970
01112        SIL     400000                                                   IBB52980
01113        LFT     000006                                                   IBB52990
01114        TRA     END10               EOF OR REDUNDANT WRITE               IBB53000
01115        TMI     END13               BLANK TAPE WRITTEN                   IBB53010
01116        LDQ     1,2                                                      IBB53020
01117        TQP     RED12               TRANSFER IF READ                     IBB53030
01120        SIL     040000              INDICATE WRITE                       IBB53040
01121        CAL     4TAG                                                     IBB53050
01122        XEC     ETTX,1                                                   IBB53060
01123        ORS     0,2                                                      IBB53070
01124        ANA     0,2                                                      IBB53080
01125        TZE     *+2                                                      IBB53090
01126        SIL     200000              INDICATE EOT CONDITION               IBB53100
01127        TSX     NRTST,4             TEST FOR NOISE RECORD                IBB53110
01130        CAL     1B17                TURN OFF REDUNDANCY                  IBB53120
01131        ALS     0,1                 TRAP BIT                             IBB53130
01132        COM                                                              IBB53140
01133        ANS     TRAP                                                     IBB53150
01134 END15  STI     RWIND                                                    IBB53160
01135 END16  CAL     2,2                 ADJUST TAPE POSITION                 IBB53170
01136        LFT     040000                                                   IBB53180
01137        ANA     TGMSK                                                    IBB53190
01140 END5   ADD     L(1)                                                     IBB53200
01141        SLW     2,2                                                      IBB53210
01142 END14  CAL     1,2                                                      IBB53220
01143        PDX     0,4                                                      IBB53230
01144        SXA     *+2,4                                                    IBB53240
01145        CLS     CHXAC,1                                                  IBB53250
01146        TSX     **,4                ENTER SEL(-)                         IBB53260
01147        TRA     END9                NORMAL RETURN                        IBB53270
01150        TRA     END11               STANDARD NOISE RECORD ACTION         IBB53280
01151 END14A LAC     TRPSW,2                                               $6$IBB53310
01152        CAL     2,2                                                      IBB53320
01153        SUB     L(1)                                                     IBB53330
01154        SLW     2,2                                                      IBB53340
01155        TRA     RED18                                                    IBB53350
01156 END10  LFT     000002                                                   IBB53360
01157        TRA     RED22               REDUNDANT WRITE                      IBB53370
01160        SIL     200000              EOF                                  IBB53380
01161        STL     TRCX,1                                                   IBB53390
01162        XEC     TRCX,1              TURN OFF REDUNDANCY                  IBB53400
01163        CLA     2,2                 UPDATE TAPE POSITION                 IBB53410
01164        STO     LTPOS               SAVE POSITION BEFORE EOF             IBB53420
01165        SSP                         CLEAR NOISE CONDITION                IBB53430
01166        ORA     RHMSK               FOR END OF FILE                      IBB53440
01167        TRA     END5                                                     IBB53450
01170  END11 STZ     URRX,1              CLEAR REDUNDANCY COUNTS              IBB53460
01171        ZET     IBSGAP,1                                              $6$IBB53470
01172        TRA     END13                                                    IBB53480
01173        LDI     RWIND               NOISE RECORD                         IBB53490
01174        LFT     040000                                                   IBB53500
01175        TRA     END12               TRANSFER IF WRITE                    IBB53510
01176        TSX     RED10,4             NOISE RECORD DISCARDED               IBB53520
01177        PZE     TRPSW,,CMT2C                                             IBB53530
01200        LAC     TRPSW,2                                                  IBB53540
01201        CAL     2,2                                                      IBB53550
01202        ORA     MZE                 NOISE RECORD CONDITION               IBB53560
01203        SUB     L(1)                                                     IBB53570
01204        SLW     2,2                                                      IBB53580
01205 END13  CAL     CHXAC,1                                                  IBB53590
01206        TRA     BG1+2               TO READ NEXT RECORD                  IBB53600
01207 END12  TSX     RED10,4             SHORT RECORD WRITTEN                 IBB53610
01210        PZE     TRPSW,,CMT2B                                             IBB53620
01211  END9  CLA     CHXSP,1                                                  IBB53630
                                                                              IBB53640
      *                   INITIATE NEXT CHANNEL OPERATION                     IBB53650
01212  BG1   STZ     URRX,1              RESET REDUNDANCY COUNT               IBB53670
01213        STP     CHXSP,1             RESET SIGN OF CHXSP TO +             IBB53680
01214        NZT     IBSGAP,1            IGNORE CHECK POINT IF             $6$IBB53690
01215        NZT     .CHPSW              7909 CHANNEL                      $6$IBB53700
01216        TRA     *+4                                                      IBB53710
01217        STZ     CHXSP,1                                                  IBB53720
01220        STZ     CHXAC,1                                                  IBB53730
01221        TRA     OUT                 EXIT RIGHT AWAY IF CHECKPOINT        IBB53740
01222        LRS     0                   SET S(MQ) FOR ISSEK ENTRY            IBB53750
01223        TSX     ISSEK,4                                                  IBB53760
                                                                              IBB53770
      *                   RESTORE REGISTERS AND INDICATORS                    IBB53780
01224  OUT   AXT     **,2                                                     IBB53800
01225        STZ     26,2                                                     IBB53810
01226        ZET     10                                                       IBB53820
01227        TRA     XTRAP                                                    IBB53830
01230        STZ     TRPSW                                                    IBB53840
01231        LDI     .IOXSI              RESTORE SENSE INDICATORS,         $6$IBB53850
01232  X1    AXT     **,1                                                     IBB53860
01233 X2     AXT     **,2                INDEX REGISTERS,                     IBB53870
01234        LXD     QP,4                                                     IBB53880
01235        CAL     QP                  AC INCLUDING QP,                     IBB53890
01236        LDQ     ACC                                                      IBB53900
01237        LLS     35                                                       IBB53910
      ;Next line shows as TIX in trace listing???
01240 OUT1   TOV     *+1                 AC OVERFLOW INDICATOR,               IBB53920
01241        LDQ     MQ                  MQ,                                  IBB53930
01242 OUT3   NZT     ENBSW                                                 $6$IBB53980
01243        ENB*    TRAPX                                                    IBB53990
01244 EXIT   TTR     **                                                       IBB54000

      *-------------------------------------------------------------------------------
      ;              IOEX / ERROR RECOVERY                                    IBB54030
      *                          NOISE RECORD TEST                            IBB54040
      *-------------------------------------------------------------------------------
01245  NRTST SXA     END1A,4                                                  IBB54050
01246        LDC     COMM,4                                                   IBB54060
01247        CAL     COMM                                                     IBB54070
01250        ORA     FOR                                                      IBB54080
01251        SBM     -1,4                                                     IBB54090
01252        PAX     0,4                 WORD COUNT TO IR4                    IBB54100
01253        TXH     END1A,4,2                                             (9)IBB54110
01254        TRA     NTEST                                                 (9)IBB54120
01255        STR                         * PATCH SPACE *                   (9)IBB54130
                                                                              IBB54140
      *                              I/O CHECK                                IBB54150
01256  END1  AXT     3,2                                                      IBB54160
01257        SXA     END1A,4                                                  IBB54170
01260        TSX     PROUT,4                                                  IBB54180
01261  TST3  PZE     1,1,192                                                  IBB54190
01262        PZE     CMT8+3,2,1                                               IBB54200
01263        TSX     PAWS,4                                                   IBB54210
01264        CLA     TRPSW                                                    IBB54220
01265  END1A AXT     **,4                                                     IBB54230
01266        TRA     1,4                                                      IBB54240
                                                                              IBB54250
;     RED12  NULL                        REDUNDANCY RECOVERY-READ          $6$IBB54380
                                                                              IBB54390
01267        TSX     NRTST,4             TEST FOR NOISE                    (7)IBB54400
01270        LNT     400000                                                (7)IBB54410
01271        TRA     END15               NOISE RECORD                      (7)IBB54420
01272        LDQ     TRCX,1              IF NOT NOISE                      (7)IBB54430
01273        SLQ     *+1                 TEST FOR REDUNDANCY               (7)IBB54440
01274        TRCA    *+2                                                   (7)IBB54450
01275        TRA     END15               NOT REDUNDANT                     (7)IBB54460
01276        NZT     RCTX,1              REDUNDANT BUT IS REDUNDANCY       (7)IBB54470
01277        TRA     END15               SUPPRESSED - YES                  (7)IBB54480
01300 RED18  TSX     RED50,4                                                  IBB54490
01301        STA     RED13                                                    IBB54500
01302        TXH     RED15,2,RDUNRT-1    TRANSFER IF PERMANENT REDUNDANCY     IBB54510
01303 RED14  BSRA    **                                                       IBB54520
01304        TIX     *,2,10              SHOE SHINE EVERY 10 TIMES            IBB54530
01305        TXH     END13,2,1           TRANSFER IF NOT FIRST TIME           IBB54540
01306        LAC     TRPSW,4                                                  IBB54550
01307        CLA     2,4                                                      IBB54560
01310        TMI     END13                                                    IBB54570
01311        PAX     0,4                                                      IBB54580
01312        TXL     END13,4,1                                                IBB54590
01313        ANA     4TAG                TEST FOR COMPLEMENT RECORD COUNT     IBB54600
01314        TNZ     END13                                                    IBB54610
01315        XEC     RED14               BSR                                  IBB54620
01316        XEC     RED14               BSR                                  IBB54630
01317 RED13  RTBA    **                  RDS                                  IBB54640
01320        XEC     *-1                 RDS                                  IBB54650
01321        STL     TCOX,1                                                   IBB54660
01322        XEC     TCOX,1              HOLD                                 IBB54670
01323        TRA     END13                                                    IBB54680
01324 RED15  LAC     TRPSW,2             HERE IF PERMANENT REDUNDANCY         IBB54690
01325        CAL     2,2                                                      IBB54700
01326        ADD     L(1)                                                     IBB54710
01327        SLW     2,2                                                      IBB54720
01330        CLA     TWO                 TEST FOR REDUNDANCY MESSAGE          IBB54730
01331        ANA     1,2                 SUPPRESSION                          IBB54740
01332        TNZ     *+3                                                      IBB54750
01333        TSX     RED10,4                                                  IBB54760
01334        PZE     TRPSW,,CMT2                                              IBB54770
01335        CAL     1B17                PERMANENT REDUNDANCY COUNT           IBB54780
01336        SLW     URRX,1                                                   IBB54790
01337        SIL     100000                                                   IBB54800
01340        TRA     STI                                                   (9)IBB54810
                                                                              IBB54820
      *                     REDUNDANCY RECOVERY - WRITE                       IBB54830
01341 RED20  TSX     RED10,4             NOISE IN ERASED AREA                 IBB54850
01342        PZE     TRPSW,,CMT3                                              IBB54860
01343        TRA     END13                                                    IBB54870
01344 RED22  TMI     RED20               TO REDUNDANT ERASE                   IBB54880
01345        SSM                         HERE IF REDUNDANT WRITE              IBB54890
01346        STO     CHXAC,1                                                  IBB54900
01347        TSX     RED50,4                                                  IBB54910
01350        STA     RED6                                                     IBB54920
01351        XEC     RED14               BSR                                  IBB54930
01352        CAL     4TAG                                                     IBB54940
01353        XEC     ETTX,1                                                   IBB54950
01354        ORS*    CHXAC,1             SET EOT BIT IN UCB.                  IBB54960
01355        TIX     *,2,25              PRINT MESSAGE EVERY 25 TIMES         IBB54970
01356        TXL     RED5,2,24                                                IBB54980
01357        TSX     RED10,4             25 ERASES                            IBB54990
01360        PZE     TRPSW,,CMT2A                                             IBB55000
01361 RED5   CAL     RED7                                                     IBB55010
01362        STA     RCHX,1                                                   IBB55020
01363        TSX     NRTST,4             USE NOISE RECORD TEST ROUTINE     $6$IBB55021
01364        PAX     ,4                  TO COMPUTE PARTIAL RECORD LENGTH  $6$IBB55022
01365        ENB     L(0)                ALLOW WRS TO RESET COMMAND TRAP      IBB55030
01366 RED6   WRS     **                  WRITE BLANK TAPE                     IBB55040
01367        TIX     RED6,4,ASDENS*7/12  TO COVER ALL OF IT                $6$IBB55041
01370        XEC     RCHX,1                                                   IBB55050
01371        CAL     1B17                INDICATE ERASE AREA WRITTEN          IBB55060
01372        ORS     URRX,1                                                   IBB55070
01373        TRA     OUT                                                      IBB55080
01374 RED50  CAL     URRX,1              UPDATE COUNT                         IBB55090
01375        ADD     L(1)                                                     IBB55100
01376        SLW     URRX,1                                                   IBB55110
01377 RED7   PAX     PTH,2                                                    IBB55120
01400        CAL*    CHXAC,1                                                  IBB55130
01401        ARS     18                  UNIT TO ADDRESS                      IBB55140
01402        STA     RED14                                                    IBB55150
01403        TRA     1,4                                                      IBB55160
                                                                              IBB55170
      *                       PRINT TAPE ERROR MESSAGE                        IBB55180
01404 RED10  SXA     RED11,2                                                  IBB55200
01405        SXA     RED11+1,4                                                IBB55210
01406        CAL     1,4                 MOVE VARIABLE PART OF MESSAGE        IBB55220
01407        PDX     0,2                                                      IBB55230
01410        SXA     REDL2,2                                                  IBB55240
01411        CAL*    1,4                                                      IBB55250
01412        PAC     0,2                 -L(UCW)                              IBB55260
01413        CLA     2,2                 TAPE POSITION                        IBB55270
01414        TSX     BCVDEC-1,4                                               IBB55280
01415        STQ     CMT1+3              FILE COUNT                           IBB55290
01416        CLA     2,2                                                      IBB55300
01417        TSX     BCVDEC,4                                                 IBB55310
01420        STQ     CMT1+1              RECORD COUNT                         IBB55320
01421        LDQ     0,2                                                      IBB55330
01422        TSX     CVPRT,4                                                  IBB55340
01423        PZE     CMT1,,4                                                  IBB55350
01424        TSX     PROUT,4                                                  IBB55360
01425        PZE     1                                                        IBB55370
01426  REDL2 PZE     **,,3+512*DBLSP                                          IBB55380
01427 RED11  AXT     **,2                                                     IBB55390
01430        AXT     **,4                                                     IBB55400
01431        TRA     2,4                                                      IBB55410
                                                                              IBB55420
      *-------------------------------------------------------------------------------
      ;              IOEX / (ACTIV                                            IBB58250
      ACTIV  NULL                                                          $6$IBB58259
      *      TSX     ACTV,4                                                   IBB58260
      *      P       FILE,T                                                   IBB58270
      *            EFFECTIVE ADDRESS (FILE,) MUST CONTAIN UCW IN              IBB58290
      *             IN ITS ADDRESS. IR1 AND IR2 ARE PERMISSIBLE               IBB58300
      *                                FOR T.                                 IBB58310
      *           P,PZE, ACTIVATES THE CHANNEL ASSOCIATED WITH THE            IBB58320
      *                  SPECIFIED UNIT, IF IT IS DORMANT.                    IBB58330
      *           #MZE, ASSIGNS CHANNEL PRIORITY TO THE SPECIFIED             IBB58340
      *              UNIT. IF ACTV IS ENTERED AT NON-TRAP TIME,               IBB58350
      *              IT WAITS UNTIL XTRAP ENTERS SEL(+) FOR THE UNIT          IBB58360
      *-------------------------------------------------------------------------------
01432        ENB     L(0)                                                  $6$IBB58380
01433        NZT     TRPSW                                                    IBB58390
01434        SXA     ACTX1,1             SAVE IR1                             IBB58400
01435        SXA     ACTY1,1                                                  IBB58410
01436        CAL*    1,4                                                      IBB58420
01437        STA     *+1                 L(UCW)                               IBB58430
01440 ACT1   CAL     **                                                       IBB58440
01441        ARS     9                                                        IBB58450
01442        ANA     ACT2                                                     IBB58460
01443        PDC     ,1             SET XR1#-(CHANNEL NO.)                    IBB58470
01444        NZT     TRPSW                                                    IBB58480
01445        TXI     ACTY1+2,1,1         SET XR1#-(CHANNEL NO -1)             IBB58490
01446        CAL     ACT1                                                     IBB58500
01447        STA     CHXSP-1,1           IF TRAP TIME - JUST GIVE             IBB58510
01450  ACTY1 AXT     **,1                UNIT PRIORITY AND THEN               IBB58520
01451        TRA     2,4                 EXIT.                                IBB58530
01452        SXA     ACTX2,2        SAVE XR2                                  IBB58540
01453        SXA     ACTX2+1,4      SAVE XR4                                  IBB58550
01454        STI     ACTSI          SAVE SI                                   IBB58560
01455        CLS     1,4                                                      IBB58570
01456        ZET     CHXAC,1             IS CHANNEL DORMANT...                IBB58580
01457  ACT2  TXI     ACT6,0,15           NO-TRA TO ACT6                       IBB58590
01460        STO     ACSSV                                                    IBB58600
01461  ACT9  LDQ     ACSSV                                                    IBB58700
01462        STZ     URRX,1              SET S(MQ)#-S(1,4), URRX#0,           IBB58710
01463        CAL     ACT1                           A(AC)#L(UCB)              IBB58720
01464        STD     TRPSW                                                    IBB58730
01465        STD     ENBSW                                                    IBB58740
01466        TSX     ISSEK,4             UPON EXIT FROM ISSEK, NON ZERO       IBB58750
01467        STZ     TRPSW               AC MEANS AN MZE ACTIV ENTRY          IBB58760
01470        AXT     ACTX2-1,4           WITH A SEEK NEEDED.                  IBB58770
01471        ZET     FRSW1                                                    IBB58780
01472        TRA     PRT2                GO PROCESS THE CHANNEL A TRAP.       IBB58790
01473        SXD     ENBSW,0                                                  IBB58800
01474  ACTX2 AXT     **,2           RESTORE XR2                               IBB58810
01475        AXT     **,4           RESTORE XR4                               IBB58820
01476        LDI     ACTSI          RESTORE SI                                IBB58830
01477        TNZ     ACT8                DO WE HAVE TO WAIT FOR A (SEL+)...   IBB58840
01500  ACTX1 AXT     **,1           NO-RESTORE XR1, ENABLE, AND RETURN        IBB58850
01501        TXI     PWEX2+1,4,-1        EXIT THRU PAUSE                      IBB58860
01502  ACT6  TPL     ACT7                HERE IF CHANNEL IS ACTIVE            IBB58870
01503  ACT6B ZAC                                                           $6$IBB58940
01504        TRA     ACTX2                                                    IBB58950
01505  ACT7  CAL     ACT1                HERE IF AN MZE ENTRY                 IBB58960
01506        STA     CHXSP,1             SET CHANNEL PRIORITY                 IBB58970
01507  ACT8  CLA     CHXSP,1             HERE TO ENABLE TRAPS AND             IBB58980
01510        ENB*    TRAPX               WAIT UNTIL XTRAP ENTERS (SEL+) FOR   IBB58990
01511        LAS     CHXAC,1                THE SPECIFIED UNIT,               IBB59000
01512        NZT     CHXSP,1             OR THE CHANNEL GOES                  IBB59010
01513        TRA     ACTX1                    DORMANT, BEFORE RETURNING.      IBB59020
01514        ZET     NDSSW               NDSSW WILL BE NON ZERO ONLY          IBB59030
01515        TRA     ACTX1               IF NON TRAP TIME NON DATA SELECT     IBB59040
01516        TRA     ACT8+2              PLUS HAS BEEN ENTERED.               IBB59050

      *-------------------------------------------------------------------------------
      ;              IOEX / NON-DATA SELECT (NDSEL)                           IBB59060
      *                       NON-DATA SELECT ROUTINE                         IBB59070
      *      TSX     NDSEL,4                                                  IBB59090
      *      PZE     FILE,T,ND                                                IBB59100
      *      EOT RETURN                  APPLIES ONLY TO WEF                  IBB59110
      *      NORMAL RETURN                                                    IBB59120
      *          ND# 00#NOP        05#BSR      31#HRUN  36#HSKR               IBB59140
      *              01#SDNL       06#BSF      32#HERG  37#HSKF               IBB59150
      *              02#SDNH       07#WEF      33#HWTM  38#HCHC               IBB59160
      *              03#REW        28#HCCR     34#HBSR  39#HUNL               IBB59170
      *              04#RUN        30#HRWD     35#HBSF  42#HFPN               IBB59180
      *-------------------------------------------------------------------------------
01517  NDATA ENB     L(0)                                                     IBB59200
01520        CAL*    1,4                                                      IBB59210
01521        ZET     TRPSW                                                    IBB59220
01522        TRA     NDS6                                                     IBB59230
01523        STA     WEF1                SET WEF1#L(UCW) ONLY IF              IBB59240
01524        SXA     NDSX1,1             AT NON-TRAP TIME.                    IBB59250
01525        SXA     NDSX1+1,2                                                IBB59260
01526        STI     NDSSI                                                    IBB59270
01527  NDS6  STA     WEF2                ALWAYS SET WEF2#L(UCW)               IBB59280
01530        SXA     NDTX1,1                                                  IBB59290
01531        SXA     NDTX1+1,2                                                IBB59300
01532        STI     NDTSI                                                    IBB59310
01533        CAL     1,4                                                      IBB59320
01534  NDOUT PDX     **,2                SET XR2#ND                           IBB59330
01535        SXA     *+1,4                                                    IBB59340
01536        AXC     **,1                                                     IBB59350
01537        TXI     *+1,1,2             SET XR1#EXIT#L(TSX+2)                IBB59360
01540        SXA     NDOUT,1                                                  IBB59370
01541        TXL     NDTX1,2,0           TRA OUT IF ND#0 (NOP)                IBB59380
01542        LDI*    WEF2                                                     IBB59390
01543        LFT     000100                                                   IBB59400
01544  NDS6A TXL     NDTX1,0,15          EXIT IF CARD, DISK, OR NEED          IBB59410
01545        LAC     WEF2,4              SET XR4#-L(UCB)                      IBB59420
01546        ZET     TRPSW                                                    IBB59430
01547        TRA     NDSGH+1             TO NDSGH+1 IF AT TRAP TIME           IBB59440
01550        NZT     1,4                 FREE THE UNIT IF IT IS ACTIVE.       IBB59450
01551        TRA     NDS4                OTHERWISE, GO TO NDS4                IBB59460
01552        TSX     ACTV+1,4                                                 IBB59470
01553        MZE     WEF1                                                     IBB59480
01554        LAC     WEF1,4              RESTORE XR4                          IBB59490
01555        ZET     1,4                                                      IBB59500
01556        TRA     *-1                                                      IBB59510
01557        ENB     L(0)                WHEN UNIT FREE, DISABLE TRAPS        IBB59520
01560  NDS4  SXA     NDS1,2                                                   IBB59530
01561        CLA     NDS1                                                     IBB59540
01562        STO     1,4                                                      IBB59550
01563        SXA     NDSGH,1                                                  IBB59560
01564  NDS7  TSX     ACTV+1,4            ACTV (MZE) WITH S(UCB+1)#+           IBB59620
01565        MZE     WEF1                                                     IBB59630
01566        STZ     NDSSW               ON RETURN FROM ACTIV                 IBB59640
01567  NDSX1 AXT     **,1                TRAPS WILL BE ENABLED.               IBB59650
01570        AXT     **,2                                                     IBB59660
01571        LDI     NDSSI                                                    IBB59670
01572  NDSGH TRA     **                                                       IBB59680
01573 NDS7B  IIS*    TRPSW               ALSO -                            $6$IBB59730
01574        LFT     017000              ERROR IF UNIT NOT ON THE SAME        IBB59740
01575        TRA     NDERR               CHANNEL AS THE TRAP CHANNEL.         IBB59750
01576        CLA*    TRPSW                                                    IBB59760
01577        ARS     9                                                        IBB59770
01600        ANA     NDS6A                                                    IBB59780
01601        PDC     ,1                                                       IBB59790
01602        TXI     *+1,1,1             SET XR1#-(CHANNEL NUMBER-1)          IBB59800
01603        CLA     1,4                                                      IBB59810
01604        STO     NDSAV                                                    IBB59820
01605        SXA     NDS1,2                                                   IBB59830
01606        CLA     NDS1                                                     IBB59840
01607        STO     1,4                                                      IBB59850
01610        CLA     WEF2                                                     IBB59860
01611        TSX     NDS1+2,4            ENTER (SEL+) DIRECTLY                IBB59870
01612  WEF2  PZE     **                                                       IBB59880
01613        CLA     NDSAV                                                    IBB59890
01614        STO     1,2                 RESTORE UCB+1                        IBB59900
01615  NDTX1 AXT     **,1                                                     IBB59910
01616        AXT     **,2                                                     IBB59920
01617        LDI     NDTSI                                                    IBB59930
01620        LAC     NDOUT,4             NOW EXIT                             IBB59940
01621        TXI     PWEX2,4,1           EXIT THRU PAUSE                      IBB59950
                                                                              IBB59960
01622  NDERR LAC     NDOUT,4                                                  IBB59970
01623        TXI     TST1,4,2                                                 IBB59980
                                                                              IBB59990
      *      SELECT ROUTINE FOR NON DATA OPERATIONS.                          IBB60000
01624  NDS1  MON     **,,*+1                                                  IBB60010
01625        STL     NDSSW                                                    IBB60020
01626        PAC     16,2                                                     IBB60030
01627        STA     NDS5A                                                    IBB60040
01630        CAL     1,2                                                      IBB60050
01631  NDS3  SXA     NDSX4,4                                                  IBB60060
01632        PAX     0,4                                                      IBB60070
01633        LDI     0,2                                                      IBB60080
01634 NDS3A  CAL     0,2                                                   $6$IBB60110
01635        ARS     18                                                       IBB60120
01636        TXL     *+2,4,1                                                  IBB60130
01637        ORA     NDS1+2                                                   IBB60140
01640        STA     SELX,4                                                   IBB60150
01641 NDS3B  TXH     NDWEF,4,6                                             (9)IBB60185
01642        XEC     SELX,4              DENSITY BITS IN UCB WORD 1           IBB60190
01643  NDS5  CLA     2,2                 TAPE POSITION IN UCB WORD 3          IBB60200
01644        LRS     0                   SAVE NOISE RECORD CONDITION          IBB60210
01645        SSP                         PREPARE FOR ARITHMETIC               IBB60220
01646        XEC     TBLTP+8,4                                                IBB60230
01647        TNX     *+2,4,5                                                  IBB60240
01650        XEC     TBLTP+2,4                                                IBB60250
01651        TZE     NDS5A+1             -0 IS REWOUND AND UNLOADED (729)     IBB60260
01652        TPL     NDS5A+3             +0 IS AT BOT                         IBB60270
01653  NDS5A PXD     **,0                                                     IBB60280
01654        LRS     0                                                        IBB60290
01655        RIR     400000              TURN OFF EOT (OR EWA) IF ON          IBB60300
01656        LLS     0                   RESTORE NOISE RECORD CONDITION       IBB60310
01657        STO     2,2                                                      IBB60320
01660 UPD1   TZE     UPD3                TRANSFER IF REWOUND POSITION         IBB60330
01661        TRA     NDSX4                                                    IBB60340
01662 UPD6   RIR     100000              CLEAR DENSITY BIT 2                  IBB60350
01663        TXL     *+2,4,1             LOW                                  IBB60360
01664 UPD7   SIR     100000                                                   IBB60370
01665        ZET     2,2                 TEST TAPE POSITION                   IBB60380
01666        TRA     *+4                 NOT AT LOAD POINT                    IBB60390
01667 UPD3   RIR     200000              LOAD POINT                           IBB60400
01670        RFT     100000              SET BIT 1 SAME AS BIT 2              IBB60410
01671        SIR     200000                                                   IBB60420
      UPD4   BSS     0                                                        IBB60430
01672 NDSX4A STI     0,2                                                   $6$IBB60460
01673 NDSX4  AXT     **,4                RESTORE IR4                          IBB60470
01674        STZ     1,2                 CLEAR UCB+1                          IBB60480
01675        TRA     2,4                 RETURN TO TRAP SUPERVISOR            IBB60490
01676        NOP                         HSKR(2)                              IBB60500
01677  TBLTP ADD     L(1)                HSKR(1) WEF(2)  HWTM(2) HSKF(2)      IBB60510
01700        ORA     RHMSK               WEF(1)  HWTM(1) HSKF(1) BSF(2) HBSF(2IBB60520
01701        SUB     1B17                BSF(1)  HBSF(1)                      IBB60530
01702        SUB     L(1)                BSR     HBSR                         IBB60540
01703        CLS     L(0)                RUN                                  IBB60550
01704        PXD     ,0                  REW     HCCR HRWD HRUN HCHC HUNL     IBB60560
01705 UPD2   TRA     UPD7                SDNH                                 IBB60570
01706        TRA     UPD6                SDNL                                 IBB60580
      NDS12  BSS     0                                                        IBB60590
01707 WEF1   PZE     **                  L(UCW)                               IBB60620
                                                                              IBB60630
      *-------------------------------------------------------------------------------
      *                          WRITE EOF ROUTINE                            IBB60640
      *-------------------------------------------------------------------------------
01710 NDWEF  STA     WEF7                SET UP BSR AND WEF                   IBB60660
01711        LDQ     TRCX,1              SET UP TRCS                          IBB60670
01712        SLQ     WEF3                                                     IBB60680
01713  WEF4  AXT     25,4                                                     IBB60690
01714        XEC     SELX-7              EXECUTE WEF                          IBB60700
01715        STL     TCOX,1                                                   IBB60710
01716        XEC     TCOX,1              DELAY UNTIL DONE                     IBB60720
01717 WEF3   TRCA    WEF7                TEST RTC ON WEF                      IBB60730
01720        XEC     ETTX,1              FINE WEF. BUT EOT...                 IBB60740
01721        TRA     WEF7A               YES - TO WEF7A                       IBB60750
01722        LXA     NDSGH,4             NO - ADJUST EXITS TO L(TSX+3)        IBB60760
01723        TXI     *+1,4,1                                                  IBB60770
01724        ZET     NDSSW                                                    IBB60780
01725        SXA     NDSGH,4                                                  IBB60790
01726        LXA     NDOUT,4                                                  IBB60800
01727        TXI     *+1,4,1                                                  IBB60810
01730        SXA     NDOUT,4                                                  IBB60820
01731        TRA     *+3                                                      IBB60830
01732  WEF7A CAL     4TAG                                                     IBB60840
01733        ORS     0,2                 TURN ON EOT BIT                      IBB60850
01734        AXT     7,4                 RESTORE XR4 TO ND                    IBB60860
01735        TRA     NDS5                UPDATE POSITION AND EXIT             IBB60870
01736 WEF7   BSRA    **                                                       IBB60880
01737        CAL     4TAG                                                     IBB60890
01740        XEC     ETTX,1                                                   IBB60900
01741        ORS     0,2                                                      IBB60910
01742        TIX     WEF4+1,4,1                                               IBB60920
01743        TSX     RED10,4                                                  IBB60930
01744        PZE     NDS5A,,CMT2A                                             IBB60940
01745        TRA     WEF4                                                     IBB60950
                                                                              IBB60960
      *-------------------------------------------------------------------------------
      ;              IOEX / TEST VALIDITY OF UNIT REQUESTED (TEST)            IBB61340
      TEST   NULL                                                          $6$IBB61349
      *                      TEST VALIDITY OF (FILE,T)                        IBB61350
      *                        USED BY ACTV AND NDSEL                         IBB61360
      *-------------------------------------------------------------------------------
01746        ENB     L(0)                DISABLE TRAP                      $6$IBB61380
01747        SXA     TSTX1,1             SAVE X1                              IBB61390
01750 TST2   CAL*    1,4                                                      IBB61400
01751        PAX     0,1                                                      IBB61410
01752        TXL     TST1,1,UEA11-1                                           IBB61420
01753        TXH     TST1,1,UEA11+4*NOUCW-1                                   IBB61430
01754        SXA     *+1,1                                                    IBB61440
01755        CLA     **                                                       IBB61450
01756        TMI     TST1                UNIT IS UNAVAILABLE                  IBB61460
01757        CAL     0,4                                                      IBB61470
01760        ACL     TST2                                                     IBB61480
01761        STA     *+2                 ACTV+1 OR NDSEL+1                    IBB61490
01762 TSTX1  AXT     **,1                                                     IBB61500
01763        TRA     **                                                       IBB61510
01764 TST1   PXA     0,4                 COMPUTE EFFECTIVE ADDRESS            IBB61520
01765        ADD     TST2                OF (1,4)                             IBB61530
01766        LGR     15                                                       IBB61540
01767        STL     ENBSW                                                    IBB61550
01770        TSX     BCD5,4                                                   IBB61560
01771        SLW     CMT7+3                                                   IBB61570
01772        TSX     PROUT,4             PRINT ILLEGAL UNIT REFERENCE         IBB61580
01773        PZE     1                   AND GO DUMP.                         IBB61590
01774        PZE     CMT7,,4                                                  IBB61600
01775        TSX     .STOP,4                                               $6$IBB61610
     
      *-------------------------------------------------------------------------------
      ;              IOEX / ERROR MESSAGES                                    IBB61620
      *                             BCD MESSAGES                              IBB61630
      *-------------------------------------------------------------------------------
       CMT0  BCI     2, UNIT XXXXXX                                           IBB61650
       CMT2B BCI     9,WROTE SHORT  REC.  XXXXX  FILE XXXXX ERROR-TRCK 00XXXX IBB61660
      CMT2  iBCI     3,PERM.  READ REDUN.                                     IBB61670
       CMT2A BCI     3,25 ERASES ON WRITE                                     IBB61680
       CMT2C BCI     5,REC DISCRDED-NOISE  ON ERASE-                          IBB61690
       CMT7  BCI     5,ILL UNIT REQ'ST AT XXXX 1#HEOS                         IBB61700
       CMT8  BCI     3,I/O CKSEQ CKINT CK                                     IBB61710
                                                                              IBB61720
       CMT1  EQU     CMT2B+2                                                  IBB61730
       CMT3  EQU     CMT2C+2                                                  IBB61740
       HTP   EQU     CMT7+3                                                   IBB61750
       9MSS1 EQU     CMT2B+5                                                  IBB61760
       TTTT1 EQU     9MSS1                                                    IBB61770
       TTTT2 EQU     9MSS1+3                                                  IBB61780

      *-------------------------------------------------------------------------------
      ;              IOEX / ISSUE SEEKS AND/OR NEXT SELECT (ISSEK)            IBB61790
      *-------------------------------------------------------------------------------
02034  ISS0  STZ     ISSSP                                                    IBB61850
02035        AXT     0,4                                                      IBB61860
02036        TRA     ISS2                                                     IBB61870
02037  ISSEK SXA     ISX41,4        GENERAL ENTRANCE                          IBB61880
02040        PAC     ,2                                                       IBB61890
02041        STA     ISSSP          SET P#PRIORITY UNIT                       IBB61900
02042        TXL     ISS1,2,0                                                 IBB61910
02043        LDI     1,2            IT KEEPS ITS PRIORITY ONLY                IBB61920
02044        LFT     077777         IF A SEL ROUTINE IS SPECIFIED             IBB61930
02045        TRA     ISS1-1                                                   IBB61940
02046        STZ     1,2                                                      IBB61950
02047  ISS10 STZ     ISSSP                                                    IBB61960
02050        TRA     ISS1                                                     IBB61970
02051        TQP     ISS0                                                     IBB61980
02052  ISS1  CLA     UCBA,1                                                $6$IBB61990
02053        PAC     ,2             XR2#FIRST UCB TO EXAMINE                  IBB62000
02054        PDX     ,4             XR4#NO OF UCBS TO EXAMINE                 IBB62010
02055  ISS2  STZ     ISSST                                                    IBB62020
02056        SXA     ISX44,4                                                  IBB62030
02057  ISS3  PXA     ,2                                                       IBB62040
02060        COM                                                              IBB62050
02061        ADD     L(1)           SET AC#L(UCB)                             IBB62060
02062  ISS4  ZET     ISSSP                                                    IBB62090
02063        TRA     ISS5           P NOT ZERO MEANS UCB HAS PRIORITY         IBB62100
02064        LDI     1,2            IF P#0, GIVE UNIT PRIORITY                IBB62110
02065        LFT     077777         IF A SEL ROUTINE IS SPECIFIED.            IBB62120
02066        STA     ISSSP          IF NO SEL, GO TO NEXT UCB.                IBB62130
02067  ISS5  TNX     ISS7,4,1                                                 IBB62140
02070        TXI     ISS3,2,-4                                                IBB62150
02071  ISS7  ZET     ISSSP                                                    IBB62350
02072        TRA     ISS9           IF P NOT ZERO, GO ENTER (SEL+)            IBB62360
02073  ISX44 AXT     **,4                                                     IBB62370
02074        CLA     ISSST                                                    IBB62380
02075  ISS8  TXL     ISX41,4,0                                                IBB62480
02076        STZ     CHXSP,1        HERE IF ABSOLUTELY NO                     IBB62490
02077        STZ     CHXAC,1        CHANNEL ACTIVITY                          IBB62500
02100        TRA     ISS12                                                    IBB62510
02101  ISS9  LAC     ISSSP,2             HERE TO ENTER (SEL+)                 IBB62520
02102        STL     RCTX,1                                                   IBB62530
02103 ISS9B  STL     TRCX,1              MAKE SURE REDUNDANCY              $6$IBB62600
02104        XEC     TRCX,1         INDICATOR IS OFF                          IBB62610
02105        LDQ     TEFX,1              MAKE SURE EOF INDICATOR IS OFF       IBB62620
02106        SLQ     *+1                                                      IBB62630
02107        TEFA    *+1                                                      IBB62640
02110        CAL     1,2                                                      IBB62650
02111        PDX     ,4                                                       IBB62660
02112        CAL     ISSSP                                                    IBB62670
02113        STO     CHXAC,1        SET AC#CHXAC#CHXSP#L(UCB)                 IBB62680
02114        STO     CHXSP,1                                                  IBB62690
02115        STL     TCOX,1                                                   IBB62700
02116        XEC     TCOX,1                                                   IBB62710
02117        SXA     *+1,4                                                    IBB62720
02120        TSX     **,4           ENTER (SEL+)                              IBB62730
02121        TRA     ISS11          NORMAL RETURN                             IBB62740
02122        TRA     ISS10                                                    IBB62750
02123  ISS11 LAC     ISSSP,4                                                  IBB62760
02124        CLA     1,4                                                      IBB62770
02125        TPL     ISS12                                                    IBB62780
02126        CAL     1B17           IF SELECT IS A WRITE                      IBB62790
02127        ALS     0,1            PERMIT REDUNDANCY TRAPS.                  IBB62800
02130        ORS     TRAP                                                     IBB62810
02131  ISS12 PXD     ,0                                                       IBB62820
02132  ISX41 AXT     **,4                                                     IBB62830
02133        ZET     ISSSI                                                    IBB62840
02134  ISX42 AXT     **,4                                                     IBB62850
02135        LDI     ISSSI                                                    IBB62860
02136        STZ     ISSSI                                                    IBB62870
02137        TRA     1,4            RETURN WHENCE YOU CAME PLUS ONE           IBB62880
                                                                            IBB62890
      ENDISS NULL    END OF ISSUE ROUTINES                                 $6$IBB63640

      *-------------------------------------------------------------------------------
      ;              IOEX / MESSAGE WRITER (PROUT/PUNCH)                      IBB63650
      *                    ON LINE MESSAGE PRINT ROUTINE.                     IBB63660
      *                           CALLING SEQUENCE                            IBB63690
      *      TSX     PROUT,4                                                  IBB63710
      *      PFX     N                       PFX#PZE, ON-LINE ONLY            IBB63720
      *      Q       L1,T,M1+SPR*512         PFX#MZE, ON AND OFF-LINE         IBB63730
      *       .        .    .                PFX#MON, OFF-LINE ONLY           IBB63740
      *       .        .    .                                                 IBB63750
      *      Q       LN,T,MN+SPR*512                                          IBB63760
      *      RETURN                                                           IBB63770
      *-------------------------------------------------------------------------------
02140  PUNCH ENB     L(0)                                                  $6$IBB63790
02141        CLA     SPUN                                                     IBB63800
02142        TRA     PRT6                                                     IBB63810
02143  PROUT ENB     L(0)                                                  $6$IBB63820
02144        CLA     1,4                                                      IBB63830
02145        TMI     SPOUT                                                 $6$IBB63840
02146  PRT7  CLA     PSE                                                      IBB63850
02147  PRT6  STO     PRPUS               SET UP SENSE                         IBB63860
02150        ADD     L(1)                                                     IBB63870
02151        STA     PRT5                SET UP SELECT                        IBB63880
      ;              COMPUTE RETURN FROM SUBROUTINE                        $6$IBB63890
02152        PXA     2,4                 -L(TSX)                           $6$IBB63900
02153        SBM     *-1                 -(L(TSX)+2)                       $6$IBB63910
02154        ACL     1,4                 TSX+2+N                              IBB63920
02155        STA     PRTEX               SET RETURN ADDRESS.                  IBB63930
02156        SXA     PRTAX,2             SAVE XR2.                            IBB63940
      ;              FIND NUMBER OF CALLING SEQUENCE REQUESTS              $6$IBB63950
02157        CAL     1,4                                                      IBB63960
02160        PAX     0,2                 N                                    IBB63970
02161        NZT     ATRAP               IS CHANNEL A FREE...              $6$IBB63980
02162        NZT     CHXAC                                                    IBB63990
02163        TRA     PRT1-1              TO PRT1-1 IF YES                     IBB64000
02164        STL     FRSW1               BLOCK PANEL SAVE IN TRAP SUP.        IBB64010
02165        CAL     TRPCH               SET UP TO                            IBB64020
02166        ANA     .TRAPS              TRAP ON PRINTER                   $6$IBB64030
02167  PRT0  SLW     ONETRP              CHANNEL ONLY.                        IBB64040
02170        ENB     ONETRP              ENABLE TRAPS                         IBB64050
02171        TRA     *                   WAIT FOR TRAP                        IBB64060
02172  PRT3  SCHA    ACOMM               SAVE CHANNEL A INFORMATION           IBB64070
02173        ZAC                                                           $6$IBB64080
02174 PRT1   TCOA    *                                                     $6$IBB64090
02175 PRT5   WRS     **                  SELECT PRINTER OR PUNCH           $6$IBB64100
02176        STZ     PRINT                                                    IBB64110
02177 PRT4   TSX     SPRT,4              SET UP ASSOCIATED                 $6$IBB64120
02200 PRTEX  CLA     **,2                LOAD NEXT C.S. WORD               $6$IBB64125
02201  BCDHC SXA     BCX1,1              BCD TO HOLLERITH CONVERSION          IBB64130
02202        SXA     BCX1+1,2                                                 IBB64140
      ;              TEST REINITIALIZATION NEEDED                          $6$IBB64150
02203        ZET     PRINT                                                    IBB64160
02204        TRA     BCD0                                                     IBB64170
02205        AXT     24,4                                                     IBB64180
02206        STZ     IMAGE+24,4                                               IBB64190
02207        TIX     *-1,4,1                                                  IBB64200
02210        SXA     HAFRO,4                                                  IBB64210
02211        SXD     HAFRO,4                                                  IBB64220
02212        LDQ     MZE                                                      IBB64230
02213        STQ     STROBE              RESET COLUMN POINTER              $6$IBB64235
02214  BCD0  STO     PRINT                                                    IBB64240
02215        ANA     MSK1                                                     IBB64250
02216        PDC     0,4                                                      IBB64260
02217        TXL     BCX1+2,4,0                                               IBB64270
02220        STT     *+2                                                      IBB64280
02221        LXA     PRTAX,2                                                  IBB64290
02222        PXA     0,**                                                     IBB64300
02223        SBM     PRINT                                                    IBB64310
02224        STA     BCD2                                                     IBB64320
02225        SXD     BCD7,4                                                   IBB64330
02226        AXT     0,4                                                      IBB64340
02227        CAL     STROBE              LOAD CURRENT COLUMN BIT           $6$IBB64350
02230 BCD1   TNZ     BCD2-1              36 COLUMNS COMPLETED              $6$IBB64360
02231        NZT     HAFRO               YES,WAS IT SECOND HALF IMAGE      $6$IBB64361
02232        TRA     BCX1                YES,IGNORE REMAINDER OF LINE      $6$IBB64362
02233        CAL     MZE                                                      IBB64370
02234        STZ     HAFRO                                                    IBB64380
02235        SLW     STROBE                                                   IBB64390
02236 BCD2   LDQ     **,4                                                     IBB64400
02237        SXA     BCD6,4                                                   IBB64410
02240        AXT     6,4                                                      IBB64420
02241 BCD3   PXD     0,0                                                      IBB64430
02242        LGL     2                                                        IBB64440
02243        ALS     14                                                       IBB64450
02244        LGL     4                                                        IBB64460
02245        ALS     1                                                        IBB64470
02246        ACL     HAFRO                                                    IBB64480
02247        PDX     0,1                                                      IBB64490
02250        PAX     0,2                                                      IBB64500
02251        CAL     STROBE                                                   IBB64510
      ;              STORE BITS IN CARD IMAGE                              $6$IBB64520
02252        TXL     BCD3A,1,5           IS THERE A ZERO-ZONE              $6$IBB64530
02253        TXL     BCD5X,2,1           YES,BLANK IF NO NUMERIC           $6$IBB64540
02254 BCD3A  TXL     BCD3B,1,1           IS THERE ANY ZONE                 $6$IBB64550
02255        ORS     IMAGE+25,1          YES,INSERT IN IMAGE               $6$IBB64560
02256        TXL     BCD5X,2,1           IS THERE A NUMERIC                $6$IBB64570
02257  BCD3B TXL     BCD4,2,19           YES, IS IT MULTIPLE PUNCH         $6$IBB64580
02260        TXH     *+2,2,21                                              $6$IBB64581
02261        TXI     BCD4,2,-20                                            $6$IBB64582
02262        LXA     HAFRO,1             YES,INSERT 8 PUNCH                $6$IBB64590
02263        ORS     IMAGE+3,1           IN CORRECT CARD HALF              $6$IBB64600
02264        TXI     BCD4,2,-16          ADJUST FOR OTHER (2-7)            $6$IBB64610
02265 BCD4   ORS     IMAGE+19,2          INSERT NUMERIC PUNCH              $6$IBB64620
      ;                                                                    $6$IBB64630
02266 BCD5X  ARS     1                                                        IBB64640
02267        SLW     STROBE                                                   IBB64650
02270        TIX     BCD3,4,1                                                 IBB64660
02271 BCD6   AXT     **,4                                                     IBB64670
02272        TXI     *+1,4,-1                                                 IBB64680
02273 BCD7   TXH     BCD1,4,**                                                IBB64690
02274 BCX1   AXT     **,1                                                     IBB64700
02275        AXT     **,2                                                     IBB64710
02276        ZET     *+1                                                   $6$IBB64711
02277 SPR    SPRA    **                                                    $6$IBB64712
02300        CLA     PRINT                                                    IBB64720
02301        TPL     *+2                 END OF CONVERSION                    IBB64730
02302        TIX     PRT4,2,1            TO PRT4 IF PARTIAL LINE              IBB64740
02303        RCHA    IOPR                                                     IBB64780
02304        TIX     PRT1,2,1            GO TO NEXT LINE                      IBB64790
02305        TSX     SPRT,4                                                   IBB64800
02306        TZE     PRTAX                                                    IBB64810
02307        XEC     PRT5                                                     IBB64820
02310        XEC     SPR                                                      IBB64830
02311        TCOA    *                                                        IBB64840
02312  PRTAX AXT     **,2                                                     IBB64850
02313        LAC     PRTEX,4                                                  IBB64860
02314        PXD     ,0                  ALWAYS EXIT PROUT WITH AC#0          IBB64870
02315        ZET     FRSW1                                                    IBB64880
02316        ZET     TRPSW                                                    IBB64890
02317        TXI     PWEX1,4,1           EXIT THRU PAUSE                      IBB64900
02320        LXA     PRTEX,4             HERE IF A CHANNEL A TRAP             IBB64910
02321 PRT2   SXA     ATRAP,4             NEEDS TO BE SERVICED.             $6$IBB64920
02322        TRA     SAVE3                                                    IBB64930
                                                                              IBB64940
      ;              SET UP SENSE PRINTER OR PUNCH                         $6$IBB64950
02323 SPRT   ARS     27                                                    $6$IBB64960
02324        TZE     *+2                                                   $6$IBB64970
02325        ACL     PRPUS               SENSE PR OR PU                       IBB64980
02326        SLW     SPR                                                      IBB64990
02327        TRA     1,4                                                      IBB65000
                                                                              IBB65010
      IMAGE  BSS     24                                                    $6$IBB65020

      *-------------------------------------------------------------------------------
      ;              IOEX / PAUSE                                             IBB65030
      *                            PAUSE ROUTINE                              IBB65040
      *-------------------------------------------------------------------------------
02360  PAUSE ENB     L(0)                                                     IBB65060
02361        SXA     PWSX2,2                                                  IBB65070
02362        AXT     6,2                 SET UP PAUSE MESSAGE REFERENCE       IBB65080
02363        TRA     *+4                                                      IBB65090
02364  PAWS  ENB     L(0)                                                     IBB65100
02365        SXA     PWSX2,2                                                  IBB65110
02366        AXT     3,2                 SET UP PAWS  MESSAGE REFERENCE       IBB65120
02367        SXA     PWSX4,4                                                  IBB65130
02370        CAL     4TAG                                                     IBB65140
02371        STT     ENBSW               SET ENBSW NOT ZERO TO PRVENT TRAPS   IBB65150
02372  PAW1  TSX     PROUT,4                                                  IBB65160
02373  PWSP1 PZE     1                                                        IBB65170
02374        PZE     PMREF,2,3+512*DBLSP                                      IBB65180
02375        HPR     -1                                                       IBB65190
02376        TSX     PROUT,4                                                  IBB65200
02377  PWSP2 PZE     1                                                        IBB65210
02400        PZE     PMREF,,2+512*DBLSP                                       IBB65220
02401        STT     ENBSW               AC#0 WHEN FROM PROUT                 IBB65230
02402  PWSX2 AXT     **,2                                                     IBB65240
02403  PWSX4 AXT     **,4                                                     IBB65250
02404  PWEX1 ZET     ENBSW               EXITS ALSO- BCD5, PROUT, AND CVPRT   IBB65260
02405        TRA     1,4                                                      IBB65270
02406  PWEX2 NZT     TRPSW               EXITS ALSO- ACTIV, AND NDATA         IBB65280
02407        ENB*    TRAPX                                                    IBB65290
02410        TRA     1,4                                                      IBB65300
                                                                              IBB65310
             BCI     3,OPER. ACTION PAUSE              PAUSE LINE 1           IBB65320
             BCI     3,PRES STRT TO GO ON              PAWS  LINE 1           IBB65330
       PMREF BCI     2,..CONTINUING                                           IBB65340

      *-------------------------------------------------------------------------------
      ;              IOEX / SYMBOLIC UNIT CONVERSION (SYMUN)                  IBB65350
      *                   SYMBOLIC UNIT CONVERSION ROUTINE                    IBB65360
      *      TSX     SYUNCV,4            MQ DECREMENT# UNIT ADDRESS           IBB65370
      *-------------------------------------------------------------------------------
02421 SYUNCV PXA     0,0                                                      IBB65390
02422        RQL     4                                                        IBB65400
02423        LLS     4                                                        IBB65410
02424        RQL     3                                                        IBB65420
02425        TPL     SY7607                                                   IBB65430
      12ZONE BCI     1,  +0                                                   IBB65590
             BCI     1,+N00/0                                                 IBB65600
      SYUNTB BCI     1,  RD+                                               $6$IBB65602
             BCI     1,  PU+                                               $6$IBB65604
             BCI     1,  PR+                                               $6$IBB65606
             BCI     1,+D00/0            1302 CONVERSION                   $6$IBB65608
02434 SY7607 TQP     *+5                                                      IBB65610
02435        ALS     6                                                        IBB65620
02436        RQL     33                                                       IBB65630
02437        CAQ     SYUNTB-13,,1                                             IBB65640
02440        TRA     1,4                                                      IBB65650
02441        LLS     6                                                        IBB65660
02442        ALS     12                                                       IBB65670
02443        ACL     12ZONE                                                   IBB65680
02444        TRA     1,4                                                      IBB65690

      *-------------------------------------------------------------------------------
      ;              IOEX / CONVERSION                                        IBB65730
      *                            BINARY TO BCD OCTAL CONVERSION             IBB65740
      *      CALLING SEQUENCE                                                 IBB65760
      *      LDQ     (OCT)                                                    IBB65770
      *      TSX     BCD5,4                                                   IBB65780
      *      RETURN                                                           IBB65790
      *-------------------------------------------------------------------------------
02445 BCD5C  RQL     3                                                     $6$IBB65850
02446  BCD5  ENB     L(0)                                                     IBB65860
02447        SXA     BCDX4,4                                                  IBB65870
02450        AXT     5,4                                                      IBB65880
02451        CAL     BLNKS                                                    IBB65890
02452  BCD5B ALS     3                                                        IBB65900
02453        LGL     3                                                        IBB65910
02454        TIX     *-2,4,1                                                  IBB65920
02455  BCDX4 AXT     **,4                                                     IBB65930
02456        TRA     PWEX1               EXIT THRU PAUSE                      IBB65940
                                                                              IBB65950
      *-------------------------------------------------------------------------------
      *                    UNIT ADDRESS IN LEFT HALF OF MQ IS CONVERTED TO    IBB65960
      *                    SYMBOLIC AND ''UNIT XXXXXX'' IS                    IBB65970
      *                    APPENDED TO THE MASSAGE.                           IBB65980
      *      CALLING SEQUENCE                                                 IBB66000
      *      LDQ     (TAPE NO.)                                               IBB66010
      *      TSX     CVPRT,4                                                  IBB66020
      *      PFX     L,,N+SPR*512        PFX FOR ON-LINE, OFF-LINE, OR BOTH   IBB66030
      *-------------------------------------------------------------------------------
02457  CVPRT ENB     L(0)                                                     IBB66050
02460        SXA     CVP1+1,4                                                 IBB66060
02461        CAL     1,4                 SETUP PARAMETER FOR PROUT            IBB66070
02462        STO     CVP1                                                     IBB66080
02463        STP     CVP2                                                     IBB66090
02464        TSX     SYUNCV,4            CONVERT TO SYMBOLIC UNIT             IBB66100
02465        SLW     CMT0+1                                                   IBB66110
02466        STP     ENBSW               SET ENBSW NOT ZERO TO PRVENT TRAPS   IBB66120
02467        TSX     PROUT,4                                                  IBB66130
02470 CVP2   PZE     2                                                        IBB66140
02471        MZE     CMT0,,2                                                  IBB66150
02472 CVP1   PZE     **,,**                                                   IBB66160
02473        AXT     **,4                                                     IBB66170
02474        STP     ENBSW               AC#0 WHEN FROM PROUT                 IBB66180
02475        TXI     PWEX1,4,-1          EXIT THRU PAUSE                      IBB66190
                                                                              IBB66200
      *-------------------------------------------------------------------------------
      ;              IOEX / CONSTANTS                                         IBB66210
      *                              CONSTANTS                                IBB66220
      *-------------------------------------------------------------------------------
02476  PTH   PTH     0,0,0                                                    IBB66240
02477  FOR   FOR     0,0,0                                                    IBB66250
       MZE   EQU     FOR                                                      IBB66260
02500  1B17  PZE     0,0,1                                                    IBB66270
02501  1B12  PZE     ,,32                                                     IBB66280
02502  4TAG  PZE     0,4,0                                                    IBB66290
02503  TRPCH PZE     1,0,1                                                    IBB66300
02504  ADJ1  PZE     2,1,0                                                    IBB66310
                                                                              IBB66320
02505  RHMSK OCT     000000777777                                             IBB66330
02506  ISMK2 OCT     000077777777                                             IBB66340
02507  MSK1  OCT     000777777777                                             IBB66350
02510  TGMSK OCT     777777477777                                             IBB66360
                                                                              IBB66370
02511  PSE   SPRA    0                   SENSE PRINTER CHANNEL A              IBB66380
02512  SPUN  SPUA    0                   SENSE PUNCH CHANNEL A                IBB66390
       BLNKS EQU     BLANK                                                 $6$IBB66400
                                                                              IBB66410
                                                                              IBB66420
      *                    TEMPORARY STORAGE AND SWITCHES                     IBB66430
       TSDCX EQU     IOEXT     I L       FOR STORE CHANNEL DIAGNOSTIC         IBB66450
       DATSV EQU     IOEXT     D         TO SAVE SNSDTA WHILE GETTING SNSDT2  IBB66460
       PRINT EQU     IOEXT     P         FOR BCD TO CARD IMAGE CONVERSION     IBB66470
      ONETRP EQU     IOEXT     P R       FOR ENABLING TRAPS ON ONE CHANNEL    IBB66480
       CADSV EQU     IOEXT+1   L         SPARE STORAGE FOR CADLBX LOADER      IBB66490
       HAFRO EQU     IOEXT+1   P         FOR BCD TO CARD IMAGE CONVERSION     IBB66500
       TRUSD EQU     IOEXT+1   D         FOR SAVING SNSDTA FOR ERROR MESSAGE  IBB66510
       SDSAV EQU     IOEXT+2   X         FOR SAVING SNSDTA WHILE IN (SEL-)    IBB66520
      STROBE EQU     IOEXT+3   P         FOR BCD TO CARD IMAGE CONVERSION     IBB66530
      SNSDTA EQU     IOEXT+3   D         FOR GATHERING SNSDTA (2 LOCS)        IBB66540
       PRPUS EQU     IOEXT+4   P         PRINTER OR PUNCH SENSE SAVE          IBB66550
       RWIND EQU     IOEXT+5   X         SAVE TAPE RD/WR CONDITION IN (SEL-)  IBB66560
       9CHEM EQU     IOEXT+5   R         LTPOS - 2,4 SWITCH FOR HYPER         IBB66570
       HDATS EQU     IOEXT+5   R         SWITCH IN HDATC                      IBB66580
       ERMES EQU     IOEXT+5   R         7909 ERROR MESSAGE   (4 LOCS)        IBB66590
       ISSST EQU     IOEXT+7   I         FOR SAVING AF FLAG ON CONDITION      IBB66600
       ACSSV EQU     IOEXT+7   A         FOR SAVING S(1,4) IN ACTIV           IBB66610
       NDSAV EQU     IOEXT+8   N         TRAP TIME NDATA SAVE OF UCB+1        IBB66620
      SNSDT2 EQU     SNSDTA+2                                                 IBB66630
       ACOMM EQU     FRSW1                                                    IBB66640
02513 NTEST  TXL     END1A,4,0                                             (9)IBB66641
02514        RIL     400000              NOISE RECORD INDICATION           (9)IBB66642
02515        TRA     END1A                                                 (9)IBB66643
      STI    STI     RWIND                                                 (9)IBB66644
             TRA     END14                                                 (9)IBB66645
      CHXEND NULL                                                          (9)IBB6664R
                                                                              IBB66650
      IOXPAT BSS     0                   FIRST CELL OF IOEX PATCH AREA        IBB66660
                                                                              IBB66670
      IOXPEN BES     SYSORG-51-*         LAST  CELL OF IOEX PATCH AREA        IBB66680
                                                                              IBB66690
             BES     SYSORG-50-*                                              IBB66700
                                                                              IBB66710
      *-------------------------------------------------------------------------------
      *              CEMON AREA   (SYSORG-50 THRU SYSORG-1)                   IBB66720
      *  50 CELLS ARE REQUIRED AT SYSORG-50 FOR A DIAGNOSTIC ROUTINE          IBB66740
      *  WHEN THE SYSTEMS UNDER IBSYS ARE PLACED IN THE DIAGNOSTIC MODE.      IBB66750
      *  GENITD IS LOADED INTO THIS AREA BY IBSUP AT COLD START OR            IBB66770
      *  UPON PROCESSING A $RESTORE CARD.                                     IBB66780
      *  GENITD IS ASSEMBLED IN THE IBSUP AREA OF CODING.                     IBB66800
             TCD     *                                                     $6$IBB66820
      *-------------------------------------------------------------------------------
      ;              SYSTEM CORE-STORAGE DUMP PROGRAM                         IBD00000
      *                         SYSTEM DUMP ROUTINE                           IBD00010
      *-------------------------------------------------------------------------------
             LBL     DUMP0000,1                                               IBD00020
             BES     SYSCUR-*                                                 IBD00030
             BCI     1,SYSDMP                                                 IBD00040
             BES     SYSTRA-*                                                 IBD00050
             TRA     IBDUMP                                                   IBD00060
             BES     DMPSW-*                                               $6$IBD00070
             PZE                                                              IBD00080
             BES     .ENBSW-*            SET ENABLE SWITCH NON-ZERO SO     $6$IBD00090
             BCI     1,                  SYSLDR DOSNT ENB TRAPS WHEN DONE     IBD00100
             BES     SYSTMS-*                                                 IBD00110
             QUAL    D                                                     $6$IBD00120
      HAC    BSS     1                                                        IBD00130
      HMQ    BSS     1                                                        IBD00140
      HSI    BSS     1                                                        IBD00150
      HQP    BSS     1                                                        IBD00160
      IR2    BSS     1                                                        IBD00170
      IR4    BSS     1                                                        IBD00180
      TRIG   BSS     4                                                        IBD00190
             BES     SYSORG-*                                                 IBD00200
      ONLIN  BOOL    1                                                        IBD00210
      DBLSPC BOOL    0                                                        IBD00220
      KEYSWT EQU     4                                                        IBD00230
      FORMAT EQU     3                                                        IBD00240
                                                                              IBD00250
02652 IBDUMP SXD     SVPNL0,1                                                 IBD00260
02653        AXT     4*$NOUCW,1                                               IBD00270
02654        CAL     SVPNL3                                                   IBD00280
02655 GETUCB LDI     $UEA11+4*$NOUCW,1                                        IBD00290
02656        LNT     020000                                                   IBD00300
02657        TRA     NT7909                                                   IBD00310
02660        LFT     000700                                                   IBD00320
02661        STP     $UEA11+2+4*$NOUCW,1                                      IBD00330
02662        LDQ     $UEA11+2+4*$NOUCW,1                                      IBD00340
02663        TQP     *+2                                                      IBD00350
02664        STZ     $UEA11+2+4*$NOUCW,1                                      IBD00360
02665 NT7909 STZ     $UEA11+1+4*$NOUCW,1                                      IBD00370
02666        TIX     GETUCB,1,4                                               IBD00380
02667        AXT     HGHCHN,1            AND                               $6$IBD00390
02670        STZ     CHXAC+HGHCHN,1      ACTIVITY AND PRIORITY             $6$IBD00400
02671        STZ     CHXSP+HGHCHN,1      CELLS                             $6$IBD00410
02672        TIX     *-2,1,1             X                                    IBD00420
02673        STZ     .ENBSW                                                $6$IBD00430
02674        CLA     $ACC                                                     IBD00440
02675        STO     SET8                                                     IBD00450
02676        STO     HAC                                                      IBD00460
02677        CLA     $MQ                                                      IBD00470
02700        STO     SET8+1                                                   IBD00480
02701        TRA     J-1                                                      IBD00490
      SVPNL0 PZE                                                              IBD00500
      SVPNL1 PZE                                                              IBD00510
      SVPNL2 PZE                                                              IBD00520
      SVPNL3 PON                                                              IBD00530
      OUTBUF OCT     ,,,,,,,,,,,,,,,,,,,,                                     IBD00540
       BLANK BCI     1,                                                       IBD00550
       ALSME BCI     9,WORDS         TO         ALL CONTAIN                   IBD00560
02745        STO     HMQ                                                      IBD00570
02746 J      CAL     $QP                                                      IBD00580
02747        SLW     HQP                                                      IBD00590
02750        STD     IR4                                                      IBD00600
02751        STP     TAPBUF+3                                                 IBD00610
02752        CLA     .IOXSI                                                $6$IBD00620
02753        STO     HSI                                                      IBD00630
02754        STO     SET8+2                                                   IBD00640
02755        ENK                                                              IBD00650
02756        TNX     *+1,0,3072                                               IBD00660
02757        STQ     SET8+3                                                   IBD00670
02760        CLA     TRIG+1                                                   IBD00680
02761        AXT     4,1                                                      IBD00690
02762        STZ     TRIG+4,1                                                 IBD00700
02763        XEC     *+8,1                                                    IBD00710
02764        STL     TRIG+4,1                                                 IBD00720
02765        TIX     *-3,1,1                                                  IBD00730
02766        TRA     *+5                                                      IBD00740
02767 TAPBUF TZE     *-2                                                      IBD00750
02770        DCT                                                              IBD00760
02771        IOT                                                              IBD00770
02772        TRA     *-5                                                      IBD00780
02773        LXD     IR2,2                                                    IBD00790
02774        LXD     IR4,4                                                    IBD00800
02775        SXA     SVPNL0,2       AC,                                       IBD00810
02776        SXD     SVPNL1,3       MQ,                                       IBD00820
02777        SXA     SVPNL1,4       KEYS,                                     IBD00830
03000        SXD     SVPNL2,5       INDEX                                     IBD00840
03001        SXA     SVPNL2,6       REGISTERS,                                IBD00850
03002        SXD     SVPNL3,7       SENSE                                     IBD00860
03003        AXT     0,1                                                      IBD00870
03004        AXT     0,2                                                      IBD00880
03005        TXI     *+1,3,1        LIGHTS,                                   IBD00890
03006        TXL     NINT4,1,0      SENSE                                     IBD00900
03007        STL     NINSWT         SWITCHES,                                 IBD00910
03010        AXT     4400,1                AND                                IBD00920
03011        SXA     PANEL+13,1     INDICATORS                                IBD00930
03012        LXA     SVPNL1,1       IN                                        IBD00940
03013        SXD     SVPNL1,1       PANEL                                     IBD00950
03014        AXT     6,1            AREA                                      IBD00960
03015        CAL     PANEL          FOR                                       IBD00970
03016        SLW     PANEL+20,1     DUMP                                      IBD00980
03017        TIX     *-1,1,1        HEADING                                   IBD00990
03020 NINT4  AXT     4,2                                                      IBD01000
03021        CAL     SET8+4,2                                                 IBD01010
03022        XCA                                                              IBD01020
03023        TSX     OCTED,4                                                  IBD01030
03024 OCTRTN AXT     8,4            EDIT AC, MQ, S.I. AND                     IBD01040
03025        SLW     J+8,4          KEYS FOR CORE DUMP                        IBD01050
03026        STQ     J+9,4                                                    IBD01060
03027        TXI     *+1,4,-2                                                 IBD01070
03030        SXA     OCTRTN,4                                                 IBD01080
03031        ZET     2NDSWT                                                   IBD01090
03032        TXI     EDITXR,2,-1                                              IBD01100
03033        TIX     NINT4+1,2,1                                              IBD01110
03034        STL     JSWT                                                     IBD01120
03035        TRA     ZROBUF+3                                                 IBD01130
03036 JRTRN iSTZ     JSWT                                                     IBD01140
03037        AXT     10,2                                                     IBD01150
03040        CAL     J+6,2                                                    IBD01160
03041        SLW     PANEL+30,2                                               IBD01170
03042        TIX     *-2,2,1                                                  IBD01180
03043        STL     2NDSWT                                                   IBD01190
03044        AXT     8,2                                                      IBD01200
03045        SXA     OCTRTN,2                                                 IBD01210
03046        AXT     4,2                                                      IBD01220
03047 EDITXR LDQ     SVPNL0+4,2     EDIT INDEX REGISTERS                      IBD01230
03050        LGL     3                                                        IBD01240
03051        TXH     NINT4+3,2,0                                              IBD01250
03052        AXT     7,2                                                      IBD01260
03053        CAL     J+7,2                                                    IBD01270
03054        ORA     SIXTY                                                    IBD01280
03055        SLW     J+7,2                                                    IBD01290
03056        TIX     *-3,2,1                                                  IBD01300
03057        AXT     29,1                                                     IBD01310
03060        AXT     7,2                                                      IBD01320
03061 XRNORM CLA     J+7,2                                                    IBD01330
03062        STO     PANEL+59,1                                               IBD01340
03063        LDQ     J+8,2                                                    IBD01350
03064        TNX     XRFIN,2,2                                                IBD01360
03065        CAL     3BLKS                                                    IBD01370
03066        LGL     18                                                       IBD01380
03067        SLW     PANEL+60,1                                               IBD01390
03070        XCL                                                              IBD01400
03071        ORA     3BLKS                                                    IBD01410
03072        SLW     PANEL+61,1                                               IBD01420
03073        TXI     XRNORM,1,-3                                              IBD01430
03074 XRFIN  AXT     6,2                                                      IBD01440
03075        LXA     XRNORM-2,1                                               IBD01450
03076        CAL     PANEL                                                    IBD01460
03077        ZET     NINSWT                                                   IBD01470
03100        SLW     PANEL+63,1                                               IBD01480
03101        TXI     *+1,1,-1                                                 IBD01490
03102        TIX     *-3,2,1                                                  IBD01500
03103        CLS     TWENTY                                                   IBD01510
03104        STO     TWENTY                                                   IBD01520
03105        TPL     COMFIN                                                   IBD01530
03106        ADD     3BLKS                                                    IBD01540
03107        STA     3BLKS                                                    IBD01550
03110        AXT     4,1            EDIR INDEX REGISTERS                      IBD01560
03111        CAL     ZROSVN         IN COMPLEMENTED FORM                      IBD01570
03112        ERA     SVPNL0+4,1                                               IBD01580
03113        ADD     ONEONE                                                   IBD01590
03114        ANA     ZROSVN                                                   IBD01600
03115        SLW     SVPNL0+4,1                                               IBD01610
03116        TIX     *-5,1,1                                                  IBD01620
03117        AXT     9,1                                                      IBD01630
03120        SXA     XRNORM-2,1                                               IBD01640
03121        TRA     EDITXR-3                                                 IBD01650
03122      COMFIN AXT     4,1                                                      IBD
03123        PXA     0,0                                                      IBD01670
03124        ZET     TRIG+4,1                                                 IBD01680
03125        ADD     ONE                                                      IBD01690
03126        ALS     1                                                        IBD01700
03127        TIX     *-3,1,1                                                  IBD01710
03130        AXT     4,1                                                      IBD01720
03131        ADD     ONE                                                      IBD01730
03132        SLT     5,1                                                      IBD01740
03133        SUB     ONE                                                      IBD01750
03134        ALS     1                                                        IBD01760
03135        TIX     *-4,1,1                                                  IBD01770
03136        AXT     6,1                                                      IBD01780
03137        ADD     ONE                                                      IBD01790
03140        SWT     7,1                                                      IBD01800
03141        SUB     ONE                                                      IBD01810
03142        ALS     1                                                        IBD01820
03143        TIX     *-4,1,1                                                  IBD01830
03144        ORS     TRIGS                                                    IBD01840
03145 SETIND LDQ     ON                                                       IBD01850
03146        ARS     1                                                        IBD01860
03147        LBT                                                              IBD01870
03150        LDQ     OFF                                                      IBD01880
03151        STQ     PANEL+119,1                                              IBD01890
03152        TXI     *+1,1,1                                                  IBD01900
03153        TXL     SETIND,1,6                                               IBD01910
03154        TXH     *+2,1,7                                                  IBD01920
03155        TXI     *+1,1,2                                                  IBD01930
03156        TXL     SETIND,1,12                                              IBD01940
03157        TXH     *+2,1,13                                                 IBD01950
03160        TXI     *+1,1,1                                                  IBD01960
03161        TXL     SETIND,1,17                                              IBD01970
03162        AXT     2,1                                                      IBD01980
03163        CAL     HQP                                                      IBD01990
03164        ALS     33                                                       IBD02000
03165        ALS     1                                                        IBD02010
03166        LDQ     ON                                                       IBD02020
03167        PBT                                                              IBD02030
03170        LDQ     OFF                                                      IBD02040
03171        STQ     PANEL+102,1                                              IBD02050
03172        TIX     *-5,1,1                                                  IBD02060
03173        CLA*    UCBSCR       GET UCB1 FOR SCRATCH TAPE                   IBD02070
03174        PDX     ,2                                                       IBD02080
03175        PAI                                                              IBD02090
03176        LNT     020000        TEST FOR 7909 DATA CHNL                    IBD02100
03177        TXI     NTHYSC,2,16   OFF                                        IBD02110
03200        STL     HYPSWT        ON                                         IBD02120
03201        ARS     23                                                       IBD02130
03202        ANA     ONE           DETERMINE INTERFACE                        IBD02140
03203        ORS     SMS           AND SET IN SET MODE COMM                   IBD02150
03204        RIS     UNMSK         PLACE UNIT NUMBER                          IBD02160
03205        OSI     HORDH         INTO HYPER ORDER                           IBD02170
03206        STI     HORDT                                                    IBD02180
03207        CLA     HBSR                                                     IBD02190
03210        STD     SVE1-2                                                   IBD02200
03211        CLA     HERR          MODIFY ERROR TEST                          IBD02210
03212        STO     MSSEL+1                                                  IBD02220
03213 NTHYSC SXA     729SRS,2                                                 IBD02230
03214        SXA     729SWS,2                                                 IBD02240
03215        CLA     $DPUCB              DID A REEL SWITCH                 $6$IBD02250
03216        STD     *+2                 OCCUR WITHIN THIS JOB                IBD02260
03217        LAC     UCBSCR,1                                                 IBD02270
03220        TXI     *+1,1,**                                                 IBD02280
03221        TXL     NORLSW,1,0          NO, CONTINUE                         IBD02290
03222        ARS     18                                                       IBD02300
03223        STA     UCBOUA                                                   IBD02310
03224        TSX     FIXOU,4                                                  IBD02320
03225        LDI     OUTSLW              YES                                  IBD02330
03226        STI     SAVSEL              SAVE ORIGINAL SELECT                 IBD02340
03227        SIR     20                  AND CREATE BINARY SELECT             IBD02350
03230        STI     OUTSLW              FOR SYSOU1                           IBD02360
03231        TSX     TPIOEX,4            WRITE OUT UPPER AREA                 IBD02370
03232        PZE     CPYSPL              ONTO SYSOU1                          IBD02380
03233 BCKOUA AXT     2,2                 BACKSPACE SYSOU1                     IBD02390
03234        TSX     NDATA,4,5           TWO RECORDS                          IBD02400
03235        TIX     *-1,2,1                                                  IBD02410
03236        CLS     XIOXSL                                                   IBD02420
03237        STO     XIOXSL              SECOND TIME                          IBD02430
03240        TMI     FIXUP               YES                                  IBD02440
03241        CLA     729SRS                                                   IBD02450
03242        STD     OUTSLW              SET UP BINARY READ SELECT            IBD02460
03243        CLA     CTLOUR              CHANGE CTLW TO CLTR                  IBD02470
03244        STO     SMSBIN+2            IN CASE HYPER OU1                    IBD02480
03245        TSX     TPIOEX,4            READ IN RECORD ONE                   IBD02490
03246        PZE     CPYSPL                                                   IBD02500
03247        NZT     XIOXIN              WAIT FOR RECORD ONE TO COME IN       IBD02510
03250        TRA     *-1                                                      IBD02520
03251        TSX     TPSPAC,4            NOW WRITE IT OUT ON                  IBD02530
03252        CLA     TWO                 SYSPP2 AND FIX UP                    IBD02540
03253        STO     POSCNT              POSITION COUNTER                     IBD02550
03254        TSX     TPIOEX,4            READ BACK UPPER AREA                 IBD02560
03255        PZE     CPYSPL              INTO ORIGINAL PLACE                  IBD02570
03256        TRA     BCKOUA              AND REPOSITION SYSOU1                IBD02580
03257 FIXUP  CLA     SAVSEL              RESTORE ORIGINAL SELECT              IBD02590
03260        STO     OUTSLW              AND GET PROPER                       IBD02600
03261        LAC     UCBOUA,1            UNIT CONTROL BLOCK POINTER           IBD02610
03262        TRA     NORLSW+1                                                 IBD02620
03263 NORLSW LAC     UCBSCR,1                                                 IBD02630
03264        CLA     2,1           UPDATE SCRATCH RECORD                      IBD02640
03265        ADD     ONE           COUNT FOR SPILL RECORD                     IBD02650
03266        STO     2,1                                                      IBD02660
03267        CLA     SYSOU1                                                $6$IBD02670
03270        STA     UCBOUA                                                   IBD02680
03271        TSX     FIXOU,4                                                  IBD02690
03272        LXD     IR4,4                                                    IBD02700
03273        TXL     RENTRY,4,-ENDDMP   IS CALL SEQ. IN DUMP AREA             IBD02710
03274        TXH     *+3,4,1-ENDDMP  YES,IS HALF OF IT OUT OF DUMP AREA       IBD02720
03275        LDQ     ENDDMP          YES,GET IT                               IBD02730
03276 MIDCON STQ     SWT5          AND SAVE IT THUS SETTING SWITCH            IBD02740
03277        TSX     TPSPAC,4,0      AND WRITE OUT BUFFER                     IBD02750
03300        STL     SWSONE                       SET SWITCH                  IBD02760
03301        TSX     TPSPAC,4,2    AND READ IN 1ST RECORD                     IBD02770
03302        STL     SWSTWO                       SET SWITCH                  IBD02780
03303        LXD     IR4,4                                                    IBD02790
03304        TXI     *+1,4,-ENDDMP                                            IBD02800
03305 RENTRY CAL     0,4           GET 1ST HALF OFF CALL SEQ                  IBD02810
03306        ERA     TSXTAB         TEST FOR SNAP                             IBD02820
03307        LDQ     SWT5          YES,RESTORE IT                             IBD02830
03310        NZT     SWT5           CALL SEQ PREVIOUSLY SAVED                 IBD02840
03311        LDQ     1,4            NO,GET CALL SEQ.                          IBD02850
03312        TZE     SCANER         THIS IS A SNAP DUMP                       IBD02860
03313        STZ     SNAP           NOT A SNAP RESET SWITCH                   IBD02870
03314        ERA     TEMP           IS IT POST MORT. CALL SEQ.                IBD02880
03315        TZE     SCANER         IS AC  ZERO-YES                           IBD02890
03316        LDQ     PSUEDO                                                   IBD02900
03317        SWT     KEYSWT                                                   IBD02910
03320        TRA     SCANER         NO KEYS DUMP TAKE FULL CORE               IBD02920
03321  TIPE2 TSX     PROUT,4                      THIS IS A                $6$IBD02930
03322        PZE     1                            POST MORTUM DUMP            IBD02940
03323        PZE     ENKMSG,,7+512*4              WITH A HALT                 IBD02950
03324        HTR     *+1                          TO ENTER LIMITS             IBD02960
03325        ENK                                  INTO THE KEYS               IBD02970
03326        TRA     SCANER                                                   IBD02980
03327 SAVSEL PZE     0                                                        IBD02990
03330  FIXOU CLA*    UCBOUA              GET UCB FOR OUTPUT                   IBD03000
03331        PAI                                                              IBD03010
03332        ARS     18             GET UNIT ADDRESS                          IBD03020
03333        STA     OUTSLW         AND SET BCD SELACT                        IBD03030
03334        STZ     HYPOUT                                                   IBD03040
03335        LFT     020000                                                   IBD03050
03336        STL     HYPOUT         SET HYPER SWITCH                          IBD03060
03337        ARS     5                                                        IBD03070
03340        ANA     ONE                                                      IBD03080
03341        ORA     SIX                 SET BINARY SMS                       IBD03090
03342        STA     SMSBIN                                                   IBD03100
03343        ORA     TWENTY                                                   IBD03110
03344        STA     SMSOU          SET BCD SMS                               IBD03120
03345        RIS     UNMSK                                                    IBD03130
03346        OSI     HORDH                                                    IBD03140
03347        STI     HORDW               FROM SELECT BLANK MASK               IBD03150
03350        TRA     1,4                 RETURN                               IBD03160
      CPYSPL IORT    ENDDMP,,ENDDMP                                           IBD03170
      SMSBIN SMS     6                                                        IBD03180
             LIPT    *+1                                                      IBD03190
             CTLW    HORDW                                                    IBD03200
             CPYD    ENDDMP,,ENDDMP                                           IBD03210
             TCH     SYSTWT                                                   IBD03220
      CTLOUR CTLR    HORDW                                                    IBD03230
      ENKMSG BCI     7,      ENTER KEYS AND PRESS START                       IBD03240
      SYSMSG BCI     8,      SYSTEMS CORE DUMP TAKEN AT THIS POINT            IBD03250
      ERRMSG BCI     5,      SPILL TAPE READ ERROR                            IBD03260
      * SCAN AND PICKOFF THE LIMITS FOR THE DUMP                              IBD03270
03404 SCANER XCA                                                              IBD03280
03405        TNZ     *+2                                                      IBD03290
03406        CLA     PSUEDO                                                   IBD03300
03407        XCA                                                              IBD03310
03410        ZAC                                                              IBD03320
03411        LGL     3                                                        IBD03330
03412        STO     FMTDMP        STORE DUMP FORMAT                          IBD03340
03413        ZAC                                                              IBD03350
03414        LGL     15                                                       IBD03360
03415        STO     LOWPRM                       STORE STARTING LOCATION     IBD03370
03416        ZAC                                  OF THE DUMP                 IBD03380
03417        LGL     3                                                        IBD03390
03420        STO     OTUNIT                       STORE OUTPUT UNIT           IBD03400
03421        ZAC                                                              IBD03410
03422        LGL     15                                                       IBD03420
03423        STO     UPPRM                        STORE ENDING LOCATION       IBD03430
03424        CLA     FMTDMP        FORMAT GIVEN?                              IBD03440
03425        TNZ     *+2           IF YES -TRA                                IBD03450
03426        CLA     FORM          NO GET ASSEMBLY DEFINED FORMAT             IBD03460
03427        LGL     18            SHIFT IT + MAKE IT                         IBD03470
03430        ADD     OCT20         A BCD VALUE                                IBD03480
03431        STD     CORTP         + STORE IT                                 IBD03490
03432 CONT   STL     TAP729        SET                                        IBD03500
;;;|||       STL     PRNTSW        SWITCHES                                   IBD03510
             CLA     OTUNIT        WHAT OUTPUT UNIT                           IBD03520
             CAS     TWO           IS DESIRED-                                IBD03530
             STZ     PRNTSW        ITS TAPE                                   IBD03540
             TRA     WRTPNL        ITS BOTH                                   IBD03550
             TZE     *-2           ITS TAPE                                   IBD03560
             STZ     TAP729        ITS PRINTER                                IBD03570
;;;^^^       BSS     -7*ONLIN                                                 IBD03580
03433 WRTPNL ZET     SNAP          SNAP DUMP +                                IBD03590
03434        TRA     UPDAT                                                    IBD03600
03435        TSX     PROUT,4             NO,--PRINT MESSAGE                $6$IBD03610
03436        PZE     1                                                        IBD03620
03437        PZE     SYSMSG,,8+512*4                                          IBD03630
03440 LDXR2  AXT     6,2           THEN WRITE PANEL                           IBD03640
03441        AXT     120,1                                                    IBD03650
03442        AXT     20,4                                                     IBD03660
03443        CLA     PANEL+120,1                                              IBD03670
03444        STO     OUTBUF+20,4                                              IBD03680
03445        TXI     *+1,1,-1                                                 IBD03690
03446        TIX     *-3,4,1                                                  IBD03700
03447        TSX     PRINT,4                                                  IBD03710
03450        STZ     LATCH                                                    IBD03720
03451        TIX     LDXR2+2,2,1                                              IBD03730
03452        STL     LATCH                                                    IBD03740
03453 CONT2  LDQ     UPPRM         ARE PARAMETERS IN                          IBD03750
03454        CLA     LOWPRM        PROPER ORDER                               IBD03760
03455        TLQ     RVRSE         YES-DONNOT TRANSFER                        IBD03770
03456 RNDOFF ARS     3             ROUND                                      IBD03780
03457        ALS     3             OFF                                        IBD03790
03460        STA     LOWPRM        AND STORE LOWER PARAMETER                  IBD03800
03461        TRA     ENTRYB                                                   IBD03810
03462 RVRSE  XCA                   NO-REVERSE THEM                            IBD03820
03463        STQ     UPPRM         STORE UPPER PARAMETER                      IBD03830
03464        TRA     RNDOFF        AND GO ROUND OFF LOWER PARAMETER           IBD03840
03465 ENTRYB LXA     LOWPRM,1                     IS THE STARTING POINT       IBD03850
03466        TXL     LOSTRT,1,ENDDMP-1       IN DESTROYED AREA                IBD03860
03467        TXH     LSTMID,1,2*ENDDMP-1  NO,IS IT INLAST 3RD                 IBD03870
03470        NZT     SWSTWO                       NO,MID 3RD IN OK            IBD03880
03471        TRA     LSTMID                       YES                         IBD03890
03472        TSX     TPSPAC,4,1    NO-READ IT IN                              IBD03900
03473        STZ     SWSTWO                       AND TURN OFF SWITCH         IBD03910
03474 LSTMID STL     ENDFLG                       SET EOJ SWITCH              IBD03920
03475        CLA     LOWPRM                       PLUG STARTING LOCATION      IBD03930
03476        STO     RELLOW                       INTO PRINT BUFFER           IBD03940
03477        CLA     UPPRM                        PLUG ENDING LOCATION        IBD03950
03500        STO     RELHI                        INTO PRINT BUFFER           IBD03960
03501        TRA     C1                           GO DUMP                     IBD03970
03502 LOSTRT NZT     SWSONE        IS MID 3RD WRITTEN OUT ?                   IBD03980
03503        TSX     TPSPAC,4,0    NO-WRITE IT OUT                            IBD03990
03504        STL     SWSONE                       + SET SWITCH                IBD04000
03505        NZT     SWSTWO        IS LOW 3RD READ IN ?                       IBD04010
03506        TSX     TPSPAC,4,2    NO-READ IT IN                              IBD04020
03507        STL     SWSTWO                       + SET SWITCH                IBD04030
03510        LXA     LOWPRM,1                     BUMP UP STARTING            IBD04040
03511        TXI     *+1,1,ENDDMP                 LOCATION RELATIVE TO BUFFER IBD04050
03512        SXA     RELLOW,1      AND STORE                                  IBD04060
03513        LXA     UPPRM,1                                                  IBD04070
03514        TXH     NOTSET,1,ENDDMP-1       BE BUMPED UP                     IBD04080
03515        TXI     *+1,1,ENDDMP                 YES,BUMP IT                 IBD04090
03516        SXA     RELHI,1       AND STORE                                  IBD04100
03517        STL     ENDFLG                       SET EOJ SWITCH              IBD04110
03520        TRA     C1                           GO DUMP                     IBD04120
03521 NOTSET AXT     2*ENDDMP-1,1  NO , LOAD END LIMIT                        IBD04130
03522        SXA     RELHI,1       OF MID 3RD OF CORE AND STORE               IBD04140
03523        TRA     C1                           GO DUMP                     IBD04150
03524 UPDAT  NZT     SWSONE                                                   IBD04160
03525        TSX     TPSPAC,4,                                                IBD04170
03526        STL     SWSONE                                                   IBD04180
03527        NZT     SWSTWO                                                   IBD04190
03530        TSX     TPSPAC,4,2                                               IBD04200
03531        STL     SWSTWO                                                   IBD04210
03532        CAL*    NEWLIB                                                   IBD04220
03533        PDX     0,2                                                      IBD04230
03534        PAI                                                              IBD04240
03535        LNT     020000        TEST FOR 7909 DATA CHANNEL                 IBD04250
03536        TXI     ALBLT,2,16    OFF, MUST BE 729 SYSTAP                    IBD04260
03537        LFT     001000        TEST FOR NEED OR DISK                      IBD04270
03540        TRA     LDXR2         YES, RETURN                                IBD04280
03541        ARS     23            NO, BUILD HYPER FUNCTIONP                  IBD04290
03542        ANA     ONE                                                      IBD04300
03543        ORS     UCBSMS        SET SMS COMMAND                            IBD04310
03544        RIS     UNMSK         SET DRIVE NUMBER                           IBD04320
03545        OSI     HORDH         IN HYPER CONTROL ORDER                     IBD04330
03546        STI     UCBORD                                                   IBD04340
03547        CLA     TRABK                                                    IBD04350
03550        STD     HYPTRA                                                   IBD04360
03551        CLA     HBSR                                                     IBD04370
03552        STD     BKSPAC+1                                                 IBD04380
03553 ALBLT  SXA     UCBRDS,2                                                 IBD04390
03554 UCBCMP LAC     NEWLIB,2                                                 IBD04400
03555        ZET     1,2                                                      IBD04410
03556        TRA     *-1                                                      IBD04420
03557        CLA     ENDDMP+2,2                                               IBD04430
03560        SLW     HLDUCB                                                   IBD04440
03561        CAL     2,2                                                      IBD04450
03562        CAS     HLDUCB                                                   IBD04460
03563 TRABK  TRA     BKSPAC                                                   IBD04470
03564        TRA     LDXR2                                                    IBD04480
03565        CAL     SELADD                                                   IBD04490
03566        SLW     1,2                                                      IBD04500
03567        TSX     .ACTV,4                                               $6$IBD04510
03570        PZE     NEWLIB                                                   IBD04520
03571        TRA     UCBCMP                                                   IBD04530
03572 SELPLS SXA     UCBXR4,4                                                 IBD04540
03573        PAC     0,4                                                      IBD04550
03574        TMI     SELMIN                                                   IBD04560
03575        CLA     COMADD                                                   IBD04570
03576        STA*    .RCHX                                                 $6$IBD04580
03577 HYPTRA NOP     *+2                                                      IBD04590
03600 UCBRDS RDS     **                                                       IBD04600
03601        XEC*    .RCHX                                                 $6$IBD04610
03602 UCBXR4 AXT     **,4                                                     IBD04620
03603        TRA     1,4                                                      IBD04630
03604 SELMIN STZ     1,4                                                      IBD04640
03605        TRA     UCBXR4                                                   IBD04650
03606 BKSPAC TSX     .NDSEL,4                                              $6$IBD04660
03607        PZE     NEWLIB,,5     BACKSPACE RECORDS                          IBD04670
03610        NOP                                                              IBD04680
03611        TRA     UCBCMP                                                   IBD04690
03612 NEWCON PZE     ENDDMP                                                   IBD04700
03613 SELADD PZE     ,,SELPLS                                                 IBD04710
03614 UCBORD PZE                                                              IBD04720
03615 COMADD PZE     *+1                                                      IBD04730
03616        IORT    TEMP,,1                                                  IBD04740
03617        LIPT    *+1                                                      IBD04750
03620 UCBSMS SMS     6                                                        IBD04760
03621        CTLR    UCBORD                                                   IBD04770
03622        CPYD    TEMP,,1                                                  IBD04780
03623        TCH     SYSTWT                                                   IBD04790
03624 HLDUCB PZE                                                              IBD04800
03625 TSXTAB TSX     SYSDMP,4,0                   FULL CORE ASSBLY FORMAT     IBD04810
03626 PSUEDO PZE     -1                                                       IBD04820
03627 SNAP   MON                                                              IBD04830
03630 FORM   PZE     FORMAT                                                   IBD04840
03631 OTUNIT PZE                                                              IBD04850
03632 OCT20  OCT     000020000000                                             IBD04860
03633 ENDBUF PZE     ALTBUF+100                                               IBD04870
03634 FMTDMP PZE                                                              IBD04880
03635 RELLOW PZE                                                              IBD04890
03636 RELHI  PZE                                                              IBD04900
03637 LNTHLW PZE                                                              IBD04910
03640 SWSONE PZE                                                              IBD04920
03641        PZE     TAPBUF+100                                               IBD04930
03642 SWSTWO PZE                                                              IBD04940
03643 C1     CLA     FIRST                                                    IBD04950
03644        STA     LNTHLW                                                   IBD04960
03645        LXA     RELLOW,1                                                 IBD04970
03646        ZET     NFORM                                                    IBD04980
03647        TRA     REG                                                      IBD04990
03650        LXD     CORTP,2                                                  IBD05000
03651        TXI     *+1,2,-18                                                IBD05010
03652        STL     NTBCD                                                    IBD05020
03653        CLA     LIST+7                                                   IBD05030
03654        TXH     *+3,2,0                                                  IBD05040
03655        STZ     NTBCD                                                    IBD05050
03656        ADD     LIST+7                                                   IBD05060
03657        STO     EIGHT                                                    IBD05070
03660 C1P    CLA     LOWPRM                                                   IBD05080
03661        STO     FIRST                                                    IBD05090
03662        STA     TOFROM                                                   IBD05100
03663        CLA*    RELLOW                                                   IBD05110
03664        STO     TEMP                                                     IBD05120
03665        STZ     NFORM                                                    IBD05130
03666        SXA     LNTHLW,1                                                 IBD05140
03667 REG    SXA     RELLOW,1                                                 IBD05150
03670        CAL     TEMP                                                     IBD05160
03671        ERA*    RELLOW                                                   IBD05170
03672        TNZ     UNEQ                                                     IBD05180
03673        CLA     RELHI                                                    IBD05190
03674        CAS     RELLOW                                                   IBD05200
03675        TXI     REG,1,1                                                  IBD05210
03676        STL     ENDJB                                                    IBD05220
03677 UNEQ   LXA     LOWPRM,2                                                 IBD05230
03700        TXH     *+2,2,ENDDMP-1                                           IBD05240
03701        TXI     *+1,1,-ENDDMP                                            IBD05250
03702        PXA     0,1                                                      IBD05260
03703        SUB     FIRST                                                    IBD05270
03704        LRS     35                                                       IBD05280
03705        DVP     EIGHT                                                    IBD05290
03706        MPY     EIGHT                                                    IBD05300
03707        XCA                                                              IBD05310
03710        STL     NFORM                                                    IBD05320
03711        TNZ     *+6           TRANSFER IF EQUAL WDS.                     IBD05330
03712        ZET     ENDJB         OTHERWISE TEST ENDJB                       IBD05340
03713        ZET     ENDFLG        IF ON TEST ENDFLG                          IBD05350
03714        STZ     NFORM         IF OFF CARRY ON                            IBD05360
03715        STZ     ENDJB                                                    IBD05370
03716        ADD     EIGHT                                                    IBD05380
03717        ADD     FIRST                                                    IBD05390
03720        STA     LOWPRM                                                   IBD05400
03721        SUB     FIRST                                                    IBD05410
03722        ADD     LNTHLW                                                   IBD05420
03723        STA     RELLOW                                                   IBD05430
03724        STA     GET                                                      IBD05440
03725        LXA     LOWPRM,2                                                 IBD05450
03726        TXI     *+1,2,-1                                                 IBD05460
03727        SUB     RELHI                                                    IBD05470
03730        ZET     ENDJB                                                    IBD05480
03731        CLA     ONE                                                      IBD05490
03732        TMI     NOTEND                                                   IBD05500
03733        TZE     NOTEND                                                   IBD05510
03734        SUB     ONE                                                      IBD05520
03735        STA     ZROBUF                                                   IBD05530
03736        ZET     NTBCD                                                    IBD05540
03737        ALS     1                                                        IBD05550
03740        STA     CLEAR                                                    IBD05560
03741        STZ     ENDJB                                                    IBD05570
03742        ZET     ENDFLG                                                   IBD05580
03743        TRA     WRAPUP                                                   IBD05590
03744        CLA     NEWCON                                                   IBD05600
03745        ZET     NFORM                                                    IBD05610
03746        TRA     RVRSE-2       GO STORE NEW LOWPRM                        IBD05620
03747        STL     UNDONE                                                   IBD05630
03750        TRA     NOTEND                                                   IBD05640
03751 WRAPUP STL     ENDJB                                                    IBD05650
03752        ZET     NFORM                                                    IBD05660
03753        LXA     UPPRM,2                                                  IBD05670
03754 NOTEND SXD     TOFROM,2                                                 IBD05680
03755        LXA     EIGHT,2                                                  IBD05690
03756        CLA     TEMP                                                     IBD05700
03757        NZT     NFORM                                                    IBD05710
03760        CLA*    GET                                                      IBD05720
03761        STO     SET8+8,2                                                 IBD05730
03762        TIX     *-2,2,1                                                  IBD05740
03763 EDIT8  TSX     CLRBUF,4       CLEAR BUFFER AND INSERT ADDRESSES IN      IBD05750
03764        LDQ     TOFROM         OUTBUF AND EQUAL WORDS LINE.              IBD05760
03765        LGL     3                                                        IBD05770
03766        TSX     OCTED,4        CHANGE TO TWO WORDS OF OCTAL BCD          IBD05780
03767        ORA     SIXTY          BLANK TO AC 30-35                         IBD05790
03770        SLW     ALSME+3                                                  IBD05800
03771        LGR     6                                                        IBD05810
03772        STQ     ALSME+1                                                  IBD05820
03773        NZT     NFORM                                                    IBD05830
03774        STQ     OUTBUF                                                   IBD05840
03775        ZET     NTBCD          IS FORMAT BCD-                            IBD05850
03776        TRA     NOTHL                                                    IBD05860
03777 HOLL   AXT     6,4                                                      IBD05870
04000        CAL     ALSME+6,4                                                IBD05880
04001        SLW     OUTBUF+10,4                                              IBD05890
04002        TIX     *-2,4,1                                                  IBD05900
04003        AXT     16,2                                                     IBD05910
04004 HOLL1  CAL     SET8+8,2                                                 IBD05920
04005        SLW     SUBJ                                                     IBD05930
04006        TRA     SCAN                SCAN FOR RECORD MARKS AND ILLEGAL    IBD05940
04007 SCNRTN NZT     NFORM             CHARACTERS                             IBD05950
04010        TRA     *+3                                                      IBD05960
04011        STQ     OUTBUF+11                                                IBD05970
04012        TRA     LLNE                PRINT EQUAL WORDS LINE               IBD05980
04013        STQ     SET8+8,2                                                 IBD05990
04014        TIX     HOLL1,2,1                                                IBD06000
04015        NZT     ENDJB                                                    IBD06010
04016        TRA     *+6                                                      IBD06020
04017        CLA     BLANK                                                    IBD06030
04020 CLEAR  AXT     **,1                                                     IBD06040
04021        TXL     *+3,1,0                                                  IBD06050
04022        STO     SET8+8,1                                                 IBD06060
04023        TIX     *-1,1,1                                                  IBD06070
04024        AXT     16,2                                                     IBD06080
04025        AXT     20,4                                                     IBD06090
04026        CAL     SIXTY                                                    IBD06100
04027        AXT     30,1                                                     IBD06110
04030 INSLSH SXA     *+2,1                                                    IBD06120
04031        LDQ     SET8+8,2                                                 IBD06130
04032        LGL     **                                                       IBD06140
04033        SLW     OUTBUF+21,4                                              IBD06150
04034        LGL     36,1                                                     IBD06160
04035        TNX     LSWD,2,1                                                 IBD06170
04036        TXI     *+1,4,-1                                                 IBD06180
04037        TXH     *+4,1,0                                                  IBD06190
04040        SLW     OUTBUF+21,4                                              IBD06200
04041        AXT     36,1                                                     IBD06210
04042        TXI     *+1,4,-1                                                 IBD06220
04043        ALS     6                                                        IBD06230
04044        ORA     SIXTY                                                    IBD06240
04045        TXI     INSLSH,1,-6                                              IBD06250
04046 LSWD   LDQ     BLANK                                                    IBD06260
04047        LGL     12                                                       IBD06270
04050        SLW     OUTBUF+19                                                IBD06280
04051        TRA     LLNE                                                     IBD06290
04052 NOTHL  STL     SQEDT                                                   HIBD06300
04053        STZ     TWOLIN                                                   IBD06310
04054        STZ     SQEZY                                                    IBD06320
04055        STZ     NTBLK                                                    IBD06330
04056        LXD     CORTP,1                                                  IBD06340
04057        TXH     NOTHL1,1,19                                              IBD06350
04060        STL     TWOLIN                                                   IBD06360
04061        TXL     SECND,1,18                                               IBD06370
04062        STZ     SQEDT                                                    IBD06380
04063 NOTHL1 TXL     SECND,1,20                                               IBD06390
04064        STL     SQEZY                                                    IBD06400
04065        TXL     SECND,1,21                                               IBD06410
04066        STL     NTBLK                                                    IBD06420
04067 SECND  AXT     8,1                 INITIALIZE COUNTS                    IBD06430
04070        AXT     16,2                                                     IBD06440
04071 LDMQ   LDQ     SET8+8,1                                                 IBD06450
04072        STQ     SUBJ                                                     IBD06460
04073        SXA     RETURN,1            SAVE INDEX REGISTER 1 AND RESTORE    IBD06470
04074        STZ     SWT1              FLAGS IN MNEMONIC SEARCH ROUTINE       IBD06480
04075        STZ     SWT2                                                     IBD06490
04076        STZ     SWT3                                                     IBD06500
04077        STZ     SWT4                                                     IBD06510
04100        STZ     PLUS                                                     IBD06520
04101        ZET     SQEDT          IF NON-ZERO, OCTAL LINE REQUIRED          IBD06530
04102        TRA     NOOP                                                     IBD06540
04103        TSX     OCTED,4        CHANGE MQ WORD TO OCTAL BCD               IBD06550
04104        STQ     TEMP                                                     IBD06560
04105        STQ     ADDR                                                     IBD06570
04106        CLA     LOCN                                                     IBD06580
04107        STA     ADSFT                                                    IBD06590
04110        ARS     18                                                       IBD06600
04111        STA     BINLK                                                    IBD06610
04112        PXA     0,0                                                      IBD06620
04113        CAL     MSK10                                                    IBD06630
04114        ANS     ADDR                                                     IBD06640
04115        CLA     OCT                                                      IBD06650
04116        ARS     30                                                       IBD06660
04117        TZE     SEEK                                                     IBD06670
04120        SUB     FIVE                                                     IBD06680
04121        TZE     SEEK                                                     IBD06690
04122        ADD     ONE                                                      IBD06700
04123        TNZ     XRINST                                                   IBD06710
04124  SEEK  CAL     SUBJ                                                     IBD06720
04125        LGR     24                                                       IBD06730
04126        SLW     INSWD                                                    IBD06740
04127        AXT     9,1                                                      IBD06750
04130        CAL     TABLE+9,1                                                IBD06760
04131        LGR     24                                                       IBD06770
04132        ERA     INSWD                                                    IBD06780
04133        TZE     FOUND                                                    IBD06790
04134        TIX     *-4,1,1                                                  IBD06800
04135        LDI     FSTMID                                                   IBD06810
04136        CAL     TABLE+71                                                 IBD06820
04137        LGR     24                                                       IBD06830
04140        SUB     INSWD                                                    IBD06840
04141        TPL     BINLK-1                                                  IBD06850
04142        LDI     2NDMID                                                   IBD06860
04143        CAL     TABLE+134                                                IBD06870
04144        LGR     24                                                       IBD06880
04145        SUB     INSWD                                                    IBD06890
04146        TMI     BINLK                                                    IBD06900
04147        STI     *+1                                                      IBD06910
04150 BINLK  CAL     TABLE+166                                                IBD06920
04151        LGR     24                                                       IBD06930
04152        LAS     INSWD                                                    IBD06940
04153        TRA     GTR                                                      IBD06950
04154        TRA     FOUND               BINARY SEARCH OF MNEMONIC TABLE      IBD06960
04155        CLA     BINLK                                                    IBD06970
04156        SUB     ADSFT                                                    IBD06980
04157        TRA     SHIFT                                                    IBD06990
04160  GTR   CLA     BINLK                                                    IBD07000
04161        ADD     ADSFT                                                    IBD07010
04162  SHIFT STO     BINLK                                                    IBD07020
04163        CLA     ADSFT                                                    IBD07030
04164        TZE     NOTFND                                                   IBD07040
04165        ARS     1                                                        IBD07050
04166        STO     ADSFT                                                    IBD07060
04167        TRA     BINLK                                                    IBD07070
04170  FOUND LGL     24                                                       IBD07080
04171        LDQ     BLANK                                                    IBD07090
04172        STQ     WORD2                                                    IBD07100
04173        LGL     12                                                       IBD07110
04174        SLW     WORD1                                                    IBD07120
04175        LGR     15                                                       IBD07130
04176        LBT                         LOOK FOR SPECIAL CASE FLAG           IBD07140
04177        TRA     ISMNEM                                                   IBD07150
04200        ARS     1                                                        IBD07160
04201        COM                                                              IBD07170
04202        LBT                                                              IBD07180
04203        TRA     ISMNEM                                                   IBD07190
04204        PXA     0,0                 PRESENT.                             IBD07200
04205        LGL     3                      BLANK OUT SPECIAL CASE FLAG AND   IBD07210
04206        PAC     0,1                    TRANSFER TO APPROPRIATE ROUTINE   IBD07220
04207        CAL     SIXTY                                                    IBD07230
04210        STQ     SAVE1                                                    IBD07240
04211        LDQ     WORD1                                                    IBD07250
04212        RQL     24                                                       IBD07260
04213        LGR     6                                                        IBD07270
04214        RQL     18                                                       IBD07280
04215        STQ     WORD1                                                    IBD07290
04216        LDQ     SAVE1                                                    IBD07300
04217        NZT     SQEZY                                                    IBD07310
04220        TRA*    SPCL,1                                                   IBD07320
04221        TXH     NTBLKL,1,-2                                              IBD07330
04222        TXH     *-2,1,-5                                                 IBD07340
04223 NTSNSE ZET     SQEZY                                                    IBD07350
04224        TRA     NTBLKL                                                   IBD07360
04225  NOOP  CAL     SUBJ                NO MNEMONIC FOUND, OR OCTAL EDIT     IBD07370
04226        XCA                                                              IBD07380
04227        TSX     OCTED,4                                                  IBD07390
04230        SSM                    SET AC NEGATIVE TO INDICATE OCTAL         IBD07400
04231        ZET     SQEDT                                                    IBD07410
04232        TRA     RETURN              IF OCTAL REQUIRED, THEN EDIT COMPLETEIBD07420
04233        TRA     IFBOTH                 ROUTINE, OTHERWISE TEST AC SIGN.  IBD07430
04234 XRINST NZT     SQEZY                                                    IBD07440
04235        TRA     NOOP                                                     IBD07450
04236        PAX     0,1                                                      IBD07460
04237        LDQ     XRWD+3,1                                                 IBD07470
04240        TPL     *+2                                                      IBD07480
04241        RQL     18                                                       IBD07490
04242        LGL     18                                                       IBD07500
04243        LDQ     BLANK                                                    IBD07510
04244        LGL     18                                                       IBD07520
04245        TRA     NTBLKL-1                                                 IBD07530
04246 ISMNEM NZT     SQEZY                                                    IBD07540
04247        TRA     NORM                                                     IBD07550
04250        PXA     0,0                                                      IBD07560
04251        LDQ     OCT                                                      IBD07570
04252        RQL     24                                                       IBD07580
04253        LGL     6                                                        IBD07590
04254        LDQ     BLANK                                                    IBD07600
04255        SUB     SIX                                                      IBD07610
04256        TMI     NTBLKL                                                   IBD07620
04257        CAL     MSK5          INSERT * IN WORD 1                         IBD07630
04260        ANS     WORD1                                                    IBD07640
04261        CAL     ASTER                                                    IBD07650
04262        ORS     WORD1                                                    IBD07660
04263        TRA     NTBLKL                                                   IBD07670
04264 TYPE0  STL     SWT1                                                     IBD07680
04265  NORM  PXA     0,0                                                      IBD07690
04266        CAL     OCT           TYPE 4 MAY HAVE NON ZERO LOW ORDER         IBD07700
04267        ANA     MSK3                                                     IBD07710
04270        TNZ     NOOP                   DIGIT SHOULD BE ZERO              IBD07720
04271        CAL     OCT                                                      IBD07730
04272        ANA     MSK8                                                     IBD07740
04273        TZE     NOFLG                                                    IBD07750
04274        ZET     SWT1                                                     IBD07760
04275        TRA     NOOP                                                     IBD07770
04276        ARS     6                                                        IBD07780
04277        SUB     SIX                                                      IBD07790
04300        TNZ     NOOP                                                     IBD07800
04301        CAL     MSK5          INSERT * IN WORD1                          IBD07810
04302        ANS     WORD1                                                    IBD07820
04303        CAL     ASTER                                                    IBD07830
04304        ORS     WORD1                                                    IBD07840
04305 NOFLG  PXA     0,0                                                      IBD07850
04306        LDQ     TEMP                                                     IBD07860
04307        LGL     6                                                        IBD07870
04310        LDQ     BLANK                                                    IBD07880
04311        TZE     NODRES                                                   IBD07890
04312        LGR     6             INSERT  ,T IF NON ZERO                     IBD07900
04313        CAL     COMMA                                                    IBD07910
04314        LGR     6                                                        IBD07920
04315        CAL     MSK7                                                     IBD07930
04316        ANS     WORD2                                                    IBD07940
04317        LGL     12                                                       IBD07950
04320        ORS     WORD2                                                    IBD07960
04321        LGR     12                                                       IBD07970
04322 NODRES ZET     SWT4           NO ADDRESS FOR TYPES 2 AND 3              IBD07980
04323        TRA     RET                                                      IBD07990
      *      INSERT ADDRESS WITH LEADING ZEROS SUPPRESSED                     IBD08000
04324        CAL     ADDR                                                     IBD08010
04325        LGR     24                                                       IBD08020
04326        TZE     PLS22                                                    IBD08030
04327        LDI     WORD1                                                    IBD08040
04330        RIS     MSK3                                                     IBD08050
04331        OAI                                                              IBD08060
04332        STI     WORD1                                                    IBD08070
04333        TRA     SHSTO                                                    IBD08080
04334 PLS22  PXA     0,0                                                      IBD08090
04335        AXT     4,4                                                      IBD08100
04336        LGL     6                                                        IBD08110
04337        TNZ     ROTAT                                                    IBD08120
04340        CAL     BLNK1                                                    IBD08130
04341        LGR     6                                                        IBD08140
04342        RQL     6                                                        IBD08150
04343        TIX     *-5,4,1                                                  IBD08160
04344        TRA     SHSTO                                                    IBD08170
04345 ROTAT  LGR     6                                                        IBD08180
04346        RQL     6                                                        IBD08190
04347        TIX     *-1,4,1                                                  IBD08200
04350        RQL     12                                                       IBD08210
04351 SHSTO  STQ     WORD2                                                    IBD08220
04352  RET   CAL     WORD1               PLACE EDITED WORDS IN AC AND MQ READYIBD08230
04353        LDQ     WORD2                  FOR STORING IN PRNBUF             IBD08240
04354 IFBOTH LXD     CORTP,1                                                  IBD08250
04355        TXL     RETURN,1,19                                              IBD08260
04356        TPL     RETURN                                                   IBD08270
04357        TRA     *+3                                                      IBD08280
04360 NOTFND NZT     SQEZY                                                    IBD08290
04361        TRA     NOOP                                                     IBD08300
04362        CAL     BLANK                                                    IBD08310
04363        SLW     WORD1                                                    IBD08320
04364 NTBLKL ZET     NTBLK          SCAN FOR ILLEGAL CHARACTERS, RECORD       IBD08330
04365        TRA     SCAN              MARKS                                  IBD08340
04366        LDQ     BLANK                  MARKS                             IBD08350
04367        TRA     RETURN-1                                                 IBD08360
04370 TYPE1  ARS     6                                                        IBD08370
04371        LDQ     OCT                                                      IBD08380
04372        RQL     24                                                       IBD08390
04373        LGL     6                                                        IBD08400
04374        LDQ     BLANK                                                    IBD08410
04375        ZET     SQEZY                                                    IBD08420
04376        TRA     RET                                                      IBD08430
04377        TZE     PL3                                                      IBD08440
04400        STO     SAVE                                                     IBD08450
04401        STQ     SAVE1                                                    IBD08460
04402        LDQ     WORD1                                                    IBD08470
04403        RQL     30                                                       IBD08480
04404        LGR     6                                                        IBD08490
04405        RQL     12                                                       IBD08500
04406        STQ     WORD1                                                    IBD08510
04407        CLA     SAVE                                                     IBD08520
04410        LDQ     SAVE1                                                    IBD08530
04411        ALS     6                                                        IBD08540
04412 PL3    STQ     SAVE                                                     IBD08550
04413        ARS     6                                                        IBD08560
04414        LDQ     OCT                                                      IBD08570
04415        RQL     30                                                       IBD08580
04416        LGL     6                                                        IBD08590
04417        LDQ     SAVE                                                     IBD08600
04420        TZE     PL5                                                      IBD08610
04421        STO     SAVE                                                     IBD08620
04422        STQ     SAVE1                                                    IBD08630
04423        LDQ     WORD1                                                    IBD08640
04424        LGR     6                                                        IBD08650
04425        RQL     6                                                        IBD08660
04426        STQ     WORD1                                                    IBD08670
04427        CLA     SAVE                                                     IBD08680
04430        LDQ     SAVE1                                                    IBD08690
04431        CAL     TEMP                                                     IBD08700
04432        SLW     WORD2                                                    IBD08710
04433        TRA     RET                                                      IBD08720
04434 PL5    LDQ     TEMP                                                     IBD08730
04435        PXA     0,0                                                      IBD08740
04436        AXT     6,1                                                      IBD08750
04437        LGL     6                                                        IBD08760
04440        TNZ     ADJST                                                    IBD08770
04441        CAL     BLNK1                                                    IBD08780
04442        LGR     6                                                        IBD08790
04443        RQL     6                                                        IBD08800
04444        TIX     *-5,1,1                                                  IBD08810
04445        TRA     STMQ                                                     IBD08820
04446 ADJST  LGR     6                                                        IBD08830
04447        RQL     6                                                        IBD08840
04450        TIX     *-1,1,1                                                  IBD08850
04451 STMQ   STQ     WORD2                                                    IBD08860
04452        TRA     RET                                                      IBD08870
04453 TYPE2  AXT     8,1                                                      IBD08880
04454        LDI     MSEWD+8,1                                                IBD08890
04455        CAL     ADDR                                                     IBD08900
04456        ERA     LIST+8,1                                                 IBD08910
04457        TZE     FND                                                      IBD08920
04460        TIX     *-4,1,1                                                  IBD08930
04461        CAL     ADDR                                                     IBD08940
04462        LGR     6                                                        IBD08950
04463        RQL     18                                                       IBD08960
04464        SUB     LIST+10                                                  IBD08970
04465        LDI     MSEWD+10                                                 IBD08980
04466        TZE     FND-1                                                    IBD08990
04467        SUB     LIST+1                                                   IBD09000
04470        LDI     MSEWD+8                                                  IBD09010
04471        TZE     FND                                                      IBD09020
04472        LDI     MSEWD+9                                                  IBD09030
04473        STL     SWT2                                                     IBD09040
04474        TRA     TRYCHN                                                   IBD09050
04475 TYPE3  CLA     ADDR                                                     IBD09060
04476        LDI     PSEWD+12                                                 IBD09070
04477        TZE     FND                                                      IBD09080
04500        AXT     12,1                                                     IBD09090
04501        CAL     ADDR                                                     IBD09100
04502        LDI     PSEWD+12,1                                               IBD09110
04503        ERA     LIST+12,1                                                IBD09120
04504        TZE     FND                                                      IBD09130
04505        TIX     *-4,1,1                                                  IBD09140
04506        CAL     ADDR                                                     IBD09150
04507        LGR     6                                                        IBD09160
04510        RQL     18                                                       IBD09170
04511        SUB     LIST+10                                                  IBD09180
04512        TNZ     *+7                                                      IBD09190
04513        CAL     ADDR                                                     IBD09200
04514        ANA     LIST+6                                                   IBD09210
04515        LDI     PSEWD+13                                                 IBD09220
04516        TNZ     FND-1                                                    IBD09230
04517        LDI     PSEWD+14                                                 IBD09240
04520        TRA     FND                                                      IBD09250
04521        SUB     LIST+1                                                   IBD09260
04522        LDI     PSEWD+16                                                 IBD09270
04523        TNZ     TRYCHN                                                   IBD09280
04524        LDI     PSEWD+15                                                 IBD09290
04525        STQ     WORD2                                                    IBD09300
04526 FND    STI     WORD1                                                    IBD09310
04527        ZET     SQEZY                                                    IBD09320
04530        TRA     NTBLKL                                                   IBD09330
04531        ZAC                                                              IBD09340
04532        STL     SWT4                                                     IBD09350
04533        TRA     NOFLG                                                    IBD09360
04534 TRYCHN CAL     SUBJ                                                     IBD09370
04535        LGR     9                                                        IBD09380
04536        ANA     SVNTY7                                                   IBD09390
04537        LAS     LIST+7                                                   IBD09400
04540        TRA     NTSNSE                                                   IBD09410
04541        NOP                                                              IBD09420
04542        TZE     NTSNSE                                                   IBD09430
04543        ZAC                                                              IBD09440
04544        LGL     9                                                        IBD09450
04545        TZE     CHNOP                                                    IBD09460
04546        ZET     SWT2                                                     IBD09470
04547        TRA     NTSNSE                                                   IBD09480
04550        SUB     LIST+12                                                  IBD09490
04551        LDI     PSEWD+17                                                 IBD09500
04552        TZE     CHNOP                                                    IBD09510
04553        LDI     PSEWD+18                                                 IBD09520
04554        SUB     LIST+1                                                   IBD09530
04555        TNZ     NTSNSE                                                   IBD09540
04556 CHNOP  CAL     SUBJ                                                     IBD09550
04557        LDQ     BLANK                                                    IBD09560
04560        ARS     9                                                        IBD09570
04561        ANA     SVNTY7                                                   IBD09580
04562        ADD     TWENTY                                                   IBD09590
04563        LGR     6                                                        IBD09600
04564        PIA                                                              IBD09610
04565        ARS     18                                                       IBD09620
04566        LGL     18                                                       IBD09630
04567        PAI                                                              IBD09640
04570        TRA     FND                                                      IBD09650
04571 TYPE7  CAL     SUBJ                                                     IBD09660
04572        ARS     9                                                        IBD09670
04573        ANA     SVNTY7                                                   IBD09680
04574        LAS     LIST+7                                                   IBD09690
04575        TRA     NOOP                                                     IBD09700
04576        TRA     *+2                                                      IBD09710
04577        TZE     NOOP                                                     IBD09720
04600        ADD     TWENTY                                                   IBD09730
04601        LDI     WORD1                                                    IBD09740
04602        RIS     MSK6                                                     IBD09750
04603        ALS     12                                                       IBD09760
04604        OAI                                                              IBD09770
04605        STI     WORD1                                                    IBD09780
04606        CAL     MSK9                                                     IBD09790
04607        ANS     ADDR                                                     IBD09800
04610        TRA     NOFLG                                                    IBD09810
04611 OCTED  AXT     6,1            CREATES TWO OCTAL BCD WORDS IN            IBD09820
04612        ALS     3                 COMBINED AC-MQ FROM MQ WORD            IBD09830
04613        LGL     3                                                        IBD09840
04614        TIX     *-2,1,1                                                  IBD09850
04615        SLW     OCT                                                      IBD09860
04616        AXT     6,1                                                      IBD09870
04617        ALS     3                                                        IBD09880
04620        LGL     3                                                        IBD09890
04621        TIX     *-2,1,1                                                  IBD09900
04622        XCL                                                              IBD09910
04623        CAL     OCT                                                      IBD09920
04624        TRA     1,4                                                      IBD09930
      SQEZY  MON                                                              IBD09940
      SQEDT  PZE                                                              IBD09950
      SWT1   PZE                                                              IBD09960
      SWT2   PZE                                                              IBD09970
      SWT3   PZE                                                              IBD09980
      SWT4   PZE                                                              IBD09990
      PLUS   PZE                                                              IBD10000
      SWT5   PZE                                                              IBD10010
      TAP729 PZE                                                              IBD10020
      PRNTSW PZE                                                              IBD10030
      NTBLK  PZE                                                              IBD10040
      MASK1  OCT     777777777717                                             IBD10050
      XRWD   BCI     3,TXLTXITNXTIX   TXH                                     IBD10060
       OCT   PZE                                                              IBD10070
      TEMP   PZE     ,,1                                                      IBD10080
       ADDR  PZE                                                              IBD10090
       WORD1 PZE                                                              IBD10100
       WORD2 PZE                                                              IBD10110
       INSWD PZE                                                              IBD10120
       SUBJ  PZE                                                              IBD10130
      ADSFT  PZE     16                                                       IBD10140
      MSK8   OCT     7700                                                     IBD10150
      ASTER  OCT     5400                                                     IBD10160
      MSK9   OCT     777777                                                   IBD10170
      MSK6   OCT     770000                                                   IBD10180
      MSK10  OCT     007777777777                                             IBD10190
      BLNK1  BCI     1,00000                                                  IBD10200
      SAVE1  PZE                                                              IBD10210
      MASK11 OCT     17                                                       IBD10220
       MSK1  OCT     777777007777                                             IBD10230
       THRTN OCT     13                                                       IBD10240
      FFTEEN OCT     15                                                       IBD10250
      MSK3   OCT     000000000077                                             IBD10260
      MSK5   OCT     777777770077                                             IBD10270
      MSK4   OCT     007700000000                                             IBD10280
      MSK7   OCT     777777770000                                             IBD10290
      FSTMID CAL     TABLE+40                                                 IBD10300
      2NDMID CAL     TABLE+103                                                IBD10310
       SPCL  PZE     TYPE0                                                    IBD10320
             PZE     TYPE1                                                    IBD10330
             PZE     TYPE2                                                    IBD10340
             PZE     TYPE3                                                    IBD10350
       SIXTY OCT     60                                                       IBD10360
             PZE                                                              IBD10370
      LOCN   PZE     16,,TABLE+166                                            IBD10380
             PZE     TYPE7                                                    IBD10390
      ONE    OCT     1,2,3,4,5,6,7,10,101,102,104,106,350                     IBD10400
      PSEWD  BCI     9,LBT   CHS   SSP   ENK   IOT   COM   ETM   RND   FRN    IBD10410
             BCI     9,DCT   RCT   LMTM  CLM   SLN   SLF   SWT   BTT   RIC    IBD10420
             BCI     1,RDC                                                    IBD10430
      MSEWD  BCI     9,PBT   EFTM  SSM   LFTM  ESTM  ECTM  LTM   LSNM  EMTM   IBD10440
             BCI     2,ETT   SLT                                              IBD10450
                                                                              IBD10460
      RCDMRK OCT     72                                                       IBD10470
       SCAN  AXT     6,1                                                      IBD10480
             LDQ     SUBJ                                                     IBD10490
             ZAC                                                              IBD10500
             LGL     6                                                        IBD10510
             CAS     RCDMRK                                                   IBD10520
             TRA     *+2                                                      IBD10530
             CLA     THRTN                                                    IBD10540
             STO     TEMP                                                     IBD10550
             ANA     MASK11                                                   IBD10560
             SUB     FFTEEN                                                   IBD10570
             TMI     *+4                                                      IBD10580
             CLA     ASTER                                                    IBD10590
             ARS     6                                                        IBD10600
             STO     TEMP                                                     IBD10610
             CLA     TEMP                                                     IBD10620
             LGR     6                                                        IBD10630
             RQL     6                                                        IBD10640
             TIX     SCAN+2,1,1                                               IBD10650
             NZT     NTBCD                                                    IBD10660
             TRA     SCNRTN                                                   IBD10670
             CAL     WORD1                                                    IBD10680
05006 RETURN AXT     **,1                RESTORE XR1                          IBD10690
05007        SLW     PRNBUF+16,2         STORE EDIT ROUTINE OUTPUT IN PRNBUF  IBD10700
05010        STQ     PRNBUF+17,2                                              IBD10710
05011        ZET     SQEDT                                                    IBD10720
05012        TRA     DECXR2                                                   IBD10730
05013        NZT     SQEZY                                                    IBD10740
05014        TMI     DECXR2                                                   IBD10750
05015        STZ     SET8+8,1            RESET SIGN IN BUFFER IF NOT REQUIRED IBD10760
05016 DECXR2 TXI     *+1,2,-2          IN OUTBUF                              IBD10770
05017        NZT     NFORM                                                    IBD10780
05020        TIX     LDMQ,1,1            RETURN TO EDIT NEXT WORD             IBD10790
05021        NZT     ENDJB          WHEN PRNBUF FULL TEST ENDJB. IF           IBD10800
05022        TRA     ZROBUF+3           NON-ZERO BLANK REQUIRED               IBD10810
05023        LXA     CLEAR,1                NUMBER OF WORDS                   IBD10820
05024        TXL     ZROBUF+3,1,0                                             IBD10830
05025        CAL     BLANK                                                    IBD10840
05026        SLW     PRNBUF+16,1                                              IBD10850
05027        TIX     *-1,1,1                                                  IBD10860
05030 ZROBUF AXT     **,1                                                     IBD10870
05031        STZ     SET8+8,1                                                 IBD10880
05032        TIX     *-1,1,1                                                  IBD10890
05033        AXT     8,2                                                      IBD10900
05034        SXA     AXTXR,2                                                  IBD10910
05035        CLA     2BLKS          ROUTINE TO INSERT TWO BLANKS BETWEEN      IBD10920
05036        AXT     16,2              EACH PAIR OF OCTAL BCD WORDS AND       IBD10930
05037        AXT     18,1              CREATE A 120 CHARACTER PRINT LINE      IBD10940
05040        AXT     12,4                                                     IBD10950
05041  STXR  SXA     LGL1,4                                                   IBD10960
05042        LDQ     PRNBUF+16,2                                              IBD10970
05043        SXA     AXTXR2,2                                                 IBD10980
05044 AXTXR  AXT     **,2                                                     IBD10990
05045        LDI     SET8+8,2                                                 IBD11000
05046        LFT     400000                                                   IBD11010
05047        SUB     TWENTY                                                   IBD11020
05050        TXI     *+1,2,-1                                                 IBD11030
05051        SXA     AXTXR,2                                                  IBD11040
05052 AXTXR2 AXT     **,2                                                     IBD11050
05053        LGL     36,4                                                     IBD11060
05054        SLW     PRNBUF+14,1                                              IBD11070
05055  LGL1  LGL     **                                                       IBD11080
05056        LDQ     PRNBUF+17,2                                              IBD11090
05057        LGL     36,4                                                     IBD11100
05060        SLW     PRNBUF+15,1                                              IBD11110
05061        XEC     LGL1                                                     IBD11120
05062        TXI     *+1,4,12                                                 IBD11130
05063        TXL     *+4,4,36                                                 IBD11140
05064        SLW     PRNBUF+16,1                                              IBD11150
05065        AXT     12,4                                                     IBD11160
05066        TXI     *+1,1,-1                                                 IBD11170
05067        TXI     *+1,1,-2                                                 IBD11180
05070        ALS     12                                                       IBD11190
05071        ORA     2BLKS                                                    IBD11200
05072        TIX     STXR,2,2                                                 IBD11210
05073        SLW     PRNBUF+14                                                IBD11220
05074        ZET     JSWT                                                     IBD11230
05075        TRA     JRTRN                                                    IBD11240
05076        NZT     NOTNM                                                    IBD11250
05077        TSX     CLRBUF,4       CLEAR OUTBUF                              IBD11260
05100        ZET     NFORM                                                    IBD11270
05101        TRA     NOTNML                                                   IBD11280
05102        AXT     20,4                                                     IBD11290
05103        CAL     ALSME+26,4                                               IBD11300
05104        SLW     OUTBUF+21,4                                              IBD11310
05105        TIX     *-2,4,1                                                  IBD11320
05106        TRA     LLNE                                                     IBD11330
05107 NOTNML ZET     NOTNM                                                    IBD11340
05110        TRA     MOVMES                                                   IBD11350
05111        AXT     3,4            MOVE WORDS FROM PRNBUF TO OUTBUF          IBD11360
05112        CAL     ALSME+9,4                                                IBD11370
05113        SLW     OUTBUF+13,4                                              IBD11380
05114        TIX     *-2,4,1                                                  IBD11390
05115        TRA     MOVMES+4                                                 IBD11400
05116 MOVMES AXT     9,4                                                      IBD11410
05117        CAL     ALSME+9,4                                                IBD11420
05120        SLW     OUTBUF+13,4                                              IBD11430
05121        TIX     *-2,4,1                                                  IBD11440
05122        LDQ     BLANK                                                    IBD11450
05123        ARS     24                                                       IBD11460
05124        LGL     24                                                       IBD11470
05125        SLW     OUTBUF+12                                                IBD11480
05126 LLNE   TSX     PRINT,4                                                  IBD11490
05127        ZET     TWOLIN         IF ZERO THE CONTENTS OF THE BUFFER        IBD11500
05130        TRA     FIN               ARE TO BE EDITED A SECOND              IBD11510
05131        STL     TWOLIN            TIME IN A DIFFERENT FORMAT             IBD11520
05132        STZ     SQEDT                                                    IBD11530
05133        STZ     NOTNM                                                    IBD11540
05134        TRA     SECND                                                    IBD11550
05135 FIN    STL     NOTNM                                                    IBD11560
05136        LXA     RELLOW,1                                                 IBD11570
05137        CLA     UNDONE                                                   IBD11580
05140        STZ     UNDONE                                                   IBD11590
05141        TNZ     ENTRYB                                                   IBD11600
05142        NZT     ENDJB                                                    IBD11610
05143        TRA     C1P            RETURN TO EDIT NEXT LINE                  IBD11620
05144        TRA     SNKOFF                                                   IBD11630
05145 NTBCD  MON                                                              IBD11640
05146 NFORM  PZE                                                              IBD11650
05147 NOTNM  MON                                                              IBD11660
05150 TWOLIN MON                                                              IBD11670
05151 CLRBUF AXT     21,1           BLANK BUFFER FOR PRINT LINE               IBD11680
05152        CLA     BLANK                                                    IBD11690
05153        STO     OUTBUF+21,1                                              IBD11700
05154        TIX     *-1,1,1                                                  IBD11710
05155        TRA     1,4                                                      IBD11720
05156 UNDONE PZE                                                              IBD11730
05157 LOWPRM PZE                                                              IBD11740
05160 UPPRM  PZE     0                                                        IBD11750
05161  EIGHT DEC     8                                                        IBD11760
05162 FIRST  PZE                                                              IBD11770
05163  2BLKS OCT     6060                                                     IBD11780
05164  ENDJB PZE                                                              IBD11790
05165 TOFROM PZE                                                              IBD11800
05166  GET   OCT     000000200000                                             IBD11810
05167 TWENTY OCT     20                                                       IBD11820
05170 SVNTY7 OCT     77                                                       IBD11830
                                                                              IBD11840
05171 PRNOUT ZAC                                                              IBD11850
05172        LDQ     OUTBUF                                                   IBD11860
05173        LGL     6                                                        IBD11870
05174        LDQ     PRNCON                                                   IBD11880
05175        CAS     ONECON                                                   IBD11890
05176        LGL     8                                                        IBD11900
05177        TRA     *+2                                                      IBD11910
05200        XCA                                                              IBD11920
05201        STQ     G1OUT-3                                                  IBD11930
05202        LDQ     OUTBUF                                                   IBD11940
05203        LGL     6                                                        IBD11950
05204        CLA     BLANK                                                    IBD11960
05205        LGR     6                                                        IBD11970
05206        STQ     OUTBUF                                                   IBD11980
05207        TSX     PROUT,4                                               $6$IBD11990
05210        PZE     3                                                        IBD12000
05211        PZE     0,,**                                                    IBD12010
05212        PZE     OUTBUF,,12+512*9                                         IBD12020
05213        PZE     OUTBUF+12,,8                                             IBD12030
05214 G1OUT  AXT     **,1                                                     IBD12040
05215 G2OUT  AXT     **,2                                                     IBD12050
05216 G4OUT  AXT     **,4                                                     IBD12060
05217        TRA     1,4                                                      IBD12070
05220 PRNCON OCT     001000000000                                             IBD12080
05221  PRINT SXA     G1OUT,1                                                  IBD12090
05222        SXA     G2OUT,2                                                  IBD12100
05223        SXA     G4OUT,4                                                  IBD12110
05224 LNCT2  AXT     58,2                                                     IBD12120
05225        TXI     *+1,2,DBLSPC+1                                           IBD12130
05226        NZT     TWOLIN                                                   IBD12140
05227        TRA     SET                IF NOT, IT IS FIRST LINE OF TWO       IBD12150
05230        ZET     LATCH                                                    IBD12160
05231        TRA     SET+1                                                    IBD12170
05232        STL     LATCH                                                    IBD12180
05233        TXI     BUFTST,2,-DBLSPC                                         IBD12190
05234  SET   STZ     LATCH              FIRST LINE OF TWO                     IBD12200
05235        CAL     SIXTY+DBLSPC                                             IBD12210
05236        LDQ     OUTBUF                                                   IBD12220
05237        RQL     6                                                        IBD12230
05240        TXL     *+4,2,57                                                 IBD12240
05241        ZAC                                                              IBD12250
05242        ADD     ONE                                                      IBD12260
05243        AXT     1,2                                                      IBD12270
05244        LGL     30                                                       IBD12280
05245        SLW     OUTBUF                                                   IBD12290
05246 BUFTST SXA     LNCT2,2                                                  IBD12300
05247 PRNTST ZET     TAP729                                                   IBD12310
05250        TRA     TAPOUT                                                   IBD12320
05251        TRA     PRNOUT                                                   IBD12330
05252 TAPOUT AXT     20,2                                                     IBD12340
05253 BUFCNT AXT     100,1                                                    IBD12350
05254        CAL     OUTBUF+20,2                                              IBD12360
05255 STLSWD SLW     TAPBUF+100,1                                             IBD12370
05256        TXI     *+1,1,-1                                                 IBD12380
05257        TIX     *-3,2,1                                                  IBD12390
05260        SXA     BUFCNT,1                                                 IBD12400
05261        ADD     TEN                                                      IBD12410
05262        TXL     WRTP,1,0                                                 IBD12420
05263        TXI     *+1,1,1                                                  IBD12430
05264        XEC     STLSWD                                                   IBD12440
05265        ZET     ENDJB                                                    IBD12450
05266        NZT     TWOLIN                                                   IBD12460
05267        TRA     CHKPRN                                                   IBD12470
05270        SUB     TEN                                                      IBD12480
05271        XEC     STLSWD                                                   IBD12490
05272  WRTP  LAC     BUFCNT,2                                                 IBD12500
05273        TXI     *+1,2,100                                                IBD12510
05274        PXD     0,2                                                      IBD12520
05275        AXT     100,2                                                    IBD12530
05276        SXA     BUFCNT,2                                                 IBD12540
05277 FLPBUF AXT     6,2                                                      IBD12550
05300        TIX     *+2,2,6                                                  IBD12560
05301        TXI     *+1,2,6                                                  IBD12570
05302        SXA     FLPBUF,2                                                 IBD12580
05303        STD     TPOUT+12,2                                               IBD12590
05304        STD     TPOUT+16,2                                               IBD12600
05305        CLA     ENDBUF+12,2                                              IBD12610
05306        STA     STLSWD                                                   IBD12620
05307        CLA     TPADD+12,2                                               IBD12630
05310        STA     SELECT+1                                                 IBD12640
05311 WTDO   NZT     XIOXIN                                                   IBD12650
05312        TRA     *-1                                                      IBD12660
05313        LDI     XIOXIN                                                   IBD12670
05314 TSTEND ZET     HYPOUT                                                   IBD12680
05315        TRA     *+4                                                      IBD12690
05316        LFT     200000                                                   IBD12700
05317        TRA     ENDTAP                                                   IBD12710
05320        TRA     SELECT                                                   IBD12720
05321        RFT     000004                                                   IBD12730
05322        TRA     ENDTAP                                                   IBD12740
05323 SELECT TSX     TPIOEX,4                                                 IBD12750
05324        PZE     **                                                       IBD12760
05325 CHKPRN ZET     PRNTSW                                                   IBD12770
05326        TRA     PRNOUT                                                   IBD12780
05327        TRA     G1OUT                                                    IBD12790
      TPOUT  IORT    TAPBUF,,100                                              IBD12800
      SMSOU  SMS     **                                                       IBD12810
             LIPT    *+1                                                      IBD12820
             CTLW    HORDW                                                    IBD12830
             CPYD    TAPBUF,,100                                              IBD12840
             TCH     SYSTWT                                                   IBD12850
             IORT    ALTBUF,,100                                              IBD12860
             SMS*    SMSOU                                                    IBD12870
             LIPT    *+1                                                      IBD12880
             CTLW    HORDW                                                    IBD12890
             CPYD    ALTBUF,,100                                              IBD12900
             TCH     SYSTWT                                                   IBD12910
                                                                              IBD12920
      WRTTRL SXA     WTRLRT,4                                                 IBD12950
             LAC     UCBOUA,4                                                 IBD12960
             CAL     2,4                                                      IBD12970
             SLW     RCCT                                                     IBD12980
             TSX     NDATA,4,7                                                IBD12990
             TSX     TPIOEX,4                                                 IBD13000
             PZE     LBLWRT                                                   IBD13010
             TSX     NDATA,4,7                                                IBD13020
             AXT     3,2                                                      IBD13030
             TSX     NDATA,4,5                                                IBD13040
             TIX     *-1,2,1                                                  IBD13050
             LAC     UCBOUA,4                                                 IBD13060
             CAL     RCCT                                                     IBD13070
             SLW     2,4                                                      IBD13080
      WTRLRT AXT     **,4                                                     IBD13090
             TRA     1,4                                                      IBD13100
      NDATA  SXA     WEFS,4                                                   IBD13110
             CLA     0,4                                                      IBD13120
             ANA     MSKX                                                     IBD13130
             STD     WEFS-2                                                   IBD13140
             NZT     HYPOUT                                                   IBD13150
             TRA     TPWT                                                     IBD13160
             LXD     HBSR,4                                                   IBD13170
             SUB     FIVDC                                                    IBD13180
             TZE     *+2                                                      IBD13190
             TXI     *+1,4,-1                                                 IBD13200
             SXD     WEFS-2,4                                                 IBD13210
      TPWT   LAC     UCBOUA,4                                                 IBD13220
             ZET     1,4                                                      IBD13230
             TRA     *-1                                                      IBD13240
             TSX     .NDSEL,4                                              $6$IBD13250
             PZE     UCBOUA,,**                                               IBD13260
             NOP                                                              IBD13270
      WEFS   AXT     **,4                                                     IBD13280
             TRA     1,4                                                      IBD13290
      MSKX   OCT     000077000000                                             IBD13300
      LBLWRT IORT    LABEL,,20                                                IBD13310
             SMS*    SMSOU                                                    IBD13320
             LIPT    *+1                                                      IBD13330
             CTLW    HORDW                                                    IBD13340
             CPYD    LABEL,,20                                                IBD13350
             TCH     SYSTWT                                                   IBD13360
      FIVDC  PZE     ,,5                                                      IBD13370
      HYPOUT PZE                                                              IBD13380
      HORDW  PZE                                                              IBD13390
      HERR   LFT     000010                                                   IBD13400
       RCCT  PZE                                                              IBD13410
                                                                              IBD13420
      ENDTAP CLA     L1EOR                                                    IBD13430
             STO     LABEL                                                    IBD13440
             TSX     WRTTRL,4                                                 IBD13450
             TSX     PROUT,4                                               $6$IBD13460
             PZE     1                                                        IBD13470
             PZE     MSSG11,,4+512*4                                          IBD13480
             TSX     .PAUSE,4                                              $6$IBD13490
             LDI*    UCBOUA                                                   IBD13500
             RIR     400000                                                   IBD13510
             STI*    UCBOUA                                                   IBD13520
             TRA     SELECT                                                   IBD13530
      MSSG11 BCI     4,      OUTPUT END OF REEL                               IBD13540
                                                                              IBD13550
      TPSPAC SXA     SVXR4,4                                                  IBD13560
             SXA     SVXR2,2                                                  IBD13570
             SXA     SVXR1,1                                                  IBD13580
             LXA     POSCNT,1                                                 IBD13590
             CLA     0,4                                                      IBD13600
             PDX     ,4                                                       IBD13610
             TXL     WRITUP,4,3840                                            IBD13620
             TXL     READUP,4,3841                                            IBD13630
             CLA     POSCNT       READ LEWER AREA-CHECK POSITION OF           IBD13640
             CAS     TWO          SCRATCH TAPE                                IBD13650
             TRA     *+3          BACKSPACE TWO RECORDS                       IBD13660
             TRA     BSPCE        BACKSPACE ONE RECORD                        IBD13670
             TRA     BSPCE+2      LEAVE SCRATCH TAPE AS IS                    IBD13680
             TSX     NDATAX,2                                                 IBD13690
             TXI     *+1,1,-1     DECREMENT POSITION COUNTER                  IBD13700
      BSPCE  TSX     NDATAX,2                                                 IBD13710
             TXI     *+1,1,-1     DECREMENT POSITION COUNTER                  IBD13720
             STZ     WRITSW       RESET WRITE SWITCH                          IBD13730
             TRA     UCBSET       OCTIVATE UNIT                               IBD13740
      WRITUP STL     WRITSW       SET WRITE SWITCH                            IBD13750
             TRA     READUP+1                                                 IBD13760
      READUP STZ     WRITSW       RESET WRITE SWITCH                          IBD13770
             CLA     POSCNT       CHECK POSITION                              IBD13780
             CAS     TWO          OF SCRATCH TAPE                             IBD13790
             TRA     *+3          BACKSPACE ONE RECORD                        IBD13800
             TRA     UCBSET       LEAVE TAPE AS IS                            IBD13810
             TRA     UCBSET                                                   IBD13820
             TSX     NDATAX,2                                                 IBD13830
             TXI     UCBSET,1,-1  DECREMENT POSITION COUNTER                  IBD13840
      UCBSET SXA     POSCNT,1                                                 IBD13850
             CLA     PFX20        SET CTL FOR                                 IBD13860
             ZET     WRITSW       READ OR WRITE                               IBD13870
             CLA     PFX24                                                    IBD13880
             STD     SMS+1                                                    IBD13890
             STT     SMS+1                                                    IBD13900
             LAC     UCBSCR,1                                                 IBD13910
             ZET     1,1                                                      IBD13920
             TRA     *-1                                                      IBD13930
             CLA     XIOXST                                                   IBD13940
             ZET     WRITSW                                                   IBD13950
             SSM                                                              IBD13960
             STO     1,1                                                      IBD13970
             STZ     XIOXSC                                                   IBD13980
       GOACT TSX     .ACTV,4                                               $6$IBD13990
             PZE     UCBSCR                                                   IBD14000
             NZT     XIOXSC                                                   IBD14010
             TRA     *-1                                                      IBD14020
             CLA     POSCNT       INCREMENT                                   IBD14030
             ADD     ONE          POSITION                                    IBD14040
             STO     POSCNT       COUNTER                                     IBD14050
      SVXR4  AXT     **,4                                                     IBD14060
      SVXR2  AXT     **,2                                                     IBD14070
      SVXR1  AXT     **,1                                                     IBD14080
             TRA     1,4                                                      IBD14090
      SCRSEL SXA     XSVE4,4                                                  IBD14100
             TMI     MSSEL        MINUS SELECT PASS                           IBD14110
             CLA     XIOXST                                                   IBD14120
             STA*    .RCHX               PAST I/O SEQUENCE                 $6$IBD14130
             LXA     WRITSW,4                                                 IBD14140
             ZET     HYPSWT                                                   IBD14150
             TRA     729SRS+1                                                 IBD14160
             TXH     729SWS,4,0                                               IBD14170
      729SRS RDS     **           READ SELECT                                 IBD14180
             XEC*    .RCHX               STORE I/O COMMAND ADDRESS         $6$IBD14190
      XSVE4  AXT     **,4                                                     IBD14200
             TRA     1,4                                                      IBD14210
      729SWS WRS     **           WRITE SELECT                                IBD14220
             TRA     XSVE4-1                                                  IBD14230
      MSSEL  STO     SVEAC                                                    IBD14240
             LFT     100000                                                   IBD14250
             TRA     CHKWRT                                                   IBD14260
             LFT     000100              INTERFACE CHECK                      IBD14270
             TRA     1,4                 RETRY SELECT LUS                     IBD14280
      LDCOMP LAC     SVEAC,4       XR4 # -(LUCB)                              IBD14290
             STZ     1,4           CLEAR UCB 2                                IBD14300
             STI     XIOXSC        SET POSTING WORD AND                       IBD14310
             CLA     XSVE4                                                    IBD14320
             STT     XIOXSC        RESET BUSY SWITCH                          IBD14330
             TRA     XSVE4                                                    IBD14340
      CHKWRT ZET     WRITSW        SPILL TAPE ERROR FOUND                     IBD14350
             TRA     3,4           RETURN TO IOEX IF WRITE ERROR              IBD14360
             TSX     PROUT,4             OTHERWISE PRINT MESSAGE TO NOTIFY $6$IBD14370
             PZE     1             OPERATOR OF SPILL TAPE READ ERROR          IBD14380
             PZE     ERRMSG,,5+512*4                                          IBD14390
             TRA     LDCOMP        AND KEEP SYSTEM MOVING                     IBD14400
      SVEAC  PZE                                                              IBD14410
      NDATAX SXA     SVE1,1                                                   IBD14420
             LAC     UCBSCR,1                                                 IBD14430
             ZET     1,1                                                      IBD14440
             TRA     *-1                                                      IBD14450
             TSX     .NDSEL,4                                              $6$IBD14460
             PZE     UCBSCR,,5                                                IBD14470
             NOP                                                              IBD14480
      SVE1   AXT     **,1                                                     IBD14490
             TRA     1,2                                                      IBD14500
      TPADD  PZE     TPOUT                                                    IBD14510
      HORDH  OCT     120600120100     SELECT BLANK MASK                       IBD14520
      UNMSK  OCT     777760777777                                             IBD14530
      HORDT                          SELECT ORDER                             IBD14540
      WRITSW PZE                                                              IBD14550
      HBSR   PZE     ,,34                                                     IBD14560
             PZE     TPOUT+6                                                  IBD14570
      HYPSWT PZE                                                              IBD14580
      PFX20  OCT     200000200000                                             IBD14590
      PFX24  OCT     240000000000                                             IBD14600
      XIOXST PZE     SCRCOM,,SCRSEL  SELECT WORD                              IBD14610
      XIOXSC                         POSTING WORD                             IBD14620
      POSCNT PZE     2                                                        IBD14630
      SCRCOM IORT    ENDDMP,,ENDDMP                                           IBD14640
             LIPT    *+1                                                      IBD14650
      SMS    SMS     6                                                        IBD14660
             CTL     HORDT                                                    IBD14670
             CPYD    ENDDMP,,ENDDMP                                           IBD14680
             TCH     SYSTWT                                                   IBD14690
      LABEL  BCI ,1EOF  END OF OUTPUT TAPE                                    IBD14700
             BCI ,                                                            IBD14710
      TABLE  VFD     O12/0,H18/HTR,O18/600020,H18/TRA,O18/600021,H18/TTR,     IBD14720
             ETC     O18/600022,H24/TRCA,O12/24,H24/TRCC,O12/26,H24/TRCE,     IBD14730
             ETC     O12/27,H24/TRCG,O12/30,H24/TEFA,O12/31,H24/TEFC,O12/32,  IBD14740
             ETC     H24/TEFE,O12/33,H24/TEFG,O12/40,H18/TLQ,O18/600041,      IBD14750
             ETC     H18/IIA,O18/100042,H18/TIO,O6/60                      $6$IBD14760
             VFD     O12/0043,H18/OAI,O18/100044,                          $6$IBD14765
             ETC     H18/PAI,O18/100046,H18/TIF,O18/600051,H18/IIR,O18/600054,IBD14770
             ETC     H18/RFT,O18/110055,H18/SIR,O18/110056,H18/RNT,O18/110057,IBD14780
             ETC     H18/RIR,O18/110060,H24/TCOA,O12/61,H24/TCOB,O12/62,      IBD14790
             ETC     H24/TCOC,O12/63,H24/TCOD                              $6$IBD14800
             VFD     O12/64,H24/TCOE,O12/65,H24/TCOF,                      $6$IBD14805
             ETC     O12/66,H24/TCOG,O12/67,H24/TCOH,O12/74,H24/TSX8,O12/100, IBD14810
             ETC     H18/TZE,O18/600114,H18/CVR,O18/110120,H18/TPL,O18/600131,IBD14820
             ETC     H18/XCA,O18/100140,H18/TOV,O18/600161,H18/TQO,O18/600162,IBD14830
             ETC     H18/TQP,O18/600200,H18/MPY,O6/60                      $6$IBD14840
             VFD     O12/0204,H18/VLM,O18/110220,                          $6$IBD14845
             ETC     H18/DVH,O18/600221,H18/DVP,O18/600224,H18/VDH,O18/110225,IBD14850
             ETC     H18/VDP,O18/110240,H18/FDH,O18/600241,H18/FDP,O18/600260,IBD14860
             ETC     H18/FMP,O18/600261,H24/DFMP,O12/0300,H18/FAD,O18/600301, IBD14870
             ETC     H24/DFAD,O12/0302,H18/FSB,O6/60                       $6$IBD14880
             VFD     O12/0303,H24/DFSB,O12/0304,                           $6$IBD14885
             ETC     H18/FAM,O18/600305,H24/DFAM,O12/0306,H18/FSM,O18/600307, IBD14890
             ETC     H24/DFSM,O12/0320,H18/ANS,O18/600322,H18/ERA,O18/600340, IBD14900
             ETC     H18/CAS,O18/600361,H18/ACL,O18/600400,H18/ADD,O18/600401,IBD14910
             ETC     H18/ADM,O18/600402,H18/SUB,O18/600420,H18/HPR,O6/11   $6$IBD14920
             VFD     O12/0440,H18/IIS,O18/600441,H18/LDI,O18/600442,       $6$IBD14925
             ETC     H18/OSI,O18/600443,H18/DLD,O18/600444,                $6$IBD14930
             ETC     H18/OFT,O18/600445,H18/RIS,O18/600446,H18/ONT,O18/600500,IBD14940
             ETC     H18/CLA,O18/600502,H18/CLS,O18/600520,H18/ZET,O18/600522,IBD14950
             ETC     H18/XEC,O18/600534,H18/LXA,O6/10                      $6$IBD14960
             VFD     O12/0535,H18/LAC,O18/100540,                          $6$IBD14965
             ETC     H24/RCHA,O12/0541,H24/RCHC,O12/0542,H24/RCHE,O12/0543,   IBD14970
             ETC     H24/RCHG,O12/0544,H24/LCHA,O12/0545,H24/LCHC,O12/0546,   IBD14980
             ETC     H24/LCHE,O12/0547,H24/LCHG,O12/0560,H18/LDQ,O18/600564,  IBD14990
             ETC     H18/ENB,O18/600600,H18/STZ,O6/60                      $6$IBD15000
             VFD     O12/0601,H18/STO,O18/600602,                          $6$IBD15005
             ETC     H18/SLW,O18/600604,H18/STI,O18/600621,H18/STA,O18/600622,IBD15010
             ETC     H18/STD,O18/600625,H18/STT,O18/600630,H18/STP,O18/600634,IBD15020
             ETC     H18/SXA,O18/100636,H18/SCA,O18/100640,H24/SCHA,O12/641,  IBD15030
             ETC     H24/SCHC,O12/642,H24/SCHE                             $6$IBD15040
             VFD     O12/643,H24/SCHG,O12/734,                             $6$IBD15045
             ETC     H18/PAX,O18/100737,H18/PAC,O18/100754,H18/PXA,O18/100756,IBD15050
             ETC     H18/PCA,O18/100760,H24/PSE#,O12/761,H18/NOP,O18/100762,  IBD15060
             ETC     H18/RDS,O18/170763,H24/LLS8,O12/764,H18/BSR,O6/17,       IBD15070
             ETC     O12/765,H24/LRS8,O12/766,H18/WRS,O6/17                $6$IBD15080
             VFD     O12/767,H24/ALS8,                                     $6$IBD15085
             ETC     O12/770,H18/WEF,O6/17,O12/771,H24/ARS8,O12/772,H18/REW,  IBD15090
             ETC     O6/17,O12/774,H24/AXT8,O12/776,H18/SDN,O6/17,O12/4021,   IBD15100
             ETC     H24/ESNT,O12/4022,H24/TRCB,O12/4024,H24/TRCD,O12/4026,   IBD15110
             ETC     H24/TRCF,O12/4027,H24/TRCH                            $6$IBD15120
             VFD     O12/4030,H24/TEFB,O12/4031,H24/TEFD,                  $6$IBD15130
             ETC     O12/4032,H24/TEFF,O12/4033,H24/TEFH,O12/4042,H18/RIA,    IBD15140
             ETC     O18/104046,H18/PIA,O18/104051,H18/IIL,O18/104054,H18/LFT,IBD15150
             ETC     O18/114055,H18/SIL,O18/114056,H18/LNT,O18/114057,H18/RIL,IBD15160
             ETC     O18/114060,H24/TCNA,O12/4061,H24/TCNB                 $6$IBD15170
             VFD     O12/4062,H24/TCNC,                                    $6$IBD15175
             ETC     O12/4063,H24/TCND,O12/4064,H24/TCNE,O12/4065,H24/TCNF,   IBD15180
             ETC     O12/4066,H24/TCNG,O12/4067,H24/TCNH,O12/4100,H18/TNZ,    IBD15190
             ETC     O18/604114,H18/CAQ,O18/114120,H18/TMI,O18/604130,H18/XCL,IBD15200
             ETC     O18/104140,H18/TNO,O18/604154,H18/CRQ,O6/11           $6$IBD15210
             VFD     O12/4200,H18/MPR,                                     $6$IBD15215
             ETC     O18/604240,H24/DFDH,O12/4241,H24/DFDP,O12/4260,H18/UFM,  IBD15220
             ETC     O18/604261,H24/DUFM,O12/4300,H18/UFA,O18/604301,H24/DUFA,IBD15230
             ETC     O12/4303,H24/DUFS,O12/4304,H18/UAM,O18/604305,H24/DUAM,  IBD15240
             ETC     O12/4306,H18/USM,O18/604307,H24/DUSM                  $6$IBD15250
             VFD     O12/4320,H18/ANA,                                     $6$IBD15255
             ETC     O18/604340,H18/LAS,O18/604400,H18/SBM,O18/604500,H18/CAL,IBD15260
             ETC     O18/604501,H18/ORA,O18/604520,H18/NZT,O18/604534,        IBD15270
             ETC     H24/LXD8,O12/4535,H24/LDC8,O12/4540,H24/RCHB,O12/4541,   IBD15280
             ETC     H24/RCHD,O12/4542,H24/RCHF                            $6$IBD15290
             VFD     O12/4543,H24/RCHH,O12/4544,                           $6$IBD15295
             ETC     H24/LCHB,O12/4545,H24/LCHD,O12/4546,H24/LCHF,O12/4547,   IBD15300
             ETC     H24/LCHH,O12/4600,H18/STQ,O18/604602,H18/ORS,O18/604603, IBD15310
             ETC     H18/DST,O18/604620,H18/SLQ,O18/604625,H18/STL,O18/604634,IBD15320
             ETC     H24/SXD8,O12/4636,H18/SCD,O6/10                       $6$IBD15330
             VFD     O12/4640,H24/SCHB,O12/4641,                           $6$IBD15335
             ETC     H24/SCHD,O12/4642,H24/SCHF,O12/4643,H24/SCHH,O12/4734,   IBD15340
             ETC     H24/PDX8,O12/4737,H24/PDC8,O12/4754,H24/PXD8,O12/4756,   IBD15350
             ETC     H18/PCD,O18/104760,H18/MSE,O6/12,O12/4763,               IBD15360
             ETC     H24/LGL8,O12/4764,H18/BSF,O6/17                       $6$IBD15370
             VFD     O12/4765,H24/LGR8,O12/4772,                           $6$IBD15375
             ETC     H18/RUN,O6/17,O12/4773,H24/RQL8,O12/4774,H18/AXC,O6/10,  IBD15380
             ETC     O12/5000,H24/STR9                                        IBD15390
      3BLKS  OCT     606060                                                   IBD15400
      2NDSWT PZE                                                              IBD15410
      ZROSVN OCT     077777077777                                             IBD15420
      ONEONE OCT     000001000001                                             IBD15430
             OCT     ,,,,,,,                                                  IBD15440
      SET8   OCT     ,,,,,,,                                                  IBD15450
      JSWT   PZE                                                              IBD15460
      NINSWT PZE                                                              IBD15470
       PANEL BCI     9,       AC            MQ        SENSE IND        KEYS   IBD15480
             BCI     9,        XR1      XR2      XR3     XR4       XR5      X IBD15490
             BCI     2,R6      XR7                                            IBD15500
             BCI ,                                                            IBD15510
             BCI ,                                                            IBD15520
             BCI     9,                                                       IBD15530
             BCI     1,     -                                                 IBD15540
             BCI ,                                                            IBD15550
             BCI     9,            INDICATORS                          SENSE  IBD15560
             BCI     9,LIGHTS                           SENSE SWITCHES        IBD15570
             BCI     2,                                                       IBD15580
             BCI     9, Q-BIT P-BIT  TRAP   DCT   IOT   OFL           1     2 IBD15590
             BCI     9,     3     4                 1     2     3     4     5 IBD15600
             BCI     2,     6                                                 IBD15610
             BCI ,                                                            IBD15620
             BCI ,                                                            IBD15630
      ON     BCI     1,    ON                                                 IBD15640
      OFF    BCI     1,   OFF                                                 IBD15650
      BLANK0 BCI     1, 00000                                                 IBD15660
06400 TPIOEX SXA     XTPXR4,4          SAVE IR4                               IBD15670
06401        CAL     1,4               GET FIRST CALL WORD                    IBD15680
06402        LAC     UCBOUA,4      XR4#-L(UCB)                                IBD15690
06403        STA     XIOXSL            STORE IN SELECT WORD                   IBD15700
06404        CLA     XIOXSL            GET SELECT WORD                        IBD15710
06405        ZET     1,4               IS UNIT FREE                           IBD15720
06406        TRA     *-1               NO                                     IBD15730
06407        STO     1,4               STORE INTO UCB2                        IBD15740
06410        STZ     XIOXIN            RESET POSTING WORD                     IBD15750
06411        TSX     .ACTV,4             GO ACTIVATE                       $6$IBD15760
06412 XIOXND PZE     UCBOUA                                                   IBD15770
06413 XTPXR4 AXT     **,4              RESTORE XR4                            IBD15780
06414        TRA     2,4               RETURN                                 IBD15790
06415 XIOXSL MZE     0,,XTPSEL     SELECT WORD TO UCB2                        IBD15800
06416 XIOXIN PZE     ,1,           POSTING WORD                               IBD15810
      * SELECT ROUTINE FOR TAPES                                              IBD15820
06417 XTPSEL SXA     XXSAV4,4          SAVE XR4                               IBD15830
06420        TMI     TPSELM            SEL(-) FOR POSTING                     IBD15840
06421        CLA     XIOXSL                                                   IBD15850
06422        STA*    .RCHX                                                 $6$IBD15860
06423        NZT     HYPOUT                                                   IBD15870
06424 OUTSLW WRS     **                                                       IBD15880
06425        XEC*    .RCHX               INITIATE I/O                      $6$IBD15890
06426 XXSAV4 AXT     **,4              RESTORE XR4                            IBD15900
06427        TRA     1,4               RETURN                                 IBD15910
06430 TPSELM NZT     HYPOUT                                                   IBD15920
06431        LNT     100000                                                   IBD15930
06432        LFT     000010                                                   IBD15940
06433        TRA     3,4                                                      IBD15950
06434        LFT     000100              INTERFACE CHECK                      IBD15960
06435        TRA     1,4                 RETRY SELECT PLUS                    IBD15970
06436        PAC     0,4                                                      IBD15980
06437        STZ     1,4               SET UCB2#0                             IBD15990
06440        STI     XIOXIN                                                   IBD16000
06441        CLA     XXSAV4                                                   IBD16010
06442        STT     XIOXIN                                                   IBD16020
06443        TRA     XXSAV4            GO EXIT                                IBD16030
06444 SNKOFF TCOA    *                                                        IBD16040
06445        TCOB    *                                                        IBD16050
06446        TCOC    *                                                        IBD16060
06447        TCOD    *                                                        IBD16070
06450        TCOE    *                                                        IBD16080
06451        ZET     TAP729                                                   IBD16090
06452        TSX     WRTTRL,4      WRITE TRAILER IF TAPE OUTPUT               IBD16100
06453        ZET     SWSTWO                                                   IBD16110
06454        TSX     TPSPAC,4,1    READ UPPER AREA BACK IF NECESSAERY         IBD16120
06455        CLA     SKIOEX                                                   IBD16130
06456        STO     GOACT-2                                                  IBD16140
06457        TSX     TPSPAC,4,2    POSITION TAPE TO FIRST SPILL RECORD        IBD16150
06460        CAL     NXTJB                                                    IBD16160
06461        SLW     SYSGET                                                   IBD16170
06462        CAL     L(1)D                                                    IBD16180
06463        ORS     SYSJOB                                                   IBD16190
06464        NZT     SNAP                                                     IBD16200
06465        TRA     TSTSW4              TEST SENSE SW. 4                  (9)IBD16210
06466 RESTOR CLA     TRIGS                                                 (9)IBD16220
06467        DVP     *                                                        IBD16230
06470        RCHA    **                                                       IBD16240
             ALS     21                                                       IBD16250
             STL     TMIND                                                    IBD16260
             PBT                                                              IBD16270
             STZ     TMIND                                                    IBD16280
             ALS     1                                                        IBD16290
             PBT                                                              IBD16300
             DCT                                                              IBD16310
             ALS     1                                                        IBD16320
             PBT                                                              IBD16330
             IOT                                                              IBD16340
             ALS     1                                                        IBD16350
             STZ     0                                                        IBD16360
             ENB     0                                                        IBD16370
             PBT                                                              IBD16380
             STL     0                                                        IBD16390
             ARS     31                                                       IBD16400
             AXT     0,1                                                      IBD16410
             SLN     4,1                                                      IBD16420
             LBT                                                              IBD16430
             SLT     4,1                                                      IBD16440
             NOP                                                              IBD16450
             TXI     *+1,1,1                                                  IBD16460
             ARS     1                                                        IBD16470
             TXL     *-6,1,3                                                  IBD16480
             LDC     SVPNL1,4                                                 IBD16490
             ZET     NINSWT                                                   IBD16500
             TRA     *+6                                                      IBD16510
             LDC     SVPNL1,3                                                 IBD16520
             LAC     SVPNL1,4                                                 IBD16530
             LDC     SVPNL2,5                                                 IBD16540
             LAC     SVPNL2,6                                                 IBD16550
             LDC     SVPNL3,7                                                 IBD16560
             LDI     HSI                                                      IBD16570
             CLA     HORDT                                                    IBD16580
             STO     HYPORD                                                   IBD16590
             CLA     729SRS                                                   IBD16600
             STA     RDBK                                                     IBD16610
             STA     REPOS                                                    IBD16620
             ARS     9                                                        IBD16630
             ANA     CHNLI                                                    IBD16640
             LBT                                                              IBD16650
             ORA     CHNLII                                                   IBD16660
             STP     LDCHNL                                                   IBD16670
             AXT     22528,2                                                  IBD16680
             PAX     0,1                                                      IBD16690
             TNX     *+2,1,2                                                  IBD16700
             TXI     *-1,2,64                                                 IBD16710
             SXD     LDCHNL,2                                                 IBD16720
             ALS     6                                                        IBD16730
             PAX     0,1                                                      IBD16740
             TXI     *+1,1,3008                                               IBD16750
             SXD     WAIT,1                                                   IBD16760
             ALS     3                                                        IBD16770
             ADD     TNOFRD                                                   IBD16780
             NZT     HYPSWT                                                   IBD16790
             ADD     TWO                                                      IBD16800
             STA     TNOFRD                                                   IBD16810
             CLA     NOP                                                      IBD16820
             NZT     HYPSWT                                                   IBD16830
             TRA     INHIB                                                    IBD16840
             STD     RDBK           NOP SELECTS FOR                           IBD16850
             STD     REPOS         7340 SPILL TAPE                            IBD16860
             CAL     SMS                                                      IBD16870
             ACL     LIST+7        INHIBIT UNUSUAL END                        IBD16880
             SLW     CHNLII        SIGNALS FOR SNEAK-OFF                      IBD16890
             LDQ     LDCHNL                                                   IBD16900
             SLQ     INHIB                                                    IBD16910
      INHIB  NOP     CHNLII                                                   IBD16920
             AXT     19,1                                                     IBD16930
             CLA     NOP+19,1                                                 IBD16940
             STO     SYSEND+1,1          RESPECT SYSEND                       IBD16950
             TIX     *-2,1,1                                                  IBD16960
             CAL     HQP                                                      IBD16970
             LDQ     HAC                                                      IBD16980
             LLS     35                                                       IBD16990
             LDQ     HMQ                                                      IBD17000
             ZET     0                                                        IBD17010
             TOV     *+1           RESTORE OFL INDICATOR                      IBD17020
             LDC     SVPNL0,1                                                 IBD17030
             LAC     SVPNL0,2      RESTORE XR1 AND XRA2                       IBD17040
             TXI     TSTSNP,4,-1                                           (9)IBD17050
             SXA     SYSEND-2,4                                               IBD17060
             STQ     SYSEND-18                                                IBD17070
             LAC     UCBOUA,4      HOLD OUTPATE RECORD COUNT                  IBD17080
             LDQ     2,4                                                      IBD17090
             TRA     SYSEND-11           READ BACK RECORD ONE                 IBD17100
      CHNLI  FOR     15                                                       IBD17110
      CHNLII FOR     **                                                       IBD17120
      NOP    NOP     *                                                        IBD17130
      HYPBCK OCT     030412010000                                             IBD17140
      HYPORD PZE                                                              IBD17150
      CMNDS  IORT    0,,ENDDMP     LAR FOR 7909 CNNL                          IBD17160
             CTLR    SYSEND-16                                                IBD17170
             CPYD    0,,ENDDMP                                                IBD17180
             CTL     SYSEND-17                                                IBD17190
      RDBK   RDS     **                                                       IBD17200
      LDCHNL PZE     SYSEND-15                                                IBD17210
      WAIT   PZE     SYSEND-9                                                 IBD17220
      TNOFRD PSE     232                                                      IBD17230
      REPOS  BSR     *-*           REPOSITION 729 SPILL TAPE                  IBD17240
             ZET     SYSEND                                                   IBD17250
             ETM                                                              IBD17260
             STQ     2,4                                                      IBD17270
             LDQ     SYSEND-18                                                IBD17280
             AXT     **,4                                                     IBD17290
             TTR     1,4                                                      IBD17300
      TMIND  PZE                                                              IBD17310
                                                                              IBD17320
      ONECON DEC     1                                                        IBD17330
      L1EOF  BCI     1,1EOF                                                   IBD17340
      L1EOR  BCI     1,1EOR                                                   IBD17350
      LBLCMD IORT    OUTBUF,,20                                               IBD17360
             SMS*    SMSOU                                                    IBD17370
             LIPT    *+1                                                      IBD17380
             CTLR    HORDW                                                    IBD17390
             CPYD    OUTBUF,,20                                               IBD17400
             TCH     SYSTWT                                                   IBD17410
      COMMA  OCT     73                                                       IBD17420
      TEN    DEC     10                                                       IBD17430
      ENDFLG PZE                                                              IBD17440
       LATCH MON                                                              IBD17450
      TRIGS  PON                                                              IBD17460
      CORTP  PZE     0                                                        IBD17470
      SKIOEX TRA     SVXR4                                                    IBD17480
      NXTJB  BCI     1,IBSXEC                                                 IBD17490
      L(1)D  PZE     ,,1                                                      IBD17500
      UCBOUA PZE                                                              IBD17510
      PRNBUF EQU     J                                                        IBD17520
      ALTBUF EQU     TAPBUF+100                                               IBD17530
      SAVE   EQU     OUTBUF+8                                                 IBD17540
      HOLD   EQU     OUTBUF+7                                                 IBD17550
      RDIN   EQU     OUTBUF+1                                                 IBD17560
       LIST  EQU     ONE                                                      IBD17570
      TWO    EQU     ONE+1                                                    IBD17580
       THREE EQU     ONE+2                                                    IBD17590
      FIVE   EQU     ONE+4                                                    IBD17600
      SIX    EQU     ONE+5                                                    IBD17610
      TRLR   EQU     LBLWRT                                                   IBD17620
      UCBSCR EQU     SYSPP2                                                $6$IBD17630
      N      EQU     TRIG+4                                                   IBD17640
      ENDDMP EQU     N/8*8+8                                                  IBD17650
      NEWLIB EQU     SYSLB1                                                $6$IBD17660
             ENDQ    D                                                     $6$IBD17670
06667 TSTSW4 SWT     KEYSWT              SENSE SW. 4 DOWN                  (9)IBD17671
06670        TRA     SYSRET              NO-RETURN TO IBSYS                (9)IBD17672
06671        TRA     RESTOR              YES-NON/SNAP                      (9)IBD17673
      TSTSNP ZET     SNAP                SNAP DUMP                         (9)IBD17674
             TRA     CHNLI-5             YES-RETURN                        (9)IBD17675
             TXI     *+1,4,1             NO-SENSE SW4 IS DOWN              (9)IBD17676
             SXA     SYSEND-2,4                                            (9)IBD17677
             STQ     SYSEND-18                                             (9)IBD17678
             LDQ     TTRSYS                                                (9)IBD17679
             STQ     SYSEND-1                                              (9)IBD17680
             TRA     CHNLI-3                                               (9)IBD17681
      TTRSYS TTR     SYSDMP                                                (9)IBD17682
             END     *                                                        IBD17690
      $IBSYS                                                                  IBD17700
      $STOP                                                                   IBD17710














































































































































































