          IDENT  IRCP,IRADR,IRFLAG                                       IRCP        2
          TITLE  IRCP -- CENTRAL PROCESSOR ROUTINE FOR DEADSTART         IRCP        3
          ABS                                                            IRCP        4
          SST                                                            IRCP        5
          LIST   N                                                       IRCP        6
          LIST   -G                                                      JSFPSR1     6
          LIST   A                                                       IRCP        8
          LIST   F                                                       SCQ320I     2
          SPACE  4                                                       IRCP        9
*         I R C P                                                        IRCP       10
          SPACE  4                                                       IRCP       11
*         WRITTEN ORIGINALLY FOR SCOPE 3.1.6 AND SCOPE 3.2               IRCP       12
*         FIRST QUARTER 1969                                             IRCP       13
          SPACE  4                                                       IRCP       14
*         FUNCTION                                                       IRCP       15
                                                                         IRCP       16
*         IRCP HAS THE JOB OF STARTING UP EXECUTION OF THE SCOPE 3       IRCP       17
*         OPERATING SYSTEM.  UNLIKE PREVIOUS VERSIONS OF DEAD-START,     IRCP       18
*         THE CENTRAL PROCESSOR, ONCE STARTED, HAS COMPLETE CONTROL      IRCP       19
*         OVER THE DEAD-START PROCESS.                                   IRCP       20
          SPACE  4                                                       IRCP       21
*         AUTHORS                                                        IRCP       22
                                                                         IRCP       23
*         AL MCDEARMON -- PRELOADER, LABEL AND PERMANENT FILE PROCESSING IRCP       24
*         STU MCALPINE -- SYSTEM LOADER                                  IRCP       25
*         JUNE WHITE -- RECOVERY                                         IRCP       26
*         JON STONECASH -- OPERATOR COMMUNICATION PACKAGE                IRCP       27
          SPACE  4                                                       IRCP       28
*         ENTRY INFORMATION                                              IRCP       29
                                                                         IRCP       30
*         1) THE DISPLAY DRIVER IS EXECUTING IN PP0.                     IRCP       31
*         2) THE TAPE I/O ROUTINE IS IN PP1 WAITING FOR REQUESTS.        IRCP       32
*         3) THE RMS (ROTATING MASS STORAGE) I/O ROUTINE IS IN PP2       IRCP       33
*            WAITING FOR REQUESTS.                                       IRCP       34
                                                                         IRCP       35
*         4) A FRESH CMR (THAT IS, AS IT EXISTS ON THE SYSTEM TAPE)      IRCP       36
*            IS LOADED AT LOCATION ZERO.  IN ADDITION, THE CONTENTS      IRCP       37
*            OF CMR PRIOR TO DEAD-START ARE SAVED STARTING AT THE        IRCP       38
*            LOCATION TABLESAV, AND THE RBTS AS THEY EXISTED BEFORE      IRCP       39
*            DEAD-START ARE SAVED STARTING WITH RBTSAVE AS THE LWA+1.    IRCP       40
*            THE SAVED CMR AND RBTS ARE USED BY RECOVERY ONLY.           IRCP       41
                                                                         IRCP       42
*         5) THE FOLLOWING PARAMETERS ARE PASSED TO IRCP BY CED --       IRCP       43
                                                                         IRCP       44
*            A) CEDARGS - BITS 0-11 CONTAINS A VALUE WHICH INDICATES     IRCP       45
*               WHAT TYPE OF DEAD-START IS TO BE PERFORMED.              IRCP       46
*                  0 = INITIALIZATION-TYPE DEAD-START.  LABELS ARE       IRCP       47
*                      WRITTEN ON ALL MASS-STORAGE DEVICES AND THEN      IRCP       48
*                      PRELOADING AND LOADING TAKE PLACE.                IRCP       49
*                  1 = NORMAL-TYPE DEAD-START.  PRELOADING AND           IRCP       50
*                      LOADING TAKE PLACE.                               IRCP       51
*                  2 = RECOVERY-TYPE DEAD-START.  RECOVERY AND LOADING   IRCP       52
*                      TAKE PLACE.                                       IRCP       53
*                  3 = DEVICE READ/WRITE DEBUG ROUTINE IS TO BE USED.    IRCP       54
*                      THIS CAN ONLY OCCUR IF XOPTION NE ZERO.           IRCP       55
                                                                         IRCP       56
*            B) CEDARGS - BITS 12-23 CONTAIN FLAGS FOR RECOVERY --       IRCP       57
*                  BITS 12-13 = 0 IF THE SYSTEM FILE IS NOT TO BE        IRCP       58
*                                 RECOVERED.  A PRELOAD AND A LOAD       IRCP       59
*                                 WILL TAKE PLACE.                       IRCP       60
*                             = 1 IF THE SYSTEM FILE IS TO BE RECOVERED. IRCP       61
*                                 THE EFFECT OF ALL EDITLIBS IS          IRCP       62
*                                 NEGATED.  A LOAD TAKES PLACE.          IRCP       63
*                             = 2 IF THE SYSTEM IS TO BE RECOVERED AS    IRCP       64
*                                 IT EXISTED BEFORE THE MOST RECENT      IRCP       65
*                                 EDITLIB.                               IRCP       66
*                             = 3 IF THE SYSTEM IS TO BE RECOVERED AS    IRCP       67
*                                 IT EXISTS WITH ALL EDITLIBS.           IRCP       68
*                  BIT 14     = 0 IF FILES OTHER THAN SYSTEM ARE TO      IRCP       69
*                                 BE RECOVERED.                          IRCP       70
*                             = 1 IF FILES OTHER THAN SYSTEM ARE NOT     IRCP       71
*                                 TO BE RECOVERED.                       IRCP       72
                                                                         IRCP       73
*            C) CEDARGS - BITS 24-35 IS RESERVED FOR ECS SCOPE TO        IRCP       74
*                         TO INDICATE WHETHER OR NOT THIS IS A LOCAL     IRCP       75
*                         OR GLOBAL DEAD-START.                          IRCP       76
                                                                         IRCP       77
*            D) CEDARGS - BITS 36-47 IS A FLAG USED BY SCOPE 3           IRCP       78
*                         REGARDING ECS.                                 IRCP       79
*                  0=DONT RECONGIURE ECS                                 BBBIR1      1
*                  1=RECONFIGURE ECS(ON RECOVERY ONLY)                   BBBIR1      2
                                                                         IRCP       82
*            E) CEDARGS+1 THRU CEDARGS+N (N=1-5)                         IRCP       83
*                  CONTAINS EST ORDINALS OF 1-5 DEVICES WHICH HAVE       IRCP       84
*                  BEEN DESIGNATED AS SYSTEM DEVICES.                    IRCP       85
          SPACE  4                                                       IRCP       86
*         EXIT INFORMATION                                               IRCP       87
                                                                         IRCP       88
*         ALL DEAD-START FUNCTIONS ARE COMPLETE EXCEPT FOR THE STATE     IRCP       89
*         OF THE PPUS.  STL IS GIVEN CONTROL IN PP1. ALL OTHER PPUS      IRCP       90
*         ARE WAITING FOR A SIGNAL TO BE SENT TO THEM VIA CM 0 TO        IRCP       91
*         CAUSE THEM TO INPUT OVER CHANNEL ZERO.  MTR IS ALREADY         IRCP       92
*         STORED IN CM STARTING AT MTRBUF, AND DSD IS STORED STARTING    IRCP       93
*         AT DSDBUF.  STL WILL SEND MTR AND DSD TO PPUS 0 AND 9,         IRCP       94
*         RESPECTIVELY, AND SEND PP RESIDENT TO ALL THE OTHER PPUS.      IRCP       95
*         AFTER ALL PPUS BEGIN TO EXECUTE, THE DEAD-START PROCESS        IRCP       96
*         IS COMPLETE.                                                   IRCP       97
          SPACE  4                                                       IRCP       98
*         GUIDE TO MODIFICATION                                          IRCP       99
                                                                         IRCP      100
*         CODING CONVENTION - NON-JUMPS - COLS. 1, 11, 18, 36            IRCP      101
*                             JUMPS -     COLS. 1, 11, 16, 36            IRCP      102
                                                                         IRCP      103
*         REGISTER USAGE -- 1) B1 IS ALWAYS = 1.                         IRCP      104
*                           2) THE EXTENT TO WHICH SUBROUTINES SAVE      IRCP      105
*              B-REGISTERS VARIES.  THIS SHOULD BE EXPLICITLY            IRCP      106
*              DOCUMENTED FOR EACH SUBROUTINE.  IT MUST NEVER BE ASSUMED IRCP      107
*              THAT A SUBROUTINE SAVES CERTAIN A OR X REGISTERS          IRCP      108
*              SIMPLY BECAUSE INSPECTION OF THE CODE SHOWS IT TO BE THE  IRCP      109
*              CASE.  SUCH ASSUMPTION MAY BE MADE IF THE SUBROUTINE      IRCP      110
*              EXPLICITLY STATES THAT THE PARTICULAR REGISTER IS SAVED.  IRCP      111
          SPACE  4                                                       IRCP      112
*         CONDITIONALLY ASSEMBLED CODE                                   IRCP      113
                                                                         IRCP      114
*         IP.PFM = 0 -- SUPPRESSES THE ASSEMBLY OF ALL CODE INVOLVING    IRCP      115
*                       PERMANENT FILE SETUP.  HOWEVER, ALL CODE         IRCP      116
*                       INVOLVING DEVICE LABELS WILL STILL BE ASSEMBLED. IRCP      117
*                = 1 -- ALL PERMANENT FILE CODE IS ASSEMBLED.            IRCP      118
                                                                         IRCP      119
*         IP.ECNOM = 0 -- SUPPRESSES ASSEMBLY OF ALL BNL ECS CODE.       IRCP      120
*                  = NZ - BNL ECS CODE IS ASSEMBLED ACCORDING TO THE     IRCP      121
*                         VALUES OF OTHER ECS SYMBOLS.                   IRCP      122
                                                                         IRCP      123
*         IP.MECS -- IF NON-ZERO, CAUSES ECS CODE FOR DIRECT USER        IRCP      124
*                    ACCESS TO BE ASSEMBLED.  THIS SYMBOL IS TESTED      IRCP      125
*                    ONLY IF IP.ECNOM = 0.                               IRCP      126
                                                                         IRCP      127
*         BREAKPT -- THIS SYMBOL IS IN DSLCOM.  IF NON-ZERO, THE         IRCP      128
*                    CENTRAL PROCESSOR BREAKPOINT ROUTINE IS ASSEMBLED.  IRCP      129
*                    THE COMPUTER MUST HAVE THE XJ (CENTRAL EXCHANGE     IRCP      130
*                    JUMP) INSTRUCTION OR IRCP WILL HANG UP.  THIS       IRCP      131
*                    ROUTINE INCREASES THE LENGTH OF IRCP BY ABOUT       IRCP      132
*                    700B WORDS.                                         IRCP      133
                                                                         IRCP      134
*         XOPTION -- THIS SYMBOL IS IN DSLCOM.  IF NON-ZERO, THE DEVICE  IRCP      135
*                    READ/WRITE DEBUG ROUTINE IS ASSEMBLED.  (SEE        IRCP      136
*                    BELOW UNDER DEBUGGING AIDS-2).  THIS ROUTINE        IRCP      137
*                    ADDS ABOUT 200B WORDS TO IRCP.                      IRCP      138
          SPACE  4                                                       IRCP      139
*         DEBUGGING AIDS                                                 IRCP      140
                                                                         IRCP      141
*         DURING THE CHECKOUT OF IRCP, THE FOLLOWING DEBUGGING AIDS      IRCP      142
*         WERE INCORPORATED --                                           IRCP      143
                                                                         IRCP      144
*         1) BREAKPOINT ROUTINE TO ALLOW CONSOLE DEBUGGING OF            IRCP      145
*            IRCP CODE.                                                  IRCP      146
                                                                         IRCP      147
*         2) ROUTINE TO SELECTIVELY READ PRUS TO CM, READ RBS TO CM,     IRCP      148
*            OR WRITE (CLEAR OUT) RBS.  ANY RMS DEVICE SPECIFIED         IRCP      149
*            IN THE EST COULD BE SELECTED FOR THIS.  THIS ROUTINE WAS    IRCP      150
*            ENTERED BY SELECTING 1.X IN THE MATRIX.                     IRCP      151
                                                                         IRCP      152
*         3) SMALL BITS OF CODE WHICH WERE CONSIDERED AS TEMPORARY       IRCP      153
*            PATCHES WERE UNDER ASSEMBLY CONTROL OF THE SYMBOL ZQZ.      IRCP      154
*            THE CODE WAS ASSEMBLED ONLY IF ZQZ WAS DEFINED.             IRCP      155
                                                                         IRCP      156
*         ZQZ   EQU    1   WAS LOCATED HERE                              IRCP      157
          EJECT                                                          DSLCOM      2
*         *  *  *  *  *  *  *  *  *  *                                   DSLCOM      3
*         DSLCOM -- COMMON DECK FOR USE BY THE DEAD-START ROUTINES       DSLCOM      4
*         *  *  *  *  *  *  *  *  *  *                                   DSLCOM      5
*                                                                        DSLCOM      6
*                                                                        DSLCOM      7
*         THE FOLLOWING ARE THE MISCELLANEOUS SYMBOLS WHICH BELONG       DSLCOM      8
*         IN DSLCOM.                                                     DSLCOM      9
*                                                                        DSLCOM     10
TAPEPRU   EQU    512               SIZE OF TAPE PRU (CM WORDS)           DSLCOM     11
RMSPRU    EQU    64                SIZE OF PRU ALL RMS DEVICES           DSLCOM     12
MAXRBLTH  EQU    10100B            LARGEST POSSIBLE RB SIZE              DSLCOM     13
LBLSIZE   EQU    5*RMSPRU+4        MAXIMUM SIZE OF DEVICE LABEL          FCON        1
RBRLTH    EQU    38                LENGTH OF RBR TABLES                  DSLCOM     15
RBLIM     EQU    1                 RB SEARCH LIMIT FOR LABEL PROCESSING  DSLCOM     16
PRULIM    EQU    1                 PRU SEARCH LIMIT FOR LABEL PROCESSING DSLCOM     17
CMRSIZE   EQU    15000B            NO. OF WORDS TO MOVE IN SAVECMR       SC20102     1
MSYSDEV   EQU    5                 NO. OF DEVICES FOR WHICH TO SEARCH    DSLCOM     19
DSPLCHAN  EQU    10B               DISPLAY CHANNEL NUMBER                DSLCOM     20
DSPLCTLR  EQU    7                 DISPLAY CONTROLLER NUMBER             DSLCOM     21
CHPR      EQU    12B               PRINTER CHANNEL USED BY D.S. DUMP     DSLCOM     22
CNTPR     EQU    3                 PRINTER CONTROLLER FOR DUMP           GHK512F     1
DMPTPDEN  EQU      3               DUMPTAPE DENSITY (3=556,4=200,6=800)  DBBDDP1     1
          SPACE  2                                                       DSLCOM     25
*         SYMBOLS CONTROLLING CONDITIONAL ASSEMBLY OF DEBUGGING OPTIONS  DSLCOM     26
                                                                         DSLCOM     27
INITDS    EQU    0                                                       INITDS      1
VRN       CMICRO   1,,*VIM194*                                           RJDFLAW3    1
VRN      CMICRO     1,,*VIM199*                                          JSFLAW      1
VRN       CMICRO 1,,*VIM194*                                             JSFIRCP3    2
VRN      CMICRO    1,,*VIM196*                                           JEEYES      1
BREAKPT   EQU    0                 NZ TO GET CPU BREAKPOINT ROUTINE      DSLCOM     28
XOPTION   EQU    0                 NZ TO GET DEVICE READ/WRITE ROUTINE   DSLCOM     29
          IFNE   INITDS,0,2                                              GHKFXDS     2
          IFNE   XOPTION,0,1                                             GHKFXDS     3
          ERR    INITDS AND XOPTION CANT BE ON SIMULTANEOUSLY            GHKFXDS     4
          SPACE  2                                                       DSLCOM     30
*         IN THE COMMENTS FOR THE FOLLOWING SYMBOLS, A $ INDICATES       DSLCOM     31
*         USAGE OF THE SYMBOL DURING LABEL AND PERM FILE PROCESSING,     DSLCOM     32
*         A + INDICATES USAGE DURING RECOVERY, A * INDICATES USAGE       DSLCOM     33
*         DURING PRELOADING, AND A / INDICATES USAGE DURING LOADING.     DSLCOM     34
                                                                         DSLCOM     35
N.SEQ    EQU       W.SFRES+4*LE.SFRES  + THE LENGTH OF INSTALLATION AREA RRMSSRCV    1
DIRECT    EQU    T.PPC4+W.PPMES1  $ */MINI-DIRECTORY OF RMS DRIVERS      DSLCOM     36
CEDARGS   EQU    170B             $+*/PARAMETER AREA FROM CED            DSLCOM     37
BASE      EQU      60000B          OTHER CM ADRS ARE KEYED FROM THIS.    RJDIRC2     1
IRADR     EQU      BASE-20000B     ROOM FOR CODE.                        RJDIRC2     2
          IFEQ   BREAKPT,0,1                                             DSLCOM     40
ECARGS    EQU    IRADR+24B           /ECS POINTER TABLE (USED BY STL)    DSLCOM     41
          IFNE   BREAKPT,0,1                                             DSLCOM     42
ECARGS    EQU    IRADR+36            /ECS POINTER TABLE (USED BY STL)    DSLCOM     43
IRFLAG    EQU    IRADR+30B            FLAG FOR IRCP IDENTIFICATION       DSLCOM     44
DRIVBUF   EQU    BASE             $ */RMS DRIVER STORAGE AREA            DSLCOM     45
OPCXCTLW  EQU    DRIVBUF+4000B     $+*/OPCOM COMUNICATION AREA           FCVM001     1
TABLESAV  EQU    OPCXCTLW+500B    $+  CMR SAVE AREA FOR RECOVERY         DSLCOM     47
RMSBUF0   EQU    IRADR-MAXRBLTH   $+* RMS BUFFER (LABEL, P.F., PRELOAD)  DSLCOM     49
RMSBUF1   EQU    TABLESAV           * RMS BUFFER (PRELOAD ONLY)          DSLCOM     50
TBUF1     EQU    RMSBUF0-TAPEPRU    * TAPE BUFFER                        DSLCOM     51
TBUF0     EQU    TBUF1-TAPEPRU      * TAPE BUFFER                        DSLCOM     52
LBLADR    EQU    RMSBUF0-LBLSIZE  $   LABEL READ/WRITE AREA              FCON        2
LBLADR2   EQU    LBLADR-LBLSIZE-1 $   LABEL RE-READ AREA                 FCON        3
RBBUF     EQU   LBLADR2-TAPEPRU-1 $   AREA FOR STORING TEMP RB CHAIN     FCON        4
STLBUF    EQU    TABLESAV            /SAVE AREA FOR STL                  DSLCOM     56
MTRBUF    EQU    STLBUF+1500B        /SAVE AREA FOR MTR                  DSLCOM     57
DSDBUF    EQU    MTRBUF+1500B        /SAVE AREA FOR DSD                  DSLCOM     58
CMBUFFER  EQU    DSDBUF+1500B        /RMS BUFFER (LOADING ONLY)          DSLCOM     59
          SPACE  2                                                       DSLCOM     60
*                *** D E V I C E   M A C R O S ***                       DSLCOM     61
                                                                         DSLCOM     62
*         THE FOLLOWING MACROS ARE DEFINED IN ORDER TO KEEP ALL          DSLCOM     63
*         DEVICE-DEPENDANT TABLES USED BY DEAD-START IN ONE PLACE.       DSLCOM     64
*         CHANGES MUST BE MADE HERE IF ANY TABLES ARE TO BE CHANGED      DSLCOM     65
*         OR IF NEW TYPES OF DEVICES ARE SUPPORTED.  ANY NEW TABLES      DSLCOM     66
*         OF THIS TYPE SHOULD BE PLACED IN THIS SECTION IN THE FORM      DSLCOM     67
*         OF A MACRO DEFINITION, SO AS TO MAINTAIN DEVICE INDEPENDANT    DSLCOM     68
*         CODE IN THE DEAD-START ROUTINES.                               DSLCOM     69
          SPACE  2                                                       DSLCOM     70
*         USED BY EST TO OBTAIN DEVICE MNEMONICS OF ALL                  DSRT320     1
*         ALLOCATABLE DEVICES.  THE ENTRIES IN SEVERAL OF THE FOLLOWING  DSRT320     2
*         TABLES MUST BE IN THE SAME ORDER AS THIS TABLE.                DSRT320     3
                                                                         DSLCOM     74
DEVMMS    MACRO                                                          DSLCOM     75
          VFD    12/2RAA           6603-I DISK                           DSLCOM     76
          VFD    12/2RAB           6638 DISK                             DSLCOM     77
          VFD    12/2RAC           6603-II DISK                          DSLCOM     78
          VFD    12/2RAD           865 DRUM                              DSLCOM     79
          VFD    12/2RAP           854 DISK PACK                         DSLCOM     80
          VFD    12/2RAL           821 DISK FILE                         FCON        5
          VFD    12/2RAM           841 DISK                              FCON        6
          VFD    12/2RAY           821 BUFFERED DISK                     FCON        7
          VFD    12/2RAZ           841 BUFFERED DISK                     FCON        8
          VFD    12/2RAX           ECS                                   DSRT320     4
          ENDM                                                           DSLCOM     81
          SPACE  2                                                       DSLCOM     82
*         USED BY EST SEGMENT TO OBTAIN DEVICE TYPES.  MUST BE IN SAME   DSRT320     5
*         ORDER AS DEVMMS.                                               DSLCOM     84
                                                                         DSLCOM     85
DEVTYPES  MACRO                                                          DSLCOM     86
          DATA   0100B             AA                                    DSLCOM     87
          DATA   0200B             AB                                    DSLCOM     88
          DATA   0400B             AC                                    DSLCOM     89
          DATA   1200B             AD                                    DSLCOM     90
          DATA   0700B             AP                                    DSLCOM     91
          DATA   0500B             AL                                    FCON        9
          DATA   0600B             AM                                    FCON       10
          DATA   1500B             AY                                    FCON       11
          DATA   1600B             AZ                                    FCON       12
          DATA   2000B             AX                                    DSRT320     6
          ENDM                                                           DSLCOM     92
          SPACE  2                                                       DSLCOM     93
*         USED BY EST SEGMENT TO GET NUMBER OF RECORD BLOCKS FOR EACH    DSRT320     7
*         DEVICE TYPE.  MUST BE IN SAME ORDER AS DEVMMS.                 DSLCOM     95
                                                                         DSLCOM     96
DEVSIZE   MACRO                                                          DSLCOM     97
          DATA   2048              AA                                    DSLCOM     98
          DATA   2048              AB                                    DSLCOM     99
          DATA   2048              AC                                    DSLCOM    100
          DATA   512               AD                                    DSLCOM    101
          DATA   2000              AP                                    DSLCOM    102
          DATA   2048              AL                                    FCON       13
          DATA   1000              AM                                    FCON       14
          DATA   2048              AY                                    FCON       15
          DATA   1000              AZ                                    FCON       16
          DATA   60                AX                                    DSRT320     8
          ENDM                                                           DSLCOM    103
          SPACE  2                                                       DSLCOM    104
*         USED BY EST SEGMENT TO GET ALLOCATION STYLES FOR EACH DEVICE   DSRT320     9
*         TYPE.  MUST BE IN SAME ORDER AS DEVMMS.                        DSLCOM    106
                                                                         DSLCOM    107
DEVALLOC MACRO                                                           DSLCOM    108
          VFD    24/03020100B      AA                                    DSLCOM    109
          VFD    24/03010100B      AB                                    DSLCOM    110
          VFD    24/03020100B      AC                                    DSLCOM    111
          VFD    24/03010100B      AD                                    DSLCOM    112
          VFD    24/03010100B      AP                                    DSLCOM    113
          VFD    24/03010100B      AL                                    FCON       17
          VFD    24/03010100B      AM                                    FCON       18
          VFD    24/03010100B      AY                                    FCON       19
          VFD    24/03010100B      AZ                                    FCON       20
          VFD    24/03030300B      AX                                    DSRT320    10
          ENDM                                                           DSLCOM    114
          SPACE  2                                                       DSLCOM    115
*         USED BY CED TO OBTAIN THE NAMES OF ALL RMS DRIVERS.            DSLCOM    116
*         ALSO USED BY EST SEGMENT TO GET NAME OF DRIVER                 DSRT320    11
*         MUST BE IN THE SAME ORDER AS DEVMMS.                           DSLCOM    117
                                                                         DSLCOM    118
RMSDVRS   MACRO                                                          DSLCOM    119
          VFD    24/3L5CP,12/1     6603 DRIVER                           DSLCOM    120
          VFD    24/3L5CQ,12/1     6638 DRIVER                           DSLCOM    121
          VFD    24/3L5CT,12/1     6603-II DRIVER                        DSLCOM    122
          VFD    24/3L5CR,12/1     865 DRIVER                            DSLCOM    123
          VFD    24/3L5CS,12/1     854 DRIVER                            DSLCOM    124
          VFD    24/3L5CV,12/1     821 DRIVER                            FCON       21
          VFD    24/3L5CW,12/1     841 DRIVER                            FCON       22
          VFD    24/3L5CY,12/1     821 BUFFER DRIVER                     FCON       23
          VFD    24/3L5CZ,12/1                                           FCON       24
          ENDM                                                           DSLCOM    125
          SPACE  2                                                       DSLCOM    126
*         USED BY EST SEGMENT TO GET NAMES OF DRIVERS.  THIS IS AN       DSRT320    12
*         EXTENSION OF THE LIST PRODUCED BY RMSDVRS AND CONTAINS         DSRT320    13
*         ENTRIES FOR THE DEVICES FOR WHICH THERE IS NO DEAD-START       DSRT320    14
*         DRIVER.  THE COMBINATION OF RMSDVRS AND XXXDVRS MUST           DSRT320    15
*         BE IN THE SAME ORDER AS DEVMMS.                                DSRT320    16
                                                                         DSRT320    17
XXXDVRS   MACRO                                                          DSRT320    18
          VFD    24/3L3SX,12/2     ECS DRIVER NAME                       DSRT320    19
          ENDM                                                           DSRT320    20
          SPACE  2                                                       DSRT320    21
*         USED BY EST SEGMENT TO DETERMINE THE TYPE OF DEVICE FOR        DSRT320    22
*         ANY DEVICE MNEMONIC.  THIS MAY BE IN ANY ORDER.                DSRT320    23
                                                                         DSRT320    24
DEVCLASS  MACRO                                                          DSRT320    25
          VFD    12/2RAD,12/0      865 DRUM                              DSRT320    26
          VFD    12/2RAP,12/0      854 DISK PACK                         DSRT320    27
          VFD    12/2RAX,12/0      ECS                                   DSRT320    28
          VFD    12/2RAL,12/0                                            FCON       25
          VFD    12/2RAM,12/0                                            FCON       26
          VFD    12/2RAY,12/0                                            FCON       27
          VFD    12/2RAZ,12/0                                            FCON       28
          VFD    12/2RAA,12/1      6603 DISK                             DSRT320    29
          VFD    12/2RAB,12/1      6638 DISK                             DSRT320    30
          VFD    12/2RAC,12/1      6603-II DISK                          DSRT320    31
          VFD    12/2RCR,12/2      CARD READER                           DSRT320    32
          VFD    12/2RCP,12/2      CARD PUNCH                            DSRT320    33
          VFD    12/2RFM,12/2      DISPLAY/RECORDER                      DSRT320    34
          VFD    12/2RLP,12/2      501 PRINTER                           DSRT320    35
          VFD    12/2RLQ,12/2      512 PRINTER                           DSRT320    36
          VFD    12/2RMC,12/2      211 DISPLAY                           DSRT320    37
          VFD    12/2RMT,12/2      HALF-INCH MAGNETIC TAPE               DSRT320    38
          VFD    12/2RTW,12/2      TYPEWRITER                            DSRT320    39
          VFD    12/2RDC,12/3      6671 MULTIPLEXOR                      DSRT320    40
          VFD    12/2RDS,12/3      DISPLAY CONSOLE                       DSRT320    41
          VFD    12/2RSC,12/3      6675 MULTIPLEXOR                      DSRT320    42
          VFD    12/2RYC,12/3      6676 MULTIPLEXOR                      DSRT320    43
          ENDM                                                           DSRT320    44
          SPACE  2                                                       DSRT320    45
*         USED BY IRCP TO FIND DEVICE NAMES FROM THE 2-LETTER            DSLCOM    137
*         DEVICE MNEMONIC.                                               DSLCOM    138
                                                                         DSLCOM    139
DEVNAMES  MACRO                                                          DSLCOM    140
          VFD    12/2RAA,48/8H6603                                       DSLCOM    141
          VFD    12/2RAB,48/8H6638                                       DSLCOM    142
          VFD    12/2RAC,48/8H6603II                                     DSLCOM    143
          VFD    12/2RAD,48/8H865                                        DSLCOM    144
          VFD    12/2RAP,48/8H854                                        DSLCOM    145
          VFD    12/2RAL,48/8H821                                        FCON       29
          VFD    12/2RAM,48/8H841                                        FCON       30
          VFD    12/2RAY,48/8H821B                                       FCON       31
          VFD    12/2RAZ,48/8H841B                                       FCON       32
          ENDM                                                           DSLCOM    146
          SPACE    2                                                     BCIRCP      1
*         USED BY IRCP TO OBTAIN THE NUMBER OF BYTES PER SECTOR ON       BCIRCP      2
*         DEVICE.   MUST BE IN SAME ORDER AS DEVMMS                      BCIRCP      3
          SPACE    2                                                     BCIRCP      4
 DEVBYTE  MACRO                                                          BCIRCP      5
          DATA     502B            AA                                    BCIRCP      6
          DATA     502B            AB                                    BCIRCP      7
          DATA     502B            AC                                    BCIRCP      8
          DATA     502B           AD                                     BCIRCP      9
          DATA     502B           AP                                     BCIRCP     10
          DATA   502B              AL                                    BCIRCP     11
          DATA   502B              AM                                    BCIRCP     12
          DATA   500B              AY                                    BCIRCP     13
          DATA   500B              AZ                                    BCIRCP     14
          ENDM                                                           BCIRCP     15
          SPACE  2                                                       FCON       33
*         USED BY CED AND IRCP TO OBTAIN NUMBER OF RECORD BLOCK          FCON       34
*         RESERVATION TABLES (RBR S) FOR EACH UNIT FOR EACH DEVICE TYPE. FCON       35
*         MUST BE IN SAME ORDER AS DEVMMS.                               FCON       36
                                                                         FCON       37
DEVRBRS   MACRO                                                          FCON       38
          DATA   1                 AA                                    FCON       39
          DATA   1                 AB                                    FCON       40
          DATA   1                 AC                                    FCON       41
          DATA   1                 AD                                    FCON       42
          DATA   1                 AP                                    FCON       43
          DATA   8                 AL                                    FCON       44
          DATA   1                 AM                                    FCON       45
          DATA   8                 AY                                    FCON       46
          DATA   1                 AZ                                    FCON       47
          ENDM                                                           FCON       48
          SPACE  3                                                       DSLCOM    147
          SPACE  2                                                       ECSCOM      2
COMECS    IFNE   IP.ECNOM,0                                              ECSCOM      3
*         A COMMON DECK CONTAINING SYMBOLS FOR BNL ECS                   ECSCOM      4
*                                                                        ECSCOM      5
*         WORDS IN T.ECST, BYTES 0=UNUSED, 1+2=FE, 3+4=RE                ECSCOM      6
*                                                                        ECSCOM      7
E.ALLOC   EQU    0                 ALLOCATABLE BLOCK                     ECSCOM      8
E.COMM    EQU    1                 COMMON AREA                           ECSCOM      9
E.USER    EQU    2                 DIRECT USER ACCESS BLOCK              ECSCOM     10
*                                                                        ECSCOM     11
*         THE REST CONTAIN ONLY ONE VALUE, RIGHT ADJUSTED                ECSCOM     12
*                                                                        ECSCOM     13
E.STGMVE  EQU    3                 UNUSED                                ECSCOM     14
E.LENGTH  EQU    4                 TOTAL LENGTH OF ATTACHED ECS          ECSCOM     15
E.DELAY   EQU    5                 STATISTICS DELAY PERIOD               ECSCOM     16
*                                                                        ECSCOM     17
*         WORDS IN T.ECSTAT                                              ECSCOM     18
*                                                                        ECSCOM     19
E.STAT1   EQU    0                 CUMULATIVE SUM OF READ/WRITE TIMES    ECSCOM     20
E.STAT2   EQU    1                 UNUSED                                ECSCOM     21
E.STAT3   EQU    2                 NUMBER OF ECS READ OPERATIONS         ECSCOM     22
E.STAT4   EQU    3                 CUMULATIVE SUM OF WORDS READ          ECSCOM     23
E.STAT5   EQU    4                 NUMBER OF ECS WRITE OPERATIONS        ECSCOM     24
E.STAT6   EQU    5                 CUMULATIVE SUM OF WORDS WRITTEN       ECSCOM     25
E.STAT7   EQU    6                 UNUSED                                ECSCOM     26
E.STAT8   EQU    7                 UNUSED                                ECSCOM     27
*                                                                        ECSCOM     28
*         OTHER SYMBOLS                                                  ECSCOM     29
*                                                                        ECSCOM     30
E.ECH     EQU    4                 CHANNEL FOR 1SP(3SX)-PP TRANSMISSION  ECSCOM     31
E.PREL    EQU    0                 0=REAL ECS, 1=FAKE ECS(UPPER CM)      ECSCOM     32
E.STDLY   EQU    600D              SYSTEM DEFAULT DELAY PERIOD FOR EC1   ECSCOM     33
E.ERPAR   EQU    4001B             ECS PARITY ERROR FLAG RETND BY ICEBOX SCQ320B     1
N.ECPORT  EQU    1                 NUMBER OF ECS PORTS IN USE            ECSCOM     34
COMECS    ENDIF                                                          ECSCOM     35
          SPACE  2                                                       ECSCOM     36
          TITLE  OPCOM MACRO                                             DSMAC       2
**********                                                               DSMAC       3
*                                                                        DSMAC       4
*         OPERATOR COMMUNICATION MACROS                                  DSMAC       5
*                                                                        DSMAC       6
**********                                                               DSMAC       7
*                                                                        DSMAC       8
*         OPCOM  RTNTYPE,GROUPS,FILL                                     DSMAC       9
*                                                                        DSMAC      10
*         WHERE  RTNTYPE = N FOR RETURN OF NUMERIC VALUE OF INPUT        DSMAC      11
*                          (-1 IF INPUT WAS NOT GOOD)                    DSMAC      12
*                          A FOR RETURN OF ADRS OF ALFA INPUT            DSMAC      13
*                                                                        DSMAC      14
*                          X IF NO INPUT IS EXPECTED (I.E. WE DO NOT     DSMAC      15
*                          WAIT FOR A CARRIAGE RETURN).  DISPLAY UNTIL   DSMAC      16
*                          NEW DISPLAY REQUESTED                         DSMAC      17
*                                                                        DSMAC      18
*                          O FOR RETURN OF OPTION NUMBER                 DSMAC      19
*                                                                        DSMAC      20
*                GROUPS IS OF THE FORM (GROUP1,GROUP2,...,GROUPN) WHERE  DSMAC      21
*                          EACH GROUP(I) IS THE ADDRESS OF A TEXT LIST.  DSMAC      22
*                                                                        DSMAC      23
*                FILL   IS OF THE FORM (ADDRESS,COUNT) WHERE ADDRESS IS  DSMAC      24
*                          THE LOCATION OF INPUT TO INSERT INTO MSGTEXT. DSMAC      25
*                          MAXIMUM LENGTH IS SPECIFIED BY COUNT.         DSMAC      26
*                                                                        DSMAC      27
OPCOM     MACRO  RTNTYPE,GROUPS,FILL                                     DSMAC      28
          LOCAL  NUM,NUMX,CNTR1                                          DSMAC      29
CNTR1     SET    1                                                       DSMAC      30
RTYPE     SET    0                                                       DSMAC      31
RTNX      MICRO  1,,*NAXO*                                               DSMAC      32
MTMPA     MICRO  1,1,$RTNTYPE$                                           DSMAC      33
          DUP    4                                                       DSMAC      34
MTMP      MICRO  CNTR1,1,*"RTNX"*                                        DSMAC      35
          IFC    EQ,$"MTMP"$"MTMPA"$,1                                   DSMAC      36
RTYPE     SET    1                                                       DSMAC      37
CNTR1     SET    CNTR1+1                                                 DSMAC      38
          ENDD                                                           DSMAC      39
          IFCP                                                           DSMAC      40
.$LTH     MICRO  1,,*60*                                                 DSMAC      41
.$INSA    MICRO  1,,*SX1*                                                DSMAC      42
.$INSB    MICRO  1,,*RJ*                                                 DSMAC      43
          ENDIF                                                          DSMAC      44
          IFPP                                                           DSMAC      45
.$LTH     MICRO  1,,*12*                                                 DSMAC      46
.$INSA    MICRO  1,,*LDC*                                                DSMAC      47
.$INSB    MICRO  1,,*RJM*                                                DSMAC      48
          ENDIF                                                          DSMAC      49
FILLA     MICRO  1,0,**                                                  DSMAC      50
FILLB     MICRO  1,0,**                                                  DSMAC      51
Z1        IFC    NE,$FILL$$                                              DSMAC      52
CNTR3     SET    0                                                       DSMAC      53
CNTR1     SET    1                                                       DSMAC      54
          DUP    9                                                       DSMAC      55
MTMP      MICRO  CNTR1,1,*FILL*                                          DSMAC      56
          IFC    EQ,$"MTMP"$,$,2                                         DSMAC      57
CNTR3     SET    1                                                       DSMAC      58
          STOPDUP                                                        DSMAC      59
          IFNE   CNTR3,1,1                                               DSMAC      60
FILLA     MICRO  1,,*"FILLA""MTMP"*                                      DSMAC      61
CNTR1     SET    CNTR1+1                                                 DSMAC      62
          ENDD                                                           DSMAC      63
          IFNE   CNTR3,1,1                                               DSMAC      64
FILLA     MICRO  1,,**                                                   DSMAC      65
CNTR3     SET    0                                                       DSMAC      66
Z0        DUP    4                                                       DSMAC      67
MTMP      MICRO  CNTR1,1,*FILL*                                          DSMAC      68
          IFC    EQ,$"MTMP"$$,1                                          DSMAC      69
          STOPDUP                                                        DSMAC      70
FILLB     MICRO  1,,*"FILLB""MTMP"*                                      DSMAC      71
CNTR1     SET    CNTR1+1                                                 DSMAC      72
Z0        ENDD                                                           DSMAC      73
Z1        ENDIF                                                          DSMAC      74
          IFC    EQ,$"FILLA"$$,4                                         DSMAC      75
FILLA     MICRO  1,,*B0*                                                 DSMAC      76
          IFPP   2                                                       DSMAC      77
          LDN    0                                                       DSMAC      78
          DUP    0,1                                                     DSMAC      79
          ".$INSA" "FILLA"                                               DSMAC      80
          ".$INSB"  OPCOM                                                DSMAC      81
          IFEQ   RTYPE,1,1                                               DSMAC      82
          VFD    12/1R"MTMPA"                                            DSMAC      83
          IFNE   RTYPE,1,1                                               DSMAC      84
          VFD    12/1RX                                                  DSMAC      85
          VFD    12/NUM                                                  DSMAC      86
          IFC    NE,$"FILLA"$$,1                                         DSMAC      87
          VFD    12/"FILLB"                                              DSMAC      88
          IFC    EQ,$"FILLA"$$,1                                         DSMAC      89
          VFD    12/0                                                    DSMAC      90
NUMX      BSS    0                                                       DSMAC      91
CNTR2     SET    0                                                       DSMAC      92
CNTR1     SET    1                                                       DSMAC      93
MTMPA     MICRO  1,,**                                                   DSMAC      94
Z4        DUP    500                                                     DSMAC      95
MTMP      MICRO  CNTR1,1,$GROUPS$                                        DSMAC      96
          IFC    EQ,$"MTMP"$$,2                                          DSMAC      97
          STOPDUP                                                        DSMAC      98
          DUP    0,1                                                     DSMAC      99
          IFC    EQ,$"MTMP"$,$,3                                         DSMAC     100
+         VFD    ".$LTH"/"MTMPA"                                         DSMAC     101
MTMPA     MICRO  1,,**                                                   DSMAC     102
MTMP      MICRO  1,,**                                                   DSMAC     103
MTMPA     MICRO  1,,*"MTMPA""MTMP"*                                      DSMAC     104
CNTR1     SET    CNTR1+1                                                 DSMAC     105
Z4        ENDD                                                           DSMAC     106
NUM       EQU    *-NUMX                                                  DSMAC     107
          IFEQ   NUM,0,1                                                 DSMAC     108
          ERR                      ZERO LIST GROUPS                      DSMAC     109
          ENDM                                                           DSMAC     110
          TITLE  LIST DELIMITERS                                         DSMAC     111
**********                                                               DSMAC     112
*                                                                        DSMAC     113
*         LIST DELIMITERS                                                DSMAC     114
*                                                                        DSMAC     115
**********                                                               DSMAC     116
*                                                                        DSMAC     117
*         XXXLST PARM1,PARM2,W,X,Y,Z                                     DSMAC     118
*                                                                        DSMAC     119
*         WHERE                    W = 0 FOR MSGLST                      DSMAC     120
*                                    = 1 FOR OPTLST                      DSMAC     121
*                                    = 2 FOR QSTLST                      DSMAC     122
*                                                                        DSMAC     123
*                                  X = 0 FOR LEFT SCREEN                 DSMAC     124
*                                    = 1 FOR RIGHT SCREEN                DSMAC     125
*                                                                        DSMAC     126
*                                  Y = 0                                 DSMAC     127
*                                                                        DSMAC     128
*                                  Z = 0 FOR SMALL CHARACTERS            DSMAC     129
*                                    = 1 FOR MEDIUM CHARACTERS           DSMAC     130
*                                    = 2 FOR LARGE CHARACTERS            DSMAC     131
*                                                                        DSMAC     132
*                                  PARM1 AND PARM2 ARE PASSED FROM       DSMAC     133
*                                  THE CALLED MACRO                      DSMAC     134
*                                                                        DSMAC     135
XXXLST    MACRO  PARM1,PARM2,W,X,Y,Z,Z1                                  DSMAC     136
          LOCAL  X1                                                      DSMAC     137
X1        SET    X                                                       DSMAC     138
Z1        SET    Z                                                       DSMAC     139
          IFC    EQ,$PARM1$RIGHT$,1                                      DSMAC     140
X1        SET    1                                                       DSMAC     141
          IFC    EQ,$PARM2$RIGHT$,1                                      DSMAC     142
X1        SET    1                                                       DSMAC     143
          IFC    EQ,$PARM1$LEFT$,1                                       DSMAC     144
X1        SET    0                                                       DSMAC     145
          IFC    EQ,$PARM2$LEFT$,1                                       DSMAC     146
X1        SET    0                                                       DSMAC     147
          IFC    EQ,$PARM1$SMALL$,1                                      DSMAC     148
Z1        SET    0                                                       DSMAC     149
          IFC    EQ,$PARM2$SMALL$,1                                      DSMAC     150
Z1        SET    0                                                       DSMAC     151
          IFC    EQ,$PARM1$MEDIUM$,1                                     DSMAC     152
Z1        SET    1                                                       DSMAC     153
          IFC    EQ,$PARM2$MEDIUM$,1                                     DSMAC     154
Z1        SET    1                                                       DSMAC     155
          IFC    EQ,$PARM1$LARGE$,1                                      DSMAC     156
Z1        SET    2                                                       DSMAC     157
          IFC    EQ,$PARM2$LARGE$,1                                      DSMAC     158
Z1        SET    2                                                       DSMAC     159
+         VFD    12/W*1000B+X1*100B+Y*10B+Z1                             DSMAC     160
XXXLST    ENDM                                                           DSMAC     161
*                                                                        DSMAC     162
**********                                                               DSMAC     163
*                                                                        DSMAC     164
*         INFORMATION HEADER                                             DSMAC     165
*                                                                        DSMAC     166
**********                                                               DSMAC     167
MSGLST    MACRO  PARM1,PARM2                                             DSMAC     168
          LOCAL  Z1                                                      DSMAC     169
          IF     -DEF,.$LIST,2                                           DSMAC     170
.$MODE    SET    0                                                       DSMAC     171
.$LIST    SET    0                                                       DSMAC     172
          IFNE   .$LIST,0,2                                              DSMAC     173
          ERR                                                            DSMAC     174
Q1        IFNE   1,0                                                     DSMAC     175
.$LIST    SET    1                                                       DSMAC     176
          XXXLST PARM1,PARM2,0,1,0,1,Z1                                  DSMAC     177
.$TABX    SET    0                                                       DSMAC     178
.$POSX    SET    0                                                       DSMAC     179
.$POSY    SET    0                                                       DSMAC     180
Q1        ENDIF                                                          DSMAC     181
MSGLST    ENDM                                                           DSMAC     182
**********                                                               DSMAC     183
*                                                                        DSMAC     184
*         OPTION HEADER                                                  DSMAC     185
*                                                                        DSMAC     186
**********                                                               DSMAC     187
*                                                                        DSMAC     188
OPTLST    MACRO  PARM1,PARM2                                             DSMAC     189
          LOCAL  Z1                                                      DSMAC     190
          IF     -DEF,.$LIST,2                                           DSMAC     191
.$MODE    SET    0                                                       DSMAC     192
.$LIST    SET    0                                                       DSMAC     193
          IFNE   .$LIST,0,2                                              DSMAC     194
          ERR                                                            DSMAC     195
Q1        IFNE   1,0                                                     DSMAC     196
.$LIST    SET    1                                                       DSMAC     197
          XXXLST PARM1,PARM2,1,0,0,1,Z1                                  DSMAC     198
.$TABX    SET    0                                                       DSMAC     199
.$POSX    SET    0                                                       DSMAC     200
          IFEQ   Z1,0,1                                                  DSMAC     201
.$POSY    SET    22                                                      DSMAC     202
          IFEQ   Z1,1,1                                                  DSMAC     203
.$POSY    SET    11                                                      DSMAC     204
          IFEQ   Z1,2,1                                                  DSMAC     205
.$POSY    SET    7                                                       DSMAC     206
Q1        ENDIF                                                          DSMAC     207
OPTLST    ENDM                                                           DSMAC     208
*                                                                        DSMAC     209
**********                                                               DSMAC     210
*                                                                        DSMAC     211
*         QUESTION LIST HEADER                                           DSMAC     212
*                                                                        DSMAC     213
**********                                                               DSMAC     214
*                                                                        DSMAC     215
QSTLST    MACRO  PARM1,PARM2                                             DSMAC     216
          LOCAL  Z1                                                      DSMAC     217
          IF     -DEF,.$LIST,2                                           DSMAC     218
.$MODE    SET    0                                                       DSMAC     219
.$LIST    SET    0                                                       DSMAC     220
          IFNE   .$LIST,0,2                                              DSMAC     221
          ERR                                                            DSMAC     222
Q1        IFNE   1,0                                                     DSMAC     223
.$LIST    SET    1                                                       DSMAC     224
          XXXLST PARM1,PARM2,2,0,0,1,Z1                                  DSMAC     225
.$TABX    SET    0                                                       DSMAC     226
.$POSX    SET    0                                                       DSMAC     227
          IFEQ   Z1,0,1                                                  DSMAC     228
.$POSY    SET    10                                                      DSMAC     229
          IFEQ   Z1,1,1                                                  DSMAC     230
.$POSY    SET    4                                                       DSMAC     231
          IFEQ   Z1,2,1                                                  DSMAC     232
.$POSY    SET    3                                                       DSMAC     233
Q1        ENDIF                                                          DSMAC     234
QSTLST    ENDM                                                           DSMAC     235
*                                                                        DSMAC     236
**********                                                               DSMAC     237
*                                                                        DSMAC     238
*         LIST TERMINATOR                                                DSMAC     239
*                                                                        DSMAC     240
**********                                                               DSMAC     241
*                                                                        DSMAC     242
ENDLST    MACRO                                                          DSMAC     243
+         VFD    12/7777B                                                DSMAC     244
.$LIST    SET    0                                                       DSMAC     245
ENDLST    ENDM                                                           DSMAC     246
          TITLE  PTABX MACRO                                             DSMAC     247
**********                                                               DSMAC     248
*                                                                        DSMAC     249
*         SET X MARGIN MACRO                                             DSMAC     250
*                                                                        DSMAC     251
**********                                                               DSMAC     252
*                                                                        DSMAC     253
PTABX     MACRO  POS                                                     DSMAC     254
          IFC    EQ,$POS$*$,1                                            DSMAC     255
.$TABX    SET    0                                                       DSMAC     256
          IFC    NE,$POS$*$,1                                            DSMAC     257
.$TABX    SET    POS                                                     DSMAC     258
.$POSX    SET    .$TABX                                                  DSMAC     259
PTABX     ENDM                                                           DSMAC     260
          TITLE  POSTXT MACRO                                            DSMAC     261
**********                                                               DSMAC     262
*                                                                        DSMAC     263
*         POSITION TEXT TO (X,Y)                                         DSMAC     264
*                                                                        DSMAC     265
**********                                                               DSMAC     266
*                                                                        DSMAC     267
POSTXT    MACRO  X,Y                                                     DSMAC     268
          IFC    EQ,$X$*$,1                                              DSMAC     269
.$POSX    SET    .$TABX                                                  DSMAC     270
          IFC    NE,$X$*$,1                                              DSMAC     271
.$POSX    SET    X                                                       DSMAC     272
          IFC    EQ,=_Y_=*=,2                                            DSMAC     273
.$POSY    SET    .$POSY+1                                                DSMAC     274
          DUP    0,4                                                     DSMAC     275
          IFC    EQ,=_Y_=$=,2                                            DSMAC     276
.$POSY    SET    .$POSY-1                                                DSMAC     277
          DUP    0,1                                                     DSMAC     278
.$POSY    SET    Y                                                       DSMAC     279
POSTXT    ENDM                                                           DSMAC     280
          TITLE TABX MACRO                                               DSMAC     281
**********                                                               DSMAC     282
*                                                                        DSMAC     283
*         TAB X POSITION ON CURRENT LINE                                 DSMAC     284
*                                                                        DSMAC     285
**********                                                               DSMAC     286
*                                                                        DSMAC     287
TABX      MACRO  N                                                       DSMAC     288
          LOCAL  DORK                                                    DSMAC     289
DORK      MICRO  1,1,Q_N_Q                                               DSMAC     290
          IFC    EQ,#"DORK"#$#,4                                         DSMAC     291
DORK      MICRO  2,,Q_N_Q                                                DSMAC     292
.$POSX    SET    "DORK"                                                  DSMAC     293
.$POSY    SET    .$POSY-1                                                DSMAC     294
ZZ1       DUP    0                                                       DSMAC     295
          IFGT   N,.$POSX,1                                              DSMAC     296
.$POSX    SET    N                                                       DSMAC     297
          IFLT   N,.$POSX,1                                              DSMAC     298
.$POSX    SET    .$POSX+1                                                DSMAC     299
ZZ1       ENDD                                                           DSMAC     300
TABX      ENDM                                                           DSMAC     301
          TITLE  SCAN MODE SET MACRO                                     DSMAC     302
**********                                                               DSMAC     303
*                                                                        DSMAC     304
*         SMODE                                                          DSMAC     305
*                                                                        DSMAC     306
**********                                                               DSMAC     307
*                                                                        DSMAC     308
*         THIS MACRO CONTROLS THE SCAN OF MSGTEXT FOR $-S.  THE NORMAL   DSMAC     309
*         MODE IS OFF.  IN THE OFF MODE, THE TEXT IS NOT EXAMINED FOR    DSMAC     310
*         DOLLAR SIGNS.  IF DOLLAR SIGNS EXIST IN THE TEXT, IT IS UP TO  DSMAC     311
*         THE PROGRAMMER TO INSURE THAT THEY ARE POSITIONED CORRECTLY    DSMAC     312
*         WITH THE SCAN ON (MAKING THE ASSEMBLY TIME MUCH LONGER) THIS   DSMAC     313
*         DOLLAR SIGN PROCESSING IS DONE AUTOMATICALLY.                  DSMAC     314
SMODE     MACRO  X                                                       DSMAC     315
.$MODE    SET    0                 MODE IS OFF                           DSMAC     316
          IFC    EQ,$X$ON$,1                                             DSMAC     317
.$MODE    SET    1                 MODE IS ON                            DSMAC     318
SMODE     ENDM                                                           DSMAC     319
          TITLE  TEXT MACROS                                             DSMAC     320
**********                                                               DSMAC     321
*                                                                        DSMAC     322
*         BASIC TEXT HANDLING MACRO                                      DSMAC     323
*                                                                        DSMAC     324
**********                                                               DSMAC     325
STEXT     MACRO  MSGX,X,Y                                                DSMAC     326
          LOCAL  CHARCT,OUTCT,TMP                                        DSMAC     327
+         VFD    6/X                                                     DSMAC     328
          VFD    6/Y                                                     DSMAC     329
MSGQ      MICRO  1,,#_MSGX_#                                             DSMAC     330
OUT       MICRO  1,1,#"MSGQ"#                                            DSMAC     331
          IFC    EQ,="OUT"=$=,7                                          DSMAC     332
OUT       MICRO  2,,#"MSGQ"#                                             DSMAC     333
          VFD    12/7777B                                                DSMAC     334
          IFPP   2                                                       DSMAC     335
          VFD    12/"OUT"                                                DSMAC     336
          DUP    0,1                                                     DSMAC     337
          VFD    36/"OUT"                                                DSMAC     338
.2        DUP    0                                                       DSMAC     339
FLIP      SET    0                                                       DSMAC     340
OUTCT     SET    0                                                       DSMAC     341
CHARCT    SET    1                                                       DSMAC     342
OUT       MICRO  1,,**                                                   DSMAC     343
.0        DUP    1000                                                    DSMAC     344
CHAR      MICRO  CHARCT,1,#"MSGQ"#                                       DSMAC     345
          IFC    EQ,#"CHAR"##,2                                          DSMAC     346
          STOPDUP                                                        DSMAC     347
.1        IFNE   1,0                                                     DSMAC     348
.11       IFC    EQ,#"CHAR"#$#                                           DSMAC     349
          IFNE   FLIP,0,2                                                DSMAC     350
OUT       MICRO  1,,#"OUT" #.                                            DSMAC     351
OUTCT     SET    OUTCT+1                                                 DSMAC     352
OUT       MICRO  1,,#"OUT"$$#                                            DSMAC     353
OUTCT     SET    OUTCT+2                                                 DSMAC     354
CHARQ     MICRO  CHARCT+1,1,#"MSGQ"#                                     DSMAC     355
          IFC    EQ,#"CHARQ"#$#,1                                        DSMAC     356
CHARCT    SET    CHARCT+1                                                DSMAC     357
.11       ENDIF                                                          DSMAC     358
          IFC    NE,#"CHAR"#$#,2                                         DSMAC     359
OUT       MICRO  1,,#"OUT""CHAR"#                                        DSMAC     360
OUTCT     SET    OUTCT+1                                                 DSMAC     361
CHARCT    SET    CHARCT+1                                                DSMAC     362
TMP       SET    OUTCT/2                                                 DSMAC     363
TMP       SET    TMP*2                                                   DSMAC     364
FLIP      SET    OUTCT-TMP                                               DSMAC     365
.1        ENDIF                                                          DSMAC     366
.0        ENDD                                                           DSMAC     367
          DATA   C#_"OUT"_#                                              DSMAC     368
.2        ENDD                                                           DSMAC     369
STEXT     ENDM                                                           DSMAC     370
**********                                                               DSMAC     371
*                                                                        DSMAC     372
*         HANDLE TEXT WITHOUT SCAN                                       DSMAC     373
*                                                                        DSMAC     374
**********                                                               DSMAC     375
*                                                                        DSMAC     376
TEXT      MACRO  MSGX,X,Y                                                DSMAC     377
+         VFD    6/X                                                     DSMAC     378
          VFD    6/Y                                                     DSMAC     379
OUT       MICRO  1,1,#_MSGX_#                                            DSMAC     380
          IFC    EQ,#"OUT"#$#,7                                          DSMAC     381
OUT       MICRO  2,,#_MSGX_#                                             DSMAC     382
          VFD    12/-0                                                   DSMAC     383
          IFPP   2                                                       DSMAC     384
          VFD    12/"OUT"                                                DSMAC     385
          DUP    0,1                                                     DSMAC     386
          VFD    36/0                                                    DSMAC     387
.2        DUP    0                                                       DSMAC     388
          DATA   C#_MSGX_#                                               DSMAC     389
.2        ENDD                                                           DSMAC     390
TEXT      ENDM                                                           DSMAC     391
*                                                                        DSMAC     392
**********                                                               DSMAC     393
*                                                                        DSMAC     394
*         MSGTEXT                                                        DSMAC     395
*                                                                        DSMAC     396
**********                                                               DSMAC     397
MSGTEXT   MACRO  MSG                                                     DSMAC     398
          IFEQ   .$MODE,0,1                                              DSMAC     399
          TEXT   (MSG),.$POSX,.$POSY                                     DSMAC     400
          IFEQ   .$MODE,1,1                                              DSMAC     401
          STEXT  (MSG),.$POSX,.$POSY                                     DSMAC     402
.$POSY    SET    .$POSY+1                                                DSMAC     403
.$POSX    SET    .$TABX                                                  DSMAC     404
MSGTEXT   ENDM                                                           DSMAC     405
*                                                                        DSMAC     406
**********                                                               DSMAC     407
*                                                                        DSMAC     408
*         OPTEXT                                                         DSMAC     409
*                                                                        DSMAC     410
**********                                                               DSMAC     411
OPTEXT    MACRO  MSG                                                     DSMAC     412
          STEXT  (MSG),.$POSX,.$POSY                                     DSMAC     413
.$POSY    SET    .$POSY+1                                                DSMAC     414
.$POSX    SET    .$TABX                                                  DSMAC     415
OPTEXT    ENDM                                                           DSMAC     416
*                                                                        DSMAC     417
**********                                                               DSMAC     418
*                                                                        DSMAC     419
*         QSTEXT                                                         DSMAC     420
*                                                                        DSMAC     421
**********                                                               DSMAC     422
QSTEXT    MACRO  MSG                                                     DSMAC     423
          TEXT   (MSG),.$POSX,.$POSY                                     DSMAC     424
.$POSY    SET    .$POSY+1                                                DSMAC     425
.$POSX    SET    .$TABX                                                  DSMAC     426
QSTEXT    ENDM                                                           DSMAC     427
          TITLE                   LOCAL MACROS                           IRCP      162
                                                                         IRCP      163
S         MACRO  RES,NAME                                                IRCP      164
          IFGT   NAME,2,2                                                IRCP      165
          S_RES  NAME                                                    IRCP      166
          IFPP   7                                                       IRCP      167
NAME      EQU    NAME                                                    IRCP      168
          IFEQ   NAME,0,1                                                IRCP      169
          S_RES  B0                                                      IRCP      170
          IFEQ   NAME,1,1                                                IRCP      171
          S_RES  B1                                                      IRCP      172
          IFEQ   NAME,2,1                                                IRCP      173
          S_RES  B1+B1                                                   IRCP      174
          ENDM                                                           IRCP      175
                                                                         IRCP      176
SHIFT     MACRO  REG,SYMBOL                                              IRCP      177
          LOCAL  A                                                       IRCP      178
          IFEQ   SYMBOL,4,1                                              IRCP      179
SYMBOL    EQU    SYMBOL                                                  IRCP      180
          IFLT   SYMBOL,4,2                                              IRCP      181
A         EQU    SYMBOL                                                  IRCP      182
          L_REG  A*12+12                                                 IRCP      183
          ENDM                                                           IRCP      184
L         MACRO     REG,CUR1,DES1                                        HS2IRCQ     1
          LOCAL  CURPOS,DESTIN                                           HS2IRCQ     2
DESTIN    SET    DES1                                                    HS2IRCQ     3
CURPOS    SET    CUR1                                                    HS2IRCQ     4
          IFNE   CURPOS,DESTIN                                           SC2838      3
          IFGT   CURPOS,DESTIN,1                                         SC2838      4
          L_REG  12D*CURPOS-12D*DESTIN                                   SC2838      5
          IFLT   CURPOS,DESTIN,1                                         SC2838      6
          L_REG  60D+12D*CURPOS-12D*DESTIN                               SC2838      7
          ENDIF                                                          SC2838      8
          ENDM                                                           SC2838     10
          IFNE   BREAKPT,0                                               IRCP      185
*                                                                        IRCP      186
*         BREAK POINT MACRO                                              IRCP      187
*                                                                        IRCP      188
BREAK     MACRO                                                          IRCP      189
          XJ     0                                                       IRCP      190
BREAK     ENDM                                                           IRCP      191
          ENDIF                                                          IRCP      192
*                                                                        GHKCPL2     1
*         CALL MACRO                                                     GHKCPL2     2
*                                                                        GHKCPL2     3
          PURGMAC   CALL                                                 GHKCPL2     4
CALL      MACRO     TO             A REAL BIGGIE                         GHKCPL2     5
          RJ        TO                                                   GHKCPL2     6
          ENDM                                                           GHKCPL2     7
          TITLE                   MAIN ROUTINE                           IRCP      193
          ORG    IRADR                                                   IRCP      194
                                                                         IRCP      195
*         EXCHANGE PACKAGE IS SET AS FOLLOWS --                          IRCP      196
                                                                         IRCP      197
*                P  = STARTING ADDRESS                                   IRCP      198
*                RA = 0                                                  IRCP      199
*                FL = 400000B                                            IRCP      200
*                EM = 0                                                  IRCP      201
*                B1 = 1                                                  IRCP      202
*                X4 = 77777B                                             IRCP      203
*                X5 = 177777B                                            IRCP      204
*                X6 = 377777B                                            IRCP      205
*                X7 = 4000B                                              IRCP      206
*                ALL OTHER REGISTERS = 0                                 IRCP      207
                                                                         IRCP      208
IRADR     VFD    24/IRCP1,36/0     P, A0, B0                             IRCP      209
          VFD    60/1              RA, A1, B1                            IRCP      210
          VFD    24/400000B,36/0   FL, A2, B2                            IRCP      211
          BSSZ   2                                                       IRCP      212
          VFD    24/-0,36/0                                              IRCP      213
          IFEQ   BREAKPT,0,1                                             IRCP      214
          BSSZ   1                                                       IRCP      215
          IFNE   BREAKPT,0,1                                             IRCP      216
          VFD    24/CMBPJMPG,36/0                                        IRCP      217
          BSSZ   5                                                       IRCP      218
          DATA   77777B            X4                                    IRCP      219
          DATA   177777B           X5                                    IRCP      220
          DATA   377777B           X6                                    IRCP      221
          DATA   4000B             X7                                    IRCP      222
                                                                         IRCP      223
          IFNE   BREAKPT,0,1                                             IRCP      224
CMBPQ     BSSZ   16                BRKPNT JMPG BUFFER                    IRCP      225
          IFNE   IP.ECNOM,0,5                                            IRCP      226
QUITSW    VFD    60/0                                                    IRCP      227
          VFD    60/QBUF                                                 IRCP      228
          VFD    60/MESBF                                                IRCP      229
          VFD    60/KEYIN                                                IRCP      230
          VFD    60/PBUF                                                 IRCP      231
                                                                         IRCP      232
*         DETERMINE CENTRAL MEMORY SIZE                                  IRCP      233
                                                                         IRCP      234
          IFEQ   BREAKPT,0,1                                             IRCP      235
IRCP1     BSS    0                                                       IRCP      236
          IFNE   BREAKPT,0,1                                             IRCP      237
IRCP1     BREAK                    ENTER BREAK POINT ROUTINE             IRCP      238
*         SET UP INITIAL EMPTY CHAIN                                     IRCP      396
                                                                         IRCP      397
IRCP6B    S      A1,P.RBT                                                IRCP      398
          LX1    48                                                      IRCP      399
          MX0    48                                                      IRCP      400
          SX4    B1                                                      IRCP      401
          BX2    -X0*X1            (LENGTH OF RBT)/100B                  IRCP      402
          NZ   X2,IRCP7            MUST BE NON-ZERO                      IRCP      403
          SX2    B1                                                      IRCP      404
IRCP7     BX1    X1+X2                                                   IRCP      405
          LX2    5                 NUMBER OF WORD PAIRS                  IRCP      406
          LX1    48                                                      IRCP      407
          BX1    X1+X4             SET POINTER TO EMPTY CHAIN = 1        IRCP      408
          LX1    24                                                      IRCP      409
          SA3    MEMSIZE           GET MEMORY SIZE                       IRCP      410
          MX6    0                 SET A6 = LWA+1 OF CM                  IRCP      411
          SA6    X3                AND CM LOC 0 = 0                      IRCP      412
          AX3    6                                                       IRCP      413
          BX7    X1+X3             INSERT MEMORY SIZE IN P.RBT           IRCP      414
          SA7    A1                STORE P.RBT                           IRCP      415
          MX6    1                                                       IRCP      416
          LX6    50                INITIAL CHAIN LINK = 2                IRCP      417
          AX5    X6,B1             USE X5 AS INCREMENT                   IRCP      418
          MX7    0                                                       IRCP      419
IRCP8     SA7    A6-B1             STORE 2ND WORD OF WORD PAIR           IRCP      420
          IX2    X2-X4                                                   IRCP      421
          SA6    A7-B1             STORE 1ST WORD OF WORD PAIR           IRCP      422
          IX6    X6+X5             UPDATE CHAIN LINK                     IRCP      423
          NZ   X2,IRCP8            LOOP                                  IRCP      424
          SA7    A6                CLEAR LAST CHAIN LINK                 IRCP      425
                                                                         IRCP      426
*         GO PERFORM LABEL CHECKING AND PERMANENT FILE INITIALIZATION    IRCP      427
                                                                         IRCP      428
          RJ   LF                                                        IRCP      429
                                                                         IRCP      430
*         GO TO MAIN RECOVERY ROUTINE IF THIS IS A RECOVERY              IRCP      431
INIT      IFEQ   INITDS,0                                                GHKFXDS    61
                                                                         IRCP      432
          SA1    CEDARGS                                                 IRCP      433
          MX0    48                                                      IRCP      434
          BX1    -X0*X1                                                  IRCP      435
          SX1    X1-2                                                    IRCP      436
          NZ   X1,IRCP9A           JUMP IF NOT RECOVERY                  HS2IRCP    24
          RJ   RECOVERY                                                  IRCP      438
          EQ   IRCP10                                                    IRCP      439
                                                                         IRCP      440
 IRCP9A   S        A3,P.LIB                                              DMD30588   20
          SX7      10000B          AFTER RECOVERY SECTION DONE, CLEAR RB DMD30588   21
          BX7      -X7*X3          RBT-SAVED FLAG                        DMD30588   22
          SA7      A3                                                    DMD30588   23
          RJ       ECSETUP                                               DMD30588   24
          SA1      CEDARGS                                               HS2IRCP    26
          MX0      48                                                    HS2IRCP    27
          AX1      36                                                    HS2IRCP    28
          BX0      -X0*X1          ECS RECONFIGURE FLAG                  HS2IRCP    29
          NZ       X0,IRCP9B       JUMP IF NOT TO RECONFIGURE            HS2IRCP    30
          RJ       ALTLIB                                                HS2IRCQ    15
 IRCP9B   BSS      0                                                     HS2IRCP    32
*         PRELOAD                                                        IRCP      441
                                                                         IRCP      442
IRCP9     RJ   PRELOAD                                                   IRCP      443
                                                                         IRCP      444
*         LOAD                                                           IRCP      445
                                                                         IRCP      446
IRCP10    RJ   LOAD                                                      IRCP      447
INIT      ELSE                                                           GHKFXDS    62
IRCP9     OPCOM    X,(DEDDONE,ALSORAN)                                   DBBIONL    39
          EQ       IRCP9                                                 DBBIONL    40
DEDDONE   MSGLST   LARGE,LEFT                                            DBBIONL    41
          POSTXT   1,1                                                   DBBIONL    42
          MSGTEXT  (INITIALIZING)                                        DBBIONL    43
          POSTXT   1,3                                                   DBBIONL    44
          MSGTEXT  (COMPLETED)                                           DBBIONL    45
          ENDLST                                                         DBBIONL    46
ALSORAN   MSGLST   LARGE,RIGHT                                           DBBIONL    47
          POSTXT   1,5                                                   DBBIONL    48
          MSGTEXT  (NOW DEADSTART)                                       DBBIONL    49
          POSTXT   3,7                                                   DBBIONL    50
          MSGTEXT  (REGULAR TAPE)                                        DBBIONL    51
          ENDLST                                                         DBBIONL    52
INIT      ENDIF                                                          GHKFXDS    63
          TITLE     GENERAL SUBROUTINES --- WAITYN                       HS2IRCP   909
*         WAITYN - WAIT FOR OPERATOR Y OR N                              HS2IRCP   910
*         EXIT - X6=0 FOR A Y, NON-ZERO FOR A N                          HS2IRCP   911
*                                                                        HS2IRCP   912
WAITYN    PS                                                             HS2IRCP   913
WAITYNL   SA1       A1             LOAD INPUT                            HS2IRCP   914
          AX1      54              GET 1ST LETTER ONLY                   BBBRWYN     6
          SX6      X1-1RY          TEST FOR A Y                          BBBRWYN     7
          JP       WAITYN          AND EXIT                              BBBRWYN     8
          TITLE                   GENERAL SUBROUTINES --- GETRBR         IRCP     3568
*         GETRBR -- GET RBR ORDINAL AND ADDRESS                          IRCP     3569
                                                                         IRCP     3570
*               ENTRY - X5 = EST ORDINAL                                 IRCP     3571
*                       B1 = 1                                           IRCP     3572
                                                                         IRCP     3573
*               EXIT -  RBRORD AND RBRADR ARE SET UP                     IRCP     3574
*                       A0, B-REGISTERS ARE SAVED                        IRCP     3575
                                                                         IRCP     3576
*               CALLED BY - PLDEV, LF                                    IRCP     3577
                                                                         IRCP     3578
AGILE     SA6    RBRORD            STORE ORDINAL AND ADDRESS             IRCP     3579
          SA7    RBRADR                                                  IRCP     3580
GETRBR    DATA   0                 ENTRY/EXIT                            IRCP     3581
          S      A2,P.RBR          RBR POINTER                           IRCP     3582
          SHIFT  X2,C.RBRAD+1                                            IRCP     3583
          SX7    X2                ADDRESS OF 1ST RBR                    IRCP     3584
          MX0    12                                                      IRCP     3585
          LX0    48                POSITION MASK OVER EST ORD. FIELD     IRCP     3586
          SX6    B0                INITIALIZE RBR ORDINAL                IRCP     3587
          BX3    X5                LEAVE X5 INTACT                       IRCP     3588
          LX3    36                                                      IRCP     3589
CONE      SA4    X7+B1             GET 2ND WORD OF RBR                   IRCP     3590
          BX4    X4*X0             ISOLATE EST ORDINAL                   IRCP     3591
          IX4    X4-X3             COMPARE                               IRCP     3592
          ZR   X4,AGILE            EXIT ON MATCH                         IRCP     3593
          SX6    X6+B1             BUMP ORDINAL                          IRCP     3594
          SX7    X7+RBRLTH         BUMP ADDRESS                          IRCP     3595
          EQ   CONE                LOOP                                  IRCP     3596
          TITLE                   GENERAL SUBROUTINES --- GETWDPR        IRCP     3597
*         GETWDPR -- SET UP NEXT WORD PAIR FOR ANY RBT CHAIN             IRCP     3598
                                                                         IRCP     3599
*                 ENTRY - B1 = 1                                         IRCP     3600
*                         X1 = RBT ADDRESS OF PREVIOUS WORD PAIR         IRCP     3601
*                              OR ZERO IF THIS WILL BE THE FIRST         IRCP     3602
*                         X2 = STARTING BYTE ADDRESS TO BE INSERTED      IRCP     3603
*                         RBRADR = ADDRESS OF RBR                        IRCP     3604
*                         RBRORD = RBR ORDINAL TO BE INSERTED            IRCP     3605
                                                                         IRCP     3606
*                 EXIT -  X6 = RBT ADDRESS OF NEW WORD PAIR              IRCP     3607
*                         A0, B-REGISTERS ARE SAVED                      IRCP     3608
                                                                         IRCP     3609
*                 CALLED BY - PFB                                        IRCP     3610
                                                                         IRCP     3611
*                 CALLS - CKCHAIN                                        IRCP     3612
                                                                         IRCP     3613
GETWDPR   DATA   0                                                       IRCP     3614
          SX6    B2                SAVE B-REGISTERS                      IRCP     3615
          SX7    B3                                                      IRCP     3616
          LX6    18                                                      IRCP     3617
          IX6    X6+X7                                                   IRCP     3618
          SA6    GWPSV                                                   IRCP     3619
          S      A4,P.RBT          ISOLATE POINTER TO EMPTY CHAIN        IRCP     3620
          MX0    12                                                      IRCP     3621
          LX4    24                                                      IRCP     3622
          BX6    X0*X4                                                   IRCP     3623
          SA5    MEMSIZE                                                 IRCP     3624
          SB2    X5                B2 = LWA+1 OF CM                      IRCP     3625
          BX5    X6                                                      IRCP     3626
          LX5    13                                                      IRCP     3627
          SB3    X5                B3 = DECREMENT TO WORD PAIR           IRCP     3628
          SA5    B2-B3             1ST WORD OF WD PR (LOWER 48 BITS = 0) IRCP     3629
          BX4    -X0*X4            CLEAR EMPTY CHAIN POINTER IN P.RBT    IRCP     3630
          IX7    X4+X5             INSERT NEW VALUE                      IRCP     3631
          LX7    36                SHIFT                                 IRCP     3632
          SA7    A4                AND STORE BACK                        IRCP     3633
          SA3    RBRORD            GET RBR ORDINAL                       IRCP     3634
          LX3    39                SHIFT RBR ORDINAL AND BYTE            IRCP     3635
          LX2    36                NUMBER INTO PLACE                     IRCP     3636
          IX7    X2+X3             AND STORE IN 1ST WORD                 IRCP     3637
          SA7    A5                CHAIN LINK WILL BE SET = 0            IRCP     3638
          ZR   X1,GWDP2            JUMP IF 1ST WORD PAIR OF CHAIN        IRCP     3639
          LX1    1                 GET ADR OF PREVIOUS WORD PAIR         IRCP     3640
          SB3    X1                                                      IRCP     3641
          SA1    B2-B3             1ST WORD OF PREVIOUS WORD PAIR        IRCP     3642
          BX7    -X0*X1                                                  IRCP     3643
          IX7    X7+X6             INSERT LINK TO WORD PAIR JUST ADDED   IRCP     3644
          SA7    A1                                                      IRCP     3645
GWDP1     LX6    12                RETURN WITH NEW WORD PAIR ADR IN X6   IRCP     3646
          RJ   CKCHAIN             MAKE SURE EMPTY CHAIN LONG ENOUGH     IRCP     3647
          SA1    GWPSV             RESTORE B-REGISTERS                   IRCP     3648
          SB3    X1                                                      IRCP     3649
          AX1    18                                                      IRCP     3650
          SB2    X1                                                      IRCP     3651
          EQ   GETWDPR             EXIT                                  IRCP     3652
                                                                         IRCP     3653
GWDP2     SA2    RBRADR            INSERT ALLOCATION TYPE IN 1ST WD PR   IRCP     3654
          MX0    54                                                      IRCP     3655
          LX0    18                                                      IRCP     3656
          SA2    X2                                                      IRCP     3657
          BX2    -X0*X2            ALLOCATION TYPE                       IRCP     3658
          LX2    6                                                       IRCP     3659
          IX7    X7+X2             ADD TO 1ST WORD OF 1ST WORD PAIR      IRCP     3660
          SA7    A5                STORE                                 IRCP     3661
          EQ   GWDP1                                                     IRCP     3662
                                                                         IRCP     3663
GWPSV     DATA   0                 STORAGE FOR B-REGISTERS               IRCP     3664
          TITLE                   GENERAL SUBROUTINES --- CKCHAIN        IRCP     3665
*         CKCHAIN -- MAKE SURE EMPTY CHAIN IS AT LEAST 100B WORDS LONG   IRCP     3666
                                                                         IRCP     3667
*                 ENTRY - B1 = 1                                         IRCP     3668
                                                                         IRCP     3669
*                 EXIT  - A0, X6, B-REGISTERS ARE SAVED                  IRCP     3670
                                                                         IRCP     3671
*                 CALLED BY - PRELOAD, PLDEV, PLPRU, GETWDPR             IRCP     3672
                                                                         IRCP     3673
CKCHAIN   DATA   0                                                       IRCP     3674
          SX1    B2                SAVE B-REGISTERS                      IRCP     3675
          SX2    B3                                                      IRCP     3676
          LX1    18                                                      IRCP     3677
          IX7    X1+X2                                                   IRCP     3678
          SA7    CKCSV                                                   IRCP     3679
          S      A1,P.RBT          RBT POINTER WORD                      IRCP     3680
          MX0    48                                                      IRCP     3681
          LX1    36                                                      IRCP     3682
          BX2    -X0*X1            (NO. WD PRS BELOW EMPTY CHAIN) + 1    IRCP     3683
          SB3    X2+37B            (NO. WD PRS BELOW EMPTY CHAIN) + 40B  IRCP     3684
          LX1    12                                                      IRCP     3685
          BX2    -X0*X1            (RBT LENGTH)/100B                     IRCP     3686
          LX2    5                                                       IRCP     3687
          SB2    X2                TOTAL NUMBER OF WORD PAIRS            IRCP     3688
          SX3    B1                                                      IRCP     3689
          GE   B2,B3,CKCN2         EXIT IF EMPTY CHAIN LARGE ENOUGH      IRCP     3690
          IX7    X1+X3             BUMP LENGTH IN P.RBR BY 100B WORDS    IRCP     3691
          LX7    12                                                      IRCP     3692
          SA7    A1                                                      IRCP     3693
          SX2    B2+B2             TOTAL RBT LENGTH                      IRCP     3694
          SA1    MEMSIZE                                                 IRCP     3695
          IX1    X1-X2             ADR OF END OF RBT-S BEFORE INCREASE   IRCP     3696
          MX7    0                 STORE NEW END 100B WORDS DOWN         IRCP     3697
          SA7    X1-100B                                                 IRCP     3698
          SB3    B2+40B            VALUE FOR NEW ENDING CHAIN LINK       IRCP     3699
CKCN1     MX7    0                 STORE ZERO 2ND WORD OF PAIR           IRCP     3700
          SA7    A7+B1                                                   IRCP     3701
          SX7    B3                SET CHAIN LINK FOR NEXT 1ST WORD      IRCP     3702
          LX7    48                                                      IRCP     3703
          SB3    B3-B1             REDUCE CHAIN LINK                     IRCP     3704
          SA7    A7+B1             STORE 1ST WORD                        IRCP     3705
          LT   B2,B3,CKCN1         LOOP UNTIL CHAIN LINK DOWN TO OLD MAX IRCP     3706
CKCN2     SA1    CKCSV             RESTORE B-REGISTERS                   IRCP     3707
          SB3    X1                                                      IRCP     3708
          AX1    18                                                      IRCP     3709
          SB2    X1                                                      IRCP     3710
          EQ   CKCHAIN             EXIT                                  IRCP     3711
                                                                         IRCP     3712
CKCSV     DATA   0                 STORAGE FOR B-REGISTERS               IRCP     3713
          TITLE                   GENERAL SUBROUTINES --- WAITGO         IRCP     3714
*         WAITGO -- CHECK FOR OPERATOR RESPONSE OF -GO-                  IRCP     3715
                                                                         IRCP     3716
*                ENTRY - A1 = ADDRESS OF OPERATOR INPUT                  IRCP     3717
*                        B1 = 1                                          IRCP     3718
                                                                         IRCP     3719
*                EXIT -  X6 = 0 IF INPUT WAS -GO-                        IRCP     3720
*                           = NONZERO FOR ANY OTHER INPUT                IRCP     3721
*                        USES A2, X1, X2 ONLY                            IRCP     3722
                                                                         IRCP     3723
*                CALLED BY - PRELOAD, RECOVERY, REJ, LF, PFA, PFBREAD    IRCP     3724
                                                                         IRCP     3725
WAITGO    DATA   0                                                       IRCP     3726
          SA1    A1                GET THE INPUT                         IRCP     3727
          SA2    HGO               THIS IS WHAT INPUT SHOULD LOOK LIKE   IRCP     3728
          IX6    X1-X2             X6 = 0 IF MATCH                       IRCP     3729
          EQ   WAITGO              EXIT                                  IRCP     3730
                                                                         IRCP     3731
HGO       DATA   10HGO                                                   IRCP     3732
          TITLE                   GENERAL SUBROUTINES --- SQUANK         IRCP     3733
*         SQUANK -- ADD BLANKS TO WORD                                   IRCP     3734
                                                                         IRCP     3735
*                ENTRY - X6 = WORD CONTAINING ANY DISPLAY CODES          IRCP     3736
                                                                         IRCP     3737
*                EXIT -  X6 = SAME WORD WITH ALL ZERO CHARS CHANGED      IRCP     3738
*                             TO BLANKS                                  IRCP     3739
*                        USES X1,X2,X3                                   IRCP     3740
                                                                         IRCP     3741
*                CALLED BY - PRELOAD, LFLAWS                             IRCP     3742
                                                                         IRCP     3743
SQUANK    DATA   0                                                       IRCP     3744
          SX2    55B                                                     IRCP     3745
          MX3    54                                                      IRCP     3746
SQUANK1   BX1    -X3*X6            LOOK AT ONE CHAR                      IRCP     3747
          NZ   X1,SQUANK2          JUMP IF NON-ZERO                      IRCP     3748
          IX6    X6+X2             PUT IN A BLANK                        IRCP     3749
SQUANK2   PL   X3,SQUANK           CHECK IF DONE                         IRCP     3750
          LX2    6                 SHIFT FOR NEXT CHAR                   IRCP     3751
          LX3    6                                                       IRCP     3752
          EQ   SQUANK1             LOOP                                  IRCP     3753
          TITLE                   GENERAL SUBROUTINES --- DEVINFO        IRCP     3754
*         DEVINFO -- SET UP 3-WORD DEVICE INFORMATION AS FOLLOWS -       IRCP     3755
                                                                         IRCP     3756
*                    DEVXX YYYYYY CHZZ EQZ UNZZ                          IRCP     3757
                                                                         IRCP     3758
*                    WHERE XX     = EST ORDINAL                          IRCP     3759
*                          YYYYYY = DEVICE NAME                          IRCP     3760
*                          Z,ZZ   = HARDWARE INFORMATION                 IRCP     3761
                                                                         IRCP     3762
*                 ENTRY - X5 = ADDRESS TO STORE THIS DATA                IRCP     3763
*                         B1 = 1                                         IRCP     3764
*                         ESTADR = EST ADDRESS                           IRCP     3765
*                         ESTORD = EST ORDINAL                           IRCP     3766
                                                                         IRCP     3767
*                 EXIT  - A0, B-REGISTERS ARE SAVED                      IRCP     3768
                                                                         IRCP     3769
*                 CALLED BY - PLDEV, GETDEV, REJ, LF, IDEV, RDLBL,       IRCP     3770
*                             PFA, PFBREAD                               IRCP     3771
                                                                         IRCP     3772
DEVINFO   DATA   0                                                       IRCP     3773
          SA1    ESTADR            EST ADDRESS                           IRCP     3774
          SA2    ESTORD            EST ORDINAL                           IRCP     3775
          MX0    12                                                      IRCP     3776
          SA3    X1                GET EST ENTRY                         IRCP     3777
                                                                         IRCP     3778
*         EST ORDINAL                                                    IRCP     3779
                                                                         IRCP     3780
          MX4    57                                                      IRCP     3781
          BX6    X4*X2             UPPER DIGIT OF EST ORDINAL            IRCP     3782
          LX6    3                                                       IRCP     3783
          BX2    -X4*X2            LOWER DIGIT OF EST ORDINAL            IRCP     3784
          IX2    X2+X6             BOTH DIGITS OF EST ORDINAL            IRCP     3785
          SA1    DVIM              1ST WORD OF SKELETON MESSAGE          IRCP     3786
          LX2    30                SHIFT EST ORDINAL TO POSITION         IRCP     3787
          IX1    X1+X2             ADD EST ORDINAL TO MESSAGE            IRCP     3788
                                                                         IRCP     3789
*         DEVICE NAME                                                    IRCP     3790
                                                                         IRCP     3791
          SX7    B0                SET UP FOR SEARCH OF TABLE            IRCP     3792
          MX2    11                                                      IRCP     3793
          LX2    59                                                      IRCP     3794
          LX3    36                POSITION EST ENTRY                    IRCP     3795
          SA4    PLUG              SET UP LAST ENTRY IN TABLE EQUAL      IRCP     3796
          BX4    -X2*X4            TO WHAT IS ACTUALLY IN THE EST        IRCP     3797
          BX6    X2*X3             SO THAT THE FOLLOWING SEARCH WILL     IRCP     3798
          IX6    X4+X6             ALWAYS FIND SOMETHING EVEN IF         IRCP     3799
          SA6    A4                THE EST HAS A STRANGE DEVICE TYPE     IRCP     3800
DVI1      SA4    X7+DEVTABLE       FIND SIMILIAR DEVICE MNEMONIC         IRCP     3801
          BX6    X3-X4                                                   IRCP     3802
          BX6    X2*X6                                                   IRCP     3803
          SX7    X7+B1                                                   IRCP     3804
          NZ   X6,DVI1             LOOP UNTIL MATCH                      IRCP     3805
          LX4    36                                                      IRCP     3806
          MX2    36                1ST FOUR CHARS OF DEVICE NAME         IRCP     3807
          BX2    -X2*X4            GO IN RIGHT FOUR CHARS OF WORD        IRCP     3808
          IX6    X1+X2             ONE OF DEVICE INFORMATION             IRCP     3809
          SA6    X5                STORE 1ST WORD OF INFORMATION         IRCP     3810
          SA1    A1+B1             2ND WORD OF SKELETON MESSAGE          IRCP     3811
          BX4    X0*X4             PUT LAST TWO CHARS IN NEXT WORD       IRCP     3812
          IX1    X1+X4                                                   IRCP     3813
                                                                         IRCP     3814
*         CHANNEL NUMBER                                                 IRCP     3815
                                                                         IRCP     3816
          MX0    54                                                      IRCP     3817
          MX2    57                                                      IRCP     3818
          LX3    48                POSITION EST ENTRY                    IRCP     3819
          BX4    -X0*X3            CHANNEL NUMBER                        IRCP     3820
          BX5    X2*X4             UPPER DIGIT                           IRCP     3821
          LX5    3                                                       IRCP     3822
          BX4    -X2*X4            LOWER DIGIT                           IRCP     3823
          IX4    X5+X4             BOTH DIGITS                           IRCP     3824
          LX4    18                                                      IRCP     3825
          IX6    X1+X4             ADD CHANNEL NUMBER TO MESSAGE         IRCP     3826
          SA6    A6+B1             STORE 2ND WORD OF MESSAGE             IRCP     3827
          SA1    A1+B1             3RD WORD OF SKELETON MESSAGE          IRCP     3828
                                                                         IRCP     3829
*         EQUIPMENT NUMBER                                               IRCP     3830
                                                                         IRCP     3831
          LX3    3                 POSITION EST FOR EQUIP. NO. ON RIGHT  IRCP     3832
          BX4    -X2*X3            EQUIPMENT NUMBER                      IRCP     3833
          LX4    54                                                      IRCP     3834
          IX1    X1+X4             ADD TO MESSAGE                        IRCP     3835
                                                                         IRCP     3836
*         UNIT NUMBER                                                    IRCP     3837
                                                                         IRCP     3838
          LX3    9                 POSITION EST FOR UNIT NUMBER          IRCP     3839
          BX4    -X0*X3            UNIT NUMBER                           IRCP     3840
          BX5    X2*X4             UPPER DIGIT                           IRCP     3841
          LX5    3                                                       IRCP     3842
          BX4    -X2*X4            LOWER DIGIT                           IRCP     3843
          IX4    X4+X5             BOTH DIGITS                           IRCP     3844
          LX4    24                                                      IRCP     3845
          IX6    X1+X4             ADD TO MESSAGE                        IRCP     3846
          SA6    A6+B1             STORE 3RD (LAST) WORD                 IRCP     3847
          EQ   DEVINFO             EXIT                                  IRCP     3848
                                                                         IRCP     3849
DVIM      VFD    36/6HDEV00 ,24/0                                        IRCP     3850
          VFD    12/0,48/8H CH00 EQ                                      IRCP     3851
          VFD    60/6L0 UN00                                             IRCP     3852
          TITLE                   GENERAL SUBROUTINES --- DEVERR         IRCP     3853
*         DEVERR -- SET UP DEVICE ERROR INFORMATION                      IRCP     3854
                                                                         IRCP     3855
*                   THE 2ND LINE OF A MESSAGE OF THE FORMAT SHOWN        IRCP     3856
*                   HERE IS SET UP.  IT IS INTENDED THAT THE 1ST         IRCP     3857
*                   LINE WILL APPEAR AS FOLLOWS, BUT IT IS NOT AFFECTED  IRCP     3858
*                   BY THIS ROUTINE.  (EACH LINE IS 3 WORDS LONG)        IRCP     3859
                                                                         IRCP     3860
*                            RBR RB PRU DVST CVST  ADR-REG               IRCP     3861
*                            00 0000 00 0000 0000 00000000               IRCP     3862
                                                                         IRCP     3863
*                   ENTRY - X2 = FWA TO STORE 2ND LINE                   IRCP     3864
*                           B1 = 1                                       IRCP     3865
                                                                         IRCP     3866
*                   EXIT  - A0, B-REGISTERS ARE SAVED                    IRCP     3867
                                                                         IRCP     3868
*                   CALLED BY - PLWAITR, RDNXTRB, REJ, LF, IDEV, PFA,    IRCP     3869
*                               PFBREAD                                  IRCP     3870
                                                                         IRCP     3871
*                   CALLS - CNVTBTO                                      IRCP     3872
                                                                         IRCP     3873
DEVERR    DATA   0                                                       IRCP     3874
          SX1    B7                SAVE B7  (USED BY CNVTBTO)            IRCP     3875
          SA5    T.PPC2+W.PPMES3   WORD 1 OF ERROR INFORMATION           IRCP     3876
          AX5    27                RIGHT JUSTIFY RB NUMBER               IRCP     3877
          MX0    48                                                      IRCP     3878
          RJ   CNVTBTO             CONVERT BOTH RB AND RBR NUMBER        IRCP     3879
          BX7    -X0*X6            RBR NUMBER                            IRCP     3880
          LX7    48                IT GOES IN CHARS 9 AND 10             IRCP     3881
          MX0    36                                                      IRCP     3882
          AX6    18                                                      IRCP     3883
          BX6    -X0*X6            RB NUMBER                             IRCP     3884
          LX6    18                IT GOES IN CHARS 4 THRU 7             IRCP     3885
          BX7    X7+X6             RBR AND RB NUMBERS                    IRCP     3886
          SA5    A5+B1             WORD 2 OF ERROR INFORMATION           IRCP     3887
          MX0    48                                                      IRCP     3888
          RJ   CNVTBTO             CONVERT PRU NUMBER                    IRCP     3889
          BX6    -X0*X6            PRU NUMBER TO CHARS 1 AND 2           IRCP     3890
          BX7    X6+X7             RBR, RB, AND PRU NUMBERS              IRCP     3891
          SA7    X2                STORE IN WORD 1 OF OUTPUT             IRCP     3892
          SA5    A5-B1             WORD 1 OF ERROR INFORMATION           IRCP     3893
          MX0    36                                                      IRCP     3894
          RJ   CNVTBTO             CONVERT DEV. STATUS AND CNV. STATUS   IRCP     3895
          BX7    -X0*X6            CONVERTER STATUS TO CHARS 1 THRU 4    IRCP     3896
          AX6    24                                                      IRCP     3897
          BX6    -X0*X6            DEVICE STATUS                         IRCP     3898
          LX6    30                PUT IT IN CHARS 6 THRU 9              IRCP     3899
          IX7    X7+X6             DEV. STATUS AND CNV. STATUS           IRCP     3900
          SA7    A7+B1             STORE THIS DATA                       IRCP     3901
          SA5    A5+2              3RD WORD OF ERROR INFORMATION         IRCP     3902
          MX0    12                                                      IRCP     3903
          LX5    36                                                      IRCP     3904
          RJ   CNVTBTO             CONVERT HARDWARE ADDRESS REGISTER     IRCP     3905
          BX7    -X0*X6            HARDWARE ADDRESS REGISTER             IRCP     3906
          LX7    6                 CHARS 2 THRU 9                        IRCP     3907
          SA7    A7+B1             STORE 3RD WORD OF OUTPUT              IRCP     3908
          SB7    X1                RESTORE B7                            IRCP     3909
          EQ   DEVERR              EXIT                                  IRCP     3910
          TITLE                   GENERAL SUBROUTINES --- FINDBIT        IRCP     3911
*         FINDBIT -- FIND BIT IN RBR                                     IRCP     3912
*                    RBR IS NOT MODIFIED                                 IRCP     3913
                                                                         IRCP     3914
*                 ENTRY - X1 = RB NUMBER                                 IRCP     3915
*                         B1 = 1                                         IRCP     3916
*                         RBRADR = RBR ADDRESS                           IRCP     3917
                                                                         IRCP     3918
*                 EXIT  - X1 = ONE BIT IN POSITION OF RB                 IRCP     3919
*                         X2 = FWA OF RBR                                IRCP     3920
*                         A3 = ADR OF RBR WORD                           IRCP     3921
*                         X3 = RBR WORD                                  IRCP     3922
*                         A0, X5, B-REGISTERS ARE SAVED                  IRCP     3923
                                                                         IRCP     3924
*                 CALLED BY - IRCP, GETRB, SETRB, IDEV, PFA, GPFRB       IRCP     3925
                                                                         IRCP     3926
FINDBIT   DATA   0                                                       IRCP     3927
          SX0    B2                SAVE B-REGISTERS                      IRCP     3928
          SX7    B3                                                      IRCP     3929
          LX1    53                FOLLOWING COMMENTS ARE FROM 3.1.2     IRCP     3930
          SX2    X1                DESCRIPTOR WORD ADDRESS               IRCP     3931
          BX1    X1-X2                                                   IRCP     3932
          LX1    6                                                       IRCP     3933
          SB3    X1                BIT POSITION                          IRCP     3934
          SB2    X1-60                                                   IRCP     3935
          NG   B2,FBT1             JUMP IF BIT IS IN BASE WORD           IRCP     3936
          LX2    57                                                      IRCP     3937
          SX3    X2                SET X3 = POSITION OF WORD IN TAIL     IRCP     3938
          BX2    X2-X3             SET X2 = F   IN UPPER BITS            IRCP     3939
          LX2    2                                                       IRCP     3940
          SX4    X2                SET X4 = D                            IRCP     3941
          LX2    4                 SET X2 = F*8                          IRCP     3942
          LX4    2                 SET X4 = 4D                           IRCP     3943
          IX2    X2-X4             SET X2 = INDEX BIT                    IRCP     3944
          SB3    X2                                                      IRCP     3945
          SB3    B3+B2             ADD IN BIT WITHIN GROUP               IRCP     3946
          SX2    X3+32             SET WORD TO ADDRESS IN TAIL + 32      IRCP     3947
FBT1      SB2    59                COMPUTE SHIFT COUNT                   IRCP     3948
          SB3    B2-B3                                                   IRCP     3949
          SX1    B1                                                      IRCP     3950
          LX1    X1,B3             SHIFT BIT INTO POSITION               IRCP     3951
          SB2    X2+2                                                    IRCP     3952
          SA2    RBRADR            FWA OF RBR                            IRCP     3953
          SA3    X2+B2             GET THE APPROPRIATE WORD              IRCP     3954
          SB3    X7                RESTORE B-REGISTERS                   IRCP     3955
          SB2    X0                                                      IRCP     3956
          EQ   FINDBIT             EXIT                                  IRCP     3957
          TITLE                   GENERAL SUBROUTINES --- GETRB          IRCP     3958
*         GETRB -- FIND NEXT FREE RB IN RBR                              IRCP     3959
                                                                         IRCP     3960
*               ENTRY - RBRADR = RBR ADDRESS                             IRCP     3961
*                       RBNUM  = RB NUMBER-2 TO BEGIN SEARCH             IRCP     3962
*                       B1 = 1                                           IRCP     3963
*               EXIT  - RBNUM AND X1 = RB NUMBER                         IRCP     3964
*                       X6 = NEGATIVE IF RBR FULL                        IRCP     3965
*                       A0, B-REGISTERS ARE SAVED                        IRCP     3966
                                                                         IRCP     3967
*               CALLED BY - LF, IDEV, RDLBL, GPFRB                       IRCP     3968
                                                                         IRCP     3969
*               CALLS - FINDBIT                                          IRCP     3970
                                                                         IRCP     3971
GETRB     DATA   0                                                       IRCP     3972
GRB1      SA1    RBNUM             ADVANCE RB NUMBER                     IRCP     3973
          SX6    X1+2                                                    IRCP     3974
          LX6    47                CHECK IF LAST RB = 7777B              IRCP     3975
          NG   X6,GETRB            EXIT IF RBR IS FULL                   IRCP     3976
          LX6    13                                                      IRCP     3977
          SA6    A1                STORE NEXT RB NUMBER                  IRCP     3978
          BX1    X6                GO GET POSITION OF THIS RB            IRCP     3979
          RJ   FINDBIT                                                   IRCP     3980
          BX2    X1*X3             CHECK IF BIT ALREADY SET              IRCP     3981
          NZ   X2,GRB1             LOOP IF ALREADY SET                   IRCP     3982
          SA1    RBNUM             FOUND                                 IRCP     3983
          EQ   GETRB               EXIT                                  IRCP     3984
          TITLE                   GENERAL SUBROUTINES --- SETRB          IRCP     3985
*         SETRB -- SET BIT IN RBR                                        IRCP     3986
                                                                         IRCP     3987
*                  THE PROPER BIT POSITION IN THE RBR IS DETERMINED,     IRCP     3988
*                  AND THE BIT IS SET IF IT WAS NOT ALREADY SET.  ALSO,  IRCP     3989
*                  THE LOGICAL AVAILABILITY IS DECREMENTED UNLESS        IRCP     3990
*                  THE BIT WAS ALREADY SET.                              IRCP     3991
                                                                         IRCP     3992
*               ENTRY - X1 = RB NUMBER                                   IRCP     3993
*                       B1 = 1                                           IRCP     3994
*                       RBRADR = RBR ADDRESS                             IRCP     3995
                                                                         IRCP     3996
*               EXIT  - X1 = NON-ZERO IF BIT WAS ALREADY SET             IRCP     3997
*                       X5 = RB NUMBER                                   IRCP     3998
*                       A0, B-REGISTERS ARE SAVED                        IRCP     3999
                                                                         IRCP     4000
*               CALLED BY - FIXRBR, LF, PFB                              IRCP     4001
                                                                         IRCP     4002
*               CALLS - FINDBIT                                          IRCP     4003
                                                                         IRCP     4004
SETRB     DATA   0                                                       IRCP     4005
          BX5    X1                SAVE RB NUMBER                        IRCP     4006
          RJ   FINDBIT             GO FIND POSITION IN RBR               IRCP     4007
          BX7    X1+X3             ADD BIT TO WORD                       IRCP     4008
          BX1    X1*X3             LOOK AT PREVIOUS SETTING OF BIT       IRCP     4009
          NZ   X1,SETRB            EXIT IF IT WAS SET BEFORE             IRCP     4010
          SA7    A3                STORE THE WORD                        IRCP     4011
          SA2    X2+B1             GET 2ND WORD OF RBR HEADER            IRCP     4012
          SX3    B1                                                      IRCP     4013
          LX3    12                                                      IRCP     4014
          IX7    X2-X3             REDUCE LOGICAL AVAILABILITY           IRCP     4015
          SA7    A2                                                      IRCP     4016
          EQ   SETRB               EXIT                                  IRCP     4017
          TITLE                   GENERAL SUBROUTINES --- WRITERB        IRCP     4018
*         WRITERB -- WRITE RECORD BLOCK                                  IRCP     4019
                                                                         IRCP     4020
*                 ENTRY - B1 = 1                                         IRCP     4021
*                         B6 = RECORD BLOCK NUMBER                       IRCP     4022
*                         B7 = CM FWA                                    IRCP     4023
*                         ESTORD = EST ORDINAL OF DEVICE                 IRCP     4024
                                                                         IRCP     4025
*                 EXIT  - X4 = NON-ZERO IF ANY ERROR                     IRCP     4026
*                         B-REGISTERS ARE SAVED                          IRCP     4027
                                                                         IRCP     4028
*                 CALLED BY - PFA, GPFRB                                 IRCP     4029
                                                                         IRCP     4030
*                 CALLS - RWRB, REJ, READRB                              IRCP     4031
                                                                         IRCP     4032
WRITERB   DATA   0                                                       IRCP     4033
          SX6    B4                SAVE B-REGISTERS                      IRCP     4034
          SX7    B5                                                      IRCP     4035
          LX6    18                                                      IRCP     4036
          IX6    X6+X7                                                   IRCP     4037
          SA6    WRBSV                                                   IRCP     4038
WRB2      SB4    B1                SET FLAG FOR WRITE                    IRCP     4039
          RJ   RWRB                GO WRITE OUT RB                       IRCP     4040
          SX3    X4-1              CHECK FOR REJECT                      IRCP     4041
          NZ   X3,WRB3             JUMP IF NO REJECT                     IRCP     4042
          RJ   REJ                 GO INFORM OPERATOR                    IRCP     4043
          EQ   WRB2                TRY WRITE AGAIN                       IRCP     4044
                                                                         IRCP     4045
WRB3      NZ   X4,WRB4             EXIT ON OTHER WRITE ERROR             IRCP     4046
          RJ   READRB              GO READ RB                            IRCP     4047
WRB4      SA1    WRBSV             RESTORE B-REGISTERS                   IRCP     4048
          SB5    X1                                                      IRCP     4049
          AX1    18                                                      IRCP     4050
          SB4    X1                                                      IRCP     4051
          EQ   WRITERB             EXIT  (X4 = NZ IF ERRORS ON READ)     IRCP     4052
                                                                         IRCP     4053
WRBSV     DATA   0                 STORAGE FOR B-REGISTERS               IRCP     4054
          TITLE                   GENERAL SUBROUTINES --- READRB         IRCP     4055
*         READRB -- READ RECORD BLOCK                                    IRCP     4056
                                                                         IRCP     4057
*                ENTRY - B1 = 1                                          IRCP     4058
*                        B6 = RB NUMBER                                  IRCP     4059
*                        B7 = CM FWA                                     IRCP     4060
*                        ESTORD = EST ORDINAL OF DEVICE                  IRCP     4061
                                                                         IRCP     4062
*                EXIT  - X4 = NON-ZERO IF ERRORS                         IRCP     4063
*                        B-REGISTERS ARE SAVED                           IRCP     4064
                                                                         IRCP     4065
*                CALLED BY - WRITERB, PFBREAD                            IRCP     4066
                                                                         IRCP     4067
*                CALLS - RWRB, REJ                                       IRCP     4068
                                                                         IRCP     4069
READRB    DATA   0                                                       IRCP     4070
          SX6    B4                SAVE B-REGISTERS                      IRCP     4071
          SX7    B5                                                      IRCP     4072
          LX6    18                                                      IRCP     4073
          IX6    X6+X7                                                   IRCP     4074
          SA6    RRBSV                                                   IRCP     4075
RRB1      SB4    B0                GO MAKE READ REQUEST                  IRCP     4076
          RJ   RWRB                                                      IRCP     4077
          SX1    X4-1              CHECK FOR REJECT                      IRCP     4078
          NZ   X1,RRB2             JUMP IF NO REJECT                     IRCP     4079
          RJ   REJ                 GO INFORM OPERATOR                    IRCP     4080
          EQ   RRB1                TRY READ AGAIN                        IRCP     4081
                                                                         IRCP     4082
RRB2      SA1    RRBSV             RESTORE B-REGISTERS                   IRCP     4083
          SB5    X1                                                      IRCP     4084
          AX1    18                                                      IRCP     4085
          SB4    X1                                                      IRCP     4086
          EQ   READRB              EXIT, X4 = NON-ZERO IF ERROR          IRCP     4087
                                                                         IRCP     4088
RRBSV     DATA   0                 STORAGE FOR B-REGISTERS               IRCP     4089
          TITLE                   GENERAL SUBROUTINES --- RWPRU (RWRB)   IRCP     4090
*         RWPRU -- READ OR WRITE SPECIFIED NO. OF PRU S                  FCON      208
*         RWRB  -- READ OR WRITE ONE RB                                  FCON      209
*                         THE DIRECT FORM OF THE RMS REQUEST (10-READ    IRCP     4092
*                         OR 14-WRITE) IS USED.                          IRCP     4093
                                                                         IRCP     4094
*                      ENTRY - B1 = 1                                    IRCP     4095
*                              B4 = 0 FOR READ                           IRCP     4096
*                                   1 FOR WRITE                          IRCP     4097
*                              B5 = STARTING PRU NUMBER (FOR RWPRU)      FCON      210
*                              B6 = RB NUMBER                            IRCP     4099
*                              B7 = CM FWA                               IRCP     4100
*                              X5 = NUMBER OF PRU S (FOR RWPRU)          FCON      211
*                              ESTORD = EST ORDINAL OF DEVICE            IRCP     4101
                                                                         IRCP     4102
*                      EXIT  - X4 = 0 IF NO ERRORS                       IRCP     4103
*                                   1 IF DEVICE REJECT                   IRCP     4104
*                                   3 IF OTHER ERROR                     IRCP     4105
*                              B-REGISTERS ARE SAVED, EXCEPT             IRCP     4106
*                                  RWRB SETS B5 = 0                      IRCP     4107
                                                                         IRCP     4108
*                      RWPRU CALLED BY - WRLBL, RDLBL                    IRCP     4109
                                                                         IRCP     4110
*                      RWRB  CALLED BY - WRITERB, READRB                 IRCP     4111
                                                                         IRCP     4112
*                      CALLS - OPCOM                                     IRCP     4113
                                                                         IRCP     4114
RWPRU     DATA   0                 READ/WRITE PRU  (COMMON EXIT)         IRCP     4115
          LX5    4                 POSITION PRU COUNT                    FCON      212
          EQ   RW0                                                       IRCP     4117
                                                                         IRCP     4118
RWRB      DATA   0                 READ/WRITE RB                         IRCP     4119
          SX5    B1                SET FOR ONE RB TRANSFER               IRCP     4120
          SB5    B0                SET TO 1ST PRU OF RB                  IRCP     4121
          SA1    RWRB              SET UP FOR EXIT THRU RWPRU            IRCP     4122
          BX6    X1                                                      IRCP     4123
          SA6    RWPRU                                                   IRCP     4124
RW0       SA3    ESTORD            EST ORDINAL                           IRCP     4125
          SX1    B4+2              ORDER CODE                            IRCP     4126
          SX2    B5                PRU NUMBER                            IRCP     4127
          SX4    B6                RB NUMBER                             IRCP     4128
          LX1    2                 10B FOR READ, 14B FOR WRITE           IRCP     4129
          LX2    12                PRU NUMBER IN BITS 12-23              IRCP     4130
          LX3    24                EST ORDINAL IN BITS 24-35             IRCP     4131
          LX4    36                RB NUMBER IN BITS 36-47               IRCP     4132
          BX1    X1+X2             FORM 1ST WORD OF REQUEST              IRCP     4133
          BX3    X3+X4                                                   IRCP     4134
          BX6    X1+X3                                                   IRCP     4135
          SX3    B7                FWA                                   IRCP     4136
          LX3    24                PUT FWA IN BITS 24-41                 IRCP     4137
          LX5    48                PUT RB-PRU COUNT IN BITS 48-59        IRCP     4138
          IX7    X3+X5             2ND WORD OF RMS REQUEST               IRCP     4139
          SA6    T.PPC2+W.PPMES1   STORE REQUEST                         IRCP     4140
          SA7    A6+B1                                                   IRCP     4141
          MX6    0                 ACTIVATE RMS CONTROL                  IRCP     4142
          SA6    T.PPC2+W.PPIR                                           IRCP     4143
RW1       SA1    A6                WAIT FOR RMS TO COMPLETE              IRCP     4144
          ZR   X1,RW1                                                    IRCP     4145
          LX1    54                CHECK FOR FORMAT ERROR                IRCP     4146
          PL   X1,RW2              JUMP IF OK (SHOULD NEVER BE ERROR)    IRCP     4147
          OPCOM  X,(ERR3)                                                IRCP     4148
          PS                                                             IRCP     4149
                                                                         IRCP     4150
RW2       SA2    A7                GET 2ND WORD OF REQUEST               IRCP     4151
          MX3    52                AND SAVE RB SIZE (NO. PRUS-1)         IRCP     4152
          AX2    16                                                      IRCP     4153
          BX6    -X3*X2                                                  IRCP     4154
          SA6    RBSIZE                                                  IRCP     4155
          MX4    0                 SET X4 TO CORRECT STATUS              IRCP     4156
          LX1    1                                                       IRCP     4157
          PL   X1,RW3              JUMP IF NO REJECT                     IRCP     4158
          SX4    B1                X4 = 1 FOR REJECT                     IRCP     4159
RW3       LX1    1                 CHECK FOR PARITY ERROR                IRCP     4160
          PL   X1,RWPRU            EXIT - NO ERROR                       IRCP     4161
          SX4    3                 X4 = 3 FOR PARITY ERROR               IRCP     4162
          EQ   RWPRU               EXIT                                  IRCP     4163
          TITLE                   GENERAL SUBROUTINES --- REJ            IRCP     4164
*         REJ -- DISPLAY DEVICE REJECT MESSAGE                           IRCP     4165
                                                                         IRCP     4166
*             ENTRY - B1 = 1                                             IRCP     4167
                                                                         IRCP     4168
*             EXIT  - B-REGISTERS ARE SAVED                              IRCP     4169
                                                                         IRCP     4170
*             CALLED BY - WRITERB, READRB                                IRCP     4171
                                                                         IRCP     4172
*             CALLS - DEVERR, DEVINFO, OPCOM, WAITGO                     IRCP     4173
                                                                         IRCP     4174
REJ       DATA   0                                                       IRCP     4175
          SX2    DVERMSG2          SET UP ERROR INFORMATION              IRCP     4176
          RJ   DEVERR                                                    IRCP     4177
          SX5    LDEVS             SET UP INFORMATION FROM EST           IRCP     4178
          RJ   DEVINFO                                                   IRCP     4179
REJ1      OPCOM  A,(LDEVI,REJGO,DVERMSG)                                 IRCP     4180
          RJ   WAITGO              WAIT FOR TYPEIN OF GO                 IRCP     4181
          NZ   X6,REJ1             JUMP IF NOT GO                        IRCP     4182
          EQ   REJ                 EXIT                                  IRCP     4183
          TITLE                   GENERAL SUBROUTINES --- DATEFJ         IRCP     4184
*         DATEFJ -- CONVERT YYDDD DATE TO MMDDYY DATE                    IRCP     4185
                                                                         IRCP     4186
*                ENTRY - B1 = 1                                          IRCP     4187
*                        X1 = YYDDD RIGHT JUSTIFIED                      IRCP     4188
                                                                         IRCP     4189
*                EXIT  - X1 = MMDDYY RIGHT JUSTIFIED                     IRCP     4190
                                                                         IRCP     4191
*                CALLED BY - IDEV                                        IRCP     4192
                                                                         IRCP     4193
*                CALLS - CNVTDTB, CNVTBTD                                IRCP     4194
                                                                         IRCP     4195
DATEFJ    DATA   0                                                       IRCP     4196
          LX1    42                DDD-----YY                            IRCP     4197
          MX0    48                                                      IRCP     4198
          BX0    -X0*X1            SAVE YY IN RIGHT 2 CHARS              IRCP     4199
          BX5    X0                GET YY IN LEFT 2 CHARS                IRCP     4200
          LX5    48                                                      IRCP     4201
          RJ   CNVTDTB             CONVERT TO BINARY                     IRCP     4202
          MX2    58                                                      IRCP     4203
          BX2    -X2*X6            ZERO IF LEAP YEAR                     IRCP     4204
          SB7    B0                SET B7 = 0 IF NOT LEAP YEAR           IRCP     4205
          MX3    18                                                      IRCP     4206
          BX5    X3*X1             DDD IN LEFT 3 CHARS                   IRCP     4207
          NZ   X2,DATEFJ1                                                IRCP     4208
          SB7    B1                1 IF LEAP YEAR                        IRCP     4209
DATEFJ1   SA1    B7+DATETBL        GET CORRECT TABLE OF MONTHS           IRCP     4210
          RJ   CNVTDTB             CONVERT DAYS TO BINARY                IRCP     4211
          MX7    55                                                      IRCP     4212
          SX5    B1                MONTH NUMBER                          IRCP     4213
          MX3    0                 DAYS IN ACCUM. MONTHS                 IRCP     4214
DATEFJ2   LX1    5                                                       IRCP     4215
          BX2    -X7*X1            NUMBER OF DAYS IN THIS MONTH          IRCP     4216
          IX3    X3+X2             NO. OF DAYS THIS + PREV. MONTHS       IRCP     4217
          IX4    X3-X6             COMPARE WITH JULIAN DAYS              IRCP     4218
          PL   X4,DATEFJ3          JUMP IF THIS IS THE MONTH             IRCP     4219
          SX5    X5+B1             BUMP MONTH NUMBER                     IRCP     4220
          EQ   DATEFJ2             LOOP                                  IRCP     4221
                                                                         IRCP     4222
DATEFJ3   IX3    X3-X2             NO. OF DAYS IN PREVIOUS MONTHS        IRCP     4223
          IX1    X6-X3             DAY OF MONTH                          IRCP     4224
          RJ   CNVTBTD             CONVERT MONTH TO DECIMAL DISPLAY      IRCP     4225
          MX2    48                                                      IRCP     4226
          BX6    -X2*X6                                                  IRCP     4227
          LX6    24                                                      IRCP     4228
          IX0    X0+X6             MM--YY IN LOWER 6 CHARS               IRCP     4229
          BX5    X1                                                      IRCP     4230
          RJ   CNVTBTD             CONVERT DAY OF MONTH                  IRCP     4231
          MX2    48                                                      IRCP     4232
          BX6    -X2*X6                                                  IRCP     4233
          LX6    12                                                      IRCP     4234
          IX1    X0+X6             MMDDYY IN LOWER 6 CHARS               IRCP     4235
          EQ   DATEFJ              EXIT                                  IRCP     4236
                                                                         IRCP     4237
DATETBL   VFD    5/31,5/28,5/31,5/30,5/31,5/30                           IRCP     4238
          VFD    5/31,5/31,5/30,5/31,5/30,5/31                           IRCP     4239
          VFD    5/31,5/29,5/31,5/30,5/31,5/30                           IRCP     4240
          VFD    5/31,5/31,5/30,5/31,5/30,5/31                           IRCP     4241
MINYEAR   EQU    69                LOWEST ALLOWABLE YEAR IN LABELS       IRCP     4242
          TITLE                   GENERAL SUBROUTINES --- DATETJ         IRCP     4243
*         DATETJ -- CONVERT MMDDYY DATE TO YYDDD DATE                    IRCP     4244
                                                                         IRCP     4245
*                ENTRY - B1 = 1                                          IRCP     4246
*                        X1 = MMDDYY RIGHT JUSTIFIED                     IRCP     4247
                                                                         IRCP     4248
*                EXIT  - X1 = YYDDD RIGHT JUSTIFIED                      IRCP     4249
*                        X1 = NEGATIVE IF ERROR                          IRCP     4250
                                                                         IRCP     4251
*                CALLED BY - IDEV                                        IRCP     4252
                                                                         IRCP     4253
*                CALLS - CNVTDTB, CNVTBTD                                IRCP     4254
                                                                         IRCP     4255
DATETJ    DATA   0                                                       IRCP     4256
          MX0    12                                                      IRCP     4257
          LX1    48                YY----MMDD                            IRCP     4258
          BX5    X0*X1             YY IN LEFT 2 CHARS                    IRCP     4259
          RJ   CNVTDTB             CONVERT TO BINARY                     IRCP     4260
          NG   X2,DATETJ1          JUMP ON FORMAT ERROR                  IRCP     4261
          SX2    X6-MINYEAR                                              IRCP     4262
          PL   X2,DATETJ2                                                IRCP     4263
DATETJ1   MX1    1                 ERROR EXIT                            IRCP     4264
          EQ   DATETJ                                                    IRCP     4265
                                                                         IRCP     4266
DATETJ2   SB6    B0                                                      IRCP     4267
          MX2    58                                                      IRCP     4268
          BX2    -X2*X6            ZERO IF LEAP YEAR                     IRCP     4269
          BX7    X0*X1             YY IN LEFT 2 CHARS                    IRCP     4270
          LX7    30                SAVE YY IN CHARS 4-5                  IRCP     4271
          NZ   X2,DATETJ3          JUMP IF NOT LEAP YEAR                 IRCP     4272
          SB6    B1                1 IF LEAP YEAR                        IRCP     4273
DATETJ3   LX1    48                DDYY----MM                            IRCP     4274
          BX5    X0*X1             DD IN LEFT 2 CHARS                    IRCP     4275
          RJ   CNVTDTB             CONVERT DAY TO BINARY                 IRCP     4276
          NG   X2,DATETJ1          EXIT ON ERROR                         IRCP     4277
          SB5    X6                SAVE DAY                              IRCP     4278
          LT   B5,B1,DATETJ1       ERROR IF NEGATIVE OR ZERO             IRCP     4279
          LX1    48                MMDDYY----                            IRCP     4280
          BX5    X0*X1             MM IN LEFT 2 CHARS                    IRCP     4281
          MX1    55                                                      IRCP     4282
          RJ   CNVTDTB             CONVERT MONTH TO BINARY               IRCP     4283
          NG   X2,DATETJ1          EXIT ON ERROR                         IRCP     4284
          SX3    X6-13                                                   IRCP     4285
          PL   X3,DATETJ1          ERROR IF GREATER THAN 12              IRCP     4286
          SB4    X6                SAVE MONTH                            IRCP     4287
          LT   B4,B1,DATETJ1       ERROR IF NEGATIVE OR ZERO             IRCP     4288
          SA2    B6+DATETBL        GET CORRECT TABLE OF MONTHS           IRCP     4289
          MX5    0                 INIT. COUNT OF DAYS IN PREV. MONTHS   IRCP     4290
          SB3    B1                INITIALIZE MONTH NUMBER               IRCP     4291
DATETJ4   LX2    5                                                       IRCP     4292
          BX3    -X1*X2            NO. OF DAYS THIS MONTH                IRCP     4293
          EQ   B3,B4,DATETJ5       JUMP IF THIS IS THE MONTH             IRCP     4294
          IX5    X5+X3             ACCUMULATE DAYS                       IRCP     4295
          SB3    B3+B1             BUMP MONTH COUNT                      IRCP     4296
          EQ   DATETJ4             LOOP                                  IRCP     4297
                                                                         IRCP     4298
DATETJ5   SX2    B5                NUMBER OF DAYS                        IRCP     4299
          IX4    X3-X2             COMPARE WITH NO. IN THIS MONTH        IRCP     4300
          NG   X4,DATETJ1          ERROR IF DAYS TOO BIG                 IRCP     4301
          IX5    X5+X2             JULIAN DATE (DAYS)                    IRCP     4302
          MX0    42                                                      IRCP     4303
          RJ   CNVTBTD             CONVERT DAYS TO DECIMAL DISPLAY       IRCP     4304
          BX6    -X0*X6                                                  IRCP     4305
          IX1    X6+X7             YYDDD IN RIGHT 5 CHARS                IRCP     4306
          EQ   DATETJ              EXIT                                  IRCP     4307
          TITLE                   GENERAL SUBROUTINES --- CNVTDTB        IRCP     4308
*         CNVTDTB -- CONVERT DECIMAL DISPLAY TO BINARY                   IRCP     4309
                                                                         IRCP     4310
*                 ENTRY - B1 = 1                                         IRCP     4311
*                         X5 = 1-9 LEFT JUSTIFIED DECIMAL DISPLAY        IRCP     4312
*                              CHARS - ZERO FILL                         IRCP     4313
                                                                         IRCP     4314
*                 EXIT  - X6 = VALUE                                     IRCP     4315
*                         X2 = NEGATIVE IF ANY ERROR IS DETECTED         IRCP     4316
*                         USES X2, X3, X4, X5, B7                        IRCP     4317
                                                                         IRCP     4318
*                 CALLED BY - DATEFJ, DATETJ, RDLBL                      IRCP     4319
                                                                         IRCP     4320
CNVTDTB   DATA   0                                                       IRCP     4321
          MX6    0                 INITIALIZE RESULT                     IRCP     4322
          SB7    10                                                      IRCP     4323
          MX3    54                                                      IRCP     4324
DTB1      LX5    6                 LOOK AT NEXT CHAR                     IRCP     4325
          BX2    -X3*X5                                                  IRCP     4326
          ZR   X2,CNVTDTB          EXIT IF NO MORE                       IRCP     4327
          SX2    X2-1R0            CONVERT CHAR TO BINARY VALUE          IRCP     4328
          NG   X2,DTB2             ERROR IF ALPHA                        IRCP     4329
          SX4    X2-10                                                   IRCP     4330
          PL   X4,DTB2             ERROR IF NOT 0-9                      IRCP     4331
          BX4    X6                MULTIPLY PREVIOUS RESULT BY 10        IRCP     4332
          LX4    2                                                       IRCP     4333
          IX6    X4+X6                                                   IRCP     4334
          LX6    1                                                       IRCP     4335
          IX6    X2+X6             ADD IN THIS CHAR                      IRCP     4336
          SB7    B7-B1                                                   IRCP     4337
          NZ   B7,DTB1             LOOP IF LESS THAN 10 CHARS            IRCP     4338
DTB2      MX2    1                 ERROR FLAG                            IRCP     4339
          EQ   CNVTDTB             EXIT                                  IRCP     4340
          TITLE                   GENERAL SUBROUTINES --- CNVTBTD        IRCP     4341
*         CNVTBTD -- CONVERT BINARY TO DECIMAL DISPLAY                   IRCP     4342
                                                                         IRCP     4343
*                 ENTRY - B1 = 1                                         IRCP     4344
*                         X5 = BINARY VALUE                              IRCP     4345
                                                                         IRCP     4346
*                 EXIT  - X6 = 4-DIGIT DECIMAL DISPLAY, RIGHT JUSTIFIED  IRCP     4347
*                         USES A3, X2, X3, X4, X5, B7                    IRCP     4348
                                                                         IRCP     4349
*                 CALLED BY - DATEFJ, DATETJ, PFB                        IRCP     4350
                                                                         IRCP     4351
CNVTBTD   DATA   0                                                       IRCP     4352
          MX2    48                                                      IRCP     4353
          SA3    BTDD              GET POWERS OF TEN                     IRCP     4354
          MX6    0                 CLEAR RESULT WORD                     IRCP     4355
BTD1      LX3    12                GET POWER OF TEN                      IRCP     4356
          BX4    -X2*X3                                                  IRCP     4357
          ZR   X4,CNVTBTD          JUMP IF 4 CHARS DONE                  IRCP     4358
          SB7    B0                INITIALIZE COUNT                      IRCP     4359
BTD2      SB7    B7+B1             DIVISION LOOP                         IRCP     4360
          IX5    X5-X4                                                   IRCP     4361
          PL   X5,BTD2                                                   IRCP     4362
          IX5    X5+X4                                                   IRCP     4363
          SX4    B7-1+1R0          SET CORRECT DISPLAY CHAR              IRCP     4364
          LX6    6                 ADD TO RESULT                         IRCP     4365
          IX6    X6+X4                                                   IRCP     4366
          EQ   BTD1                LOOP                                  IRCP     4367
                                                                         IRCP     4368
BTDD      VFD    12/1000,12/100,12/10,12/1,12/0                          IRCP     4369
          SPACE    4                                                     HS2IRCQ   189
 N.ECBANK EQU      16              ALLOW FOR MAXIMUM ECS SIZE            HS2IRCQ   190
*               **** AT THIS IDENT +1: *CALL ECS ***    ................ HS2IRCP   925
          TITLE    ECS ACCESS ROUTINES                                   ECS         2
*         THIS SHOLD BE A DESCRIPTION                                    ECS         3
          SPACE    3                                                     ECS         4
*         REGISTER USAGE                                                 ECS         5
 ONE      MICRO    1,, B1          ALWASY = 1                            ECS         6
 LEN      MICRO    1,, B2          LENGTH REMAING TO BE TRANSFERRED      ECS         7
 BLEN     MICRO    1,, B3          CHECKSUM BLOCK LENGTH                 ECS         8
 CMFWA    MICRO    1,, B4          CM FWA OF REMAINING DATA              ECS         9
 ECFWA    MICRO    1,, X1          EC FWA OF REMAINING DATA              ECS        10
 CHS      MICRO    1,, X2          CHECKSUM ACCUMULATIOR                 ECS        11
 CHKA     MICRO    1,, X3          ECS ADDRESS OF CHECKSUM FOR THIS BLOC ECS        12
 WRSCRL   BSS      1                   SCRATCH WORD FO ECSWR/ECSRD       ECS        13
 SCR      BSS      N.ECBANK*8-1        SCRATCH BUFFER                    ECS        15
 SUM      BSS      1                   BUFFER OFR CHECKSUM               ECS        16
          TITLE    ECSWR  --  WRITE DATA TO ECS                          ECS        17
 ECSWR    EQ       *-*                                                   ECS        18
          RJ       IBLKN           SETUP ECS PARAMETERS                  ECS        19
          M"CHS"   0               PRESET RESULT REGISTER                ECS        20
          IX7      "ECFWA"-X6      WORDS NOT REF-D IN FIRST BLOCK        ECS        21
          NZ       X7,WPART1       GO WRITE PARTIAL FIRST BLOCK          ECS        22
          GE       "LEN","BLEN",WPARTF  GO WRITE FULL BLOCKS             ECS        23
 WPART1   LX7      30                                                    ECS        24
          BX7      X6+X7               30/SKIPCOUNT,30/BLKADDR           ECS        25
          SA7      WRSCRL                                                ECS        26
          SX7      SCR             READ UP                               ECS        27
          RJ       RDB              FIRST BLOCK INTO SCR                 ECS        28
          SA4      WRSCRL                                                ECS        29
          MX6      30                                                    ECS        30
          BX6      -X6*X4                                                ECS        31
          AX4      30                                                    ECS        32
          SB7      X4                                                    ECS        33
          SB7      "BLEN"-B7       NUMBER OF WORDS                       ECS        34
          LE       B7,"LEN",RITELEN JUMP IF LENGTH SMALLER               ECS        35
          SB7      "LEN"                                                 ECS        36
 RITELEN  SB6      SCR+X4          FWA OF DEST. IN BLOCK                 ECS        37
          SX7      B7                                                    ECS        38
          IX1      X1+X7           BUMP FWA                              ECS        39
          SB6      B6+B7           LWA+1 OF DEST. AREA                   ECS        40
          S"CMFWA" "CMFWA"+B7      BUMP CM FWA                           ECS        41
          S"LEN"   "LEN"-B7        BUMP LEN                              ECS        42
 WRL1     SA4      "CMFWA"-B7      MOVE                                  ECS        43
          BX7      X4               DATA                                 ECS        44
          SA7      B6-B7             INTO                                ECS        45
          SB7      B7-"ONE"           SCR                                ECS        46
          GT       B7,B0,WRL1          BLOCK                             ECS        47
          SX7      SCR                                                   ECS        48
          RJ       WRB             WRITE THE PARTIAL BLOCK               ECS        49
          SX0      "ONE"                                                 ECS        50
          I"CHKA"  "CHKA"-X0       DECREMENT THE CHECKSUM ADDRESS        ECS        51
          SPACE    2                                                     ECS        52
 WPARTF   ZR       "LEN",ECSWR     EXIT IF NO MORE TO WRITE              ECS        53
          LT       "LEN","BLEN",WPART2  JUMP IF NOT FULL BLOCK LEFT      ECS        54
          BX6      "ECFWA"                                               ECS        55
          SX7      "CMFWA"                                               ECS        56
          RJ       WRB             WRITE NEXT BLOCK                      ECS        57
          SX6      "BLEN"                                                ECS        58
          I"ECFWA" "ECFWA"+X6      BUMP ECS ADDRESS                      ECS        59
          SX0      "ONE"                                                 ECS        60
          I"CHKA"  "CHKA"-X0       DECR CHECKSUM ADDRESS                 ECS        61
          S"CMFWA" "CMFWA"+"BLEN"  BUMP CMFWA                            ECS        62
          S"LEN"   "LEN"-"BLEN"    DECR LENGTH REMAINING                 ECS        63
          EQ       WPARTF                                                ECS        64
          SPACE    2                                                     ECS        65
 WPART2   BX6      "ECFWA"                                               ECS        66
          SX7      SCR                                                   ECS        67
          RJ       RDB             READ UP BLOCK                         ECS        68
          SB6      B0                                                    ECS        69
 WRL2     SA4      "CMFWA"+B6      MOVE                                  ECS        70
          BX7      X4               DATA                                 ECS        71
          SA7      SCR+B6            INTO                                ECS        72
          SB6      B6+"ONE"           BLOCK                              ECS        73
          LT       B6,"LEN",WRL2                                         ECS        74
          SX7      SCR                                                   ECS        75
          BX6      "ECFWA"                                               ECS        76
          RJ       WRB             WRITE LAST BLOCK                      ECS        77
          EQ       ECSWR                                                 ECS        78
          TITLE    ECSRD  --  READ DATA FROM ECS                         ECS        79
 ECSRD    EQ       *-*                                                   ECS        80
          RJ       IBLKN           SETUP ECS PARAMETERS                  ECS        81
          NZ       B7,RE1          JUMP IF WE HAVE HAD PARITY ERRORS     DMDECS2     1
*                           OFR X1, X3 OR X6                             ECS        85
          BX0      "ECFWA"                                               ECS        86
          SA0      "CMFWA"                                               ECS        87
          SB5      "LEN"                                                 ECS        88
          SB6      IP.ECSML                                              ECS        89
 REL1     BSS      0                                                     ECS        90
          LE       B6,B5,REL1A     JUMP FOR LAST BLOCK                   ECS        91
          SB6      B5                                                    ECS        92
 REL1A    RE       B6                                                    ECS        93
 -        EQ       RE1             START OVER WITH CHECKSUMMING IF ERROR ECS        94
          SB5      B5-B6                                                 ECS        95
          SA0      A0+B6                                                 ECS        96
          SX2      B6                                                    ECS        97
          IX0      X0+X2                                                 ECS        98
          GT       B5,B0,REL1                                            ECS        99
          MX2      0                                                     ECS       100
          EQ       ECSRD                                                 ECS       101
          SPACE    2                                                     ECS       102
*                  IF PARITY ERROR, DO THE CHECKSUMMING THING            ECS       103
 RE1      IX7      "ECFWA"-X6                                            ECS       104
          SA7      WRSCRL          SAVE OFFSET OF FWA IN BLOCK           ECS       105
          NZ       X7,RPART1       JUMP TO READ PARTIAL BLOCK            ECS       106
          GE       "LEN","BLEN",RPARTF                                   ECS       107
 RPART1   SX7      SCR                                                   ECS       108
          RJ       RDB             READ THE BLOCK                        ECS       109
          SA4      WRSCRL                                                ECS       110
          SB7      X4                                                    ECS       111
          SB7      "BLEN"-B7       NUMBER OF WORD TO BE MOVED            ECS       112
          LT       B7,"LEN",RITELEN2                                     ECS       113
          SB7      "LEN"           -MAX SIZE IS READ LENGTH              ECS       114
 RITELEN2 SB6      SCR+X4                                                ECS       115
          SX4      B7                                                    ECS       116
          IX1      X1+X4           BUMP ECS ADDRESS                      ECS       117
          SB6      B6+B7           LWA+1 OF SOURCE                       ECS       118
          SB4      B4+B7           BUMP CM ADDRESS                       ECS       119
          S"LEN"   "LEN"-B7        DECR LENGTH                           ECS       120
 RDL1     SA4      B6-B7           MOVE                                  ECS       121
          BX6      X4               DATA                                 ECS       122
          SA6      "CMFWA"-B7        TO                                  ECS       123
          SB7      B7-"ONE"           BUFFER                             ECS       124
          GT       B7,B0,RDL1                                            ECS       125
          SX0      "ONE"                                                 ECS       126
          I"CHKA"  "CHKA"-X0                                             ECS       127
          SPACE    2                                                     ECS       128
 RPARTF   ZR       "LEN",ECSRD     JUMP IF ALL DONE                      ECS       129
          LT       "LEN","BLEN",RPART2                                   ECS       130
          SX7      "CMFWA"                                               ECS       131
          BX6      "ECFWA"                                               ECS       132
          RJ       RDB             READ NEXT BLOCK                       ECS       133
          SX0      "BLEN"                                                ECS       134
          I"ECFWA" "ECFWA"+X0      BUMP ECS ADDRESS                      ECS       135
          S"CMFWA" "CMFWA"+"BLEN"  BUMP CM ADDRESS                       ECS       136
          S"LEN"   "LEN"-"BLEN"    DECRE. LENGTH                         ECS       137
          SX0      "ONE"                                                 ECS       138
          I"CHKA"  "CHKA"-X0       DECR. CHECKSUM ADDRESS                ECS       139
          EQ       RPARTF                                                ECS       140
          SPACE    2                                                     ECS       141
 RPART2   SX7      SCR             PARTIAL BLOCK PROCESSING              ECS       142
          BX6      "ECFWA"                                               ECS       143
          RJ       RDB             READ BLOCK INTO SCR                   ECS       144
          SB6      B0                                                    ECS       145
          SB5      SCR                                                   ECS       146
 RDL2     SA4      B5+B6           MOVE DATA                             ECS       147
          BX6      X4              FROM SCR                              ECS       148
          SA6      "CMFWA"+B6        TO DEST.                            ECS       149
          SB6      B6+"ONE"                                              ECS       150
          LT       B6,"LEN",RDL2                                         ECS       151
          EQ       ECSRD           EXIT                                  ECS       152
          TITLE    ECSRDE  --  READ FROM ECS WITH ERROR ISOLATION        ECS       153
 ECSRDE   EQ       *-*                                                   ECS       154
          RJ       IBLKN           SETUP PARAMETERS                      ECS       155
          IX0      "ECFWA"-X6                                            ECS       156
          SB2      X0              OFFSET IN BLOCK                       ECS       157
          SX7      SCR                                                   ECS       158
          RJ       RDB             READ UP THE BLOCK                     ECS       159
 ECSRDEEQ SA3      SCR+B2              GET THE WORD                      ECS       160
          BX6      X3                                                    ECS       161
          SA6      B4               STORE IN DESTINATION                 ECS       162
          EQ       ECSRDE          EXIT                                  ECS       163
          SPACE    1                                                     ECS       164
 ECSRDERJ EQ       ECSRDEEQ            PROTOTYPE EQ FROM RJ TO RDB ABOVE ECS       165
 -        VFD      30/0                (ESDE BY RDB TO DETERMINE CALLER) ECS       166
          TITLE    WRB - WRITE ECS BLOCK                                 ECS       167
*                  ENTRY:          X7 - EM ADDRESS                       ECS       168
*                                  X6 - EC ADDRESS                       ECS       169
*                                  "CHKA" - CHECKSUM ADDRESS             ECS       170
*                                  "BLEN" - BLOCK LENGTH                 ECS       171
 WRB      EQ       *-*                                                   ECS       172
          BX0      X6                                                    ECS       173
          SA0      X7                                                    ECS       174
 CMR      IF       DEF,L.ECST      IF CMR, SAVE PARAMETER S TO WRB TO    DMDECS2     2
          LX6      30              ALLOW IRCP TO COMPLETE THE WRITE IF   DMDECS2     3
          BX6      X6+X7           WRB IS STOPPED BY DEADSTART           DMDECS2     4
          SA6      T.ECST+L.ECST-1 SAVE IN LAST WROD OF ECST TABLE       DMDECS2     5
 CMR      ENDIF                                                          DMDECS2     6
 +        WE       "BLEN"                                                ECS       175
 -        RJ       DIE             THIS NEVER HAPPENS                    ECS       176
          SB7      B0              FORM                                  ECS       177
          MX6      0                CHECKSUM                             ECS       178
 WRBLOOP  SA5      A0+B7                                                 ECS       179
          SB7      B7+1                                                  ECS       180
          BX6      X6-X5                                                 ECS       181
          LT       B7,"BLEN",WRBLOOP                                     ECS       182
          SA6      SUM             STORE SUM                             ECS       183
          BX0      "CHKA"                                                ECS       184
          SA0      A6                                                    ECS       185
 +        WE       1               WRITE CHECKSUM                        ECS       186
 -        RJ       DIE                                                   ECS       187
 CMR      IF       DEF,L.ECST                                            DMDECS2     7
          SX6      0               CLEAR PARAMETER SAVE XORD             DMDECS2     8
          SA6      T.ECST+L.ECST-1                                       DMDECS2     9
 CMR      ENDIF                                                          DMDECS2    10
          EQ       WRB                                                   ECS       188
          TITLE    RDB -- HEART OF ECS SYSTEM: READ+CORRECT BLOCK        ECS       189
*         RDB                                                            ECS       190
*                  ENTRY:          X6 - EC ADDRESS                       ECS       191
*                                  X7 - CM ADDRESS                       ECS       192
*                                  "CHKA" - CHECKSUM ADDRESS             ECS       193
*                                  "BLEN" - BLOCK LENGTH                 ECS       194
*                                                                        ECS       195
*                  PRESERVED:      X1 (ECFWA)                            ECS       196
*                                  X3 (CHKA)                             ECS       197
*                                  B1 (ONE)                              ECS       198
*                                  B2 (LEN)                              ECS       199
*                                  B3 (BLEN)                             ECS       200
*                                  B4 (CMFWA)                            ECS       201
*                                                                        ECS       202
*                  RDB READS AND CHECKSUMS THE BLOCK AT (X6) IN ECS INTO ECS       203
*                  (X7) IN CM.  IF A ONE-BIT ERROR OCCURS, IT IS COR-    ECS       204
*                  RECTED. IF A GREATER ERROR OCCURS, X2 IS SET NON-ZERO ECS       205
 RDB      EQ       *-*                                                   ECS       206
*                                                                        ECS       207
*         PUT JUMP HERE TO SKIP QUICK READ ATTEMPT                       ECS       208
*                                                                        ECS       209
          SA0      SUM                                                   ECS       210
          BX0      "CHKA"                                                ECS       211
 +        RE       1               GET CHECKSUM                          ECS       212
 -        EQ       RDBE1           DO SINGLE READ IF PARITY ERROR        ECS       213
          SA0      X7                                                    ECS       214
          BX0      X6                                                    ECS       215
          SA2      SUM             INITIALIZE SUM                        ECS       216
 +        RE       "BLEN"          READ DATA                             ECS       217
 -        EQ       RDBE1                                                 ECS       218
          SB7      B0                                                    ECS       219
 RDBL1    SA4      A0+B7                                                 ECS       220
          SB7      B7+1                                                  ECS       221
          B"CHS"   "CHS"-X4        SUBTRACT FROM CHECSUM                 ECS       222
          LT       B7,"BLEN",RDBL1                                       ECS       223
          ZR       "CHS",RDB       EXIT IF NO CHECKSUM ERROR             ECS       224
          SPACE    3                                                     ECS       225
*         HERE WE READ UP EACH WORD AND CHECK FOR PARITY ERRORS          ECS       226
*         A COUNT OF PE-S IS IN B7, THE ORDINAL OF THE LAST IN B5        ECS       227
 RDBE1    SB7      B0              PE ACCUMULATOR                        ECS       228
          SA0      SUM                                                   ECS       229
          BX0      "CHKA"                                                ECS       230
 +        RE       1               READ UP CHECKSUM                      ECS       231
 -        SB7      "ONE"           IF PE, SET B7 1, B5 = BLEN            ECS       232
          SB5      "BLEN"                                                ECS       233
 +        SA2      A0                                                    ECS       234
          SX5      "ONE"                                                 ECS       235
          IX0      X6-X5           START 1 LOW                           ECS       236
          SB6      B0              COUNTER                               ECS       237
 RDBL2    SA0      X7+B6           CM ADD                                ECS       238
          IX0      X0+X5           EC ADD                                ECS       239
 +        RE       1               READ ONE DATA WORD                    ECS       240
 -        SB7      B7+"ONE"        COUNT PARITY ERROR                    ECS       241
          SB5      B6              SAVE ORDINAL OF LAST PE               ECS       242
 +        SA4      A0                                                    ECS       243
          B"CHS"   "CHS"-X4        ADD WORD TO CHECKSUM                  ECS       244
          SB6      B6+1                                                  ECS       245
          LT       B6,"BLEN",RDBL2 READ ALL OF BLOCK                     ECS       246
*         ALL DATA IS NOW READ, AND B7 HOLD PARITY BITS                  ECS       247
          NZ       B7,RDBE3                                              ECS       248
          NZ       X2,RDB2                                               ECS       249
          MI       X2,RDB2                                               ECS       250
*                                                                        ECS       251
*         DECREMENT CHKSW HERE                                           ECS       252
*                                                                        ECS       253
          EQ       RDB                                                   ECS       254
          SPACE    3                                                     ECS       255
*         HERE IF CHECKSUM ERROR + NO PARITY ERRORS --                   ECS       256
*         IF TWO BITS OFF, RETURN THAT, ELSE RETURN 60-BIT ERROR         ECS       257
 RDB2     CX0      "CHS"           COUNT CHECKSUM DISCREPANCIES          ECS       258
          SX4      "ONE"+"ONE"                                           ECS       259
          IX0      X0-X4                                                 ECS       260
          ZR       X0,RDBEE        EXIT WITH BAD BITS IN X2              ECS       261
 RDBEMZ   MX2      60              EXIT WITH 60 ERROR BITS               ECS       262
 RDBEE    SA4      RDB                                                   ECS       263
          SA5      ECSRDERJ                                              ECS       264
          BX5      X4-X5                                                 ECS       265
          ZR       X5,RDB          EXIT IF CALLED FROM ECSRDE            ECS       266
          EQ        TOOMNYPE                                             DMDECS3     1
          SPACE    1                                                     ECS       269
*         HERE     IF PARITY ERRORS                                      ECS       270
 RDBE3    SB7      B7-2                                                  ECS       271
          ZR       B7,RDB2         JUMP IF 2 PE-S                        ECS       272
          PL       B7,RDBEMZ       GIVE UP IF MORE THAN 2 ERRORS         ECS       273
*         HERE, 1 PARITY ERROR. SEE WHAT WE CAN DO                       ECS       274
          CX0      "CHS"           COUNT CHECKSUM ERRORS                 ECS       275
          SX0       X0-2           TEST IF TOO MANY PE-S IN THIS WORD    DMDECS3     2
          PL        X0,RDB2                                              DMDECS3     3
          EQ       B5,"BLEN",RDBCCS IF ERROR IN CHECKSUM, GO CORRECT IT  ECS       278
          SA0      B5+X7           CM ADDRESS OF BAD WORD                ECS       279
          SX4      B5                                                    ECS       280
          IX0      X6+X4           ECS ADDRESS OF BAD WORD               ECS       281
*                                                                        ECS       282
*         AT RDBCD, CORRECT ERROR, REFRESH ECS, AND ENTER FLAW TABLE     ECS       283
 RDBCD    SA4      A0                                                    ECS       284
          BX6      X4-"CHS"                                              ECS       285
          SA6      A4              CORRECT ERROR                         ECS       286
 +        WE       1               REFRESH ECS COPY                      ECS       287
 -        RJ       DIE             (THIS SHOULD NEVER HAPPEN)            ECS       288
          SPACE    1                                                     ECS       289
          SX5      "BLEN"          SET ERROR ARRAY (SEE T.ECFLAW)        ECS       290
          BX5      X5*X0           WORD/BANK OF ERROR DRIVER             ECS       291
          SA4      T.ECSPAR        GET BANK OFFET(IF RUNNING 1/2 ECS)    DMDECS2    11
          AX4      54              (IS UPPER 6 BITS OF WROD)             DMDECS2    12
          LX4      3               (SHIFT TO ABNK POSTION                DMDECS2    13
          IX5      X5+X4           ADD INTO ADDRESS                      DMDECS2    14
          NZ        "CHS",RDBNPEB  JUMP IF FAILE IN DATA BIT             DMDECS3     4
          S"CHS"    "ONE"          FAILURE WAS IN PARITY BIT             DMDECS3     5
          SB7       X5             SET BIT IN LAST WORD OF 15+1 OF ERR T DMDECS3     6
          L"CHS"    "CHS",B7                                             DMDECS3     7
          SX5       -"ONE"         FALG A S PARITY BIT FAILURE           DMDECS3     8
 RDBNPEB  BSS       0                                                    DMDECS3     9
                                                                         ECS       292
          SA4      P.ECST                                                ECS       293
          LX4      12+12*C.ECFLAW+3                                      ECS       294
          SX6      77770B          GET ADDRESS OF ECS FLAW TABLE         ECS       295
          BX4      X6*X4                                                 ECS       296
          SA4      X4                                                    ECS       297
          AX4      36              NUMBER OF BANKS IN ERRTAB             ECS       298
          LX4      3               NUMBER OF WORDS IN ERRTAB             ECS       299
          IX6       X5-X4          TEST IF TABEL GIBGIG ENOUGH           DMDECS3    10
          PL        X6,NOCEEF      JUMP IF IT-S NOT                      DMDECS3    11
          PL        X5,RDBNPEB1    JUMP IF DATA BIT FZILURE              DMDECS3    12
          SX5       X4             IF PARITY BIT FAILURE, USES LAST WORD DMDECS3    13
 RDBNPEB1 BSS       0                                                    DMDECS3    14
          SB7      A4+2            BASE FOR BIT FLAW TABLE               ECS       302
          SA5      B7+X5           PCIK UP SPECIFIC WORD                 ECS       303
          BX4      "CHS"*X5                                              ECS       304
          NZ       X4,NOCEEF       IF BIT ALREADY SET, DONT SET IT AGAIN ECS       305
          BX6      X5+"CHS"                                              ECS       306
          SA6      A5              SET THE BIT                           ECS       307
          SA4      A4                                                    ECS       308
          SX5      "ONE"                                                 ECS       309
          IX6      X4+X5           BUMP THE FLAW BIT COUNT               ECS       310
          SA6      A4                                                    ECS       311
 NOCEEF   SA4      A4                                                    ECS       312
          SX5      10000B                                                ECS       313
          IX6      X4+X5           ADD 1 TO PE COUNT                     ECS       314
          MX5      24                                                    ECS       315
          LX5      24+12                                                 ECS       316
          BX4      -X5*X4          EXTRACT OLD T.ECFLAW                  ECS       317
          BX6      X5*X6               EXTRACT NEW COUNT                 ECS       318
          BX6      X6+X4                                                 ECS       319
          SA6      A4              STORE                                 ECS       320
          SPACE    1                                                     ECS       321
          SA4      T.ECSPAR                                              ECS       322
          MX6      48                                                    ECS       323
          BX5      -X6*X4          OLD COUNT                             ECS       324
          BX4      X6*X4           CLEAR IT IN X4                        ECS       325
          SX6      "ONE"                                                 ECS       326
          IX5      X6+X5           BUMP COUNT                            ECS       327
          BX6      X4+X5           NEW WORD                              ECS       328
          LX5      54              EXTEND                                ECS       329
          AX5      54               SIGN                                 ECS       330
          ZR       X5,NOCEEF2      JUMP IF COUNT WAS 76                  ECS       331
          SA6      A4              STORE NEW COUNT                       ECS       332
 NOCEEF2  M"CHS"   0                                                     ECS       333
          SA4      P.ECST          GET BASE POINTER                      BBBECSC     1
          MX5      60-12                                                 BBBECSC     2
          LX4      C.ECSWPA*12+12                                        BBBECSC     3
          BX4      -X5*X4          GET TABLE ADDRESS                     BBBECSC     4
          LX4      3               *8                                    BBBECSC     5
          SA4      X4              LOAD IT                               BBBECSC     6
          SX5      1                                                     BBBECSC     7
          LX5      36              SET BYTE 1 ON                         BBBECSC     8
          BX6      X4+X5                                                 BBBECSC     9
          SA6      A4              RESTORE IT                            BBBECSC    10
          EQ       RDB                                                   ECS       334
          SPACE    1                                                     ECS       335
 RDBCCS   SA0      SUM             SET ADDRESS TO CHECKSUM,              ECS       336
          BX0      "CHKA"          AND GO CORRECT IT                     ECS       337
          EQ       RDBCD                                                 ECS       338
          TITLE    IBLKN -- SETUP FOR ECS ACCESS ROUTINES                ECS       339
*                                                                        ECS       340
*         IBLKN    SETUP ECS PARAMETERS:                                 ECS       341
*                                  B1 = "ONE" = 1                        ECS       342
*                                  X3 = "CHKA" = ADDRESS OF CHECKSUMWORD ECS       343
*                                  X6 = ADDRESS OF FIRST BLOCK           ECS       344
*                                  B3 = "BLEN" = CHECKSUM BLOCK LENGTH   ECS       345
*                                                                        ECS       346
 IBLKN    EQ       *-*                                                   ECS       347
          S"ONE"   1                                                     ECS       348
CMR       IF       DEF,L.ECST                                            DMDECS02    1
 FIXWAIT  SA3      T.ECSPAR        TEST =FIXCARD= BIT TO ENSURE NO ECS R DMDECS02    2
          LX3      48              R/W WHILE CARD REMOVED                DMDECS02    3
          MI       X3,FIXWAIT                                            DMDECS02    4
CMR       ENDIF                                                          DMDECS02    5
          SA3      T.ECSPAR                                              ECS       349
          MX0      54                                                    ECS       350
          LX3      12                                                    DMDECS2    15
          BX6      -X0*X3          BLOCK SIZE                            ECS       355
          S"BLEN"  X6                                                    ECS       356
          MX0      48                                                    ECS       357
          LX3      36                                                    DMDECS2    16
          BX4      -X0*X3                                                DMDECS2    17
          SB7      X4              ERROR COUNT (FOR RDB)                 DMDECS2    18
          LX3      36                                                    DMDECS2    19
          BX3      -X0*X3          ECS SIZE/1000B                        ECS       359
          PX4      X6                                                    ECS       360
          NX4      X4                                                    ECS       361
          PX5      X1                                                    ECS       362
          NX5      X5                                                    ECS       363
          FX5      X5/X4                                                 ECS       364
          UX5      X5,B6                                                 ECS       365
          LX5      X5,B6           X5 = ECSFWA/BLKSIZE                   ECS       366
          LX3      9               ECS SIZE                              ECS       367
          I"CHKA"  X3-X5           CHECKSUM WORD ADDRESS + 1             ECS       368
          PX5      X5                                                    ECS       369
          NX5      X5                                                    ECS       370
          FX5      X5*X4                                                 ECS       371
          UX5      X5,B6                                                 ECS       372
          LX6      X5,B6           BLOCK FWA                             ECS       373
          SX7      "ONE"                                                 ECS       374
          I"CHKA"  "CHKA"-X7           CHECKSUM WORD ADDRESS             ECS       375
          EQ       IBLKN                                                 ECS       376
          TITLE RECONFIGURE ECS (TO HALF)                                HS2IRCS     1
 LBUF     EQU      7*8                                                   RECSH       2
 RECSH    EQ       *-*             MOVE STUFF AROUND IN ECS SO THAT      RECSH       3
*                                  IT WILL BE IN THE RIGHT PLACE WHEN    RECSH       4
*                                  ECS ADDRESS MAP CHANGES               RECSH       5
          SPACE    1                                                     RECSH       6
*                                  FIRST, EXPAND ECS, SAVING CHECKSUMS   RECSH       7
*                                  IN CHECKBUF                           RECSH       8
 LOOP1    SA1      I                                                     RECSH       9
          SX6      LBUF                                                  RECSH      10
          IX6      X1-X6                                                 RECSH      11
          MI       X6,ENDLOOP1     EXIT WHEN WERE DONE                   RECSH      12
          BX1      X6                                                    RECSH      13
          SA6      A1                                                    RECSH      14
          SB2      LBUF                                                  RECSH      15
          SB4      BUFFER                                                RECSH      16
          RJ       ECSRD           READ UP A BLOCK                       RECSH      17
          SPACE    1                                                     RECSH      18
          SB5      B0                                                    RECSH      19
          SB7      LBUF                                                  RECSH      20
          SB6      8                                                     RECSH      21
          SA1      I                                                     RECSH      22
          IX0      X1+X1           FWA OF PHYSICAL NEW WORD              RECSH      23
          SX1      B6                                                    RECSH      24
          SA0      BUFFER                                                RECSH      25
 SLOOP    WE       8               BANK 0                                RECSH      26
 -        RJ       DIE                                                   RECSH      27
          IX0      X0+X1                                                 RECSH      28
 +        WE       8               BANK 1                                RECSH      29
 -        RJ       DIE                                                   RECSH      30
          IX0      X0+X1                                                 RECSH      31
          SA0      A0+B6           BUMP SUPER-WORD POINTER               RECSH      32
          SB5      B5+B6                                                 RECSH      33
          LT       B5,B7,SLOOP     LOOP TIL LBUF CLEAR                   RECSH      34
          SB1      1                                                     RECSH      35
          SB2      BUFFER+LBUF     POINT TO AREA TO CHECKSUM             RECSH      36
          SB7      7               WORDS IN CHECKSUM BLOCK               RECSH      37
          SB6      CHECKBUF                                              RECSH      38
 CLOOP1   SB3      0               0-7 COUNTER                           RECSH      39
          SB2      B2-B7           FWA OF BLOCK                          RECSH      40
          MX6      0               INITIAL SUM                           RECSH      41
 CLOOP2   SA1      B3+B2                                                 RECSH      42
          BX6      X6-X1           CHECK-                                RECSH      43
          SB3      B3+B1             SUM                                 RECSH      44
          LT       B3,B7,CLOOP2        BLOCK                             RECSH      45
          SA6      B6              STORE CHECKSUM                        RECSH      46
          SB6      B6+B1           BUMP POINTER                          RECSH      47
          SPACE    1                                                     RECSH      48
          SB3      BUFFER                                                RECSH      49
          NE       B2,B3,CLOOP1                                          RECSH      50
          SA1      K                                                     RECSH      51
          SX6      8                                                     RECSH      52
          IX6      X6+X1                                                 RECSH      53
          SA6      A1                                                    RECSH      54
          IX0      X1+X1                                                 RECSH      55
          SA0      CHECKBUF                                              RECSH      56
 +        WE       8                                                     RECSH      57
 -        RJ       DIE             (CANT HAPPEN)                         RECSH      58
          SX1      8                                                     RECSH      59
          IX0      X0+X1                                                 RECSH      60
 +        WE       8                                                     RECSH      61
 -        RJ       DIE             (CANT HAPPEN)                         RECSH      62
 +        EQ       LOOP1                                                 RECSH      63
          SPACE    2                                                     RECSH      64
*                                  FIX WORD 8 IN ECS TO SAY BANK1,       RECSH      65
 ENDLOOP1 SA1      BUFFER          NOT BANK 0 (+ FIX CHECKSUM)           RECSH      66
          SX2      1R0&1R1                                               RECSH      67
          BX6      X1-X2                                                 RECSH      68
          SA6      A1                                                    RECSH      69
          SX0      8                                                     RECSH      70
          SA0      A1                                                    RECSH      71
          WE       1               REWRITE WORD 8                        RECSH      72
 -        RJ       DIE             (CANT HAPPE                           RECSH      73
 +        SA1      CHECKBUF+7                                            RECSH      74
          BX6      X1-X2                                                 RECSH      75
          SA6      A1                                                    RECSH      76
          SA0      A1                                                    RECSH      77
          SA1      CHECKSW0        ADDRESS OF WORD 0-S CHECKSUM          RECSH      78
          BX0      X1                                                    RECSH      79
          WE       1                                                     RECSH      80
 -        RJ       DIE             (CANT HAPPE                           RECSH      81
          EQ       RECSH                                                 RECSH      82
 I        VFD      60/366000B-36600B LWA OF DATA IN NEW ECS              RECSH      83
 J        VFD      60/CHECKBUF                                           RECSH      84
 K        CON      366000B-36600B  FWA OF CHECKSUMMS                     RECSH      85
 CHECKSW0 VFD      60/366000B*2-1  WORD 0, BANK 1 CHECKSUM (LWA OF ECS)  RECSH      86
 BUFFER   EQU      TBUF0                                                 HS2IRCR    84
 CHECKBUF EQU      BUFFER+LBUF                                           HS2IRCR    85
          TITLE ECSTFL - ECS PARTITION TESTER                            HS2IRCP   729
**        ECSTFL - SET UP PARTITION FROM ECS PARTITION TABLE             HS2IRCP   730
*                                                                        HS2IRCP   731
*         ENTRY:   ECS RELATIVE ADDRESS IN X1                            HS2IRCP   732
*                  B5=PARITION NUMBER                                    HS2IRCP   733
*                  B2=LENGTH OF ECS READ                                 HS2IRCP   734
*         EXIT:    X1=ECS ABSOLUTE ADDRESS                               HS2IRCP   735
*                                                                        HS2IRCP   736
ECSTFL    PS                                                             HS2IRCP   737
          SA2       P.ECST         TABLE BASE                            HS2IRCP   738
          MX0       60-12                                                HS2IRCP   739
          L         X2,C.ECST,4    GET TABLE BASE                        HS2IRCP   740
          BX2       -X0*X2         INTO X2                               HS2IRCP   741
          LX2       3              *8                                    HS2IRCP   742
          SX2       X2+B5          ADD TABLE OFFSET                      HS2IRCP   743
          SA2       X2             LOAD TABLE DESCRIPTOR                 HS2IRCP   744
          MX0       60-24                                                HS2IRCP   745
          BX3       -X0*X2         X3=TABLE BASE ADDRESS                 HS2IRCP   746
          AX2       24                                                   HS2IRCP   747
          BX2       -X0*X2         GET PARITION SEIZE                    HS2IRCP   748
          SX4       B2             X4=ECS READ SIZE                      HS2IRCP   749
          IX2       X2-X4          PARTISION Z SIZE - READ SIZE          HS2IRCP   750
          PL        X2,ECSTFL2     JUMP IF OK                            HS2IRCP   751
          PS                                                             HS2IRCP   752
ECSTFL2   IX1       X1+X3          COMPUTE ABSOLUTE ADDRESS              HS2IRCP   753
          JP        ECSTFL         EXIT                                  HS2IRCP   754
FNTINPUT  BSSZ      1                                                    HS2IRCP   755
FNTEMPTY  BSSZ      1                                                    HS2IRCP   756
          EJECT                                                          IRCP     3493
          TITLE              RECOVERY-RESPOND WORD PAIR CHECK            IRCP     3494
*                                                                        IRCP     3495
*                                                                        IRCP     3496
*         RSPCHK - CHECK RBT WORD PAIR FOR ALLOCATION TYPE 10            IRCP     3497
*                  AND A NON-ZERO RB                                     IRCP     3498
*                                                                        IRCP     3499
*                                       A5 - CONTAINS ADDRESS OF FNT ENT SC3016      5
*                                                                        IRCP     3501
*                  EXIT  - X1 = 0 ,RESPOND RBT WORD PAIR                 IRCP     3502
*                          X1 NO 0,DO NOT RESTORE RBT WORD PAIR          IRCP     3503
*                                                                        IRCP     3504
RSPCHK    PS                                                             IRCP     3505
          SA2    A5+B1                                                   IRCP     3506
          MX1    12                                                      IRCP     3507
          LX2    12                                                      IRCP     3508
          BX2    X1*X2                                                   IRCP     3509
          LX2    13                                                      IRCP     3510
          SA3    RBTSAVE                                                 SC20102    55
          IX3    X3-X2                                                   IRCP     3512
          SA2    X3                A2 EQ LOCATION OF WORD PAIR           IRCP     3513
          LX1    12                                                      IRCP     3514
          BX1    X1*X2             GET RB BYTE                           IRCP     3515
          NZ   X1,RSP10            NON-ZERO                              IRCP     3516
          SX1    B1                DO NOT SAVE RBT WORD PAIR             IRCP     3517
          EQ   RSPCHK                                                    IRCP     3518
*                                                                        IRCP     3519
RSP10     MX1    6                                                       IRCP     3520
          LX1    30                                                      IRCP     3521
          BX1    X1*X2                                                   IRCP     3522
          AX1    24                ALLOCATION TYPE EQ 10B                IRCP     3523
          SX1    X1-10B                                                  IRCP     3524
          NZ   X1,RSPCHK           NO                                    IRCP     3525
*                                                                        IRCP     3526
          MX1    3                                                       IRCP     3527
          LX1    39                                                      IRCP     3528
          BX1    X1*X2                                                   IRCP     3529
          LX1    24                                                      IRCP     3530
          SX1    X1-2              FIRST RB BYTE EQ 2                    IRCP     3531
          EQ   RSPCHK              EXIT                                  IRCP     3532
          TITLE                   RECOVERY --- SUBROUTINE SEEKRBR        IRCP     3533
          EJECT                                                          IRCP     6564
          TITLE  CP MESSAGE FORMAT ROUTINE                               IRCP     6565
*                                                                        IRCP     6566
*         THIS IS THE CP ROUTINE WHICH TURNS TEXT GENERATED BY THE OPCOM IRCP     6567
*         MACROS INTO A FORM SUITABLE FOR THE PP  DISPLAY DRIVER.  SEE   IRCP     6568
*         THE COMMENTS WITH EACH SECTION OF CODE FOR TEXT FORMAT.        IRCP     6569
*                                                                        IRCP     6570
*         SX1    FILL              ADDRESS OF FILL OR ZERO               IRCP     6571
*         RJ     OPCOM             JUMP                                  IRCP     6572
*         VFD    12/1RQ            WHERE Q IS THE RETURN CODE            IRCP     6573
*                                  A - RETURN ADDRESS OF INPUT           IRCP     6574
*                                  N - RETURN VALUE OF INPUT             IRCP     6575
*                                  0 - RETURN OPTION NUMBER              IRCP     6576
*                                  X - RETURN IMMEDIATELY                IRCP     6577
*         VFD    12/J              WHERE J IS NUMBER OF GROUPS           IRCP     6578
*         VFD    12/L              WHERE L IS MAXIMUM LENGTH OF FILL     IRCP     6579
*+        VFD    60/GROUP1         FIRST LIST GROUP                      IRCP     6580
*         ...                                                            IRCP     6581
*         VFD    60/GROUPN         LAST LIST GROUP                       IRCP     6582
*         RETURN                                                         IRCP     6583
*                                                                        IRCP     6584
*         THE CURRENT DISPLAY IS TURNED OFF, A NEW DISPLAY IS BUILT IN   IRCP     6585
*         THE CM DISPLAY BUFFER.  THE DISPLAY IS TURNED BACK ON.         IRCP     6586
*                                                                        IRCP     6587
*         IF THE CALLING SEQUENCE REQUESTS INPUT (Q=A,N,0), WE WAIT      IRCP     6588
*         UNTIL THE OPERATOR TYPES IN A CARRIAGE RETURN WHICH IS SIGNALE IRCP     6589
*         BY THE DISPLAY DRIVER.  IF NO INPUT WAS REQUESTED WE LEAVE     IRCP     6590
*         THE DISPLAY ON THE DISPLAY SCREENS UNTIL A NEW DISPLAY IS      IRCP     6591
*         REQUESTED.                                                     IRCP     6592
*                                                                        IRCP     6593
*         IF INPUT WAS REQUESTED, WE DROP THE DISPLAY AFTER THE OPERATOR IRCP     6594
*         TYPED A CARRIAGE RETURN.  WE THEN ANALYZE THE INPUT AS         IRCP     6595
*         INSTRUCTED.                                                    IRCP     6596
*                                                                        IRCP     6597
OPCOM     DATA   0                 ENTRY                                 IRCP     6598
          SB1    1                 CONSTANT                              IRCP     6599
          SX7    B2                MOVE REGISTERS                        IRCP     6600
          SA7    BSTORE            TO MEMORY                             IRCP     6601
          SX7    B3                .                                     IRCP     6602
          SA7    A7+B1             .                                     IRCP     6603
          SX7    B4                .                                     IRCP     6604
          SA7    A7+B1             .                                     IRCP     6605
          SX7    B5                .                                     IRCP     6606
          SA7    A7+B1             .                                     IRCP     6607
          SX7    B6                .                                     IRCP     6608
          SA7    A7+B1             .                                     IRCP     6609
          SX7    B7                .                                     IRCP     6610
          SA7    A7+B1             .                                     IRCP     6611
          SA2    OPCOM             ADDRESS OF CALLING SEQUENCE TO X2     IRCP     6612
          LX2    30                SHIFT TO POSITION IN LOW ORDER HALF   IRCP     6613
          SA2    X2                POINT AT CALLING SEQUENCE             IRCP     6614
          AX2    12*2              POSITION FILL TO LOW ORDER BYTE       IRCP     6615
          MX4    48                LOWER BYTE MASK                       IRCP     6616
          BX5    -X4*X2            GET COUNT OF FILL                     IRCP     6617
          SB2    X5                SAVE BYTE COUNT IN B2                 IRCP     6618
          AX2    12                SHIFT GROUP COUNT TO LOW ORDER BYTE   IRCP     6619
          BX5    -X4*X2            GET NUMBER OF GROUPS                  IRCP     6620
          SB3    X5                SAVE THAT COUNT                       IRCP     6621
          AX2    12                GET RETURN TYPE                       IRCP     6622
          BX6    -X4*X2            PUT INTO STORE REGISTER               IRCP     6623
          SA6    OPCXRTNT          SAVE RETURN TYPE                      IRCP     6624
          SB4    B0                ZERO COUNT OF CURRENT FILL WORD       IRCP     6625
          ZR     X1,OPCX05         SKIP SETA1 IF X1 ZERO                 IRCP     6626
          SA1    X1                GET FIRST WORD OF FILL                IRCP     6627
          SB4    5                 FULL WORD OF FILL                     IRCP     6628
          GE     B2,B4,OPCX05      GO IF FILL IS AT LEAST 1 WORD LONG    IRCP     6629
          SB4    B2                TAKE LESSOR COUNT                     IRCP     6630
OPCX05    SA5    OPCXCTLW          GET CONTROL WORD                      IRCP     6631
          MX4    48                BYTE MASK                             IRCP     6632
          LX5    24                GET INPUT FLAG                        IRCP     6633
          BX6    -X4*X5            ISOLATE FLAG                          IRCP     6634
          NZ     X6,OPCX05         GO IF SOMEONE WAITING ON INPUT        IRCP     6635
          LX5    24                POSITION FIRST TIME FLAG              IRCP     6636
          BX6    -X4*X5            ISOLATE FLAG                          IRCP     6637
          NZ     X6,OPCX05         GO IF DISPLAY NOT TAKEN               IRCP     6638
          SA7    OPCXOUTB          SET ADRS OF OUTPUT BUFFER             IRCP     6639
          SX6    B0                CONSTANT                              IRCP     6640
          SA6    OPTCOUNT          OPTION COUNT                          IRCP     6641
*         REGISTERS                                                      IRCP     6642
*                                                                        IRCP     6643
*         B0     CONSTANT ZERO                                           IRCP     6644
*         B1     CONSTANT ONE                                            IRCP     6645
*         B2     NUMBER OF REMAINING BYTES OF FILL                       IRCP     6646
*         B3     GROUPS LEFT TO PROCESS                                  IRCP     6647
*         B4     REMAINING BYTES IN CURRENT FILL WORD                    IRCP     6648
*         B5     REMAINING BYTES IN CURRENT LIST WORD                    IRCP     6649
*         B6     REMAINING BYTES IN CURRENT BUFFER WORD TO FILL          IRCP     6650
*         B7     FREE                                                    IRCP     6651
*         X0     FREE                                                    IRCP     6652
*         X1     CURRENT WORD OF FILL FIELD                              IRCP     6653
*         X2     POINTER TO CURRENT LIST POINTER WORD                    IRCP     6654
*         X3     CONTENTS OF GROUP LIST CURRENT WORD                     IRCP     6655
*         X4     FREE                                                    IRCP     6656
*         X5     FREE                                                    IRCP     6657
*         X6     FREE                                                    IRCP     6658
*         X7     CONTENTS OF OUTPUT CURRENT WORD                         IRCP     6659
*         A0     USED DURING TEXT PROCESSING, OTHERWISE FREE.            IRCP     6660
*         A1     POINTER TO CURRENT FILL WORD                            IRCP     6661
*         A2     POINTER TO CALLING SEQUENCE                             IRCP     6662
*         A3     POINTER TO CURRENT GROUP LIST WORD                      IRCP     6663
*         A4     FREE                                                    IRCP     6664
*         A5     FREE                                                    IRCP     6665
*         A6     FREE                                                    IRCP     6666
*         A7     POINTER TO CURRENT TO CURRENT WORD OF OUTPUT BUFFER     IRCP     6667
*                                                                        IRCP     6668
**********                                                               IRCP     6669
*                                                                        IRCP     6670
*         LOOK AT NEXT LIST GROUP                                        IRCP     6671
*                                                                        IRCP     6672
OPCX10    ZR     B3,OPCX50                                               IRCP     6673
          NG     B3,OPCX50         GO IF NO GROUPS LEFT                  IRCP     6674
          SA2    A2+B1             NEXT WORD OF CALLING SEQUENCE         IRCP     6675
          SA3    X2                GET HEAD OF GROUP LIST                IRCP     6676
          LX3    12                SHIFT TO LOW ORDER                    IRCP     6677
          MX6    48                MINUS LOW ORDER BYTE MASK             IRCP     6678
          BX3    -X6*X3            MASK OFF JUNK                         IRCP     6679
          MX6    57                CHARACTER SIZE MASK                   IRCP     6680
          BX6    -X6*X3            GET DIGIT                             IRCP     6681
          SA6    CHARSIZ           SAVE IT FOR LATER                     IRCP     6682
          SX5    7000B             LIST TYPE DIGIT MASK                  IRCP     6683
          BX7    X5+X3             OR IN FUNCTION FLAG                   IRCP     6684
          LX7    48                SHIFT TO HIGH ORDER                   IRCP     6685
          BX5    X5*X3             GET LIST TYPE DIGIT                   IRCP     6686
          AX5    9                 LOW ORDER X5 POSITION                 IRCP     6687
          SB7    X5                HOLD IN B REG                         IRCP     6688
          SB6    4                 FOUR BYTES LEFT TO FILL IN OUTPUT     IRCP     6689
          SA3    A3+B1             POINT AT CO-ORDINATE WORD             IRCP     6690
          SB5    5                 FULL COUNT                            IRCP     6691
          SB3    B3-B1             DECREMENT GROUP COUNT                 IRCP     6692
          LT     B7,B1,MSGTXT      GO IF MESSAGE GROUP                   IRCP     6693
          EQ     B7,B1,OPTEXT      GO IF OPTION GROUP                    IRCP     6694
          SB7    B7-B1             DECREMENT                             IRCP     6695
          EQ     B7,B1,QSTEXT      GO IF QUESTION TEXT                   IRCP     6696
OPCX11    SA5    OPCOM             GET CALL ADDRESS+1                    IRCP     6697
          LX5    30                SHIFT ADRS TO LOW ORDER               IRCP     6698
          RJ     CNVTBTO           CONVERT TO OCTAL DISPLAY CODE         IRCP     6699
          SA6    OPCXELOC          RETURN IN X6 - STORE IN FILL FIELD    IRCP     6700
          OPCOM  X,(OPCXERR),(OPCXELOC,10) REPORT ERROR                  IRCP     6701
          JP     *                 AND DIE                               IRCP     6702
*                                                                        IRCP     6703
*         END OF ALL LIST GROUPS                                         IRCP     6704
*                                                                        IRCP     6705
OPCX50    SX5    7777B             END OF BUFFER FLAG                    IRCP     6706
          RJ     PUTBYTE           OUTPUT TO BUFFER                      IRCP     6707
          SA7    A7                STORE LAST WORD IF NEEDED             IRCP     6708
          SA5    OPCXRTNT          GET RETURN TYPE                       IRCP     6709
          SX5    X5-1RX            IS IT AN X/Q/                         IRCP     6710
          NZ     X5,OPCX60         GO IF NOT                             IRCP     6711
          SA5    OPCXRTNA          DO NOT ACCEPT INPUT                   IRCP     6712
          BX6    X5                COPY CODE WORD                        IRCP     6713
          SA6    OPCXCTLW          TURN ON DISPLAY                       IRCP     6714
OPCX55    SX7    A2+B1             RETURN ADRS                           IRCP     6715
          SX6    4B                GENERATE RETURN INSTRUCTION           IRCP     6716
          LX6    24                POSITION                              IRCP     6717
          BX7    X6+X7             CREATE INSTRUCTION                    IRCP     6718
          LX7    30                POSITION                              IRCP     6719
          SA7    OPCOM             STORE IN MEMORY                       IRCP     6720
          SA5    BSTORE            GET B REGISTERS                       IRCP     6721
          SB2    X5                FROM MEMORY                           IRCP     6722
          SA5    A5+B1             .                                     IRCP     6723
          SB3    X5                .                                     IRCP     6724
          SA5    A5+B1             .                                     IRCP     6725
          SB4    X5                .                                     IRCP     6726
          SA5    A5+B1             .                                     IRCP     6727
          SB5    X5                .                                     IRCP     6728
          SA5    A5+B1             .                                     IRCP     6729
          SB6    X5                .                                     IRCP     6730
          SA5    A5+B1             .                                     IRCP     6731
          SB7    X5                .                                     IRCP     6732
          JP     OPCOM                                                   IRCP     6733
BSTORE    BSSZ   7                                                       IRCP     6734
*                                                                        IRCP     6735
*         WE EXPECT SOME INPUT                                           IRCP     6736
*                                                                        IRCP     6737
OPCX60    SA5    OPCXRTNB          ACCEPT AND DISPLAY INPUT              IRCP     6738
          BX6    X5                COPY CODE WORD                        IRCP     6739
OPCX62    SA6    OPCXCTLW          SET DISPLAY ON                        IRCP     6740
OPCX64    SA5    A6                GET DISPLAY CTL WORD                  IRCP     6741
          LX5    12                SHIFT DISPLAY CTL BYTE TO LOW ORDER   IRCP     6742
          MX4    48                MINUS MASK                            IRCP     6743
          BX6    -X4*X5            LOOK AT DISPLAY BYTE ONLY             IRCP     6744
          NZ     X6,OPCX64         GO WAIT SOME MORE                     IRCP     6745
          LX5    24                SHIFT INPUT COUNT TO LOW ORDER        IRCP     6746
          BX0    -X4*X5            GET INPUT COUNT                       IRCP     6747
          SB7    OPCNUM            NUMBER OF WORDS TO SAVE               IRCP     6748
OPCX69    SA5    OPCXINPT-1+B7     GET WORD FROM COMMUNICATION AREA      IRCP     6749
          BX6    X5                COPY                                  IRCP     6750
          SA6    OPCXIPUT-1+B7     STORE                                 IRCP     6751
          SB7    B7-B1             DECREMENT COUNTER                     IRCP     6752
          GE     B7,B1,OPCX69      LOOP ON COUNT                         IRCP     6753
          SA5    OPCXRTNT          GET RETURN TYPE                       IRCP     6754
          SX5    X5-1RA            WAS IT AN A TYPE                      IRCP     6755
          NZ     X5,OPCX70         GO IF NOT                             IRCP     6756
          SA1    OPCXIPUT          RETURN ADDRESS OF INPUT               IRCP     6757
          EQ     OPCX55            AND EXIT                              IRCP     6758
*                                                                        IRCP     6759
*         INPUT REQUIRES ANALYSIS                                        IRCP     6760
*                                                                        IRCP     6761
OPCX70    SX5    X5-1RN+1RA        IS RETURN TYPE AN N                   IRCP     6762
          NZ     X5,OPCX75         GO IF NOT                             IRCP     6763
          SX1    20                MAXIMUM CHARACTERS TO CONVERT         IRCP     6764
          IX1    X1-X0             TEST ACTUAL COUNT                     IRCP     6765
          NG     X1,OPCX98         GO IF INVALID INPUT                   IRCP     6766
          NZ     X0,OPCX71         GO IF INPUT                           IRCP     6767
          SX1    B0-B1             VALUE IS MINUS ONE                    IRCP     6768
          EQ     OPCX55            AND EXIT                              IRCP     6769
OPCX71    SA1    OPCXIPUT          GET FIRST WORD OF INPUT               IRCP     6770
          RJ     CNVTOTB           CONVERT DISPLAY CODE TO BINARY        IRCP     6771
          NG     X0,OPCX98         JUMP IF ERROR                         SCR320E     7
          BX7    X4                SAVE VALUE                            IRCP     6772
          SA1    OPCXIPUT+1        GET SECOND HALF OF INPUT              IRCP     6778
          RJ     CNVTOTB           CONVERT DISPLAY CODE TO BINARY        IRCP     6779
          NG     X0,OPCX98         JUMP IF ERROR                         SCR320E     8
          IX6    X0+X0             COMPUTE SHIFT COUNT TO POSITION       SCR320E     9
          IX6    X6+X0             FIRST HALF                            SCR320E    10
          SB7    X6                INTO A B REG                          IRCP     6783
          LX7    B7,X7             SHIFT UPPER HALF                      IRCP     6784
          BX1    X4+X7             OR TOGETHER TO GET VALUE              IRCP     6785
          EQ     OPCX55            AND EXIT                              IRCP     6786
OPCX75    SX1    B0                ZERO X1                               IRCP     6787
          ZR     X0,OPCX55         EXIT IF NO INPUT                      IRCP     6788
          SX5    X5-1RO+1RN        IS IT AN O                            IRCP     6789
          NZ     X5,OPCX11         IF NOT IT IS AN ERROR                 IRCP     6790
          SX1    X0-6              OPTION INPUT TOO LONG/Q/              IRCP     6791
          PL     X1,OPCX98         GO IF YES                             IRCP     6792
          SA1    OPTCOUNT          GET NUMBER OF OPTIONS                 IRCP     6793
          ZR     X1,OPCX55         RETURN OPTION ZERO                    IRCP     6794
          SA3    OPCXIPUT          GET INPUT                             IRCP     6795
          SB7    X1                NUMBER OF OPTIONS                     IRCP     6796
OPCX79    SA4    B7+OPTION-1       GET OPTION                            IRCP     6797
          BX4    X4-X3             GET DIFFERENCE                        IRCP     6798
          ZR     X4,OPCX85         GO IF NONE                            IRCP     6799
          SB7    B7-B1             DECR OPTION COUNT                     IRCP     6800
          GE     B7,B1,OPCX79      LOOP ON NUMBER OF OPTIONS             IRCP     6801
          EQ     OPCX98            GO IF NO MATCH                        IRCP     6802
OPCX85    SX1    B7                RETURN OPTION NUMBER                  IRCP     6803
          EQ     OPCX55            AND EXIT                              IRCP     6804
*                                                                        IRCP     6805
*         INVALID INPUT                                                  IRCP     6806
*                                                                        IRCP     6807
OPCX98    SA1    OPCXREPT          GET REPEAT CODE                       IRCP     6808
          SA5    OPCXCTLW          GET OLD CTL WORD                      IRCP     6809
          BX6    X1+X5             ASK DISPLAY TO FLAG ERROR             IRCP     6810
          EQ     OPCX62            AND BEGIN AGAIN                       IRCP     6811
*                                                                        IRCP     6812
*         MSGTXT - PROCESS MESSAGE TEXT                                  IRCP     6813
*                                                                        IRCP     6814
*         DOLLAR SIGNS ARE REPLACED BY BYTES FROM THE FILL WORD          IRCP     6815
*                                                                        IRCP     6816
*                                                                        IRCP     6817
MSGTXT    RJ     COORDFIX          DO THINGS WITH CO-ORD BYTE            IRCP     6818
MSGX01    RJ     GETBYTE           GET BYTE OF TEXT                      IRCP     6819
          ZR     X5,MSGTXT         GO IF END OF TEXT                     IRCP     6820
          SX0    X5-2R$$           SEE IF DOLLAR SIGNS                   IRCP     6821
          NZ     X0,MSGX02         GO IF SOME DIFFERENCE                 IRCP     6822
          RJ     GETFILL           GET FILL BYTE                         IRCP     6823
MSGX02    RJ     PUTBYTE           OUTPUT TO BUFFER                      IRCP     6824
          EQ     MSGX01                                                  IRCP     6825
*                                                                        IRCP     6826
*         QSTEXT - PROCESS QUESTION TEXT                                 IRCP     6827
*                                                                        IRCP     6828
*                                                                        IRCP     6829
*                                                                        IRCP     6830
QSTEXT    RJ     COORDFIX          DO THINGS WITH CO-ORD BYTE            IRCP     6831
QSTX01    RJ     GETBYTE           GET BYTE OF TEXT                      IRCP     6832
          ZR     X5,QSTEXT         GO IF END OF TEXT                     IRCP     6833
          RJ     PUTBYTE           MOVE BYTE TO BUFFER                   IRCP     6834
          EQ     QSTX01            LOOP ON MESSAGE TEXT                  IRCP     6835
*                                                                        IRCP     6836
*         OPTEXT - PROCESS OPTION TEXT                                   IRCP     6837
*                                                                        IRCP     6838
*         DOLLAR SIGNS DELIMIT OPTION LITERAL VALUE                      IRCP     6839
*                                                                        IRCP     6840
*                                                                        IRCP     6841
OPTEXT    RJ     COORDFIX          DO THINGS WITH THE CO-ORD BYTE        IRCP     6842
          BX4    X3                COPY OF FIRST WORD OF TEXT            IRCP     6843
          MX5    48                -LOW ORDER BYTE MASK                  IRCP     6844
          SB7    B0                INITIALIZE COUNT                      IRCP     6845
OPTX05    LX4    12                HIGH BYTE TO LOW ORDER BYTE           IRCP     6846
          BX6    -X5*X4            ISOLATE BYTE IN X6                    IRCP     6847
          ZR     X6,OPTX10         GO IF END OF TEXT                     IRCP     6848
          SX6    X6-2R$$           IS IT $$                              IRCP     6849
          ZR     X6,OPTX10         GO IF YES                             IRCP     6850
          SB7    B7+B1             BUMP COUNT                            IRCP     6851
          LT     B7,B5,OPTX05      GO IF MORE TO CHECK                   IRCP     6852
OPTX10    MX4    12                INITIAL MASK                          IRCP     6853
          ZR     B7,OPTX20         GO IF NULL INPUT                      IRCP     6854
OPTX12    SB7    B7-B1             DOWN COUNT                            IRCP     6855
          ZR     B7,OPTX15         GO IF COUNT DONE                      IRCP     6856
          AX4    12                EXTEND MASK                           IRCP     6857
          EQ     OPTX12            LOOP ON B7                            IRCP     6858
OPTX15    BX6    X4*X3             GET OPTION WORD                       IRCP     6859
          SX4    77B               CHAR MASK                             IRCP     6860
          SB7    10                CHAR COUNT                            IRCP     6861
OPTX16    BX5    X4*X6             ISOLATE CHARACTER                     IRCP     6862
          NZ     X5,OPTX17         GO IF NOT ZERO                        IRCP     6863
          SX0    1R                CONSTANT BLANK                        IRCP     6864
          BX6    X6+X0             ADD IN TO OPTION NAME                 IRCP     6865
OPTX17    LX6    6                 SHIFT CHARACTER                       IRCP     6866
          SB7    B7-B1             DECR CHAR COUNT                       IRCP     6867
          GE     B7,B1,OPTX16      LOOP ON CHAR COUNT                    IRCP     6868
          SA5    OPTCOUNT          GET OPTION COUNT                      IRCP     6869
          SB7    X5+B1             OP BY ONE                             IRCP     6870
          SA6    B7+OPTION-1       STORE OPTION                          IRCP     6871
          SX6    B7                GET COUNT                             IRCP     6872
          SA6    A5                STORE NEW COUNT                       IRCP     6873
*                                                                        IRCP     6874
*         OPTION HAS BEEN ISOLATED - NOW PROCESS AS TEXT                 IRCP     6875
*                                                                        IRCP     6876
OPTX20    RJ     GETBYTE           GET BYTE OF TEXT                      IRCP     6877
          ZR     X5,OPTEXT         GO IF END OF TEXT                     IRCP     6878
OPTX30    RJ     PUTBYTE           OUTPUT TO BUFFER                      IRCP     6879
          EQ     OPTX20            LOOP ON TEXT                          IRCP     6880
          TITLE   CO-ORDINATE CONTROL                                    IRCP     6881
*                                                                        IRCP     6882
*         COORDFIX                                                       IRCP     6883
*                                                                        IRCP     6884
*         GET BYTE WHICH IS EITHER CO-ORDINATE IN PACKED FORM OR ENDLST  IRCP     6885
*         FLAG (7777B).  IF CO-ORDINATE, CALL COORD TO CONVERT IT, THEN  IRCP     6886
*         ENTER IT INTO THE BUFFER (TWO BYTES).  IF ENDLST WORD, GO TO   IRCP     6887
*         ENDLST PRROCESSOR                                              IRCP     6888
*                                                                        IRCP     6889
COORDFIX  DATA   0                 ENTRY                                 IRCP     6890
          SA5    IDRPTR            GET INDIRECT POINTER (IF ANY)         IRCP     6891
          ZR     X5,COORDFGX       GO IF NONE                            IRCP     6892
          SX6    B0                ZERO INDIRECT ADRS                    IRCP     6893
          SA6    A5                ZAP                                   IRCP     6894
          SA3    X5                RESTORE ADRS                          IRCP     6895
          SB5    5                 SET FULL COUNT                        IRCP     6896
COORDFGX  BSS    0                                                       IRCP     6897
          SB7    5                 FULL BYTE COUNT                       IRCP     6898
          EQ     B7,B5,COORDFQX    GO IF FIRST BYTE OF INPUT WORD        IRCP     6899
          SA3    A3+B1             GET NEXT WORD FOR THE CO-ORDINATE     IRCP     6900
          SB5    B7                SET FULL COUNT                        IRCP     6901
COORDFQX  BSS    0                                                       IRCP     6902
          RJ     GETBYTE           GET BYTE                              IRCP     6903
          SX0    7777B             ENDLST BYTE                           IRCP     6904
          IX0    X5-X0             GET DIFFERENCE                        IRCP     6905
          ZR     X0,COORDFZX       GO IF ENDLST                          IRCP     6906
          RJ     COORD             GO CONVERT COORD                      IRCP     6907
          RJ     PUTBYTE           ENTER X INTO BUFFER                   IRCP     6908
          BX5    X0                COPY Y TO X5                          IRCP     6909
          RJ     PUTBYTE           ENTER Y INTO BUFFER                   IRCP     6910
          RJ     GETBYTE           GET NEXT BYTE AFTER COORD             IRCP     6911
          SX5    X5-7777B          IS THIS AN INDIRECT FLAG/Q/           IRCP     6912
          NZ     X5,COORDFKX       GO IF NOT                             IRCP     6913
          SX6    A3+B1             SAVE POINTER                          IRCP     6914
          SA6    IDRPTR            .                                     IRCP     6915
          LX3    36                POSITION ADDRS                        IRCP     6916
          SA3    X3+B1             GET WORD (SKIP COORDINATES)           IRCP     6917
COORDFKX  BSS    0                                                       IRCP     6918
          SA3    A3+B1             POINT AT NEXT WORD                    IRCP     6919
          SB5    5                 RESET BYTE COUNT                      IRCP     6920
          EQ     COORDFIX          AND EXIT                              IRCP     6921
COORDFZX  SX5    B0                ZERO BYTE WHICH ACTS AS               IRCP     6922
          RJ     PUTBYTE           OUTPUT FLAG TO CHANGE FUNCTION        IRCP     6923
          SB7    5                 SET FULL COUNT FOR COMPARE            IRCP     6924
          NE     B7,B6,COORDFZX    GO IF FULL WORD NOT DONE              IRCP     6925
          EQ     OPCX10            EXIT TO ENDLST SECTION                IRCP     6926
IDRPTR    BSSZ   1                 INDIRECT ADRS                         IRCP     6927
          TITLE BYTE HANDLING ROUTINES - GETFILL                         IRCP     6928
**********                                                               IRCP     6929
*                                                                        IRCP     6930
*         GETFILL                                                        IRCP     6931
*                                                                        IRCP     6932
**********                                                               IRCP     6933
*                                                                        IRCP     6934
*         RJM    GETFILL                                                 IRCP     6935
*                                                                        IRCP     6936
*         B1 HAS THE VALUE 1                                             IRCP     6937
*         B2 HAS REMAINING FILL BYTES                                    IRCP     6938
*         B4 HAS REMAINING FILL BYTES IN CURRENT FILL WORD               IRCP     6939
*         B7 IS A FREE REGISTER                                          IRCP     6940
*         X1 CONTAINS CURRENT FILL WORD                                  IRCP     6941
*         X4-X6 ARE FREE REGISTERS                                       IRCP     6942
*         A1 POINTER TO CURRENT FILL WORD                                IRCP     6943
*                                                                        IRCP     6944
*         BYTE IS RETURNED IN THE LOW ORDER BYTE OF X5                   IRCP     6945
*         IF FILL BYTE COUNT IS EXHAUSTED OR FILL FIELD IS NOT PRESENT,  IRCP     6946
*         AN OCTAL 5555B IS RETURNED.                                    IRCP     6947
*                                                                        IRCP     6948
GETFILL   DATA   0                 ENTRY                                 IRCP     6949
          SX5    2R                BLANKS                                IRCP     6950
          SB7    A1                GET POINTER                           IRCP     6951
          MX4    48                -BYTE MASK                            IRCP     6952
          ZR     B7,GETFILL        GO IF NO FILL FIELD                   IRCP     6953
          ZR     B2,GETFILL        GO IF NO MORE FILL FIELD              IRCP     6954
          LX1    12                SHIFT NEXT BYTE TO LOW ORDER POSITION IRCP     6955
          BX5    -X4*X1            PUT BYTE IN LOW ORDER X5              IRCP     6956
          SB4    B4-B1             BUMP COUNT DOWN                       IRCP     6957
          SB2    B2-B1             BUMP TOTAL COUNT DOWN                 IRCP     6958
          NZ     B4,GETFILL        EXIT IF OKAY                          IRCP     6959
          ZR     B2,GETFILL        GO IF NO MORE FILL                    IRCP     6960
          SA1    A1+B1             UP POINTER TO NEXT WORD               IRCP     6961
          SB4    5                 RESET NUMBER OF AVAILABLE BYTES       IRCP     6962
          GE     B2,B4,GETFILL     GO IF EVERY THING IS OKAY             IRCP     6963
          SB4    B2                SET LOWER COUNT                       IRCP     6964
          EQ     GETFILL           AND EXIT                              IRCP     6965
          TITLE COMPUTE CO-ORDINATES                                     IRCP     6966
**********                                                               IRCP     6967
*                                                                        IRCP     6968
*         COORD                                                          IRCP     6969
*                                                                        IRCP     6970
**********                                                               IRCP     6971
*                                                                        IRCP     6972
*         RJM    COORD                                                   IRCP     6973
*                                                                        IRCP     6974
*         B1 IS A CONSTANT 1                                             IRCP     6975
*         B7 IS A FREE REGISTER                                          IRCP     6976
*         X0 IS A FREE REGISTER                                          IRCP     6977
*         X4 IS A FREE REGISTER                                          IRCP     6978
*         X6 IS A FREE REGISTER                                          IRCP     6979
*                                                                        IRCP     6980
*         X5 CONTAINS THE PACKED CO-ORDINATE XXYY, CHARSIZ CONTAINS      IRCP     6981
*                                                                        IRCP     6982
*         ON EXIT X5 CONTAINS THE X CO-ORDINATE AND X0 THE Y CO-ORDINATE IRCP     6983
*                                                                        IRCP     6984
COORD     DATA   0                 ENTRY                                 IRCP     6985
          MX4    54                -CHAR MASK                            IRCP     6986
          BX0    -X4*X5            GET PACKED YY                         IRCP     6987
          AX5    6                 SHIFT XXYY TO 00XX                    IRCP     6988
          SA4    CHARSIZ           GET CHARACTER SIZE                    IRCP     6989
          SB7    X4-1              GET TEST CODE                         IRCP     6990
          ZR     B7,COORDM         GO IF MEDIUM CO-ORDINATE              IRCP     6991
          PL     B7,COORDL         GO IF LARGE CO-ORDINATE               IRCP     6992
*                                                                        IRCP     6993
*         SMALL CO-ORDINATE                                              IRCP     6994
*                                                                        IRCP     6995
COORDS    LX5    3                 * 8                                   IRCP     6996
          LX0    3                 * 8                                   IRCP     6997
          EQ     FINY              GO FINISH COORD                       IRCP     6998
*                                                                        IRCP     6999
*         MEDIUM CO-ORDINATE                                             IRCP     7000
*                                                                        IRCP     7001
COORDM    LX5    4                 * 16                                  IRCP     7002
          LX0    4                 * 16                                  IRCP     7003
          EQ     FINY              GO FINISH COORD                       IRCP     7004
*                                                                        IRCP     7005
*         LARGE CO-ORDINATE                                              IRCP     7006
*                                                                        IRCP     7007
COORDL    LX5    5                 * 32                                  IRCP     7008
          LX0    5                 * 16                                  IRCP     7009
*                                                                        IRCP     7010
FINY      SX4    X0                COPY VALUE                            IRCP     7011
          AX4    1                 SHIFT TO HALF VALUE                   IRCP     7012
          IX0    X0+X4             ADD HALF BACK IN                      IRCP     7013
          SX4    6000B             X CO-ORD FLAG                         IRCP     7014
          BX5    X4+X5             OR INTO CO-ORD                        IRCP     7015
          MX4    60-9              MASK                                  IRCP     7016
          BX0    -X4*X0            OFF JUNK                              IRCP     7017
          SA4    CHRTOP+1+B7       GET TOP OF SCREEN                     IRCP     7018
          IX0    X4-X0             GO DOWN THE SCREEN                    IRCP     7019
          EQ     COORD             AND EXIT                              IRCP     7020
          TITLE  BYTE HANDLING ROUTINES - GETBYTE                        IRCP     7021
**********                                                               IRCP     7022
*                                                                        IRCP     7023
*         GETBYTE                                                        IRCP     7024
*                                                                        IRCP     7025
**********                                                               IRCP     7026
*                                                                        IRCP     7027
*         RJM    GETBYTE                                                 IRCP     7028
*         B1 HAS THE VALUE 1                                             IRCP     7029
*         B5 HAS NUMBER OF REMAINING BYTES IN CURRENT LIST WORD          IRCP     7030
*         B7 IS A FREE REGISTER                                          IRCP     7031
*         X3 CONTAINS CURRENT LIST WORD                                  IRCP     7032
*         X4 IS A FREE REGISTER                                          IRCP     7033
*         X5 IS A FREE REGISTER                                          IRCP     7034
*         X6 IS A FREE REGISTER                                          IRCP     7035
*         A3 POINTS AT CURRENT LIST WORD                                 IRCP     7036
*         A4-A6 ARE FREE REGISTERS                                       IRCP     7037
*                                                                        IRCP     7038
*         BYTE IS RETURNED IN THE LOW ORDER BYTE OF X5                   IRCP     7039
*                                                                        IRCP     7040
GETBYTE   DATA   0                 ENTRY                                 IRCP     7041
          MX4    48                -BYTE MASK                            IRCP     7042
          LX3    12                SHIFT NEXT BYTE TO LOW ORDER POSITION IRCP     7043
          BX5    -X4*X3            PUT BYTE IN LOW ORDER X5              IRCP     7044
          SB5    B5-B1             BUMP COUNT DOWN                       IRCP     7045
          NZ     B5,GETBYTE        EXIT IF STILL SOME LEFT               IRCP     7046
          SB5    5                 RESET NUMBER OF BYTES LEFT            IRCP     7047
          SA3    A3+B1             UP POINTER TO NEXT WORD               IRCP     7048
          EQ     GETBYTE           AND EXIT                              IRCP     7049
          TITLE  BYTE HANDLING ROUTINES - PUTBYTE                        IRCP     7050
**********                                                               IRCP     7051
*                                                                        IRCP     7052
*         PUTBYTE                                                        IRCP     7053
*                                                                        IRCP     7054
**********                                                               IRCP     7055
*                                                                        IRCP     7056
*         RJM    PUTBYTE                                                 IRCP     7057
*                                                                        IRCP     7058
*         B1 HAS THE VALUE 1                                             IRCP     7059
*         B6 HAS BYTES REMAINING TO BE FILLED IN BUFFER WORD             IRCP     7060
*         B7 IS A FREE REGISTER                                          IRCP     7061
*         X4,X6 ARE FREE REGISTERS                                       IRCP     7062
*         X7 CONTAINS CURRENT BUFFER WORD                                IRCP     7063
*         A7 POINTER TO CURRENT BUFFER WORD                              IRCP     7064
*                                                                        IRCP     7065
*         BYTE TO BE ADDED TO BUFFER IS IN THE LOW ORDER BYTE OF X5      IRCP     7066
*         ON EXIT X5 IS THE SAME AS ON ENTRY                             IRCP     7067
*                                                                        IRCP     7068
PUTBYTE   DATA   0                 ENTRY                                 IRCP     7069
          SX4    B6-B1             GET REMAINING COUNT - 1               IRCP     7070
          SX6    X4                COPY TO X6                            IRCP     7071
          LX6    3                 MULTIPLY BY 8                         IRCP     7072
          LX4    2                 MULTIPLY BY 4                         IRCP     7073
          IX4    X4+X6             ADD TOGETHER                          IRCP     7074
          SB7    X4                INTO B-REG                            IRCP     7075
          LX4    B7,X5             SHIFT BYTE TO PROPER POSITION         IRCP     7076
          BX7    X7+X4             OR INTO MESSAGE                       IRCP     7077
          SB6    B6-B1             ONE LESS FREE BYTE                    IRCP     7078
          NZ     B6,PUTBYTE        EXIT IF STILL SOME LEFT               IRCP     7079
          SA7    A7                STORE BYTE                            IRCP     7080
          SX7    B0                ZERO BUFFER WORD                      IRCP     7081
          SA7    A7+B1             POINT AT NEXT BYTE                    IRCP     7082
          SB6    5                 RESET FREE BYTE COUNT                 IRCP     7083
          EQ     PUTBYTE           AND EXIT                              IRCP     7084
          TITLE  OCTAL TO BINARY CONVERSION ROUTINE                      IRCP     7085
*                                                                        IRCP     7086
*         INPUT IN X1 IS SCANNED FROM LEFT TO RIGHT EACH DIGIT IS        IRCP     7087
*         CONVERTED AND ADDED TO A SUM IN THE X4 REGISTER                IRCP     7088
*         BLANKS ARE IGNORED.  THE NUMBER OF OCTAL DIGITS FOUND IS       SCR320E    11
*         RETURNED IN X0.  IF ANY NON-OCTAL DIGITS ARE FOUND (OTHER      SCR320E    12
*         THAN BLANK), X0 IS RETURNED NEGATIVE.                          SCR320E    13
*                                                                        IRCP     7089
*                                                                        IRCP     7090
CNVTOTB   DATA   0                 ENTRY                                 IRCP     7091
          SX4    B0                ZERO RESULT REGISTER                  IRCP     7092
          SX0    B0                RESET FLAG                            IRCP     7093
          SB1    1                 MAKE SURE ONE IS THERE                IRCP     7094
          SB7    10                NUMBER OF CHARACTERS TO LOOK AT       IRCP     7095
          MX5    54                -CHAR MASK                            IRCP     7096
CNVTOTB1  LX1    6                 SHIFT ONE CHARACTER                   IRCP     7097
          BX3    -X5*X1            GET CHARACTER                         IRCP     7098
          SX2    X3-1R             SKIP BLANK                            SCR320E    14
          ZR   X2,CNVTOTB2                                               SCR320E    15
          SX3    X3-1R0            CONVERT TO OCTAL                      SCR320E    16
          NG   X3,CNVTOTB3         ERROR IF ALPHA                        SCR320E    17
          SX2    X3-1R8+1R0                                              SCR320E    18
          PL   X2,CNVTOTB3         ERROR IF NOT OCTAL                    SCR320E    19
          LX4    3                 ADD DIGIT TO OTHERS                   SCR320E    20
          IX4    X4+X3                                                   SCR320E    21
          SX0    X0+B1             BUMP COUNT OF OCTAL CHARS             SCR320E    22
CNVTOTB2  SB7    B7-B1             DECREMENT TOTAL COUNT                 SCR320E    23
          NZ   B7,CNVTOTB1         LOOP                                  SCR320E    24
          EQ   CNVTOTB             NORMAL EXIT                           SCR320E    25
                                                                         SCR320E    26
CNVTOTB3  MX0    1                 SET ERROR FLAG                        SCR320E    27
          EQ   CNVTOTB             AND EXIT                              SCR320E    28
          TITLE  BINARY TO DISPLAY CODE CONVERSION ROUTINE               IRCP     7113
*                                                                        IRCP     7114
*         BINARY INPUT ON ENTRY IS IN X5                                 IRCP     7115
*         ONLY THE LOW ORDER 30 BITS ARE CONVERTED                       IRCP     7116
*                                                                        IRCP     7117
*         ON EXIT X5 IS UNCHANGED AND X6 CONTAINS THE DISPLAY CODE       IRCP     7118
*         RIGHT JUSTIFIED AND LEFT FILLED WITH OCTAL ZEROS               IRCP     7119
*                                                                        IRCP     7120
*         USES A4, X3, X4, B7                                            IRCP     7121
*                                                                        IRCP     7122
CNVTBTO   DATA                                                           IRCP     7123
          SB1    1                 SET CONSTANT                          IRCP     7124
          SA4    ZROFIL            GET WORD OF ZEROS                     IRCP     7125
          BX6    X4                MOVE TO X6                            IRCP     7126
          MX3    57                DIGIT MASK                            IRCP     7127
          LX5    30                GET UPPER HALF OUT OF WAY             IRCP     7128
          SB7    10                TEN DIGITS                            IRCP     7129
CNVTBTO1  LX5    3                 SHIFT DIGIT                           IRCP     7130
          LX6    6                 SHIFT CHARACTER                       IRCP     7131
          BX4    -X3*X5            GET DIGIT                             IRCP     7132
          IX6    X6+X4             ADD IN TO RESULT                      IRCP     7133
          SB7    B7-B1             DECREMENT COUNT                       IRCP     7134
          GE     B7,B1,CNVTBTO1    LOOP ON COUNT                         IRCP     7135
          EQ     CNVTBTO           EXIT                                  IRCP     7136
ZROFIL    DATA   L*0000000000*     WORD OF DISPLAY ZEROS                 IRCP     7137
          TITLE  OPCOM LOCAL VARIABLES                                   IRCP     7138
*                                                                        IRCP     7139
*         VARIABLE AREAS                                                 IRCP     7140
*                                                                        IRCP     7141
OPCXELOC  BSS    1                 CONTAINS DISPLAY CODE OF ERROR LOC    IRCP     7142
OPTION    BSS    12                CONTAINS ALLOWABLE OPTIONS            IRCP     7143
OPCXRTNT  BSS    1                 CONTAINS RETURN TYPE FROM CALL        IRCP     7144
OPTCOUNT  BSS    1                 CONTAINS NUMBER OF OPTIONS            IRCP     7145
CHARSIZ   BSS    1                 CONTAINS CHARACTER SIZE               IRCP     7146
OPCXIPUT  BSS    6                                                       IRCP     7147
OPCNUM    EQU    *-OPCXIPUT        LENGTH OF SAVE AREA                   IRCP     7148
*                                                                        IRCP     7149
*         CONSTANTS                                                      IRCP     7150
*                                                                        IRCP     7151
CHRTOP    DATA   7767B,7757B,7737B                                       IRCP     7152
OPCXRTNA  VFD    12/1,12/0,12/0,12/1,12/0   DISPLAY - NO INPUT           IRCP     7153
OPCXRTNB  VFD    12/1,12/1,12/0,12/1,12/0   DISPLAY - INPUT              IRCP     7154
OPCXREPT  VFD    12/1,12/1,12/0,12/1,12/1   DISPLAY - INPUT, ERROR       IRCP     7155
OPCXERR   MSGLST  LARGE                                                  IRCP     7156
          MSGTEXT  (BOMB AT)                                             IRCP     7157
          MSGTEXT  (  $$$$$$$$$$)                                        IRCP     7158
          ENDLST                                                         IRCP     7159
*                                                                        IRCP     7160
*         BUFFERS                                                        IRCP     7161
*                                                                        IRCP     7162
*                                                                        IRCP     7163
*         DISPLAY CONTROL WORD DESCRIPTION                               IRCP     7164
*                                                                        IRCP     7165
*         BYTE 0                   ZERO - NO DISPLAY OR INPUT            IRCP     7166
*                                  NON-ZERO - DISPLAY BUFFER             IRCP     7167
*         BYTE 1                   ZERO - NO INPUT ACCEPTED              IRCP     7168
*                                  NON-ZERO - ACCEPT INPUT               IRCP     7169
*         BYTE 2                   BYTE COUNT OF INPUT                   IRCP     7170
*                                                                        IRCP     7171
*         BYTE 3-4                 UNUSED                                IRCP     7172
*                                                                        IRCP     7173
OPCXINPT  EQU    OPCXCTLW+1        INPUT BUFFER                          IRCP     7174
OPCXOUTB  EQU    OPCXINPT+6        OUTPUT BUFFER                         IRCP     7175
          TITLE  CENTRAL PROCESSOR BREAK-POINT ROUTINE                   IRCP     7176
BPT       IFNE   BREAKPT,0                                               IRCP     7177
*                                                                        IRCP     7178
*         THIS ROUTINE IS ENTERED FROM THE RUNNING PROGRAM BY MEANS OF   IRCP     7179
*         AN XJ IN THE CODE.  THIS XJ MAY BE IN THE CODE FOR ONE OF      IRCP     7180
*         TWO REASONS                                                    IRCP     7181
*                                                                        IRCP     7182
*         A. THE BREAK-POINT ROUTINE INSERTED IT INTO THE CODE           IRCP     7183
*         B. THE PROGRAMMER ASSEMBLED IT INTO THE CODE                   IRCP     7184
*                                                                        IRCP     7185
*         IN CASE A, THE INSTRUCTIONS REPLACED ARE STORED IN A CM TABLE  IRCP     7186
                                                                         IRCP     7187
*         THE ROUTINE IS ALSO ENTERED BY THE TYPING OF AN ASTERISK (*)   IRCP     7188
*         AT ANY TIME.                                                   IRCP     7189
*                                                                        IRCP     7190
*         ON ENTRY THE CONTENTS OF THE EXCHANGE JUMP PACKAGE AND THE     IRCP     7191
*         CONTENTS OF 16 LOCATIONS OF MEMORY ARE CONVERTED TO OCTAL      IRCP     7192
*         AND DISPLAYED USING THE OPERATOR COMUNICATIONS PACKAGE.        IRCP     7193
*         THE OPERATOR MAY RESPOND BY TYPING..                           IRCP     7194
*                                                                        IRCP     7195
*         1. CARRIAGE RETURN - THIS HOLDS THE BREAK-POINT AT THIS        IRCP     7196
*         LOCATION UNLESS THE FIRST SIX BITS OF THE INSTRUCTION ARE 00B  IRCP     7197
*         OR 01B.                                                        IRCP     7198
*                                                                        IRCP     7199
*         2. A PERIOD FOLLOWED BY A CARRIAGE RETURN - THIS DROPS THE     IRCP     7200
*         BREAK-POINT AT THIS LOCATION.                                  IRCP     7201
*                                                                        IRCP     7202
*         3. BNNNNNN FOLLOWED BY A CARRIAGE RETURN - THIS SETS A         IRCP     7203
*            BREAK-POINT AT LOCATION NNNNNN.  THE LOCATION MAY NOT BE    IRCP     7204
*            A LOCATION WITH A BREAK-POINT CURRENTLY.  THIS INCLUDES     IRCP     7205
*            THE CURRENT BREAK-POINT.                                    IRCP     7206
*                                                                        IRCP     7207
*         4. C FOLLOWED BY A CARRIAGE RETURN - THIS CAUSES THE CORE      IRCP     7208
*         DISPLAY TO BE REGENERATED.  NOTE THAT CM WORD STORES MADE BY   IRCP     7209
*         PP0 DO NOT ALTER THE DISPLAY.                                  IRCP     7210
*                                                                        IRCP     7211
*         5. CNNNNNN FOLLOWED BY A CARRIAGE RETURN - THIS SET A NEW BASE IRCP     7212
*         ADDRESS FOR THE CORE DISPLAY.                                  IRCP     7213
*                                                                        IRCP     7214
*         6, + FOLLOWED BY A CARRIAGE RETURN - THIS ADVANCES THE BASE    IRCP     7215
*         ADDRESS OF THE CORE DISPLAY BY 16.                             IRCP     7216
*                                                                        IRCP     7217
*         7. - FOLLOWED BY A CARRIAGE RETURN - THIS DECREASES THE BASE   IRCP     7218
*         ADDRESS OF THE CORE DISPLAY BY 16.                             IRCP     7219
*                                                                        IRCP     7220
*         8.  XNNNNNNN FOLLOWED BY A CARRIAGE RETURN - THIS DISPLAYS     GHKECDBG    1
*         ECS WORD NNNNNN.                                               GHKECDBG    2
CMBP000   XJ     CMBPJMPG          RETURN TO PROGRAM                     IRCP     7221
BRKPNT    SB5    16                CONVERT 16 WORDS OF EX JMP PKG        IRCP     7222
CMBP001   SB6    B5+B5             32 WORDS OF OUTPUT                    IRCP     7223
          SA5    CMBPJMPG-1+B5     GET WORD                              IRCP     7224
          RJ     CNVTBTO           CONVERT LOWER HALF                    IRCP     7225
          SA6    CMBPEXJD-1+B6     STORE IN OUTPUT                       IRCP     7226
          LX5    30                SWITCH HALVES                         IRCP     7227
          RJ     CNVTBTO           CONVERT UPPER HALF                    IRCP     7228
          SA6    A6-B1             STORE IN OUTPUT                       IRCP     7229
          SB5    B5-B1             DECREMENT COUNT                       IRCP     7230
          GE     B5,B1,CMBP001     LOOP ON COUNT                         IRCP     7231
CMBP001A  SB5    16                NUMBER OF WORDS TO CONVERT            IRCP     7232
          SA5    CMBPADRS          GET ADRS OF DISPLAY AREA              IRCP     7233
          SX5    X5+B5             POINT AT LAST WORD +1                 IRCP     7234
          SA5    X5                INITIALIZE THE POINTER                IRCP     7235
CMBP001B  SA5    A5-B1             GET NEXT WORD                         IRCP     7236
          SB6    B5+B5             *2                                    IRCP     7237
          SB6    B6+B6             *4                                    IRCP     7238
          SX7    7777B             BYTE MASK                             IRCP     7239
          RJ     CNVTBTO           CONVERT LOWER HALF                    IRCP     7240
          LX6    12                POSITION                              IRCP     7241
          BX2    X7*X6             SAVE HIGH ORDER BYTE                  IRCP     7242
          BX6    -X7*X6            CLEAR LOWER BYTE                      IRCP     7243
          SA6    CMBPCWD-1+B6      STORE AS WORD FOUR OF LINE            IRCP     7244
          LX5    30                SWITCH HALVES                         IRCP     7245
          RJ     CNVTBTO           CONVERT UPPER HALF                    IRCP     7246
          LX6    12                POSITION                              IRCP     7247
          BX4    -X7*X6            GET EVERYTHING EXCEPT LOW BYTE        IRCP     7248
          BX2    X4+X2             ADD TO WORD THREE                     IRCP     7249
          BX1    X7*X6             GET LOW ORDER BYTE                    IRCP     7250
          BX6    X2                MOVE WORD THREE                       IRCP     7251
          SA6    A6-B1             STORE WORD THREE                      IRCP     7252
          SX5    A5                GET ADRS                              IRCP     7253
          RJ     CNVTBTO           CONVERT IT                            IRCP     7254
          SA4    CMBPMSK1          GET MASK ONE                          IRCP     7255
          LX6    12                POSITION OCTAL ADRS                   IRCP     7256
          BX6    X4*X6             MASK OFF JUNK                         IRCP     7257
          SX0    2R                ADD BLANKS                            IRCP     7258
          BX6    X6+X0             .                                     IRCP     7259
          LX6    12                SHIFT                                 IRCP     7260
          BX6    X6+X1             ADD IN HIGHEST BYTE                   IRCP     7261
          SA6    A6-B1             STORE IN WORD TWO                     IRCP     7262
          SB5    B5-B1             DECREMENT COUNT                       IRCP     7263
          GE     B5,B1,CMBP001B    LOOP ON COUNT                         IRCP     7264
          SA1       CMBPECAD       ECS ADDR TO READ                      GHKECDBG    3
          SA2       CMBPECOK       NORMAL HEADER                         GHKECDBG    4
          BX0       X1                                                   GHKECDBG    5
          SA0       CMBPECWD       CM ADDR TO READ TO                    GHKECDBG    6
          RE        1              READ THE WORD                         GHKECDBG    7
          SA2       CMBPECER       ERROR HEADER                          GHKECDBG    8
          BX7       X2                                                   GHKECDBG    9
          SA7       CMBPECHD+1     SET UP HEADER                         GHKECDBG   10
          SA5       CMBPECWD                                             GHKECDBG   11
          RJ        CNVTBTO                                              GHKECDBG   12
          SA6       CMBPXWD+3      STORE                                 GHKECDBG   13
          LX5       30             SWAP HALVES                           GHKECDBG   14
          RJ        CNVTBTO                                              GHKECDBG   15
          SA6       CMBPXWD+2      STORE                                 GHKECDBG   16
          SA5       CMBPECAD       DO ADDRESS                            GHKECDBG   17
          RJ        CNVTBTO                                              GHKECDBG   18
          MX0       48                                                   GHKECDBG   19
          LX6       12                                                   GHKECDBG   20
          SX1       2R                                                   GHKECDBG   21
          BX6       X0*X6                                                GHKECDBG   22
          BX6       X1+X6          INSERT 2 TRAILING BLANKS              GHKECDBG   23
          SA6       CMBPXWD+1                                            GHKECDBG   24
CMBP002   SA1    CMBPBLNK          GET WORD OF BLANKS                    IRCP     7265
          BX6    X1                GET INTO X6                           IRCP     7266
          SA6    CMBPERRA+1        STORE IN MESSAGE                      IRCP     7267
          SA6    A6+B1             .                                     IRCP     7268
CMBP003   OPCOM  A,(CMBPEXJE,CMBPERR,CMBPCDIS),(CMBPEXJD,160)            IRCP     7269
          SB2    X0                GET COUNT                             IRCP     7270
          GE     B2,B1,CMBP040     GO IF INPUT                           IRCP     7271
*                                                                        IRCP     7272
*         NO INPUT - HOLD BREAK POINT IF POSSIBLE                        IRCP     7273
*                                                                        IRCP     7274
          SB4    B0                DROP ONLY IF NECESSARY                IRCP     7275
CMBP005   SA1    CMBPJMPG          GET FIRST WORD OF EXJP                IRCP     7276
          LX1    24                SHIFT TO LOW ORDER                    IRCP     7277
          MX2    36                MASK                                  IRCP     7278
          BX1    -X2*X1            P-REG ONLY                            IRCP     7279
          SX1    X1-1              POINT AT LOCATION OF BREAK POINT      IRCP     7280
          RJ     CMBPSRCH          GO FIND IT IN THE TABLE               IRCP     7281
          NG     B7,CMBP000        NOT IN TABLE - CONTINUE EXECUTION     IRCP     7282
          AX2    18                POSITION TYPE                         IRCP     7283
          NZ     B4,CMBP010        GO IF FORCED DROP                     IRCP     7284
          ZR     X2,CMBP030        GO IF NOT NECESSARY TO DROP B-K       IRCP     7285
*                                                                        IRCP     7286
*         DROP BREAK POINT                                               IRCP     7287
*                                                                        IRCP     7288
CMBP010   BX6    X3                GET CONTENTS OF WORD                  IRCP     7289
          SA6    X1                RESTORE IN MEMORY                     IRCP     7290
          SX6    B0                ZERO WORD                             IRCP     7291
          SA6    A2                TO ENTRY WORD                         IRCP     7292
*                                                                        IRCP     7293
*         SET VALUE OF P REG FROM CONTENTS OF X1                         IRCP     7294
*                                                                        IRCP     7295
CMBP020   SA2    CMBPJMPG          GET FIRST WORD                        IRCP     7296
          LX1    36                SHIFT NEW VALUE TO HIGH ORDER         IRCP     7297
          MX3    24                MASK                                  IRCP     7298
          BX1    X3*X1             GET RID OF JUNK                       IRCP     7299
          BX2    -X3*X2            MAKE A HOLE IN WORD                   IRCP     7300
          BX6    X2+X1             MAKE INSERTION IN HOLE                IRCP     7301
          SA6    A2                STORE IN EXJPKG                       IRCP     7302
          EQ     CMBP000           AND EXIT TO PROGRAM                   IRCP     7303
*                                                                        IRCP     7304
*         INPUT - SEE IF WE SHOULD REMOVE B-K                            IRCP     7305
*                                                                        IRCP     7306
CMBP040   SA1    A1                GET INPUT                             IRCP     7307
          LX1    6                 SHIFT CHARACTER                       IRCP     7308
          MX2    54                -CHARACTER MASK                       IRCP     7309
          BX2    -X2*X1            ISOLATE FIRST CHARACTER               IRCP     7310
          NE     B2,B1,CMBP050     GO IF TOO LONG FOR A SINGLE CHARACTER IRCP     7311
          SX2    X2-1RC            IS IT A /C/                           IRCP     7312
          ZR     X2,CMBP001A       GO REFRESH DISPLAY                    IRCP     7313
          SX2    X2-1R.+1RC        IS IT A PERIOD                        IRCP     7314
          NZ     X2,CMBP047        GO IF NOT                             IRCP     7315
          SB4    B1                SET FORCE-DROP FLAG ON                IRCP     7316
          EQ     CMBP005           AND GO TO DROP SECTION                IRCP     7317
CMBP045   SA1    CMBPERR1          GET ERROR MESSAGE                     IRCP     7318
CMBP046   BX6    X1                COPY IT                               IRCP     7319
          SA6    CMBPERRA+1        STORE AWAY FOR DISPLAY                IRCP     7320
          SA1    A1+1              NEXT WORD                             IRCP     7321
          BX6    X1                COPY IT                               IRCP     7322
          SA6    A6+1              STORE FOR DISPLAY                     IRCP     7323
          EQ     CMBP003           AND TRY AGAIN                         IRCP     7324
CMBP047   SB2    X2+1R.-1R+        IS IT A + OR -                        IRCP     7325
          NG     B2,CMBP045        GO IF NOT                             IRCP     7326
          GT     B2,B1,CMBP045     .                                     IRCP     7327
          SB3    16                ADDITIVE                              IRCP     7328
          ZR     B2,CMBP048        GO IF PLUS                            IRCP     7329
          SB3    -B3               FLIP SIGN                             IRCP     7330
CMBP048   SA5    CMBPADRS          GET CM DISPLAY ADRS                   IRCP     7331
          SX6    X5+B3             BUMP ADRS                             IRCP     7332
          SA6    A5                STORE IT AWAY                         IRCP     7333
          EQ     CMBP001A          GO REFRESH DISPLAY                    IRCP     7334
CMBP048A  SX2       X2-1RX+1RC     IS IT AN X                            GHKECDBG   25
          NZ        X2,CMBP045     GO IF NOT                             GHKECDBG   26
          RJ        CNVTOTB        CONVERT ADRS                          GHKECDBG   27
          BX6       X4                                                   GHKECDBG   28
          SA6       CMBPECAD       SAVE                                  GHKECDBG   29
          EQ        CMBP001A       REFRESH DISPLAY                       GHKECDBG   30
CMBP049   SX2    X2-1RC+1RB     IS IT A C                                IRCP     7335
          NZ        X2,CMBP048A    GO IF NOT                             GHKECDBG   31
          RJ     CNVTOTB           CONVERT ADRS                          IRCP     7337
          BX6    X4                COPY VALUE                            IRCP     7338
          SA6    CMBPADRS          SAVE                                  IRCP     7339
          EQ     CMBP001A          GO REFRESH DISPLAY                    IRCP     7340
CMBP050   SB5    5                 MAXIMUM BYTES TO ACCEPT               IRCP     7341
          GT     B2,B5,CMBP045     GO IF INPUT IS TOO LONG               IRCP     7342
          SX2    X2-1RB            IS THIS A B-K INPUT                   IRCP     7343
          NZ     X2,CMBP049        GO IF NOT                             IRCP     7344
          RJ     CNVTOTB           CONVERT ADDRESS TO BINARY             IRCP     7345
          BX1    X4                GET VALUE FOR SEARCH                  IRCP     7346
          RJ     CMBPSRCH          GO LOOK FOR IT IN THE TABLE           IRCP     7347
          GE     B7,B0,CMBP045     REPORT ERR IF BKPT OF BKPT            IRCP     7348
          SA2    CMBPJMPG          GET P-REG                             IRCP     7349
          LX2    24                TO LOW ORDER                          IRCP     7350
          MX3    36                MASK                                  IRCP     7351
          BX2    -X3*X2            OFF JUNK                              IRCP     7352
          SX2    X2-1              POINT AT INSTRUCTION ADRS             IRCP     7353
          IX3    X2-X1             IS THIS WORD REFERENCED               IRCP     7354
          ZR     X3,CMBP045        REPORT ERROR IF YES                   IRCP     7355
          SA3    X1                GET INSTRUCTION WORD                  IRCP     7356
          BX4    X3                COPY IT                               IRCP     7357
          LX4    9                 GET FIRST 9 BITS                      IRCP     7358
          MX5    51                - MASK                                IRCP     7359
          BX7    -X5*X4            OFF JUNK                              IRCP     7360
          SX7    X7-013B           IS IT AN XJ/Q/                        IRCP     7361
          ZR     X7,CMBP002        GO IF ALREADY THERE                   IRCP     7362
*                                                                        IRCP     7363
*         CHECK INSTRUCTIONS FOR OP CODES OF 00 OR 01                    IRCP     7364
*                                                                        IRCP     7365
          MX7    54                MINUS 6 BIT MASK                      IRCP     7366
          SB4    4                 NUMBER OF QUARTER WORDS TO SHIFT      IRCP     7367
          LX4    57                SHIFT TO LOW ORDER                    IRCP     7368
CMBP055   BX5    -X7*X4            GET INSTRUCTION                       IRCP     7369
          SX6    X5-2              DOWN BY TWO                           IRCP     7370
          NG     X6,CMBP060        GO IF 00 OR 01                        IRCP     7371
          SB7    X5                INDEX                                 IRCP     7372
          SA5    CMBPITAB+B7       GET PARCEL COUNT                      IRCP     7373
          SB7    X5                INTO INDEX REGISTER                   IRCP     7374
CMBP057   LX4    15                SHIFT ONE PARCEL                      IRCP     7375
          SB4    B4-B1             DECREMENT COUNT OF PARCELS            IRCP     7376
          ZR     B4,CMBP070        GO IF DONE                            IRCP     7377
          SB7    B7-B1             DECREMENT LOCAL PARCEL COUNT          IRCP     7378
          GE     B7,B0,CMBP057     GO IF MORE TO DO                      IRCP     7379
          EQ     CMBP055           LOOP ON PARCELS                       IRCP     7380
*                                                                        IRCP     7381
*         ONLY ONE TIME ALLOWED FOR THIS B-K                             IRCP     7382
*                                                                        IRCP     7383
CMBP060   SA5    CMBPFLG           GET FLAG                              IRCP     7384
CMBP061   BX7    X1+X5             OR IN BIT                             IRCP     7385
          RJ     CMBPSLOT          FIND PLACE TO PUT IT                  IRCP     7386
          NG     B7,CMBP045        GO IF NONE                            IRCP     7387
          SA7    BRKTAB+B7         STORE ADRS                            IRCP     7388
          SA5    CMBPBRAK          GET BREAK-POINT INSTRUCTION           IRCP     7389
          BX6    X5                COPY IT                               IRCP     7390
          SA6    X7                STORE IN CM                           IRCP     7391
          BX6    X3                COPY OLD WORD                         IRCP     7392
          SA6    BRKTABA+B7        STORE IN TABLE                        IRCP     7393
          AX7    18                GET HOLD BIT                          IRCP     7394
          ZR     X7,CMBP002        EXIT WITH NO SINGLE-HOLD MSG          IRCP     7395
          SA1    CMBPERR2          ONCE ONLY MESSAGE                     IRCP     7396
          EQ     CMBP046           .                                     IRCP     7397
*                                                                        IRCP     7398
*         B-K WILL HOLD                                                  IRCP     7399
*                                                                        IRCP     7400
CMBP070   SX5    B0                ZERO FLAG                             IRCP     7401
          EQ     CMBP061           GO FIX THINGS                         IRCP     7402
*                                                                        IRCP     7403
*         EXECUTE INSTRUCTION AND RETURN TO PROGRAM                      IRCP     7404
*                                                                        IRCP     7405
CMBP030   BX6    X3                GET INSTRUCTION WORD                  IRCP     7406
          SA6    CMBP035           STORE IN INSTRUCTION                  IRCP     7407
          SA4    CMBPJMP           GET JUMP INSTRUCTION                  IRCP     7408
          IX6    X4+X1             ADRS OF NEXT INSTRUCTION OF PROGRAM   IRCP     7409
          LX6    30                POSITION IN WORK                      IRCP     7410
          SA6    CMBP036           STORE IN NEXT WORD                    IRCP     7411
          SX1    CMBP035           ADDS TO EXCHANGE TO                   IRCP     7412
          EQ     CMBP020           GO STORE IN JMPKG                     IRCP     7413
CMBP035   NO     0                 EXECUTE INSTRUCTIONS HERE             IRCP     7414
CMBP036   NO     0                 JUMP OUT TO CODE HERE                 IRCP     7415
CMBPJMP   VFD    30/0              POSITION AND FILL                     IRCP     7416
          JP     1                 EXIT INSTRUCTION                      IRCP     7417
          TITLE  EXCHANGE JUMP PACKAGE DISPLAY AREA                      IRCP     7418
CMBPEXJE  MSGLST                                                         IRCP     7419
          MSGTEXT  (P   $$$$$$$$ A0 $$$$$$ B0 $$$$$$)                    IRCP     7420
          MSGTEXT  (CRA $$$$$$$$ A1 $$$$$$ B1 $$$$$$)                    IRCP     7421
          MSGTEXT  (CFL $$$$$$$$ A2 $$$$$$ B2 $$$$$$)                    IRCP     7422
          MSGTEXT  (EM  $$$$$$$$ A3 $$$$$$ B3 $$$$$$)                    IRCP     7423
          MSGTEXT  (ERA $$$$$$$$ A4 $$$$$$ B4 $$$$$$)                    IRCP     7424
          MSGTEXT  (EFL $$$$$$$$ A5 $$$$$$ B5 $$$$$$)                    IRCP     7425
          MSGTEXT  (    $$$$$$$$ A6 $$$$$$ B6 $$$$$$)                    IRCP     7426
          MSGTEXT  (    $$$$$$$$ A7 $$$$$$ B7 $$$$$$)                    IRCP     7427
          MSGTEXT  (X0  $$$$$$$$$$$$$$$$$$$$)                            IRCP     7428
          MSGTEXT  (X1  $$$$$$$$$$$$$$$$$$$$)                            IRCP     7429
          MSGTEXT  (X2  $$$$$$$$$$$$$$$$$$$$)                            IRCP     7430
          MSGTEXT  (X3  $$$$$$$$$$$$$$$$$$$$)                            IRCP     7431
          MSGTEXT  (X4  $$$$$$$$$$$$$$$$$$$$)                            IRCP     7432
          MSGTEXT  (X5  $$$$$$$$$$$$$$$$$$$$)                            IRCP     7433
          MSGTEXT  (X6  $$$$$$$$$$$$$$$$$$$$)                            IRCP     7434
          MSGTEXT  (X7  $$$$$$$$$$$$$$$$$$$$)                            IRCP     7435
          ENDLST                                                         IRCP     7436
CMBPEXJD  BSSZ   32                STORE FOR OCTAL DISPLAY CODE          IRCP     7437
CMBPERR   QSTLST                                                         IRCP     7438
          POSTXT 0,18                                                    IRCP     7439
CMBPERRA  QSTEXT (                    )                                  IRCP     7440
          ENDLST                                                         IRCP     7441
CMBPCDIS  MSGLST  LEFT                                                   IRCP     7442
CMBPCWD   MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7443
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7444
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7445
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7446
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7447
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7448
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7449
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7450
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7451
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7452
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7453
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7454
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7455
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7456
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7457
          MSGTEXT  (XXXXXX  XXXXXXXXXXXXXXXXXXXX)                        IRCP     7458
CMBPECHD  MSGTEXT   (ECS-(ERR) )                                         GHKECDBG   32
CMBPXWD   MSGTEXT   (XXXXXXXX  XXXXXXXXXXXXXXXXXXXX)                     GHKECDBG   33
          ENDLST                                                         IRCP     7459
CMBPERR1  DATA   L*BK-PT INPUT ERROR. *                                  IRCP     7460
CMBPERR2  DATA   L*BK-PT WILL NOT HOLD*                                  IRCP     7461
*                                                                        IRCP     7462
*         EXCHANGE JUMP PACKAGE                                          IRCP     7463
*                                                                        IRCP     7464
CMBPQR    BSS    0                                                       IRCP     7465
          ORG    CMBPQ             POSITION                              IRCP     7466
CMBPJMPG  VFD    24/BRKPNT,36/0    P ADRS                                IRCP     7467
          DATA   1                 B1 REGISTER                           IRCP     7468
          VFD    24/400000B                                              IRCP     7469
          BSSZ      2                                                    GHKECDBG   34
          VFD    18/-0,42/0        ECS FL                                GHKECDBG   35
          BSSZ      10                                                   GHKECDBG   36
          ORG    CMBPQR            REPOSITION                            IRCP     7471
CMBPBLNK  DATA   55555555555555555555B                                   IRCP     7472
CMBPFLG   DATA   1000000B                                                IRCP     7473
CMBPBRAK  XJ     *                                                       IRCP     7474
CMBPMSK1  DATA   7777777777770000B                                       IRCP     7475
BRKTAB    BSSZ   40                                                      IRCP     7476
          DATA   -1                END OF TABLE                          IRCP     7477
BRKTABA   BSSZ   40                                                      IRCP     7478
          DATA   -1                END OF TABLE                          IRCP     7479
CMBPADRS  VFD    60/CMBPJMPG                                             IRCP     7480
CMBPECAD  BSSZ      1                                                    GHKECDBG   37
CMBPECWD  BSSZ      1                                                    GHKECDBG   38
CMBPECOK  DATA      10HECS-                                              GHKECDBG   39
CMBPECER  DATA      10HECS-(ERR)                                         GHKECDBG   40
          TITLE  SEARCH BREAK POINT TABLE                                IRCP     7481
*                                                                        IRCP     7482
*         RJ     CMBPSRCH - FIND ADDRESS EQUAL TO X1                     IRCP     7483
*         RJ     CMBPSLOT - FIND EMPTY SLOT                              IRCP     7484
*                                                                        IRCP     7485
*         INDEX OF ENTRY (OR SLOT) IS RETURNED IN B7 (-1 IF NOTHING)     IRCP     7486
*         CONTENTS OF FIRST WORD IS IN X2, SECOND WORD IN X3             IRCP     7487
*                                                                        IRCP     7488
CMBPSLOT  DATA   0                 ENTRY/EXIT                            IRCP     7489
          SA1    CMBPSLOT          GET ENTRY WORD                        IRCP     7490
          BX6    X1                COPY                                  IRCP     7491
          SA6    CMBPSRCH          STORE IN PRIMARY ENTRY                IRCP     7492
          SX1    B0                ZERO ADDS                             IRCP     7493
          EQ     CMBPS01           GO TO COMMON ENTRY                    IRCP     7494
CMBPSRCH  DATA   0                 ENTRY/EXIT                            IRCP     7495
CMBPS01   SB7    B0                SET INITIAL INDEX                     IRCP     7496
CMBPS02   SA2    BRKTAB+B7         GET SLOT ENTRY                        IRCP     7497
          ZR     X1,CMBPS04        GO IF EMPTY SLOT WANTED               IRCP     7498
          ZR     X2,CMBPS04A       GO IF THIS SLOT EMPTY                 IRCP     7499
          NG     X2,CMBPS06        GO IF END OF THE TABLE                IRCP     7500
          SB2    X2                CHECK ENTRY VALUE                     IRCP     7501
          SB3    X1                AGAINST DESIRED VALUE                 IRCP     7502
          NE     B2,B3,CMBPS05     GO IF NOT OKAY                        IRCP     7503
CMBPS03   SA3    BRKTABA+B7        GET SECOND WORD                       IRCP     7504
          EQ     CMBPSRCH          AND EXIT                              IRCP     7505
CMBPS04   ZR     X2,CMBPSRCH       EXIT IF EMPTY SLOT                    IRCP     7506
CMBPS04A  NG     X2,CMBPS06        GO IF END OF TABLE                    IRCP     7507
CMBPS05   SB7    B7+B1             INCREMENT INDEX COUNTER               IRCP     7508
          EQ     CMBPS02           LOOP ON TABLE                         IRCP     7509
CMBPS06   SB7    -B1               NOTHING FOUND FLAG                    IRCP     7510
          EQ     CMBPSRCH          AND EXIT                              IRCP     7511
          TITLE  INSTRUCTION LENGTH DEFINITION TABLE                     IRCP     7512
*                                                                        IRCP     7513
*         THE FOLLOWING MACRO IS USED TO DEFINE THE LENGTH OF AN         IRCP     7514
*         INSTRUCTION.                                                   IRCP     7515
          MACRO  ITYPE,NAME,LTH                                          IRCP     7516
+         VFD    60/LTH            .                                     IRCP     7517
ITYPE     ENDM                                                           IRCP     7518
L15       EQU    0                 15 BIT CODE                           IRCP     7519
L30       EQU    1                 30 BIT CODE                           IRCP     7520
*                                                                        IRCP     7521
*         TABLE OF INSTRUCTIONS                                          IRCP     7522
*                                                                        IRCP     7523
CMBPITAB  BSS    0                                                       IRCP     7524
*                                                                        IRCP     7525
PS        ITYPE  L30               0000                                  IRCP     7526
RJ        ITYPE  L30               0100                                  IRCP     7527
*RE       ITYPE  L30               011J                                  IRCP     7528
*WE       ITYPE  L30               012J                                  IRCP     7529
*XJ       ITYPE  L30               0130                                  IRCP     7530
JP        ITYPE  L30               020J                                  IRCP     7531
ZR        ITYPE  L30               030J                                  IRCP     7532
*NZ       ITYPE  L30               031J                                  IRCP     7533
*PL       ITYPE  L30               032J                                  IRCP     7534
*NG       ITYPE  L30               033J                                  IRCP     7535
*IR       ITYPE  L30               034J                                  IRCP     7536
*OR       ITYPE  L30               035J                                  IRCP     7537
*DF       ITYPE  L30               036J                                  IRCP     7538
*ID       ITYPE  L30               037J                                  IRCP     7539
ZR        ITYPE  L30               04I0                                  IRCP     7540
*EQ       ITYPE  L30               04IJ                                  IRCP     7541
NZ        ITYPE  L30               05I0                                  IRCP     7542
*NE       ITYPE  L30               05IJ                                  IRCP     7543
PL        ITYPE  L30               06I0                                  IRCP     7544
*GE       ITYPE  L30               06IJ                                  IRCP     7545
*LE       ITYPE  L30               060J                                  IRCP     7546
NG        ITYPE  L30               07I0                                  IRCP     7547
*LT       ITYPE  L30               07IJ                                  IRCP     7548
*GT       ITYPE  L30               070J                                  IRCP     7549
BXI       ITYPE  L15               10   XJ                               IRCP     7550
BXI       ITYPE  L15               11   *                                IRCP     7551
BXI       ITYPE  L15               12   +                                IRCP     7552
BXI       ITYPE  L15               13   -                                IRCP     7553
BXI       ITYPE  L15               14   -XJ                              IRCP     7554
BXI       ITYPE  L15               15   -*                               IRCP     7555
BXI       ITYPE  L15               16   -+                               IRCP     7556
BXI       ITYPE  L15               17   --                               IRCP     7557
LXI       ITYPE  L15               20                                    IRCP     7558
AXI       ITYPE  L15               21                                    IRCP     7559
LXI       ITYPE  L15               22                                    IRCP     7560
AXI       ITYPE  L15               23                                    IRCP     7561
NXI       ITYPE  L15               24                                    IRCP     7562
ZXI       ITYPE  L15               25                                    IRCP     7563
UXI       ITYPE  L15               26                                    IRCP     7564
PXI       ITYPE  L15               27                                    IRCP     7565
FXI       ITYPE  L15               30                                    IRCP     7566
FXI       ITYPE  L15               31                                    IRCP     7567
DXI       ITYPE  L15               32                                    IRCP     7568
DXI       ITYPE  L15               33                                    IRCP     7569
RXI       ITYPE  L15               34                                    IRCP     7570
RXI       ITYPE  L15               35                                    IRCP     7571
IXI       ITYPE  L15               36                                    IRCP     7572
IXI       ITYPE  L15               37                                    IRCP     7573
FXI       ITYPE  L15               40                                    IRCP     7574
RXI       ITYPE  L15               41                                    IRCP     7575
DXI       ITYPE  L15               42                                    IRCP     7576
MXI       ITYPE  L15               43                                    IRCP     7577
FXI       ITYPE  L15               44                                    IRCP     7578
RXI       ITYPE  L15               45                                    IRCP     7579
NO        ITYPE  L15               46                                    IRCP     7580
CXI       ITYPE  L15               47                                    IRCP     7581
SAI       ITYPE  L30               50                                    IRCP     7582
SAI       ITYPE  L30               51                                    IRCP     7583
SAI       ITYPE  L30               52                                    IRCP     7584
SAI       ITYPE  L15               53                                    IRCP     7585
SAI       ITYPE  L15               54                                    IRCP     7586
SAI       ITYPE  L15               55                                    IRCP     7587
SAI       ITYPE  L15               56                                    IRCP     7588
SAI       ITYPE  L15               57                                    IRCP     7589
SBI       ITYPE  L30               60                                    IRCP     7590
SBI       ITYPE  L30               61                                    IRCP     7591
SBI       ITYPE  L30               62                                    IRCP     7592
SBI       ITYPE  L15               63                                    IRCP     7593
SBI       ITYPE  L15               64                                    IRCP     7594
SBI       ITYPE  L15               65                                    IRCP     7595
SBI       ITYPE  L15               66                                    IRCP     7596
SBI       ITYPE  L15               67                                    IRCP     7597
SXI       ITYPE  L30               70                                    IRCP     7598
SXI       ITYPE  L30               71                                    IRCP     7599
SXI       ITYPE  L30               72                                    IRCP     7600
SXI       ITYPE  L15               73                                    IRCP     7601
SXI       ITYPE  L15               74                                    IRCP     7602
SXI       ITYPE  L15               75                                    IRCP     7603
SXI       ITYPE  L15               76                                    IRCP     7604
SXI       ITYPE  L15               77                                    IRCP     7605
BPT       ENDIF                                                          IRCP     7606
          SPACE     3                                                    GHKCPL2   892
**        AT LEAST MAKE AN EFFORT AT CHECKING SIZE RESTRICTIONS          GHKCPL2   893
*                                                                        GHKCPL2   894
          IFGT      *,BASE,1                                             GHKCPL2   895
          ERR       IRCP IS TOO BIG - CHANGE IRADR  (IN DSLCOM)          GHKCPL2   896
          END                                                            IRCP     7607
+         SA1    X6                SAVE (LWA OF CM)                      IRCP      239
          SA7    X6                STORE 4000B AT 377777B                IRCP      240
          AX7    1                                                       IRCP      241
          SA7    X5                STORE 2000B AT 177777B                IRCP      242
          AX7    1                                                       IRCP      243
          SA7    X4                STORE 1000B AT 77777B                 IRCP      244
          SA2    X6                GET LARGEST VALUE STORED              IRCP      245
          BX7    X2                AT LWA OF CM                          IRCP      246
          IFNE   IP.ECNOM,0,3                                            IRCP      247
          IFNE   E.PREL,0,2                                              IRCP      248
          SA7    MACSIZ            SAVE REAL SUZE                        IRCP      249
          SX7    1000B             SET DUMMY SIZE                        IRCP      250
          SA2    W.CPSTAT                                                IRCP      251
          MX5    48                                                      IRCP      252
          BX3    X6                                                      IRCP      253
          BX4    X5*X2                                                   IRCP      254
          IX6    X4+X7                                                   IRCP      255
          SA6    A2                STORE MEMORY SIZE/100B IN CMR         IRCP      256
          LX7    6                                                       IRCP      257
          BX6    X1                                                      IRCP      258
          SA7    MEMSIZE           SAVE MEMORY SIZE                      IRCP      259
          SA6    X3                RESTORE LWA OF CM                     IRCP      260
          RJ       ECSIZE                                                HS2IRCP     1
          EQ       EC2                                                   HS2IRCP     2
          SPACE    3                                                     HS2IRCP     3
*                                                                        HS2IRCP     4
**        ECSIZE -- FIND SIZE OF ECS AND SET IN W.CPECS                  HS2IRCP     5
*                                                                        HS2IRCP     6
 ECSIZE   EQ       *-*                                                   HS2IRCP     7
          SA0    ECBUF             DETERMINE SIZE OF ECS                 IRCP      269
          MX1    1                                                       IRCP      270
          LX1    23                X1=20,000,000B                        IRCP      271
          MX2    1                                                       IRCP      272
          LX2    18                X2=400,000B                           IRCP      273
LPEC      AX1    1                 DIVIDE BY 2                           IRCP      274
          IX0    X1-X2             SUBTRACT ECS BANK SIZE                IRCP      275
          NG   X0,EC1              FINISHED                              IRCP      276
          RE     1                 READ FIRST WORD IN BANK               IRCP      277
          WE     1                 WRITE IT BACK                         IRCP      278
          EQ   LPEC                LOOP                                  IRCP      279
EC1       AX1    17                DIVIDE BY 400,000B                    IRCP      280
          SX2    X1                N                                     IRCP      281
          BX3      X1              X3 = NUMBER OF BANKS OF ECS           HS2IRCQ     5
          LX1    7                 N*128                                 IRCP      282
          IX1    X1-X2             N*128-N=N*127                         IRCP      283
          LX2    2                 N*4                                   IRCP      284
          IX7    X1-X2             N*128-N*4=N*123                       IRCP      285
          LX7    1                 N*246                                 IRCP      286
*                                                                        IRCP      287
*         X7 NOW CONTAINS THE SIZE OF ECS/1000B WHICH IS GUARANTEED      IRCP      288
*         WORKABLE BY CDC. MORE MAY ACTUALLY BE ATTACHED AND USABLE.     IRCP      289
*         IF YOU DONT LIKE SOFTWARE DEGRADATION, SET X7 WITH THE PROPER  IRCP      290
*         VALUE AND DELETE THE ABOVE CODE.                               IRCP      291
*                                                                        IRCP      292
          LX3      3+12                                                  HS2IRCQ     6
          SX6      X3-10000B       (N.BANK*8-1) * 10000B                 HS2IRCQ     7
          BX6      X6+X7                                                 HS2IRCQ     8
          LX6      36                                                    HS2IRCQ     9
*         NOW X6 = 12/CHECKSUM BLOCK SIZE,12/ACTUAL ECS/1000B, 36/0      HS2IRCQ    10
          SA6      T.ECSPAR                                              HS2IRCQ    11
          SX1      37B              ALWAY 36600B WORDSA E USED FOR CHECK HS2IRCQ    12
          IX7      X7-X1           DONT LET ANYBODY NNOW ABOUT THESE WRO HS2IRCQ    13
          L        X7,4,C.CPECFL   POSTION                               HS2IRCP     8
          SA7      W.CPECS         AND SOTER ECS MACHINE FL              HS2IRCP     9
          SA1      P.ECST                                                HS2IRCP    10
          MX0      48              GET ADDRESS OF PARTITION TABLE        HS2IRCP    11
          L        X1,C.ECST,4                                           HS2IRCP    12
          BX1      -X0*X1                                                HS2IRCP    13
          LX1      3                                                     HS2IRCP    14
          SA1      X1+W.ECLIB      GET LIBRARY PARTIT. ENTRY             HS2IRCP    15
          MX0      36                                                    HS2IRCP    16
          BX1      -X0*X1          GET LIB FWA                           HS2IRCP    17
          LX7      9                                                     HS2IRCP    18
          IX7      X7-X1           ROOM AVAILABLE FOR LIBRARY            HS2IRCP    19
          SA7      MAXECLIB        ASAVE MAXIMUNM LEGNTH                 HS2IRCP    20
          EQ       ECSIZE                                                HS2IRCP    21
          SPACE    3                                                     HS2IRCP    22
 EC2      BSS      0                                                     HS2IRCP    23
                                                                         IRCP      301
*         SAVE EST ORDINALS OF SYSTEM DEVICES                            IRCP      302
                                                                         IRCP      303
          SB2    MSYSDEV-1         MAXIMUM NUMBER OF SYS. DEVICES - 1    IRCP      304
          MX6    0                                                       IRCP      305
IRCP2     SA1    B2+CEDARGS+1                                            IRCP      306
          BX6    X6+X1                                                   IRCP      307
          LX6    48                                                      IRCP      308
          SB2    B2-B1                                                   IRCP      309
          PL   B2,IRCP2                                                  IRCP      310
          MX0    48                                                      IRCP      311
          SA6    DEVICES                                                 IRCP      312
          IFNE   XOPTION,0                                               IRCP      313
                                                                         IRCP      314
*         GO TO DEBUGGING ROUTINE, IF REQUESTED  (X OPTION)              IRCP      320
                                                                         IRCP      321
          SA1    CEDARGS                                                 IRCP      322
          MX0    48                                                      IRCP      323
          BX1    -X0*X1                                                  IRCP      324
          SX1    X1-3              OPTION 3 IS FOR DEBUG                 IRCP      325
          ZR   X1,DEBUG                                                  IRCP      326
          ENDIF                                                          IRCP      327
                                                                         IRCP      328
*         SET ALL RBR BITS FOR NON-EXISTENT RECORD BLOCKS                IRCP      329
                                                                         IRCP      330
          S      A1,P.RQS          GET FWA OF DST  (LWA+1 OF RBR AREA)   IRCP      331
          MX0    48                                                      IRCP      332
          BX1    -X0*X1                                                  IRCP      333
          LX1    3                                                       IRCP      334
          SB7    X1+B1                                                   IRCP      335
                                                                         IRCP      336
*         THE ABOVE ASSUMES THAT THE DST (REQUEST STACK) AREA FOLLOWS    IRCP      337
*         IMMEDIATELY AFTER THE RBR AREA.  IF NOT, THIS CODE MUST        IRCP      338
*         BE CHANGED.                                                    IRCP      339
                                                                         IRCP      340
          SB6    RBRLTH            LENGTH OF AN RBR TABLE                IRCP      341
          S      A2,P.RBR                                                IRCP      342
          SHIFT  X2,C.RBRAD+1                                            IRCP      343
          SB5    X2                FWA OF RBR TABLES                     IRCP      344
          SB3    B0                INITIALIZE RBR COUNT                  IRCP      345
IRCP4     SA4    B5                CHECK DEVICE TYPE FIELD               IRCP      346
          MX2    6                                                       IRCP      347
          SA3    B5+B1             GET 2ND WORD OF HEADER                IRCP      348
          BX4    X2*X4                                                   IRCP      349
          ZR   X4,IRCP6            JUMP IF THIS RBR NOT BEING USED       IRCP      350
          SB3    B3+B1             BUMP RBR COUNT                        IRCP      351
          MX0    48                                                      IRCP      352
          SB2    2048              MAXIMUM POSSIBLE NUMBER OF RBS        IRCP      353
          LX3    12                                                      IRCP      354
          SX5    7777B+2           MAXIMUM POSSIBLE RB NUMBER+2          IRCP      355
          BX4    -X0*X3                                                  IRCP      356
          SB4    X4                NUMBER OF RBS ON DEVICE               IRCP      357
          SB2    B2-B4             NUMBER OF UNUSED RBS                  IRCP      358
          SX7    B5                SET RBR ADDRESS                       IRCP      359
          SA7    RBRADR                                                  IRCP      360
IRCP5     ZR   B2,IRCP6            JUMP IF ALL BITS SET                  IRCP      361
          SX5    X5-2              DECREMENT TO NEXT LOWER RB            IRCP      362
          SB2    B2-B1             REDUCE RB COUNT                       IRCP      363
          BX1    X5                RB NUMBER TO SET                      IRCP      364
          RJ   FINDBIT             GO GET POSITION AND ADDRESS IN TABLE  IRCP      365
          BX6    X1+X3             ADD BIT TO RBR                        IRCP      366
          SA6    A3                STORE                                 IRCP      367
          EQ   IRCP5               LOOP                                  IRCP      368
                                                                         IRCP      369
IRCP6     SB5    B5+B6             ADVANCE TO ADDRESS OF NEXT RBR        IRCP      370
          SB2    B5+B6             CHECK IF ROOM FOR ANOTHER             IRCP      371
          LT   B2,B7,IRCP4         LOOP IF MORE RBRS                     IRCP      372
          SX7    B3                SAVE NUMBER OF RBRS                   IRCP      373
          SA7    NRBR                                                    IRCP      374
          MX7    0                                                       IRCP      375
                                                                         IRCP      376
*         SAVE RBTS FOR RECOVERY                                         IRCP      377
                                                                         IRCP      378
          SA1    TABLESAV+P.RBT                                          IRCP      379
          BX7    X1                SAVE P.RBT                            SC20102    32
          AX1    12                                                      IRCP      380
          MX0    48                                                      IRCP      381
          BX1    -X0*X1            (RBT LENGTH)/100B                     IRCP      382
          SA2    MEMSIZE                                                 SC20102    33
          BX7    -X0*X7            SAVED MACHINE FL/100B                 SC20102    34
          SX3    TABLESAV                                                SC20102    35
          SX4    CMRSIZE                                                 SC20102    36
          LX1    6                 RBT LENGTH                            SC20102    37
          IX5    X3+X4             S1 = TABLESAV + CMRSIZE               SC20102    38
          LX7    6                 SAVED MACHINE FL                      SC20102    39
          IX6    X2-X5             S2 = MEMSIZE - S1                     SC20102    40
          AX6    1                 S3 = S2/2 = RBTMAX                    SC20102    41
          IX3    X7-X2             TEST SAVED MEMORY SIZE CORRECT        SC20102    42
          NZ   X3,IRCP6D           DON-T TRUST SAVED RBT LENGTH          SC20102    43
          ZR   X1,IRCP6D           NEVER USE ZERO FOR RBT LENGTH         SC20102    44
          IX7    X1-X6                                                   SC20102    45
          MI   X7,IRCP6C           JUMP IF RBT LENGTH SMALL ENOUGH       SC20102    46
IRCP6D    BX1    X6                RBT LENGTH = RBTMAX                   SC20102    47
IRCP6C    IX6    X5+X1             RBTSAVE = S1 + RBT LENGTH             SC20102    48
          SA3    X2                INITIALIXE FETCH ADDRESS              SC20102    49
          MX7    0                                                       SC20102    50
          SA6    RBTSAVE                                                 SC20102    51
          SA7    X6                INITIALIZE STORE ADDRESS              SC20102    52
          SB4    X1                RBT LENGTH                            IRCP      389
          S        A1,P.LIB                                              DMD30588   13
          LX1      59-12           GET RBT-SAVED FLAG                    DMD30588   14
          MI       X1,IRCP6B       IF RBT-S ALREADY HAVE BEEN SAVED      DMD30588   15
IRCP6A    SA3    A3-B1             SAVE A WORD OF RBTS                   IRCP      390
          SB4    B4-B1                                                   IRCP      391
          BX7    X3                                                      IRCP      392
          SA7    A7-B1                                                   IRCP      393
          GE   B4,B1,IRCP6A        LOOP                                  IRCP      394
          S        A1,P.LIB                                              DMD30588   16
          SX7      10000B                                                DMD30588   17
          BX7      X7+X1           SET RBT-SAVED FLAG                    DMD30588   18
          SA7      A1                                                    DMD30588   19
                                                                         IRCP      395
 ECSETUP  EQ       *-*                                                   HS2IRCQ    43
          SA0      TBUF0                                                 HS2IRCQ    44
          MX6      0                                                     HS2IRCQ    45
          SB7      77B                                                   HS2IRCQ    46
 ECS1     SA6      A0+B7           MAKE A LARGE BLOCK OF ZERO-S          HS2IRCQ    47
          SB7      B7-B1                                                 HS2IRCQ    48
          GE       B7,B0,ECS1                                            HS2IRCQ    49
          SPACE    1                                                     HS2IRCQ    50
          SX0      B0                                                    HS2IRCQ    51
          SX1      100B            INCREMENT                             HS2IRCQ    52
 ECS2     WE       100B            ZERO 100 WORDS                        HS2IRCQ    53
 -        EQ       ECS3            EXIT WHEN ECS ENDS                    HS2IRCQ    54
          IX0      X0+X1           BUMP ECS ADDRESS AND GO ZERO NEXT BLK HS2IRCQ    55
          EQ       ECS2                                                  HS2IRCQ    56
          SPACE    3                                                     HS2IRCQ    57
 ECS3     SA1      T.ECSPAR                                              HS2IRCQ    58
          LX1      6               EXTRCT BNAK*8-1  (BIT 48-53)          HS2IRCQ    59
          AX1      54                                                    HS2IRCQ    60
          SX1      X1-10B                                                HS2IRCQ    61
          PL       X1,ECFULL       JUMP IF ALL ECS ON                    HS2IRCQ    62
 ECS4     OPCOM    O,(RTITLE,EC2M,EC2MO)                                 HS2IRCQ    63
          ZR       X1,ECS4                                               HS2IRCQ    64
          SX6      X1-1                                                  HS2IRCQ    65
          SA5      =10HECS BANK 0                                        HS2IRCQ    66
          SB2      B1              GO WRITE THE FRIST WORD               HS2IRCQ    67
          EQ       ECS5                                                  HS2IRCQ    68
 ECFULL   SX6      B1                                                    HS2IRCQ    69
          SA5      =10HECS BANK 0                                        HS2IRCQ    70
          IX6      X6+X5           EC BANK 1                             HS2IRCQ    71
          SA6      TBUF0+8                                               HS2IRCQ    72
          SX6      B0                                                    HS2IRCQ    73
          SB2      9               WRITE OUT WORD 0 AND 8 (AND U-7)      HS2IRCQ    74
 ECS5     SA1      T.ECSPAR        SET BANK OFFSET INTO ECS PARAMTER WRO HS2IRCQ    75
          LX1      6                                                     HS2IRCQ    76
          IX7      X1+X6           ADD IN BANK                           HS2IRCQ    77
          LX7      54              REPOSITION                            HS2IRCQ    78
          SA7      A1                                                    HS2IRCQ    79
          IX6      X6+X5                                                 HS2IRCQ    80
          SA6      TBUF0                                                 HS2IRCQ    81
          SB4      A6              WRITE STUFF IN ECS POINTER ARED       HS2IRCQ    82
          SX1      B0                                                    HS2IRCQ    83
          RJ       ECSWR           WRITE THE HEADER DOEP                 HS2IRCQ    84
          SPACE     3                                                    GHKCPL2    29
**        NOW SET UP THE FNT LIST EMPTY CHAIN                            GHKCPL2    30
*                                                                        GHKCPL2    31
          RJ        INITFNTL       INITIALIZA THE FNT LISTS              GHKCPL2    32
          SPACE    1                                                     HS2IRCQ    85
          EQ       ECSETUP                                               HS2IRCQ    86
ECS       IFNE   IP.ECNOM,0                                              IRCP     2038
          TITLE                   BNL ECS MODS                           IRCP     2039
*                                                                        IRCP     2040
*         LOCAL MACROS FOR BNL ECS MODS                                  IRCP     2041
*                                                                        IRCP     2042
          MACRO  TEST,THIS,NEXT                                          IRCP     2043
THIS      TESTA  NEXT,(.)                                                IRCP     2044
          ENDM                                                           IRCP     2045
          SPACE  2                                                       IRCP     2046
          MACRO  TESTA,THIS,NEXT,SEP                                     IRCP     2047
          LOCAL  TSTWD,C,MIC                                             IRCP     2048
C         SET    1                                                       IRCP     2049
          DUP    100                                                     IRCP     2050
C         SET    C+1                                                     IRCP     2051
MIC       MICRO  C,,*THIS*                                               IRCP     2052
          IFC    EQ,$"MIC"$$,1                                           IRCP     2053
          STOPDUP                                                        IRCP     2054
          ENDD                                                           IRCP     2055
TSTWD     DATA   R$THIS_SEP$                                             IRCP     2056
THIS      SA2    TSTWD                                                   IRCP     2057
          SB7    60-6*C                                                  IRCP     2058
          AX4    X1,B7                                                   IRCP     2059
          BX3    X4-X2                                                   IRCP     2060
          NZ   X3,NEXT                                                   IRCP     2061
          ENDM                                                           IRCP     2062
          SPACE  2                                                       IRCP     2063
DISP      MACRO  MES,BUF                                                 IRCP     2064
          SB2    MES               THIS MOVES A MESSAGE STARTING         IRCP     2065
          SB3    BUF+1             IN MES INTO THE BUFFER                IRCP     2066
          SB4    L_BUF-1           AND INCREMENTS THE                    IRCP     2067
          RJ   MTZ                 BUFFER CONTROL WORD                   IRCP     2068
          SA1    B3-B1                                                   IRCP     2069
          SX6    X1+B1                                                   IRCP     2070
          SA6    A1                                                      IRCP     2071
          ENDM                                                           IRCP     2072
          SPACE  2                                                       IRCP     2073
IXX/X     OPDEF  P3,P1,P2                                                IRCP     2074
          PX.P1  X.P1                                                    IRCP     2075
          PX.P2  X.P2                                                    IRCP     2076
          NX.P2  X.P2                                                    IRCP     2077
          FX.P3  X.P1/X.P2                                               IRCP     2078
          UX.P3  X.P3,B7                                                 IRCP     2079
          LX.P3  X.P3,B7                                                 IRCP     2080
          ENDM                                                           IRCP     2081
          SPACE  4                                                       IRCP     2082
*                                                                        IRCP     2083
*         BEGINNING OF CODE                                              IRCP     2084
*                                                                        IRCP     2085
SETECS    PS                                                             IRCP     2086
          MX0    48                                                      IRCP     2087
          SA1    P.ECST            FETCH ECS TABLE POINTER               IRCP     2088
SFT       SET    C.ECST+1                                                IRCP     2089
          IFNE   SFT,5,1                                                 IRCP     2090
          LX1    12*SFT                                                  IRCP     2091
          BX6    -X0*X1                                                  IRCP     2092
SFT       SET    C.ICEBUF+1-SFT                                          IRCP     2093
          IFLT   SFT,0,1                                                 IRCP     2094
SFT       SET    SFT+5                                                   IRCP     2095
          IFNE   SFT,0,1                                                 IRCP     2096
          LX1    12*SFT                                                  IRCP     2097
          BX7    -X0*X1                                                  IRCP     2098
          LX6    3                 MULTIPLY BY 10B                       IRCP     2099
          SA6    TECST             SAVE T.ECST POINTER                   IRCP     2100
          LX7    3                 MULTIPLY BY 10B                       IRCP     2101
          SA7    TICEBUF           SAVE T.ICEBUF POINTER                 IRCP     2102
          SB1    1                 CONSTANT 1 TILL THE END               IRCP     2103
          RJ   CPAR                CONVERT INITIAL PARAMS                IRCP     2104
          SA1    P.RBR                                                   IRCP     2105
          LX1    24                                                      IRCP     2106
          SB2    X1                (T.RBR)                               IRCP     2107
          SA1    NRBR                                                    IRCP     2108
          SB3    X1                                                      IRCP     2109
INA       SA1    B2                SCAN                                  IRCP     2110
          AX1    54                RBR-S                                 IRCP     2111
          SX2    X1-20B            FOR                                   IRCP     2112
          ZR   X2,INB              ECS                                   IRCP     2113
          SB2    B2+RBRLTH         ENTRY                                 IRCP     2114
          ZR   X1,INA                                                    IRCP     2115
          SB3    B3-B1                                                   IRCP     2116
          NZ   B3,INA                                                    IRCP     2117
          SB2    -1                SET -NO RBR- FLAG FOR ECS             IRCP     2118
          EQ   INB                                                       IRCP     2119
INMS2     DATA   C$ECS EST BAD,CANNOT CONTINUE$                          IRCP     2120
PRBR      BSSZ   1                                                       IRCP     2121
PEST      BSSZ   1                                                       IRCP     2122
TECST     BSSZ   1                                                       IRCP     2123
TICEBUF   BSSZ   1                                                       IRCP     2124
MACSIZ    BSSZ   1                                                       IRCP     2125
*                                                                        IRCP     2126
INB       SX7    B2                                                      IRCP     2127
          SA7    PRBR              SET POINTER                           IRCP     2128
          NG   B2,INITX            NO RBR, DONT LOOK FOR EST             IRCP     2129
          SA1    B2+B1                                                   IRCP     2130
          MX0    54                                                      IRCP     2131
          LX1    24                                                      IRCP     2132
          BX2    -X0*X1                                                  IRCP     2133
          SB2    X2                SAVE EST ORDINAL                      IRCP     2134
          MX1    12                                                      IRCP     2135
          SA3    P.EST                                                   IRCP     2136
          LX1    12                                                      IRCP     2137
          LX3    12                                                      IRCP     2138
          BX3    X3*X1                                                   IRCP     2139
          SA3    B2+X3             FETCH EST ENTRY                       IRCP     2140
          AX1    1                                                       IRCP     2141
          AX3    12                                                      IRCP     2142
          BX3    X3*X1                                                   IRCP     2143
          SX6    A3                                                      IRCP     2144
          SA6    PEST              SAVE EST ADDRESS                      IRCP     2145
          SX2    X3-2RAX                                                 IRCP     2146
          ZR   X2,INITX                                                  IRCP     2147
          DISP   INMS2,QBUF        INVALID EST ENTRY                     IRCP     2152
          BSSZ   1                 DIE                                   IRCP     2153
*                                                                        IRCP     2154
INITX     DISP   ZERO,MESBF                                              IRCP     2155
INITXA    DISP   ASK,QBUF                                                IRCP     2156
MONKA     MX6    0                 ALLOW KEYBOARD                        IRCP     2157
          SA6    KEYIN             MESSAGES                              IRCP     2158
*                                                                        IRCP     2159
*         INITIALIZATION IS FINISHED, NOW SIT MONITORING KEYIN           IRCP     2160
*                                                                        IRCP     2161
          SA5    CEDARGS                                                 IRCP     2162
          MX0    48                                                      IRCP     2163
          LX5    24                                                      IRCP     2164
          BX5    -X0*X5                                                  IRCP     2165
          NZ   X5,OFF1             JMP ECS OFF                           IRCP     2166
MONKB     SA1    KEYIN                                                   IRCP     2167
          NZ   X1,CLEAR                                                  IRCP     2168
          DUP    6,1                                                     IRCP     2169
          FX1    X2*X3             GIVE THINGS SOME REST                 IRCP     2170
          EQ   MONKB                                                     IRCP     2171
*                                                                        IRCP     2172
ASK       DATA   C$TELL ME ABOUT ECS$                                    IRCP     2173
ZERO      DATA   0                                                       IRCP     2174
*                                                                        IRCP     2175
CLEAR     MX6    0                                                       IRCP     2176
          SA5    MESBF             CLEAR ANY PRIOR                       IRCP     2177
          SX7    X5+1              MESSAGE                               IRCP     2178
          SA6    MESBF+1                                                 IRCP     2179
          SA7    A5                                                      IRCP     2180
          SA1    KEYIN+1           GET FIRST WORD OF ENTRY               IRCP     2181
          EQ   OFF                                                       IRCP     2182
*                                                                        IRCP     2183
*         TEST FOR -OFF- ENTRY AND PROCESS IT                            IRCP     2184
*                                                                        IRCP     2185
OFF       TEST   NONSTD            NONSTD IS NEXT TO TRY                 IRCP     2186
OFF1      SA1    PEST                                                    IRCP     2187
          MX0    1                                                       IRCP     2188
          SA2    X1                                                      IRCP     2189
          SA4    PRBR                                                    IRCP     2190
          NG   X4,OFF2             BYPASS, NO RBR                        IRCP     2191
          SA3    OMASK                                                   IRCP     2192
          LX0    24                                                      IRCP     2193
          SA5    X4+B1                                                   IRCP     2194
          BX6    X0+X2             SET OFF BIT IN EST                    IRCP     2195
          BX7    X3*X5             ZERO AVAILABILITIES IN RBR            IRCP     2196
          SA6    A2                                                      IRCP     2197
          SA7    A5                                                      IRCP     2198
          SB6    A5+B1             SET LIMITS FOR                        IRCP     2199
          SB7    X4+37             FILLING UP RBR                        IRCP     2200
          IX7    X7-X7                                                   IRCP     2201
          BX6    -X7                                                     IRCP     2202
+         SA6    B6                FILL UP RBR                           IRCP     2203
          SB6    B6+B1                                                   IRCP     2204
          GE   B7,B6,*                                                   IRCP     2205
OFF2      MX1    48                                                      IRCP     2206
          SA2    P.LECST                                                 IRCP     2207
SFT       SET    C.ECST+1                                                IRCP     2208
          IFNE   SFT,5,1                                                 IRCP     2209
          LX2    12*SFT                                                  IRCP     2210
          BX2    -X1*X2                                                  IRCP     2211
          SB7    X2                                                      IRCP     2212
          SA1    TECST                                                   IRCP     2213
          SB6    X1                ZERO                                  IRCP     2214
          SB7    X1+B7             OUT                                   IRCP     2215
          MX6    0                 THE                                   IRCP     2216
OFF3     GE         B6,B7,WRAPUP        ECS                              SC3116      1
         SA6        B6                  TABLE                            SC3116      2
         SB6        B6+B1               AND                              SC3116      3
         EQ         OFF3                QUIT                             SC3116      4
*                                                                        IRCP     2221
OMASK     DATA   7777000000007777B                                       IRCP     2222
*                                                                        IRCP     2223
*         CHECK FOR AND PROCESS -NONSTD- ENTRY                           IRCP     2224
*                                                                        IRCP     2225
NONSTD    TEST   PACK                                                    IRCP     2226
          SA1    P.LECST                                                 IRCP     2227
          MX0    12                                                      IRCP     2228
SFT       SET    C.ICEBUF                                                IRCP     2229
          IFNE   SFT,0,1                                                 IRCP     2230
          LX1    12*SFT                                                  IRCP     2231
          BX1    X1*X0                                                   IRCP     2232
          LX1    12                                                      IRCP     2233
          SB2    X1                                                      IRCP     2234
          SA1    TICEBUF                                                 IRCP     2235
          SA0    X1                READ                                  IRCP     2236
          SX0    B0                CURRENT ECS HELD VALUES               IRCP     2237
          IFEQ   E.PREL,0,2                                              IRCP     2238
          RE     B2+0                                                    IRCP     2239
          EQ   NERR                                                      IRCP     2240
          RJ   CPAR                DISPLAY THEM                          IRCP     2241
          EQ   MONKA                                                     IRCP     2242
*                                                                        IRCP     2243
NERR      DISP   NMES,MESBF        DISPLAY MESSAGE                       IRCP     2244
          BSSZ   1                 DROP DEAD                             IRCP     2245
*                                                                        IRCP     2246
NMES      DATA   C$ECS PARITY, RESTART AND OFF ECS$                      IRCP     2247
*                                                                        IRCP     2248
*         TEST FOR AND PROCESS -PACK- ENTRY                              IRCP     2249
*                                                                        IRCP     2250
PACK      TEST   GO                IF NOT PACK, TRY GO                   IRCP     2251
          SA1    TICEBUF                                                 IRCP     2252
          SB7    X1                SET LIMITS FOR SCAN                   IRCP     2253
          SB6    X1+15                                                   IRCP     2254
          SB4    B7                SAVE T.ICEBUF                         IRCP     2255
          SB5    24                SHIFT COUNT                           IRCP     2256
          MX0    36                                                      IRCP     2257
          SA1    X1                                                      IRCP     2258
          BX1    -X0*X1                                                  IRCP     2259
          NZ   X1,NOREP            IF NON ZERO, USE                      IRCP     2260
          SX1    100B              ELSE, INSURE FWA OF 100B              IRCP     2261
NOREP     SX5    64*IP.ECLRB       NO OF WORDS IN AN RB                  IRCP     2262
*                                                                        IRCP     2263
*         THE LOOP STARTING HERE SETS THE VARIOUS PORTS REGIONS ADJACENT IRCP     2264
*                                                                        IRCP     2265
PA        SA2    B7                                                      IRCP     2266
          BX3    X0*X2                                                   IRCP     2267
          AX4    X2,B5                                                   IRCP     2268
          BX6    X3+X1             FOR RA USE RA+FL OF LAST PORT         IRCP     2269
          IX1    X1+X4             RA FOR NEXT PORT                      IRCP     2270
          SA6    A2                                                      IRCP     2271
          SB7    B7+3                                                    IRCP     2272
          LT   B7,B6,PA                                                  IRCP     2273
          SB7    B4                SET T.ICEBUF                          IRCP     2274
          PX5    X5                                                      IRCP     2275
*                                                                        IRCP     2276
*         THE NEXT LOOP ALLOTS AN INTEGRAL NUMBER OF RECORD BLOCKS TO    IRCP     2277
*         THE ALLOCATABLE SECTION OF EACH PORT (AS MANY AS POSSIBLE      IRCP     2278
*         WITHIN THE FL SPECIFIED) AND PUTS THE REST INTO THE USER AREA  IRCP     2279
*                                                                        IRCP     2280
PB        SA1    B7                                                      IRCP     2281
          SA2    B7+B1                                                   IRCP     2282
          BX6    -X0*X1            RA ALLOC = RA OF PORT                 IRCP     2283
          AX2    24                FL ALLOC (ORIGINAL)                   IRCP     2284
          PX2    X2                                                      IRCP     2285
          NX3    X5                                                      IRCP     2286
          NX2    X2                                                      IRCP     2287
          FX3    X2/X3                                                   IRCP     2288
          UX3    B4,X3                                                   IRCP     2289
          LX3    B4,X3                                                   IRCP     2290
          PX3    X3                                                      IRCP     2291
          DX4    X3*X5                                                   IRCP     2292
          UX4    X4                                                      IRCP     2293
          MX2    54                =-77B                                 IRCP     2294
          IX7    X4-X2                                                   IRCP     2295
          BX4    X2*X7             FL ALLOC ROUNDED                      IRCP     2296
          AX1    24                TEST FL OF PORT                       IRCP     2297
          NZ   X1,PBAA             NON ZERO, OK                          IRCP     2298
          SX4    B0                ELSE, SET FL OF ALLOC AREA TO ZERO    IRCP     2299
PBAA      LX7    X4,B5                                                   IRCP     2300
          IX3    X6+X4             RA FOR USER AREA                      IRCP     2301
          BX6    X6+X7             NEW ALLOC SPECS                       IRCP     2302
          IX2    X1-X4             AMOUNT FOR USER                       IRCP     2303
          SA6    A2                                                      IRCP     2304
          IX2    X3+X2             RA+FL USER                            IRCP     2305
          MX4    51                =-777B                                IRCP     2306
          IX7    X3-X4                                                   IRCP     2307
          BX7    X4*X7             RA USER ROUNDED                       IRCP     2308
          IX2    X2-X7                                                   IRCP     2309
          PL   X2,PBA                                                    IRCP     2310
          SX2    B0                                                      IRCP     2311
          BX7    X3                USE RA USER ORIGINAL                  IRCP     2312
PBA       BX4    X4*X2                                                   IRCP     2313
          IFEQ   E.PREL,0,1        FOR SIMULATED ECS, SKIP TEST          IRCP     2314
          NZ   X1,PBAB             TEST FL OF PORT                       IRCP     2315
          SX4    B0                SET USER FL TO ZERO                   IRCP     2316
PBAB      LX3    X4,B5                                                   IRCP     2317
          BX7    X7+X3                                                   IRCP     2318
          SA7    A2+B1                                                   IRCP     2319
          SB7    A7+B1                                                   IRCP     2320
          LT   B7,B6,PB                                                  IRCP     2321
          RJ   CPAR                GO CHANGE DISPLAY                     IRCP     2322
          EQ   MONKA                                                     IRCP     2323
*                                                                        IRCP     2324
*         TEST FOR AND PROCESS -GO- ENTRY                                IRCP     2325
*                                                                        IRCP     2326
          IFEQ   N.ECPORT,1,2      IF ONLY ONE PORT,ACCEPT GO.           IRCP     2327
GO        TEST   NUMER                                                   IRCP     2328
          SB6    B0                ASSUME PORT 1                         IRCP     2329
GOMANY    IFNE   N.ECPORT,1        OTHERWISE ACCEPT GO,ID. AND VERIFY    IRCP     2330
GO        TESTA  NUMER,(,)                                               IRCP     2331
          LX1    18                ISOLATE THE ID NUMBER                 IRCP     2332
          AX1    54                                                      IRCP     2333
          SB6    X1-34B            B6=N-1                                IRCP     2334
          NG   B6,GOERR            ERROR IF ALPHA                        IRCP     2335
          NG   X1,GOERR            OR GT 4 (NOTE 5=40 IN DC WHICH LEAVES IRCP     2336
*                                  X1 NG AFTER RIGHT SHIFT)              IRCP     2337
          SA1    TICEBUF                                                 IRCP     2338
          SX1    X1+15                                                   IRCP     2339
          SA1    B6+X1             FETCH IDENTIFIER                      IRCP     2340
          BX6    X1                STORE                                 IRCP     2341
          SA6    GMA+1             INTO MESSAGE                          IRCP     2342
          DISP   GMA,QBUF          ASK OP FOR                            IRCP     2343
          DISP   GMB,MESBF         VERIFICATION                          IRCP     2344
GOAA      MX7    0                 ALLOW KEYBOARD INPUT                  IRCP     2345
          SA7    KEYIN                                                   IRCP     2346
GOA       SA1    KEYIN                                                   IRCP     2347
          SA2    A1+B1                                                   IRCP     2348
          ZR   X1,GOA              NOT ENTERED YET                       IRCP     2349
          SB7    -4                                                      IRCP     2350
GOB       SA1    GOTB+4+B7         COMPARE ENTRY TO TABLE                IRCP     2351
          SB5    X1                                                      IRCP     2352
          BX3    X1-X2                                                   IRCP     2353
          AX4    B5,X3                                                   IRCP     2354
          SB7    B7+B1                                                   IRCP     2355
          ZR   X4,GOC              FOUND ENTRY                           IRCP     2356
          NZ   B7,GOB              MORE ENTRIES                          IRCP     2357
          DISP   GMC,MESBF                                               IRCP     2358
 +        FX5    X5/X5             DELAY FOR A WHILE                     IRCP     2359
          SB7    B7-B1                                                   IRCP     2360
          NZ   B7,*                                                      IRCP     2361
          DISP   GMB,MESBF                                               IRCP     2362
          EQ   GOAA                                                      IRCP     2363
*                                                                        IRCP     2364
GOTB      VFD    42/3LYES,18/36                                          IRCP     2365
          VFD    42/4LYES.,18/30                                         IRCP     2366
          VFD    42/2LNO,18/42                                           IRCP     2367
          VFD    42/3LNO.,18/36                                          IRCP     2368
GMA       DATA   28C IS THIS                                             IRCP     2369
GMB       DATA   C*  YES OR NO *                                         IRCP     2370
GMC       DATA   C*             WISE GUY*                                IRCP     2371
*                                                                        IRCP     2372
GOC       SB7    B7+B1                                                   IRCP     2373
          PL   B7,INITX            SENSE NO ENTRY AND GO START OVER      IRCP     2374
GOMANY    ENDIF                                                          IRCP     2375
*                                                                        IRCP     2376
*            HERE B6 HAS THE ORDINAL OF THE PORT-1                       IRCP     2377
*                                                                        IRCP     2378
          SA1    TICEBUF                                                 IRCP     2379
          SA0    X1                                                      IRCP     2380
          SB4    X1                SAVE T.ICEBUF                         IRCP     2381
          SX0    B0                                                      IRCP     2382
          IFEQ   E.PREL,0,2                                              IRCP     2383
          WE     100B              WRITE TABLE TO ECS AT ABS ZERO        IRCP     2384
          EQ   NERR                                                      IRCP     2385
          SX1    B6+B1                                                   IRCP     2386
          BX2    X1                                                      IRCP     2387
          LX1    1                                                       IRCP     2388
          IX1    X1+X2             3*N                                   IRCP     2389
          IFNE   E.PREL,0,10                                             IRCP     2390
          SA2    MACSIZ          FETCH REAL SIZE                         IRCP     2391
          SX3    1000B                                                   IRCP     2392
          IX4    X2-X3           SUBTRACT DUMMY SIZE                     IRCP     2393
          LX4    24                                                      IRCP     2394
          BX6    X4+X3                                                   IRCP     2395
          LX6    6                 POSITION                              IRCP     2396
          SX7    B0                ZERO USER ACCESS AREA                 IRCP     2397
          SA6    X1+B4                                                   IRCP     2398
          SA6    A6+B1                                                   IRCP     2399
          SA7    A6+B1                                                   IRCP     2400
          SA2    X1+B4                                                   IRCP     2401
          BX6    X2                                                      IRCP     2402
          SA3    A2+B1                                                   IRCP     2403
          SA4    A3+B1                                                   IRCP     2404
          AX6    24                                                      IRCP     2405
          SA5    B4+B1                                                   IRCP     2406
          BX7    X3                                                      IRCP     2407
          SA1    TECST                                                   IRCP     2408
          SA6    X1+E.LENGTH                                             IRCP     2409
          SA7    X1+E.ALLOC                                              IRCP     2410
          BX6    X4                                                      IRCP     2411
          LX7    X5                                                      IRCP     2412
          SA6    X1+E.USER                                               IRCP     2413
          SA7    X1+E.COMM                                               IRCP     2414
*                                                                        IRCP     2415
*         NOW WE SET UP THE ECS RBR                                      IRCP     2416
*                                                                        IRCP     2417
          SA2    PRBR              B1=1                                  IRCP     2418
          SB2    X2                B2=L(RBR)                             IRCP     2419
          NG   X2,WRAPUP           BYPASS, NO RBR                        IRCP     2420
          SX3    64*IP.ECLRB       B3=LENGTH OF RB                       IRCP     2421
*                                  B4=NO. OF RB-S                        IRCP     2422
*                                  B5=SHIFT COUNTER                      IRCP     2423
          SB3    X3                B6=TALLY OF ADDITIONAL UNAVL RB-S     SC20440     1
          SA1    X1+E.ALLOC        B7=CURRENT RBN                        IRCP     2425
          MX0    36                                                      IRCP     2426
          BX0    -X0*X1            X0=RA ALLOC=STARTING READ ADDRESS     IRCP     2427
          AX1    24                                                      IRCP     2428
          IX4    X1/X3                                                   IRCP     2429
          SB4    X4                                                      IRCP     2430
          SA1    B2+B1             SECOND WORD OF RBR                    IRCP     2431
          MX3    12                                                      IRCP     2432
          BX2    -X3*X1                                                  IRCP     2433
          BX5    X3*X1             EXISTING TOTAL RB COUNT               SC20440     2
          LX5    12                RIGHT-ADJUST INTEGER                  SC20440     3
          IX5    X4-X5             NEW MINUS OLD RB COUNT                SC20440     4
          LX4    48                                                      IRCP     2434
          BX6    X2+X4             FILL IN NO. OF PHYSICALLY AVAIL RB    IRCP     2435
          LX3    24                                                      SC20440     5
          BX4    X3*X6             EXISTING AVAILABLE RB COUNT           SC20440     6
          BX6    -X3*X6                                                  SC20440     7
          AX4    12                                                      SC20440     8
          IX4    X4+X5             ADJUST AVAILABLE RB COUNT             SC20440     9
          LX4    12                                                      SC20440    10
          BX6    X6+X4                                                   SC20440    11
          LX3    12                                                      SC20440    12
          BX4    X3*X6             EXISTING USABLE RB COUNT              SC20440    13
          BX6    -X3*X6                                                  SC20440    14
          AX4    24                                                      SC20440    15
          IX4    X4+X5             ADJUST USABLE RB COUNT                SC20440    16
          LX4    24                                                      SC20440    17
          BX6    X6+X4                                                   SC20440    18
          SA6    A1                                                      IRCP     2436
          SB6    B0                PRESET                                IRCP     2442
          SB7    B0-B1             FOR                                   IRCP     2443
          SA0    RBUF              READ                                  IRCP     2444
          SX1    B3                LOOP                                  IRCP     2445
          IX0    X0-X1                                                   IRCP     2446
GOE       SB7    B7+B1                                                   IRCP     2447
          GE   B7,B4,GOG                                                 IRCP     2448
          SX1    B3                                                      IRCP     2449
          IX0    X0+X1             INCREMENT ECS ADDRESS                 IRCP     2450
          IFEQ   E.PREL,0,2                                              IRCP     2451
+         RE     B3+0                                                    IRCP     2452
          EQ   GOD                 BAD RECORD BLOCK                      SC20440    19
*                                                                        SC20440    20
          EQ   GOE                 GOOD RECORD BLOCK                     SC20440    21
*                                                                        SC20440    22
GOD       BSS    0                                                       SC20440    23
          MX3    54                                                      IRCP     2454
          SX1    B7                                                      IRCP     2455
          BX2    -X3*X1            L                                     IRCP     2457
          SX4    X2-60                                                   IRCP     2458
          AX1    6                 U                                     IRCP     2459
          NG   X4,GOF              SENSE IN BASE WORD                    IRCP     2460
          MX3    57                                                      IRCP     2461
          BX6    -X3*X1            LP                                    IRCP     2462
          SA5    X6+SFTAB                                                IRCP     2463
          AX1    3                 UP                                    IRCP     2464
          IX2    X5+X4             BP                                    IRCP     2465
          SX1    X1+32                                                   IRCP     2466
GOF       SX4    X1+2                                                    IRCP     2467
          SB5    X2-59             NEG SHIFT COUNT                       IRCP     2468
          SA3    X4+B2             FETCH WORD                            IRCP     2469
          SX5    B1                ONE                                   IRCP     2470
          AX4    X5,B5             (REALLY LEFT SHIFT)                   IRCP     2471
          BX2    X4*X3             SAVE CURRENT RB SETTING               SC20440    24
          NZ   X2,GOE              ALREADY SET - TEST NEXT RB            SC20440    25
          BX6    X4+X3             SET THIS RB UNAVAILABLE               SC20440    26
          SB6    B6+B1             BUMP COUNT OF BAD RB-S                SC20440    27
          SA6    A3                                                      IRCP     2473
          EQ   GOE                                                       IRCP     2474
*                                                                        IRCP     2475
SFTAB     DATA   0,8,12,20,24,32,36,44                                   IRCP     2476
*                                                                        IRCP     2477
GOG       SX2    B6                ADDITIONAL LOGICALLY UNAVL RB-S       SC20440    28
          SA1    B2+B1             FILL IN                               IRCP     2479
          LX2    12                                                      SC20440    29
          IX3    X1-X2             ADJUST AVAILABLE RB COUNT             SC20440    30
          LX2    12                                                      SC20440    31
          IX6    X3-X2             ADJUST USABLE RB COUNT                SC20440    32
          SA6    A1                                                      IRCP     2487
          EQ   WRAPUP                                                    IRCP     2488
*                                                                        IRCP     2489
GOERR     DISP   GOEM,MESBF                                              IRCP     2490
          JP   INITXA                                                    IRCP     2491
*                                                                        IRCP     2492
GOEM      DATA   C*INCORRECT IDENTIFIER, START OVER*                     IRCP     2493
*                                                                        IRCP     2494
*         NUMER -- ASSUME NUMERIC (KEYIN ERROR ON ALL ERRORS)            IRCP     2495
*                                                                        IRCP     2496
NUMER     MX0    54                CHARACTER MASK                        IRCP     2497
          SA0    B1                =1 BEFORE COMMA,0 AFTER               IRCP     2498
          IX6    X6-X6                                                   IRCP     2499
          SB4    1R,               FOR                                   IRCP     2500
          SB5    1R.               CHARACTER                             IRCP     2501
          SB6    1R8               TESTS                                 IRCP     2502
          SA6    NWD                                                     IRCP     2503
          SB2    10                COUNT CHARS/WORD                      IRCP     2504
NUA       LX1    6                                                       IRCP     2505
          BX2    -X0*X1            ISOLATE NEXT CHARACTER                IRCP     2506
          SX3    X2-33B                                                  IRCP     2507
          SB7    X2                                                      IRCP     2508
          SB2    B2-B1             COUNT CHARS                           IRCP     2509
          EQ   B7,B4,NUC           SENSE COMMA                           IRCP     2510
          ZR   B7,NUD              SENSE END                             IRCP     2511
          EQ   B7,B5,NUD           OR PERIOD                             IRCP     2512
          LX6    3                                                       IRCP     2513
          NG   X3,KEYERR           SENSE ALPHA                           IRCP     2514
          IX6    X6+X3             ADD IN NEXT DIGIT                     IRCP     2515
          GE   B7,B6,KEYERR        SENSE INVALID                         IRCP     2516
NUB       NZ   B2,NUA              CONTINUE IF MORE                      IRCP     2517
          EQ   KEYERR              MORE THAN 1 WORD  INPUT               IRCP     2518
*                                                                        IRCP     2519
NUC       SA6    NWD                                                     IRCP     2520
          SX6    A0-B1                                                   IRCP     2521
          SA0    A0-B1                                                   IRCP     2522
          ZR   X6,NUB              CONTINUE IF FIRST COMMA               IRCP     2523
          EQ   KEYERR                                                    IRCP     2524
*                                                                        IRCP     2525
NWD       BSSZ   1                                                       IRCP     2526
*                                                                        IRCP     2527
NUD       SA1    NWD                                                     IRCP     2528
          MX0    42                                                      IRCP     2529
          LX1    59                SIGN GIVE RA OR FL,LO ORDER THE WORD  IRCP     2530
          SA3    TICEBUF                                                 IRCP     2531
          SB3    X3                                                      IRCP     2532
          SA3    X1+B3                                                   IRCP     2533
          BX6    -X0*X6            INSURE ONLY 18 BITS                   IRCP     2534
          LX6    6                                                       IRCP     2535
          MX0    36                                                      IRCP     2536
+         PL   X1,*+1                                                    IRCP     2537
          LX3    36                POSITION RA OR FL                     IRCP     2538
+         BX4    X0*X3                                                   IRCP     2539
          BX6    X6+X4             INSERT NEW VALUE                      IRCP     2540
          SA6    A3                ASSUME NEW RA                         IRCP     2541
+         PL   X1,*+1                                                    IRCP     2542
          LX6    24                 CORRECT IT IF NOT                    IRCP     2543
          SA6    A6                                                      IRCP     2544
          RJ   CPAR                DISPLAY NEW VALUE                     IRCP     2545
          EQ   MONKA                                                     IRCP     2546
*                                                                        IRCP     2547
KEYERR    DISP   KERMES,MESBF                                            IRCP     2548
          EQ   MONKA                                                     IRCP     2549
*                                                                        IRCP     2550
KERMES    DATA   C$ILLEGAL ENTRY$                                        IRCP     2551
*                                                                        IRCP     2552
*         MOVE DATA TO ZERO BYTE                                         IRCP     2553
*                ENTRY - B1=1,B2=L(FROM),B3=L(TO),B4=MAX WORDS           IRCP     2554
*                EXIT  - B4 REDUCED BY NO. OF WORDS MOVED                IRCP     2555
*                                                                        IRCP     2556
MTZA      LX6    X5                                                      IRCP     2557
          BX4    -X0*X5                                                  IRCP     2558
          SA6    A6+B1                                                   IRCP     2559
          LX5    48                                                      IRCP     2560
MTZB      ZR   X4,MTZ                                                    IRCP     2561
          DUP    3,3                                                     IRCP     2562
          BX4    -X0*X5                                                  IRCP     2563
          LX5    48                                                      IRCP     2564
          ZR   X4,MTZ                                                    IRCP     2565
          BX4    -X0*X5                                                  IRCP     2566
          SA5    A5+B1                                                   IRCP     2567
          ZR   X4,MTZ                                                    IRCP     2568
          SB4    B4-B1                                                   IRCP     2569
          NZ   B4,MTZA                                                   IRCP     2570
          SX6    B0                                                      IRCP     2571
          SA6    A6+B1                                                   IRCP     2572
*                                                                        IRCP     2573
MTZ       PS                                                             IRCP     2574
          SA5    B2                                                      IRCP     2575
          MX0    48                                                      IRCP     2576
          BX6    X5                                                      IRCP     2577
          LX5    48                                                      IRCP     2578
          SA6    B3                                                      IRCP     2579
          BX4    -X0*X5                                                  IRCP     2580
          EQ   MTZB                                                      IRCP     2581
*                                                                        IRCP     2582
*         CPAR -- CONVERT AND DISPLAY PARAMETERS                         IRCP     2583
*                                                                        IRCP     2584
CPAR      PS                                                             IRCP     2585
          SA1    TICEBUF                                                 IRCP     2586
          SB2    X1                                                      IRCP     2587
          SB3    X1+14                                                   IRCP     2588
          SB4    PBUF+1                                                  IRCP     2589
CPARA     SA1    B2                                                      IRCP     2590
          SB2    B2+B1                                                   IRCP     2591
          RJ   BTO                                                       IRCP     2592
          SA6    B4                                                      IRCP     2593
          SB4    B4+B1                                                   IRCP     2594
          RJ   BTO                                                       IRCP     2595
          SA6    B4                                                      IRCP     2596
          SB4    B4+B1                                                   IRCP     2597
          GE   B3,B2,CPARA                                               IRCP     2598
          SA1    PBUF              CAUSE NEW DISPLAY                     IRCP     2599
          SX6    X1+1                                                    IRCP     2600
          SA6    A1                                                      IRCP     2601
          EQ   CPAR                                                      IRCP     2602
*                                                                        IRCP     2603
*         BTO -- BINARY TO OCTAL CONVERSION, 8 DIGITS                    IRCP     2604
*                ENTRY - NUMBER IN X1                                    IRCP     2605
*                EXIT  - OCTAL DIS CODE IN X6,X1 SHIFTED RIGHT 24        IRCP     2606
*                                                                        IRCP     2607
BTO       PS                                                             IRCP     2608
          SB6    54                                                      IRCP     2609
          SB7    6                                                       IRCP     2610
          AX5    X1,B7                                                   IRCP     2611
          IX6    X6-X6                                                   IRCP     2612
          SX3    33B                                                     IRCP     2613
          MX0    57                                                      IRCP     2614
BTOA      BX2    -X0*X5                                                  IRCP     2615
          AX5    3                                                       IRCP     2616
          SB7    B7-B1                                                   IRCP     2617
          IX4    X2+X3                                                   IRCP     2618
          BX7    X6+X4                                                   IRCP     2619
          LX6    X7,B6                                                   IRCP     2620
          NZ   B7,BTOA                                                   IRCP     2621
          AX1    24                                                      IRCP     2622
          EQ   BTO                                                       IRCP     2623
*                                                                        IRCP     2624
*         CLEAN UP AND GO HOME                                           IRCP     2625
*                                                                        IRCP     2626
WRAPUP    SA1    TECST             FETCH ECS RA AND                      IRCP     2627
          SA1    X1+E.USER         FL FOR USER AREA                      IRCP     2628
          SB2    T.CPA1                                                  IRCP     2629
          MX0    39                                                      IRCP     2630
          BX6    -X0*X1            ISOLATE RA                            IRCP     2631
          AX6    9                 DIVIDE BY 1000B                       IRCP     2632
          BX4    X6                                                      IRCP     2633
          BX7    X6                                                      IRCP     2634
SFT       SET    4-C.CPRA                                                IRCP     2635
          IFNE   SFT,0,1                                                 IRCP     2636
          LX6    12*SFT            POSITION FOR CONTROL POINT AREA       IRCP     2637
          LX7    45                POSITION FOR CTL PNT EXCHANGE PCKGE   IRCP     2638
          AX1    24                                                      IRCP     2639
          BX3    -X0*X1            ISOLATE FL                            IRCP     2640
          AX3    9                 DIVIDE BY 1000B                       IRCP     2641
          IX4    X3+X4             ADD RA AND FL FOR TOTAL FL OF MACH    IRCP     2642
          IFNE   IP.MECS,0,1                                             IRCP     2643
          NZ   X3,WRAPB            IF USER ACCESS FL NON ZERO, GO ON     IRCP     2644
*                                                                        IRCP     2645
*                                  SINCE USER ACCESS FL IS ZERO, SET     IRCP     2646
*                                  ALL ECS VALUES FOR USER ACCESS TO ZRO IRCP     2647
*                                                                        IRCP     2648
          SX4    B0                                                      IRCP     2649
          SX6    B0                                                      IRCP     2650
          SX7    B0                                                      IRCP     2651
WRAPB     SA1    P.NCP                                                   IRCP     2652
          MX0    60-L.CPNUM                                              IRCP     2653
SFT       SET    C.NCP+1                                                 IRCP     2654
          IFNE   SFT,5,1                                                 IRCP     2655
          LX1    12*SFT                                                  IRCP     2656
          BX1    -X0*X1                                                  IRCP     2657
          SB3    X1                NO OF CTL PTS                         IRCP     2658
WRAPA     SA6    B2+W.CPECS                                              IRCP     2659
          SA7    B2+4                                                    IRCP     2660
          SB2    B2+200B                                                 IRCP     2661
          SB3    B3-B1                                                   IRCP     2662
          NZ   B3,WRAPA                                                  IRCP     2663
          BX6    X4                                                      IRCP     2664
          SA6    W.CPECS                                                 IRCP     2665
          SA1    P.ECST            FETCH ECS TABLE POINTERS              IRCP     2666
         SA2        P.LECST                                              SC3116      5
          MX0    48                                                      IRCP     2667
SFT       SET    C.ECFLAW+1                                              IRCP     2668
         IFNE       SFT,5,2                                              SC3116      6
         LX2        12*SFT                                               SC3116      7
          LX1    12*SFT                                                  IRCP     2670
         BX2        -X0*X2                                               SC3116      8
         ZR         X2,WRAPC            JMP, TABLE ZERO LENGTH           SC3116      9
          BX1    -X0*X1            ISOLATE FLAW TABLE POINTER            IRCP     2671
          LX1    3                 MULTIPLY BY 10B                       IRCP     2672
          MX7    0                                                       IRCP     2673
          SA7    X1                ZERO FIRST WORD OF FLAW TABLE         IRCP     2674
WRAPC    SX6        B1                                                   SC3116     10
          SA6    QUITSW            TURN EVERYTHING LOOSE                 IRCP     2676
          EQ   SETECS              RETURN                                IRCP     2677
          TITLE                                                          IRCP     2678
ECS       ENDIF                                                          IRCP     2679
          IFEQ   IP.ECNOM,0,1                                            IRCP     2680
          EJECT                                                          IRCP     2681
          SPACE  4                                                       IRCP     2682
          IFNE   IP.MECS,0,1                                             IRCP     2683
ECBUF     BSSZ   1                                                       IRCP     2684
FIRSTSP   DATA   0           NON-ZERO FOR 1ST PRU OF RECORD              IRCP     2685
FIRST     DATA   0           NON-ZERO FOR 1ST PRU OF RECORD              IRCP     2686
STOREPT   DATA   0           STORE ADDRESS FOR PROGRAM BEING LOADED      IRCP     2687
GETPOINT  DATA   0           FETCH ADDRESS FROM INPUT BUFFER             IRCP     2688
WORDCNT   DATA   0           WORD COUNT FROM CURRENT PRU                 IRCP     2689
CHECKSUM  DATA   0           CHECKSUM FROM CURRENT PRU                   IRCP     2690
MOVEFLAG  DATA   0           ZERO WHEN PROGRAM TO BE LEFT IN CM          IRCP     2691
NAMEPT    DATA   0           CURRENT FETCH ADDRESS IN PROGRAM NAME TABLE IRCP     2692
LOCD      DATA   0           DIRECTORY POINTER                           IRCP     2693
LOCA      DATA   0           DIRECTORY POINTER                           IRCP     2694
PRUNO     DATA   0           PRU NUMBER OF CURRENT RB BEING READ         IRCP     2695
UNITNO    DATA   0           DST ORDINAL OF CURRENT DEVICE               IRCP     2696
PRUMAX    DATA   0           NO. OF PRU-S PER RB ON CURRENT DEVICE       IRCP     2697
DEVADDR   DATA   0           (0,UNIT NO.,RBT ADR,RBT ORD,0)              IRCP     2698
          SPACE  2                                                       IRCP     2699
ECS1      IFNE   IP.ECNOM,0                                              IRCP     2700
END       EQU    *                                                       IRCP     2701
          ORG    END+20                                                  IRCP     2702
LQBUF     EQU    6                                                       IRCP     2703
LMESBF    EQU    5                                                       IRCP     2704
LKEYIN    EQU    5                                                       IRCP     2705
LPBUF     EQU    31                                                      IRCP     2706
QBUF      BSS    LQBUF                                                   IRCP     2707
MESBF     BSS    LMESBF                                                  IRCP     2708
KEYIN     BSS    LKEYIN                                                  IRCP     2709
PBUF      BSS    LPBUF                                                   IRCP     2710
RBUF      EQU    *                                                       IRCP     2711
ECS1      ENDIF                                                          IRCP     2712
          TITLE                   RECOVERY                               IRCP     2713
 ALTLIB   EQ       *-*                                                   HS2IRCQ   181
*                                  CHEKC IF ROUTINES ARE TO BE LEFT OUT  HS2IRCQ   182
*                                  OF ECS (WSITCH TO ALT. RES.           HS2IRCQ   183
          OPCOM    A,(RTITLE,REECLIB)                                    HS2IRCQ   184
          SA1      A1              GET RESPONSE                          HS2IRCP   873
          SA2      =2HNO                                                 HS2IRCP   874
          BX6      X1-X2                                                 HS2IRCP   875
          NZ       X6,ALTLIB                                             HS2IRCQ   185
          SA6      MAXECLIB        SWITCH TO NOT USE ECS FOR LIB         HS2IRCP   877
          EQ       ALTLIB                                                HS2IRCQ   186
ES.BL     BSSZ      1              LOCK LENGTH                           BBBSWPR   186
ES.ZA     BSSZ      1              FWA OF TABLE                          BBBSWPR   187
ES.ZB     BSSZ      15             ZER O BLOCK                           BBBSWPR   188
ES.ZL     BSSZ      1              LWA                                   BBBSWPR   189
          TITLE    RECOVERY --- MESSAGES                                 HS2IRCP   879
 REECLIB  QSTLST                                                         HS2IRCP   880
          QSTEXT   (TYPE NO TO PREVENT )                                 HS2IRCP   881
          QSTEXT   (LOADING OF LIBRARY)                                  HS2IRCP   882
          QSTEXT   (ROUTINES INTO ECS.)                                  HS2IRCP   883
          ENDLST                                                         HS2IRCP   884
          SPACE    2                                                     HS2IRCR    60
 REECR1   QSTLST   LEFT                                                  HS2IRCR    61
          POSTXT   *,0                                                   HS2IRCR    62
          QSTEXT   (DO YOU WANT TO )                                     HS2IRCR    63
          QSTEXT   (REDUCE TO 1/2 ECS...)                                HS2IRCS     9
          ENDLST                                                         HS2IRCR    65
          SPACE    2                                                     HS2IRCR    66
 REECR2   QSTLST   RIGHT                                                 HS2IRCR    67
          QSTEXT   (DO NOT CHANGE)                                       HS2IRCR    68
          QSTEXT   (THE SWITCH SETTINGS YET.)                            HS2IRCR    69
          ENDLST                                                         HS2IRCR    70
          SPACE    2                                                     HS2IRCR    71
 REECR3   OPTLST   LEFT                                                  HS2IRCR    72
          POSTXT   *,6                                                   HS2IRCR    73
          OPTEXT   (YES$--   DO HALVE ECS)                               HS2IRCR    74
          OPTEXT   (NO$  --   LEAVE ECS ALONE)                           HS2IRCR    75
          ENDLST                                                         HS2IRCR    76
          SPACE    2                                                     HS2IRCR    77
 REECR4   QSTLST   LEFT                                                  HS2IRCR    78
          QSTEXT   (CHANGE SWITCH SETTINGS)                              HS2IRCR    79
          QSTEXT   (AND TYPE GO.)                                        HS2IRCR    80
          ENDLST                                                         HS2IRCR    81
          SPACE    2                                                     HS2IRCR    82
          TITLE                   READ/WRITE DEVICE DEBUG ROUTINE        IRCP     4371
XO        IFNE   XOPTION,0                                               SCR320E     1
*         DEBUG -- DEBUGGING ROUTINE FOR DUMPING/ERASING RBS AND PRUS    IRCP     4372
  LIST -L                                                                HS2IRCS    10
                                                                         IRCP     4373
DEBUG     OPCOM  N,(FISH)          ASK FOR EST ORDINAL                   IRCP     4374
          BX6    X1                                                      IRCP     4375
          BX5    X1                                                      IRCP     4376
          SA6    DOG               SAVE FOR REQUESTS                     IRCP     4377
          MX0    12                                                      IRCP     4378
          RJ   CNVTBTO             CONVERT TO DISPLAY                    IRCP     4379
          LX6    48                PUT IN MESSAGE                        IRCP     4380
          BX6    X0*X6                                                   IRCP     4381
          RJ   SQUANK                                                    IRCP     4382
          SA6    OXEN                                                    IRCP     4383
          OPCOM  O,(POLE)          ASK WHAT IS TO BE DONE                IRCP     4384
          SX7    X1-2                                                    IRCP     4385
          SA7    BAG               -1 IF RB ERASING                      IRCP     4386
*                                  0  IF RB DUMP                         IRCP     4387
*                                  1  IF PRU DUMP                        IRCP     4388
NOOK      SA1    BAG                                                     IRCP     4389
          PL   X1,GREEN            JUMP IF PRU OR RB DUMP                IRCP     4390
          RJ   MARTYR                                                    IRCP     4391
          OPCOM  N,(HILL,FRAM)     GET RB TO ERASE                       IRCP     4392
          SB2    X1                RB NUMBER                             IRCP     4393
          SX2    14B               ORDER CODE (WRITE DIRECT)             IRCP     4394
          EQ   WEIGHT              GO SET UP REQUEST                     IRCP     4395
                                                                         IRCP     4396
GREEN     NZ   X1,SEEP             JUMP IF PRU DUMP                      IRCP     4397
          OPCOM  N,(HILL,EMBER,FRAM),(AVOCADO,3)                         IRCP     4398
          SB2    X1                RB NUMBER                             IRCP     4399
          SX2    10B               ORDER CODE  (READ DIRECT)             IRCP     4400
WEIGHT    MX3    0                 PRU = 0                               IRCP     4401
          SX6    B1                SET FOR ONE RB                        IRCP     4402
          EQ   RURAL               GO SET UP REQUEST                     IRCP     4403
                                                                         IRCP     4404
SEEP      OPCOM  N,(HILL,FUNNEL,FRAM),(AVOCADO,3)                        IRCP     4405
          SB2    X1                RB NUMBER                             IRCP     4406
          OPCOM  N,(HILL,FUNNEL,BARN),(AVOCADO,3)                        IRCP     4407
          SX3    X1                PRU NUMBER                            IRCP     4408
          SX2    10B               ORDER CODE  (READ DIRECT)             IRCP     4409
          SX6    20B               SET FOR ONE PRU                       IRCP     4410
RURAL     SA4    DOG               EST ORDINAL                           IRCP     4411
          SX7    B2                RB NUMBER                             IRCP     4412
          LX3    12                SHIFT PRU NUMBER                      IRCP     4413
          LX4    24                SHIFT EST ORDINAL                     IRCP     4414
          LX7    36                SHIFT RB NUMBER                       IRCP     4415
          BX2    X2+X3             FORM 1ST WORD OF REQUEST              IRCP     4416
          BX7    X4+X7                                                   IRCP     4417
          BX7    X2+X7                                                   IRCP     4418
          SA7    T.PPC2+W.PPMES1   STORE 1ST WORD OF REQUEST             IRCP     4419
          SX7    B2                RB NUMBER                             IRCP     4420
          LX7    12                                                      IRCP     4421
          AX3    12                PRU NUMBER                            IRCP     4422
          IX7    X7+X3                                                   IRCP     4423
          SA5    FRONTIER                                                IRCP     4424
          SA7    X5                STORE RB AND PRU IN FWA-1             IRCP     4425
          SX5    X5+B1             FWA                                   IRCP     4426
          LX5    24                SHIFT FWA                             IRCP     4427
          LX6    48                SHIFT RB/PRU COUNT                    IRCP     4428
          IX6    X6+X5             FORM 2ND WORD OF REQUEST              IRCP     4429
          SA6    T.PPC2+W.PPMES2   STORE                                 IRCP     4430
          MX7    0                 ACTIVATE RMS                          IRCP     4431
          SA7    T.PPC2+W.PPIR                                           IRCP     4432
FIELDS    SA1    A7                WAIT FOR COMPLETION                   IRCP     4433
          ZR   X1,FIELDS                                                 IRCP     4434
          MX0    57                CHECK ERROR BITS                      IRCP     4435
          AX1    3                                                       IRCP     4436
          BX1    -X0*X1                                                  IRCP     4437
          NZ   X1,FOLD             JUMP IF ANY BAD ERRORS                IRCP     4438
          SA1    CLEAN             CLEAR ERROR INDICATOR                 IRCP     4439
          BX6    X1                                                      IRCP     4440
          EQ   ROCKS                                                     IRCP     4441
                                                                         IRCP     4442
FOLD      SA1    STONES            SHOW ERROR INDICATOR                  IRCP     4443
          BX6    X1                                                      IRCP     4444
ROCKS     SA6    JOVIAL                                                  IRCP     4445
          SA6    STOMP                                                   IRCP     4446
          SA5    FRONTIER          FWA OF LAST READ/WRITE                IRCP     4447
          RJ   CNVTBTO                                                   IRCP     4448
          LX6    24                                                      IRCP     4449
          SA6    AVOCADO           SET IN MESSAGE                        IRCP     4450
          SA1    BAG                                                     IRCP     4451
          NG   X1,FOOL             JUMP IF WRITING                       IRCP     4452
          SA4    T.PPC2+W.PPMES2   GET LWA OF LAST READ                  IRCP     4453
          AX4    24                                                      IRCP     4454
          MX0    54                                                      IRCP     4455
          MX7    60                                                      IRCP     4456
          SA7    X4                                                      IRCP     4457
          SX6    A7+B1                                                   IRCP     4458
HOOP      SA7    X6                NOW CLEAR TO NEXT EVEN 100B           IRCP     4459
          SX6    A7+B1                                                   IRCP     4460
          BX3    -X0*X6                                                  IRCP     4461
          NZ   X3,HOOP                                                   IRCP     4462
          SA6    FRONTIER                                                IRCP     4463
FOOL      EQ   NOOK                REPEAT MAIN LOOP                      IRCP     4464
                                                                         IRCP     4465
MARTYR    DATA   0                                                       IRCP     4466
          SA3    ABLE              PRESET OUTPUT BUFFER                  IRCP     4467
          SA1    FRONTIER                                                IRCP     4468
          BX7    X3                                                      IRCP     4469
          SB7    X1+MAXRBLTH+1                                           IRCP     4470
          SA7    X1+B1                                                   IRCP     4471
DUCK      SA7    A7+B1             STORE A WORD                          IRCP     4472
          SB6    A7                                                      IRCP     4473
          LT   B6,B7,DUCK          LOOP                                  IRCP     4474
          EQ   MARTYR                                                    IRCP     4475
                                                                         IRCP     4476
ABLE      VFD    60/05000500050005000500B                                IRCP     4477
DOG       DATA   0                                                       IRCP     4478
BAG       DATA   0                                                       IRCP     4479
FRONTIER  VFD    60/RMSBUF1                                              IRCP     4480
CLEAN     DATA   10H                                                     IRCP     4481
STONES    DATA   10HHAD ERRORS                                           IRCP     4482
AVOCADO   DATA   10H-NONE-                                               IRCP     4483
FISH      QSTLST                                                         IRCP     4484
          QSTEXT  (ENTER EST ORDINAL)                                    IRCP     4485
          ENDLST                                                         IRCP     4486
POLE      OPTLST                                                         IRCP     4487
          OPTEXT  (1$ERASE AN RB)                                        IRCP     4488
          OPTEXT  (2$DUMP AN RB AT A TIME)                               IRCP     4489
          OPTEXT  (3$DUMP 1 PRU AT A TIME)                               IRCP     4490
          ENDLST                                                         IRCP     4491
HILL      MSGLST                                                         IRCP     4492
AX        MSGTEXT  (   DEVICE           )                                IRCP     4493
OXEN      EQU    AX+2                                                    IRCP     4494
          ENDLST                                                         IRCP     4495
FUNNEL    MSGLST                                                         IRCP     4496
          POSTXT  *,4                                                    IRCP     4497
          SMODE  ON                                                      IRCP     4498
          MSGTEXT  (LAST PRU READ TO LOC $$$$$$)                         IRCP     4499
          SMODE  OFF                                                     IRCP     4500
JOY       MSGTEXT  (          )                                          IRCP     4501
JOVIAL    EQU    JOY+1                                                   IRCP     4502
          ENDLST                                                         IRCP     4503
EMBER     MSGLST                                                         IRCP     4504
          POSTXT  *,4                                                    IRCP     4505
          MSGTEXT  (LAST RB READ TO LOC $$$$$$)                          IRCP     4506
LUMP      MSGTEXT  (          )                                          IRCP     4507
STOMP     EQU    LUMP+1                                                  IRCP     4508
          ENDLST                                                         IRCP     4509
BARN      QSTLST                                                         IRCP     4510
          QSTEXT  (ENTER NEXT PRU NUMBER)                                IRCP     4511
          ENDLST                                                         IRCP     4512
FRAM      QSTLST                                                         IRCP     4513
          QSTEXT  (ENTER NEXT RB NUMBER)                                 IRCP     4514
          ENDLST                                                         IRCP     4515
XO        ENDIF                                                          IRCP     4516
          TITLE                   LABEL PROCESSING --- LF                IRCP     4517
*         LF -- INITIALIZATION FOR DEVICE LABELS AND PERMANENT FILES     IRCP     4518
                                                                         IRCP     4519
*            ENTRY - B1 = 1                                              IRCP     4520
                                                                         IRCP     4521
          IFEQ   INITDS,0,1                                              GHKFXDS    64
NEWLBFG   DATA     0                                                     F1SP1       2
LF        DATA   0                                                       IRCP     4522
          MX6    0                 INITIALIZE EST ORDINAL FOR SEARCH     IRCP     4523
          SA6    ESTORD            OF ENTIRE EST                         IRCP     4524
INIT      IFNE     INITDS,0                                              JEEYES     13
          OPCOM    A,(ROOKIE,PRO)  SEE IF DISK LABEL TO BE SAVED         JEEYES     14
          SX7      B0                                                    JEEYES     15
          SA2      WHICH           10HSAVE                               JEEYES     16
          BX2      X2-X1           COMPARE TYPEIN                        JEEYES     17
          ZR       X2,SWAMP        JUMP IF SAME                          JEEYES     18
          SX7      B1              NOT SAME, FLAG TO IGNORE DISK LABEL   JEEYES     19
SWAMP     SA7      MAKEUP          HE FINALLY MADE UP HIS MIND           JEEYES     20
INIT      ENDIF                                                          JEEYES     21
                                                                         IRCP     4525
*         RETURN IS MADE HERE AFTER EACH DEVICE IS PROCESSED             IRCP     4526
                                                                         IRCP     4527
RING      S      A1,P.EST                                                IRCP     4528
          MX0    48                                                      IRCP     4529
          LX1    12                                                      IRCP     4530
          SA2    ESTORD            CURRENT EST ORDINAL                   IRCP     4531
          BX3    -X0*X1            FWA OF EST                            IRCP     4532
          SX6    X2+B1             ADVANCE EST ORDINAL                   IRCP     4533
          LX1    12                                                      IRCP     4534
          BX4    -X0*X1            LWA+1 OF EST                          IRCP     4535
          IX7    X3+X6             ADVANCE EST ADDRESS                   IRCP     4536
          SA6    A2                STORE EST ORDINAL                     IRCP     4537
          SA7    ESTADR            STORE EST ADDRESS                     IRCP     4538
          IX5    X7-X4                                                   IRCP     4539
          SA4    X7                GET EST ENTRY                         IRCP     4540
          PL   X5,HEIDI            JUMP ON END OF EST                    IRCP     4541
          PL   X4,RING             LOOP IF NOT AN ALLOCATABLE DEVICE     IRCP     4542
          MX3    1                                                       DSRT320  1380
          LX3    58                                                      DSRT320  1381
          BX7    -X3*X4            CLEAR LBL BIT IN CASE IT WAS SET      DSRT320  1382
          SA7    A4                                                      DSRT320  1383
          BX3    X3*X4             ISOLATE LBL BIT                       DSRT320  1384
          MX1    49                DO NOT PROCESS ECS                    IRCP     4543
          AX4    12                                                      IRCP     4544
          BX1    -X1*X4            LOOK AT DEVICE MNEMONIC - SEE IF AX   IRCP     4545
          SX2    X1-2RAX                                                 IRCP     4546
          ZR   X2,RING             JUMP IF EST ENTRY FOR ECS             IRCP     4547
          LX3    3                                                       FCON      213
          SB2    X3                SAVE LBL BIT                          FCON      214
          SB6    PLUG-DEVTABLE-1                                         FCON      215
MAGAZINE  SA2    B6+DEVTABLE       READ MNEMONIC FROM TABLE              FCON      216
          LX2    12                                                      FCON      217
          BX2    -X0*X2                                                  FCON      218
          BX7    X1-X2             COMPARE WITH MNEMONIC FROM EST        FCON      219
          ZR   X7,GREAT            JUMP IF MNEMONICS MATCH               FCON      220
          SB6    B6-B1                                                   FCON      221
          PL   B6,MAGAZINE         LOOP UNTIL MATCH FOUND                FCON      222
          SX7    B1                ASSUME 1 (SHOULD NEVER OCCUR)         FCON      223
          EQ   DOGFOOD                                                   FCON      224
GREAT     SA3    B6+RBRTABLE       NUMBER OF RBR S FOR THIS DEVICE       FCON      225
          BX7    X3                                                      FCON      226
DOGFOOD   SA7    NUMRBR                                                  FCON      227
INIT      IFEQ   INITDS,0                                                GHKDSFX     2
          MX7      0                                                     F1SP1       3
          AX4      36              GET ALLOC INFO                        F1SP1       4
          SX2      210B            TEST AGAINST PF DEVICE                F1SP1       5
          BX4      X2*X4                                                 F1SP1       6
          BX2      X2-X4                                                 F1SP1       7
          NZ       X2,NOTPF        JUMP IF NOT PRIMARY PF DEV            F1SP1       8
          SX7      B1                                                    F1SP1       9
NOTPF     SA7      NEWLBFG         PROTECT FROM LABELLING IF =1.         F1SP1      10
INIT      ENDIF                                                          GHKFXDS    66
          BX5    X6                EST ORDINAL                           IRCP     4548
          RJ   GETRBR              GET RBR ORDINAL AND ADDRESS           IRCP     4549
                                                                         DSRT320  1387
*         IF DEVICE IS OFF, DO NOT PERFORM LABEL PROCESSING UNLESS       DSRT320  1388
*         THE LBL BIT WAS ALSO SET.  HOWEVER, AS A PRECAUTION TO         DSRT320  1389
*         PROTECT PERMANENT FILES IF THE OPERATOR LATER TURNS            DSRT320  1390
*         THE DEVICE ON, TURN OFF THE FIRST FREE RB ON THE DEVICE.       DSRT320  1391
*         WE CAN ONLY HOPE THAT THIS IS WHERE THE LABEL IS, IF A LABEL   DSRT320  1392
*         IS PRESENT.                                                    DSRT320  1393
                                                                         DSRT320  1394
          SA5    ESTADR            EST ADDRESS                           DSRT320  1395
          SA5    X5                GET EST ENTRY                         DSRT320  1396
          LX5    36                                                      DSRT320  1397
          PL   X5,BUTTER           JUMP IF DEVICE ON                     DSRT320  1398
          NZ   B2,BUTTER           JUMP IF LBL BIT WAS ON                DSRT320  1399
          SB2    -B1               FIRST RB NUMBER - 2                   DSRT320  1400
          SB3    B1+B1                                                   DSRT320  1401
INTRUDE   SB2    B2+B3             SET TO NEXT RB NUMBER                 DSRT320  1402
          SX2    B2-10001B                                               DSRT320  1403
          SX1    B2                RB NUMBER                             DSRT320  1404
          PL   X2,RING             JUMP ON FULL RBR - RIDICULOUS         DSRT320  1405
          RJ   SETRB               SET BIT IN RBR TO LOCK OUT RB         DSRT320  1406
          ZR   X1,RING             JUMP IF NOT ALREADY SET               DSRT320  1407
          EQ   INTRUDE             LOOP - TRY NEXT RB                    DSRT320  1408
                                                                         IRCP     4550
*         CHECK IF THIS IS AN INITIALIZATION-TYPE DEAD-START             IRCP     4551
                                                                         IRCP     4552
BUTTER    MX0    48                                                      DSRT320  1409
          SA1    CEDARGS           GET FLAG FOR TYPE OF DEAD-START       IRCP     4554
          BX1    -X0*X1                                                  IRCP     4555
          NZ   X1,FREEZE           JUMP IF NOT LABELING-TYPE DEAD-START  IRCP     4556
                                                                         IRCP     4557
*         DEVICE INITIALIZATION                                          IRCP     4558
                                                                         IRCP     4559
DEEP      RJ   IDEV                GO WRITE LABEL ON THIS DEVICE         IRCP     4560
          SA1    DELETED           IF DEVICE DELETED DO NOT              SCR320X     1
          MX7    0                 CHECK LABEL                           SCR320X     2
          SA7    A1                CLEAR FLAG                            SCR320X     3
          NZ   X1,RING             JMP DEVICE DELETED                    SCR320X     4
                                                                         IRCP     4561
*         FIND THE LABEL ON THIS DEVICE                                  IRCP     4562
                                                                         IRCP     4563
FREEZE    MX6    59                INITIALIZE FOR RB SEARCH              IRCP     4564
          SA6    RBNUM                                                   IRCP     4565
ORNATE    RJ   GETRB               FIND THE NEXT FREE RB                 IRCP     4566
ALOOF     SX4    RBLIM             NUMBER OF RBS TO TRY                  IRCP     4567
          RJ   RDLBL               READ DEVICE LABEL                     IRCP     4568
          ZR   X4,EUREKA           JUMP IF LABEL FOUND AND ERROR-FREE    IRCP     4569
                                                                         IRCP     4570
*         PROCESS LABEL ERROR MESSAGES                                   IRCP     4571
                                                                         IRCP     4572
          SB4    X4-1              SAVE ERROR FLAG - 1                   IRCP     4573
          SA5    RBNUM             LAST RB READ                          IRCP     4574
          RJ   CNVTBTO             CONVERT RB NUMBER TO DISPLAY          IRCP     4575
          LX6    36                                                      IRCP     4576
          SA6    LDEVRB            SAVE RB NUMBER FOR MESSAGE            IRCP     4577
          SX2    DVERMSG2          SET DEVICE ERROR INFORMATION          IRCP     4578
          RJ   DEVERR                                                    IRCP     4579
          NZ   B4,BLOOP            JUMP IF NOT REJECT ERROR              IRCP     4580
COMFORT   OPCOM  O,(LCKHDR,LDEVI,LREJ1,LREJ2,DVERMSG)                    IRCP     4581
          SB2    X1                OPTION NUMBER                         IRCP     4582
          ZR   B2,COMFORT          (0) = NO OPTION ENTERED               IRCP     4583
          EQ   B2,B1,ALOOF         (1) = TRY AGAIN                       IRCP     4584
GRAPE     RJ   SUSPEND             (2) = IGNORE DEVICE                   IRCP     4585
          EQ   RING                NEXT DEVICE                           IRCP     4586
                                                                         IRCP     4587
BLOOP     LT   B1,B4,WRATH         JUMP IF LABEL FOUND WITH ERRORS       IRCP     4588
SHADY     OPCOM  O,(LCKHDR,LDEVI,LNOTF1,LNOTF2),(LDEVRB,2)               IRCP     4589
          ZR   X1,SHADY            LOOP IF NO INPUT                      IRCP     4590
          SB3    X1                OPTION NUMBER                         IRCP     4591
          EQ   B3,B1,ORNATE        (1) = SEARCH ON                       IRCP     4592
INIT      IFNE   INITDS,0                                                GHKFXDS    67
LEEWARD   SX7    B1                SET FLAG FOR IDEV NOT TO              IRCP     4593
INIT      ELSE                                                           GHKFXDS    68
LEEWARD   SA1      NEWLBFG         CHECK IF PRIMARY PF DEVICE            F1SP1      11
          ZR     X1,GOAHEAD    IT ISNT                                   DBBNOIN    15
NOWAY     OPCOM    X,(DONTLBL)       DISPLAY MESSAGE                     DBBNOIN    16
          EQ       NOWAY                                                 DBBNOIN    17
GOAHEAD   SX7      B1                SET FLAG FOR IDEV NOT TO            DBBNOIN    18
INIT      ENDIF                                                          GHKFXDS    69
          SA7    MISSING           SEARCH FOR THE LABEL AGAIN            IRCP     4594
VAMP      MX7    0                 CLEAR FLAG SO AS TO ALLOW THE LABEL   IRCP     4595
          SA7    LABELFLG          TO BE WRITTEN                         IRCP     4596
          EQ   DEEP                GO WRITE LABEL                        IRCP     4597
                                                                         IRCP     4598
WRATH     SA1    B4+LERRT-2        GET APPROPRIATE FILL-IN               IRCP     4599
          BX7    X1                                                      IRCP     4600
          SA7    LERRI                                                   IRCP     4601
PIT       OPCOM  O,(LCKHDR,LDEVI,LREADER1,LREADER2,DVERMSG),(LDEVRB,2)   IRCP     4602
          SB3    X1                                                      IRCP     4603
          EQ   B1,B3,LEEWARD       (1) = WRITE NEW LABEL                 IRCP     4604
          ZR   B3,PIT              OTHER THAN 2 = REPEAT DISPLAY         IRCP     4605
          EQ   GRAPE               (2) = IGNORE DEVICE                   IRCP     4606
                                                                         IRCP     4607
*         CHECK IF THIS IS A PUBLIC DEVICE WITH A PRIVATE PACK           IRCP     4608
*         ALSO CLEAR PERM. FILE BIT IN EST.  IT WILL BE SET LATER        IRCP     4609
*         FOR THE ACTUAL PRIMARY PERMANENT FILE DEVICE.                  IRCP     4610
                                                                         IRCP     4611
EUREKA    SA1    ESTADR            EST ADDRESS                           IRCP     4612
          SA1    X1                EST ENTRY                             IRCP     4613
          MX2    59                                                      IRCP     4614
          LX2    55                ALL BITS EXCEPT PERM. FILE BIT        IRCP     4615
          BX6    X2*X1             CLEAR PERM. FILE BIT                  IRCP     4616
          SA6    A1                STORE EST ENTRY                       IRCP     4617
          LX1    7                 CHECK PRIVATE BIT                     IRCP     4618
          NG   X1,FLAPPER          JUMP IF PRIVATE DEVICE                IRCP     4619
          SA2    LBLADR+W.LBPRIV   CHECK PRIVATE PACK FLAG IN LABEL      IRCP     4620
          ZR   X2,FLAPPER          JUMP IF NOT A PRIVATE PACK            IRCP     4621
          SX5    LDEVS                                                   IRCP     4622
          RJ   DEVINFO             INSERT DEVICE INFORMATION             IRCP     4623
FORTUNE   OPCOM  O,(LCKHDR,LDEVI,PUBPRV1,PUBPRV2)                        IRCP     4624
          SB2    X1                                                      IRCP     4625
          EQ   B1,B2,VAMP          (1) = USE AS PUBLIC PACK              IRCP     4626
          LT   B1,B2,FREEZE        (2) = NEW PACK MOUNTED                IRCP     4627
          EQ   FORTUNE             NO OPTION ENTERED                     IRCP     4628
                                                                         IRCP     4629
*         ADD FLAW BITS FROM LABEL TO RBR S FOR THIS UNIT                FCON      228
                                                                         IRCP     4631
FLAPPER   BSS    0                                                       SC20411     1
          IFNE   IP.PFM,0                                                IRCP     4635
                                                                         IRCP     4636
*         PERMANENT FILE PROCESSING                                      IRCP     4637
                                                                         IRCP     4638
          SA1    LBLADR+W.LBPFD    GET POINTER TO PFD AND RBTC           IRCP     4639
          MX0    36                                                      IRCP     4640
          BX1    X0*X1                                                   IRCP     4641
          ZR   X1,HELLO            JUMP IF NOT PRIMARY PERM. FILE DEV.   IRCP     4642
          SA1    PFB               FIRST PFD DEVICE                      SC20411     2
          ZR   X1,FIRSTPFD         YES                                   SC20411     3
MAKEDEC   OPCOM  O,(LCKHDR,LDEVI,MULTPF1,LREADER2)                       SC20411     4
          SB3    X1                                                      SC20411     5
          EQ   B1,B3,VAMP          WRITE NEW LABEL                       SC20411     6
          ZR   B3,MAKEDEC                                                SC20411     7
          EQ   GRAPE               IGNORE DEVICE                         SC20411     8
*                                                                        SC20411     9
FIRSTPFD  RJ   PFB                 SET UP PERM. FILE FNTS,RBTS, RBRS     SC20411    10
          SX7    21B               SET PERMANENT FILE AND ACTIVE FILE    IRCP     4644
          LX7    51                BITS IN P.F. DEVICE EST ENTRY         IRCP     4645
          SA2    ESTADR                                                  IRCP     4646
          SA3    X2                                                      IRCP     4647
          BX6    X7+X3                                                   IRCP     4648
          MX4    59                ALSO CLEAR THE UNLOAD BIT             SCR320V     1
          LX4    53                                                      SCR320V     2
          BX6    X4*X6                                                   SCR320V     3
          SA6    A3                                                      IRCP     4649
          ENDIF                                                          IRCP     4652
          IFGT   IP.PFM,1                                                IRCP     4653
                                                                         IRCP     4654
*         RECOVERY CATALOG PROCESSING                                    IRCP     4655
                                                                         IRCP     4656
HELLO     SA1    ESTADR                                                  IRCP     4657
          SA1    X1                                                      IRCP     4658
          LX1    5                                                       IRCP     4659
          PL   X1,TIDY             JUMP IF NOT SYSTEM DEVICE             IRCP     4660
          SA2    CEDARGS                                                 IRCP     4661
          MX0    48                                                      IRCP     4662
          BX2    -X0*X2                                                  IRCP     4663
          SX2    X2-2                                                    IRCP     4664
          ZR   X2,TIDY             JUMP IF RECOVERY                      IRCP     4665
          NO                       ** SET UP RECOVERY CATALOGUE HERE **  IRCP     4666
          ENDIF                                                          IRCP     4667
TIDY      RJ   FLAW                                                      SC20411    11
          SA1    RBNUM                                                   SC20411    12
          RJ   SETRB                                                     SC20411    13
          EQ   RING                GO PROCESS NEXT DEVICE                SC20411    14
*                                                                        SC20411    15
          IFEQ   IP.PFM,0,1                                              IRCP     4669
HEIDI     EQ   LF                  EXIT                                  IRCP     4670
                                                                         IRCP     4671
          IFNE   IP.PFM,0                                                IRCP     4672
                                                                         IRCP     4673
*         MAKE SURE THAT A PRIMARY PERMANENT FILE DEVICE WAS             IRCP     4674
*         ENCOUNTERED, BECAUSE IF ONE WAS NOT, THERE IS NO WAY TO        IRCP     4675
*         AVOID LOSING PERMANENT INFORMATION ON OTHER DEVICES.           IRCP     4676
                                                                         IRCP     4677
HEIDI     SA1    PFB                                                     SC20411    16
          NZ   X1,LF               EXIT IF PRI. PERM. FILE DEV. FOUND    IRCP     4679
FORT      OPCOM  A,(LCKHDR,NOPFDEV)                                      IRCP     4680
          RJ   WAITGO              WAIT FOR OPERATOR TO TYPE GO          IRCP     4681
          NZ   X6,FORT                                                   IRCP     4682
          EQ   LF                  EXIT                                  IRCP     4683
          ENDIF                                                          IRCP     4684
                                                                         IRCP     4685
          IFEQ   IP.PFM,1,1                                              IRCP     4686
HELLO     EQU    TIDY                                                    IRCP     4687
          TITLE                   LABEL PROCESSING --- FLAW              IRCP     4688
*         FLAW -- INSERT BITS FROM FLAW TABLES INTO RBR S FOR DEVICE     FCON      229
                                                                         IRCP     4690
*              ENTRY - B1 = 1                                            IRCP     4691
*                      ESTORD - EST ORDINAL OF DEVICE                    FCON      230
*                      RBRADR - ADDRESS OF FIRST RBR IN CMR FOR DEVICE   FCON      231
*                      NUMRBR - NUMBER OF RBR S FOR DEVICE               FCON      232
*                      LABEL IS STORED STARTING AT LBLADR                IRCP     4693
                                                                         IRCP     4694
*              EXIT  - NOTHING IS SAVED                                  IRCP     4695
                                                                         IRCP     4696
FLAW      DATA   0                                                       IRCP     4697
          SA5    NUMRBR                                                  FCON      233
          SX6    X5-1                                                    FCON      234
MALIGN    SA1    RBRADR            ADDRESS OF FIRST RBR FOR DEVICE       FCON      235
          SA6    CURRBR            INITIALIZE RBR INDICATOR              FCON      236
          MX7    57                                                      FCON      237
          SA4    ESTORD                                                  FCON      238
                                                                         FCON      239
*         THIS CODE ASSUMES DST IMMEDIATELY FOLLOWS RBR AREA IN CMR      FCON      240
                                                                         FCON      241
          S      A3,P.RQS                                                FCON      242
          MX0    48                                                      FCON      243
          BX2    -X0*X3                                                  FCON      244
          LX2    3                                                       FCON      245
          SB5    X2                B5 = ADDR OF DST = END OF RBR AREA    FCON      246
          MX0    54                                                      FCON      247
          SB4    B1-RBRLTH                                               FCON      248
ALAS      SB4    B4+RBRLTH                                               FCON      249
          SA3    X1+B4             HEADER WD 2 OF RBR                    FCON      250
          SB6    A3-B5                                                   FCON      251
          LX3    24                                                      FCON      252
          PL   B6,FRUIT            JUMP ON END OF RBR AREA (SHOULD NOT   FCON      253
                                    OCCUR)                               FCON      254
          BX3    -X0*X3            X3 = EST ORD FROM RBR                 FCON      255
          BX2    X3-X4             COMPARE WITH EST ORD BEING PROCESSED  FCON      256
          NZ   X2,ALAS             JUMP IF NO MATCH                      FCON      257
          SA3    A3-B1             HEADER WD 1 OF RBR                    FCON      258
          LX3    21                                                      FCON      259
          BX5    -X7*X3            X5 = RBR NUMBER FROM RBR HEADER       FCON      260
          IX3    X5-X6             COMPARE WITH CURRBR                   FCON      261
          NZ   X3,ALAS             JUMP IF THIS IS NOT CORRECT RBR       FCON      262
          SX1    A3                SET X1 = START OF RBR                 FCVM001     2
FRUIT     SB3    LBLADR+W.LBFLAW+2-RBRLTH                                FCON      264
BEAT      SB3    B3+RBRLTH                                               FCON      265
          SX6    X6-1              SET B3 = ADDR OF CORRECT FLAW TABLE = FCON      266
          PL   X6,BEAT              LBLADR+W.LBFLAW+2+RBRLTH*(CURRBR)    FCON      267
          SB4    B0                                                      IRCP     4700
          SB5    RBRLTH-2          LENGTH OF FLAW TABLE                  IRCP     4701
          SA2    X1+B1             2ND WORD OF RBR HEADER                IRCP     4702
          LX2    48                LOGICAL AVAILABILITY                  IRCP     4703
          BX7    X2                                                      IRCP     4704
          SX2    A2+B1             FWA OF RBR BITS                       IRCP     4705
          SB6    B5-4              NUMBER OF WORDS BEFORE TAILS          IRCP     4706
          SA1    TAILBITS          BITS USED IN TAIL WORDS               IRCP     4707
SLY       SA3    B3+B4             GET WORD OF FLAW TABLE                IRCP     4708
          SA4    X2+B4             AND CORRESPONDING RBR WORD            IRCP     4709
          BX5    X3-X4             ISOLATE BITS IN FLAW TABLE            IRCP     4710
          BX5    X3*X5             BUT NOT IN RBR                        IRCP     4711
          LT   B4,B6,DING          JUMP IF NOT IN TAIL WORDS             IRCP     4712
          BX5    X1*X5             CERTAIN BITS IN TAIL ARE NEVER USED   IRCP     4713
DING      BX6    X4+X5             ADD BITS TO RBR WORD AND STORE        IRCP     4714
          SA6    A4                                                      IRCP     4715
          CX4    X5                NUMBER OF BITS IN THIS WORD           IRCP     4716
          BX3    X4                POSITION FOR BOTH PHYSICAL AND        IRCP     4717
          LX4    12                LOGICAL AVAILABILITY                  IRCP     4718
          IX4    X3+X4                                                   IRCP     4719
          IX7    X7-X4             REDUCE PHYSICAL AND LOGICAL AVAIL.    IRCP     4720
          SB4    B4+B1             ADVANCE TO NEXT WORD                  IRCP     4721
          LT   B4,B5,SLY           LOOP THRU ALL OF RBR                  IRCP     4722
          LX7    12                STORE LOG. AND PHY. AVAILABILITY      IRCP     4723
          SA7    A2                                                      IRCP     4724
          SA4    CURRBR                                                  FCON      268
          SX6    X4-1              DECREMENT RBR INDICATOR               FCON      269
          PL   X6,MALIGN           JUMP IF MORE RBR S FOR DEVICE         FCON      270
          EQ   FLAW                EXIT                                  IRCP     4725
          TITLE                   LABEL PROCESSING --- IDEV              IRCP     4726
*         IDEV -- INITIALIZE A DEVICE                                    IRCP     4727
*                 HANDLES LABEL WRITING FOR ALL DEVICES AND SETTING      IRCP     4728
*                 UP OF AN INITIAL PFD AND RBTC FOR THE PRIMARY          IRCP     4729
*                 PERMANENT FILE DEVICE, IF THERE IS TO BE ONE.          IRCP     4730
                                                                         IRCP     4731
*                 IF THERE IS MORE THAN ONE RBR FOR THE DEVICE, ONLY     FCON      271
*                 THE FIRST ONE IN CMR IS CONSIDERED FOR READING         FCON      272
*                 AND WRITING OF LABELS.                                 FCON      273
*              ENTRY - B1 = 1                                            IRCP     4732
*                      ESTORD = EST ORDINAL OF DEVICE                    IRCP     4733
*                      ESTADR = ADDRESS OF EST ENTRY                     IRCP     4734
*                      RBRORD = RBR ORDINAL OF DEVICE                    IRCP     4735
*                      RBRADR = FWA OF RBR FOR DEVICE                    IRCP     4736
                                                                         IRCP     4737
IDEV      DATA   0                                                       IRCP     4738
          SA1    LABELFLG          CHECK IF WE HAVE BEEN TOLD BY         IRCP     4739
          LX1    59                OPERATOR NOT TO WRITE LABELS          IRCP     4740
          MX7    0                                                       IRCP     4741
          NG   X1,IDEV             EXIT IF SO                            IRCP     4742
                                                                         IRCP     4743
*         FIND OUT IF THERE IS ALREADY A LABEL ON THE DEVICE.            IRCP     4744
*         IF SO, ITS CONTENTS WILL BE USED AS DEFAULT LABEL INFORMATION. IRCP     4745
                                                                         IRCP     4746
INIT      IFNE     INITDS,0                                              JEEOOPS     1
          SA2      MAKEUP          SEE IF OLD LABEL TO BE IGNORED        JEEYES     22
          NZ       X2,CONCEDE      JUMP IF SO                            JEEYES     23
          SX6      B0                                                    JEEYES     24
          SA6      NOLABEL         CLEAR BAD LABEL FLAG                  JEEYES     25
INIT      ENDIF                                                          JEEOOPS     2
          SA2    MISSING           IF LABEL WAS SEARCHED FOR IN LF,      IRCP     4747
          SA7    A2                THEN DO NOT SEARCH AGAIN HERE         IRCP     4748
          NZ   X2,CONCEDE          JUMP IF ALREADY KNOWN NO LABEL        IRCP     4749
          MX7    59                INITIALIZE FOR RB SEARCH              IRCP     4750
          SA7    RBNUM                                                   IRCP     4751
          RJ   GETRB               FIND 1ST FREE RB                      IRCP     4752
          SX4    RBLIM             SET TO SEARCH TO RB LIMIT             IRCP     4753
          RJ   RDLBL               READ LABEL                            IRCP     4754
          NZ   X4,CONCEDE          JUMP IF NO GOOD LABEL WAS FOUND       IRCP     4755
                                                                         IRCP     4756
*         AN ERROR FREE LABEL HAS BEEN FOUND.  NOW CHECK IF THIS IS A    IRCP     4757
*         PRIVATE PACK.  IF SO, GIVE OPERATOR THE OPTION TO WRITE        IRCP     4758
*         ON IT ANYWAY, IF HE SO DESIRES.                                IRCP     4759
                                                                         IRCP     4760
          SA2    LBLADR+W.LBPRIV                                         IRCP     4761
          ZR   X2,HABIT            JUMP IF NOT PRIVATE PACK              IRCP     4762
          SA1    CEDARGS           IF THIS IS NOT AN INITIALIZATION-TYPE IRCP     4763
          MX0    48                DEAD-START, MAKE THIS A PUBLIC        IRCP     4764
          BX1    -X0*X1            PACK AUTOMATICALLY, SINCE OPERATOR    IRCP     4765
          SB2    B1                HAS ALREADY SHOWN SUCH A DESIRE       IRCP     4766
          MX7    0                                                       IRCP     4767
          NZ   X1,MARKET                                                 IRCP     4768
          SX5    LDEVS             GO SET UP DEVICE INFORMATION          IRCP     4769
          RJ   DEVINFO                                                   IRCP     4770
AMATEUR   OPCOM  O,(LCKHDR,LDEVI,PRIVM1,PRIVM2)                          IRCP     4771
          SB2    X1                                                      IRCP     4772
          MX7    0                                                       IRCP     4773
          LT   B2,B1,AMATEUR       (0) = NO OPTION ENTERED               IRCP     4774
MARKET    EQ   B1,B2,FROG          (1) = WRITE PUBLIC LABEL              SCQ320G     3
*                                  (2) = KEEP AS PRIVATE PACK            SCQ320G     4
          SA1    ESTADR            EST ADDRESS                           SCQ320G     5
          MX3    1                                                       SCQ320G     6
          SA1    X1                EST ENTRY                             SCQ320G     7
          LX3    52+1              POSITION TO BIT 52                    SCQ320G     8
          BX6    X1+X3             SET PRIVATE BIT                       SCQ320G     9
          SA6    A1                RESTORE EST ENTRY                     SCQ320G    10
          EQ   IDEV                                                      SCQ320G    11
          SPACE  1                                                       SCQ320G    12
FROG      SA7    LBLADR+W.LBPRIV   SET FLAG FOR PUBLIC LABEL             SCQ320G    13
                                                                         IRCP     4778
*         PICKUP VARIABLE INFORMATION IN LABEL AND PUT IT IN DISPLAY     IRCP     4779
*         FOR OPERATOR TO SEE WHAT WILL GO IN LABEL.                     IRCP     4780
                                                                         IRCP     4781
HABIT     MX0    24                SET UP MESSAGE SHOWING LOC OF LABEL   IRCP     4782
          SX5    B6                RB NUMBER OF LABEL                    IRCP     4783
          RJ   CNVTBTO             CONVERT TO OCTAL DISPLAY              IRCP     4784
          LX6    36                                                      IRCP     4785
          BX2    X0*X6             RB NUMBER IN POSITION                 IRCP     4786
          SA1    LBYY              1ST WORD OF LABEL MESSAGE             IRCP     4787
          SX5    B5                PRU NUMBER OF LABEL                   IRCP     4788
          MX7    48                                                      IRCP     4789
          RJ   CNVTBTO             CONVERT TO OCTAL DISPLAY              IRCP     4790
          BX6    -X7*X6            PRU NUMBER IN POSITION                IRCP     4791
          SA3    A1+B1             2ND WORD OF LABEL MESSAGE             IRCP     4792
          BX2    X2+X3             INSERT RB NUMBER                      IRCP     4793
          BX2    X2+X6             INSERT PRU NUMBER                     IRCP     4794
          EQ   SHADOW                                                    IRCP     4795
                                                                         IRCP     4796
*         NO LABEL WAS FOUND, SO SET UP A LABEL FROM DEFAULT VALUES.     IRCP     4797
                                                                         IRCP     4798
CONCEDE   SA1    LABELWD1          STORE ID, DATE, VISUAL ID             IRCP     4799
          SA2    LABELWD2                                                IRCP     4800
          BX6    X1                                                      IRCP     4801
          BX7    X2                                                      IRCP     4802
          SA6    LBLADR                                                  IRCP     4803
          SA7    A6+B1                                                   IRCP     4804
          SA1    LBLSIZ            GET LABEL SIZE AS FIGURED IN LAST     FCON      274
                                    CALL TO RDLBL                        FCON      275
          SB3    X1                                                      FCON      276
          SB2    A6+B3             CLEAR REMAINING WORDS OF LABEL        FCON      277
          MX7    0                                                       IRCP     4806
PARTAKE   SA7    A7+B1                                                   IRCP     4807
          SB3    A7-B2                                                   IRCP     4808
          NG   B3,PARTAKE          LOOP UNTIL CLEARING DONE              IRCP     4809
          SA1    LBNN              INSERT *NO LABEL FOUND*               IRCP     4810
          SX7      1                                                     JEEYES     26
          SA7      NOLABEL         FLAG LABEL AS BAD OR MISSING          JEEYES     27
          SA2    A1+B1                                                   IRCP     4811
                                                                         IRCP     4812
*         THE FOLLOWING IS THE SAME WHETHER OR NOT A LABEL WAS FOUND     IRCP     4813
*         FIRST CHECK IF LABELS ARE BEING WRITTEN AUTOMATICALLY          IRCP     4814
*         (THAT IS, OPERATOR HAS TYPED --ALL--)                          IRCP     4815
                                                                         IRCP     4816
SHADOW    BX6    X1                INSERT MESSAGE INDICATING IF          IRCP     4817
          BX7    X2                LABEL IS PRESENT AND, IF SO, THE      IRCP     4818
          SA6    LBYN              LOCATION OF THE LABEL                 IRCP     4819
          SA7    A6+B1                                                   IRCP     4820
INIT      IFNE     INITDS,0                                              JEEOOPS     3
          SA2      NOLABEL                                               JEEYES     28
          NZ       X2,JACQUES      JUMP IF LABEL BAD OR MISSING          JEEYES     29
          SA2    LABELFLG                                                IRCP     4821
          LX2    58                                                      IRCP     4822
          NG   X2,REWARD           JUMP IF TO SKIP OPERATOR OPTIONS      IRCP     4823
JACQUES   SA2      DEFCHK                                                JEEYES     30
          NZ       X2,SCRUB                                              JEEYES     31
INIT      ENDIF                                                          JEEOOPS     4
          SX5    LBDEV             GO GET DEVICE INFORMATION FROM EST    IRCP     4824
          RJ   DEVINFO                                                   IRCP     4825
          SA1    LBLADR+W.LBDATE   GET DATE FROM LABEL                   IRCP     4826
          RJ   DATEFJ              CONVERT FROM JULIAN                   IRCP     4827
          RJ   LDATE               PUT IN MESSAGE                        IRCP     4828
          SA1    LBLADR+W.LBVID    GET LABEL VISUAL ID                   IRCP     4829
          RJ   LVID                PUT IT IN MESSAGE                     IRCP     4830
          MX3    18                INDICATE WHETHER OR NOT THIS IS       IRCP     4831
          SX7    3HNO              PRIMARY PERMANENT FILE DEVICE         IRCP     4832
          IFNE   IP.PFM,0                                                IRCP     4833
          SA1    LBLADR+W.LBPFD    GET PFD/RBTC POINTER                  IRCP     4834
          MX0    36                                                      IRCP     4835
          BX1    X0*X1                                                   IRCP     4836
          ZR   X1,WAGE             JUMP IF NOT PERM. FILE DEVICE         IRCP     4837
          SX7    3HYES                                                   IRCP     4838
          ENDIF                                                          IRCP     4839
WAGE      SA2    LBPF              INSERT *YES* OR *NO *                 IRCP     4840
          LX3    42                IN MESSAGE AREA                       IRCP     4841
          BX2    -X3*X2                                                  IRCP     4842
          LX7    24                                                      IRCP     4843
          IX7    X7+X2                                                   IRCP     4844
          SA7    A2                                                      IRCP     4845
          SA4    NUMRBR                                                  FCON      278
          SX4    X4-1                                                    FCON      279
          SB2    LRBR3-LRBR2-1                                           FCON      280
          SB3    LRBR2-LRBR1-1                                           FCON      281
          ZR   X4,CARTON           JUMP IF NOT A MULTIPLE RBR DEVICE     FCON      282
          SA2    LRBR1             FOR MULTIPLE RBR DEVICES              FCON      283
          BX7    X2                 STORE *FT,N* MESSAGE                 FCON      284
          SA7    LBM1+1                                                  FCON      285
SILVER    SA2    A2+B1                                                   FCON      286
          BX7    X2                                                      FCON      287
          SA7    A7+B1                                                   FCON      288
          SB3    B3-B1                                                   FCON      289
          GE   B3,B1,SILVER        LOOP UNTIL MESSAGE STORED             FCON      290
          SA2    LRBR2             ALSO STORE *+ OR -* MESSAGE           FCON      291
          BX7    X2                                                      FCON      292
          SA7    LBM2+1                                                  FCON      293
CROSS     SA2    A2+B1                                                   FCON      294
          BX7    X2                                                      FCON      295
          SA7    A7+B1                                                   FCON      296
          SB2    B2-B1                                                   FCON      297
          GE   B2,B1,CROSS         LOOP UNTIL MESSAGE STORED             FCON      298
          EQ   SCRUB                                                     FCON      299
CARTON    SA2    BLANKS            BLANK OUT MESSGES FOR DEVICES WITH    FCON      300
                                    ONE RBR                              FCON      301
          MX0    48                                                      FCON      302
          BX6    X0*X2             PUT TERMINATING ZEROES IN LAST BYTE   FCON      303
          BX7    X2                                                      FCON      304
          SA6    LBM1+1+B3         STORE LAST BYTE                       FCON      305
          SB3    B3-B1                                                   FCON      306
GOLD      SA7    LBM1+1+B3                                               FCON      307
          SB3    B3-B1                                                   FCON      308
          PL   B3,GOLD             LOOP UNTIL REST OF MESSAGE ERASED     FCON      309
          SA6    LBM2+1+B2         STORE LAST BYTE                       FCON      310
          SB2    B2-B1                                                   FCON      311
BULDGE    SA7    LBM2+1+B2                                               FCON      312
          SB2    B2-B1                                                   FCON      313
          PL   B2,BULDGE           LOOP UNTIL MESSAGE ERASED             FCON      314
SCRUB     BSS       0                                                    GHKDSFX     3
INIT      IFNE      INITDS,0                                             GHKDSFX     4
PFM       IFNE      IP.PFM,0                                             GHKDSFX     5
          SA2      ESTORD          GET EST ORDINAL                       JEEIRCP     1
          SB3      X2                                                    JEEIRCP     2
          SA2      B3+FTADDR-1     GET ADDRESS OF PROPER FLAW TABLE      JEEIRCP     3
          RJ       AUTOFLW         GO FLAW THE BAD SPOTS                 JEEIRCP     4
          SA2      FIRSTIM         SEE IF WE HAVE ASKED OPERATOR YET     JEEIRCP     5
          NZ       X2,YESCHEK      JUMP IF WE HAVE                       JEEIRCP     6
          SX2      PFYES                                                 JEEPFDV     1
          RJ       AUTOFLW         DO A *PF,YES* FOR FIRST DEVICE        JEEPFDV     2
          OPCOM     A,(DEFHED,DUMHED) ASK FOR DEFAULT SEQUENCE           GHKDSFX     6
          SX7      B1                                                    JEEIRCP     7
          SA7      FIRSTIM                                               JEEIRCP     8
          SA2       ITSOK                                                GHKDSFX     7
          BX2       X2-X1                                                GHKDSFX     8
          MX7       0              INITIALIZE RBR (FLAW TABLE) INDICATOR GHKDSFX     9
          ZR        X2,DEFLAB      TO DEFLAB IF HE TYPED YES             GHKDSFX    10
          SA2      =10H            TREAT CR AS YES                       JEEYES     32
          BX2      X2-X1                                                 JEEYES     33
          ZR       X2,DEFLAB       JUMP IF CR                            JEEYES     34
YESCHEK   SA2      DEFCHK          SEE IF  *YES*  WAS TYPED IN BEFORE    JEEIRCP     9
          NZ       X2,DEFLAB       JUMP IF SO                            JEEIRCP    10
PFM       ENDIF                                                          GHKDSFX    11
INIT      ENDIF                                                          GHKDSFX    12
          SA5    ZROFIL                                                  FCON      316
          BX6    X5                                                      FCON      317
GATHER    SA7    CURRBR            SAVE NO. OF RBR NOW DISPLAYED         FCON      318
          SA6    FLAWRBR           SAVE OCTAL FORM                       FCON      319
BYGONE    SA1      AUTOFLG         SEE IF FLAWING BY DEFAULT             JEEIRCP    11
          NZ       X1,NINA         JUMP IF SO                            JEEIRCP    12
          SA1      BLANKS          CLEAR ERROR INDICATOR IN MESSAGE      JEEIRCP    13
          BX7    X1                                                      IRCP     4847
          SA7    LBERR                                                   IRCP     4848
ANCIENT   RJ   LFLAWS              GO SET UP DISPLAY OF FLAW TABLE       IRCP     4849
                                                                         IRCP     4850
*         DISPLAY MESSAGE AND PROCESS OPTIONS FOR LABEL WRITING          IRCP     4851
                                                                         IRCP     4852
          OPCOM  A,(LWRHDR,LBINFO,FLAWMES),(FLAWRBR,2)                   FCON      320
                                                                         IRCP     4854
*         DETERMINE THE OPTION THAT WAS ENTERED                          IRCP     4855
INIT      IFNE   INITDS,0                                                GHKFXDS    71
          IFNE     IP.PFM,0,2                                            DBBIONL    59
          SX6      0                                                     DBBIONL    60
          SA6      DEFCHK                                                DBBIONL    61
INIT      ENDIF                                                          GHKFXDS    72
                                                                         IRCP     4856
SKEEZIX   SA4      LBLTBL-1        INITIALIZE TABLE SEARCH ADDRESS       JEEIRCP    14
PIONEER   SA3    A4+B1             GET TABLE ENTRY                       IRCP     4858
          SA4    A3+B1             GET MASK FOR THIS ENTRY               IRCP     4859
          ZR   X3,PROVOKE          JUMP IF INPUT NOT RECOGNIZED          IRCP     4860
          BX5    X3-X1             COMPARE THIS ENTRY WITH TYPEIN        IRCP     4861
          BX5    X4*X5             MASK OUT WHAT WE CAN NOT CHECK        IRCP     4862
          SB3    X3                ADDRESS OF ROUTINE FOR THIS OPTION    IRCP     4863
          NZ   X5,PIONEER          LOOP ON MISS                          IRCP     4864
          JP   B3                  GO TO ROUTINE FOR THIS OPTION         IRCP     4865
                                                                         IRCP     4866
FIRSTIM   DATA     0                                                     JEEIRCP    15
NOLABEL   DATA     0                                                     JEEYES     35
SAVETBL   BSS      1               CURRENT POSITION IN FLAW TABLE        JEEIRCP    16
AUTOFLG   BSS      1               FLAG FOR DEFAULT FLAWING              JEEIRCP    17
*                                                                        JEEIRCP    18
FTADDR    VFD      60/EST01                                              JEEIRCP    19
          VFD      60/EST02                                              JEEIRCP    20
          VFD      60/EST03                                              JEEIRCP    21
          VFD      60/EST04                                              JEEIRCP    22
*                                                                        JEEIRCP    23
*         EACH OF THE FOLLOWING TABLES CONTAINS THE DEFAULT TYPE-INS     JEEIRCP    24
*         FOR ITS CORRESPONDING EST ORDINAL.                             JEEIRCP    25
*                                                                        JEEIRCP    26
EST01     BSS      0                                                     JEEIRCP    27
          VFD    24/4HVID,,36/6H_"VRN"                                   JEEYES     36
*        CE AREA, 808 UNIT 0. (2 INNERMOST CYLS.)                        RJDFLAW     1
          VFD      60/10HFLAW,7401                                       RJDFLAW     2
          VFD      60/10HFLAW,7403                                       RJDFLAW     3
          VFD      60/10HFLAW,7405                                       RJDFLAW     4
          VFD      60/10HFLAW,7407                                       RJDFLAW     5
          VFD      60/10HFLAW,7411                                       RJDFLAW     6
          VFD      60/10HFLAW,7413                                       RJDFLAW     7
          VFD      60/10HFLAW,7415                                       RJDFLAW     8
          VFD      60/10HFLAW,7417                                       RJDFLAW     9
          VFD      60/10HFLAW,7421                                       RJDFLAW    10
          VFD      60/10HFLAW,7423                                       RJDFLAW    11
          VFD      60/10HFLAW,7425                                       RJDFLAW    12
          VFD      60/10HFLAW,7427                                       RJDFLAW    13
          VFD      60/10HFLAW,7431                                       RJDFLAW    14
          VFD      60/10HFLAW,7433                                       RJDFLAW    15
          VFD      60/10HFLAW,7435                                       RJDFLAW    16
          VFD      60/10HFLAW,7437                                       RJDFLAW    17
          VFD      60/10HFLAW,7441                                       RJDFLAW    18
          VFD      60/10HFLAW,7443                                       RJDFLAW    19
          VFD      60/10HFLAW,7445                                       RJDFLAW    20
          VFD      60/10HFLAW,7447                                       RJDFLAW    21
          VFD      60/10HFLAW,7451                                       RJDFLAW    22
          VFD      60/10HFLAW,7453                                       RJDFLAW    23
          VFD      60/10HFLAW,7455                                       RJDFLAW    24
          VFD      60/10HFLAW,7457                                       RJDFLAW    25
          VFD      60/10HFLAW,7461                                       RJDFLAW    26
          VFD      60/10HFLAW,7463                                       RJDFLAW    27
          VFD      60/10HFLAW,7465                                       RJDFLAW    28
          VFD      60/10HFLAW,7467                                       RJDFLAW    29
          VFD      60/10HFLAW,7471                                       RJDFLAW    30
          VFD      60/10HFLAW,7473                                       RJDFLAW    31
          VFD      60/10HFLAW,7475                                       RJDFLAW    32
          VFD      60/10HFLAW,7477                                       RJDFLAW    33
          VFD      60/10HFLAW,7501                                       RJDFLAW    34
          VFD      60/10HFLAW,7503                                       RJDFLAW    35
          VFD      60/10HFLAW,7505                                       RJDFLAW    36
          VFD      60/10HFLAW,7507                                       RJDFLAW    37
          VFD      60/10HFLAW,7511                                       RJDFLAW    38
          VFD      60/10HFLAW,7513                                       RJDFLAW    39
          VFD      60/10HFLAW,7515                                       RJDFLAW    40
          VFD      60/10HFLAW,7517                                       RJDFLAW    41
          VFD      60/10HFLAW,7521                                       RJDFLAW    42
          VFD      60/10HFLAW,7523                                       RJDFLAW    43
          VFD      60/10HFLAW,7525                                       RJDFLAW    44
          VFD      60/10HFLAW,7527                                       RJDFLAW    45
          VFD      60/10HFLAW,7531                                       RJDFLAW    46
          VFD      60/10HFLAW,7533                                       RJDFLAW    47
          VFD      60/10HFLAW,7535                                       RJDFLAW    48
          VFD      60/10HFLAW,7537                                       RJDFLAW    49
          VFD      60/10HFLAW,7541                                       RJDFLAW    50
          VFD      60/10HFLAW,7543                                       RJDFLAW    51
          VFD      60/10HFLAW,7545                                       RJDFLAW    52
          VFD      60/10HFLAW,7547                                       RJDFLAW    53
          VFD      60/10HFLAW,7551                                       RJDFLAW    54
          VFD      60/10HFLAW,7553                                       RJDFLAW    55
          VFD      60/10HFLAW,7555                                       RJDFLAW    56
          VFD      60/10HFLAW,7557                                       RJDFLAW    57
          VFD      60/10HFLAW,7561                                       RJDFLAW    58
          VFD      60/10HFLAW,7563                                       RJDFLAW    59
          VFD      60/10HFLAW,7565                                       RJDFLAW    60
          VFD      60/10HFLAW,7567                                       RJDFLAW    61
          VFD      60/10HFLAW,7571                                       RJDFLAW    62
          VFD      60/10HFLAW,7573                                       RJDFLAW    63
          VFD      60/10HFLAW,7575                                       RJDFLAW    64
          VFD      60/10HFLAW,7577                                       RJDFLAW    65
          VFD      60/10HFLAW,7601                                       RJDFLAW    66
          VFD      60/10HFLAW,7603                                       RJDFLAW    67
          VFD      60/10HFLAW,7605                                       RJDFLAW    68
          VFD      60/10HFLAW,7607                                       RJDFLAW    69
          VFD      60/10HFLAW,7611                                       RJDFLAW    70
          VFD      60/10HFLAW,7613                                       RJDFLAW    71
          VFD      60/10HFLAW,7615                                       RJDFLAW    72
          VFD      60/10HFLAW,7617                                       RJDFLAW    73
          VFD      60/10HFLAW,7621                                       RJDFLAW    74
          VFD      60/10HFLAW,7623                                       RJDFLAW    75
          VFD      60/10HFLAW,7625                                       RJDFLAW    76
          VFD      60/10HFLAW,7627                                       RJDFLAW    77
          VFD      60/10HFLAW,7631                                       RJDFLAW    78
          VFD      60/10HFLAW,7633                                       RJDFLAW    79
          VFD      60/10HFLAW,7635                                       RJDFLAW    80
          VFD      60/10HFLAW,7637                                       RJDFLAW    81
          VFD      60/10HFLAW,7641                                       RJDFLAW    82
          VFD      60/10HFLAW,7643                                       RJDFLAW    83
          VFD      60/10HFLAW,7645                                       RJDFLAW    84
          VFD      60/10HFLAW,7647                                       RJDFLAW    85
          VFD      60/10HFLAW,7651                                       RJDFLAW    86
          VFD      60/10HFLAW,7653                                       RJDFLAW    87
          VFD      60/10HFLAW,7655                                       RJDFLAW    88
          VFD      60/10HFLAW,7657                                       RJDFLAW    89
          VFD      60/10HFLAW,7661                                       RJDFLAW    90
          VFD      60/10HFLAW,7663                                       RJDFLAW    91
          VFD      60/10HFLAW,7665                                       RJDFLAW    92
          VFD      60/10HFLAW,7667                                       RJDFLAW    93
          VFD      60/10HFLAW,7671                                       RJDFLAW    94
          VFD      60/10HFLAW,7673                                       RJDFLAW    95
          VFD      60/10HFLAW,7675                                       RJDFLAW    96
          VFD      60/10HFLAW,7677                                       RJDFLAW    97
          VFD      60/10HFLAW,7701                                       RJDFLAW    98
          VFD      60/10HFLAW,7703                                       RJDFLAW    99
          VFD      60/10HFLAW,7705                                       RJDFLAW   100
          VFD      60/10HFLAW,7707                                       RJDFLAW   101
          VFD      60/10HFLAW,7711                                       RJDFLAW   102
          VFD      60/10HFLAW,7713                                       RJDFLAW   103
          VFD      60/10HFLAW,7715                                       RJDFLAW   104
          VFD      60/10HFLAW,7717                                       RJDFLAW   105
          VFD      60/10HFLAW,7721                                       RJDFLAW   106
          VFD      60/10HFLAW,7723                                       RJDFLAW   107
          VFD      60/10HFLAW,7725                                       RJDFLAW   108
          VFD      60/10HFLAW,7727                                       RJDFLAW   109
          VFD      60/10HFLAW,7731                                       RJDFLAW   110
          VFD      60/10HFLAW,7733                                       RJDFLAW   111
          VFD      60/10HFLAW,7735                                       RJDFLAW   112
          VFD      60/10HFLAW,7737                                       RJDFLAW   113
          VFD      60/10HFLAW,7741                                       RJDFLAW   114
          VFD      60/10HFLAW,7743                                       RJDFLAW   115
          VFD      60/10HFLAW,7745                                       RJDFLAW   116
          VFD      60/10HFLAW,7747                                       RJDFLAW   117
          VFD      60/10HFLAW,7751                                       RJDFLAW   118
          VFD      60/10HFLAW,7753                                       RJDFLAW   119
          VFD      60/10HFLAW,7755                                       RJDFLAW   120
          VFD      60/10HFLAW,7757                                       RJDFLAW   121
          VFD      60/10HFLAW,7761                                       RJDFLAW   122
          VFD      60/10HFLAW,7763                                       RJDFLAW   123
          VFD      60/10HFLAW,7765                                       RJDFLAW   124
          VFD      60/10HFLAW,7767                                       RJDFLAW   125
          VFD      60/10HFLAW,7771                                       RJDFLAW   126
          VFD      60/10HFLAW,7773                                       RJDFLAW   127
          VFD      60/10HFLAW,7775                                       RJDFLAW   128
          VFD      60/10HFLAW,7777                                       RJDFLAW   129
          DATA     0                                                     JEEIRCP    29
EST02     BSS      0                                                     JEEIRCP    30
          VFD    24/4HVID,,36/6H_"VRN"                                   JEEYES     37
          VFD      60/10HPF,NO                                           JEEPFDV     3
          VFD      60/10HFLAW,6237                                       JEEIRCP    32
*        CE AREA, 808 UNIT 1. (2 INNERMOST CYLS.)                        RJDFLAW   130
          VFD      60/10HFLAW,7401                                       RJDFLAW   131
          VFD      60/10HFLAW,7403                                       RJDFLAW   132
          VFD      60/10HFLAW,7405                                       RJDFLAW   133
          VFD      60/10HFLAW,7407                                       RJDFLAW   134
          VFD      60/10HFLAW,7411                                       RJDFLAW   135
          VFD      60/10HFLAW,7413                                       RJDFLAW   136
          VFD      60/10HFLAW,7415                                       RJDFLAW   137
          VFD      60/10HFLAW,7417                                       RJDFLAW   138
          VFD      60/10HFLAW,7421                                       RJDFLAW   139
          VFD      60/10HFLAW,7423                                       RJDFLAW   140
          VFD      60/10HFLAW,7425                                       RJDFLAW   141
          VFD      60/10HFLAW,7427                                       RJDFLAW   142
          VFD      60/10HFLAW,7431                                       RJDFLAW   143
          VFD      60/10HFLAW,7433                                       RJDFLAW   144
          VFD      60/10HFLAW,7435                                       RJDFLAW   145
          VFD      60/10HFLAW,7437                                       RJDFLAW   146
          VFD      60/10HFLAW,7441                                       RJDFLAW   147
          VFD      60/10HFLAW,7443                                       RJDFLAW   148
          VFD      60/10HFLAW,7445                                       RJDFLAW   149
          VFD      60/10HFLAW,7447                                       RJDFLAW   150
          VFD      60/10HFLAW,7451                                       RJDFLAW   151
          VFD      60/10HFLAW,7453                                       RJDFLAW   152
          VFD      60/10HFLAW,7455                                       RJDFLAW   153
          VFD      60/10HFLAW,7457                                       RJDFLAW   154
          VFD      60/10HFLAW,7461                                       RJDFLAW   155
          VFD      60/10HFLAW,7463                                       RJDFLAW   156
          VFD      60/10HFLAW,7465                                       RJDFLAW   157
          VFD      60/10HFLAW,7467                                       RJDFLAW   158
          VFD      60/10HFLAW,7471                                       RJDFLAW   159
          VFD      60/10HFLAW,7473                                       RJDFLAW   160
          VFD      60/10HFLAW,7475                                       RJDFLAW   161
          VFD      60/10HFLAW,7477                                       RJDFLAW   162
          VFD      60/10HFLAW,7501                                       RJDFLAW   163
          VFD      60/10HFLAW,7503                                       RJDFLAW   164
          VFD      60/10HFLAW,7505                                       RJDFLAW   165
          VFD      60/10HFLAW,7507                                       RJDFLAW   166
          VFD      60/10HFLAW,7511                                       RJDFLAW   167
          VFD      60/10HFLAW,7513                                       RJDFLAW   168
          VFD      60/10HFLAW,7515                                       RJDFLAW   169
          VFD      60/10HFLAW,7517                                       RJDFLAW   170
          VFD      60/10HFLAW,7521                                       RJDFLAW   171
          VFD      60/10HFLAW,7523                                       RJDFLAW   172
          VFD      60/10HFLAW,7525                                       RJDFLAW   173
          VFD      60/10HFLAW,7527                                       RJDFLAW   174
          VFD      60/10HFLAW,7531                                       RJDFLAW   175
          VFD      60/10HFLAW,7533                                       RJDFLAW   176
          VFD      60/10HFLAW,7535                                       RJDFLAW   177
          VFD      60/10HFLAW,7537                                       RJDFLAW   178
          VFD      60/10HFLAW,7541                                       RJDFLAW   179
          VFD      60/10HFLAW,7543                                       RJDFLAW   180
          VFD      60/10HFLAW,7545                                       RJDFLAW   181
          VFD      60/10HFLAW,7547                                       RJDFLAW   182
          VFD      60/10HFLAW,7551                                       RJDFLAW   183
          VFD      60/10HFLAW,7553                                       RJDFLAW   184
          VFD      60/10HFLAW,7555                                       RJDFLAW   185
          VFD      60/10HFLAW,7557                                       RJDFLAW   186
          VFD      60/10HFLAW,7561                                       RJDFLAW   187
          VFD      60/10HFLAW,7563                                       RJDFLAW   188
          VFD      60/10HFLAW,7565                                       RJDFLAW   189
          VFD      60/10HFLAW,7567                                       RJDFLAW   190
          VFD      60/10HFLAW,7571                                       RJDFLAW   191
          VFD      60/10HFLAW,7573                                       RJDFLAW   192
          VFD      60/10HFLAW,7575                                       RJDFLAW   193
          VFD      60/10HFLAW,7577                                       RJDFLAW   194
          VFD      60/10HFLAW,7601                                       RJDFLAW   195
          VFD      60/10HFLAW,7603                                       RJDFLAW   196
          VFD      60/10HFLAW,7605                                       RJDFLAW   197
          VFD      60/10HFLAW,7607                                       RJDFLAW   198
          VFD      60/10HFLAW,7611                                       RJDFLAW   199
          VFD      60/10HFLAW,7613                                       RJDFLAW   200
          VFD      60/10HFLAW,7615                                       RJDFLAW   201
          VFD      60/10HFLAW,7617                                       RJDFLAW   202
          VFD      60/10HFLAW,7621                                       RJDFLAW   203
          VFD      60/10HFLAW,7623                                       RJDFLAW   204
          VFD      60/10HFLAW,7625                                       RJDFLAW   205
          VFD      60/10HFLAW,7627                                       RJDFLAW   206
          VFD      60/10HFLAW,7631                                       RJDFLAW   207
          VFD      60/10HFLAW,7633                                       RJDFLAW   208
          VFD      60/10HFLAW,7635                                       RJDFLAW   209
          VFD      60/10HFLAW,7637                                       RJDFLAW   210
          VFD      60/10HFLAW,7641                                       RJDFLAW   211
          VFD      60/10HFLAW,7643                                       RJDFLAW   212
          VFD      60/10HFLAW,7645                                       RJDFLAW   213
          VFD      60/10HFLAW,7647                                       RJDFLAW   214
          VFD      60/10HFLAW,7651                                       RJDFLAW   215
          VFD      60/10HFLAW,7653                                       RJDFLAW   216
          VFD      60/10HFLAW,7655                                       RJDFLAW   217
          VFD      60/10HFLAW,7657                                       RJDFLAW   218
          VFD      60/10HFLAW,7661                                       RJDFLAW   219
          VFD      60/10HFLAW,7663                                       RJDFLAW   220
          VFD      60/10HFLAW,7665                                       RJDFLAW   221
          VFD      60/10HFLAW,7667                                       RJDFLAW   222
          VFD      60/10HFLAW,7671                                       RJDFLAW   223
          VFD      60/10HFLAW,7673                                       RJDFLAW   224
          VFD      60/10HFLAW,7675                                       RJDFLAW   225
          VFD      60/10HFLAW,7677                                       RJDFLAW   226
          VFD      60/10HFLAW,7701                                       RJDFLAW   227
          VFD      60/10HFLAW,7703                                       RJDFLAW   228
          VFD      60/10HFLAW,7705                                       RJDFLAW   229
          VFD      60/10HFLAW,7707                                       RJDFLAW   230
          VFD      60/10HFLAW,7711                                       RJDFLAW   231
          VFD      60/10HFLAW,7713                                       RJDFLAW   232
          VFD      60/10HFLAW,7715                                       RJDFLAW   233
          VFD      60/10HFLAW,7717                                       RJDFLAW   234
          VFD      60/10HFLAW,7721                                       RJDFLAW   235
          VFD      60/10HFLAW,7723                                       RJDFLAW   236
          VFD      60/10HFLAW,7725                                       RJDFLAW   237
          VFD      60/10HFLAW,7727                                       RJDFLAW   238
          VFD      60/10HFLAW,7731                                       RJDFLAW   239
          VFD      60/10HFLAW,7733                                       RJDFLAW   240
          VFD      60/10HFLAW,7735                                       RJDFLAW   241
          VFD      60/10HFLAW,7737                                       RJDFLAW   242
          VFD      60/10HFLAW,7741                                       RJDFLAW   243
          VFD      60/10HFLAW,7743                                       RJDFLAW   244
          VFD      60/10HFLAW,7745                                       RJDFLAW   245
          VFD      60/10HFLAW,7747                                       RJDFLAW   246
          VFD      60/10HFLAW,7751                                       RJDFLAW   247
          VFD      60/10HFLAW,7753                                       RJDFLAW   248
          VFD      60/10HFLAW,7755                                       RJDFLAW   249
          VFD      60/10HFLAW,7757                                       RJDFLAW   250
          VFD      60/10HFLAW,7761                                       RJDFLAW   251
          VFD      60/10HFLAW,7763                                       RJDFLAW   252
          VFD      60/10HFLAW,7765                                       RJDFLAW   253
          VFD      60/10HFLAW,7767                                       RJDFLAW   254
          VFD      60/10HFLAW,7771                                       RJDFLAW   255
          VFD      60/10HFLAW,7773                                       RJDFLAW   256
          VFD      60/10HFLAW,7775                                       RJDFLAW   257
          VFD      60/10HFLAW,7777                                       RJDFLAW   258
          DATA     0                                                     JEEIRCP    33
EST03     BSS      0                                                     JEEIRCP    34
          VFD    24/4HVID,,36/6H_"VRN"                                   JEEYES     38
          VFD      60/10HPF,NO                                           JEEPFDV     4
*                                  RBR 11                                JSFIRCP3    4
          VFD      60/10HFT,0                                            RJDIRCP     1
          VFD      60/10HFLAW,0107                                       RJDFLAW2    1
          VFD      60/10HFLAW,2257                                       RJDFLAW2    2
          VFD      60/10HFLAW,2445                                       RJDFLAW2    3
          VFD      60/10HFLAW,3165                                       RJDFLAW2    4
          VFD      60/10HFLAW,4217                                       RJDIRCP     2
          VFD      60/10HFLAW,4245                                       RJDFLAW2    5
*                                  RBR 07                                JSFIRCP3    5
          VFD      60/10HFT,1                                            RJDFLAW2    6
          VFD    60/10HFLAW,0101                                         JSFLAW      2
          VFD    60/10HFLAW,3401                                         JSFLAW      3
          VFD      60/10HFLAW,1401                                       RJDFLAW3    2
          VFD      60/10HFLAW,3421                                       RJDFLAW2    7
          VFD      60/10HFLAW,5527                                       RJDFLAW2    8
*                                  RBR 02                                JSFIRCP3    6
          VFD      60/10HFT,4                                            RJDFLAW2    9
          VFD      60/10HFLAW,7327                                       RJDFLAW2   10
*                                  RBR 04                                JSFIRCP3    7
          VFD      60/10HFT,5                                            RJDIRCP     3
          VFD      60/10HFLAW,5103                                       RJDIRCP     4
          VFD      60/10HFLAW,6017                                       RJDIRCP     5
*                                  RBR 06                                JSFIRCP3    8
          VFD      60/10HFT,06                                           JEEIRCP    36
          VFD      60/10HFLAW,7045                                       JEEIRCP    37
          VFD      60/10HFLAW,7065                                       JEEIRCP    38
          VFD      60/10HFLAW,7145                                       JEEIRCP    39
          VFD      60/10HFLAW,7165                                       JEEIRCP    40
*                                  RBR 10                                JSFIRCP3    9
          VFD      60/10HFT,7                                            RJDIRCP     6
          VFD      60/10HFLAW,7305                                       RJDIRCP     7
*        CE AREA, 821 UNIT 0. (2 INNERMOST CYLS.)                        RJDFLAW   259
          VFD      60/10HFLAW,7601                                       RJDFLAW   260
          VFD      60/10HFLAW,7603                                       RJDFLAW   261
          VFD      60/10HFLAW,7605                                       RJDFLAW   262
          VFD      60/10HFLAW,7607                                       RJDFLAW   263
          VFD      60/10HFLAW,7611                                       RJDFLAW   264
          VFD      60/10HFLAW,7613                                       RJDFLAW   265
          VFD      60/10HFLAW,7615                                       RJDFLAW   266
          VFD      60/10HFLAW,7617                                       RJDFLAW   267
          VFD      60/10HFLAW,7621                                       RJDFLAW   268
          VFD      60/10HFLAW,7623                                       RJDFLAW   269
          VFD      60/10HFLAW,7625                                       RJDFLAW   270
          VFD      60/10HFLAW,7627                                       RJDFLAW   271
          VFD      60/10HFLAW,7631                                       RJDFLAW   272
          VFD      60/10HFLAW,7633                                       RJDFLAW   273
          VFD      60/10HFLAW,7635                                       RJDFLAW   274
          VFD      60/10HFLAW,7637                                       RJDFLAW   275
          VFD      60/10HFLAW,7641                                       RJDFLAW   276
          VFD      60/10HFLAW,7643                                       RJDFLAW   277
          VFD      60/10HFLAW,7645                                       RJDFLAW   278
          VFD      60/10HFLAW,7647                                       RJDFLAW   279
          VFD      60/10HFLAW,7651                                       RJDFLAW   280
          VFD      60/10HFLAW,7653                                       RJDFLAW   281
          VFD      60/10HFLAW,7655                                       RJDFLAW   282
          VFD      60/10HFLAW,7657                                       RJDFLAW   283
          VFD      60/10HFLAW,7661                                       RJDFLAW   284
          VFD      60/10HFLAW,7663                                       RJDFLAW   285
          VFD      60/10HFLAW,7665                                       RJDFLAW   286
          VFD      60/10HFLAW,7667                                       RJDFLAW   287
          VFD      60/10HFLAW,7671                                       RJDFLAW   288
          VFD      60/10HFLAW,7673                                       RJDFLAW   289
          VFD      60/10HFLAW,7675                                       RJDFLAW   290
          VFD      60/10HFLAW,7677                                       RJDFLAW   291
          VFD      60/10HFLAW,7701                                       RJDFLAW   292
          VFD      60/10HFLAW,7703                                       RJDFLAW   293
          VFD      60/10HFLAW,7705                                       RJDFLAW   294
          VFD      60/10HFLAW,7707                                       RJDFLAW   295
          VFD      60/10HFLAW,7711                                       RJDFLAW   296
          VFD      60/10HFLAW,7713                                       RJDFLAW   297
          VFD      60/10HFLAW,7715                                       RJDFLAW   298
          VFD      60/10HFLAW,7717                                       RJDFLAW   299
          VFD      60/10HFLAW,7721                                       RJDFLAW   300
          VFD      60/10HFLAW,7723                                       RJDFLAW   301
          VFD      60/10HFLAW,7725                                       RJDFLAW   302
          VFD      60/10HFLAW,7727                                       RJDFLAW   303
          VFD      60/10HFLAW,7731                                       RJDFLAW   304
          VFD      60/10HFLAW,7733                                       RJDFLAW   305
          VFD      60/10HFLAW,7735                                       RJDFLAW   306
          VFD      60/10HFLAW,7737                                       RJDFLAW   307
          VFD      60/10HFLAW,7741                                       RJDFLAW   308
          VFD      60/10HFLAW,7743                                       RJDFLAW   309
          VFD      60/10HFLAW,7745                                       RJDFLAW   310
          VFD      60/10HFLAW,7747                                       RJDFLAW   311
          VFD      60/10HFLAW,7751                                       RJDFLAW   312
          VFD      60/10HFLAW,7753                                       RJDFLAW   313
          VFD      60/10HFLAW,7755                                       RJDFLAW   314
          VFD      60/10HFLAW,7757                                       RJDFLAW   315
          VFD      60/10HFLAW,7761                                       RJDFLAW   316
          VFD      60/10HFLAW,7763                                       RJDFLAW   317
          VFD      60/10HFLAW,7765                                       RJDFLAW   318
          VFD      60/10HFLAW,7767                                       RJDFLAW   319
          VFD      60/10HFLAW,7771                                       RJDFLAW   320
          VFD      60/10HFLAW,7773                                       RJDFLAW   321
          VFD      60/10HFLAW,7775                                       RJDFLAW   322
          VFD      60/10HFLAW,7777                                       RJDFLAW   323
          DATA     0                                                     JEEIRCP    41
EST04     BSS      0                                                     JEEIRCP    42
          VFD    24/4HVID,,36/6H_"VRN"                                   JEEYES     39
          VFD      60/10HPF,NO                                           JEEPFDV     5
*                                  RBR 21                                JSFIRCP3   10
          VFD      60/10HFT,0                                            RJDIRCP     8
          VFD      60/10HFLAW,4757                                       RJDIRCP     9
          VFD    60/10HFLAW,4777                                         JSFLAW      4
          VFD      60/10HFLAW,5357                                       RJDIRCP    10
          VFD      60/10HFLAW,5377                                       RJDIRCP    11
          VFD      60/10HFLAW,5655                                       RJDIRCP    12
          VFD      60/10HFLAW,7547                                       RJDFLAW2   11
*                                  RBR 15                                JSFIRCP3   11
          VFD      60/10HFT,2                                            RJDIRCP    13
          VFD      60/10HFLAW,1533                                       RJDIRCP    14
          VFD      60/10HFLAW,3033                                       RJDIRCP    15
*                                  RBR 13                                JSFIRCP3   12
          VFD      60/10HFT,03                                           JEEIRCP    44
          VFD      60/10HFLAW,0403                                       JEEIRCP    45
          VFD      60/10HFLAW,0423                                       JEEIRCP    46
          VFD      60/10HFLAW,0303                                       RJDIRCP    16
          VFD      60/10HFLAW,5037                                       RJDIRCP    17
          VFD    60/10HFLAW,6141                                         JSFLAW      5
          VFD      60/10HFLAW,6161                                       RJDIRCP    18
*                                  RBR 12                                JSFIRCP3   13
          VFD      60/10HFT,4                                            RJDIRCP    19
          VFD      60/10HFLAW,1651                                       RJDIRCP    20
          VFD      60/10HFLAW,3675                                       RJDIRCP    21
*                                  RBR 14                                JSFIRCP3   14
          VFD      60/10HFT,05                                           JEEIRCP    47
          VFD      60/10HFLAW,1147                                       JEEIRCP    48
          VFD      60/10HFLAW,1167                                       JEEIRCP    49
*                                  RBR 16                                JSFIRCP3   15
          VFD      60/10HFT,6                                            RJDIRCP    22
          VFD      60/10HFLAW,3667                                       RJDIRCP    23
*                                  RBR 20                                JSFIRCP3   16
          VFD      60/10HFT,7                                            RJDIRCP    24
          VFD      60/10HFLAW,0333                                       RJDIRCP    25
          VFD      60/10HFLAW,2203                                       RJDIRCP    26
          VFD      60/10HFLAW,2423                                       RJDIRCP    27
          VFD      60/10HFLAW,4675                                       RJDIRCP    28
          VFD      60/10HFLAW,5271                                       RJDIRCP    29
*        CE AREA, 821 UNIT 1. (2 INNERMOST CYLS.)                        RJDFLAW   324
          VFD      60/10HFLAW,7601                                       RJDFLAW   325
          VFD      60/10HFLAW,7603                                       RJDFLAW   326
          VFD      60/10HFLAW,7605                                       RJDFLAW   327
          VFD      60/10HFLAW,7607                                       RJDFLAW   328
          VFD      60/10HFLAW,7611                                       RJDFLAW   329
          VFD      60/10HFLAW,7613                                       RJDFLAW   330
          VFD      60/10HFLAW,7615                                       RJDFLAW   331
          VFD      60/10HFLAW,7617                                       RJDFLAW   332
          VFD      60/10HFLAW,7621                                       RJDFLAW   333
          VFD      60/10HFLAW,7623                                       RJDFLAW   334
          VFD      60/10HFLAW,7625                                       RJDFLAW   335
          VFD      60/10HFLAW,7627                                       RJDFLAW   336
          VFD      60/10HFLAW,7631                                       RJDFLAW   337
          VFD      60/10HFLAW,7633                                       RJDFLAW   338
          VFD      60/10HFLAW,7635                                       RJDFLAW   339
          VFD      60/10HFLAW,7637                                       RJDFLAW   340
          VFD      60/10HFLAW,7641                                       RJDFLAW   341
          VFD      60/10HFLAW,7643                                       RJDFLAW   342
          VFD      60/10HFLAW,7645                                       RJDFLAW   343
          VFD      60/10HFLAW,7647                                       RJDFLAW   344
          VFD      60/10HFLAW,7651                                       RJDFLAW   345
          VFD      60/10HFLAW,7653                                       RJDFLAW   346
          VFD      60/10HFLAW,7655                                       RJDFLAW   347
          VFD      60/10HFLAW,7657                                       RJDFLAW   348
          VFD      60/10HFLAW,7661                                       RJDFLAW   349
          VFD      60/10HFLAW,7663                                       RJDFLAW   350
          VFD      60/10HFLAW,7665                                       RJDFLAW   351
          VFD      60/10HFLAW,7667                                       RJDFLAW   352
          VFD      60/10HFLAW,7671                                       RJDFLAW   353
          VFD      60/10HFLAW,7673                                       RJDFLAW   354
          VFD      60/10HFLAW,7675                                       RJDFLAW   355
          VFD      60/10HFLAW,7677                                       RJDFLAW   356
          VFD      60/10HFLAW,7701                                       RJDFLAW   357
          VFD      60/10HFLAW,7703                                       RJDFLAW   358
          VFD      60/10HFLAW,7705                                       RJDFLAW   359
          VFD      60/10HFLAW,7707                                       RJDFLAW   360
          VFD      60/10HFLAW,7711                                       RJDFLAW   361
          VFD      60/10HFLAW,7713                                       RJDFLAW   362
          VFD      60/10HFLAW,7715                                       RJDFLAW   363
          VFD      60/10HFLAW,7717                                       RJDFLAW   364
          VFD      60/10HFLAW,7721                                       RJDFLAW   365
          VFD      60/10HFLAW,7723                                       RJDFLAW   366
          VFD      60/10HFLAW,7725                                       RJDFLAW   367
          VFD      60/10HFLAW,7727                                       RJDFLAW   368
          VFD      60/10HFLAW,7731                                       RJDFLAW   369
          VFD      60/10HFLAW,7733                                       RJDFLAW   370
          VFD      60/10HFLAW,7735                                       RJDFLAW   371
          VFD      60/10HFLAW,7737                                       RJDFLAW   372
          VFD      60/10HFLAW,7741                                       RJDFLAW   373
          VFD      60/10HFLAW,7743                                       RJDFLAW   374
          VFD      60/10HFLAW,7745                                       RJDFLAW   375
          VFD      60/10HFLAW,7747                                       RJDFLAW   376
          VFD      60/10HFLAW,7751                                       RJDFLAW   377
          VFD      60/10HFLAW,7753                                       RJDFLAW   378
          VFD      60/10HFLAW,7755                                       RJDFLAW   379
          VFD      60/10HFLAW,7757                                       RJDFLAW   380
          VFD      60/10HFLAW,7761                                       RJDFLAW   381
          VFD      60/10HFLAW,7763                                       RJDFLAW   382
          VFD      60/10HFLAW,7765                                       RJDFLAW   383
          VFD      60/10HFLAW,7767                                       RJDFLAW   384
          VFD      60/10HFLAW,7771                                       RJDFLAW   385
          VFD      60/10HFLAW,7773                                       RJDFLAW   386
          VFD      60/10HFLAW,7775                                       RJDFLAW   387
          VFD      60/10HFLAW,7777                                       RJDFLAW   388
          DATA     0                                                     JEEIRCP    50
PFYES     VFD      60/10HPF,YES                                          JEEPFDV     6
          DATA     0                                                     JEEPFDV     7
*                                                                        JEEIRCP    51
AUTOFLW   BSS      1                                                     JEEIRCP    52
*                                                                        JEEIRCP    53
*         ON ENTRY,    X2 = ADDRESS OF THE PROPER FLAW TABLE.            JEEIRCP    54
*         SO YOU KNOW WHERE YOU ARE,  GO GET FLAWING...                  JEEIRCP    55
*                                                                        JEEIRCP    56
          SX7      B1                                                    JEEIRCP    57
          SA7      AUTOFLG         FLAG DEFAULT FLAW PROCESS             JEEIRCP    58
          SX7      X2                                                    JEEIRCP    59
          SA7      SAVETBL         SAVE TABLE ADDRESS                    JEEIRCP    60
FLWLOOP   SA1      X7              GET A FLAW ENTRY                      JEEIRCP    61
          ZR       X1,MANUAL       JUMP IF FINISHED                      JEEIRCP    62
          EQ       SKEEZIX         OTHERWISE GO DO THE FLAW              JEEIRCP    63
NINA      SA1      SAVETBL                                               JEEIRCP    64
          SX7      X1+1            GO TO NEXT ENTRY                      JEEIRCP    65
          SA7      SAVETBL                                               JEEIRCP    66
          EQ       FLWLOOP                                               JEEIRCP    67
MANUAL    SX7      B0                                                    JEEIRCP    68
          SA7      AUTOFLG                                               JEEIRCP    69
          EQ       AUTOFLW         BACK TO NORMAL PROCESSING             JEEIRCP    70
*                                                                        JEEIRCP    71
*         THE FOLLOWING TABLE SHOWS THE OPTIONS THAT WILL BE PROCESSED   IRCP     4867
                                                                         IRCP     4868
LBLTBL    VFD    42/5LDATE,,18/SAND                                      IRCP     4869
          VFD    30/-0,30/0                                              IRCP     4870
          VFD    42/4LVID,,18/VICTOR                                     IRCP     4871
          VFD    24/-0,36/0                                              IRCP     4872
          IFNE   IP.PFM,0,2                                              IRCP     4873
          VFD    42/7LPF,YES ,18/LEGACY                                  IRCP     4874
          VFD    42/-0,18/0                                              IRCP     4875
          VFD    42/7LPF,NO  ,18/TALENT                                  IRCP     4876
          VFD    42/-0,18/0                                              IRCP     4877
          VFD    42/5LFLAW,,18/ASCRIBE                                   IRCP     4878
          VFD    30/-0,30/0                                              IRCP     4879
          VFD    42/5LFREE,,18/FOG                                       IRCP     4880
          VFD    30/-0,30/0                                              IRCP     4881
          VFD    42/0HWR,18/REWARD                                       IRCP     4882
          VFD    42/-0,18/0                                              IRCP     4883
          VFD    42/0HSK,18/IDEV                                         IRCP     4884
          VFD    42/-0,18/0                                              IRCP     4885
          VFD    42/0HNONE,18/RIVER                                      IRCP     4886
          VFD    42/-0,18/0                                              IRCP     4887
          VFD    42/0HALL,18/BLURRED                                     IRCP     4888
          VFD    42/-0,18/0                                              IRCP     4889
          VFD    42/3LFT,,18/OFFENSE                                     FCON      321
          VFD    18/-0,42/0                                              FCON      322
          VFD    42/1L+,18/FILCH                                         FCON      323
          VFD    6/-0,54/0                                               FCON      324
          VFD    42/1L-,18/TICKET                                        FCON      325
          VFD    6/-0,54/0                                               FCON      326
          VFD    42/7H       ,18/REWARD                                  IRCP     4890
          VFD    42/-0,18/0                                              IRCP     4891
          DATA   0                                                       IRCP     4892
LBLTMP    DATA   0                                                       IRCP     4893
CURRBR    DATA   0                 NO. OF RBR (FLAW TABLE) DISPLAYED     FCON      327
                                                                         IRCP     4894
*         PROCESS DATE ENTRY                                             IRCP     4895
                                                                         IRCP     4896
SAND      MX0    6                                                       IRCP     4897
          SA2    A1+B1             2ND WORD HAS LAST CHAR                IRCP     4898
          BX1    -X0*X1                                                  IRCP     4899
          BX2    X0*X2                                                   IRCP     4900
          BX1    X1+X2                                                   IRCP     4901
          LX1    6                 RIGNT JUSTIFY DATE MMDDYY             IRCP     4902
          BX7    X1                SAVE                                  IRCP     4903
          SA7    LBLTMP                                                  IRCP     4904
          RJ   DATETJ              CONVERT TO JULIAN YYDDD               IRCP     4905
          NG   X1,PROVOKE          JUMP IF FORMAT ERROR                  IRCP     4906
          SA2    LBLADR+W.LBDATE   PUT NEW DATE IN LABEL                 IRCP     4907
          MX0    30                                                      IRCP     4908
          BX2    X0*X2                                                   IRCP     4909
          BX1    -X0*X1                                                  IRCP     4910
          IX6    X1+X2                                                   IRCP     4911
          SA6    A2                                                      IRCP     4912
          SA1    LBLTMP            GET DATE MMDDYY AND INSERT IT         IRCP     4913
          RJ   LDATE               INTO THE MESSAGE                      IRCP     4914
          EQ   BYGONE              GO FOR ANOTHER TYPEIN                 IRCP     4915
                                                                         IRCP     4916
*         PROCESS VISUAL ID ENTRY                                        IRCP     4917
                                                                         IRCP     4918
VICTOR    SA2    LBLADR+W.LBVID    PUT NEW VISUAL ID IN LABEL            IRCP     4919
          MX0    36                                                      IRCP     4920
          BX2    -X0*X2                                                  IRCP     4921
          LX1    24                                                      IRCP     4922
          BX1    X0*X1                                                   IRCP     4923
          IX6    X1+X2                                                   IRCP     4924
          SA6    A2                                                      IRCP     4925
          RJ   LVID                PUT NEW VISUAL ID IN MESSAGE          IRCP     4926
          EQ   BYGONE              GO FOR ANOTHER TYPEIN                 IRCP     4927
                                                                         IRCP     4928
*         PROCESS PF OPTION                                              IRCP     4929
                                                                         IRCP     4930
TALENT    MX5    0                 PF,NO                                 IRCP     4931
          MX0    36                                                      IRCP     4932
          IFNE   IP.PFM,0                                                IRCP     4933
          EQ   VOLCANO                                                   IRCP     4934
                                                                         IRCP     4935
INIT      IFNE   INITDS,0                                                GHKFXDS    73
DEFCHK    DATA     0                                                     DBBIONL    62
WHICH     DATA     10HSAVE         USE OR IGNORE DISK LABEL COMPARISON   JEEYES     40
MAKEUP    DATA     0                                                     JEEOOPS     5
ITSOK     DATA   10HYES            COMPARISON FOR OPERATOR TYPEIN        DBBIONL    63
DEFLAB    SX6      1                                                     DBBIONL    64
          SA6      DEFCHK                                                DBBIONL    65
          EQ       BLURRED         NOW GO WRITE LABEL                    JEEYES     42
INIT      ENDIF                                                          GHKFXDS    74
LEGACY    SX5    B1                PF,YES                                IRCP     4936
          LX5    24                                                      IRCP     4937
          MX0    36                                                      IRCP     4938
          ENDIF                                                          IRCP     4939
VOLCANO   BX1    X0*X1             COMMON CODE TO BOTH PF,YES AND PF,NO  IRCP     4940
          SA2    LBPF              INSERT PF,YES OR PF,NO IN MESSAGE     IRCP     4941
          BX2    -X0*X2                                                  IRCP     4942
          IX6    X1+X2                                                   IRCP     4943
          SA6    A2                                                      IRCP     4944
          SA2    LBLADR+W.LBPFD    PUT FLAG IN LABEL                     IRCP     4945
          BX2    -X0*X2                                                  IRCP     4946
          BX6    X2+X5             X5 = 1 IF PF,YES - 0 IF PF,NO         IRCP     4947
          SA6    A2                                                      IRCP     4948
INIT      IFNE   INITDS,0                                                GHKFXDS    75
          IFNE     IP.PFM,0,2                                            DBBIONL    66
          SA1      AUTOFLG         SEE IF THIS A DEFAULT COMMAND         JEEYES     43
          NZ       X1,BYGONE       IF SO, GO BACK FOR MORE               JEEYES     44
          SA1      DEFCHK                                                DBBIONL    67
          NZ       X1,BLURRED                                            DBBIONL    68
INIT      ENDIF                                                          GHKFXDS    76
          EQ   BYGONE              GO PROCESS NEXT TYPEIN                IRCP     4949
                                                                         FCON      328
*         PROCESS FLAW TABLE NUMBER ENTRY                                FCON      329
                                                                         FCON      330
OFFENSE   SA2    NUMRBR                                                  FCON      331
          SB2    X2                                                      FCON      332
          EQ   B1,B2,PROVOKE       OPTION LEGAL ONLY FOR DEVICES WITH    FCON      333
                                    MULTIPLE RBR S                       FCON      334
          MX0    18                                                      FCON      335
          BX1    -X0*X1            ISOLATE OCTAL TYPEIN                  FCON      336
          LX1    18                                                      FCON      337
          SA4    =3R                                                     FCON      338
          BX1    X1+X4                                                   FCON      339
          RJ   CNVTOTB             CONVERT OCTAL DIGIT TO BINARY         FCON      340
          NG   X0,PROVOKE          JUMP IF NO OCTAL DIGITS TYPED         FCON      341
          BX5    X4                                                      FCON      342
          AX4    3                                                       FCON      343
          NZ   X4,PROVOKE          JUMP IF RBR NUMBER GT 7               FCON      344
SMELL     BX7    X5                                                      FCON      345
          RJ   CNVTBTO             CONVERT TO OCTAL DISPLAY CODE         FCON      346
          LX6    48                                                      FCON      347
          EQ   GATHER              STORE AND CHANGE DISPLAY              FCON      348
                                                                         FCON      349
*         PROCESS + OR - ENTRY                                           FCON      350
                                                                         FCON      351
FILCH     SB2    B1                                                      FCON      352
          EQ   DREARY                                                    FCON      353
TICKET    SB2    -B1                                                     FCON      354
DREARY    SA2    NUMRBR                                                  FCON      355
          SB3    X2                                                      FCON      356
          EQ   B1,B3,PROVOKE       OPTION LEGAL ONLY FOR DEVICES WITH    FCON      357
                                    MULTIPLE RBR S                       FCON      358
          SA5    CURRBR                                                  FCON      359
          SX2    X2-1              X2 = MAX RBR NUMBER                   FCON      360
          SX5    X5+B2             INCREMENT OR DECREMENT NUMBER OF RBR  FCON      361
                                    BEING DISPLAYED                      FCON      362
          NG   X5,ROBIN                                                  FCON      363
          IX3    X2-X5                                                   FCON      364
          PL   X3,SMELL                                                  FCON      365
          SX5    B0                SET TO 0 IF PREVIOUS WAS MAX          FCON      366
          EQ   SMELL                                                     FCON      367
ROBIN     BX5    X2                SET TO MAX IF PREVIOUS WAS 0          FCON      368
          EQ   SMELL                                                     FCON      369
                                                                         IRCP     4950
*         PROCESS FLAW AND FREE OPTIONS                                  IRCP     4951
                                                                         IRCP     4952
ASCRIBE   SB2    B1                FLAG TO SET FLAW                      IRCP     4953
          EQ   WALK                GO TO COMMON ROUTINE                  IRCP     4954
                                                                         IRCP     4955
FOG       SB2    B0                FLAG TO CLEAR FLAW                    IRCP     4956
WALK      MX4    30                DELETE KEY WORD                       SCR320E     2
          BX6    -X4*X1                                                  SCR320E     3
          RJ   SQUANK              ADD BLANKS FOR CNVTOTB                SCR320E     4
          BX1    X6                                                      SCR320E     5
          RJ   CNVTOTB             CONVERT TO BINARY                     SCR320E     6
          NG   X0,PROVOKE          JUMP IF NO OCTAL DIGITS TYPED         IRCP     4958
          BX1    X4                                                      IRCP     4959
          AX4    12                                                      IRCP     4960
          NZ   X4,PROVOKE          JUMP IF RB NUMBER GT 7777B            IRCP     4961
          SA2    RBRADR            CHANGE RBRADR SO AS TO USE FLAW       IRCP     4962
          SB3    X2                TABLE INSTEAD OF RBR                  IRCP     4963
          SA5    CURRBR                                                  FCON      370
          SX7    LBLADR+W.LBFLAW-RBRLTH                                  FCON      371
BUNCH     SX7    X7+RBRLTH         INCREMENT TO NEXT FLAW TABLE          FCON      372
          SX5    X5-1                                                    FCON      373
          PL   X5,BUNCH            JUMP IF NOT YET AT PROPER TABLE       FCON      374
          SA7    A2                SET RBRADR = ADDR OF PROPER           FCON      375
                                    FLAW TABLE                           FCON      376
          RJ   FINDBIT             GO FIND THE BIT POSITION              IRCP     4966
          BX6    -X1*X3            CLEAR THE BIT                         IRCP     4967
          ZR   B2,TRADE            JUMP IF TO CLEAR FLAW                 IRCP     4968
          BX6    X1+X3             SET THE BIT                           IRCP     4969
TRADE     SA6    A3                STORE IN FLAW TABLE                   IRCP     4970
          SX7    B3                RESTORE RBRADR                        IRCP     4971
          SA7    RBRADR                                                  IRCP     4972
          EQ   BYGONE              GO BACK FOR NEXT TYPEIN               IRCP     4973
                                                                         IRCP     4974
PROVOKE   SA2    LBIGN             PUT ERROR INDICATOR IN MESSAGE        IRCP     4975
          BX7    X2                                                      IRCP     4976
          SA7    LBERR                                                   IRCP     4977
          EQ   ANCIENT             GO GET ANOTHER TYPEIN                 IRCP     4978
                                                                         IRCP     4979
*         OPERATOR SAID WRITE NO MORE LABELS                             IRCP     4980
                                                                         IRCP     4981
RIVER     SX7    B1                SET FLAG TO WRITE NO MORE LABELS      IRCP     4982
          SA7    LABELFLG                                                IRCP     4983
          EQ   IDEV                EXIT                                  IRCP     4984
                                                                         IRCP     4985
*         OPERATOR SAID WRITE ALL REMAINING LABELS WITHOUT GETTING       IRCP     4986
*         ANY MORE OPERATOR INSTRUCTIONS FOR ANY OF THEM.                IRCP     4987
                                                                         IRCP     4988
BLURRED   SX7    2                 SET FLAG FOR AUTOMATIC WRITE          IRCP     4989
          SA7    LABELFLG                                                IRCP     4990
                                                                         IRCP     4991
*         COME HERE TO WRITE LABEL ON THIS DEVICE.                       IRCP     4992
                                                                         IRCP     4993
REWARD    EQU    *                                                       IRCP     4994
          IFNE   IP.PFM,0                                                IRCP     4995
                                                                         IRCP     4996
*         IF THIS IS THE PRIMARY PERMANENT FILE DEVICE, CHECK IF         IRCP     4997
*         IT IS THE FIRST.                                               IRCP     4998
                                                                         IRCP     4999
          SA1    LBLADR+W.LBPFD    LOOK AT PERM. FILE FIELD IN LABEL     IRCP     5000
          MX0    36                                                      IRCP     5001
          BX1    X0*X1                                                   IRCP     5002
          ZR   X1,GOAL             JUMP IF NOT PF DEVICE                 IRCP     5003
          SA2    PFA                                                     SC20411    17
          ZR   X2,GOAL                                                   SC20411    18
          SX5    LDEVS             SET UP MESSAGE TO WARN OPERATOR       IRCP     5006
          RJ   DEVINFO                                                   IRCP     5007
JUSTICE   OPCOM  O,(LWRHDR,LDEVI,MULTPF1,MULTPF2)                        IRCP     5008
          SB2    X1                OPTION NUMBER                         IRCP     5009
          MX0    36                                                      IRCP     5010
          ZR   B2,JUSTICE          JUMP IF OPTION NOT 1                  IRCP     5011
          SA1    LBLADR+W.LBPFD    OPTION WAS 1 - DO NOT KEEP AS PF DEV  IRCP     5012
          BX7    -X0*X1                                                  IRCP     5013
          SA7    A1                CLEAR PF INDICATOR IN LABEL           IRCP     5014
          ENDIF                                                          IRCP     5017
                                                                         IRCP     5018
*         ADD FLAW BITS FROM LABEL TO RBR                                IRCP     5019
                                                                         IRCP     5020
GOAL      RJ   FLAW                                                      IRCP     5021
                                                                         IRCP     5022
*         WRITE LABEL                                                    IRCP     5023
                                                                         IRCP     5024
          MX7    59                INITIALIZE TO 1ST RB OF DEVICE        IRCP     5025
          SA7    RBNUM                                                   IRCP     5026
EXPLORE   RJ   GETRB               FIND 1ST RB NOT TURNED OFF IN RBR     IRCP     5027
SKILL     RJ   WRLBL               WRITE LABEL                           IRCP     5028
          SB4    X4                SAVE ERROR FLAG                       IRCP     5029
          ZR   X4,HONEST           JUMP IF WRITE WAS SUCCESSFUL          IRCP     5030
                                                                         IRCP     5031
*         PROCESS LABEL WRITE ERROR CONDITIONS                           IRCP     5032
                                                                         IRCP     5033
          SX5    LDEVS             SET UP DEVICE INFORMATION             IRCP     5034
          RJ   DEVINFO                                                   IRCP     5035
          SX2    DVERMSG2          SET UP RMS ERROR INFORMATION          IRCP     5036
          RJ   DEVERR                                                    IRCP     5037
          SA5    RBNUM             GET LAST RB NUMBER                    IRCP     5038
          RJ   CNVTBTO             CONVERT TO DISPLAY                    IRCP     5039
          LX6    36                STORE FOR MESSAGE                     IRCP     5040
          SA6    LDEVRB                                                  IRCP     5041
          LT   B1,B4,PEARLS        JUMP IF NOT REJECT ERROR              IRCP     5042
COYOTE    OPCOM  O,(LWRHDR,LDEVI,LREJ1,LREJ2,DVERMSG),(LDEVRB,2)         IRCP     5043
          SB2    X1                OPTION NUMBER                         IRCP     5044
          ZR   B2,COYOTE           (0) = NO OPTION ENTERED               IRCP     5045
          EQ   B2,B1,SKILL         (1) = RETRY                           IRCP     5046
          EQ   RETREAT             (2) = DELETE DEVICE                   IRCP     5047
                                                                         IRCP     5048
PEARLS    OPCOM  O,(LWRHDR,LDEVI,LWRITER1,LWRITER2,DVERMSG),(LDEVRB,2)   IRCP     5049
          SB2    X1-1              OPTION NUMBER - 1                     IRCP     5050
          ZR   B2,SKILL            (1) = TRY SAME RB                     IRCP     5051
          NG   B2,PEARLS           (0) = NO OPTION                       IRCP     5052
          LT   B1,B2,RETREAT       (3) = DELETE DEVICE                   IRCP     5053
          SA2    RBRADR            (2) = TRY NEXT RB                     IRCP     5054
          SB3    A2                SET RBRADR SO FLAW TABLE WILL BE      IRCP     5055
          SB2    X2                MODIFIED INSTEAD OF RBR               IRCP     5056
          SX7    LBLADR+W.LBFLAW                                         IRCP     5057
          SA7    A2                                                      IRCP     5058
          SA1    RBNUM             NUMBER OF BAD RB                      IRCP     5059
          RJ   FINDBIT             FIND POSITION AND ADDRESS OF RB       IRCP     5060
          BX7    X1+X3             SET IT IN FLAW TABLE                  IRCP     5061
          SA7    A3                                                      IRCP     5062
          SX7    B2                RESTORE RBRADR                        IRCP     5063
          SA7    B3                                                      IRCP     5064
          EQ   EXPLORE             GO TRY NEXT RB                        IRCP     5065
                                                                         IRCP     5066
RETREAT   RJ   SUSPEND             DELETE DEVICE FROM SYSTEM             IRCP     5067
          SX7    B1                                                      SCR320X     5
          SA7    DELETED           SET DEVICE DELETED FLAG               SCR320X     6
          EQ   IDEV                EXIT                                  IRCP     5068
                                                                         IRCP     5069
HONEST    SA1    RBNUM             SAVE RB NUMBER OF LABEL               IRCP     5070
          BX7    X1                                                      IRCP     5071
          SA7    LABELRB                                                 IRCP     5072
          IFNE   IP.PFM,0                                                IRCP     5073
                                                                         IRCP     5074
*         IT IS HERE THAT THE PFD AND RBTC WILL BE INITIALIZED           IRCP     5075
*         ON THE PRIMARY PERMANENT FILE DEVICE.                          IRCP     5076
                                                                         IRCP     5077
          SA1    LBLADR+W.LBPFD    CHECK IF PF DEVICE                    IRCP     5078
          MX0    36                                                      IRCP     5079
          BX1    X0*X1                                                   IRCP     5080
          ZR   X1,IDEV             EXIT IF NOT PF DEVICE                 IRCP     5081
          RJ   PFA                 GO INITIALIZE A PFD AND RBTC          IRCP     5082
          ENDIF                                                          IRCP     5083
          EQ   IDEV                EXIT                                  IRCP     5084
          TITLE                   LABEL PROCESSING --- SUSPEND           IRCP     5085
*         SUSPEND -- REMOVE DEVICE FROM SYSTEM                           IRCP     5086
*                    ON/OFF BIT IS SET IN EST                            IRCP     5087
                                                                         IRCP     5088
*                 ENTRY - B1 = 1                                         IRCP     5089
*                         ESTADR = ADDRESS OF EST ENTRY                  IRCP     5090
                                                                         IRCP     5091
*                 EXIT  - A0, B-REGISTERS ARE SAVED                      IRCP     5092
                                                                         IRCP     5093
SUSPEND   DATA   0                                                       IRCP     5094
          SA1    ESTADR            EST ADDRESS                           IRCP     5095
          MX7    1                                                       IRCP     5096
          LX7    24                ON/OFF BIT                            IRCP     5097
          SA1    X1                GET EST ENTRY                         IRCP     5098
          BX7    X1+X7             ADD BIT                               IRCP     5099
          SA7    A1                STORE                                 IRCP     5100
          EQ   SUSPEND             EXIT                                  IRCP     5101
          TITLE                   LABEL PROCESSING --- LFLAWS            IRCP     5102
*         LFLAWS -- INSERT FLAW TABLE INFORMATION INTO MESSAGE           IRCP     5103
                                                                         IRCP     5104
*                ENTRY - B1 = 1                                          IRCP     5105
*                        CURRBR = NO. OF RBR (FLAW TABLE) TO BE DISPLAYE FCON      377
                                                                         IRCP     5106
LFLAWS    DATA   0                                                       IRCP     5107
          SA5    CURRBR                                                  FCON      378
          SB2    LBLADR+W.LBFLAW-RBRLTH+2                                FCON      379
SEVERAL   SB2    B2+RBRLTH         INCREMENT TO NEXT FLAW TABLE IN LABEL FCON      380
          SX5    X5-1                                                    FCON      381
          PL   X5,SEVERAL          JUMP IF NOT YET AT PROPER TABLE       FCON      382
          SB3    B0                (NOW B2 = FWA OF FLAW BITS)           FCON      383
          SB4    FLAWFWA           1ST WORD OF STORE AREA                IRCP     5110
          SB5    6                 INCREMENT FOR STORE ADR FOR EACH LINE IRCP     5111
DRIP      SX5    B2+B3             CONVERT ABSOLUTE ADDRESS OF THIS      IRCP     5112
          RJ   CNVTBTO             WORD IN FLAW TABLE                    IRCP     5113
          MX0    24                SAVE 6 CHARS                          IRCP     5114
          BX6    -X0*X6                                                  IRCP     5115
          RJ   SQUANK              ADD BLANKS                            IRCP     5116
          LX6    24                SHIFT                                 IRCP     5117
          SA6    B4                STORE                                 IRCP     5118
          SX5    B3                RELATIVE ADDRESS                      IRCP     5119
          MX1    12                                                      IRCP     5120
          SA2    B2+B3             GET A WORD OF FLAW TABLE              IRCP     5121
          RJ   CNVTBTO             CONVERT RELATIVE ADDRESS              IRCP     5122
          LX6    48                                                      IRCP     5123
          BX1    X1*X6                                                   IRCP     5124
          BX5    X2                                                      IRCP     5125
          LX5    12                BITS 48-59 OF FLAW WORD               IRCP     5126
          MX0    36                                                      IRCP     5127
          RJ   CNVTBTO                                                   IRCP     5128
          BX6    -X0*X6            KEEP 4 CHARS                          IRCP     5129
          IX6    X6+X1             COMBINE THIS WITH REL. ADDRESS        IRCP     5130
          RJ   SQUANK              ADD BLANKS                            IRCP     5131
          SA6    A6+B1             STORE IN 2ND WORD OF LINE             IRCP     5132
          LX5    24                BITS 24-47 OF FLAW WORD               IRCP     5133
          RJ   CNVTBTO             CONVERT                               IRCP     5134
          MX1    12                                                      IRCP     5135
          BX6    -X1*X6            8 CHARS                               IRCP     5136
          BX2    -X0*X6            RIGHT 4 OF THE 8 CHARS                IRCP     5137
          BX6    X0*X6             LEFT 4 OF THE 8 CHARS                 IRCP     5138
          LX6    6                 SEPARATE THEM BY 1 CHAR               IRCP     5139
          IX6    X2+X6                                                   IRCP     5140
          SA6    A6+B1             STORE IN 3RD WORD OF LINE             IRCP     5141
          LX5    24                BITS 0-23 OF FLAW WORD                IRCP     5142
          RJ   CNVTBTO             CONVERT                               IRCP     5143
          BX6    -X1*X6            8 CHARS                               IRCP     5144
          BX2    -X0*X6            RIGHT 4 OF THE 8 CHARS                IRCP     5145
          BX6    X0*X6             LEFT 4 OF THE 8 CHARS                 IRCP     5146
          LX6    6                 SEPARATE BY 1 CHAR                    IRCP     5147
          IX6    X2+X6                                                   IRCP     5148
          SA6    A6+B1             STORE IN 4TH WORD OF LINE             IRCP     5149
          SB4    B4+B5             ADVANCE STORE ADDRESS                 IRCP     5150
          SB3    B3+B1             ADVANCE FETCH ADDRESS                 IRCP     5151
          SB7    B3-RBRLTH+2                                             IRCP     5152
          NG   B7,DRIP             LOOP THROUGH FLAW TABLE               IRCP     5153
          EQ   LFLAWS              EXIT                                  IRCP     5154
          TITLE                   LABEL PROCESSING --- LDATE             IRCP     5155
*         LDATE -- INSERT DATE INTO MESSAGE FOR LABEL PROCESSOR          IRCP     5156
                                                                         IRCP     5157
*               ENTRY - B1 = 1                                           IRCP     5158
*                       X1 = 6 CHAR DATE, RIGHT JUSTIFIED                IRCP     5159
                                                                         IRCP     5160
LDATE     DATA   0                                                       IRCP     5161
          SA2    LBDATE            GET 1ST MESSAGE WORD                  IRCP     5162
          LX1    54                RIGHTMOST CHAR WILL GO IN 2ND WORD    IRCP     5163
          MX0    30                                                      IRCP     5164
          BX2    X0*X2             LEFT 5 CHARS OF 1ST WORD              IRCP     5165
          BX3    -X0*X1            MMDDY                                 IRCP     5166
          IX6    X2+X3                                                   IRCP     5167
          SA6    A2                STORE 1ST WORD                        IRCP     5168
          SA2    A2+B1             2ND MESSAGE WORD                      IRCP     5169
          MX0    6                                                       IRCP     5170
          BX2    -X0*X2            RIGHT 9 CHARS OF 2ND WORD             IRCP     5171
          BX1    X0*X1             Y                                     IRCP     5172
          IX6    X1+X2                                                   IRCP     5173
          SA6    A2                STORE 2ND WORD                        IRCP     5174
          EQ   LDATE               EXIT                                  IRCP     5175
          TITLE                   LABEL PROCESSING --- LVID              IRCP     5176
*         LVID -- INSERT VISUAL ID INTO MESSAGE FOR LABEL PROCESSOR      IRCP     5177
                                                                         IRCP     5178
*              ENTRY - B1 = 1                                            IRCP     5179
*                      X1 = 6 CHAR VISUAL ID, LEFT JUSTIFIED             IRCP     5180
                                                                         IRCP     5181
LVID      DATA   0                                                       IRCP     5182
          SA2    LBVID             GET MESSAGE WORD                      IRCP     5183
          MX0    24                                                      IRCP     5184
          AX1    24                                                      IRCP     5185
          BX1    -X0*X1            VISUAL ID IN RIGHTMOST 6 CHARS        IRCP     5186
          BX2    X0*X2             SAVE LEFT 4 CHARS OF MESSAGE          IRCP     5187
          IX6    X1+X2                                                   IRCP     5188
          SA6    A2                STORE MESSAGE                         IRCP     5189
          EQ   LVID                EXIT                                  IRCP     5190
          TITLE                   LABEL PROCESSING --- WRLBL             IRCP     5191
*         WRLBL -- WRITE LABEL                                           IRCP     5192
                                                                         IRCP     5193
*               ENTRY - LABEL INFORMATION IS STORED STARTING AT LBLADR   IRCP     5194
*                       ESTADR = EST ADDRESS OF DEVICE                   IRCP     5195
*                       ESTORD = EST ORDINAL OF DEVICE                   IRCP     5196
*                       RBRADR = FWA OF RBR                              IRCP     5197
*                       RBRORD = RBR ORDINAL                             IRCP     5198
*                       RBNUM = RB NUMBER TO WRITE THE LABEL             IRCP     5199
*                       NUMRBR = NUMBER OF RBR S FOR DEVICE              FCON      384
*                       B1 = 1                                           IRCP     5200
                                                                         IRCP     5201
*               EXIT  - X4 = 0 IF WRITE WAS SUCCESSFUL                   IRCP     5202
*                            1 IF DEVICE REJECT                          IRCP     5203
*                            2 IF OTHER ERROR                            IRCP     5204
                                                                         IRCP     5205
WRLBL     DATA   0                                                       IRCP     5206
          SB4    B1                FLAG TO INDICATE WRITING              IRCP     5207
          SA4    NUMRBR            NUMBER OF RBR S TO BE WRITTEN IN LABL FCON      385
          SX3    W.LBFLAW-1        NUMBER OF WORDS IN LABEL              FCON      386
                                    EXCLUDING RBR S                      FCON      387
+         SX3    X3+RBRLTH                                               FCON      388
          SX4    X4-1              FIGURE LABEL SIZE                     FCON      389
+         NZ   X4,*-1                                                    FCON      390
          IFNE   RMSPRU,100B                                             FCON      391
          PX5    X3                                                      FCON      392
          SX1    RMSPRU                                                  FCON      393
          NX5    X5                                                      FCON      394
          PX1    X1                                                      FCON      395
          NX1    X1                                                      FCON      396
          FX5    X5/X1             DIVIDE LABEL SIZE BY PRU SIZE         FCON      397
          UX5    B2,X5                                                   FCON      398
          LX5    B2,X5                                                   FCON      399
          ELSE                                                           FCON      400
          BX5    X3                                                      FCON      401
          AX5    6                 DIVIDE LABEL SIZE BY PRU SIZE         FCON      402
          ENDIF                                                          FCON      403
          SX5    X5+B1             NUMBER OF PRU S IN LABEL              FCON      404
          BX6    X3                                                      FCON      405
          SA6    LBLSIZ            SAVE LABEL SIZE                       FCON      406
          BX7    X5                                                      FCON      407
          SA7    LBLPRU            SAVE NO. OF PRU S IN LABEL            FCON      408
          SB2    B0                GO COMPUTE AND STORE CHECKSUM         IRCP     5208
          RJ   CLKSUM                                                    IRCP     5209
          SA1    RBNUM                                                   IRCP     5210
          SB5    B0                SET TO WRITE 1ST PRU                  IRCP     5211
          SB6    X1                RB NUMBER                             IRCP     5212
          SB3    RMSPRU                                                  FCON      409
          SA5    LBLPRU                                                  FCON      410
          SB2    X5-2                                                    FCON      411
          SX6    RMSPRU*5          HEADER WORD FOR EACH PRU              FCON      412
          NG   B2,SETTLER          JUMP IF ONLY 1 PRU                    FCON      413
          SB7    B2+B1             B7 = NUMBER OF PRU S IN LABEL - 1     FCON      414
          LX5    6                 (NUMBER OF PRU S) * 100B              FCON      415
          SA2    X5+LBLADR         A2 = LWA +1 TO BE WRITTEN             FCON      416
*                                                                        FCON      417
*         INSERT HEADER WORD (CONTAINING PRU LENGTH IN BYTES) INTO LABEL FCON      418
*                                                                        FCON      419
LEAFLET   SB2    RMSPRU                                                  FCON      420
CALENDER  SA2    A2-B1                                                   FCON      421
          BX7    X2                                                      FCON      422
          SA7    A2+B7                                                   FCON      423
          SB2    B2-B1                                                   FCON      424
          NZ   B2,CALENDER                                               FCON      425
          SA6    A7-B1             STORE HEADER WORD                     FCON      426
          SB7    B7-B1                                                   FCON      427
          NZ   B7,LEAFLET                                                FCON      428
SETTLER   SB7    LBLADR-1          FWA OF WRITE                          FCON      429
          SA6    B7                STORE HEADER WORD                     FCON      430
          RJ   RWPRU               GO WRITE OUT PRU                      IRCP     5217
          NZ   X4,FOGGY            JUMP IF ERROR                         IRCP     5218
          SB4    B0                SET FOR READ                          IRCP     5219
          SB7    LBLADR2-1         READ BACK PRU INTO DIFFERENT BUFFER   IRCP     5220
          SA5    LBLPRU            NUMBER OF PRU S TO BE READ            FCON      431
          RJ   RWPRU                                                     IRCP     5221
          NZ   X4,FOGGY            JUMP IF ERRORS                        IRCP     5222
          SB2    B0                COMPARE WRITTEN LABEL WITH THAT READ  IRCP     5223
REEK      SA2    B2+LBLADR                                               FCON      432
          SA3    B2+LBLADR2                                              FCON      433
          SB2    B2+B1                                                   IRCP     5226
          IX4    X2-X3             COMPARE 2 WORDS                       IRCP     5227
          NZ   X4,FADING           JUMP IF DISAGREEMENT                  IRCP     5228
          LT   B2,B3,REEK          LOOP THRU LABEL                       IRCP     5229
          SA5    LBLSIZ                                                  FCON      434
          SX1    X5-RMSPRU-1                                             FCON      435
          NG   X1,WRLBL            EXIT IF LABEL SIZE LE RMSPRU          FCON      436
          SB7    B1                                                      FCON      437
          SA5    LBLPRU                                                  FCON      438
          SA2    LBLADR+RMSPRU                                           FCON      439
*                                                                        FCON      440
*         DELETE HEADER WORD FOR EACH PRU FROM LABEL BEFORE EXITTING     FCON      441
*                                                                        FCON      442
CONFUSE   SB2    RMSPRU                                                  FCON      443
PENCIL    SA2    A2+B1                                                   FCON      444
          BX7    X2                                                      FCON      445
          SA7    A2-B7                                                   FCON      446
          SB2    B2-B1                                                   FCON      447
          NZ   B2,PENCIL                                                 FCON      448
          SB7    B7+B1                                                   FCON      449
          SX1    B7                                                      FCON      450
          IX0    X5-X1                                                   FCON      451
          SA2    A2+B1             SKIP OVER NEXT HEADER WORD            FCON      452
          NZ   X0,CONFUSE                                                FCON      453
          EQ   WRLBL               OK - EXIT                             IRCP     5230
                                                                         IRCP     5231
FOGGY     SX1    B1                                                      IRCP     5232
          IX1    X4-X1                                                   IRCP     5233
          ZR   X1,WRLBL            EXIT IF DEVICE REJECT                 IRCP     5234
FADING    SB2    B0                ERASE THIS PRU SO A FALSE LABEL       IRCP     5235
          MX7    0                 WILL NOT BE FOUND AT A LATER TIME     IRCP     5236
          SB7    LBLADR2-1         STORE ZEROES IN 2ND LABEL BUFFER      IRCP     5237
FRIGID    SA7    B2+B7                                                   IRCP     5238
          SB2    B2+B1                                                   IRCP     5239
          LT   B2,B3,FRIGID        LOOP UNTIL CLEARING DONE              IRCP     5240
          SB4    B1                SET FOR WRITE                         IRCP     5241
          SX5    B1                WRITE ONE PRU                         FCON      454
          RJ   RWPRU               WRITE PRU FILLED WITH ZEROES          IRCP     5242
          SX4    B1+B1             SET UP FOR POSSIBLE ERROR EXIT        IRCP     5243
          SA2    LBLPRU                                                  FCON      455
          SB5    B5+X2             ADVANCE TO NEXT POSSIBLE PRU          FCON      456
          SB7    B0                                                      FCON      457
EXCITE    SB7    B7+PRULIM                                               FCON      458
          SX2    X2-1              SET B7 = (LBLPRU) * PRULIM            FCON      459
          NZ   X2,EXCITE                                                 FCON      460
          SX2    B5-B7                                                   FCON      461
          NG   X2,SETTLER          JUMP IF NOT AT PRU LIMIT              IRCP     5246
          EQ   WRLBL               ERROR EXIT                            IRCP     5247
                                                                         FCON      462
LBLSIZ    DATA   0                 NUMBER OF WORDS IN LABEL              FCON      463
LBLPRU    DATA   0                 NUMBER OF PRU S IN LABEL              FCON      464
          TITLE                   LABEL PROCESSING --- RDLBL             IRCP     5248
*         RDLBL -- READ LABEL                                            IRCP     5249
                                                                         IRCP     5250
*               ENTRY - B1 = 1                                           IRCP     5251
*                       X4 = NUMBER OF RBS TO TRY BEFORE RETURNING       IRCP     5252
*                            NOT FOUND STATUS                            IRCP     5253
*                       ESTADR = ADDRESS OF EST ENTRY FOR DEVICE         IRCP     5254
*                       ESTORD = EST ORDINAL                             IRCP     5255
*                       RBRADR = FWA OF RBR FOR DEVICE                   IRCP     5256
*                       RBRORD = RBR ORDINAL                             IRCP     5257
*                       RBNUM = RB NUMBER TO READ FIRST                  IRCP     5258
*                       NUMRBR = NUMBER OF RBR S FOR DEVICE              FCON      465
                                                                         IRCP     5259
*               EXIT  - LABEL IS IN BUFFER DEFINED BY LBLADR             IRCP     5260
*                       X4 = 0 IF LABEL FOUND - NO ERRORS                IRCP     5261
*                            1 IF DEVICE REJECT                          IRCP     5262
*                            2 IF LABEL NOT FOUND                        IRCP     5263
*                            3 IF PARITY ERROR                           IRCP     5264
*                            4 IF CHECKSUM ERROR                         IRCP     5265
*                       B6 =  RB NUMBER OF LABEL IF NO ERRORS            IRCP     5266
*                       B5 = PRU NUMBER OF LABEL IF NO ERRORS            IRCP     5267
                                                                         IRCP     5268
RDLBL     DATA   0                                                       IRCP     5269
          SA1    RBNUM                                                   IRCP     5270
          SB6    X1                RB NUMBER TO READ FIRST               IRCP     5271
          SB3    X4                NUMBER OF RBS TO TRY                  IRCP     5272
          SB7    LBLADR-1          FWA TO READ                           IRCP     5273
          SB5    B0                SET TO 1ST PRU IN THIS RB             IRCP     5274
          SB4    B0                FLAG TO INDICATE READING              IRCP     5275
          SX5    LDEVS             SET UP AND SEND MESSAGE TO SHOW THAT  IRCP     5276
          RJ   DEVINFO             WE ARE SEARCHING FOR A LABEL          IRCP     5277
          OPCOM  X,(LCKHDR,LDEVI,LBLOOK)                                 IRCP     5278
DYNAMIC   MX7    0                 CLEAR OUT 1ST WORD SO LABEL ID        IRCP     5279
          IFNE   W.LBID,0,1                                              IRCP     5280
          SA7    B7+W.LBID+1       WILL NOT BE LEFT FROM A PREV. READ    IRCP     5281
          IFEQ   W.LBID,0,2                                              IRCP     5282
W.LBID    EQU    W.LBID                                                  IRCP     5283
          SA7    B7+B1             WILL NOT BE LEFT FROM A PREV. READ    IRCP     5284
          SA4    NUMRBR            NUMBER OF RBR S TO BE READ FROM LABEL FCON      466
          SX5    W.LBFLAW-1        NUMBER OF WORDS IN LABEL              FCON      467
                                    EXCLUDING RBR S                      FCON      468
+         SX5    X5+RBRLTH                                               FCON      469
          SX4    X4-1              FIGURE LABEL SIZE                     FCON      470
+         NZ   X4,*-1                                                    FCON      471
          BX6    X5                                                      FCON      472
          SA6    LBLSIZ            SAVE LABEL SIZE                       FCON      473
          IFNE   RMSPRU,100B                                             FCON      474
          PX5    X5                                                      FCON      475
          SX1    RMSPRU                                                  FCON      476
          PX1    X1                                                      FCON      477
          NX5    X5                                                      FCON      478
          NX1    X1                DIVIDE BY PRU SIZE                    FCON      479
          FX5    X5/X1                                                   FCON      480
          UX5    B2,X5                                                   FCON      481
          LX5    B2,X5                                                   FCON      482
          ELSE                                                           FCON      483
          AX5    6                 DIVIDE BY PRU SIZE                    FCON      484
          ENDIF                                                          FCON      485
          SX5    X5+B1             X5 = NUMBER OF PRU S IN LABEL         FCON      486
          BX6    X5                                                      FCON      487
          SA6    LBLPRU            SAVE NUMBER OF PRU S                  FCON      488
          RJ   RWPRU               GO READ PRU                           IRCP     5285
          SB2    X4                ERROR FLAG                            IRCP     5286
          EQ   B2,B1,RDLBL         EXIT IF DEVICE REJECT                 IRCP     5287
          MX0    18                COMPARE BEGINNING OF INPUT            IRCP     5288
          SA1    LABELWD1          WITH EXPECTED LABEL ID                IRCP     5289
          IFNE   W.LBID,0,1                                              IRCP     5290
          SA2    B7+W.LBID+1                                             IRCP     5291
          IFEQ   W.LBID,0,2                                              IRCP     5292
W.LBID    EQU    W.LBID                                                  IRCP     5293
          SA2    B7+B1                                                   IRCP     5294
          BX3    X1-X2                                                   IRCP     5295
          BX3    X0*X3                                                   IRCP     5296
          NZ   X3,LUNAR            JUMP IF LABEL ID NOT THERE            IRCP     5297
          LX2    30                ALSO LOOK AT YEAR AND DO NOT ACCEPT   IRCP     5298
          MX0    12                VALUE BELOW MINIMUM                   IRCP     5299
          BX5    X0*X2                                                   IRCP     5300
          SA0    B7                SAVE B7                               IRCP     5301
          BX0    X4                SAVE READ STATUS                      IRCP     5302
          SB2    B1                SET FOR CKSUM ROUTINE                 IRCP     5303
          RJ   CNVTDTB             CONVERT YEAR TO BINARY                IRCP     5304
          SB7    A0                RESTORE B7                            IRCP     5305
          NG   X2,LUNAR            JUMP IF NO YY AS EXPECTED             IRCP     5306
          BX4    X0                STATUS                                IRCP     5307
          SX6    X6-MINYEAR                                              IRCP     5308
          NG   X6,LUNAR            JUMP IF YEAR TOO LOW                  IRCP     5309
          NZ   X4,RDLBL            JUMP IF PARITY ERROR ON READ          IRCP     5310
          SA5    LBLSIZ                                                  FCON      489
          SX1    X5-RMSPRU-1                                             FCON      490
          NG   X1,STATUE           JUMP IF LABEL SIZE LE RMSPRU          FCON      491
          SB7    B1                                                      FCON      492
          SA4    LBLPRU                                                  FCON      493
          SA2    LBLADR+RMSPRU                                           FCON      494
*                                                                        FCON      495
*         DELETE HEADER WORD FOR EACH PRU FROM LABEL BEFORE CHECKSUMMING FCON      496
*                                                                        FCON      497
TREAT     SB2    RMSPRU                                                  FCON      498
APPOINT   SA2    A2+B1                                                   FCON      499
          BX7    X2                                                      FCON      500
          SA7    A2-B7                                                   FCON      501
          SB2    B2-B1                                                   FCON      502
          NZ   B2,APPOINT                                                FCON      503
          SB7    B7+B1                                                   FCON      504
          SX1    B7                                                      FCON      505
          IX0    X4-X1                                                   FCON      506
          SA2    A2+B1             SKIP OVER NEXT HEADER WORD            FCON      507
          NZ   X0,TREAT                                                  FCON      508
STATUE    SB2    B1                SET FOR CLKSUM ROUTINE                FCON      509
          SB7    A0                RESTORE B7                            FCON      510
          RJ   CLKSUM              GO CHECK CHECKSUM                     IRCP     5311
          ZR   X4,VALLEY           EXIT IF CHECKSUM OK                   IRCP     5312
          SX4    4                 FLAG FOR CHECKSUM ERROR               IRCP     5313
          EQ   RDLBL               EXIT                                  IRCP     5314
                                                                         IRCP     5315
LUNAR     SA1    LBLPRU                                                  FCON      511
          SB5    B5+X1             ADVANCE TO NEXT POSSIBLE PRU          FCON      512
          SB2    B0                                                      FCON      513
COURAGE   SB2    B2+PRULIM                                               FCON      514
          SX1    X1-1              SET B2 = (LBLPRU) * PRULIM            FCON      515
          NZ   X1,COURAGE                                                FCON      516
          SX1    B5-B2                                                   FCON      517
          NG   X1,DYNAMIC          JUMP IF PRU LIMIT NOT REACHED         IRCP     5318
          SB5    B0                RESET PRU                             IRCP     5319
          LE   B3,B1,MYSTERY       JUMP IF SEARCHED TO RB LIMIT          IRCP     5320
          RJ   GETRB               GET ANOTHER RB NUMBER                 IRCP     5321
          NG   X1,MYSTERY          JUMP IF NO MORE RBS FREE              IRCP     5322
          SB3    B3-B1                                                   IRCP     5323
          SB6    X1                NEW RB NUMBER                         IRCP     5324
          EQ   DYNAMIC             GO TRY TO FIND LABEL ON NEXT RB       IRCP     5325
                                                                         IRCP     5326
MYSTERY   SX4    B1+B1             SET NOT FOUND FLAG                    IRCP     5327
          EQ   RDLBL               EXIT                                  IRCP     5328
                                                                         IRCP     5329
VALLEY    OPCOM  X,(NOMSG)         CLEAR OUT MESSAGE                     IRCP     5330
          MX4    0                 FLAG FOR SUCCESSFUL LABEL READ        IRCP     5331
          EQ   RDLBL               EXIT                                  IRCP     5332
          TITLE                   LABEL PROCESSING --- CLKSUM            IRCP     5333
*         CLKSUM -- COMPUTE LABEL CHECKSUM                               IRCP     5334
                                                                         IRCP     5335
*                ENTRY - LABEL IS IN AREA STARTING AT LBLADR             IRCP     5336
*                        B1 = 1                                          IRCP     5337
*                        B2 = 0 IF CHECKSUM IS TO BE COMPUTED AND        IRCP     5338
*                               STORED IN CHECKSUM FIELD                 IRCP     5339
*                             1 IF CHECKSUM IS TO BE COMPUTED AND        IRCP     5340
*                               COMPARED WITH VALUE IN CHECKSUM FIELD    IRCP     5341
                                                                         IRCP     5342
*                EXIT  - X4 = NON-ZERO IF CHECKSUMS DISAGREE  (B2 = 1)   IRCP     5343
*                        B-REGISTERS ARE SAVED                           IRCP     5344
                                                                         IRCP     5345
CLKSUM    DATA   0                                                       IRCP     5346
          SA1    LBLADR+W.LBCK     GET CHECKSUM FROM LABEL               IRCP     5347
          MX0    48                                                      IRCP     5348
          BX7    -X0*X1            SAVE                                  IRCP     5349
          BX6    X0*X1             CLEAR CKSUM FIELD BECAUSE THE         IRCP     5350
          SA6    A1                CHECKSUM DOES NOT INCLUDE IT          IRCP     5351
          SX5    B3                SAVE B3                               IRCP     5352
          MX2    0                 INITIALIZE CHECKSUM                   IRCP     5353
          SA3    LBLSIZ                                                  FCON      518
          SB3    X3-1                                                    FCON      519
LUG       SA1    B3+LBLADR         CHECKSUM LOOP                         IRCP     5355
          SB3    B3-B1                                                   IRCP     5356
          IX2    X2+X1                                                   IRCP     5357
          PL   B3,LUG                                                    IRCP     5358
          SB3    4                 NOW CONVERT TO 12-BIT CHECKSUM        IRCP     5359
SHIFTY    BX3    X0*X2             SAVE UPPER                            IRCP     5360
          AX3    12                MOVE UPPER OVER                       IRCP     5361
          BX2    -X0*X2            SAVE LOWER                            IRCP     5362
          IX2    X2+X3             ADD UPPER TO LOWER                    IRCP     5363
          SB3    B3-B1             4 TIMES                               IRCP     5364
          NZ   B3,SHIFTY           LOOP                                  IRCP     5365
          BX2    -X0*X2            KEEP ONLY LOWER 12 BITS               IRCP     5366
          IX4    X2-X7             ZERO IF CHECKSUM OK IF B2 = 1         IRCP     5367
          NZ   B2,PAYOFF           JUMP IF NOT NEW CHECKSUM              IRCP     5368
          BX7    X2                STORE THE CHECKSUM JUST COMPUTED      IRCP     5369
PAYOFF    SA1    LBLADR+W.LBCK     INSERT CHECKSUM IN LABEL              IRCP     5370
          BX7    X7+X1                                                   IRCP     5371
          SA7    A1                                                      IRCP     5372
          SB3    X5                RESTORE B3                            IRCP     5373
          EQ   CLKSUM              EXIT                                  IRCP     5374
          SPACE  3                                                       IRCP     5375
*         THE FOLLOWING IS A LONG SECTION OF CODE REGARDING PERMANENT    IRCP     5376
*         FILES ONLY.  IF IP.PFM = 0, IT WILL NOT BE ASSEMBLED.  IN      IRCP     5377
*         ORDER TO KEEP COMPASS FROM CHECKING EACH STATEMENT FOR         IRCP     5378
*         ENDIF, THERE ARE TWO CONDITIONAL STATEMENTS AT THE BEGINNING   IRCP     5379
*         AND TWO AT THE END.                                            IRCP     5380
                                                                         IRCP     5381
          IFEQ   IP.PFM,0,1                                              IRCP     5382
PF        IFEQ   1,0                                                     IRCP     5383
          TITLE                   PERMANENT FILE PROCESSING --- PFA      IRCP     5384
*         PFA -- WRITE EMPTY PFD AND RBTC ON DEVICE                      IRCP     5385
*                FIRST SET UP PFD, THEN SET UP RBTC, AND FINALLY         IRCP     5386
*                WRITE LABEL WITH PFD/RBTC POINTERS AND WITH ANY         IRCP     5387
*                ADDITIONAL FLAWS.                                       IRCP     5388
                                                                         IRCP     5389
*             ENTRY - B1 = 1                                             IRCP     5390
                                                                         IRCP     5391
PFA       DATA   0                                                       IRCP     5392
                                                                         IRCP     5393
*         DETERMINE THE NUMBER OF RBS NEEDED FOR THE PFD.                IRCP     5394
*         THE FOLLOWING ELABORATE ROUTINE IS NECESSARY TO MAKE SURE      IRCP     5395
*         ENOUGH RBS ARE ALLOTTED AFTER TAKING INTO ACCOUNT THE          IRCP     5396
*         ADDITIONAL PRUS NEEDED FOR THE HEADER OF THE PFD.  (THAT       IRCP     5397
*         IS, THOSE PRUS THAT CONTAIN THE RB CHAIN FOR THE PFD ITSELF)   IRCP     5398
                                                                         IRCP     5399
          SX6    B0                PRESET TRIAL RB COUNT                 IRCP     5400
          SX5    B0                PRESET NO. OF PRUS NEEDED FOR HEADER  IRCP     5401
          S      A1,P.PFM1         GET NUMBER OF SUBDIRECTORIES          IRCP     5402
          MX0    48                                                      IRCP     5403
          SHIFT  X1,C.SDTL                                               IRCP     5404
          BX1    -X0*X1                                                  IRCP     5405
          S      A2,P.PFM2         GET NUMBER OF ENTRIES PER SUB-DIR.    IRCP     5406
          SHIFT  X2,C.SDL                                                IRCP     5407
          BX2    -X0*X2                                                  IRCP     5408
          ZR   X1,WOOPS            NO SUBDIRECTORIES                     SC20335     1
          SB2    X1                GET NUMBER OF SUBDIRECTORIES          SC20335     2
          SX2    X2+3              ROUND UP SD ENTRIES                   SC20335     3
          AX2    2                 NUMBER OF PRUS FOR SD                 SC20335     4
          SX0    B1                                                      SC20335     5
          MX4    0                                                       SC20335     6
PFA010    SB2    B2-B1                                                   SC20335     7
          IX4    X4+X2             COUNT PRUS EXCLUDING HEADER           SC20335     8
          LT   B1,B2,PFA010                                              SC20335     9
STORM     BX7    X6                NUMBER OF REQUIRED RBS                IRCP     5424
                                                                         IRCP     5425
*         NOW RECOMPUTE RB REQUIREMENT BASED ON KNOWN HEADER REQUIREMENT IRCP     5426
                                                                         IRCP     5427
          IX3    X4+X5                                                   IRCP     5428
          IX3    X3-X0             TOTAL PRUS - 1                        IRCP     5429
          SA2    RBSIZE            DIVIDE BY NO. PRUS/RB                 IRCP     5430
          IX2    X2+X0                                                   IRCP     5431
          MX6    0                                                       IRCP     5432
OAK       IX3    X3-X2             TRIAL NUMBER OF RBS                   IRCP     5433
          IX6    X6+X0                                                   IRCP     5434
          PL   X3,OAK              DIVISION LOOP                         IRCP     5435
          IX2    X6-X7                                                   IRCP     5436
          ZR   X2,SILL             JUMP IF CORRECT VALUE REACHED         IRCP     5437
                                                                         IRCP     5438
*         NOW RECOMPUTE THE NUMBER OF PRUS NEEDED FOR THE HEADER         IRCP     5439
*         BASED ON THE KNOWN TOTAL RB REQUIREMENT.                       IRCP     5440
                                                                         IRCP     5441
          BX3    X6                                                      IRCP     5442
          MX5    0                                                       IRCP     5443
          SX2    RMSPRU*5          NUMBER OF BYTES/PRU                   IRCP     5444
RED       IX3    X3-X2                                                   IRCP     5445
          IX5    X5+X0                                                   IRCP     5446
          PL   X3,RED              DIVISION LOOP                         IRCP     5447
          EQ   STORM               LOOP, USING ADJUSTED PRU COUNT        IRCP     5448
                                                                         IRCP     5449
                                                                         IRCP     5450
*         WRITE OUT ZERO-FILLED RBS FOR AS MANY RBS AS NEEDED FOR PFD.   IRCP     5451
*         THEN RETURN HERE AND REPEAT FOR RBTC.                          IRCP     5452
                                                                         IRCP     5453
SILL      SB2    X7                NUMBER OF RBS FOR PFD OR RBTC         IRCP     5454
          SB3    2048/5+2          CLEAR AREA TO STORE RBT CHAIN         IRCP     5455
          MX6    0                                                       IRCP     5456
LEND      SA6    B3+RBBUF                                                IRCP     5457
          SB3    B3-B1                                                   IRCP     5458
          PL   B3,LEND                                                   IRCP     5459
ZAP       ZR   B2,VAT              JUMP IF DONE                          IRCP     5460
          RJ   GPFRB               GO WRITE AN RB OF ZEROES              IRCP     5461
          SB2    B2-B1             REDUCE COUNT                          IRCP     5462
          EQ   ZAP                                                       IRCP     5463
                                                                         IRCP     5464
*         SET UP HEADER FOR PFD OR RBTC                                  IRCP     5465
                                                                         IRCP     5466
VAT       SB2    RMSBUF0           INITIALIZE STORE ADDRESS              IRCP     5467
          SA3    RBBUF-1           INITIALIZE RB CHAIN FETCH ADDRESS     IRCP     5468
TOKEN     SB3    RMSPRU            SKIP STORING INTO 1ST WORD OF         IRCP     5469
          SB2    B2+B1             EACH PRU                              IRCP     5470
CORD      SA3    A3+B1             GET NEXT WORD OF CHAIN                IRCP     5471
          SB3    B3-B1             REDUCE WORDS LEFT THIS PRU            IRCP     5472
          ZR   X3,FLING            JUMP IF ENTIRE CHAIN MOVED            IRCP     5473
          BX6    X3                                                      IRCP     5474
          SA6    B2                STORE WORD IN RB                      IRCP     5475
          SB2    B2+B1             BUMP STORE ADDRESS                    IRCP     5476
          NZ   B3,CORD             LOOP THRU THIS PRU                    IRCP     5477
          EQ   TOKEN               GO SKIP 1ST WORD NEXT PRU             IRCP     5478
                                                                         IRCP     5479
FLING     SA2    PFAFLAG           PFD/RBTC FLAG                         IRCP     5480
          SA3    RBTCWW            FLAG FOR END OF RBTC                  IRCP     5481
          SB5    X2                SAVE PFD/RBTC FLAG                    IRCP     5482
          BX7    X3                                                      IRCP     5483
          ZR   X2,HOME             JUMP IF THIS IS PFD SETUP             IRCP     5484
          SB2    B2+RMSPRU+1                                             IRCP     5485
          SA7    B2+B3             STORE FLAG IN LAST WORD NEXT PRU      IRCP     5486
                                                                         IRCP     5487
*         WRITE OUT THE 1ST RB AGAIN WITH THE RB CHAIN AT THE START      IRCP     5488
*         AND MAKE SURE THAT IT IS ERROR FREE.                           IRCP     5489
                                                                         IRCP     5490
HOME      MX0    12                GET 1ST RB OF PFD OR RBTC             IRCP     5491
          SA1    RBBUF                                                   IRCP     5492
          BX1    X0*X1                                                   IRCP     5493
          LX1    12                                                      IRCP     5494
          SB6    X1                                                      IRCP     5495
          RJ   WRITERB             WRITE 1ST RB AGAIN  (B7 = FWA)        IRCP     5496
          NZ   X4,CAMP             JUMP IF ERRORS                        IRCP     5497
                                                                         IRCP     5498
*         INSERT POINTER TO PFD OR RBTC IN DEVICE LABEL.  THE DEVICE     IRCP     5499
*         LABEL MUST BE WRITTEN AGAIN AFTER BOTH THE PFD AND RBTC        IRCP     5500
*         HAVE BEEN SET UP SO THAT THESE POINTERS WILL BE INSERTED.      IRCP     5501
                                                                         IRCP     5502
          SA5    LBLADR+W.LBPFD    LABEL WORD WITH PFD/RBTC              IRCP     5503
          IFNE   W.LBPFD,W.LBRBTC,1                                      IRCP     5504
          ERR                      ABOVE CODE MUST BE CHANGED IF ERROR   IRCP     5505
          MX0    18                                                      IRCP     5506
          SX1    B6                RB NUMBER                             IRCP     5507
          LX1    48                POSITION FOR PFD                      IRCP     5508
          ZR   B5,SHREWD           JUMP IF PFD SETUP                     IRCP     5509
          LX1    42                POSITION FOR RBTC                     IRCP     5510
          LX0    42                                                      IRCP     5511
SHREWD    BX5    -X0*X5            ADD POINTER TO LABEL WORD             IRCP     5512
          BX7    X5+X1                                                   IRCP     5513
          SA7    A5                STORE LABEL WORD                      IRCP     5514
          SX6    B1                SET FLAG FOR RBTC SETUP               IRCP     5515
          SA6    PFAFLAG                                                 IRCP     5516
          NZ   B5,HEED             JUMP IF RBTC JUST SET UP              IRCP     5517
                                                                         IRCP     5518
*         DETERMINE HOW MANY PRUS ARE NEEDED FOR RBTC                    IRCP     5519
                                                                         IRCP     5520
          SX0    B1                                                      IRCP     5521
          SA1    RBSIZE                                                  IRCP     5522
          IX1    X1+X0             NUMBER OF PRUS IN RB                  IRCP     5523
          MX7    0                 INITIALIZE RESULT                     IRCP     5524
          S      A3,P.PFM2         GET NUMBER OF PRUS IN RBTC            IRCP     5525
          MX4    48                                                      IRCP     5526
          SHIFT  X3,C.RBTCL                                              IRCP     5527
          BX3    -X4*X3                                                  IRCP     5528
          LX3    4                 VALUE IN C.RBTCL WAS / 16             IRCP     5529
          IX3    X3-X0             (TOTAL PRUS IN RBTC)-1                IRCP     5530
DENT      IX3    X3-X1             DIVIDE BY RB SIZE                     IRCP     5531
          IX7    X7+X0                                                   IRCP     5532
          PL   X3,DENT                                                   IRCP     5533
          EQ   SILL                GO BACK AND SET UP RBTC               IRCP     5534
WOOPS     SA1    LBLADR+W.LBPFD    IF CMR INDICATES THAT THERE ARE       IRCP     5535
          MX0    36                NO SUB-DIRECTORIES, THEN DO NOT       IRCP     5536
          BX6    -X0*X1            MAKE THIS A PERMANENT FILE DEVICE     IRCP     5537
          SA6    A1                                                      IRCP     5538
                                                                         IRCP     5539
*         WRITE DEVICE LABEL AGAIN, SO AS TO INSERT PFD AND RBTC POINTER IRCP     5540
                                                                         IRCP     5541
HEED      SA1    LABELRB           SET UP RB NUMBER WHERE LABEL HAS      IRCP     5542
          BX6    X1                ALREADY BEEN WRITTEN                  IRCP     5543
          SA6    RBNUM                                                   IRCP     5544
          RJ   WRLBL               WRITE LABEL                           IRCP     5545
          ZR   X4,PFA              EXIT IF SUCCESSFUL                    IRCP     5546
          SX5    LDEVS             SET UP DEVICE INFORMATION             IRCP     5547
          RJ   DEVINFO                                                   IRCP     5548
          SX2    DVERMSG2          SET UP ERROR INFORMATION              IRCP     5549
          RJ   DEVERR                                                    IRCP     5550
          SA5    RBNUM             CONVERT THE RB NUMBER TO BINARY       IRCP     5551
          RJ   CNVTBTO                                                   IRCP     5552
          LX6    36                PLACE IT IN DISPLAY                   IRCP     5553
          SA6    LDEVRB                                                  IRCP     5554
REMORSE   OPCOM  A,(PFAHDR,LDEVI,LWRITER3,DVERMSG),(LDEVRB,2)            IRCP     5555
          RJ   WAITGO              WAIT FOR TYPEIN OF -GO-               IRCP     5556
          NZ   X6,REMORSE                                                IRCP     5557
          EQ   HEED                GO TRY WRITE AGAIN                    IRCP     5558
                                                                         IRCP     5559
*         A WRITE ERROR OCCURRED WHEN TRYING TO WRITE THE RB WHICH       IRCP     5560
*         WAS SET UP AS THE 1ST RB OF THE PFD OR RBTC.  THIS SHOULD      IRCP     5561
*         OCCUR ONLY VERY RARELY, SINCE THIS RB WAS ALREADY WRITTEN      IRCP     5562
*         SUCCESSFULLY ON THIS VERY DEAD-START.  HOWEVER, IF IT DOES     IRCP     5563
*         HAPPEN, SET THIS RB AS A FLAW, GET ANOTHER RB SO AS TO KEEP    IRCP     5564
*         THE SAME TOTAL NUMBER OF RBS, AND USE WHAT WAS THE 2ND RB      IRCP     5565
*         TO WRITE THE HEADER INFORMATION.                               IRCP     5566
                                                                         IRCP     5567
CAMP      SA2    RBRADR            SAVE ADDRESS OF CM RBR                IRCP     5568
          SX1    B6                RB NUMBER                             IRCP     5569
          SB2    X2                                                      IRCP     5570
          SX7    LBLADR+W.LBFLAW   SET TO ADDRESS OF FLAW TABLE          IRCP     5571
          SA7    A2                                                      IRCP     5572
          RJ   FINDBIT             FIND ADDRESS AND POSITION OF FLAW BIT IRCP     5573
          BX7    X1+X3             SET THE BIT IN THE FLAW TABLE         IRCP     5574
          SA7    A3                                                      IRCP     5575
          SX6    B2                RESTORE RBRADR                        IRCP     5576
          MX0    12                                                      IRCP     5577
          SA6    RBRADR                                                  IRCP     5578
                                                                         IRCP     5579
*         ADJUST RB CHAIN SO AS TO REMOVE THE 1ST RB NUMBER              IRCP     5580
                                                                         IRCP     5581
          SA4    RBBUF             1ST WORD OF RB CHAIN                  IRCP     5582
MAT       BX7    -X0*X4            MASK OFF BYTE 1                       IRCP     5583
          LX7    12                                                      IRCP     5584
          SA4    A4+B1             GET NEXT WORD OF CHAIN                IRCP     5585
          BX5    X0*X4             ISOLATE BYTE 1                        IRCP     5586
          LX5    12                ADD WITH 4 BYTES OF PREVIOUS WORD     IRCP     5587
          IX7    X7+X5                                                   IRCP     5588
          SA7    A4-B1             STORE PREVIOUS WORD                   IRCP     5589
          NZ   X4,MAT              DONE WHEN LAST WORD = 0               IRCP     5590
                                                                         IRCP     5591
*         GET ANOTHER RB FOR PFD OR RBTC.                                IRCP     5592
                                                                         IRCP     5593
          RJ   GPFRB                                                     IRCP     5594
          EQ   VAT                 GO WRITE HEADER INFORMATION AGAIN     IRCP     5595
                                                                         IRCP     5596
PFAFLAG   DATA   0                 ZR AT PFD SETUP, NZ AT RBTC SETUP     IRCP     5597
RBTCWW    VFD    24/-0,24/4HRBTC,12/0                                    IRCP     5598
PFDWW     VFD    24/-0,24/4HPFD ,12/0                                    IRCP     5599
          TITLE                   PERMANENT FILE PROCESSING --- GPFRB    IRCP     5600
*         GPFRB -- WRITE ZERO-FILLED RB FOR PFD OR RBTC                  IRCP     5601
                                                                         IRCP     5602
*               ENTRY - B1 = 1                                           IRCP     5603
*                       RBNUM = HIGHEST RB NUMBER USED AT THIS TIME      IRCP     5604
*                       RBRADR = RBR ADDRESS                             IRCP     5605
*                       ESTORD = EST ORDINAL OF DEVICE                   IRCP     5606
                                                                         IRCP     5607
*               EXIT  - B2 IS SAVED                                      IRCP     5608
                                                                         IRCP     5609
GPFRB     DATA   0                                                       IRCP     5610
                                                                         IRCP     5611
*         FIND FREE RB                                                   IRCP     5612
                                                                         IRCP     5613
TALL      RJ   GETRB               GET NEXT FREE RB                      IRCP     5614
          SA2    RBRADR                                                  IRCP     5615
          MX0    6                                                       IRCP     5616
          SA2    X2                                                      IRCP     5617
          BX2    X0*X2                                                   IRCP     5618
          LX2    6                 DEVICE TYPE                           IRCP     5619
          SX4    20B               THIS BIT IS SET ON INNER ZONE RBS     IRCP     5620
          SX3    X2-1              FOR 6603 OR 6603-II                   IRCP     5621
          ZR   X3,CRANK            JUMP IF 6603-I                        IRCP     5622
          SX3    X2-4                                                    IRCP     5623
          NZ   X3,NOSE             JUMP IF NEITHER TYPE 6603             IRCP     5624
CRANK     BX4    X1*X4             ON 6603, SKIP INNER ZONES             IRCP     5625
          NZ   X4,TALL             JUMP IF INNER ZONE                    IRCP     5626
                                                                         IRCP     5627
*         SET UP ZERO-FILLED RB, EXCEPT THE 1ST WORD OF EACH PRU         IRCP     5628
*         WILL HAVE THE LENGTH STORED IN THE RIGHT-MOST BYTE.  THIS      IRCP     5629
*         ENTIRE PROCESS MUST BE REPEATED FOR EACH RB BECAUSE            IRCP     5630
*         GARBAGE MAY BE READ INTO THE BUFFER AS A RESULT OF EITHER      IRCP     5631
*         A WRITE OR READ ERROR WHILE CHECKING THE VALIDITY OF THE WRITE IRCP     5632
                                                                         IRCP     5633
NOSE      SB3    RMSBUF0+MAXRBLTH-1  LWA OF RB                           IRCP     5634
          MX6    0                                                       IRCP     5635
          SA6    RMSBUF0           INITIALIZE STORE ADDRESS = FWA OF RB  IRCP     5636
          SX7    RMSPRU*5          1ST WORD OF EACH PRU                  IRCP     5637
          SB4    A6                USE FOR STORING 1ST WORD EACH PRU     IRCP     5638
          SB7    A6                USE FOR CALLING RB WRITE ROUTINE      IRCP     5639
          SB5    RMSPRU+1          LENGTH OF EACH PRU                    IRCP     5640
GLOW      SA6    A6+B1             ZERO OUT ENTIRE BUFFER                IRCP     5641
          SB6    A6                                                      IRCP     5642
          LT   B6,B3,GLOW                                                IRCP     5643
HAM       SA7    B4                STORE 1ST WORD EACH PRU               IRCP     5644
          SB4    B4+B5                                                   IRCP     5645
          LT   B4,B3,HAM                                                 IRCP     5646
          SB6    X1                RB NUMBER HAS BEEN KEPT HERE          IRCP     5647
          RJ   WRITERB             GO WRITE AND CHECK RB                 IRCP     5648
          NZ   X4,SOD              JUMP IF ERRORS                        IRCP     5649
                                                                         IRCP     5650
*         INSERT RB NUMBER IN TEMPORARY CHAIN                            IRCP     5651
                                                                         IRCP     5652
          MX0    48                                                      IRCP     5653
          SX1    B6                RB NUMBER                             IRCP     5654
          SA2    RBBUF-1           FWA-1 OF TEMPORARY RB CHAIN           IRCP     5655
WEST      SA2    A2+B1             THIS LOOP FINDS 1ST UNFILLED WORD     IRCP     5656
          BX3    -X0*X2                                                  IRCP     5657
          NZ   X3,WEST                                                   IRCP     5658
FEEL      LX0    48                THIS LOOP FINDS LEFT-MOST             IRCP     5659
          LX1    48                UNFILLED BYTE                         IRCP     5660
          BX6    -X0*X2                                                  IRCP     5661
          NZ   X6,FEEL                                                   IRCP     5662
          BX7    X1+X2                                                   IRCP     5663
          SA7    A2                INSERT RB NUMBER AND STORE            IRCP     5664
          OPCOM  X,(PFAHDR)                                              IRCP     5665
          EQ   GPFRB               EXIT                                  IRCP     5666
                                                                         IRCP     5667
*         ADD BAD RB NUMBER TO FLAW TABLE IN THE DEVICE LABEL.           IRCP     5668
                                                                         IRCP     5669
SOD       SA2    RBRADR            SAVE ADDRESS OF CM RBR, BECAUSE TO    IRCP     5670
          SB3    X2                MAKE RBR ROUTINE REFERENCE FLAWS,     IRCP     5671
          SX7    LBLADR+W.LBFLAW   RBRADR MUST = ADDRESS OF FLAW TABLE.  IRCP     5672
          SA7    A2                                                      IRCP     5673
          SX1    B6                RB NUMBER                             IRCP     5674
          RJ   FINDBIT             FIND ADDRESS AND POSITION IN TABLE    IRCP     5675
          BX7    X1+X3             SET THE BIT IN FLAW TABLE             IRCP     5676
          SA7    A3                                                      IRCP     5677
          SX6    B3                RESTORE RBRADR                        IRCP     5678
          SA6    RBRADR                                                  IRCP     5679
          EQ   TALL                GO TRY AGAIN ON ANOTHER RB            IRCP     5680
          TITLE                   PERMANENT FILE PROCESSING -- PFB       IRCP     5681
*         PFB -- READ PFD AND RBTC AND SET UP ALL CM TABLES SO AS        IRCP     5682
*                TO REFLECT THE PRESENCE OF PERMANENT FILES.  FNT        IRCP     5683
*                ENTRIES FOR EACH SUBDIRECTORY AND FOR THE RBTC ARE      IRCP     5684
*                SET UP.  AN RBT CHAIN FOR THE PFD AND ANOTHER FOR       IRCP     5685
*                THE RBTC ARE SET UP.  ALL RBR BITS FOR PERMANENT        IRCP     5686
*                FILE RBS ARE SET.  THE SDT IS SET UP.                   IRCP     5687
                                                                         IRCP     5688
*             ENTRY - B1 = 1                                             IRCP     5689
                                                                         IRCP     5690
PFB       DATA   0                                                       IRCP     5691
EMBARK    SA1    LBLADR+W.LBPFD    GET 1ST RB NO. OF PFD OR RBTC         IRCP     5692
W.LBPFD   EQU    W.LBRBTC          IF ERROR HERE, CODE MUST BE CHANGED   IRCP     5693
          SA2    PFBFLAG                                                 IRCP     5694
          LX1    12                                                      IRCP     5695
          ZR   X2,RAMP             JUMP IF PROCESSING PFD                IRCP     5696
          LX1    18                SHIFT FOR 1ST RB OF RBTC              IRCP     5697
RAMP      MX0    48                                                      IRCP     5698
          BX1    -X0*X1                                                  IRCP     5699
          SB6    X1                RB NUMBER                             IRCP     5700
          SB5    RMSBUF0           FWA OF INPUT BUFFER                   IRCP     5701
          RJ   PFBREAD             GO READ 1ST RB OF PFD OR RBTC         IRCP     5702
                                                                         IRCP     5703
*         SET UP THE RBT CHAIN AND SET ALL BITS IN RBR FOR PFD AND RBTC  IRCP     5704
                                                                         IRCP     5705
          SA2    MEMSIZE           KEEP MEMORY SIZE HANDY                IRCP     5706
          SA0    X2                                                      IRCP     5707
          MX7    59                INIT. RBT ORDINAL SO IT WILL BE       IRCP     5708
          SA7    RBO               ZERO AFTER GETTING 1ST WORD PAIR      IRCP     5709
          MX7    0                                                       IRCP     5710
          SB6    -B1               INITIALIZE BYTE FETCH POINTER         IRCP     5711
          SA7    RPRU              INITIALIZE PRU                        IRCP     5712
          SB4    8                 FORCE FETCH OF 1ST WORD PAIR          IRCP     5713
                                                                         IRCP     5714
*         START OF LOOP FOR PICKING RB NUMBERS OUT OF CHAIN              IRCP     5715
                                                                         IRCP     5716
SEAT      SA1    B5                GET CURRENT WORD IN INPUT             IRCP     5717
          PL   B6,TELL             JUMP IF THIS WORD NOT EXHAUSTED       IRCP     5718
          SB5    B5+B1             ADVANCE TO NEXT WORD                  IRCP     5719
          MX0    12                WE MUST CHECK FOR START OF PRU        IRCP     5720
          SA1    A1+B1                                                   IRCP     5721
          SB6    4                 RESET INPUT BYTE POINTER              IRCP     5722
          BX0    X0*X1                                                   IRCP     5723
          NZ   X0,TELL             JUMP IF NOT 1ST WORD IN PRU           IRCP     5724
          ZR   X1,EAST             JUMP IF END OF RB CHAIN               SC20334     1
          SA1    A1+B1             GET NEXT WORD                         IRCP     5725
          SA2    RPRU              BUMP PRU NUMBER                       IRCP     5726
          SX7    X2+B1                                                   IRCP     5727
          SA7    A2                                                      IRCP     5728
          SB5    B5+B1             ADVANCE POINTER                       IRCP     5729
TELL      SX2    B6                SHIFT TO RIGHTMOST POSITION           IRCP     5730
          MX0    48                                                      IRCP     5731
          BX3    X2                MULTIPLY BYTE POSITION BY 12          IRCP     5732
          LX3    1                                                       IRCP     5733
          IX3    X2+X3                                                   IRCP     5734
          LX3    2                                                       IRCP     5735
          SB2    X3                                                      IRCP     5736
          AX1    X1,B2             SHIFT TO RIGHTMOST BYTE               IRCP     5737
          SB6    B6-B1             UPDATE BYTE POSITION                  IRCP     5738
          BX1    -X0*X1            RB NUMBER                             IRCP     5739
          ZR   X1,EAST             JUMP IF ALL RBS STORED                IRCP     5740
          SB7    7                                                       IRCP     5741
          LE   B4,B7,TEA           JUMP IF CURRENT WD PR NOT YET FULL    IRCP     5742
                                                                         IRCP     5743
*         GET ANOTHER RBT WORD PAIR                                      IRCP     5744
                                                                         IRCP     5745
          SB2    X1                SAVE RB NUMBER                        IRCP     5746
          SA4    RBO               BUMP RBT ORDINAL                      IRCP     5747
          SX7    X4+B1                                                   IRCP     5748
          SA7    A4                                                      IRCP     5749
          SX1    B3                ADR OF LAST WORD PAIR  (IF ANY)       IRCP     5750
          SB3    X7                SAVE ORD AS A 1ST FLAG                IRCP     5751
          MX2    0                 BYTE = 0                              IRCP     5752
          NZ   B3,SKIMP            JUMP IF NOT GETTING 1ST WORD PAIR     IRCP     5753
          SX1    B0                THIS WILL BE THE 1ST WORD PAIR        IRCP     5754
          SX2    B1+B1             BYTE = 2                              IRCP     5755
SKIMP     SB4    X2                SAVE CURRENT BYTE HERE                IRCP     5756
          RJ   GETWDPR             GO GET A WORD PAIR                    IRCP     5757
          NZ   B3,FENCE            JUMP IF NOT 1ST WORD PAIR             IRCP     5758
          SA6    FRBA              SAVE ADDRESS OF 1ST WORD PAIR         IRCP     5759
FENCE     SB3    X6                ADDRESS OF THIS WORD PAIR             IRCP     5760
          SX1    B2                REPLACE LAST RB NUMBER PICKED UP      IRCP     5761
                                                                         IRCP     5762
*         STORE BYTE IN RBT                                              IRCP     5763
                                                                         IRCP     5764
TEA       SB2    B3+B3             (RBT ADDRESS)*2                       IRCP     5765
          SA5    A0-B2             GET 1ST WORD OF CURRENT WORD PAIR     IRCP     5766
          SX3    B4-3                                                    IRCP     5767
          NG   X3,HUSH             JUMP IF BYTE IN 1ST WORD              IRCP     5768
          SA5    A5+B1             GET 2ND WORD OF WORD PAIR             IRCP     5769
HUSH      SB2    B7-B4             7 - BYTE COUNT                        IRCP     5770
          BX2    X1                                                      IRCP     5771
          LX2    48                SHIFT RB NUMBER TO CORRECT BYTE       IRCP     5772
WHARF     SB2    B2-B1                                                   IRCP     5773
          LX2    12                                                      IRCP     5774
          PL   B2,WHARF                                                  IRCP     5775
          BX6    X5+X2             ADD TO RBT WORD                       IRCP     5776
          SA6    A5                STORE                                 IRCP     5777
          SB4    B4+B1             ADVANCE RBT BYTE NUMBER               IRCP     5778
          RJ   SETRB               GO SET BIT IN RBR TABLE               IRCP     5779
          ZR   X1,SEAT             JUMP IF NO CONFLICT                   IRCP     5780
          RJ   FINK                GO WARN OPERATOR OF CONFLICT IN RBR   IRCP     5781
          EQ   SEAT                OPERATOR SAID CONTINUE                IRCP     5782
                                                                         IRCP     5783
*         SET UP FOR STORING FNT ENTRIES                                 IRCP     5784
                                                                         IRCP     5785
EAST      SA4    PFBFLAG                                                 IRCP     5786
          NZ   X4,WELL             JUMP IF PROCESSING RBTC               IRCP     5787
          S      A1,P.PFM1         COMPUTE FNT STORE ADDRESS             IRCP     5788
          MX0    48                                                      IRCP     5789
          SHIFT  X1,C.SDTL                                               IRCP     5790
          BX7    -X0*X1            NUMBER OF SUBDIRECTORIES              IRCP     5791
          SX2    X7+B1             ADD ONE TO INCLUDE RBTC ENTRY         IRCP     5792
          SA7    NSUB                                                    IRCP     5793
          SX4    LE.FNT                                                  IRCP     5794
          PX1    X4                                                      IRCP     5795
          PX2    X2                                                      IRCP     5796
          DX3    X1*X2                                                   IRCP     5797
          UX6    X3                NUMBER OF WORDS FROM END OF FNT       IRCP     5798
          S      A5,P.FNT                                                IRCP     5799
          LX5    24                                                      IRCP     5800
          BX3    -X0*X5            LWA+1 OF FNT                          IRCP     5801
          IX6    X3-X6             ADDRESS TO STORE RBTC ENTRY           IRCP     5802
          SA6    FNTAR                                                   IRCP     5803
          IX7    X6+X4             ADDRESS TO STORE 1ST PFD ENTRY        IRCP     5804
          SA7    FNTAP                                                   IRCP     5805
          SA1    RBRADR            GET DEVICE TYPE FOR FNT ENTRIES       IRCP     5806
          SA2    X1                1ST WORD OF RBR                       IRCP     5807
          MX0    6                                                       IRCP     5808
          SA3    FRBA                                                    IRCP     5809
          BX5    X0*X2             DEVICE TYPE                           IRCP     5810
          BX6    X3                                                      IRCP     5811
          SA6    CRBA              START WITH CURRENT RBA = FIRST RBA    IRCP     5812
          LX3    36                SET UP WORD 1 OF FST                  IRCP     5813
          IX6    X3+X5                                                   IRCP     5814
          SA6    FSTWD1                                                  IRCP     5815
          MX7    0                 INITIALIZE RBT ORDINAL                IRCP     5816
          SA7    RBO                                                     IRCP     5817
                                                                         IRCP     5818
*         STORE FNT/FST ENTRY FOR SUBDIRECTORY ZERO                      IRCP     5819
                                                                         IRCP     5820
          AX3    12                PUT CURRENT RB ADR IN FST(1)          IRCP     5821
          IX6    X3+X6                                                   IRCP     5822
          SX1    B1+B1             BYTE = 2 AT START OF FILE             IRCP     5823
          LX1    12                                                      IRCP     5824
          IX6    X1+X6             (ORD AND PRU = 0)                     IRCP     5825
          SA3    FNTAP             ADR TO STORE SUB-DIR. ZERO ENTRY      IRCP     5826
          SA4    FNTP1             GET 1ST WORD OF FNT/FST ENTRY         IRCP     5827
          BX7    X4                FOR SUB-DIR. ZERO                     IRCP     5828
          LX7    24                                                      IRCP     5829
          SA7    X3                                                      IRCP     5830
          SA6    A7+B1             STORE FST(1)                          IRCP     5831
          SX7    B1                STORE FST(2) WITH CODE-STATUS = 1     IRCP     5832
          SA7    A6+B1                                                   IRCP     5833
          SX6    X3+LE.FNT                                               IRCP     5834
          SA6    A3                ADVANCE FNT STORE ADDRESS             IRCP     5835
                                                                         IRCP     5836
*         SET UP FOR PROCESSING ALL OTHER SUBDIRECTORIES                 IRCP     5837
                                                                         IRCP     5838
          MX0    48                                                      IRCP     5839
          S      A1,P.PFM1         GET FWA OF SDT                        IRCP     5840
          SHIFT  X1,C.SDT                                                IRCP     5841
          BX7    -X0*X1                                                  IRCP     5842
          SA7    SDTWORD                                                 IRCP     5843
          S      A2,P.PFM2         GET SUB-DIR. SIZE IN PRUS             IRCP     5844
          SHIFT  X2,C.SDL                                                IRCP     5845
          BX7    -X0*X2            NO. OF ENTRIES PER SUB-DIR.           IRCP     5846
          SX7    X7-1              MINUS ONE                             IRCP     5847
          AX7    2                 / 4 ENTRIES PER PRU                   IRCP     5848
          SX7    X7+B1             ROUND UP                              IRCP     5849
          SA7    SUBSIZE           SAVE                                  IRCP     5850
          SA5    B5                FETCH ADDRESS FROM INPUT BUFFER       IRCP     5851
BAY       SA5    A5+B1             FIND START OF SUB-DIR. ONE            IRCP     5852
          ZR   X5,BAY              ALL WORDS IN HEADER AFTER RB CHAIN    IRCP     5853
          SB5    A5                ARE ZERO UNTIL START OF NEXT PRU      IRCP     5854
          SA2    RPRU                                                    IRCP     5855
          SX6    X2+B1             ADVANCE PRU COUNT BY ONE              IRCP     5856
          SA6    A2                                                      IRCP     5857
                                                                         IRCP     5858
*         BEGIN PROCESSING EACH SUBDIRECTORY HERE                        IRCP     5859
                                                                         IRCP     5860
ELK       SA1    NSUB              CHECK IF ALL SUB-DIRS. HAVE BEEN READ IRCP     5861
          SA5    SUBCT             BUMP SUB-DIR. COUNT                   IRCP     5862
          SX7    X5+B1                                                   IRCP     5863
          SA7    A5                                                      IRCP     5864
          IX3    X1-X5                                                   IRCP     5865
          SB4    X5                                                      IRCP     5866
          ZR   X3,PAPER            JUMP IF ALL SUB-DIRS. PROCESSED       IRCP     5867
          SA1    RBSIZE            CHECK IF POSITIONED AT END OF RB      IRCP     5868
          SA2    RPRU                                                    IRCP     5869
          IX1    X1-X2                                                   IRCP     5870
          PL   X1,WHEEL            JUMP IF NOT END OF RB                 IRCP     5871
          SB5    RMSBUF0           RESET BUFFER POINTER                  SC2798      1
          RJ   PFBRRR              READ NEXT RB                          IRCP     5872
                                                                         IRCP     5873
*         FORM FNT/FST ENTRY FOR NEXT SUB-DIRECTORY OF PFD               IRCP     5874
                                                                         IRCP     5875
WHEEL     SX5    B4                RESTORE SUB-DIRECTORY NUMBER          IRCP     5876
          MX0    42                                                      IRCP     5877
          RJ   CNVTBTD             CONVERT TO DECIMAL DISPLAY            IRCP     5878
          SA1    FNTP1             SKELETON FNT WORD 1                   IRCP     5879
          BX6    -X0*X6            3-DIGIT DECIMAL SUB-DIR. NUMBER       IRCP     5880
          BX1    X0*X1                                                   IRCP     5881
          IX6    X1+X6                                                   IRCP     5882
          LX6    24                FNT WORD 1 READY TO STORE             IRCP     5883
          SA1    FSTWD1            FORM FST(1)                           IRCP     5884
          SA2    CRBA              CURRENT RB ADDRESS                    IRCP     5885
          SA3    RBO               CURRENT RB ORDINAL                    IRCP     5886
          SA4    RBYTE             CURRENT RB BYTE                       IRCP     5887
          SA5    RPRU              CURRENT PRU                           IRCP     5888
          LX2    24                MOVE EVERYTHING INTO POSITION         IRCP     5889
          LX3    15                                                      IRCP     5890
          LX4    12                                                      IRCP     5891
          IX2    X2+X3             FORM FST(1)                           IRCP     5892
          BX4    X4+X5                                                   IRCP     5893
          IX2    X2+X4                                                   IRCP     5894
          BX7    X1+X2                                                   IRCP     5895
          SA1    FNTAP             ADR TO STORE THIS FNT ENTRY           IRCP     5896
          SA6    X1                STORE FNT(1)                          IRCP     5897
          SX6    X1+LE.FNT         BUMP STORE ADDRESS                    IRCP     5898
          SA7    A6+B1             STORE FST(1)                          IRCP     5899
          SX7    B1                SET FST(2) CODE-STATUS = 1            IRCP     5900
          SA7    A7+B1             STORE FST(2)                          IRCP     5901
          SA6    A1                                                      IRCP     5902
                                                                         IRCP     5903
*         COUNT THE NUMBER OF ENTRIES IN THIS SUBDIRECTORY               IRCP     5904
                                                                         IRCP     5905
          SA1    SUBSIZE           SUBDIRECTORY SIZE IN PRUS             IRCP     5906
          SB2    X1                                                      IRCP     5907
          SB4    B0                INITIALIZE ENTRY COUNT                IRCP     5908
BAT       SB3    4                 INITIALIZE ENTRYS/PRU                 IRCP     5909
          SB5    B5+B1             SKIP OVER 1ST WORD IN PRU             IRCP     5910
          MX0    42                                                      IRCP     5911
          SA1    PFDWW             THIS IS WHAT HEADER LOOKS LIKE        IRCP     5912
LAKE      SA2    B5                GET WHAT MAY BE START OF AN ENTRY     IRCP     5913
          SB5    B5+16             BUMP POINTER TO PFD DATA              IRCP     5914
          BX3    X1-X2                                                   IRCP     5915
          BX3    X0*X3                                                   IRCP     5916
          NZ   X3,RISE             JUMP IF NO ENTRY HERE                 IRCP     5917
          LX2    56                                                      IRCP     5918
          PL   X2,RISE             JUMP IF ENTRY NOT IN USE              IRCP     5919
          SB4    B4+B1             BUMP COUNT OF ENTRIES                 IRCP     5920
RISE      SB3    B3-B1                                                   IRCP     5921
          NZ   B3,LAKE             LOOP UNTIL END OF PRU                 IRCP     5922
                                                                         IRCP     5923
*         ADVANCE TO NEXT PRU AND CHECK FOR END OF SUBDIRECTORY          IRCP     5924
                                                                         IRCP     5925
          SB2    B2-B1             DECREMENT PRUS LEFT IN SUBDIRECTORY   IRCP     5926
          SA4    RPRU              BUMP PRU COUNT                        IRCP     5927
          SX7    X4+B1                                                   IRCP     5928
          SA7    A4                                                      IRCP     5929
          NZ   B2,FIRE             JUMP IF MORE PRUS IN SUB-DIRECTORY    IRCP     5930
                                                                         IRCP     5931
*         ADD AN ENTRY TO THE SUBDIRECTORY TABLE  (SDT)                  IRCP     5932
                                                                         IRCP     5933
          SA1    SDTWORD           CURRENT SDT STORE ADDRESS             IRCP     5934
          SA2    SDTBYTE           SHIFT COUNT                           IRCP     5935
          SB2    X2+B1             ADD 1 - RIGHT BIT IS SOMETHING ELSE   IRCP     5936
          SA5    X1                GET CURRENT WORD IN SDT               IRCP     5937
          SX6    B4                VALUE TO STORE                        IRCP     5938
          LX6    X6,B2             SHIFT TO POSITION                     IRCP     5939
          IX6    X5+X6                                                   IRCP     5940
          SA6    A5                STORE BACK                            IRCP     5941
          SX6    X2-12             ADVANCE SHIFT COUNT                   IRCP     5942
          PL   X6,TONE             JUMP IF CURRENT WORD FULL             IRCP     5943
          SX7    X1+B1             ADVANCE STORE ADDRESS                 IRCP     5944
          SA7    A1                                                      IRCP     5945
          SX6    48                RESET SHIFT COUNT                     IRCP     5946
TONE      SA6    A2                                                      IRCP     5947
          EQ   ELK                 GO PROCESS NEXT SUBDIRECTORY          IRCP     5948
                                                                         IRCP     5949
*         CHECK FOR END OF RB                                            IRCP     5950
                                                                         IRCP     5951
FIRE      SA1    RBSIZE            (PRUS PER RB)-1                       IRCP     5952
          IX1    X4-X1                                                   IRCP     5953
          NZ   X1,BAT              JUMP IF MORE PRUS THIS RB             IRCP     5954
          RJ   PFBRRR              GO READ NEXT RB                       IRCP     5955
          SB5    RMSBUF0           RESET BUFFER POINTER                  SC2798      2
          EQ   BAT                 CONTINUE WITH SAME SUBDIRECTORY       IRCP     5956
                                                                         IRCP     5957
*         ALL SUBDIRECTORIES OF PFD HAVE BEEN READ.                      IRCP     5958
*         INSERT EOI PRU NUMBER IN 1ST WORD PAIR OF RBT                  IRCP     5959
                                                                         IRCP     5960
PAPER     SA1    FRBA              FIRST RBT ADDRESS                     IRCP     5961
          SA2    RPRU              EOI PRU NUMBER                        IRCP     5962
          IX1    X1+X1                                                   IRCP     5963
          SB2    X1                                                      IRCP     5964
          SA3    A0-B2             GET 1ST WORD OF 1ST WORD PAIR         IRCP     5965
          LX2    12                SHIFT EOI PRU INTO PLACE              IRCP     5966
          IX6    X3+X2             ADD                                   IRCP     5967
          SA6    A3                STORE                                 IRCP     5968
                                                                         IRCP     5969
*         INITIALIZE FOR PROCESSING RBTC                                 IRCP     5970
                                                                         IRCP     5971
          SX6    B1+B1                                                   IRCP     5972
          SA6    RBYTE             SET BYTE = 2                          IRCP     5973
          SA6    PFBFLAG           SET FLAG TO INDICATE RBTC PROCESSING  IRCP     5974
          EQ   EMBARK              GO PROCESS RBTC                       IRCP     5975
                                                                         IRCP     5976
*         STORE FNT ENTRY FOR RBTC                                       IRCP     5977
                                                                         IRCP     5978
WELL      SA1    FSTWD1            DEVICE TYPE                           IRCP     5979
          SA2    FRBA              FIRST RBT ADDRESS                     IRCP     5980
          MX3    12                MASK OUT RBT ADDRESS FOR PFD          IRCP     5981
          BX1    X3*X1                                                   IRCP     5982
          LX2    36                                                      IRCP     5983
          BX1    X1+X2             DEVICE TYPE AND 1ST RBT ADDRESS       IRCP     5984
          SA3    RBO               CURRENT RBT ORDINAL                   IRCP     5985
          SX2    B3                CURRENT RBT ADDRESS                   IRCP     5986
          SX4    B4-B1             LAST RBT BYTE                         IRCP     5987
          SA5    RBSIZE                                                  IRCP     5988
          SX6    X5+B1             HIGHEST PRU NUMBER + 1                IRCP     5989
          LX2    24                FORM FST WORD 1                       IRCP     5990
          LX3    15                                                      IRCP     5991
          LX4    12                                                      IRCP     5992
          IX1    X1+X2                                                   IRCP     5993
          IX3    X3+X4                                                   IRCP     5994
          IX3    X3+X6                                                   IRCP     5995
          IX6    X1+X3                                                   IRCP     5996
          SA4    FNTAR             STORE ADDRESS FOR RBTC FNT ENTRY      IRCP     5997
          SA3    FNTR1             FNT WORD FOR RBTC                     IRCP     5998
          BX7    X3                                                      IRCP     5999
          SA7    X4                STORE FNT WORD                        IRCP     6000
          SA6    A7+B1             STORE FST(1)                          IRCP     6001
          SX7    B1                CODE AND STATUS = 1                   IRCP     6002
          SA7    A6+B1             STORE FST(2)                          IRCP     6003
                                                                         IRCP     6004
*         READ ENTIRE RBTC UP TO THE LAST ENTRY AND SET BITS IN          IRCP     6005
*         RBRS FOR THE RBT CHAINS OF ALL PERMANENT FILES.                IRCP     6006
                                                                         IRCP     6007
          SB7    RMSPRU            PRU SIZE                              IRCP     6008
          SB4    B0                INITIALIZE PRU COUNT                  IRCP     6009
          SB3    B0                INITIALIZE WORD COUNT WITHIN PRU      IRCP     6010
          SB5    RMSBUF0+1                                               IRCP     6011
          SA1    FRBA              RESET RBA, BYTE, ORDINAL              IRCP     6012
          BX6    X1                                                      IRCP     6013
          SA6    CRBA                                                    IRCP     6014
          SX6    B1+B1                                                   IRCP     6015
          MX7    0                                                       IRCP     6016
          SA6    RBYTE                                                   IRCP     6017
          SA7    RBO                                                     IRCP     6018
                                                                         IRCP     6019
*         FIND START OF RBTC ENTRY                                       IRCP     6020
                                                                         IRCP     6021
TEND      RJ   NXWORD              GET NEXT WORD OF RBTC                 IRCP     6022
          ZR   X6,TEND             SEARCH FORWARD TO A HEADER WORD       IRCP     6023
          NG   X6,MICE             JUMP IF END OF RBTC                   IRCP     6024
                                                                         IRCP     6025
*         GET START OF RBT CHAIN FOR THIS ENTRY                          IRCP     6026
                                                                         IRCP     6027
          LX5    58                                                      IRCP     6028
          NG   X5,TEND             JUMP IF THIS ENTRY NOT IN USE         IRCP     6029
          SB2    11                ADVANCE TO POINTER WORD  (WORD 12)    IRCP     6030
PERTAIN   RJ   NXWORD                                                    IRCP     6031
          SB2    B2-B1                                                   IRCP     6032
          NZ   B2,PERTAIN          LOOP UNTIL WORD 12 OF RBTC REACHED    IRCP     6033
          MX0    48                                                      IRCP     6034
          AX5    24                                                      IRCP     6035
          BX5    -X0*X5                                                  IRCP     6036
          SB2    X5                NO. WORDS-1 TO START OF RBT CHAIN     IRCP     6037
IVY       RJ   NXWORD                                                    IRCP     6038
          SB2    B2-B1                                                   IRCP     6039
          PL   B2,IVY              LOOP UNTIL START OF CHAIN REACHED     IRCP     6040
          BX7    X5                                                      IRCP     6041
                                                                         IRCP     6042
*         PROCESS A WORD PAIR OF THE RBT CHAIN IN AN RBTC ENTRY          IRCP     6043
                                                                         IRCP     6044
ACRE      SA7    RBTCWP            SAVE 1ST WORD OF WORD PAIR            IRCP     6045
          RJ   NXWORD              GET 2ND WORD OF A WORD PAIR           IRCP     6046
          BX7    X5                                                      IRCP     6047
          MX0    57                                                      IRCP     6048
          SA7    RBTCWP+1                                                IRCP     6049
          SA1    RBRADR            SAVE RBR ADDRESS OF PFD DEVICE        IRCP     6050
          MX4    51                                                      IRCP     6051
          BX6    X1                                                      IRCP     6052
          SA6    RBRSVV                                                  IRCP     6053
          SA1    RBRORD            SAVE RBR ORDINAL OF PFD DEVICE        IRCP     6054
          BX6    X1                                                      IRCP     6055
          SA6    A6+B1                                                   IRCP     6056
          SA2    A7-B1             GET 1ST WORD OF WORD PAIR             IRCP     6057
          LX2    24                GET BYTE NUMBER                       IRCP     6058
          BX3    -X0*X2                                                  IRCP     6059
          SB2    X3                SAVE BYTE NUMBER                      IRCP     6060
          LX2    57                GET RBR ORDINAL                       IRCP     6061
          BX6    -X4*X2                                                  IRCP     6062
                                                                         IRCP     6063
*         COMPUTE RBR ADDRESS, STORE RBR ORDINAL AND ADDRESS             IRCP     6064
                                                                         IRCP     6065
FRINGE    S      A1,P.RBT                                                IRCP     6066
          SA6    RBRORD            SAVE RBR ORDINAL                      IRCP     6067
          SHIFT  X1,C.RBRAD+1                                            IRCP     6068
          SX1    X1                FWA OF RBRS                           IRCP     6069
          PX4    X6                MULTIPLY ORDINAL BY RBR LENGTH        IRCP     6070
          SX3    RBRLTH                                                  IRCP     6071
          PX3    X3                                                      IRCP     6072
          DX6    X3*X4                                                   IRCP     6073
          UX6    X6                                                      IRCP     6074
          IX6    X6+X1             SAVE ADDRESS OF RBR                   IRCP     6075
          SA6    RBRADR                                                  IRCP     6076
                                                                         IRCP     6077
*         SET BITS IN RBR FOR ALL RB NUMBERS                             IRCP     6078
                                                                         IRCP     6079
BLUE      SX1    B2-8                                                    IRCP     6080
          SA5    RBTCWP            GET 1ST WORD OF WORD PAIR             IRCP     6081
          PL   X1,RUG              JUMP IF DONE WITH THIS WORD PAIR      IRCP     6082
          SX2    B2-3                                                    IRCP     6083
          MX0    48                                                      IRCP     6084
          NG   X2,CHILL            JUMP IF BYTE IN 1ST WORD              IRCP     6085
          SA5    A5+B1             GET 2ND WORD                          IRCP     6086
CHILL     SX2    B2                COMPUTE VALUE TO SHIFT                IRCP     6087
          BX3    X2                                                      IRCP     6088
          LX3    1                                                       IRCP     6089
          IX3    X2+X3                                                   IRCP     6090
          LX3    2                                                       IRCP     6091
          SB1    X3-24                                                   IRCP     6092
          LX2    X5,B1             SHIFT BYTE TO RIGHTMOST POSITION      IRCP     6093
          SB1    1                 RESET B1                              IRCP     6094
          BX1    -X0*X2            HERE IS AN RBT BYTE                   IRCP     6095
          SB2    B2+B1             BUMP BYTE COUNT                       IRCP     6096
          ZR   X1,BLUE             JUMP IF THIS BYTE EMPTY               IRCP     6097
          LX2    59                                                      IRCP     6098
          BX6    X1                SET UP IN CASE THIS IS AN RBR ORDINAL IRCP     6099
          AX6    3                                                       IRCP     6100
          PL   X2,FRINGE           JUMP IF THIS IS AN RBR ORDINAL        IRCP     6101
          RJ   SETRB               GO SET BIT IN RBR                     IRCP     6102
          ZR   X1,BLUE             JUMP IF NO CONFLICT                   IRCP     6103
          RJ   FINK                GO WARN OPERATOR OF CONFLICT IN RBR   IRCP     6104
          EQ   BLUE                OPERATOR SAID TO CONTINUE             IRCP     6105
                                                                         IRCP     6106
*         CHECK FOR END OF THIS RBT CHAIN                                IRCP     6107
                                                                         IRCP     6108
RUG       SA1    RBRSVV            RESTORE RBR ADDRESS OF PFD DEVICE     IRCP     6109
          MX0    12                END OF RBT CHAIN IS SIGNALED BY       IRCP     6110
          BX6    X1                EMPTY CHAIN LINK                      IRCP     6111
          SA6    RBRADR                                                  IRCP     6112
          SA1    A1+B1             RESTORE RBR ORDINAL OF PFD DEVICE     IRCP     6113
          BX6    X1                                                      IRCP     6114
          SA6    RBRORD                                                  IRCP     6115
          BX4    X0*X5                                                   IRCP     6116
          ZR   X4,TEND             JUMP IF ENTIRE RBT CHAIN PROCESSED    IRCP     6117
          RJ   NXWORD              GET 1ST WORD OF NEXT WORD PAIR        IRCP     6118
          BX7    X5                                                      IRCP     6119
          EQ   ACRE                GO PROCESS THIS WORD PAIR             IRCP     6120
                                                                         IRCP     6121
*         STORE P.PFM2 WITH POINTERS TO CURRENT EOI WORD OF RBTC         IRCP     6122
                                                                         IRCP     6123
MICE      SA1    CRBA              CURRENT WORD PAIR ADDRESS             IRCP     6124
          SA2    RBYTE             CURRENT BYTE                          IRCP     6125
          SX3    B3                CM WORD WITHIN THIS PRU               IRCP     6126
          SX4    B4                PRU NUMBER                            IRCP     6127
          SA5    RBO               CURRENT RBT ORDINAL                   SC20223     1
          LX1    24                SHIFT INTO PLACE                      IRCP     6128
          LX2    12                                                      IRCP     6129
          LX3    6                                                       IRCP     6130
          LX5    15                                                      SC20223     2
          BX1    X1+X2             PUT EVERYTHING IN ONE WORD            IRCP     6131
          BX3    X3+X4                                                   IRCP     6132
          BX1    X1+X3                                                   IRCP     6133
          BX1    X1+X5                                                   SC20223     3
          IFEQ   C.RBTC1,2,1                                             IRCP     6134
C.RBTC1   EQU    C.RBTC1                                                 IRCP     6135
          IFLT   C.RBTC1,2,1                                             IRCP     6136
          LX1    24-C.RBTC1*12                                           IRCP     6137
          IFNE   C.RBTC1,C.RBTC2-1,1                                     IRCP     6138
          ERR                      ABOVE CODE MUST BE CHANGED            IRCP     6139
          IFNE   C.RBTC2,C.RBTC3-1,1                                     IRCP     6140
          ERR                      ABOVE CODE MUST BE CHANGED            IRCP     6141
          S      A2,P.PFM2         ADD EOI INFORMATION TO P.PFM2         IRCP     6142
          BX7    X1+X2                                                   IRCP     6143
          SA7    A2                                                      IRCP     6144
                                                                         IRCP     6145
*         READ THE REMAINING RBS ALLOCATED TO THE RBTC, SO AS            IRCP     6146
*         TO VERIFY THAT THEY ARE STILL READABLE.                        IRCP     6147
                                                                         IRCP     6148
EDICT     RJ   PFBRRR              READ NEXT RB OF RBTC                  IRCP     6149
          PL   B6,EDICT            LOOP TO END OF RBTC SPACE             IRCP     6150
                                                                         IRCP     6151
*         SET EOI PRU FOR RBTC = MAXIMUM PRU NUMBER + 1                  IRCP     6152
                                                                         IRCP     6153
          SA1    FRBA              FIRST RBT ADDRESS FOR RBTC            IRCP     6154
          IX1    X1+X1                                                   IRCP     6155
          SB2    X1                                                      IRCP     6156
          SA3    RBSIZE            MAXIMUM PRU NUMBER                    IRCP     6157
          SX3    X3+B1                                                   IRCP     6158
          LX3    12                SHIFT INTO POSITION FOR RBT           IRCP     6159
          SA1    A0-B2             GET 1ST WORD OF 1ST RBT WORD PAIR     IRCP     6160
          BX7    X1+X3             ADD EOI PRU NUMBER                    IRCP     6161
          SA7    A1                STORE                                 IRCP     6162
          EQ   PFB                 EXIT                                  IRCP     6163
                                                                         IRCP     6164
*         ERROR EXIT FOR RB CONFLICT                                     IRCP     6165
                                                                         IRCP     6166
*                ON ENTRY, B1 = 1                                        IRCP     6167
*                          X5 = RB NUMBER                                IRCP     6168
*                          RBRORD = RBR ORDINAL                          IRCP     6169
                                                                         IRCP     6170
*                ON EXIT,  B-REGISTERS ARE SAVED                         IRCP     6171
                                                                         IRCP     6172
FINK      DATA   0                                                       IRCP     6173
          SX2    B7                SAVE B7  (CNVTBTO USES IT)            IRCP     6174
          MX0    36                                                      IRCP     6175
          RJ   CNVTBTO             CONVERT RB NUMBER                     IRCP     6176
          SA1    RBFF              GET MESSAGE FILL-IN                   IRCP     6177
          BX6    -X0*X6            INSERT IN MESSAGE                     IRCP     6178
          BX1    X1+X6                                                   IRCP     6179
          SA5    RBRORD            GET RBR ORDINAL                       IRCP     6180
          RJ   CNVTBTO             CONVERT                               IRCP     6181
          MX0    48                                                      IRCP     6182
          BX6    -X0*X6            PUT IN MESSAGE                        IRCP     6183
          LX6    48                                                      IRCP     6184
          IX6    X1+X6                                                   IRCP     6185
          SA6    RBF2              COMPLETE MESSAGE                      IRCP     6186
          SB7    X2                RESTORE B7                            IRCP     6187
SINK      OPCOM  A,(PFBHDR,RBFAULT)  TELL OPERATOR ABOUT CONFLICT        IRCP     6188
          RJ   WAITGO              WAIT FOR TYPEIN OF GO                 IRCP     6189
          NZ   X6,SINK                                                   IRCP     6190
          EQ   FINK                TRY TO CONTINUE                       IRCP     6191
                                                                         IRCP     6192
RBFAULT   MSGLST  MEDIUM,LEFT                                            IRCP     6193
          POSTXT  *,9                                                    IRCP     6194
          MSGTEXT  (CONFLICT OF RB OCCUPIED BY)                          IRCP     6195
RBF1      MSGTEXT  (PERMANENT FILE - RBR00, RB0000)                      IRCP     6196
          MSGTEXT  (TO TAKE CHANCE RUNNING, TYPE GO)                     IRCP     6197
RBF2      EQU    RBF1+3                                                  IRCP     6198
          ENDLST                                                         IRCP     6199
INIT      IFEQ   INITDS,0                                                GHKFXDS    77
DONTLBL   MSGLST   MEDIUM,LEFT                                           DBBNOIN    19
          POSTXT   *,8                                                   DBBNOIN    20
          MSGTEXT  ( RELABEL WILL DESTROY)                               DBBNOIN    21
          POSTXT   *,9                                                   DBBNOIN    22
          MSGTEXT  ( PERM FILES OR SYSTEM)                               DBBNOIN    23
          POSTXT   *,13                                                  DBBNOIN    24
          MSGTEXT  ( REDEADSTART OR CALL SYSTEMS)                        DBBNOIN    25
          ENDLST                                                         DBBNOIN    26
INIT      ENDIF                                                          GHKFXDS    78
RBFF      VFD    12/0,24/4L, RB,24/0                                     IRCP     6200
          TITLE                   PERMANENT FILE PROCESSING --- PFBREAD  IRCP     6201
*         PFBREAD -- READ RB OF PFD OF RBTC                              IRCP     6202
                                                                         IRCP     6203
*                 ENTRY - B1 = 1                                         IRCP     6204
*                         B6 = RB NUMBER                                 IRCP     6205
*                         ESTORD = EST ORDINAL OF DEVICE                 IRCP     6206
                                                                         IRCP     6207
*                 EXIT  - B-REGISTERS ARE SAVED                          IRCP     6208
                                                                         IRCP     6209
PFBREAD   DATA   0                                                       IRCP     6210
ZING      SX7    B7                SAVE B7                               IRCP     6211
          SA7    PFBRSV                                                  IRCP     6212
          SB7    RMSBUF0           CM FWA                                IRCP     6213
          RJ   READRB              READ RECORD BLOCK                     IRCP     6214
          NZ   X4,ROAD             JUMP IF ERROR                         IRCP     6215
          SA1    PFBRSV            RESTORE B7                            IRCP     6216
          SB7    X1                                                      IRCP     6217
          OPCOM  X,(PFBHDR)                                              IRCP     6218
          EQ   PFBREAD             EXIT                                  IRCP     6219
                                                                         IRCP     6220
ROAD      SX5    LDEVS             SET UP DEVICE INFORMATION FROM EST    IRCP     6221
          RJ   DEVINFO                                                   IRCP     6222
          SX2    DVERMSG2          SET UP DEVICE ERROR INFORMATION       IRCP     6223
          RJ   DEVERR                                                    IRCP     6224
          SA2    PFBFLAG           INSERT *PFD * OR *RBTC* INTO MESSAGE  IRCP     6225
          SA3    PFBRM                                                   IRCP     6226
          BX6    X3                                                      IRCP     6227
          ZR   X2,SWAY             JUMP IF PFD                           IRCP     6228
          LX6    30                                                      IRCP     6229
SWAY      SA6    LDEVRB                                                  IRCP     6230
ORANGE    OPCOM  A,(LCKHDR,LDEVI,PFRDERR,DVERMSG),(LDEVRB,2)             IRCP     6231
          RJ   WAITGO              WAIT FOR TYPEIN OF -GO-               IRCP     6232
          NZ   X6,ORANGE           LOOP ON OTHER TYPEIN                  IRCP     6233
          EQ   ZING                GO TRY READ AGAIN                     IRCP     6234
                                                                         IRCP     6235
PFBRSV    DATA   0                 SAVE AREA FOR B-REGISTERS             IRCP     6236
PFBRM     DATA   10HPFD  RBTC                                            IRCP     6237
PFRDERR   MSGLST  MEDIUM,LEFT                                            IRCP     6238
          POSTXT  *,9                                                    IRCP     6239
          MSGTEXT  (ERROR IN READING  $$$$)                              IRCP     6240
          MSGTEXT  (TYPE GO TO TRY AGAIN)                                IRCP     6241
          ENDLST                                                         IRCP     6242
          TITLE                   PERMANENT FILE PROCESSING --- PFBRRR   IRCP     6243
*         PFBRRR -- RB READ ROUTINE FOR USE BY PFB                       IRCP     6244
*                   UPDATES CURRENT RBT ADDRESS, ORDINAL, BYTE,          IRCP     6245
*                   AND RESETS PRU.                                      IRCP     6246
                                                                         IRCP     6247
*                ENTRY - B1 = 1                                          IRCP     6248
*                        A0 = LWA+1 OF CM                                IRCP     6249
*                        ESTORD = EST ORDINAL                            IRCP     6250
                                                                         IRCP     6251
*                EXIT  - B6 = RB NUMBER  (NG IF END OF RBT CHAIN)        IRCP     6252
*                        OTHER B-REGISTERS ARE SAVED                     IRCP     6253
                                                                         IRCP     6254
PFBRRR    DATA   0                                                       IRCP     6255
CONTOUR   SA2    RBYTE             CURRENT RBT BYTE                      IRCP     6256
          SA3    CRBA              CURRENT RBT ADDRESS                   IRCP     6257
          IX3    X3+X3                                                   IRCP     6258
          MX7    0                 RESET PRU COUNT                       IRCP     6259
          SA7    RPRU                                                    IRCP     6260
          SB6    X3                                                      IRCP     6261
          SA5    A0-B6             1ST WORD OF CURRENT WORD PAIR         IRCP     6262
          SX7    X2+B1             BUMP CURRENT BYTE                     IRCP     6263
          SA7    A2                                                      IRCP     6264
          SX4    X7-8              CHECK IF TIME TO USE NEXT WORD PAIR   IRCP     6265
          NG   X4,NORTH            JUMP IF NOT                           IRCP     6266
          MX0    12                GET LINK TO NEXT WORD PAIR            IRCP     6267
          BX7    X0*X5                                                   IRCP     6268
          LX7    12                SAVE IT AS CURRENT RBT ADDRESS        IRCP     6269
          SB6    -B1               GO OUT WITH THIS IF END OF RBT CHAIN  IRCP     6270
          ZR   X7,PFBRRR           EXIT IF END OF RBT CHAIN              IRCP     6271
          SA7    A3                                                      IRCP     6272
          IX7    X7+X7             GET THE NEXT WORD PAIR                IRCP     6273
          SB6    X7                                                      IRCP     6274
          SA5    A0-B6                                                   IRCP     6275
          MX2    57                ISOLATE BYTE POINTER                  IRCP     6276
          BX3    X5                                                      IRCP     6277
          AX3    36                                                      IRCP     6278
          BX7    -X2*X3                                                  IRCP     6279
          SA7    A2                STORE BYTE                            IRCP     6280
          SA1    RBO               BUMP RBT ORDINAL                      IRCP     6281
          SX6    X1+B1                                                   IRCP     6282
          SA6    A1                                                      IRCP     6283
NORTH     SX2    X7-3                                                    IRCP     6284
          BX6    X7                COMPUTE SHIFT COUNT TO SHIFT TO       IRCP     6285
          LX7    1                 RIGHTMOST BYTE                        IRCP     6286
          IX7    X6+X7                                                   IRCP     6287
          NG   X2,SQUIRE           JUMP IF WE WANT FIRST WORD            IRCP     6288
          SA5    A5+B1             GET 2ND WORD OF WORD PAIR             IRCP     6289
SQUIRE    LX7    2                                                       IRCP     6290
          SB6    X7-24                                                   IRCP     6291
          LX4    X5,B6             SHIFT TO RIGHTMOST BYTE               IRCP     6292
          MX0    48                GET RB NUMBER                         IRCP     6293
          BX0    -X0*X4                                                  IRCP     6294
          SB6    X0                RB NUMBER                             IRCP     6295
          ZR   B6,CONTOUR          JUMP IF EMPTY BYTE                    IRCP     6296
          RJ   PFBREAD             GO READ THIS RB                       IRCP     6297
          EQ   PFBRRR              EXIT                                  IRCP     6298
          TITLE                   PERMANENT FILE PROCESSING --- NXWORD   IRCP     6299
*         NXWORD -- GET NEXT WORD OF RBTC                                IRCP     6300
                                                                         IRCP     6301
*                ENTRY - B1 = 1                                          IRCP     6302
*                        B3 = NO. OF WORDS TAKEN FROM CURRENT PRU        IRCP     6303
*                        B4 = NO. OF PRUS INTO CURRENT RB                IRCP     6304
*                        B5 = PREVIOUS FETCH ADDRESS                     IRCP     6305
*                        B7 = PRU SIZE + 1                               IRCP     6306
                                                                         IRCP     6307
*                EXIT  - X5 = RBTC WORD                                  IRCP     6308
*                        X6 = NG IF END OF RBTC                          IRCP     6309
*                             PL IF START OF RBTC ENTRY                  IRCP     6310
*                             ZR OTHERWISE                               IRCP     6311
*                        B3, B4, B5 ARE UPDATED                          IRCP     6312
*                        A0 AND OTHER B-REGISTERS ARE SAVED              IRCP     6313
                                                                         IRCP     6314
NXWORD    DATA   0                                                       IRCP     6315
          SB3    B3+B1             ADVANCE WORD COUNT THIS PRU           IRCP     6316
          SB5    B5+B1             ADVANCE FETCH ADDRESS                 IRCP     6317
          LT   B3,B7,PARKS         JUMP IF PRU NOT EXHAUSTED             IRCP     6318
          SA1    RBSIZE            CHECK FOR END OF RB                   IRCP     6319
          SB4    B4+B1             ADVANCE PRU COUNT                     IRCP     6320
          SB3    B0                RESET WORD COUNT                      IRCP     6321
          SX2    B4                                                      IRCP     6322
          IX2    X1-X2                                                   IRCP     6323
          SB5    B5+B1             SKIP 1ST WORD OF PRU                  IRCP     6324
          PL   X2,PARKS            JUMP IF NOT END OF RB                 IRCP     6325
          SB4    B0                RESET PRU COUNT                       IRCP     6326
          SB5    RMSBUF0+1         FETCH ADDRESS FOR START OF NEXT RB    IRCP     6327
          RJ   PFBRRR              GO GET NEXT RB                        IRCP     6328
PARKS     SA1    RBTCWW            CHECK IF AT START OF AN RBTC ENTRY    IRCP     6329
          MX0    48                OR AT THE END OF THE RBTC             IRCP     6330
          SA5    B5                GET NEXT WORD OF RBTC                 IRCP     6331
          SX6    B0                SET STATUS FOR NOT HEADER OR END      IRCP     6332
          BX3    X1-X5                                                   IRCP     6333
          BX3    X0*X3                                                   IRCP     6334
          NZ   X3,NXWORD           EXIT IF NEITHER HEADER OR END         IRCP     6335
          BX6    -X5               SET NEGATIVE IF END                   IRCP     6336
          LX6    59                POSITIVE IF HEADER                    IRCP     6337
          EQ   NXWORD              EXIT                                  IRCP     6338
          SPACE  3                                                       IRCP     6339
*         END OF LONG CONDITIONAL CODE FOR PERMANENT FILES               IRCP     6340
                                                                         IRCP     6341
          IFEQ   IP.PFM,0,1                                              IRCP     6342
PF        ENDIF                                                          IRCP     6343
          TITLE                   MESSAGES USED BY LABEL AND PF ROUTINES IRCP     6344
LCKHDR    MSGLST  MEDIUM,LEFT                                            IRCP     6345
          TABX   7                                                       IRCP     6346
          MSGTEXT  (- LABEL CHECKING -)                                  IRCP     6347
          ENDLST                                                         IRCP     6348
LWRHDR    MSGLST  MEDIUM,LEFT                                            IRCP     6349
          MSGTEXT  (    - LABEL INITIALIZATION -)                        IRCP     6350
          ENDLST                                                         IRCP     6351
LBINFO    MSGLST  SMALL,LEFT                                             IRCP     6352
          POSTXT  18,4                                                   IRCP     6353
LM1       MSGTEXT  (                          )                          IRCP     6354
LBDEV     EQU    LM1+1                                                   IRCP     6355
          POSTXT  23,6                                                   IRCP     6356
LM2       MSGTEXT  (                    )                                IRCP     6357
LBYN      EQU    LM2+1                                                   IRCP     6358
          POSTXT  *,10                                                   IRCP     6359
          MSGTEXT  (FIRST - CHANGE THE FOLLOWING OPTIONS AS DESIRED -)   IRCP     6360
          POSTXT 3,*                                                     FCON      520
LM3       MSGTEXT  (DATE,MMDDYY   DATE THAT WILL BE PUT IN LABEL (MMDDYY IRCP     6362
,))                                                                      IRCP     6363
LBDATE    EQU    LM3+1                                                   IRCP     6364
          POSTXT 3,*                                                     FCON      521
LM4       MSGTEXT  (VID,ABCDEF    VISUAL ID FOR LABEL (1-6 CHARS))       IRCP     6366
LBVID     EQU    LM4+1                                                   IRCP     6367
          POSTXT 3,*                                                     FCON      522
LM5       MSGTEXT  (PF,YES    INDICATES IF THIS IS PRIMARY PERM. FILE DE IRCP     6369
,VICE.)                                                                  IRCP     6370
LBPF      EQU    LM5+1             INSERT PF OPTION IN THIS WORD         IRCP     6371
          PTABX  13                                                      IRCP     6372
          MSGTEXT  (IF SO, THE PFD AND RBTC WILL BE RE-INITIALIZED)      IRCP     6373
          MSGTEXT  (WHEN THE LABEL IS WRITTEN, AND ANY PERMANENT)        IRCP     6374
          MSGTEXT  (FILES WILL BE LOST.)                                 IRCP     6375
          POSTXT 3,*                                                     FCON      523
LBM1      MSGTEXT  (FT,N     DISPLAY FLAW TABLE N ON RIGHT SCREEN)       FCON      524
          PTABX  13                                                      FCON      525
LBM2      MSGTEXT  ((+ OR -  INCREMENT OR DECREMENT FLAW TABLE NUMBER))  FCON      526
          POSTXT 3,*                                                     FCON      527
          MSGTEXT  (FLAW,N    SET FLAW BIT FOR RB N IN FLAW TABLE)       FCON      528
          PTABX  13                                                      FCON      529
          MSGTEXT  (NOW DISPLAYED (N = 1-4 OCTAL DIGITS))                FCON      530
          POSTXT 3,*                                                     FCON      531
          MSGTEXT  (FREE,N    CLEAR FLAW BIT FOR RB N IN FLAW TABLE)     FCON      532
          PTABX  13                                                      FCON      533
          MSGTEXT  (NOW DISPLAYED (N = 1-4 OCTAL DIGITS))                FCON      534
          POSTXT 0,*                                                     FCON      535
          MSGTEXT  (THEN - ENTER ONE OF THE FOLLOWING OPTIONS -)         IRCP     6383
          POSTXT 3,*                                                     FCON      536
          MSGTEXT  (WR      WRITE LABEL ON THIS DEVICE.)                 IRCP     6385
          POSTXT 3,*                                                     FCON      537
          MSGTEXT  (SK      BYPASS WRITING A LABEL ON THIS DEVICE.)      IRCP     6387
          POSTXT 3,*                                                     FCON      538
          MSGTEXT  (NONE    DO NOT WRITE LABELS ON THIS OR REMAINING DEV IRCP     6389
,ICES.)                                                                  IRCP     6390
          POSTXT 3,*                                                     FCON      539
          MSGTEXT  (ALL     WRITE LABEL FOR THIS AND ALL REMAINING DEVIC IRCP     6392
,ES BUT)                                                                 IRCP     6393
          PTABX  11                                                      FCON      540
          MSGTEXT  (NO OPERATOR INTERVENTION UNLESS AN ERROR OCCURS.)    IRCP     6395
          POSTXT *,*               2 BLANK LINES                         FCON      541
          POSTXT 13,*                                                    FCON      542
LM6       MSGTEXT  (          )                                          IRCP     6397
LBERR     EQU    LM6+1                                                   IRCP     6398
          ENDLST                                                         IRCP     6399
LBYY      DATA   10HLABEL - RB                                           IRCP     6400
          VFD    24/0,24/4H PRU,12/0                                     IRCP     6401
LBNN      DATA   20H   NO LABEL FOUND                                    IRCP     6402
LRBR1     DATA   C*FT,N     DISPLAY FLAW TABLE N ON RIGHT SCREEN*        FCON      543
LRBR2     DATA   C*(+ OR -  INCREMENT OR DECREMENT FLAW TABLE NUMBER)*   FCON      544
LRBR3     BSS    0                                                       FCON      545
FLAWRBR   DATA   10H0000000000     RBR NO. IN OCTAL DISPLAY CODE         FCON      546
FLAWMES   MSGLST  SMALL,RIGHT                                            IRCP     6403
          POSTXT 22,2                                                    FCON      547
          MSGTEXT  (FLAW TABLE  $$)                                      FCON      548
          POSTXT *,4                                                     FCON      549
          MSGTEXT  (ABS       REL       FLAW TABLE   (LAST 36 WORDS OF R IRCP     6405
,BR))                                                                    IRCP     6406
          POSTXT *,6                                                     FCON      550
FLAWFWA   EQU    *+1                                                     IRCP     6408
          DUP    44B,1                                                   IRCP     6409
          MSGTEXT  (                                        )            IRCP     6410
          ENDLST                                                         IRCP     6411
LBIGN     DATA   10H-IGNORED-                                            IRCP     6412
LDEVI     MSGLST  MEDIUM,LEFT                                            IRCP     6413
          POSTXT  *,4                                                    IRCP     6414
LM7       MSGTEXT  (                          )                          IRCP     6415
LDEVS     EQU    LM7+1                                                   IRCP     6416
          ENDLST                                                         IRCP     6417
LBLOOK    MSGLST  MEDIUM,LEFT                                            IRCP     6418
          POSTXT  *,8                                                    IRCP     6419
          MSGTEXT  (     SEARCHING FOR LABEL)                            IRCP     6420
          ENDLST                                                         IRCP     6421
LNOTF1    MSGLST  MEDIUM,LEFT                                            IRCP     6422
          POSTXT  *,8                                                    IRCP     6423
          MSGTEXT  (NO LABEL FOUND ON THIS DEVICE)                       IRCP     6424
          MSGTEXT  (HAVE SEARCHED THRU RB $$$$)                          IRCP     6425
          POSTXT  5,11                                                   IRCP     6426
          MSGTEXT  (OPTIONS --)                                          IRCP     6427
          ENDLST                                                         IRCP     6428
LNOTF2    OPTLST  MEDIUM,LEFT                                            IRCP     6429
          POSTXT  *,13                                                   IRCP     6430
          OPTEXT  (SS$-SEARCH FARTHER DOWN DEVICE)                       IRCP     6431
          OPTEXT  (NEW$-WRITE NEW LABEL)                                 IRCP     6432
          ENDLST                                                         IRCP     6433
LREADER1  MSGLST  MEDIUM,LEFT                                            IRCP     6434
          POSTXT  *,9                                                    IRCP     6435
LM8       MSGTEXT  (          ERROR ON LABEL-RB $$$$)                    IRCP     6436
LERRI     EQU    LM8+1                                                   IRCP     6437
          POSTXT  5,11                                                   IRCP     6438
          MSGTEXT  (OPTIONS --)                                          IRCP     6439
          ENDLST                                                         IRCP     6440
LREADER2  OPTLST  MEDIUM,LEFT                                            IRCP     6441
          POSTXT  *,13                                                   IRCP     6442
          OPTEXT  (NEW$-WRITE NEW LABEL)                                 IRCP     6443
          OPTEXT  (DEL$-HAVE SYSTEM IGNORE DEVICE)                       IRCP     6444
          ENDLST                                                         IRCP     6445
LDEVRB    BSSZ   1                 HOLDS 4-CHAR LEFT JUSTIFIED RB NO.    IRCP     6446
LERRT     DATA   10H   PARITY      FILL-INS FOR ABOVE MESSAGE            IRCP     6447
          DATA   10H CHECKSUM                                            IRCP     6448
PUBPRV1   MSGLST  MEDIUM,LEFT                                            IRCP     6449
          POSTXT  *,7                                                    IRCP     6450
          MSGTEXT  (PUBLIC DEVICE HAS A PRIVATE PACK)                    IRCP     6451
          MSGTEXT  (MOUNTED.  SELECT OPTION.)                            IRCP     6452
          ENDLST                                                         IRCP     6453
PUBPRV2   OPTLST  MEDIUM,LEFT                                            IRCP     6454
          POSTXT  *,10                                                   IRCP     6455
          OPTEXT  (PUB$-USE IT AS A PUBLIC PACK)                         IRCP     6456
          OPTEXT  (OTHER$-MOUNT ANOTHER PACK)                            IRCP     6457
          ENDLST                                                         IRCP     6458
          IFNE   IP.PFM,0                                                IRCP     6459
NOPFDEV   QSTLST  MEDIUM,LEFT                                            IRCP     6460
          QSTEXT  (NO PRIMARY PERMANENT FILE DEVICE)                     IRCP     6461
          QSTEXT  (WAS FOUND.  TYPE GO TO CONTINUE,)                     IRCP     6462
          QSTEXT  (BUT ANY PERMANENT INFORMATION ON)                     IRCP     6463
          QSTEXT  (THE OTHER DEVICES WILL BE LOST)                       IRCP     6464
          ENDLST                                                         IRCP     6465
          ENDIF                                                          IRCP     6466
PRIVM1    MSGLST  MEDIUM,LEFT                                            IRCP     6467
          POSTXT  *,7                                                    IRCP     6468
          MSGTEXT  (THIS DEVICE HAS A PRIVATE PACK)                      IRCP     6469
          MSGTEXT  (MOUNTED ON IT.  SELECT OPTION.)                      IRCP     6470
          ENDLST                                                         IRCP     6471
PRIVM2    OPTLST  MEDIUM,LEFT                                            IRCP     6472
          POSTXT  *,10                                                   IRCP     6473
          OPTEXT  (PUB$-WRITE PUBLIC LABEL)                              IRCP     6474
          OPTEXT  (PRI$-SKIP WRITE-KEEP PRIV)                            IRCP     6475
          ENDLST                                                         IRCP     6476
          IFNE   IP.PFM,0                                                IRCP     6477
MULTPF1   MSGLST  MEDIUM,LEFT                                            IRCP     6478
          POSTXT  *,7                                                    IRCP     6479
          MSGTEXT  (ANOTHER DEVICE IS ALSO SPECIFIED)                    IRCP     6480
          MSGTEXT  (AS PRIMARY PERM. FILE DEVICE.)                       IRCP     6481
          MSGTEXT  (THERE IS SUPPOSED TO BE ONLY ONE)                    IRCP     6482
          MSGTEXT  (SELECT OPTION -)                                     IRCP     6483
          ENDLST                                                         IRCP     6484
MULTPF2   OPTLST  MEDIUM,LEFT                                            IRCP     6485
          POSTXT  *,12                                                   IRCP     6486
          OPTEXT  (NO$-THIS WILL NOT BE PF DEVICE)                       IRCP     6487
          ENDLST                                                         IRCP     6488
          ENDIF                                                          IRCP     6489
LWRITER1  MSGLST  MEDIUM,LEFT                                            IRCP     6490
          POSTXT  *,8                                                    IRCP     6491
          MSGTEXT  (UNABLE TO WRITE LABEL AT RB $$$$)                    IRCP     6492
          MSGTEXT  (OPTIONS --)                                          IRCP     6493
          ENDLST                                                         IRCP     6494
LWRITER2  OPTLST  MEDIUM,LEFT                                            IRCP     6495
          POSTXT  *,11                                                   IRCP     6496
          OPTEXT  (SAME$-TRY AGAIN ON SAME RB)                           IRCP     6497
          OPTEXT  (NEXT$-TRY ON NEXT RB)                                 IRCP     6498
          OPTEXT  (DEL$-HAVE SYSTEM IGNORE DEVICE)                       IRCP     6499
          ENDLST                                                         IRCP     6500
LREJ1     MSGLST  MEDIUM,LEFT                                            IRCP     6501
          POSTXT  *,8                                                    IRCP     6502
          MSGTEXT  (DEVICE NONEXISTENT (REJECTING))                      IRCP     6503
          MSGTEXT  (OPTIONS --)                                          IRCP     6504
          ENDLST                                                         IRCP     6505
LREJ2     OPTLST  MEDIUM,LEFT                                            IRCP     6506
          POSTXT  *,11                                                   IRCP     6507
          OPTEXT  (REP$-TRY AGAIN)                                       IRCP     6508
          OPTEXT  (DEL$-HAVE SYSTEM IGNORE DEVICE)                       IRCP     6509
          ENDLST                                                         IRCP     6510
REJGO     MSGLST  MEDIUM,LEFT                                            IRCP     6511
          POSTXT  10,9                                                   IRCP     6512
          MSGTEXT  (DEVICE REJECT)                                       IRCP     6513
          POSTXT  7,11                                                   IRCP     6514
          MSGTEXT  (TYPE GO TO TRY AGAIN)                                IRCP     6515
          ENDLST                                                         IRCP     6516
          IFNE   IP.PFM,0                                                IRCP     6517
PFAHDR    MSGLST  MEDIUM,LEFT                                            IRCP     6518
          MSGTEXT  (    PFD/RBTC INITIALIZATION)                         IRCP     6519
          ENDLST                                                         IRCP     6520
PFBHDR    MSGLST  MEDIUM,LEFT                                            IRCP     6521
          TABX   8                                                       IRCP     6522
          MSGTEXT  (PFD/RBTC CHECKING)                                   IRCP     6523
          ENDLST                                                         IRCP     6524
LWRITER3  MSGLST  MEDIUM,LEFT                                            IRCP     6525
          POSTXT  *,9                                                    IRCP     6526
          MSGTEXT  (UNABLE TO REWRITE LABEL ON PF)                       IRCP     6527
          MSGTEXT  (DEVICE AT RB$$$$)                                    IRCP     6528
          MSGTEXT  (TYPE GO TO TRY AGAIN)                                IRCP     6529
          ENDLST                                                         IRCP     6530
INIT      IFNE   INITDS,0                                                GHKFXDS    79
ROOKIE    MSGLST   MEDIUM,LEFT                                           JEEYES     45
          POSTXT   0,10                                                  JEEYES     46
          MSGTEXT  ( TYPE SAVE TO USE)                                   JEEYES     47
          MSGTEXT  ( LABEL ON DISK)                                      JEEYES     48
          ENDLST                                                         JEEYES     49
PRO       MSGLST   MEDIUM,RIGHT                                          JEEYES     50
          POSTXT   0,10                                                  JEEYES     51
          MSGTEXT  ( OTHERWISE DISK LABEL)                               JEEYES     52
          MSGTEXT  ( WILL BE IGNORED,)                                   JEEYES     53
          MSGTEXT  ( LABEL WILL BE AS ON TAPE)                           JEEYES     54
          ENDLST                                                         JEEYES     55
DEFHED    MSGLST   MEDIUM,LEFT                                           DBBIONL    69
          POSTXT   0,10                                                  DBBIONL    70
          MSGTEXT  ( TYPE YES FOR DEFAULT)                               DBBIONL    71
          MSGTEXT  ( INITIALIZING SEQUENCE)                              DBBIONL    72
          ENDLST                                                         DBBIONL    73
DUMHED    MSGLST   MEDIUM,RIGHT                                          DBBIONL    74
          POSTXT   0,10                                                  DBBIONL    75
          MSGTEXT  ( SEQUENCE MAKES FIRST SYSTEM)                        DBBIONL    76
          MSGTEXT  ( DEVICE THE PF DEVICE,  THEN)                        DBBIONL    77
          MSGTEXT  ( WRITES ALL LABELS)                                  DBBIONL    78
          ENDLST                                                         DBBIONL    79
INIT      ENDIF                                                          GHKFXDS    80
          ENDIF                                                          IRCP     6531
          TITLE                   STORAGE AREA OF LABEL AND PF ROUTINES  IRCP     6532
          IFNE   IP.PFM,0,1                                              IRCP     6533
RBNUM     DATA   0                 FOR SAVING RB NUMBERS                 IRCP     6535
TAILBITS  VFD    60/74177417741774170000B                                IRCP     6536
LABELWD1  VFD    24/4HDEV0         DEVICE ID                             IRCP     6537
LBLDATE   EQU    LABELWD1                                                IRCP     6538
          VFD    36/5R69001        JULIAN DATE                           IRCP     6539
LABELWD2  VFD    60/0LABCDEF       VISUAL ID                             IRCP     6540
LABELFLG  DATA   0                 0 = NORMAL LABEL WRITING              IRCP     6541
*                                  1 = WRITE NO MORE LABELS              IRCP     6542
*                                  2 = WRITE ALL LABELS AUTOMATICALLY    IRCP     6543
MISSING   DATA   0                 NZ TO AVOID A 2ND SEARCH FOR LABEL    IRCP     6544
DELETED   DATA   0                 NZ IF DEVICE DELETED DURING LABELLING SCR320X     7
LABELRB   DATA   0                 RB NUMBER OF DEVICE LABEL             IRCP     6545
PFBFLAG   DATA   0                 ZERO-PROCESSING PFD, NONZERO-RBTC     IRCP     6546
FRBA      DATA   0                 STORAGE FOR 1ST RBT ADDRESS           IRCP     6547
CRBA      DATA   0                 STORAGE FOR CURRENT RBT ADDRESS       IRCP     6548
RBO       DATA   0                 STORAGE FOR CURRENT RBT ORDINAL       IRCP     6549
RBYTE     DATA   2                 STORAGE FOR CURRENT RBT BYTE          IRCP     6550
RPRU      DATA   0                 STORAGE FOR CURRENT PRU               IRCP     6551
FNTAP     DATA   0                 STORE ADR FOR FNT ENTRIES FOR PFD     IRCP     6552
FNTAR     DATA   0                 STORE ADDRESS FOR FNT ENTRY OF RBTC   IRCP     6553
FNTP1     VFD    6/0,3/3,3/0,12/0,36/0L0SD000                            IRCP     6554
FNTR1     VFD    42/0L0RBTC,3/3,3/0,12/0                                 IRCP     6555
NSUB      DATA   0                 NUMBER OF SUBDIRECTORIES              IRCP     6556
SUBCT     DATA   1                 COUNT OF SUBDIRECTORIES PROCESSED     IRCP     6557
FSTWD1    DATA   0                 USED FOR SETUP OF FST WORD 1          IRCP     6558
SUBSIZE   DATA   0                 SUBDIRECTORY SIZE IN PRUS             IRCP     6559
SDTWORD   DATA   0                 STORE ADR FOR SUB-DIR. TABLE  (SDT)   IRCP     6560
SDTBYTE   DATA   36                SHIFT COUNT FOR SUB-DIR. TABLE  (SDT) IRCP     6561
RBTCWP    DATA   0,0               STORAGE FOR 1 RBT WORD PAIR FROM RBTC IRCP     6562
RBRSVV    DATA   0,0               STORAGE FOR RBR ADDRESS AND ORDINAL   IRCP     6563
FIRRBT    BSS    1                 FIRST RBT LINK ORDINAL                IRCP     2714
LASRBT    BSS    1                 TEMPORARY RBT WORD PAIR COUNTER       IRCP     2715
RSPFLAG   BSSZ   1                 RESPOND FLAG                          IRCP     2716
TURNFLAG  BSSZ   1                                                       IRCP     2717
CPTL      BSSZ   1                 CP TIME LIMIT                         IRCP     2718
CPFL      BSSZ   1                 CM FIELD LENGTH                       IRCP     2719
CPECSJ    BSSZ   1                 ECS FIELD LENGTH                      IRCP     2720
CPMT      BSSZ   1                 MT RESERVATION (INITIAL)              BBBSMTR     1
CPRTI     BSSZ     1                   SPACE FOR INITIAL ROUTE           DKRRCP2     1
ALLFLAG   BSSZ   1                 0-SAVE ALL FILES,1-DO NOT SAVE ALL    IRCP     2721
SYSFLAG   BSSZ   1                 0-SAVE SYSTEM,1-DO NOT SAVE SYS       IRCP     2722
FRBT      BSS    1                 FIRST RBT WD                          IRCP     2723
FNTADR    BSS    1                 FNT CURRENT ADDRESS                   IRCP     2724
FNTLIM    BSS    1                 FNT ADDRESS LIMIT                     IRCP     2725
MANCP     EQU       1              MANAGER CONTROL POINT                 HS2IRCP   146
JNMASK    DATA      77007777777777000000B                                HS2IRCP   147
MANAGER   DATA      5LMANAG        MANAGER NAME                          HS2IRCP   148
TTYTTY    VFD       42/6LTTYTTY,6/70B,12/0 NEW TTYTTY FILE FOR USER      HS2IRCP   149
RERUNF    BSSZ      1                                                    HS2IRCQ    87
INSPW     BSSZ      1                                                    BBBRCP2     1
PTFWA     BSSZ   1                 FWA-2 OF POOL TABLE(+TABLESAV)        BBBRCP2     2
ICFLAG    VFD    12/7777B,48/0     INTERCOM FLAG                         INTCOM      1
IFLAG     BSSZ   1                 INPUT FILE FLAG                       IRCP     2726
OFLAG     BSSZ     1                   FLAG FOR OUTPUT FILES             DKRRCP1     1
FSTW1     BSS    1                 FST WORD 1                            IRCP     2727
FSTWD2    BSS    1                 FST WORD 2                            IRCP     2728
RBTWD     BSS    1                 ADDRESS OF RBT WD                     IRCP     2729
SHIFTAB   VFD    60/36                                                   IRCP     2730
          VFD    60/48                                                   IRCP     2731
          VFD    60/0                                                    IRCP     2732
          VFD    60/12                                                   IRCP     2733
          VFD    60/24                                                   IRCP     2734
CPLIM     BSS    1                                                       IRCP     2735
TEMP      BSS    1                                                       IRCP     2736
TEMP1     BSS    1                                                       IRCP     2737
DAYFILE   VFD    42/7HDAYFILE,18/0                                       IRCP     2738
INPUT     VFD    30/5HINPUT,30/0                                         IRCP     2739
RSPSYS    VFD    42/7HRSP,SYS,18/0                                       IRCP     2740
SYSTEM    VFD    36/6HSYSTEM,24/0                                        IRCP     2741
CERFILE   VFD    42/7HCERFILE,18/0                                       IRCP     2742
DFILE     VFD    30/5HDFILE,30/0                                         IRCP     2743
DFMES     DATA   10H   NORMAL                                            IRCP     2744
          DATA   10HDEAD START                                           IRCP     2745
          DATA   0                                                       IRCP     2746
RBTSAVE   DATA   0                                                       SC20102    53
          EJECT                                                          IRCP     2747
RECOVERY  PS                                                             IRCP     2748
          OPCOM  X,(RECOL1)                                              IRCP     2749
          SA1    P.NCP             GET NUMBER OF CONTROL POINTS          IRCP     2750
          SHIFT  X1,C.NCP                                                IRCP     2751
          MX0    48                                                      IRCP     2752
          BX1    -X0*X1                                                  IRCP     2753
          SB7    X1                B7 WILL CONTAIN NUMBER OF CONTROL PTS IRCP     2754
          RJ   REPLACE             RESTORE TABLES                        IRCP     2755
          SA2    CEDARGS                                                 IRCP     2756
          LX2    48                                                      IRCP     2757
          MX0    58                GET BITS FOR SYSTEM FLAG              IRCP     2758
          BX7    -X0*X2            IF NON-ZERO, RECOVER SYSTEM FILE      IRCP     2759
          SA7    SYSFLAG           SAVE SYSTEM FILE FLAG                 IRCP     2760
          BX6    X2                                                      IRCP     2761
          LX6    57                                                      IRCP     2762
          SA6    ALLFLAG           SAVE OTHER FILES FLAG                 IRCP     2763
          PL   X6,RC050            JUMP IF TO RECOVER OTHER FILES        IRCP     2764
          ZR   X7,FINI             IF TO RECOVER NOTHING, GO PRELOAD     IRCP     2765
          SA7       PPOR           SAVE X7                               GHKCPL2    33
          RJ        INITFNTL       GO ZAP I/O AND RETAINED FILES         GHKCPL2    34
          SA1       PPOR                                                 GHKCPL2    35
          BX6       X6-X6                                                GHKCPL2    36
          BX7       X1                                                   GHKCPL2    37
          SA6       A1                                                   GHKCPL2    38
RC050     SA3    P.CST                                                   IRCP     2766
          MX0    48                                                      IRCP     2767
          LX3    36                                                      IRCP     2768
          BX6    -X0*X3            READ RBT CHANNEL INTO CM              IRCP     2769
          SA6    FNTADR                                                  IRCP     2770
          SB2    CH.RBT                                                  IRCP     2771
          SA2    X6+B2                                                   IRCP     2772
          SA3    A2+TABLESAV       GET SAVED CST CHANNEL                 IRCP     2773
          BX7    -X0*X3                                                  IRCP     2774
          SB3    X7                                                      IRCP     2775
          SB5    A2-B3                                                   IRCP     2776
          ZR   B5,RC055                                                  IRCP     2777
REC00     OPCOM  A,(RECOL1,RECOL2)                                       IRCP     2778
          RJ   WAITGO                                                    IRCP     2779
          NZ   X6,REC00                                                  IRCP     2780
*                                                                        IRCP     2781
RC055     SA4    T.CLK+2           MODIFY SYSTEM HEADER TO               IRCP     2782
          SX0    32B               INDICATE RECOVERY                     IRCP     2783
          LX0    54                NO MORE THAN + IN 1ST CHAR.           IRCP     2784
          BX6    -X0*X4                                                  IRCP     2785
          SA6    A4                                                      IRCP     2786
*                                                                        BBBSSEQ     2
*             SAVE REMOTE JOB SEQUENCE NUMBERS (INSTALLATION AREA)       BBBSSEQ     3
*                                                                        BBBSSEQ     4
         SA1       P.INS           GET ADDRESS OF POINTER                BBBSSEQ     5
         MX0       12                                                    BBBSSEQ     6
         BX1       X0*X1           MASK GET TOP 12 BITS ONLU             BBBSSEQ     7
         LX1       12              SHIFT TO BOTTOM                       BBBSSEQ     8
         SX2       X1+TABLESAV     ADDRESS OF SAVED INSTALLATION AREA    BBBSSEQ     9
         SB3       N.SEQ                                                 BBBSSEQ    10
RSVINS   SA3       X2+B3           LOAD IT                               BBBSSEQ    11
         BX6       X3                                                    BBBSSEQ    12
         SA6       X1+B3           RETORE IT                             BBBSSEQ    13
         SB3       B3-1                                                  BBBSSEQ    14
         PL        B3,RSVINS        LOOP FOR ALL 10 ENTRIES              BBBSSEQ    15
*                                                                        BBBSSEQ    16
          RJ        SAVECSF        GO RECOVER ECS FNT STUFF              GHKCPL2    39
*                                                                        HUSTREC     3
          RJ        RCPOOL         RECOVER THE POOL                      HUSTREC     4
*                                                                        HUSTREC     5
*                                                                        IRCP     2787
RC100     SA4    P.FNT             GET FNT ADDRESS                       IRCP     2788
          MX0    48                                                      IRCP     2789
          LX4    12                                                      IRCP     2790
          BX6    -X0*X4                                                  IRCP     2791
          SA6    FNTADR            FNT ADDRESS                           IRCP     2792
          LX4    12                                                      IRCP     2793
          BX6    -X0*X4                                                  IRCP     2794
          SA6    FNTLIM            FNT LIMIT                             IRCP     2795
          SA3    FNTADR                                                  IRCP     2796
RC110     SA5    X3                                                      IRCP     2797
          MX1    6                 CHECK FOR FNT STARTING WITH 00        IRCP     2798
          BX2    X1*X5                                                   IRCP     2799
          SX1    33B                                                     IRCP     2800
          LX1    54                                                      IRCP     2801
          IX2    X1-X2                                                   IRCP     2802
          ZR   X2,RC115            FNT STARTS WITH 00                    IRCP     2803
          SA2    A5+B1                                                   IRCP     2804
          BX6    X2                                                      IRCP     2805
          SA6    FSTW1                                                   IRCP     2806
          SA4    A2+B1                                                   IRCP     2807
          BX6    X4                                                      IRCP     2808
          SA6    FSTWD2                                                  IRCP     2809
          MX0    42                                                      IRCP     2810
          BX6    X0*X5                                                   IRCP     2811
          SA4    SYSTEM            CHECK FOR SYSTEM FILE                 IRCP     2812
          BX2    X4-X6                                                   IRCP     2813
          ZR   X2,SYS10            YES                                   IRCP     2814
          SA2    ALLFLAG           SAVE OTHER FILES                      IRCP     2815
          NG   X2,RC115            NO                                    IRCP     2816
          MX1    30                                                      SC2716      1
          BX1    X1*X6                                                   SC2716      2
          SA4    DFILE                                                   SC2716      3
          BX2    X4-X1             LOCAL DAYFILE                         SC2716      4
          ZR   X2,DFIL10           YES                                   SC2716      5
*                                                                        SC2716      6
*                                                                        BBBRCF      1
*         CATCH CONNECTED FILES AND COVERT TO DISK RESIDENT              BBBRCF      2
          SA4      A5+B1           FNT WORD 2                            BBBRCF      3
          MX0      6                                                     BBBRCF      4
          BX2      X0*X4           EQUIP TYPE                            BBBRCF      5
          LX2      6                                                     BBBRCF      6
          SX2      X2-61B          TEST FOR CONNECTED                    BBBRCF      7
          NZ       X2,RCNC         NO                                    BBBRCF      8
          MX0      12                                                    BBBRCF      9
          BX6      -X0*X4          MASK OLD EQUIP                        BBBRCF     10
          LX4      6                                                     BBBRCF     11
          MX0      6                                                     BBBRCF     12
          BX4      X0*X4           GET DISK DST ORDINAL                  BBBRCF     13
          BX6      X4+X6           AND INSERT IT IN PROPER PLACE         BBBRCF     14
          SA6      A4              RESTORE IT                            BBBRCF     15
RCNC      BSS      0                                                     BBBRCF     16
         RJ        RECAF           RECOVER AUTHROIZATION FILE            VMWIRAF     1
          RJ   CHKPNT              RECOVER LOCKED FILES                  INTCOM     10
          RJ   INTCOM              RECOVER INTERCOM FILES                INTCOM     11
          SA2    A5+B1             CHECK EQUIPMENT TYPE FOR DISK FILE    IRCP     2819
          NG   X2,RC150                                                  IRCP     2820
          MX0    42                                                      IRCP     2821
          BX6    X0*X5                                                   IRCP     2822
          NZ   X6,RC120            FILE NAME NOT BLANK                   IRCP     2823
RC115     SA3    FNTADR                                                  IRCP     2824
          SX3    X3+LE.FNT                                               IRCP     2825
          SX6    X3                                                      IRCP     2826
          SA6    A3                                                      IRCP     2827
          SA2    FNTLIM            END OF FNT                            IRCP     2828
          IX4    X2-X6                                                   IRCP     2829
          ZR   X4,CLEANUP          YES                                   IRCP     2830
          EQ   RC110               NO,GET NEXT ENTRY                     IRCP     2831
*                                                                        IRCP     2832
RC120     SA4    DAYFILE           DAYFILE                               IRCP     2833
          BX2    X4-X6                                                   IRCP     2834
          ZR   X2,SETINAC          YES                                   IRCP     2835
          SA4    CERFILE                                                 IRCP     2836
          BX2    X4-X6             IS IT ERROR FILE                      IRCP     2837
          ZR   X2,SETINAC          YES                                   IRCP     2838
          SA4    INPUT                                                   IRCP     2839
          BX2    X4-X6                                                   IRCP     2840
          NZ   X2,RC135                                                  SC2716      7
          MX0    3                                                       IRCP     2842
          LX0    15                                                      IRCP     2843
          BX2    X0*X5             FILE ASSIGNED TO CP O                 IRCP     2844
          ZR   X2,RC135            YES                                   IRCP     2845
          AX2    5                 GET CONTROL PT ADDRESS                IRCP     2846
          SX2    X2+TABLESAV                                             IRCP     2847
          SA3    X2+W.CPJCP                                              SC2838     11
          MX0    12                                                      BBBSMTR     2
          BX6       X0*X3          GET TAPE RESERVATION                  BBBSMTR     3
          LX6    12                                                      BBBSMTR     4
C.JBMTI   EQU      C.JBMTI                                               DKRRCP2     2
          MX0      54                                                    DKRRCP2     3
          BX6      -X0*X6              CLEAR ALL BUT MT COUNT            DKRRCP2     4
          SA6    CPMT                                                    BBBSMTR     5
C.JBRTI   EQU      C.JBRTI                                               DKRRCP2     5
          MX0      12                                                    DKRRCP2     6
          BX6      X0*X3               GET UPPER BYTE WITH ROUTE         DKRRCP2     7
          LX6      6                                                     DKRRCP2     8
          MX0      54                                                    DKRRCP2     9
          BX6      -X0*X6              CLEAR ALL BUT INITIAL ROUTE       DKRRCP2    10
          SA6      CPRTI               SAVE ROUTE                        DKRRCP2    11
          MX0    48                                                      IRCP     2849
          BX6    -X0*X3                                                  IRCP     2850
          SA6    CPFL                                                    IRCP     2851
          LX0    48D-C.CPECSI*12D                                        SC2838     12
          BX6    -X0*X3                                                  IRCP     2853
          L      X6,C.CPECSI,C.FECFL                                     SC2838     13
          SA6    CPECSJ                                                  IRCP     2855
          MX0    18                                                      SC2838     14
          LX0    42                                                      SC2838     15
          BX6    X0*X3                                                   IRCP     2858
          L      X6,C.CPTLI,C.FTL                                        SC2838     16
          SA6    CPTL                                                    IRCP     2859
          SA3    X2+W.CPJNAM       X3 CONTAINS JOB NAME                  IRCP     2860
          SA2       =4LNEXT        MAKE SURE WE DONT RECOVER AN EMPTY CO HUSTREC     6
          BX2       X3-X2                                                HUSTREC     7
          ZR        X2,RC127                                             HUSTREC     8
          SA2    A3+W.CPERT-W.CPJNAM  CHECK RERUN BIT                    IRCP     2861
          MX0    1                                                       IRCP     2862
          LX0    15                                                      IRCP     2863
          BX6    X0*X2                                                   IRCP     2864
          NZ   X6,RC125            JOB NO RERUN BIT SET                  IRCP     2865
         IF        -DEF,W.EJB                                            VMWIRCP     1
W.EJB    EQU       170B                                                  VMWIRCP     2
C.EJB    EQU       0                                                     VMWIRCP     3
         ENDIF                                                           VMWIRCP     4
          SA2       A3+W.EJB-W.CPJNAM  LOAD EJB WORD                     BBBRF       1
          LX2      11-S.EJB+12*C.EJB                                     BBBRF       2
          NG       X2,RC127        DONT RECOVER JOB IF IN EOJ PHASE      BBBRF       3
          SA2    A3+W.CPPRI-W.CPJNAM  X2 CONTAINS PRIORITY               IRCP     2866
          MX0    12                                                      IRCP     2867
          BX6    X2*X0                                                   IRCP     2868
          MX0    42                                                      IRCP     2869
          LX6    12                                                      IRCP     2870
          BX3    X0*X3             CLEAR LOCK,FILE TYPE,CP NUM           IRCP     2871
          IX5    X3+X6             RESET PRIORITY                        IRCP     2872
*                                                                        IRCP     2873
*         AN INPUT FILE MUST BE REWOUND IN A DIFFERENT MANNER THAN       IRCP     2874
*         OTHERS BECAUSE ITS FORMAT IN THE REWOUND STATE IS DIFFERENT    IRCP     2875
*                                                                        IRCP     2876
          SX6    B1                                                      IRCP     2877
          SA6    TURNFLAG                                                IRCP     2878
          EQ   REWIND                                                    IRCP     2879
*                                                                        IRCP     2880
RC125     MX0    42                SET JOB NAME IN MESSAGE               IRCP     2881
          BX6    X0*X3                                                   IRCP     2882
          SX4    555555B                                                 IRCP     2883
          BX4    -X0*X4                                                  IRCP     2884
          IX6    X4+X6                                                   IRCP     2885
          LX6    54                                                      IRCP     2886
          SA6    JLM2+1            SET UP JOB CANT RERUN MESSAGE         HS2IRCP   150
RC126     OPCOM  A,(RECOL1,NORERN) OUTPUT JOB LOST MESSAGE               HS2IRCP   151
          RJ   WAITGO              WAIT FOR OPERATOR RESPONSE            IRCP     2889
          SX6    B0                                                      BBBRCP2     5
RC127     BSS       0                                                    HUSTREC     9
          SA5    FNTADR                                                  IRCP     2891
          SA5    X5                                                      IRCP     2892
          EQ   RC150               CONTINUE                              IRCP     2893
*                                                                        IRCP     2894
RC135     MX0    2                                                       IRCP     2903
          LX0    17                                                      IRCP     2904
          BX2    X0*X5             GET FILE TYPE                         IRCP     2905
          ZR   X2,RC160            INPUT FILE                            IRCP     2906
          AX2    12                                                      IRCP     2907
          SX3    X2-20B            CHECK IF COMMON                       IRCP     2908
          MX0    3                                                       IRCP     2909
          LX0    15                COMMON FILE                           IRCP     2910
          NZ   X3,RC140            NO                                    IRCP     2911
          SA2    A5+2                                                    IRCP     2912
          MX4    1                 CHECK CHANGE BIT                      IRCP     2913
          LX4    31                                                      IRCP     2914
          BX4    X4*X2                                                   IRCP     2915
          NZ   X4,RC150            SET-DO NOT SAVE FILE                  IRCP     2916
          BX5    -X0*X5            CLEAR CONTROL POINT ASSIGNMENT        IRCP     2917
          EQ   SETINAC                                                   IRCP     2918
*                                                                        IRCP     2919
*         CHECK CONTROL POINT ASSIGNMENT                                 IRCP     2920
*                                                                        IRCP     2921
EXJNAM   DIS       ,*EXPORT2*      JOB NAME FOR EXPORT                   VMSIRCP     1
RC140     BX3    X0*X5                                                   IRCP     2922
         NZ   X3,RC142             NOT CONTROL POINT 0                   SC3110      1
          MX0    0                DONT CHANGE PROIRITY IN NOT            SC20137     1
*                                 ALREADY AT JANUS CONTROL POINT         SC20137     2
         SX2     X2-10B            TEST IF FILE TYPE IS OUTPUT           SC3110      4
         ZR   X2,RCOUTP            YES                                   SC3110      5
         SX2     X2-20B            PUNCH,FILM, OR PLOT                   SC3110      6
          ZR     X2,RCLOCF         LOCAL TO CP 0                         GHKCPL2    40
         JP   REWIND               FILE NOT ASSIGNED                     SC3110      8
RC142    AX3     5                 GET CONTROL POINT ADDRESS             SC3110      9
          SX3    X3+TABLESAV                                             IRCP     2925
          SA2    X3+W.CPOUT        CHECK FLAG                            IRCP     2926
          MX0    12                                                      IRCP     2927
          LX0    24                                                      IRCP     2928
         BX2       X0*X2                                                 VMSIRCP     2
         NZ        X2,ARGCP        JUMP IF ARGUS                         VMSIRCP     3
         SA2       X3+W.CPJNAM     GET JOB NAME                          VMSIRCP     4
         MX0       42                                                    VMSIRCP     5
         BX3       X0*X3           GET JOB NAME                          VMSIRCP     6
         SA2       EXJNAM          GET JOB NAME FOR EXPORT               VMSIRCP     7
         IX3       X2-X3           COMPARE                               VMSIRCP     8
         NZ        X3,RC150        JUMP OF NOT EXPORT                    VMSIRCP     9
ARGCP    BSS       0                                                     VMSIRCP    10
         SA2       A5+B1           FNT2                                  VMWIRCP    10
         MX0       24              SAVE UPPER 2 BYTES ONLY               VMWIRCP    11
         BX6        X0*X2                                                VMWIRCP    12
         SA6       A2                                                    VMWIRCP    13
         SA2       A2+B1           GET FNT 3                             VMWIRCP    14
         MX0       36                                                    VMWIRCP    15
         BX6        X0*X2                                                VMWIRCP    16
          SA6       FSTWD2         SAVE IT                               BBBRF       4
         SX0       7777B           PRIORITY I GUESS                      VMWIRCP    18
RCOUTP   BX5     X0+X5             RESET PRIORITY                        SC3110     10
          MX0    3                                                       IRCP     2933
          LX0    15                                                      IRCP     2934
          BX5    -X0*X5            CLEAR CONTROL POINT ASSIGNMENT        IRCP     2935
         MX0     18                                                      SC3110     11
         LX0     54                                                      SC3110     12
         SA2     FSTWD2                                                  SC3110     13
          BX7      X2                  MOVE FST 2                        DKRRCP1     2
          SX6      B1                                                    DKRRCP1     3
          SA6      OFLAG               OUTPUT FILE FLAG                  DKRRCP1     4
          SA2      A5+B1               FST 1                             DKRRCP1     5
          SA4      A2+B1               FST 2                             DKRRCP1     6
          EQ       WRFNT               RESET FNT-FST                     DKRRCP1     7
RCLOCF    BSS       0                                                    GHKCPL2    41
          SA4       FSTWD2         WORD WITH DISP. CODE                  GHKCPL2    42
          LX4       12+12*C.FDC    GET IT                                GHKCPL2    43
          MX0       48                                                   GHKCPL2    44
          BX4       -X0*X4                                               GHKCPL2    45
          BX0       -X0            PRIORITY                              GHKCPL2    46
          NZ        X4,RCOUTP      NONZERO DC - OUTPUT FILE              GHKCPL2    47
          EQ        REWIND         SWAP FILE OR SOMETHING LIKE THAT      GHKCPL2    48
*                                                                        IRCP     2937
RC150     SX6    B0                                                      IRCP     2938
          SA6    A5                CLEAR FNT ENTRY                       IRCP     2939
          SA6    A6+B1                                                   IRCP     2940
          SA6    A6+B1                                                   IRCP     2941
          EQ   RC115                                                     IRCP     2942
RC160     SX6    B1                                                      IRCP     2943
          SA6    IFLAG                                                   IRCP     2944
*                                                                        IRCP     2945
*                                                                        IRCP     2946
*         SET UP REWIND AS LAST CODE AND WRITE NEW FNT ENTRY TO FNT      IRCP     2947
*                                                                        IRCP     2948
*                                                                        IRCP     2949
REWIND    SX7    51B                                                     IRCP     2950
          SA2    A5+2              GET FST WORD 2                        SCR320T     1
          MX0    18                                                      SCR320T     2
          LX0    54                MASK OUT OUTPUT COUNT                 SCR320T     3
          BX2    X0*X2                                                   SCR320T     4
          IX7    X7+X2                                                   SCR320T     5
          EQ   SET1                                                      IRCP     2951
*                                                                        IRCP     2952
*         SET LAST CODE AND STATUS INACTIVE                              IRCP     2953
*                                                                        IRCP     2954
SETINAC   SX7    B1                SET STATUS TO INACTIVE                IRCP     2955
SET1      SA2    A5+B1             FST WORD 1                            IRCP     2956
          SA4    A2+B1             FST WORD 2                            IRCP     2957
          MX0    12                                                      IRCP     2958
          LX0    36                                                      IRCP     2959
          BX4    X0*X4                                                   IRCP     2960
          IX7    X7+X4             X7 CONTAINS FST WD 2                  IRCP     2961
          EQ   WRFNT                                                     IRCP     2962
SYS10     SA3    SYSFLAG           SAVE SYSTEM FILE                      IRCP     2963
          ZR   X3,DFIL10           NO                                    IRCP     2964
          SA1    ALLFLAG           HAS FNT BEEN RESTORED                 IRCP     2965
          PL   X1,SYS20            YES                                   IRCP     2966
          SA1    A5+TABLESAV       GET SAVED SYSTEM FST                  IRCP     2967
          SA1    A1+B1                                                   IRCP     2968
          BX6    X1                                                      IRCP     2969
          SA6    A5+B1                                                   IRCP     2970
SYS20     SX0    7                                                       IRCP     2971
          LX0    12                CLEAR CONTROL POINT                   IRCP     2972
          BX5    -X0*X5            ASSIGNMENT                            IRCP     2973
          EQ   SETINAC                                                   IRCP     2974
          TITLE                   RECOVERY --- SUBROUTINE CLEANUP        IRCP     2975
*                                                                        IRCP     2976
*         SEARCH SAVE RBTS FOR EXTRA RESPOND FILES                       IRCP     2977
*                                                                        IRCP     2978
*                                                                        HS2IRCR     2
CLEANUP   BSS       0                                                    HS2IRCR     3
*                                                                        HS2IRCR     5
          SA1       P.RBT          RBT POINTER                           HS2IRCR     6
**                                                                       HS2IRCR     7
          MX0    12                                                      IRCP     2980
          LX0    24                                                      IRCP     2981
          BX6    X0*X1                                                   IRCP     2982
          LX6    29                                                      IRCP     2983
          SA6    LASRBT            NUMBER OF WORD PAIRS CURRENTLY        IRCP     2984
          SX6    B0                                                      IRCP     2985
          SA6    FIRRBT                                                  IRCP     2986
          SA3    CEDARGS                                                 IRCP     2987
          LX3    45                FILE RESTORED                         IRCP     2988
          NG   X3,CL50             NO                                    IRCP     2989
          SA3    RSPFLAG           RESPOND FILES RECOVERED               IRCP     2990
          ZR   X3,CL50             NO                                    IRCP     2991
*                                                                        IRCP     2992
CL10      MX0    1                                                       IRCP     2993
          LX0    37                                                      IRCP     2994
          SA5    FIRRBT                                                  IRCP     2995
          IX6    X0+X5             INCREMENT WORD PAIR COUNT             IRCP     2996
          SA6    A5                                                      IRCP     2997
          SA2    LASRBT                                                  IRCP     2998
          IX2    X2-X6             END OF WORD PAIRS                     IRCP     2999
          NG   X2,CL50             YES                                   IRCP     3000
          SA5    A5-B1                                                   IRCP     3001
          RJ   RSPCHK              CHECK FOR RESPOND                     IRCP     3002
          NZ   X1,CL10             NO                                    IRCP     3003
          RJ   GETRBT              MOVE RBT                              IRCP     3004
          EQ   CL10                                                      IRCP     3005
*                                                                        IRCP     3006
*         CREATE EMPTY CHAIN                                             IRCP     3007
*                                                                        IRCP     3008
CL50      SA2    LASRBT                                                  IRCP     3009
          LX2    24                RIGHT JUSTIFY RBT WORD PAIR NO.       IRCP     3010
          MX0    36                                                      IRCP     3011
          LX0    48                                                      IRCP     3012
          SB3    X2                B3 CONTAINS WORD PAIR NO.             IRCP     3013
          SX6    B0                                                      IRCP     3014
          SB3   B3+B1                                                    IRCP     3015
          SA6    A2                RESTORE CURRENT EMPTY NUMBER          IRCP     3016
CL60      SB3    B3-B1                                                   IRCP     3017
          ZR   B3,CL70             END OF CHAIN                          IRCP     3018
          SA2    MEMSIZE                                                 IRCP     3019
          SB4    X2                                                      IRCP     3020
          SB5    B4-B3                                                   IRCP     3021
          SA5    B5-B3             GET WORD PAIR                         IRCP     3022
          BX5    X0*X5             IS WORD PAIR EMPTY                    IRCP     3023
          NZ   X5,CL60             NO                                    IRCP     3024
          SA3    LASRBT            GET LAST EMPTY                        IRCP     3025
          BX6    X3                                                      IRCP     3026
          SA6    A5                PUT NUMBER IN CURRENT                 IRCP     3027
          SX6    B3                GET CURRENT NUMBER                    IRCP     3028
          LX6    48                                                      IRCP     3029
          SA6    A3                STORE CURRENT EMPTY                   IRCP     3030
          EQ   CL60                                                      IRCP     3031
*                                                                        IRCP     3032
CL70      SA4    P.RBT                                                   IRCP     3033
          LX4    24                                                      IRCP     3034
          MX0    12                                                      IRCP     3035
          BX6    -X0*X4                                                  IRCP     3036
          SA5    LASRBT                                                  IRCP     3037
          IX6    X5+X6                                                   IRCP     3038
          LX6    36                PUT FIRST WORD OF EMPTY CHAIN         IRCP     3039
          SA6    A4                IN P.RBT                              IRCP     3040
*                                                                        HS2IRCP   156
*                                                                        HS2IRCP   157
 FINI     SA1      CEDARGS         SEE IF ECS IS TO BE RECONFIGURED      HS2IRCP   158
          MX0      48                                                    HS2IRCP   159
          AX1      36                                                    HS2IRCP   160
          BX0      -X0*X1                                                HS2IRCP   161
          NZ       X0,FINI2        NO, JUST GO LOAD AND LALL             HS2IRCP   162
          RJ       ECSRECON        DO RECONFIGURATION                    HS2IRCP   163
 FINI2    SA3      SYSFLAG         SYSTEM FILE SAVED                     HS2IRCP   164
          NZ   X3,RECOVERY         YES                                   IRCP     3042
          RJ       PRELOAD         NO                                    HS2IRCP   165
          EQ   RECOVERY                                                  IRCP     3044
*         WRFNT-WRITE ENTRY BACK TO FNT                                  IRCP     3045
*                                                                        IRCP     3046
*                                                                        IRCP     3047
WRFNT     SA7    A4                RESTORE FST WORD 2                    IRCP     3048
          BX7    X2                                                      IRCP     3049
          SA7    A2                RESTORE FST WORD 1                    IRCP     3050
          BX6    X5                                                      IRCP     3051
          SA6    A5                RESTORE FNT                           IRCP     3052
SAVED     RJ   GETRBT                                                    IRCP     3053
          SA2    IFLAG                                                   IRCP     3054
          NZ   X2,SA30                                                   IRCP     3055
          SA2    TURNFLAG                                                IRCP     3056
          NZ   X2,SA20                                                   IRCP     3057
          SA2      OFLAG               GET OUTPUT FILE FLAG              DKRRCP1     8
          NZ       X2,OUTDONE          JUMP IF OUTPUT FILE               DKRRCP1     9
          SA2    FNTADR                                                  IRCP     3058
          SA2    X2+B1             INSERT FIRST RBTA IN                  IRCP     3059
          MX0    12                CURRENT RBTA                          IRCP     3060
          LX0    48                                                      IRCP     3061
          BX3    X0*X2                                                   IRCP     3062
           AX3    12                                                     IRCP     3063
          IX6    X3+X2                                                   IRCP     3064
          SA6    A2                                                      IRCP     3065
SA10      SX6    B0                                                      IRCP     3066
          SA6    TURNFLAG          RBT WORD PAIRS AND RBR BITS           IRCP     3067
          EQ   RC115                                                     IRCP     3068
OUTDONE   SX6      B0                                                    DKRRCP1    10
          SA6      OFLAG               CLEAR OUTPUT FILE FLAG            DKRRCP1    11
          CALL      SAVB                                                 GHKCPL2    49
          SA2       FNTADR                                               GHKCPL2    50
          SX6       B1                                                   GHKCPL2    51
          SB6       X2                                                   GHKCPL2    52
          SA3       X2             GET JOB NAME                          GHKCPL2    53
          MX0       54                                                   GHKCPL2    54
          SA4       X2+2           HIS DISPOSITION CODE                  GHKCPL2    55
          LX3       12                                                   GHKCPL2    56
          L         X4,C.FDC,4                                           GHKCPL2    57
          BX7       -X0*X3         JOB ROUTE                             GHKCPL2    58
          BX4       -X0*X4         DISP. CODE                            GHKCPL2    59
          LX7       6                                                    GHKCPL2    60
          MX0       57                                                   GHKCPL2    61
          BX3       X0*X4          CLEAR BOTTOM OF DSC FOR A WHILE       GHKCPL2    62
          SX1       X3-10B                                               GHKCPL2    63
          SX2       X3-70B                                               GHKCPL2    64
          ZR        X1,PNCHID                                            GHKCPL2    65
          ZR        X2,PNCHID      JUMP IF A PUNCH JOB                   GHKCPL2    66
          MX0       58                                                   GHKCPL2    67
          BX4       -X0*X4                                               GHKCPL2    68
          BX4       -X0-X4         INVERT BITS                           GHKCPL2    69
          SX4       X4+40B                                               GHKCPL2    70
          EQ        PUTIT                                                GHKCPL2    71
PNCHID    SX4       60B                                                  GHKCPL2    72
PUTIT     BX7       X4+X7          COLUMN ID                             GHKCPL2    73
          CALL PUT                                                       GHKCPL2    74
          SA1       PPOR                                                 GHKCPL2    75
          BX6       X6-X6                                                GHKCPL2    76
          BX7       X7-X7                                                GHKCPL2    77
          SA6       X1             ZAP                                   GHKCPL2    78
          SA7       X1+B1           OUT                                  GHKCPL2    79
          SA6       A7+B1            FNT                                 GHKCPL2    80
          CALL RESB                                                      GHKCPL2    81
          EQ       RC115               NEXT FNT                          DKRRCP1    12
SA30      SA2    FNTADR                                                  IRCP     3069
          SA2    X2+B1                                                   IRCP     3070
          SA3    FSTW1                                                   IRCP     3071
          MX0    36                                                      IRCP     3072
          LX0    36                RESTORE ECS FL AND CM FL              IRCP     3073
          BX3    X0*X3                                                   IRCP     3074
          BX6    -X0*X2                                                  IRCP     3075
          IX6    X6+X3                                                   IRCP     3076
          SA6    A2                                                      IRCP     3077
          SA3    FSTWD2                                                  IRCP     3078
          SA2    A2+B1                                                   IRCP     3079
          MX0      3*12+6                                                BBBCMRT     1
          BX3    X0*X3                                                   IRCP     3081
          BX6    -X0*X2            RESTORE TIME LIMIT                    IRCP     3082
          IX6    X3+X6                                                   IRCP     3083
          SA6    A2                                                      IRCP     3084
          SX6    B0                                                      IRCP     3085
          SA6    IFLAG                                                   IRCP     3086
          EQ   RC115                                                     IRCP     3087
*                                                                        IRCP     3088
SA20      SA2    FNTADR                                                  IRCP     3089
          SA2    X2+B1                                                   IRCP     3090
          SA3    CPECSJ                                                  IRCP     3091
          SA4    CPFL                                                    IRCP     3092
          IX6    X2+X4                                                   IRCP     3093
          IX6    X6+X3                                                   IRCP     3094
          SA6    A2                                                      IRCP     3095
          MX6    45               CLEAR ONLY 15 BIT TL FIELD             SC20098     1
          SA4    A2+B1                                                   IRCP     3096
          LX6    36               POSITION MASK TO EXCLUDE TL FIELD      SC20098     2
          SA3    CPTL                                                    IRCP     3097
          BX4    X6*X4            CLEAR FOR CONTROL POINT TL             SC20098     3
          IX6    X4+X3                                                   IRCP     3098
          MX3    60-12                                                   BBBSMTR     6
          LX3    12                                                      BBBSMTR     7
          BX6    X3*X6             CLEAR THE MT I FIELD                  BBBSMTR     8
          SA3    CPMT              LOAD SAVED MT COUNT                   BBBSMTR     9
          LX3       18                                                   BBBSMTR    10
          BX6    X3+X6             AND INSERT INITIAL MT RESERVATION     BBBSMTR    11
          SA6    A4                                                      IRCP     3099
          SA3      CPRTI               GET INITIAL ROUTE                 DKRRCP2    12
          SA4      A4-2                GET FNT FWA                       DKRRCP2    13
          LX4      12                                                    DKRRCP2    14
          MX0      54                                                    DKRRCP2    15
          BX6      X0*X4               CLEAR CUR ROUTE                   DKRRCP2    16
          BX6      X6+X3               ADD IN NEW ROUTE                  DKRRCP2    17
          LX6      48                  REPOSITION FNT                    DKRRCP2    18
          SA6      A4                  RESET IN CORE                     DKRRCP2    19
          EQ   SA10                                                      IRCP     3100
*         RESET DAYFILE POINTERS                                         IRCP     3101
*                                                                        IRCP     3102
DFIL10    MX0    15                                                      IRCP     3103
          LX0    15                INITIALIZE FNT ENTRY FOR              IRCP     3104
          BX6    -X0*X5            DFILE                                 IRCP     3105
          SA6    A5                                                      IRCP     3106
          SX6    B0                                                      IRCP     3107
          SA6    A6+B1                                                   IRCP     3108
          SX6    B1                                                      IRCP     3109
          SA6    A6+B1                                                   IRCP     3110
          EQ     RC115                                                   IRCP     3111
*                                                                        IRCP     3112
          TITLE                   RECOVERY --- SUBROUTINE CHKPNT         IRCP     3113
*                                                                        IRCP     3114
*         SUBROUTINE TO RECOVER CHECK POINT AND LOCKED FILES             IRCP     3115
*              ENTRY X5 CONTAINS FNT WORD 1                              IRCP     3116
*                                                                        IRCP     3117
RETCNT    EQU       8              NUM OF 15 MIN PERIODS BEFORE PURGE    HUSTREC    10
*                                  BY 1PF FOR INTERCOM FILES             HUSTREC    11
*                                                                        HUSTREC    12
CHKPNT    PS                                                             IRCP     3118
          SX0    B1                                                      IRCP     3119
          LX0    17                                                      IRCP     3120
          BX2    X0*X5                                                   IRCP     3121
          ZR   X2,CHKPNT           EXIT,IF NOT LOCKED                    IRCP     3122
*                                                                        IRCP     3123
          MX0    12                                                      INTCOM     13
          LX0    60D-C.FAPF*12D                                          INTCOM     14
          BX3    X0*X5             PERMANENT FILE                        INTCOM     15
*                                                                        HS2IRCP   166
*         PERMANENT FILE - IF FILE BELONGS TO A ERECOVERED POOL JOB      HS2IRCP   167
*         THEN ITS RBR HAS ALREADY BEEN RECOVERED, BUT W(E ARE           HS2IRCP   168
*         SURE TO SAVE THE FNT HERE                                      HS2IRCP   169
*                                                                        HS2IRCP   170
          ZR   X3,CKP1             JUMP IF NOT A PERM FILE               HS2IRCP   171
          SA2    A5+2              GET THE FILE ORDINAL                  HS2IRCP   172
          MX0    12-S.HORE         .                                     HS2IRCP   173
          BX2    X0*X2             .  INTO X2                            HS2IRCP   174
          ZR   X2,RC150            IF ZERO, DROP IT                      HS2IRCP   175
          SA4       P.PFM1         GET APF TABLE BASE ADDRESS            HS2IRCP   176
          L         X4,C.APF,4     .                                     HS2IRCP   177
          MX0       60-12          .                                     HS2IRCP   178
          BX4       -X0*X4         INTO X4                               HS2IRCP   179
          IX3       X3+X4          ADD APF TABLE OFFSET                  HS2IRCP   180
          SX3       X3-1           MINUS 1                               HS2IRCP   181
          SA3       X3             LOAD THE APF ENTRY                    HS2IRCP   182
          ZR   X3,RC150            IF NONE, DROP FILE                    HS2IRCP   183
          LX2    12-S.HORE         CALCULATE POOL TABLE ADDRESS          HS2IRCP   184
          SX2    X2-1              .  FROM ORDINAL                       HS2IRCP   185
          SX3    B0                .                                     HS2IRCP   186
         DUP     L.PTP,1           .                                     HS2IRCP   187
          IX3    X3+X2             .                                     HS2IRCP   188
          SA2    P.HUST            LOAD POINTER                          HS2IRCP   189
          MX0    60-12             GET POOL FWA                          HS2IRCP   190
          L      X2,C.PFWA,4       .                                     HS2IRCP   191
          BX2    -X0*X2            .                                     HS2IRCP   192
          IX2    X2+X3             ADD POCKET ADDRESS                    HS2IRCP   193
          SA2     X2               LOAD IT                               HS2IRCP   194
          ZR    X2,RC150           DROP FILE IF POCKET NOT RECOVERED     HS2IRCP   195
          JP    RC115              ELSE SAVE FNT ONLY                    HS2IRCP   196
          SPACE 3                                                        HS2IRCP   197
CKP1      BSS       0                                                    HS2IRCP   198
          SA2    A5+B1             SEE IF A DISK FILE                    IRCP     3124
          NG   X2,RC115            NO                                    IRCP     3125
*              IF INTERCOM-CLEAR JOB ANMEID AND SET RETCNT FOR 1PF       HUSTREC    13
          SA2       A5+2           LOAD FNT WORD 3                       HUSTREC    14
          SX3       1000B          SWAPPED OUT DISPOSITION               BBBRCP2     6
          LX3       24                                                   BBBRCP2     7
          BX3       X2*X3          MASK BIT                              BBBRCP2     8
          ZR        X3,CHKNP       BYPASS IF NOT THIS DISPOSITION        BBBRCP2     9
          MX0       7                                                    BBBRCP2    10
          BX3       X0*X2          JOB ID INTO X3                        HUSTREC    16
          NZ        X3,CHKNP       BYPASS IF A JOB ID                    BBBRCP2    11
         MX0       17                                                    VMWIRCP    19
         LX0       60-7            GET 17 BIT PASSWORD ORDINAL           VMWIRCP    20
          BX3       X0*X2          X3=PASSWORD ORDINAL                   HUSTREC    19
          ZR        X3,CHKNP       NO PASSWORD                           HUSTREC    20
*               IF COMMON FILE THEN SAVE IT                              HUSTREC    21
          SX0       300000B        MASK FOR TYPE                         HUSTREC    22
          SA5       A5             RELOAD FILE                           HUSTREC    23
          BX0        X0*X5                                               HUSTREC    24
          SX0       X0-200000B     TEST FOR COMMON FILE                  HUSTREC    25
          NZ        X0,CKPNC       NOT COMMON                            HUSTREC    26
          MX0       60-1                                                 HUSTREC    27
          LX0       17                                                   HUSTREC    28
          BX6       X0*X5          MASK OUT THE LOCKBIT                  HUSTREC    29
          SA6       A5             RESTORE FNT WORD 1                    HUSTREC    30
          SA3       A5+2     LOAD WORD 3                                 HUSTREC    31
          MX0       36             CLEAR ID,PASSWORD,DISPOSITION         BBBRCP2    13
          BX6       -X0*X3         CLEAR THE JOB ID AND PASSWORD         HUSTREC    33
          SA6       A3                                                   HUSTREC    34
          JP        CHKNP                                                HUSTREC    35
CKPNC     BSS       0                                                    HS2IRCP   199
         MX0       7                                                     VMWIRCP    21
          BX6       -X0*X2         CLEAR OUT JOB ID                      HUSTREC    43
         MX0       12                                                    VMWIRCP    22
          LX0       24                                                   HUSTREC    44
          BX6       -X0*X6         CLEAR BYTE 3                          HUSTREC    45
          SX5       RETCNT*4096    1PF COUNTDOWN FOR PURGE               HUSTREC    46
          BX6       X5+X6          INSERT IT                             HUSTREC    47
          SA6       A2             STORE FNT WROD 3                      HUSTREC    48
          SX6       A5                                                   HS2IRCP   200
          RJ        RETFNT         RETAIN THE FNT                        HS2IRCP   201
          JP        RC150                                                HS2IRCP   202
CHKNP     BSS       0                                                    HUSTREC    49
          SX6       B1                                                   HUSTREC    50
          SA6       LOCR           FLAG LOCKED FILE                      HUSTREC    51
          RJ        GETRBT         SAVE RBTS                             HUSTREC    52
          SX6       B0                                                   HUSTREC    53
          SA6       LOCR           CLEAR FLAG                            HUSTREC    54
          RJ        FIXRBS         SET RBT BITS                          HUSTREC    55
          JP        RC115                                                HUSTREC    56
                                                                         HUSTREC    57
         TITLE     RECOVERY SUBROUTINE RECAF                             VMWIRAF     2
*                                                                        VMWIRAF     3
*        RETURN AUTHORIZATION FILE                                       VMWIRAF     4
*                                                                        VMWIRAF     5
RECAF    BSSZ      1                                                     VMWIRAF     6
         SX0       77B                                                   VMWIRAF     7
         L         X0,4,C.FTYPE                                          VMWIRAF     8
         ASSUME    C.FCPNUM,EQ,C.FTYPE                                   VMWIRAF     9
         BX0       X0*X5                                                 VMWIRAF    10
          L        X0,C.FTYPE,4        POSITION TYPE AND CP TO BOTTOM    VMWIRAF    11
          SX0      X0-30B              TEST UNL, LOCAL, CP 0             VMWIRAF    12
         NZ        X0,RECAF        EXIT IF WRONG TYPE                    VMWIRAF    13
          SA1      TABLESAV+P.INS      GET APF AF WORD                   VMWIRAF    14
         L         X1,C.AFAPFP,C.FAPF                                    VMWIRAF    15
         MX0       48                                                    VMWIRAF    17
         L         X0,4,C.FAPF                                           VMWIRAF    18
          BX1      -X0*X1                                                HS2IRCQ    88
          ZR       X1,RECAF        JUMP IF AUTHORF WAS NOT LOADAED       HS2IRCQ    89
          BX1      X1-X5           TEST FOR AUTHORF                      HS2IRCQ    90
         BX1       -X0*X1          GET APF POINTER                       VMWIRAF    19
         NZ        X1,RECAF        RETURN IF NONE                        VMWIRAF    20
         SA1       A5+2            GET FNT 3                             VMWIRAF    21
         L         X0,C.FAPF,C.FDC                                       VMWIRAF    22
         BX1       -X0*X1                                                VMWIRAF    23
         NZ        X1,RECAF                                              VMWIRAF    24
         EQ        RC150           OTHERWISE THROW AWAY THE FILE         VMWIRAF    25
          TITLE                   RECOVERY --- SUBROUTINE FIXRBR         IRCP     3203
*         SUBROUTINE TO ADJUST BITS IN RBR TABLE                         IRCP     3204
*                                                                        IRCP     3205
*                                                                        IRCP     3206
*                                                                        IRCP     3207
*                         RBTWD CONTAINS LOCATION OF RBT WORD            IRCP     3208
*                                                                        IRCP     3209
FIXRBR    PS                                                             IRCP     3210
          RJ   SEEKRBR             GET ADDRESS OF RBR                    IRCP     3211
          SA2    RBTWD                                                   IRCP     3212
          SA4    X2                RBT WORD 1 IN X4                      IRCP     3213
          BX1    X4                                                      IRCP     3214
          MX0    57                                                      IRCP     3215
          LX1    24                                                      IRCP     3216
          BX2    -X0*X1                                                  IRCP     3217
          SB4    X2                                                      IRCP     3218
          SB2    X2                                                      IRCP     3219
FIX1      SA2    RBTWD                                                   IRCP     3220
          SA4    X2                                                      IRCP     3221
          SA2    A4                                                      IRCP     3222
          SB6    B4                                                      IRCP     3223
          SB3    B4-3              RB IN FIRST RB WORD                   IRCP     3224
          NG   B3,FIX3             YES                                   IRCP     3225
          SA4    A2+B1             NO                                    IRCP     3226
FIX2      SB3    B4-5                                                    IRCP     3227
          NG   B3,FIX3                                                   IRCP     3228
          SB6    B4-5                                                    IRCP     3229
FIX3      SA5    SHIFTAB+B6                                              IRCP     3230
          SB5    X5                                                      IRCP     3231
          LX4    X4,B5                                                   IRCP     3232
          MX0    48D                                                     IRCP     3233
          BX1    -X0*X4            GET RB                                IRCP     3234
          ZR   X1,FIX10            RB IS ZERO                            IRCP     3235
          LX1    59D                                                     IRCP     3236
          NG   X1,FIX8             RB LINK                               IRCP     3237
          LX1    37                                                      IRCP     3238
          SA4    FRBT              GET CURRENT RBT WORD 1                SC20174     1
          LX0    36                POSITION MASK FOR RBR ORDINAL         SC20174     2
          BX4    X0*X4             CLEAR CURRENT RBR ORDINAL             SC20174     3
          BX6    X1+X4             INSERT NEW RBR ORDINAL                SC20174     4
          SA6    A4                RESET CURRENT RBT WORD 1              SC20174     5
          RJ   SEEKRBR             GET RBR ADDRESS                       IRCP     3241
          EQ   FIX10                                                     IRCP     3242
FIX8      LX1    1                                                       IRCP     3243
          RJ  SETRB                TURN ON RB                            IRCP     3244
*                                                                        IRCP     3245
FIX10     SB4    B4+B1             INCREASE CURRENT BYTE NO.             IRCP     3246
          SB2    B2+B1                                                   IRCP     3247
          SB3    B2-8              END OF RBT WD PAIR                    IRCP     3248
          NZ   B3,FIX1             NO,GET NEXT RB                        IRCP     3249
          EQ   FIXRBR              YES,EXIT                              IRCP     3250
          TITLE                   RECOVERY --- SUBROUTINE FIXRBS         IRCP     3251
*         SUBROUTINE TO GET RBT WORD PAIR LOCATION                       IRCP     3252
*                                                                        IRCP     3253
*                                                                        IRCP     3254
FIXRBS    PS                                                             IRCP     3255
          SA2    FNTADR            FNT STARTING ADDRESS                  IRCP     3256
          SA3    X2+B1             GET FST WORD 1                        IRCP     3257
          LX3    12                                                      IRCP     3258
FIXR1     MX0    12                                                      IRCP     3259
          BX3    X0*X3             GET FIRST RB WORD                     IRCP     3260
          LX3    12                                                      IRCP     3261
          ZR   X3,FIXRBS           ZERO,EXIT                             IRCP     3262
          SA4    W.CPSTAT          GET RBT WD                            IRCP     3263
          LX0    12                                                      IRCP     3264
          BX4    X0*X4                                                   IRCP     3265
          LX4    5                                                       IRCP     3266
          IX4    X4-X3                                                   IRCP     3267
          LX4    1                                                       IRCP     3268
          BX7    X4                                                      IRCP     3269
          SA7    RBTWD                                                   IRCP     3270
          SA5    X4                                                      IRCP     3271
          BX6    X5                                                      IRCP     3272
          SA6    FRBT              STORE IN FRBT                         IRCP     3273
          RJ   FIXRBR                                                    IRCP     3274
FIXR2     SA3    FRBT                                                    IRCP     3275
          EQ   FIXR1                                                     IRCP     3276
          TITLE                   RECOVERY --- SUBROUTINE GETRBT         IRCP     3277
*                                                                        IRCP     3278
*         SUBROUTINE TO GET ADDRESS OF RBT WORD PAIR IN RBTSAVE          IRCP     3279
*                  ENTRY-A5 IS THE ADDRESS OF FNT                        IRCP     3280
*                                                                        IRCP     3281
*                                                                        IRCP     3282
*                                                                        IRCP     3283
GETRBT    PS                                                             IRCP     3284
          SA2    A5+B1             FST WORD 1                            IRCP     3285
          MX0    12                                                      IRCP     3286
          LX2    12                                                      IRCP     3287
          BX6    X0*X2             GET OLD START OF RBT CHAIN            IRCP     3288
          ZR   X6,GETRBT                                                 IRCP     3289
GET10     LX6    13                RIGHT JUSTIFY*2                       IRCP     3290
          SA1    RBTSAVE                                                 SC20102    54
          IX7    X1-X6             GET RELATIVE LOCATION IN RBTSAVE      IRCP     3292
          SA3    X7                A3 ADDRESS IN RBTSAVE                 IRCP     3293
          SA1    MEMSIZE                                                 IRCP     3294
          IX4    X1-X6                                                   IRCP     3295
          SA4    X4                                                      IRCP     3296
          BX7    X3                                                      IRCP     3297
          SA7    A4                                                      IRCP     3298
          SA1    A3+B1             MOVE RBT WORD PAIR TO UPPER CORE      IRCP     3299
          BX7    X1                                                      IRCP     3300
          SA7    A4+B1                                                   IRCP     3301
          SX7    B0                                                      IRCP     3302
          SA7    A3                CLEAR FIRST WORD OF WORD PAIR         IRCP     3303
          BX6    X0*X3             LAST RBT WD PAIR                      IRCP     3304
          NZ  X6,GET10                                                   IRCP     3305
          SA3       LOCR           CHECK FOR LOCKED FILE RECOVERY        HUSTREC    58
          NZ       X3,GETRBT       EXIT IF YES                           HUSTREC    59
          SA1      OFLAG               GET OUTPUT FILE FLAG              DKRRCP1    13
          NZ       X1,OUTSAVE          JUMP IF OUTPUT FILE               DKRRCP1    14
          SA2    A2                                                      IRCP     3306
          LX2    12                                                      IRCP     3307
          BX6    X2                                                      IRCP     3308
          BX1    X0*X2                                                   IRCP     3309
          SA3    MEMSIZE           GET FIRST WORD OF RBT CHAIN           IRCP     3310
          LX1    13                                                      IRCP     3311
          IX1    X3-X1                                                   IRCP     3312
          MX0    36                ZERO OUT RBTA-RBTO-PRU                IRCP     3313
          LX0    48                                                      IRCP     3314
          BX6    -X0*X6                                                  IRCP     3315
          LX6    12                                                      IRCP     3316
          SA1    X1                GET RBT BYTE AND STORE IT             IRCP     3317
          MX0    3                 IN THE FOURTH BYTE OF THE FST         IRCP     3318
          LX0    39                                                      IRCP     3319
          BX3    X0*X1                                                   IRCP     3320
          IX6    X6+X3                                                   IRCP     3321
          LX6    36                                                      IRCP     3322
          SA6    A2                                                      IRCP     3323
OUTSAVE   BSS      0                                                     DKRRCP1    15
          RJ   FIXRBS                                                    IRCP     3324
          EQ   GETRBT                                                    IRCP     3325
          TITLE              RECOVERY --- SUBROUTINE INTCOM              INTCOM     23
          SPACE  3                                                       INTCOM     24
*         SUBROUTINE TO CHECK FOR INTERCOM LOCAL FILE                    INTCOM     25
          SPACE  3                                                       INTCOM     26
INTCOM    PS                                                             INTCOM     27
          MX0    2                                                       INTCOM     28
          LX0    17                                                      INTCOM     29
          BX2    X0*X5             GET FILE TYPE                         INTCOM     30
          SX2    X2-300000B        LOCAL FILE                            INTCOM     31
          NZ   X2,INTCOM           NO                                    INTCOM     32
*                                                                        INTCOM     33
          MX0    3                                                       INTCOM     34
          LX0    15                                                      INTCOM     35
          BX2    X0*X5             GET CONTROL POINT NUMBER              INTCOM     36
          ZR   X2,INTCOM           CP NUM. EQ 0                          INTCOM     37
*                                                                        INTCOM     38
          MX0    12                                                      INTCOM     39
          LX0    60D-C.FAPF*12D                                          INTCOM     40
          BX4    X0*X5             PERM. FILE                            INTCOM     41
          NZ   X4,RC150            YES-CLEAR FNT                         INTCOM     42
          AX2    5                                                       INTCOM     43
          SB2      X2+TABLESAV     GET CTL PT AREA ADDRESS               DMDIRCV     7
          SA3      B2+W.CPRTL      TEST IF INTERCOM CTL POINT            DMDIRCV     8
          MX0    12                                                      INTCOM     46
          BX4    X0*X3             INTER-COM BIT SET                     INTCOM     47
          ZR        X4,CKMAN       SEE IF A TTYNN FILE FROM MANAGER      HS2IRCP   203
*                                                                        INTCOM     49
          SA2      A5+B1           X2= FST (1)                           DMDIRCV     9
          SA4      A2+B1           X4= FST(2)                            DMDIRCV    10
          SX3      B1                                                    DMDIRCV    11
          LX3      48-12D*C.FDC+9  POSITION AS INTRCM BIT OF DC          DMDIRCV    12
          BX7      X4+X3           X7 = FST(2) W/ INTEROM DISPOSITION    DMDIRCV    13
          MX3      24                                                    DMDIRCV    14
          BX7      -X3*X7          CLEAR FET BYTES                       DMDIRCV    15
          SPACE 1                                                        DMDIRCV    16
*                                                                        HS2IRCP   205
*              PICK UP PASSWORD FROM CONTROL POINT                       HS2IRCP   206
*                                                                        HS2IRCP   207
         SA3       B2+W.PORD  PICK UP PASSWORD ORCINAL                   VMWIRCP    23
         MX0       18                                                    VMWIRCP    24
         LX0       60-6            WITH APOKOGIES TO DAVE DUNSHEE        VMWIRCP    25
         L         X3,C.PORD+1,C.FPASS                                   VMWIRCP    26
         BX3       X0*X3                                                 VMWIRCP    27
          BX7      X7+X3           FNT(2) AND ADD IT IN                  DMDIRCV    38
          MX0       60-12                                                HUSTREC    61
          LX0       12                                                   HUSTREC    62
          BX7       X0*X7          CLEAR STATUS BYTE 0                   HUSTREC    63
          SX0       RETCNT*4096    1PF RETAINC OUNT                      HUSTREC    64
          BX7       X0+X7          INSERT IT                             HUSTREC    65
          SX0      L.CPNUM         CTL PT NUM MASK                       DMDIRCV    39
          LX0      48-12D*C.FCPNUM                                       DMDIRCV    40
          BX5      -X0*X5          CLEAR CTL PT NUM TO ZERO              DMDIRCV    41
          SX0      7                                                     DMDIRCV    42
          LX0      15                                                    DMDIRCV    43
          BX5      X5+X0           SET LOCKED LOCAL                      DMDIRCV    44
          SX6       A5                                                   HS2IRCP   212
          RJ        RETFNT         RETAIN IT                             HS2IRCP   213
          SA5       FNTADR         RESTORE ADDRESS                       HS2IRCQ    91
          SA5       X5                                                   HS2IRCQ    92
          JP        RC150                                                HS2IRCP   214
          SPACE 2                                                        HS2IRCP   215
**        CHECK FOR TTYNN FILES AT MANAGER CONTROL POINT                 HS2IRCP   216
*         AND RETAIN IT FOR THIS USER                                    HS2IRCP   217
*                                                                        HS2IRCP   218
CKMAN     BSS       0                                                    HS2IRCP   219
          SB3       MANCP*200B+TABLESAV  TEST FOR MANAGER CP             HS2IRCP   220
          NE        B2,B3,INTCOM   JUMP IF NOT                           HS2IRCP   221
          SA2       B2+W.CPJNAM    GET JOB NAME                          HS2IRCP   222
          MX0       30                                                   HS2IRCP   223
          BX2       X0*X2          TOP 5 CHAR                            HS2IRCP   224
          SA3       MANAGER        JOB MANE                              HS2IRCP   225
          BX2       X2-X3                                                HS2IRCP   226
          NZ        X2,INTCOM      EXIT IF NOT C MANAGER CONTROL PT      HS2IRCP   227
*              TEST FOR TTYNN FILE                                       HS2IRCP   228
          MX0       18                                                   HS2IRCP   229
          BX2       X0*X5                                                HS2IRCP   230
          LX2       18                                                   HS2IRCP   231
          SX2       X2-3RTTY       TEST FOR TTY                          HS2IRCP   232
          NZ        X2,INTCOM      EXIT IF NOT                           HS2IRCP   233
          MX0       60-6           GET FIRST DIGIT OF NUMBER             HS2IRCP   234
          LX5       5*6            .                                     HS2IRCP   235
          BX6       -X0*X5         .                                     HS2IRCP   236
          SX6       X6-1R0         .                                     HS2IRCP   237
          LX6       3              *8                                    HS2IRCP   238
          LX5       6              2ND DIGIT                             HS2IRCP   239
          BX5       -X0*X5                                               HS2IRCP   240
          SX5       X5-1R0         TO BINARY                             HS2IRCP   241
          IX6       X5+X6          X6=USE- NUMBDR                        HS2IRCP   242
          SX6       X6-1           MINUS 1                               HS2IRCP   243
          SX7       X6             NOW MULTIPLY BY 9                     HS2IRCP   244
          ASSUME    L.UTBL,EQ,9                                          HS2IRCP   245
          LX7       3              *8                                    HS2IRCP   246
          IX6       X6+X7          *9                                    HS2IRCP   247
*             NOW GET USE- TABLE                                         HS2IRCP   248
          SA1       P.INT1+TABLESAV                                      HS2IRCQ    93
          MX0       60-18                                                HS2IRCP   250
          AX1       18             GET USE- TABLE BASE ADDRESS           HS2IRCP   251
          BX1       -X0*X1         .                                     HS2IRCP   252
          IX1       X1+X6          ADD IN USE- TABLE OFFSET              HS2IRCP   253
          SA1       X1+W.USPAR     GETR PASSWORD ORDINAL WORD            HS2IRCP   254
          MX0       60-17          17 BIT MASK                           HS2IRCP   255
          BX1       -X0*X1         B PASSWORD INTO X1                    HS2IRCP   256
          L         X1,4,C.FPASS   SHIFT INTO POSITION                   HS2IRCP   257
          SX2       RETCNT*4096+1  1PF COUNT + STATUS COMPUETE           HS2IRCP   258
          BX6       X1+X2          COMBINE FOR FST2                      HS2IRCP   259
          SA6       A5+2           .                                     HS2IRCP   260
          SA1       TTYTTY         NEW FIRST WORD(NAME)                  HS2IRCP   261
          BX6       X1                                                   HS2IRCP   262
          SA6       A5             .                                     HS2IRCP   263
          SX6       A5             X6=FNT ADDRESS                        HS2IRCP   264
          RJ        RETFNT         RETAIN THE FNT                        HS2IRCP   265
          SA5       FNTADR         RESTORE ADDRESS                       HS2IRCQ    94
          SA5       X5                                                   HS2IRCQ    95
          JP        RC150          CLEAR THE FNT                         HS2IRCP   266
          TITLE                   RECOVERY --- SUBROUTINE REPLACE        IRCP     3326
*                                                                        IRCP     3327
*         SUBROUTINE TO RESTORE CM TABLES                                IRCP     3328
*                                                                        IRCP     3329
*                                                                        IRCP     3330
REPLACE   PS                                                             IRCP     3331
*                                                                        HS2IRCP   267
 REP001   SA3      W.CPECS         ENSURE ECS IS SAME SIZE AS            HS2IRCP   268
          SA5       W.CPECS+TABLESAV   AS BEFORE CRASH                   HS2IRCP   269
          IX5      X3-X5                                                 HS2IRCP   270
          ZR       X5,REP008       JUMP WHEN MATCH                       HS2IRCP   271
          MI       X5,REP004       JUMP IF NEW SIAXE TOO SMALL           HS2IRCP   272
          OPCOM    A,(RECOL1,RECSLA)   =ECS TTOO BIG=                    HS2IRCP   273
          EQ       REP006                                                HS2IRCP   274
 REP004   OPCOM    A,(RECOL1,RECSSM)   =ECS TOO SMALL=                   HS2IRCP   275
 REP006   RJ       ECSIZE          DETERMIN NEW SIAXE                    HS2IRCP   276
          EQ       REP001          GO TRY AGIN                           HS2IRCP   277
 REP008   SA1      P.ECST+TABLESAV GET                                   HS2IRCQ    96
          SA2      P.LECST+TABLESAV  THE CURRENT-WORD-IN ECS -BEING WRIT HS2IRCQ    97
          MX0      48                                                    HS2IRCQ    98
          L        X1,C.ECST,4                                           HS2IRCQ    99
          L        X2,C.ECST,4                                           HS2IRCQ   100
          BX1      -X0*X1                                                HS2IRCQ   101
          BX2      -X0*X2                                                HS2IRCQ   102
          LX1      3                                                     HS2IRCQ   103
          IX1      X1+X2           LWA+1 OF ECST TABLE                   HS2IRCQ   104
          SA1      X1-1+TABLESAV   LWA OF ECST                           HS2IRCQ   105
          ZR       X1,REP009                                             HS2IRCQ   106
          SB4      X1                                                    HS2IRCQ   107
          SA2       P.LIB          IF CM FWA IN CMR, ADD TABLESAV        GHKCPL2    82
          AX2      36                                                    HS2IRCQ   109
          SB3      X2                                                    HS2IRCQ   110
          GT       B4,B3,REP005    JUMP IF NOT IN CMR                    HS2IRCQ   111
          SB4      B4+TABLESAV     IF IN CMR, USE SAVED COPY             HS2IRCQ   112
 REP005   BSS      0                                                     HS2IRCQ   113
          AX1      30                                                    HS2IRCQ   114
          SA2      T.ECSPAR+TABLESAV                                     HS2IRCQ   115
          MX0      54                                                    HS2IRCQ   116
          LX2      6               (SHIFT OFF GARBAGE)                   HS2IRCQ   117
          AX2      54              GET BLOCK LENGTH                      HS2IRCQ   118
          SB2      X2                                                    HS2IRCQ   119
          RJ       ECSWR           GO WRITE BLOCK TO ENSURE GOOD CHEKCSU HS2IRCQ   120
 REP009   SA1      T.ECSPAR        SET POSSIBLE BANK NUMBER              HS2IRCQ   121
          SA2      A1+TABLESAV                                           HS2IRCQ   122
          MX0      6                                                     HS2IRCQ   123
          BX2      X0*X2                                                 HS2IRCQ   124
          BX1      -X0*X1                                                HS2IRCQ   125
          BX6      X1+X2                                                 HS2IRCQ   126
          SA6      A1                                                    HS2IRCQ   127
*                                                                        GHKCPL2    83
*         RESET THE ECS FNT LISTS                                        GHKCPL2    84
*                                                                        GHKCPL2    85
          SA1       TABLESAV+P.INS GET INS PTR                           GHKCPL2    86
          LX1       12                                                   GHKCPL2    87
          MX0       48                                                   GHKCPL2    88
          BX1       -X0*X1         PTR TO INSTALLATION AREA              GHKCPL2    89
          SA2       X1+TABLESAV+W.ELSAVE                                 GHKCPL2    90
          ZR        X2,REP010      JUMP IF NO OP WAS IN PROGRESS         GHKCPL2    91
          SA3       A2+1                                                 GHKCPL2    92
          BX6       X2                                                   GHKCPL2    93
          BX7       X3                                                   GHKCPL2    94
          SA6       EMPCHN                                               GHKCPL2    95
          SA7       A6+1                                                 GHKCPL2    96
X         ECHO      ,P1=(THISITEM,LASTITEM,THISCOL)                      GHKCPL2    97
          SA2       A3+1                                                 GHKCPL2    98
          SA3       A2+1                                                 GHKCPL2    99
          BX6       X2                                                   GHKCPL2   100
          BX7       X3                                                   GHKCPL2   101
          SA6       P1                                                   GHKCPL2   102
          SA7       P1+1                                                 GHKCPL2   103
X         ENDD                                                           GHKCPL2   104
          SA1       EMPCHN                                               GHKCPL2   105
          SX6       X1             GET POINTER TO EMPTY CHAIN            GHKCPL2   106
          SA6       A1             AND STORE IT                          GHKCPL2   107
          LX1       30             GET POINTER TO PPOR                   GHKCPL2   108
          SX7       X1+TABLESAV    RELOCATE IT                           GHKCPL2   109
          SA7       PPOR           SAVE IT FOR LATER                     GHKCPL2   110
          BX1       X1-X1                                                GHKCPL2   111
          SB4       EMPCHN                                               GHKCPL2   112
          RJ        WRITE1         EMPTY CHAIN POINTER                   GHKCPL2   113
X         ECHO      ,P1=(EMPCHN,THISITEM,LASTITEM,THISCOL)               GHKCPL2   114
          SA1       P1                                                   GHKCPL2   115
          SB4       P1+1                                                 GHKCPL2   116
          RJ        WRITE1                                               GHKCPL2   117
X         ENDD                                                           GHKCPL2   118
          OPCOM     A,(RECOL1,ITDIDIT)                                   GHKCPL2   119
REP010    BSS       0                                                    GHKCPL2   120
*                                                                        BBBSWPR    26
*         SAVE ECS SWAP ALLOCATION TAABLR                                BBBSWPR    27
*                                                                        BBBSWPR    28
         SA1       P.ECST         GET BASE OF ATABLE                     BBBSWPR    29
          MX0       60-12                                                BBBSWPR    30
          L         X1,C.ECSWPA,4                                        BBBSWPR    31
          BX1       -X0*X1         ADDRESS IN X1                         BBBSWPR    32
          LX1       3              *8                                    BBBSWPR    33
          SA2      P.LECST              GET LENGTH                       BBBSWPR    34
          L         X2,C.ECSWPL,4  .                                     BBBSWPR    35
         BX2       -X0*X2         X2=LENGTH                              BBBSWPR    36
           SB2       X1             B2=FWA                               BBBSWPR    37
          SB3       X2-1           LENGTH-1                              BBBSWPR    38
LPESS     SA1       B2+TABLESAV    GET SAVED TABLE                       BBBSWPR    39
          BX6       X1                                                   BBBSWPR    40
           SA6      B2             MOVE IT                               BBBSWPR    41
          SB2       B2+B1                                                BBBSWPR    42
          SB3       B3-B1                                                BBBSWPR    43
         PL        B3,LPESS       LOOP FOR ENTIRE TABLE                  BBBSWPR    44
*                                                                        BBBSWPR    45
*                                                                        BBBSWPR    46
*         SVE JOB SCHEDULER TABLE                                        BBBSWPR    47
*                                                                        BBBSWPR    48
          SA1      P.JST           GET TABLE ADDFESS                     BBBSWPR    49
          L        X1,C.JST,4      GET IT                                BBBSWPR    50
          BX1      -X0*X1                                                BBBSWPR    51
          LX1      3                                                     BBBSWPR    52
          SA2      X1+W.JSL        GET LENGTH                            BBBSWPR    53
          SB2      X1                                                    BBBSWPR    54
          SB3      X2              INTO X B REG                          BBBSWPR    55
LPJSS     SA1      B2+TABLESAV                                           BBBSWPR    56
          BX6      X1                                                    BBBSWPR    57
          SA6      B2                                                    BBBSWPR    58
          SB2      B2+B1                                                 BBBSWPR    59
          SB3      B3-B1                                                 BBBSWPR    60
          NZ       B3,LPJSS        LOOP TO MOVE IT                       BBBSWPR    61
*                                                                        BBBSWPR    62
*                                                                        IRCP     3332
          SA3    CEDARGS           RESTORE FNT                           IRCP     3333
          LX3    45                                                      IRCP     3334
          NG   X3,REP17            NO                                    IRCP     3335
*         GET FNT TABLES                                                 IRCP     3336
*                                                                        IRCP     3337
          SA3    P.FNT             GET START OF FNT                      IRCP     3338
          MX0    48                                                      IRCP     3339
          LX3    12                                                      IRCP     3340
          BX6    -X0*X3                                                  IRCP     3341
          SA6    FNTADR                                                  IRCP     3342
          SA5    X6                                                      IRCP     3343
          SA1    X6+TABLESAV                                             IRCP     3344
          LX3    12                                                      IRCP     3345
          BX6    -X0*X3                                                  IRCP     3346
          SB2    X6                                                      IRCP     3347
REP10     BX6    X1                                                      IRCP     3348
          MX4    6                                                       IRCP     3349
          BX2    X4*X1                                                   IRCP     3350
          SX3    33B                                                     IRCP     3351
          LX3    54                                                      IRCP     3352
          IX2    X3-X2                                                   IRCP     3353
          NZ   X2,REP12            DO NOT RESTORE THIS FNT               IRCP     3354
         SA1       A1+LE.FNT                                             SC2926      1
          EQ   REP15                                                     IRCP     3356
*                                                                        IRCP     3357
REP12     SA1    A1+B1                                                   IRCP     3358
          SA6    A5                RESTORE ONE FNT WORD                  IRCP     3359
          BX6    X1                                                      IRCP     3360
          SA6    A6+B1                                                   IRCP     3361
         DUP       LE.FNT-2,3                                            SC2926      2
          SA1    A1+B1                                                   IRCP     3362
          BX6    X1                END OF FNT TABLE                      IRCP     3363
          SA6    A6+B1                                                   IRCP     3364
          SA1    A1+B1                                                   IRCP     3365
REP15    SA5       A5+LE.FNT                                             SC2926      3
          SB6    A5-B2             END OF FNT TABLE                      IRCP     3367
          NZ   B6,REP10            NO                                    IRCP     3368
*                                                                        IRCP     3369
*                                                                        IRCP     3370
*         RESTORE P.RBT IN CMR                                           IRCP     3371
*                                                                        IRCP     3372
          SA3    P.RBT+TABLESAV                                          IRCP     3373
          BX6    X3                                                      IRCP     3374
          SA6    P.RBT                                                   IRCP     3375
*         RESTORE EST ON/OFF BITS                                        IRCP     3376
*                                                                        IRCP     3377
REP17     SA3    P.EST             GET EST FWA                           IRCP     3378
          LX3    12                                                      IRCP     3379
          BX6    -X0*X3                                                  IRCP     3380
          SA6    FNTADR            SAVE EST FWA                          IRCP     3381
          SA5    X6                                                      IRCP     3382
          SA1    X6+TABLESAV       GET SAVED EST                         IRCP     3383
          LX3    12                                                      IRCP     3384
          BX6    -X0*X3                                                  IRCP     3385
          SB2    X6                                                      IRCP     3386
          MX2      12                  MASK FOR MNE AND ON/OFF           DKRRCP5     1
          LX2    24                                                      IRCP     3388
REP20     BX6    X2*X1             MASK OUT SAVED ON/OFF BIT             IRCP     3389
          BX7    -X2*X5            ZERO NEW ON/OFF BIT                   IRCP     3390
          IX6    X7+X6             INSERT SAVED ON/OFF BIT               IRCP     3391
*                                                                        DKRRCP3     1
*   TEST 3000 UNIT RECORD                                                DKRRCP3     2
*                                                                        DKRRCP3     3
*                                                                        DKRRCP3     7
*   RECOVER ROUTE                                                        DKRRCP3     8
*                                                                        DKRRCP3     9
          LX2      12                  MOVE MASK UP FOR ROUTE BYTE       DKRRCP5     2
          BX7      X2*X1               GET OLD ROUTE                     DKRRCP3    12
          BX6      -X2*X6              CLEAR OLD ROUTE                   DKRRCP3    13
          BX6      X7+X6               PUT RECOVERED ROUTE IN EST        DKRRCP3    14
          AX2      12                  REPOSITION MASK FOR MNE AND ON/OF DKRRCP5     3
          PL   X6,REP25            NON-ALLOCATABLE DEVICE                IRCP     3392
          BX7    X6                                                      IRCP     3393
          LX7    7                                                       IRCP     3394
          PL   X7,REP25            JUMP IF NOT PRIVATE PACK              IRCP     3395
          SX7    B1                YES                                   IRCP     3396
          LX7    53                SET UNLOADED                          IRCP     3397
          BX6    X7+X6             SET UNLOADED                          IRCP     3398
REP25     SA6    A5                RESTORE EST                           IRCP     3399
          SA1    A1+B1             GET NEXT SAVED WORD                   IRCP     3400
          SA5    A5+B1             GET NEXT EST WORD                     IRCP     3401
          SB6    A5-B2             END OF EST TABLE                      IRCP     3402
          NZ   B6,REP20            NO                                    IRCP     3403
          SA3    CEDARGS                                                 IRCP     3404
          LX3    45                                                      IRCP     3405
          NG   X3,REP50            DO NOT RESTORE BUFFERS                IRCP     3406
*                                                                        IRCP     3407
*         GET DAYFILE BUFFER POINTERS                                    IRCP     3408
*                                                                        IRCP     3409
          SA3    P.DFB                                                   IRCP     3410
          LX3    12                                                      IRCP     3411
          BX6    -X0*X3                                                  IRCP     3412
          LX6    3                                                       IRCP     3413
          SA6    FNTADR                                                  IRCP     3414
          SA5    X6                                                      IRCP     3415
          SB3    X6                                                      IRCP     3416
          SA2    X6+TABLESAV                                             IRCP     3417
REP30     BX6    X2                                                      IRCP     3418
          BX7    X2                                                      IRCP     3419
          SA6    A5                                                      IRCP     3420
          LX6    12                GET CURRENT LENGTH OF DAYFILE         IRCP     3421
          BX6    -X0*X6                                                  IRCP     3422
          SB6    X6+3              ADD LENGTH OF NEW MESSAGE             IRCP     3423
          AX2    24                                                      IRCP     3424
          BX2    -X0*X2                                                  IRCP     3425
          SB2    X2+B3             GET FIRST ADDRESS OF BUFFER           IRCP     3426
          SA5    B2                ABSOLUTE CORE LOCATION                IRCP     3427
          SA1    TABLESAV+B2       LOCATION IN TABLE SAVE                IRCP     3428
          BX2    X7                GET LENGTH                            IRCP     3429
          LX2    24                OF                                    IRCP     3430
          BX2    -X0*X2            DAYFILE BUFFER                        IRCP     3431
          SB5    X2                                                      IRCP     3432
          SB4    B5-B6                                                   IRCP     3433
REP40     BX6    X1                                                      IRCP     3434
          SA6    A5                                                      IRCP     3435
          SA1    A1+B1                                                   IRCP     3436
          SA5    A5+B1                                                   IRCP     3437
          SB5    B5-B1             HAVE ALL BEEN TRANSFERRED             IRCP     3438
          NZ   B5,REP40            NO                                    IRCP     3439
*                                                                        IRCP     3440
REP41     PL   B4,REP42            WILL NEW MESSAGE FIT IN DAYFILE       IRCP     3441
          SB6    B6-B1             NO                                    IRCP     3442
          SB4    B4+B1                                                   IRCP     3443
          EQ   REP41                                                     IRCP     3444
*                                                                        IRCP     3445
REP42     SX6    B6                                                      IRCP     3446
          SA5    B3                UPDATE DAYFILE FET                    IRCP     3447
          LX5    12                                                      IRCP     3448
          BX5    X0*X5                                                   IRCP     3449
          IX6    X5+X6                                                   IRCP     3450
          LX6    48                                                      IRCP     3451
          SA6    A5                REPLACE DAYFILE FET                   IRCP     3452
          SB6    B6-4              PREPARE TO MOVE NEW MESSAGE           IRCP     3453
          SA5    B2+B6             INTO BUFFER                           IRCP     3454
          BX6    X0*X5             MASK OUT LAST BYTE OF PREVIOUS        IRCP     3455
          SA6    A5                MESSAGE                               IRCP     3456
          SA4    DFMES                                                   IRCP     3457
          SB5    3                                                       IRCP     3458
REP43     BX6    X4                                                      IRCP     3459
          SA4    A4+B1                                                   IRCP     3460
          SA6    A6+B1                                                   IRCP     3461
          SB5    B5-B1                                                   IRCP     3462
          NZ   B5,REP43                                                  IRCP     3463
*                                                                        IRCP     3464
*         RESTORE ERROR FILE BUFER                                       IRCP     3465
*                                                                        IRCP     3466
          SX3    B7+B3                                                   IRCP     3467
          SB2    X3+B1             LOCATION OF CERF FET                  IRCP     3468
          SA2    TABLESAV+B2                                             IRCP     3469
          BX6    X2                COPY FET                              IRCP     3470
          BX7    X2                                                      IRCP     3471
          SA6    B2                RESTORE CE ERROR FILE FET             SC20377     1
          AX2    24                                                      IRCP     3472
          BX2    -X0*X2                                                  IRCP     3473
          SB2    X2+B3             FIRST                                 IRCP     3474
          SA5    B2                START ADDRESS                         IRCP     3475
          SA1    TABLESAV+B2                                             IRCP     3476
          BX2    X7                GET LENGTH                            IRCP     3477
          LX2    24                OF                                    IRCP     3478
          BX2    -X0*X2            ERROR FILE BUFFER                     IRCP     3479
          SB5    X2                                                      IRCP     3480
REP45     BX6    X1                MOVE BUFFER CONTENTS                  IRCP     3481
          SA6    A5                FROM SAVED AREA TO LOW CORE           IRCP     3482
          SA1    A1+B1                                                   IRCP     3483
          SA5    A5+B1                                                   IRCP     3484
          SB5    B5-B1             BUFFER EMPTY                          IRCP     3485
          NZ   B5,REP45            NO                                    IRCP     3486
REP50     SA5    T.CPJOBN+TABLESAV                                       IRCP     3487
          BX6    X5                                                      IRCP     3488
          SA6    T.CPJOBN          RESTORE JOB SEQUENCE NUMBER           IRCP     3489
          SA5    P.HEC+TABLESAV    RESTORE ERROR COUNT                   SCR320W     1
          MX0    12                                                      SCR320W     2
          LX0    60-12*C.HEC                                             SCR320W     3
          BX6    X0*X5                                                   SCR320W     4
          SA2    P.HEC                                                   SCR320W     5
          BX2    -X0*X2                                                  SCR320W     6
          IX6    X6+X2                                                   SCR320W     7
          SA6    A2                                                      SCR320W     8
*                                                                        HS2IRCP   279
          SA1      P.INS+TABLESAV                                        HS2IRCP   280
          L        X1,C.ECLIBX,3                                         HS2IRCP   281
          MX0      60-24                                                 HS2IRCP   282
          BX6      -X0*X1                                                HS2IRCP   283
          SA6      OLDECLWA        STORE LAST ECS LIBRARRY LENGTH        HS2IRCP   284
*                                                                        HS2IRCP   285
*                  RECOVER THE ECS PARTITION TABLE                       HS2IRCP   286
          SA1      P.ECST                                                HS2IRCP   287
          SA2      P.LECST                                               HS2IRCP   288
          MX0      60-12                                                 HS2IRCP   289
          L        X1,C.ECST,4                                           HS2IRCP   290
          L        X2,C.ECST,4                                           HS2IRCP   291
          BX1      -X0*X1                                                HS2IRCP   292
          BX2      -X0*X2                                                HS2IRCP   293
          SB2      X2              LENGTH                                HS2IRCP   294
          LX1      3                                                     HS2IRCP   295
          SB3      TABLESAV                                              HS2IRCP   296
          SX1      X1+B3           ADDRESS FO OLD PART. TABLE            HS2IRCP   297
 REP60    SB2      B2-B1           DECREMENT COUNT                       HS2IRCP   298
          SA2      X1+B2           GET ENTRY  (START FORM END)           HS2IRCP   299
          BX6      X2                                                    HS2IRCP   300
          SA6      A2-B3           STORE IN NEW PART. TABLE              HS2IRCP   301
          GT       B2,B0,REP60     JUMP IF MORE TO COME                  HS2IRCP   302
*                                                                        IRCP     3490
*                                                                        IRCP     3491
          EQ   REPLACE                                                   IRCP     3492
          TITLE     RECOVERY - HUSTLER POOL TABLE RECOVERY               HUSTREC    66
*         HUSTLER POOL TABLE RECOVERY                                    HUSTREC    67
*                   ALL INTERCOM JOBS ARE NOT RESETORED SINCE THE MANAGR HUSTREC    68
*                   FIELD LENGTH HAS BEEN LOST                           HUSTREC    69
*                   BATCH JOBS NOT IN EXECUTION(STATE = 0)               HUSTREC    70
*                   ARE RECOVERED - IF THEY HAVE TAPES ASSIGNED AN       HUSTREC    71
*                   OPERATOR MESSAGE ALLOWS THE JOB TO BE                HUSTREC    72
*                   CONTINUED OR NOT                                     HUSTREC    73
*                   IF THE JOB IS TOTALLY SWAPPED IN(STATE=2) THE NORMAL HUSTREC    74
*                   RERUN MECHANISM WILL RECOVER IT LATER                HUSTREC    75
*                   IF SWAP STATE = 1 OR 3 THE JOB IS DISCARDED AND ALL  HUSTREC    76
*                   ITS FILES ARE DISCARDED AND AN OPERATOR MESSAGE      HUSTREC    77
*                   OF THE JOB NAME IS POSTED                            HUSTREC    78
*                                                                        HUSTREC    79
*                   BOB B  -  MSU  -  DEC 1970                           HUSTREC    80
*                                                                        HS2IRCP   303
*                  RECOVERY FOR HUSTLER 2.0 - BOB B.  - AUG 1971-        HS2IRCP   304
*                                       (YEP, HE-S STILL HERE)           HS2IRCP   305
*                                                                        HS2IRCP   306
*                  THE APF TABLE IS RECOVERED. JOBS WHICH CANT BE        HS2IRCP   307
*                  RECOVERED ARE RERUN IF POSSIBLE.                      HS2IRCP   308
*                  CONTROL POINT AREA IS IN ECS                          HS2IRCP   309
*                                                                        HS2IRCP   310
*        REGISTER CONVENTION:                                            HS2IRCP   311
*                  B1=1                                                  HS2IRCP   312
*                  B2= CURRENT FNT ADDRESS                               HS2IRCP   313
*                  B3= FNT LWA                                           HS2IRCP   314
*                  B4= CURRENT POOL POCKET ADDRESS                       HS2IRCP   315
*                  B5= POOL POCKET LWA                                   HS2IRCP   316
*                                                                        HS2IRCP   317
*                                                                        HS2IRCP   318
ECSCP     EQU       CMBUFFER       CP AREA OF SWAPPED JOB                HS2IRCP   319
ECSMB     EQU       ECSCP+200B                                           HS2IRCP   320
*                                                                        HUSTREC    81
          SPACE 3                                                        HS2IRCP   325
RCPOOL    PS                                                             HUSTREC    82
          SA4       P.HUST         POINTER                               HUSTREC    83
          MX0       60-12                                                HUSTREC    84
          LX4       12                                                   HUSTREC    85
          BX5       -X0*X4         PT FWA                                HUSTREC    86
          SB4       X5+TABLESAV                                          HUSTREC    87
          SX6       B4-2           FWA-2                                 BBBRCP2    14
          LX4       12                                                   HUSTREC    88
          BX5       -X0*X4                                               HUSTREC    89
          SB5       X5+TABLESAV    POOL TABLE LAST WORD ADDRESS          HUSTREC    90
          LX4       12             GET WAIT TABLE FWA                    HUSTREC    91
          BX5       -X0*X4         INTO X5                               HUSTREC    92
          SA1       X5+TABLESAV    LOAD WORD 1 OF WAIT TABLE             HUSTREC    93
          BX6       X1                                                   HUSTREC    94
          SA6       X5             STORE IT                              HUSTREC    95
                                                                         HUSTREC    96
*                                                                        HUSTREC    97
*         SCAN POOL TABLE - B4=CURRENT POCKET, B5=LWA                    HUSTREC    98
*                                                                        HUSTREC    99
RCPL      SA4       B4             LOAD ENTRY                            HUSTREC   100
          ZR        X4,RCPE        EMPTY                                 HUSTREC   101
*                                                                        HS2IRCR     8
*        ECS AREA FOR A JOB IS VALID ONLY IF JOB IS SWAPPED-OUT AND THE  HS2IRCR     9
*         FIRST-TIME FLAG IS NOT SET.                                    HS2IRCR    10
*                                                                        HS2IRCR    11
          SA4      B4+W.SWST       GET THE SWAP STATE                    HS2IRCR    12
          MX0      60-12                                                 HS2IRCR    13
          L        X4,C.SWST,4                                           HS2IRCR    14
          BX4      -X0*X4          INTO X4                               HS2IRCR    15
          ZR       X4,RCPL2        JOB IS SWAPPED-OUT                    HS2IRCR    16
          SA5      B4+W.HBIT       NOT SWAPPED OUT8TEST TYPE             HS2IRCR    17
          NG       X5,RCPNI1       BATCH JOB-JUMP TO TAKE CARE OF HIM    HS2IRCR    18
          JP        RCPE           IF INTERCOM - BYPASS IT               BBBIRRB     1
RCPL2     BSS       0                                                    BBBIRRB     2
*                                                                        HS2IRCP   327
          SA4       B4+W.HBIT      GET FLAG WORD                         HS2IRCP   328
          LX4       11-S.FRST+12*C.HBIT                                  HS2IRCP   329
          PL        X4,RCPLNF      JUMP IF NOT                           HS2IRCP   330
          SA4       A4             RELOAD FLAG WORD                      HS2IRCP   331
          NG        X4,RCPFRST     JUMP IF FIRST-TIME BATCH              HS2IRCP   332
          JP        RCPE           ELSE INTERCOM- GO BYPASS IT           HS2IRCP   333
RCPLNF    BSS       0                                                    HS2IRCP   334
*                                                                        HS2IRCP   335
*           READ UP JOB FORM ECS                                         HS2IRCP   336
*                                                                        HS2IRCP   337
*                                                                        HS2IRCP   338
*           READ UP ECS SWAP AREA AND VALIDATE IT                        HS2IRCP   339
*                                                                        HS2IRCP   340
          CALL      SAVB           SAVE B REGISTERS                      HS2IRCP   341
          SB2       L.EXFL+200B    LENGTH OF ECS SWAP AREA               HS2IRCP   342
          SA1       B4+W.HORE      GET POCKET ORDINAL                    HS2IRCP   343
          MX0       12-S.HORE      .                                     HS2IRCP   344
          BX1       X0*X1          .                                     HS2IRCP   345
          LX1       12-S.HORE      .                                     HS2IRCP   346
          SX1       X1-1           SUB 1                                 HS2IRCP   347
          LX1       6+2            *400B = ECS BASE ADDRESS              HS2IRCP   348
          ASSUME    L.EXFL,EQ,200B                                       HS2IRCP   349
          SB4       ECSCP          CM  BASE FOR ECS READ                 HS2IRCP   350
          SB5       W.ECHCPA       HUSTLER CPAREA PARTITION              HS2IRCP   351
          CALL      ECSTFL         SETUP PARITION ADDRESS                HS2IRCP   352
          CALL      ECSRD          GIVE ECS READ                         HS2IRCP   353
          CALL       RESB           RESTORE B REG                        HS2IRCP   354
*              VALIDATE ECS CP AREA                                      HS2IRCP   355
          SA1       ECSCP+W.CPJNAM GET JOB NAME FROM ECS                 HS2IRCP   356
          SA2       B4+W.HJNAM     JOB NAME FROM POOL                    HS2IRCP   357
          SA3      JNMASK          JOB NAME MASK                         BBBIR1      3
          BX2      X3*X2                                                 BBBIR1      4
          ZR       X2,RCPE         JUMP IF NO JOB NAME                   BBBIR1      5
          BX2      X2-X1           TEST FOR IDENTICAL NAMES              BBBIR1      6
          BX2       X3*X2                                                HS2IRCP   360
          NZ        X2,RCPJOBL     DROP JOB IF NOT THE SAME              HS2IRCP   361
*                                                                        HS2IRCP   362
          SPACE  1                                                       HS2IRCP   363
          SA5       B4+B1          WORD 2                                HUSTREC   102
          NG        X5,RCPNI1      JUMP IF BATCH                         BBBRCP2    16
*                                                                        BBBRCP2    17
*        INTERCOM- WE MUST FIND ALL JOB FILES AND INSERT THE PASSWORD    BBBRCP2    18
*        ORDINAL INTO FST2 - THIS WILL ALLOW -SPN- TO REATTACH THESE     BBBRCP2    19
*        FILES TO THE CORRECT USER SHOULD HE REDIAL                      BBBRCP2    20
*                                                                        BBBRCP2    21
          SA2       ECSCP+W.PORD   GET PASSWORD FROM CP AREA             HS2IRCP   364
          L         X2,C.PORD,3    .                                     HS2IRCP   365
          MX0       60-18          .                                     HS2IRCP   366
          BX6       -X0*X2         .  INTO  X6                           HS2IRCP   367
          ZR       X6,RCPE         JUMP IF NO PASSWORD                   BBBIR1      7
          L         X6,4,C.FPASS   POSITION FOR FNT                      HS2IRCP   368
          SX5       1000B          DISPOSITION                           BBBRCP2    29
          LX5       24                                                   BBBRCP2    30
          BX6       X6+X5          INSERT IT                             BBBRCP2    31
          SX5       RETCNT*4096+1  IPF COUNT AND COMPLETE BIT            BBBRCP2    32
          BX6       X5+X6                                                BBBRCP2    33
          SA6       INSPW          SET UP FST2                           BBBRCP2    34
          JP        RCPDROP        GO INSERT IT                          BBBRCP2    35
*                                                                        BBBRCP2    36
*        BATCH JOB - CHECK SWAP STATE                                    BBBRCP2    37
*                                                                        BBBRCP2    38
RCPNI1    BSS      0                                                     BBBSWPR    63
*                                                                        BBBSWPR    64
*         IF RECONFIGURING ECS,KILL ALL JHOBS RESIDENT IN ECS            BBBSWPR    65
*                                                                        BBBSWPR    66
          SA1       B4+W.HECSF     SEE IF IN ECS                         BBBSWPR    67
          LX1       11-S.HECSF+12*C.HECSF                                BBBSWPR    68
          PL        X1,RCN1        NOT IN ECS                            BBBSWPR    69
          SA1       CEDARGS        SEE IF ECS RECON                      BBBSWPR    70
          MX0       48                                                   BBBSWPR    71
         AX1       36                                                    BBBSWPR    72
           BX1      -X0*X1                                               BBBSWPR    73
          ZR       X1,RCPJOBL           LOST IF WE WILL RECONFIG ECS     BBBSWPR    74
RCN1      SX6      B0                                                    BBBSWPR    75
*                                                                        BBBSWPR    76
          SA6       INSPW          CLER INTERCOM PASWORD FLAG            BBBRCP2    40
          L         X5,C.SWST,4    GET SWAP STAE                         HUSTREC   104
          MX0       60-12                                                HUSTREC   105
          BX3       -X0*X5         INTO X3=SWAP STAE                     HUSTREC   106
          ZR        X3,RCPB        IN POOL -RECOVER IT                   HUSTREC   107
          SX3       X3-2           CHECK FOR EXECUTING                   HUSTREC   108
          ZR        X3,RCPE        YES- SKIP IT                          HUSTREC   109
          EJECT                                                          HS2IRCP   369
**        RCPJOBL  -  DROP THE JOB                                       HS2IRCP   370
*                                                                        HS2IRCP   371
*                                                                        HUSTREC   110
*         IN PROCESS OF SWAP - DONT TRY TO RECOVER IT                    HUSTREC   111
*         TELL OPERATOR ITS JOB NAME, THEN ZERO ALL ITS FILES            HUSTREC   112
*                                                                        HUSTREC   113
RCPJOBL   BSS       0                                                    HUSTREC   114
          SA4       B4+W.HJNAM     GET JOB NAME                          HS2IRCP   372
          MX0       42                                                   HUSTREC   122
          SX5       3R                                                   HUSTREC   123
          BX4       X0*X4          JOB NAME                              HUSTREC   124
          BX5       -X0*X5         SPACES                                HUSTREC   125
          BX6       X4+X5          COMBINE                               HUSTREC   126
          SA6       JLM+1          JOB LOST MESSAGE                      HUSTREC   127
          OPCOM     A,(RECOL1,JOBL)  TELL OP JOB NAME                    HUSTREC   128
          RJ        WAITGO                                               HUSTREC   129
*                                                                        BBBRCP2    41
*        THIS LOOP WILL DELETE ALL FILES OF A BATCH JOB                  BBBRCP2    42
*        OR INSERT THE PASSWORD ORDINAL INTO ALL FILES OF AN             BBBRCP2    43
*        INTERACTIVE JOB                                                 BBBRCP2    44
*             IF INSPW = 0 THE FILES ARE DROPPED, IF NON-ZERO THEN       BBBRCP2    45
*             INSPW IS SUBSTITUTED AS FST2 FOR EACH OF TH JOBS FILES     BBBRCP2    46
*                                                                        BBBRCP2    47
RCPDROP   BSS       0                                                    HUSTREC   131
          CALL     RECSKJ               DELETE FROM ECS                  BBBSWPR    77
          CALL      SETFNT         B2=FNT FWA, B3= FNT LWA               HS2IRCP   373
          SA4       B4             RELOAD JOB ID                         HUSTREC   140
RPLJ1     SA5       B2             LOAD FNT ENTRY                        HUSTREC   141
          ZR        X5,RPLJ2       EMPTY ENTRY                           HUSTREC   142
          L         X5,C.FCPNUM,4  GET TYPE AND CP                       HUSTREC   143
          SX0       47B            GET CP AND LOCK BIT                   BBBRCP2    48
          BX0       X0*X5                                                BBBRCP2    49
          SX0       X0-40B         TEST FOR LOCKED-CP0                   BBBRCP2    50
          NZ        X0,RPLJ2       BYPASS IF NOT                         BBBRCP2    51
          SX0       30B                                                  HUSTREC   144
          BX5       X0*X5          MASK TYPE                             HUSTREC   145
          SX5       X5-20B         TEST FOR COMMON FILE                  HUSTREC   146
          NZ        X5,RPLJNC                                            HUSTREC   147
          SA5       B2             RELOAD FNT 1                          HUSTREC   148
          MX6       60-1                                                 HUSTREC   149
          LX6       17                                                   HUSTREC   150
          BX6       X5*X6          CLEAR THE LOCK BIT                    HUSTREC   151
          SA6       B2                                                   HUSTREC   152
          SA5       B2+2           LOAD FNT WORD 3                       HUSTREC   153
          MX6       36                                                   BBBRCP2    52
          BX6       -X6*X5         CLEAR THE JOB ID                      HUSTREC   155
          SA6       A5                                                   HUSTREC   156
          JP        RPLJ2                                                HUSTREC   157
RPLJNC    BSS       0                                                    HUSTREC   158
          SA5       B2+2           WORD 3                                HUSTREC   159
          SX4       1000B          SWAPPED OUT DISPOSITION               BBBRCP2    53
          LX4       24                                                   BBBRCP2    54
          BX4       X4*X5          TEST FOR THIS DISPOSITION             BBBRCP2    55
          ZR        X4,RPLJ2       NO MATCH IF BIT NOT SET               BBBRCP2    56
          MX0       12-S.HORE                                            HS2IRCP   374
          SA4       B4+W.HORE      GET POOL ORDINAL                      HS2IRCP   375
          BX5       X4-X5          TEST FOR MATCH                        HS2IRCP   376
          BX5       X0*X5          .                                     HS2IRCP   377
          NZ        X5,RPLJ2       NO MATCH                              HUSTREC   164
          SA4       INSPW          TEST TO SAVE OR DROP THIS FILE        BBBRCP2    66
          ZR        X4,RPLDF       DROP IF NOT SET                       BBBRCP2    67
          BX6       X4                                                   BBBRCP2    68
          SA6       B2+2           SET AS FST2                           BBBRCP2    69
          SA2      B2              LOAD                                  BBBRWYN     1
          MX0      60-12                                                 BBBRWYN     2
          L        X0,4,C.FAPF     POSITION MASK                         BBBRWYN     3
          BX2      -X0*X2          X2=APF POIN TER                       BBBRWYN     4
          NZ       X2,RPLDF        JUMP IF A PF                          BBBRWYN     5
          SX6       B2             FNT ADDRESS                           HS2IRCP   378
          CALL      RETFNT         RETAIN IT IN ECS                      HS2IRCP   379
RPLDF     BSS       0                                                    BBBRCP2    71
          SX6       B0             MOATCH - ZERO IT                      HUSTREC   165
          SA6       B2                                                   HUSTREC   166
          SA6       A6+B1                                                HUSTREC   167
          SA6       A6+B1                                                HUSTREC   168
*                                                                        HS2IRCP   380
RPLJ2     SB2       B2+LE.FNT      GO TO NEXT FNT                        HUSTREC   169
          LT        B2,B3,RPLJ1    NOT END - LOOP                        HUSTREC   170
*                                                                        HS2IRCQ   128
*         IF INTERCOM, WE MUST SCAN SWAPPED-OUT FNTS ALSO                HS2IRCQ   129
*                                                                        HS2IRCQ   130
          SA1      INSPW           TEST INTERCOM SAVE FLAG               HS2IRCQ   131
          ZR       X1,RCPE         JUMP TO EXIT IF NOT INTERCOM          HS2IRCQ   132
          SA1      ECSMB+W.SVC     ELSE GET O COUNT OF SWAPPED FNTS      HS2IRCQ   133
          L        X1,C.FNTC,4                                           HS2IRCQ   134
          MX0      60-12                                                 HS2IRCQ   135
          BX1      -X0*X1          GET FNT CUNT                          HS2IRCQ   136
          ZR       X1,RCPE         EXIT IF NOTNE                         HS2IRCQ   137
          SB3      X1              ELSE B3=COUNT                         HS2IRCQ   138
          SB2      ECSMB+W.SVFNT   B2=START OF FNTS                      HS2IRCQ   139
*                                                                        HS2IRCQ   140
*         LOOP THROUGH SWAPPED-OUT FNTS FOR INTERCOM                     HS2IRCQ   141
*                                                                        HS2IRCQ   142
RPIFNT    BSS      0                                                     HS2IRCQ   143
          SA1      B2              LOAD IT                               HS2IRCQ   144
          ZR       X1,RPIFNT1      BYPASS IF EMPTY                       HS2IRCQ   145
          MX0      60-12                                                 HS2IRCQ   146
          BX2      -X0*X1          GET APF POINTER                       HS2IRCQ   147
          NZ       X2,RPIFNT1      JUMP IF A PF                          HS2IRCQ   148
          SA2      B2+1            FST WORD 1                            HS2IRCQ   149
          NG       X2,RPIFNT1      JUMP IF ALLOCATABLE                   HS2IRCQ   150
          SA2      INSPW           ELSE SET UP PASSWORD ETC              HS2IRCQ   151
          BX6      X2                                                    HS2IRCQ   152
          SA6      B2+2            RESET WORD 3                          HS2IRCQ   153
          SX6      B2              X6=FNT ADDR                           HS2IRCQ   154
          CALL     RETFNT          RETAIN IT                             HS2IRCQ   155
*                                                                        HS2IRCQ   156
RPIFNT1   SB2      B2+LE.FNT       STEP UP FNTS                          HS2IRCQ   157
          SB3      B3-B1                                                 HS2IRCQ   158
          NZ       B3,RPIFNT       LOOP FOR ALL OF EM                    HS2IRCQ   159
*                                                                        HS2IRCQ   160
          JP       RCPE                                                  HS2IRCQ   161
          SPACE     2                                                    HUSTREC   172
          EJECT                                                          HS2IRCP   381
**        VALIDATE SCAN FOR JOBS                                         HS2IRCP   382
*                                                                        HS2IRCP   383
*         ENSURES A JOB REALLY CAN BE SAVED                              HS2IRCP   384
*                                                                        HS2IRCP   385
*         BATCH JOB- CHECK FOR ANY TAPES ASSIGNED SINCE THESE MAY HAVE   HUSTREC   173
*         BEEN DISMOUNTED IN THE RECOVERY PROCESS                        HUSTREC   174
*         IF A TAPE IS ASSIGNED, ASK OPERATOR TO GO OR DROP THE JOB      HUSTREC   175
*         IF A JOB HAS A PF ATTACHED, WE ENSURE THAT THIS PF             HS2IRCP   386
*         HAS A VALID APF ENTRY, AND NO HAIRY INTERLOCK BITS             HS2IRCP   387
*         ARE SET                                                        HS2IRCP   388
*         IF A JOB IS DROPPED WE DELETE HIS POOL TABLE ENTRY AND ALL HIS HUSTREC   179
*         FILES UP AT RCPDROP                                            HUSTREC   180
*                                                                        HUSTREC   181
RCPB      SA5       B4+B1          RELOAD WORD 2                         HUSTREC   182
          LX5       59-S.FRST-48   FIRST TIME FLAG                       HUSTREC   183
          NG        X5,RCPFRST     RECOVER FIRST TIME STUFF              HUSTREC   184
*             NOW SCAN FNT FOR TAPES, PF, INPUT FILE                     HS2IRCP   389
*                                                                        HS2IRCP   390
          CALL      SETFNT         B2=FNT FWA, B3=FNT LWA                HS2IRCP   391
          SX6       B0                                                   HUSTREC   194
          SA6       TAPRR                                                HUSTREC   195
          SA6       RERUNF                                               HS2IRCQ   162
RPMT1     SA4       B2             LOAD ENTRY                            HUSTREC   196
          SX3       B2-ECSMB       SKIP TEST IF ECS FNT                  HS2IRCP   392
          PL        X3,RPFPS                                             HS2IRCP   393
          NZ        X4,RPMTC1      NOT EMPTY                             HS2IRCP   394
          SX6       B2             ELSE SAVE ADDRESS                     HS2IRCP   395
          SA6       FNTEMPTY       FOR USE BY RERUN                      HS2IRCP   396
          JP        RPMT2                                                HS2IRCP   397
RPMTC1    BSS       0                                                    HS2IRCP   398
          MX0       60-6                                                 HUSTREC   198
          L         X4,C.FCPNUM,4  GET CP NUMBER AND TYPE                HUSTREC   199
          BX4       -X0*X4         INTO X4                               HUSTREC   200
          SX0       X4-60B         TEST FOR COMMON-LOCKED-CP0            HUSTREC   201
          ZR        X0,RPMTC       YES                                   HUSTREC   202
          SX4       X4-70B         TESET FOR LOCKED CP 0                 HUSTREC   203
          NZ        X4,RPMT2       NO                                    HUSTREC   204
RPMTC     SA5       B2+2           LOAD FNT WORD 3                       HUSTREC   205
          SX4       1000B          SWAPPED-OUT DISPOSTION CODE           BBBRCP2    72
          LX4       24             POSITION TO DISPOSITION FIELD         BBBRCP2    73
          BX4       X4*X5                                                BBBRCP2    74
          ZR        X4,RPMT2       JUMP IF NOT SWAPPED OUT               HS2IRCP   399
          MX0       12-S.HORE                                            HS2IRCP   400
          BX5       X0*X5          GET THE PRDINAL                       HS2IRCP   401
          SA4       B4+W.HORE      GET POCKET ORDINAL                    HS2IRCP   402
          BX4       X0*X4          .                                     HS2IRCP   403
          IX5       X5-X4          TEST FOR MATCH                        BBBRCP2    82
          NZ        X5,RPMT2       NO MATCH                              HUSTREC   211
RPFPS     BSS       0                                                    HS2IRCP   404
          SA4       B2             RELOAD FNT                            HUSTREC   212
          MX0       60-12                                                HUSTREC   213
          BX4       -X0*X4         X4=APF POINTER                        HUSTREC   214
          ZR        X4,RPNPF       NOT A PF                              HUSTREC   215
*                                                                        HS2IRCP   405
*             PERMANENT FILE - CHECK THE APF ENTRY TO ENSURE THAT WE     HS2IRCP   406
*             CAN SAVE THIS PF                                           HS2IRCP   407
*                                                                        HS2IRCP   408
          SA3       P.PFM1         GET APF BASE ADDRESS                  HS2IRCP   409
          L         X3,C.APF,4     .                                     HS2IRCP   410
          MX0       60-12          .                                     HS2IRCP   411
          BX3       -X0*X3         .                                     HS2IRCP   412
          IX4       X3+X4          PLUS  TABLE OFFSET                    HS2IRCP   413
          SA4       X4-1+TABLESAV  LOAD APF ENTRY                        HS2IRCP   414
          MX0       60-6                                                 HS2IRCP   415
          BX3       -X0*X4                                               HS2IRCP   416
          ZR        X3,RPSRF       SET RERUN FLAG                        HS2IRCQ   163
          SX0       3200B          TEST FLAGS: WAIT,APF,DUMP             HS2IRCP   418
          BX3       X0*X4                                                HS2IRCP   419
          NZ        X3,RPSRF       SET RERUN FLAG IS ANY BITS SET        HS2IRCQ   164
          JP        RPMT2          LOOP                                  HS2IRCP   421
*                                                                        HS2IRCP   422
*             NOW TEST FOR A TAPE                                        HS2IRCP   423
*                                                                        HS2IRCP   424
RPNPF     BSS       0                                                    HUSTREC   219
          SA4       B2             TEST FOR-INPUT- FILE                  HS2IRCP   425
          SA5       INPUT          .                                     HS2IRCP   426
          BX4       X5-X4          .                                     HS2IRCP   427
          MX0       7*6            .                                     HS2IRCP   428
          BX4       X0*X4          .                                     HS2IRCP   429
          NZ        X4,RPNIN       JUMP IF NOT INPUT                     HS2IRCP   430
          SX6       B2             ELSE SAVE ADDRESS                     HS2IRCP   431
          SA6       FNTINPUT       .                                     HS2IRCP   432
RPNIN     BSS       0                                                    HS2IRCP   433
          SA4       RERUNF         IF RERUN FLAG SET- ONLY SCAN FOR INPT HS2IRCQ   165
          NZ        X4,RPMT2                                             HS2IRCQ   166
          SA4       B2+B1          WORDC 2                               HUSTREC   220
          LX4       6              TEST FOR TAPE                         HUSTREC   221
          MX0       60-6                                                 HUSTREC   222
          BX4       -X0*X4         GET DEVICE TYPE                       HUSTREC   223
          SX4       X4-40B         TEST FOR TAPE                         HUSTREC   224
          ZR        X4,RPMTF       YES                                   HUSTREC   225
*              STEP UP FNTS                                              HS2IRCP   434
RPMT2     SB2       B2+LE.FNT      STEP TO NEXT FNT                      HUSTREC   226
          LT        B2,B3,RPMT1    LOOP TILL END                         HUSTREC   227
          SB3       ECSMB          TEST IF WE HAVE SCANNED THE SWAPPED-  HS2IRCP   435
          GT        B2,B3,RPAST    OUT FNTS. GO TO RPAST IF WE HAVE.     HS2IRCP   436
          SB2       ECSMB+W.SVFNT  ELSE SET B2 TO START OF SWAPPED FNTS  HS2IRCP   437
          SA1       ECSMB+W.SVC    GET COUNT OF SWAPPED FNTS             HS2IRCP   438
          L         X1,C.FNTC,4    .                                     HS2IRCP   439
          MX0       60-12          .                                     HS2IRCP   440
          BX1       -X0*X1         .                                     HS2IRCP   441
          ZR        X1,RPAST       JUMP IF NO SWAPPED OUT FNTS           HS2IRCP   442
          SX2       X1             *2                                    HS2IRCP   443
          LX1       1              .                                     HS2IRCP   444
         DUP      LE.FNT-2,1                                             HS2IRCP   445
          IX1       X1+X2          NOW X1= TOTAL LENGTH OF FNTS          HS2IRCP   446
          SB3       X1+B2          B3 = LWA OF SWAPPED FNTS              HS2IRCP   447
          JP        RPMT1          RESCAN THESE GUYS                     HS2IRCP   448
*                                                                        HS2IRCP   449
*         ALL DONE WITH FILE CHECK FOR THIS JOB, WHICH IS TO CONTINUE    HUSTREC   228
*         SO WE CHEK TAPRR WORD AND RESET THE EST FOR ALL TAPES          HUSTREC   229
*         WHICH ARE ASSIGNED TO THIS JOB (TAPES ASSIGNED TO CP 20B)      HUSTREC   230
*                                                                        HS2IRCP   450
RPAST     BSS       0                                                    HS2IRCP   451
          SA1       RERUNF         E RERUN JHOB IF FLAG ST               HS2IRCQ   167
          NZ        X1,RCPREJ                                            HS2IRCQ   168
          SA3       P.EST          EST POINTER                           HUSTREC   231
          MX0       60-12                                                HUSTREC   232
          LX3       12                                                   HUSTREC   233
          BX2       -X0*X3         EST BASE INTO X2                      HUSTREC   234
          SB2       9                                                    HUSTREC   235
          SA3       TAPRR          TAPE RESERVATION WORD                 HUSTREC   236
          MX0       60-6                                                 HUSTREC   237
RPT1      LX3       6              GET NEXT TAPE UNIT                    HUSTREC   238
          BX4       -X0*X3         INTO X4                               HUSTREC   239
          ZR        X4,RPT2        LOOP IF ZERO                          HUSTREC   240
          IX4       X2+X4          ELSE ADD BASE OF EST                  HUSTREC   241
          SA4       X4             AND LOAD IT                           HUSTREC   242
          SX6       20B            CP 20B                                HUSTREC   243
          LX6       48             SHIFT TO CP FIELD                     HUSTREC   244
          BX6       X4+X6          INSERT IT                             HUSTREC   245
          SA6       A4             RESTORE IT                            HUSTREC   246
RPT2      SB2       B2-B1          DECREMENT COUNT                       HUSTREC   247
          PL        B2,RPT1        LOOP FOR ALL 10                       HUSTREC   248
          JP        RCPR           THEN GO RECOVER JOB                   HUSTREC   249
*                                                                        HUSTREC   250
*             POST MESSAGE TO OPERATOR                                   HUSTREC   251
*         JOB HAS TAPE ASSIGNED. ASK OPERATOR IF WE SHOULD DROP JOB      HUSTREC   252
*         OR CONTINUE IT                                                 HUSTREC   253
                                                                         HUSTREC   254
RPMTF     SA4       B2+1           GET FNT ENTRY                         HUSTREC   255
          L         X4,C.FPDEV,4   GET EST ORDINAL                       HUSTREC   256
          MX0       60-12                                                HUSTREC   257
          BX4       -X0*X4         INTO X4                               HUSTREC   258
          ZR        X4,RPMT2       NKT ASSIGNED YET                      HUSTREC   259
          SA3       TAPRR          TAPE RESERVATION WORD                 HUSTREC   260
          LX3       6                                                    HUSTREC   261
          BX6       X3+X4          INSERT EST ODRDINAL                   HUSTREC   262
          SA6       A3                                                   HUSTREC   263
          MX0       60-3                                                 HUSTREC   264
          BX5       -X0*X4         BOTTOM DIGIT                          HUSTREC   265
          SX5       X5+1R0         CONVERT TO DISPLAY                    HUSTREC   266
          AX4       3                                                    HUSTREC   267
          LX4       6              TOP DIGIT                             HUSTREC   268
          SX4       X4+3300B       CONVERT TO DISPLAY                    HUSTREC   269
          MX0       60-12                                                HUSTREC   270
          SA3       NORT+2         DISPLAY WORD                          HUSTREC   271
          BX6       X0*X3          MASK OLD EST                          HUSTREC   272
          BX6       X5+X6                                                HUSTREC   273
          BX6       X4+X6          INSERT NEW OND                        HUSTREC   274
          SA6       A3                                                   HUSTREC   275
          SA4       B4+W.HJNAM     JOB NAME                              HS2IRCP   452
          MX0       42                                                   HUSTREC   280
          SX5       3R                                                   HUSTREC   281
          BX6       X0*X4          NAME                                  HUSTREC   282
          BX5       -X0*X5         P SPACES                              HUSTREC   283
          BX6       X5+X6                                                HUSTREC   284
          SA6       NORT+1         INSERT JOB NAME                       HUSTREC   285
RPM       OPCOM     A,(RECOL1,NORTT)                                     HUSTREC   286
          RJ        WAITYN         WAIT FOR YES OR NO                    HS2IRCP   453
          ZR        X6,RPMT2       YES - LOOP                            HS2IRCQ   169
RPSRF     SX6       B1             ELSE SET THE RERUN FLAG NON-ZERO      HS2IRCQ   170
          SA6       RERUNF         AND CONTINUE SCAN TO FIND -INPUT- FNT HS2IRCQ   171
          JP        RPMT2          ELSE LOOP                             HUSTREC   289
          SPACE     2                                                    HUSTREC   290
          EJECT                                                          HS2IRCP   455
**        JOBS WHICH HAVE NOT BEGUN                                      HS2IRCP   456
*                                                                        HS2IRCP   457
*                                                                        HS2IRCP   458
*         RECOVERY FOR JOBS WHICH HAVE NOT STARTED UP YET                HUSTREC   291
*         RETURN FNT TO THE INPJT QUEUE                                  HUSTREC   292
*                                                                        HUSTREC   293
RCPFRST   BSS       0                                                    HS2IRCP   459
          CALL      SAVB                                                 GHKCPL2   121
          SA5       B4+W.HRBT      GET FNT ADDRESS                       HS2IRCP   460
          L         X5,C.HRBT,4    .                                     HS2IRCP   461
          MX0       60-12          .                                     HS2IRCP   462
          BX4       -X0*X5         INTO X4                               HUSTREC   297
          SB6       X4             SAVE FOR PUT                          GHKCPL2   122
          SA4       X4             LOAD IT                               HUSTREC   298
          SA5       A4+2           AND WORD 2                            HUSTREC   299
          MX0       60-6                                                 HUSTREC   300
          LX0       12                                                   HUSTREC   301
          BX6       X0*X4          MSASK OUT TYPE SO IT BECOMES INPUT    HUSTREC   302
          BX5       -X0*X5         GET PRIORITY                          HUSTREC   303
          AX5       3              POSITION PRIORITY TO PROPER PLACE     HUSTREC   304
          SX5       X5+770B        HIGH INITIAL WEIGHT                   BBBRCP2    83
          BX6       X5+X6          INSERT PRI                            HUSTREC   305
          SA6       A4             RESTORE INPUT FILE WITH PRIORITY      HUSTREC   306
          RJ        RRN                                                  GHKCPL2   123
          JP        RCPE           DELETE POCKET                         HUSTREC   307
          SPACE     2                                                    HUSTREC   308
          EJECT                                                          HS2IRCP   463
**        RECOVER POOL POCKET AND ASSOCIATED FILES                       HS2IRCP   464
*                                                                        HS2IRCP   465
*         RESTORE POOL TABLE ENTRY                                       HUSTREC   309
*         WAIT TABLE ENTRY FOR THIES JOB(IF ANY) MUST ALSO BE RESTORED.  HUSTREC   310
RCPR      BSS       0                                                    HS2IRCP   466
*                                                                        HS2IRCP   467
*         RECOVER  SWAP FILE                                             HS2IRCP   468
*                                                                        HS2IRCP   469
          MX0       60-12                                                HS2IRCP   470
          SA5       B4+W.HECSF                                           HS2IRCP   471
          LX5       11-S.HECSF+C.HECSF*12  GET ECS FLAG                  HS2IRCP   472
          NG        X5,RCPREC      JUMP IF SWAP FILE IN ECS              HS2IRCP   473
          SA4       B4+W.HRBT      ELSE GET RBT POINTER                  HS2IRCP   474
          L         X4,C.HRBT,4    .                                     HS2IRCP   475
          BX6       -X0*X4         .    INTO X6                          HS2IRCP   476
          CALL      SAVRBT         AND SAVE THE RBT CHAIN                HS2IRCP   477
*                                                                        HS2IRCP   478
*         SCAN SWAPPED OUT FNTS AND SAVE RBT CHAIN AND APF TABLE         HS2IRCP   479
*                                                                        HS2IRCP   480
RCPREC    SB2       ECSMB+W.SVFNT-LE.FNT  STRT OF SWZPPED OUT FNTS       HS2IRCP   481
          SA2       ECSMB+W.SVC    GET COUNT OF SWAPPED-OUT FNTS         HS2IRCP   482
          L         X2,C.FNTC,4    .                                     HS2IRCP   483
          MX0       60-12                                                HS2IRCP   484
          BX2       -X0*X2         .                                     HS2IRCP   485
          SB3       X2             . INTO B3                             HS2IRCP   486
*                                                                        HS2IRCP   487
*              LOOP THROUGH SWAPPED OUT FNT                              HS2IRCP   488
*                                                                        HS2IRCP   489
RCPRF     SA2       B2             LOAD THE FNT                          HS2IRCP   490
          MX0       60-12                                                HS2IRCP   491
          L         X2,C.FAPF,4    GET THE APF POINTER                   HS2IRCP   492
          BX3       -X0*X2         .                                     HS2IRCP   493
          ZR        X3,RCPNPF      JUMP IF NOT A PF                      HS2IRCP   494
          CALL      RCPPF          ELSE RESTORE THE PF                   HS2IRCP   495
          JP        RCPFNT2                                              HS2IRCP   496
*             NOT A PF - SAVE THE FNT CHAIN                              HS2IRCP   497
RCPNPF    SA2       B2+1           LOAD FST1                             HS2IRCP   498
          NG        X2,RCPFNT2     JUMP IF NOT DISK                      HS2IRCP   499
          L         X2,C.FFRBA,4   GET RBT POINTER                       HS2IRCP   500
          BX6       -X0*X2         .                                     HS2IRCP   501
          CALL      SAVRBT         SAVE THE RBT CHAIN                    HS2IRCP   502
RCPFNT2   SB2       B2+LE.FNT      STEP UP TO NEXT FNT                   HS2IRCP   503
          SB3       B3-B1          COUNT IT                              HS2IRCP   504
          PL        B3,RCPRF       JUMP IF NOT AT END                    HS2IRCP   505
*             SCAN REAL FNT FOR PERM FILES FOR THIS JOB                  HS2IRCP   506
          CALL      SETFNT         SET UP B2=FNT FWA, B3= FNT LWA        HS2IRCP   507
RCPFNT3   SA1       B4+W.HORE      LOAD JOB POOL ORDINAL                 HS2IRCP   508
          SA2       B2             LOAD FNT                              HS2IRCP   509
          ZR        X2,RCPFNT4     JUMP IF EMPTY                         HS2IRCP   510
          MX0       60-12                                                HS2IRCP   511
          L         X2,C.FAPF,4    GET APF ENTRY                         HS2IRCP   512
          BX3       -X0*X2         .                                     HS2IRCP   513
          ZR        X3,RCPFNT4     JUMP IF NOT A PF                      HS2IRCP   514
          L         X2,C.FCPNUM,C.FAPF  POSITION CONTROL POINT           HS2IRCP   515
          MX0       60-6           .                                     HS2IRCP   516
          BX3       -X0*X2         .                                     HS2IRCP   517
          SX3       X3-70B         TEST FOR LOCAL,LOCKED, CPD            HS2IRCP   518
          NZ        X3,RCPFNT4     JUMP IF NOT                           HS2IRCP   519
          SA2       B2+2           LOAD FST2                             HS2IRCP   520
          MX0       12-S.HORE                                            HS2IRCP   521
          BX1       X1*X0          X1= POOL ORDINAL                      HS2IRCP   522
          BX2       X2*X0          X2=FNT ORDINAL                        HS2IRCP   523
          BX1       X1-X2          TEST FOR MATCH                        HS2IRCP   524
          NZ        X1,RCPFNT4     BYPASS IF NO MATCH                    HS2IRCP   525
          CALL      RCPPF          RETAIN THE APF                        HS2IRCP   526
RCPFNT4   SB2       B2+LE.FNT      STEP UP TO NEXT FNT                   HS2IRCP   527
          NE        B2,B3,RCPFNT3  AND LOOP                              HS2IRCP   528
*                                                                        HS2IRCP   529
*         CHECK FOR TAPE ASSIGNED BUT STILL AT LOAD POINT                HUSTREC   328
*                                                                        HS2IRCP   530
          SA4       B4             LOAD POCKET                           HUSTREC   329
          SX0       4777B          MASK                                  HUSTREC   330
          L         X4,C.WAST,4    GET WAIT STATE                        HUSTREC   331
          BX5       X0*X4          INTO X5                               HUSTREC   332
          SX5       X5-WT.REQ      TETS FOR TAPE ASSIGNED                HUSTREC   333
          NZ        X5,RCPP1       NO                                    HUSTREC   334
          LX4       12             POSITION C.WATP                       HUSTREC   335
          MX0       60-12                                                HUSTREC   336
          BX5       -X0*X4         X5 CONTAINS ASSIGNMENT                HUSTREC   337
          SA4      P.EST                                                 HS2IRCQ   172
          LX4      12                                                    HS2IRCQ   173
          BX4      -X0*X4          BASE OF EST                           HS2IRCQ   174
          IX4      X4+X5           EST ENTRY                             HS2IRCQ   175
          SA4      X4              LOAD IT                               HS2IRCQ   176
          MI       X4,RCPP1        JUMP IF DISK FILE                     HS2IRCQ   177
          MX0       60-3                                                 HUSTREC   342
          BX6       -X0*X5         SET UP MESSAGE WITH EST               HUSTREC   343
          LX0       3                                                    HUSTREC   344
          BX4       -X0*X5                                               HUSTREC   345
          LX4       3                                                    HUSTREC   346
          BX6       X4+X6          COMBINE THEM                          HUSTREC   347
          SX6       X6+2R00        CONVERT TO OCTAL                      HUSTREC   348
          LX6       48             POSITION FOR MESSAGE                  HUSTREC   349
          SA6       MESRM+2                                              HUSTREC   350
          SA4       P.EST          GET EST BASE ADDRESS                  HUSTREC   351
          LX4       12                                                   HUSTREC   352
          MX0       60-12                                                HUSTREC   353
          BX4       -X0*X4         EST BASE                              HUSTREC   354
          IX4       X4+X5                                                HUSTREC   355
          SA4       X4             LOAD THIS EST                         HUSTREC   356
          SX6       L.CPNUM+1      ASSIGN TO CP 10                       HUSTREC   357
          LX6       48                                                   HUSTREC   358
          BX6       X4+X6                                                HUSTREC   359
          SA6       A4             RESTORE THE EST                       HUSTREC   360
          OPCOM     A,(RECOL1,MESREM)                                    HUSTREC   361
          RJ        WAITGO         WAIT FOR SOME REPLY                   HUSTREC   362
*                                                                        HS2IRCP   531
*             MOVE POOL TABLE DOWN                                       HS2IRCP   532
RCPP1     BSS 0                                                          HS2IRCP   533
*                                                                        HUSTREC   390
          SA5       B4                                                   HUSTREC   391
          BX6       X5                                                   HUSTREC   392
          SA6       B4-TABLESAV                                          HUSTREC   393
         DUP       L.PTP-1         SAVE ENTIRE POOL POCKET               HS2IRCP   534
          SA5       A5+B1                                                HUSTREC   394
          BX6       X5                                                   HUSTREC   395
          SA6       A6+B1                                                HUSTREC   396
         ENDD                                                            HS2IRCP   535
          SA4       B4             RELAOD POCKET 1                       HUSTREC   397
          MX0       60-12                                                HUSTREC   398
          L         X4,C.WAST,4    GET THE WAIT STATE                    HS2IRCP   536
          SX2       4777B          .                                     HS2IRCP   537
          BX3       X2*X4          .                                     HS2IRCP   538
          SX2       X3-WT.REQ      TEST FOR  WT.REQ (WATP = TAPE EST)    HS2IRCP   539
          ZR        X2,RCPE        YES-JUMP                              HS2IRCP   540
          L         X4,C.WATP,C.WAST ELSE GET WAIT TABLE POINTER         HS2IRCP   541
          BX5       -X0*X4         .                                     HS2IRCP   542
          ZR        X5,RCPE        .                                     HS2IRCP   543
*                                                                        HS2IRCP   544
*            SAVE  WAIT TABLE ENTRY                                      HS2IRCP   545
*                                                                        HS2IRCP   546
          SA4       X5+TABLESAV    LOAD IT                               HUSTREC   403
          BX6       X4             SAVE IT                               HUSTREC   404
          SA6       X5                                                   HUSTREC   405
          SA4       A4+B1                                                HUSTREC   406
          BX6       X4                                                   HUSTREC   407
          SA6       A6+B1                                                HUSTREC   408
          SPACE     2                                                    HUSTREC   409
RCPE      SB4       B4+L.PTP       GO TO NEXT POCKET                     HUSTREC   410
          LT        B4,B5,RCPL     LOOP TILL END                         HUSTREC   411
          JP        RCPOOL         THEN EXIT                             HUSTREC   412
          EJECT                                                          HS2IRCP   547
**        RERUN A POOL JOB                                               HS2IRCP   548
*                                                                        HS2IRCP   549
*         IF THE -NO RERUN- BIT IS NOT SET,  THE JOB IS RERUN BY         HS2IRCP   550
*         RECONSTRUCTING THE INPUT FILE.  THEN THE JOBS REMAINING        HS2IRCP   551
*         FILES ARE DROPPED                                              HS2IRCP   552
*                                                                        HS2IRCP   553
C.JBMTI EQU 0                                                            HS2IRCP   554
C.JBRTI EQU 0                                                            HS2IRCP   555
RCPREJ    BSS       0                                                    HS2IRCP   556
          SA4       B4+W.HBIT      GET THE RERUN BIT                     HS2IRCP   557
          LX4       11-S.HRERUN+12*C.HBIT                                HS2IRCP   558
          NG        X4,RCPJOBL2    JUMP IF -NO RERUN- IS SET             HS2IRCP   559
*              RECONSTRUCT INPUT FILE                                    HS2IRCP   560
          SA1       FNTINPUT       GET ADDRESS OF INPUT FNT              HS2IRCP   561
          ZR        X1,RCPJOBL     JUMP IF NONE                          HS2IRCP   562
          SB2       X1             B2 = INPUT FNT                        HS2IRCP   563
          SB3       X1             B3 = ADDRESS OF RECONSTRUCTED FNT     HS2IRCP   564
          SX1       X1-ECSMB       TEST FOR INPUT FNT SWAPPED OUT        HS2IRCP   565
          NG        X1,RCPRJ3      NO, SO WE CAN REWRITE IT              HS2IRCP   566
          SA1       FNTEMPTY       ELSE WE CONSTRUCT FNT IN 1ST EMPTY    HS2IRCP   567
          SB3       X1             SLOT                                  HS2IRCP   568
          ZR        B3,RCPJOBL     (JOB LOST IF NO EMPTY FNTS)           HS2IRCP   569
*             FNT1 - JOB NAME, SOURCE, AND PRIORITY                      HS2IRCP   570
RCPRJ3    MX0       7*6                                                  HS2IRCP   571
          SA2       B4+W.HJNAM     GET THE JOB NAME                      HS2IRCP   572
          BX6       X0*X2          .                                     HS2IRCP   573
          SA3       ECSCP+W.CPPRI  GET THE JOB PRIORITY                  HS2IRCP   574
          MX0       60-12          .                                     HS2IRCP   575
          L         X3,C.CPPRI,4   .                                     HS2IRCP   576
          BX3       -X0*X3         .  INTO X3                            HS2IRCP   577
          SX2       000777B        TYPE INPUT,CP0,PRI X777B              HS2IRCP   578
          BX6       X6+X2          INSERT TYPE                           HS2IRCP   579
          BX6       X6+X3          INSERT PRI                            HS2IRCP   580
          ASSUME    C.FPRI,EQ,4                                          HS2IRCP   581
          SA3       ECSCP+W.CPJCP                                        HS2IRCP   582
          L         X3,C.JBRTI,4   NOW GET JOB SOURCE                    HS2IRCP   583
          MX0       60-6           .                                     HS2IRCP   584
          LX0       6              .                                     HS2IRCP   585
          BX2       -X0*X3         . INTO X2                             HS2IRCP   586
          LX2       7*6            POSITION  AS  2ND CHAR  OF JOB NAME   HS2IRCP   587
          LX0       7*6            .                                     HS2IRCP   588
          ZR        X2,RCPRJ4      BYPASS IF NO WORCE                    HS2IRCP   589
          BX6       X0*X6          ELSE INSERT INTO JOB NAME             HS2IRCP   590
          BX6       X2+X6          .                                     HS2IRCP   591
RCPRJ4    SA6       B3             STORE FNT1                            HS2IRCP   592
*               FST1 -  CM FL , RBT, DEVICE                              HS2IRCP   593
          SA2       B2+1           LOAD FST1                             HS2IRCP   594
          L         X3,C.CPFLI,C.JBRTI  GET FL                           HS2IRCP   595
          MX0       60-12          .                                     HS2IRCP   596
          BX6       -X0*X3         . INTO X6                             HS2IRCP   597
          MX0       24             NOW MERGE WITH RBT, DEV OF FST1       HS2IRCP   598
          BX2       X0*X2          .                                     HS2IRCP   599
          BX6       X2+X6          .                                     HS2IRCP   600
          SX2       77B            MASK OUT                              BBBIRRB     3
          L         X2,4,C.FRRN                                          BBBIRRB     4
          BX6       -X2*X6                                               BBBIRRB     5
          SX2       40B            JOB RERUN FLAG                        BBBIRRB     6
          L         X2,4,C.FRRN    POSITION FLAG                         BBBIRRB     7
          BX6       X2+X6          INSERT INTO FST1                      BBBIRRB     8
          SA6       B3+1           AND STORE IT                          HS2IRCP   601
*              FST2  -  TIME LIMIT,  MT COUNT                            HS2IRCP   602
          L         X3,C.CPTLI+1,C.CPFLI GET THE TL                      BBBIRRB     9
          MX0       60-18          .                                     HS2IRCP   604
          BX6       -X0*X3         . INTO X6                             HS2IRCP   605
          LX6       3*12           POSITION IN  FST2                     HS2IRCP   606
          L         X3,C.JBMTI,C.CPTLI+1  GET MT COUNT                   BBBIRRB    10
          MX0       60-6           .                                     HS2IRCP   608
          BX3       -X0*X3         .                                     HS2IRCP   609
          LX3       48-C.FMT*12+6  POSITION TO  PROPER FIELD             HS2IRCP   610
          BX6       X3+X6          AND STORE AS FST2                     HS2IRCP   611
          SX3       51B            REWIND THE FILE                       HS2IRCP   612
          BX6       X6+X3                                                HS2IRCP   613
          SA6       B3+2           .                                     HS2IRCP   614
*                                                                        HS2IRCP   615
          CALL      SAVB                                                 GHKCPL2   124
          SB6       B3                                                   GHKCPL2   125
          CALL      RRN            PUT HIM IN INPUT QUEUE                GHKCPL2   126
          JP        RCPDROP        GO DROP JOB FILES                     HS2IRCP   616
RRN       PS                                                             GHKCPL2   127
          SX6       B1             I/O CHAIN                             GHKCPL2   128
          SA1       B6             JOB NAME                              GHKCPL2   129
          MX0       54                                                   GHKCPL2   130
          LX1       6                                                    GHKCPL2   131
          BX7       -X0*X1         2ND CHAR (ROUTE)                      GHKCPL2   132
          SX4       X7-1RI         SEE IF A RUSH JOB                     GHKCPL2   133
          LX7       6                                                    GHKCPL2   134
          NZ        X4,NORUSH                                            GHKCPL2   135
          SX7       X7+20B         SET -RUSH- BIT IN ID                  GHKCPL2   136
NORUSH    CALL      PUT                                                  GHKCPL2   137
          CALL      RESB                                                 GHKCPL2   138
          SA1       PPOR                                                 GHKCPL2   139
          MX0       48                                                   GHKCPL2   140
          SA1       X1+B1                                                GHKCPL2   141
          L         X1,C.FFRBA,4                                         GHKCPL2   142
          BX6       -X0*X1                                               GHKCPL2   143
          CALL      SAVRBT                                               GHKCPL2   144
          SA1       PPOR                                                 GHKCPL2   145
          BX7       X7-X7                                                GHKCPL2   146
          BX6       X6-X6                                                GHKCPL2   147
          SA7       X1             CLEAR                                 GHKCPL2   148
          SA6       X1+B1           OUT                                  GHKCPL2   149
          SA7       A6+B1            FNT                                 GHKCPL2   150
          EQ        RRN                                                  GHKCPL2   151
          SPACE  4                                                       HS2IRCP   617
**        JOB LOST BECAUSE  NO-RERUN BIT WAS SET                         HS2IRCP   618
*                                                                        HS2IRCP   619
*         POST MESSAGE, THEN DROP IT                                     HS2IRCP   620
*                                                                        HS2IRCP   621
RCPJOBL2  BSS       0                                                    HS2IRCP   622
          SA4       B4+W.HJNAM     GET JOB NAME                          HS2IRCP   623
          SX5       3R             INTO MESSAGE                          HS2IRCP   624
          MX0       7*6            .                                     HS2IRCP   625
          BX4       X0*X4          .                                     HS2IRCP   626
          BX5       -X0*X5         .                                     HS2IRCP   627
          BX6       X4+X5          .                                     HS2IRCP   628
          SA6       JLM2+1         .                                     HS2IRCP   629
          OPCOM     A,(RECOL1,NORERN)                                    HS2IRCP   630
          JP        RCPDROP        GO DROP JOB                           HS2IRCP   631
          SPACE     4                                                    HS2IRCP   632
**        RCPPF   - RECOVER PERM FILE                                    HS2IRCP   633
*                                                                        HS2IRCP   634
*         SAVE APF ENTRY OR INCREMENT CONTROL POINT COUNT                HS2IRCP   635
*         SAVE RBT CHAIN IF NOT ALREADY SAVED FOR THIS JOB               HS2IRCP   636
*                                                                        HS2IRCP   637
RCPPF     PS                                                             HS2IRCP   638
          MX0       60-12                                                HS2IRCP   639
          SA2       B2             LOAD FNT                              HS2IRCP   640
          BX3       -X0*X2         X3= APF                               HS2IRCP   641
*                                                                        HS2IRCP   642
*         SAVE APF - PRE-SCAN HAS ENSURED THAT ALL IS KOSHER             HS2IRCP   643
*         WITH THIS APF                                                  HS2IRCP   644
*                                                                        HS2IRCP   645
          SA1       P.PFM1         GET APF BASE ADDRESS                  HS2IRCP   646
          L         X1,C.APF,4     .                                     HS2IRCP   647
          BX1       -X0*X1         .                                     HS2IRCP   648
          SX1       X1-1           -1                                    HS2IRCP   649
          IX1       X1+X3          +OFFSET                               HS2IRCP   650
          SA1       X1             LOAD APF                              HS2IRCP   651
          ZR        X1,RCPPF1      JUMP IF NOT YET SAVED                 HS2IRCP   652
          SX2       B1             ELSE JUST INCREMENT                   HS2IRCP   653
          IX6       X1+X2          .CONTROL POINT COUNT                  HS2IRCP   654
          SA6       A1             .                                     HS2IRCP   655
          JP        RCPPF          .                                     HS2IRCP   656
*              SAVE OLD APF AND RBT                                      HS2IRCP   657
RCPPF1    SA2       TABLESAV+A1    LOAD OLD APF                          HS2IRCP   658
          MX0       60-6           CLEAR CONTROL POINT COUNT             HS2IRCP   659
          BX6       X0*X2          .                                     HS2IRCP   660
          SX2       B1             .                                     HS2IRCP   661
          BX6       X2+X6          SET COUNT TO 1                        HS2IRCP   662
          SA6       A1             .                                     HS2IRCP   663
          SA2       B2+1           GET FST1                              HS2IRCP   664
          L         X2,C.FFRBA,4   GET RBT                               HS2IRCP   665
          MX0       60-12          .                                     HS2IRCP   666
          BX6       -X0*X2         .                                     HS2IRCP   667
          CALL      SAVRBT         SAVE THE CHAIN                        HS2IRCP   668
          JP        RCPPF          EXIT                                  HS2IRCP   669
                                                                         HUSTREC   413
TAPRR     BSSZ      1                                                    HUSTREC   414
LOCR      BSSZ      1                                                    HUSTREC   415
SAVB2     BSSZ      1                                                    HS2IRCP   670
SAVB3     BSSZ      1                                                    HS2IRCP   671
SAVB4     BSSZ      1              SAVE B4                               HUSTREC   416
SAVB5     BSSZ      1              SABVE B5                              HUSTREC   417
DUMFNT    BSSZ      1              DUMMY FNT                             HUSTREC   418
DUMFST1   BSSZ      1                                                    HUSTREC   419
DUMFST2   BSSZ      1                                                    HUSTREC   420
          EJECT                                                          HS2IRCP   672
**        SETFNT                                                         HS2IRCP   673
*                                                                        HS2IRCP   674
*         SET FNT START INTO B2, FNT END INTO B3,+X0 X0  60-12 BIT MASK  HS2IRCP   675
*         (USES X1,A1, X0)                                               HS2IRCP   676
*                                                                        HS2IRCP   677
SETFNT    PS                                                             HS2IRCP   678
          SA1       P.FNT          FNT POINTER                           HS2IRCP   679
          MX0       60-12                                                HS2IRCP   680
          LX1       12             GET BYTE 0                            HS2IRCP   681
          BX0       -X0*X1                                               HS2IRCP   682
          SB2       X0             B2 = FNT FWA                          HS2IRCP   683
          MX0       60-12                                                HS2IRCP   684
          LX1       12             GET BYTE 1                            HS2IRCP   685
          BX1       -X0*X1                                               HS2IRCP   686
          SB3       X1             B3= FNT LWA                           HS2IRCP   687
          JP        SETFNT         EXIT                                  HS2IRCP   688
          SPACE     4                                                    HS2IRCP   689
**        SAVRBT                                                         HS2IRCP   690
*                                                                        HS2IRCP   691
*         SAVE THE RBT CHAIN OF A FILE                                   HS2IRCP   692
*         ENTRY:   X6 = RBT START                                        HS2IRCP   693
*         EXIT:    NONE                                                  HS2IRCP   694
*         SAVES   B2,B3,B4,B5,  DESTROYS ALL ELSE                        HS2IRCP   695
*                                                                        HS2IRCP   696
SAVRBT    PS                                                             HS2IRCP   697
          ZR        X6,SAVRBT      EXIT IF NO RBT                        HS2IRCP   698
          L         X6,4,C.FFRBA   POSITION  RBT  POINTER                HS2IRCP   699
          SA6       DUMFST1        SET UP DUMMY FST1                     HS2IRCP   700
          SX6       DUMFNT         FNDADR= ADDRESS OF DUMMY FNT          HS2IRCP   701
          SA6       FNTADR                                               HS2IRCP   702
          SA5       X6             ALSO A5= THIS ADDRESS                 HS2IRCP   703
          CALL      SAVB                                                 HS2IRCP   704
          SX6       B1             FLAG LOCK FILE RECOVERY               HS2IRCP   705
          SA6       LOCR                                                 HS2IRCP   706
          CALL      GETRBT         GET RBT CHAIN                         HS2IRCP   707
          SX6       B0             CLEAR FLAG                            HS2IRCP   708
          SA6       LOCR                                                 HS2IRCP   709
          CALL      FIXRBS         GET RBS                               HS2IRCP   710
          CALL       RESB           RESTORE B REG                        HS2IRCP   711
          JP        SAVRBT         EXIT                                  HS2IRCP   712
                                                                         HS2IRCP   713
**        SAVE - RESTORE B REGISTERS (B2-B5)                             HS2IRCP   714
*                                                                        HS2IRCP   715
SAVB      PS                                                             HS2IRCP   716
         ECHO       ,N=(2,3,4,5)   SAVE THE B REGISTERS                  HS2IRCP   717
          SX6       B.N                                                  HS2IRCP   718
          SA6       SAVB_N                                               HS2IRCP   719
         ENDD                                                            HS2IRCP   720
          JP        SAVB                                                 HS2IRCP   721
*                                                                        HS2IRCP   722
RESB      PS                                                             HS2IRCP   723
         ECHO      ,N=(2,3,4,5)    RESTORE B REGISTERS                   HS2IRCP   724
          SA1       SAVB_N                                               HS2IRCP   725
          SB.N      X1                                                   HS2IRCP   726
         ENDD                                                            HS2IRCP   727
          JP        RESB                                                 HS2IRCP   728
          SPACE 4                                                        BBBSWPR    78
*         DELETE ECS RESIDENT JOB FROM ECS ALLOC TABLE                   BBBSWPR    79
*                                                                        BBBSWPR    80
*         ENTRY: B4 POINTS TO POOL TABLE OF JOB                          BBBSWPR    81
*                                                                        BBBSWPR    82
N.PTO     EQU      60/L.PTO                                              BBBSWPR    83
RECSKJ    PS                                                             BBBSWPR    84
          SA1      B4+W.HECSF           GET ECS FLAG                     BBBSWPR    85
          LX1      11-S.HECSF+12*C.HECSF                                 BBBSWPR    86
          PL       X1,RECSKJ            EXIT IF NOT IN ECS               BBBSWPR    87
          SA1      P.ECST               GET TABLE ADDRESS                BBBSWPR    88
          MX0      60-12                                                 BBBSWPR    89
          L        X1,C.ECSWPA,4                                         BBBSWPR    90
          BX1      -X0*X1               X1=FWA                           BBBSWPR    91
          LX1      3                    *8                               BBBSWPR    92
          SA2      P.LECST                                               BBBSWPR    93
          L        X2,C.ECSWPL,4        GET LENGTH                       BBBSWPR    94
          BX2      -X0*X2                                                BBBSWPR    95
          SB3      X2-L.ECSWH           LENGTH                           BBBSWPR    96
          SB2      X1+L.ECSWH           FWA OF ALLOC                     BBBSWPR    97
          SA3      X1                                                    BBBSWPR    98
          BX6       X3                                                   BBBSWPR    99
*             LOOP THROUGH TABLE                                         BBBSWPR   100
RECSK3    SB7      N.PTO                ORDINALS PER LINE                BBBSWPR   101
          MX0      60-L.PTO             MASK                             BBBSWPR   102
          SA1      B4+W.HORE            GET ODRDINAL                     BBBSWPR   103
          L        X1,C.HORE,4          .                                BBBSWPR   104
          AX1      S.HORE                                                BBBSWPR   105
          MX2      60-12+S.HORE    GET ORDINAL                           BBBSWPR   106
          BX7      -X2*X1                                                BBBSWPR   107
          SA1      B2                                                    BBBSWPR   108
RECSK2    BX2      -X0*X1               ORDINAL                          BBBSWPR   109
          BX2      X7-X2                TEST FOR MATCH                   BBBSWPR   110
          NZ       X2,RECSK1            NOT EQUA6                        BBBSWPR   111
          BX1      X0*X1                MASK IT OUT                      BBBSWPR   112
          SX3      1               ADD 1 TO IT                           BBBSWPR   113
          IX6       X3+X6                                                BBBSWPR   114
RECSK1    LX0      L.PTO                SHIFT                            BBBSWPR   115
          LX7      L.PTO                                                 BBBSWPR   116
          SB7      B7-B1                EDECMRENT COUNT                  BBBSWPR   117
          NZ       B7,RECSK2            LOOP IN WORD                     BBBSWPR   118
          BX7      X1                   ELSE STORE WORD                  BBBSWPR   119
          SA7      A1                                                    BBBSWPR   120
          SB2      B2+B1                EGET NEXT WORD                   BBBSWPR   121
          SB3      B3-B1                COUNT IT                         BBBSWPR   122
          NZ       B3,RECSK3            GET NEXT WORD                    BBBSWPR   123
          SA6       A3                                                   BBBSWPR   124
          JP       RECSKJ               EXIT                             BBBSWPR   125
*                                                                        IRCP     3534
*         SUBROUTINE TO GET RBR ADDRESS                                  IRCP     3535
*                   EXIT -RBRBUF CONTAINS RBR ADDRESS                    IRCP     3536
*                                                                        IRCP     3537
SEEKRBR   PS                                                             IRCP     3538
          SA5    P.RBR             GET RBR BASE ADDRESS                  IRCP     3539
          AX5    36                                                      IRCP     3540
          SA3    FRBT              GET RBR ORDINAL                       IRCP     3541
          LX3    21                                                      IRCP     3542
          SX0    777B                                                    IRCP     3543
          BX3    X0*X3                                                   IRCP     3544
          BX2    X3                                                      IRCP     3545
          LX3    3                 *8                                    IRCP     3546
          IX3    X2+X3             *9                                    IRCP     3547
          LX3    1                 *18                                   IRCP     3548
          IX3    X3+X2             *19                                   IRCP     3549
          LX3    1                 *38                                   IRCP     3550
          IX3    X3+X5                                                   IRCP     3551
          SX6    X3                                                      IRCP     3552
          SA6    RBRADR                                                  IRCP     3553
          EQ   SEEKRBR                                                   IRCP     3554
          TITLE     RECOVERY -- RETFNT                                   HS2IRCP   757
**        RETFNT  RETAIN AN FNT IN ECS                                   HS2IRCP   758
*                                                                        HS2IRCP   759
*         ENTRY:  ADDRESS OF FNT IN X6                                   HS2IRCP   760
*         EXIT:  FNT RETAINED IN ECS.  FNT IMAGE STILL LEFT IN CM        HS2IRCP   761
*                                                                        HS2IRCP   764
RETFNT    PS                                                             HS2IRCP   765
          BX7       X6             SAVE X6 FOR THE CALL TO SAVB          GHKCPL2   152
          CALL      SAVB           SAVE B REGS (I DONT KNOW WHY BUT BB   GHKCPL2   153
          SB6       X7             *DID IT SO I WILL)                    GHKCPL2   154
          SA1       B6+3           GET WORD WITH RETAIN PERIOD           GHKCPL2   155
          SA2       B6             WORD WE ARE GOING TO PUT IT IN        GHKCPL2   156
          MX0       48                                                   GHKCPL2   157
          AX1       12                                                   GHKCPL2   158
          BX7       X0*X2          CLEAR FIELD IT WILL GO IN             GHKCPL2   159
          BX1       -X0*X1         EXTRACT RETENTION PERIOD              GHKCPL2   160
          BX7       X7+X1                                                GHKCPL2   161
          SA7       A2             PUT IT BACK IN THE FNT                GHKCPL2   162
          SX6       2              CHAIN NUMBER FOR MISTIC2 RETAINED FNT GHKCPL2   163
          SA1       B6+2           FNT WORD THAT HAS PW ORD IN IT        GHKCPL2   164
          MX0       60-17                                                GHKCPL2   165
          LX1       24             (IM COPYING THIS CODE SO DONT BLAME   GHKCPL2   166
          BX7       -X0*X1         *ME FOR IT)                           GHKCPL2   167
          RJ        PUT            GO INSTALL HIM IN ECS                 GHKCPL2   168
          SX6       B1                                                   GHKCPL2   169
          SA6       LOCR           FLAG LOCK FILE RECOVERY               GHKCPL2   170
          SA5       PPOR           PUT LEAVES FNT POINTER HERE           GHKCPL2   171
          SA5       X5                                                   GHKCPL2   172
          CALL      GETRBT                                               GHKCPL2   173
          SX6       0                                                    GHKCPL2   174
          SA6       LOCR           CLEAR FLAG                            GHKCPL2   175
          CALL      FIXRBS         SAVE THE GUYS DISK SPACE              GHKCPL2   176
          CALL      RESB                                                 GHKCPL2   177
          EQ        RETFNT                                               GHKCPL2   178
          TITLE     RECOVERY -- RECOVER ECS FNT CHAINS                   GHKCPL2   179
**        SAVECSF - SAVE ECS FNT LISTS                                   GHKCPL2   180
*                                                                        GHKCPL2   181
*         THIS ROUTINE VERIFIES THE VALIDITY OF THE ECS FNT LISTS AND    GHKCPL2   182
*         RECOVERS ITS FILES.                                            GHKCPL2   183
*                                                                        GHKCPL2   184
WRITE1    MACRO     STEP                                                 GHKCPL2   185
          RJ        WRITE1                                               GHKCPL2   186
WRITE1    ENDM                                                           GHKCPL2   187
OOPS      MACRO     ERR                                                  GHKCPL2   188
          RJ        OOPSER                                               GHKCPL2   189
OOPS      ENDM                                                           GHKCPL2   190
*                                                                        GHKCPL2   191
SAVECSF   PS                                                             GHKCPL2   192
**                  NOW VERIFY THE VALIDITY OF THE ECS LISTS.  FIRST     GHKCPL2   193
*         WE SEQUENCE THROUGH THE PARTITION AND MAKE SURE THAT ALL -LINK GHKCPL2   194
*         BITS (S.ELLNK) ARE CLEAR AND SEE IF ANY POINTERS ARE OUT OF    GHKCPL2   195
*         RANGE.  IF THEY ARE WE SET THEM TO ZERO AND SET DARNFLAG.      GHKCPL2   196
*                   THEN WE PROCESS DOWN THE EMPTY CHAIN, MAKING SURE    GHKCPL2   197
*         THAT THE TOP 45 BITS OF EACH ITEM-S POINTER WORD ARE NON-ZERO  GHKCPL2   198
*         AND SETTING S.ELLNK.  IF WE COME TO AN ENTRY WITH S.ELLNK SET, GHKCPL2   199
*         WE SET DARNFLAG, CLEAR THE POINTER TO THAT ITEM IN THE         GHKCPL2   200
*         PREVIOUS ITEM, AND GO CHECK THE OTHER CHAINS.  IF ANY OF THE   GHKCPL2   201
*         OTHER TOP 45 BITS ARE SET WE SET DARNFLAG, CLEAR THEM, SET     GHKCPL2   202
*         S.ELLNK, AND CONTINUE WITH THE NEXT ITEM.                      GHKCPL2   203
*                   NOW WE PROCESS EACH CHAIN, CHECKING THE FOLLOWING    GHKCPL2   204
*         ITEMS AND SETTING S.ELLNK:                                     GHKCPL2   205
*         A)        COLUMN ID IS NONZERO.  (IF NOT, SET IT TO 77777777B) GHKCPL2   206
*         B)        BIT S.ELLNK NOT SET.                                 GHKCPL2   207
*         C)        IF A COLUMN TOP, S.ELTOP SET.  IF NOT TOP, S.ELTOP   GHKCPL2   208
*                   CLEAR AND COLPTR CLEAR.                              GHKCPL2   209
*                   NOW WE GO BACK TO START AND SEQUENCE THROUGH THE     GHKCPL2   210
*         PARTITION ONCE MORE.  IF ANY ITEM HAS S.ELLNK CLEAR WE SET     GHKCPL2   211
*         DARNFLAG AND LINK IT TO THE EMPTY CHAIN.  THEN WE CLEAR        GHKCPL2   212
*         S.ELLNK (FOR ALL ITEMS).  WHEN WE FINALLY FINISH, WE CHECK     GHKCPL2   213
*         DARNFLAG AND IF IT IS SET WE TELL THE OPERATOR THAT THE ECS    GHKCPL2   214
*         LISTS WERE CLOBBERED.  WHEN HE RESPONDS TO THAT WE CAN QUIT.   GHKCPL2   215
*                   WHENEVER WE DETECT AN ERROR AND SET DARNFLAG, WE     GHKCPL2   216
*         ALSO DO OUR BEST TO CORRECT THE ERROR CONDITION.  THUS, WHEN   GHKCPL2   217
*         WE HAVE FINISHED, THE ECS FNT LISTS SHOULD ONCE MORE BE IN     GHKCPL2   218
*         USABLE ORDER.  (ALTHOUGH I MAKE NO GUARANTEES).                GHKCPL2   219
*                                                                        GHKCPL2   220
          SX7       0                                                    GHKCPL2   221
          SB1       1              VIRGIN AND ALL THAT                   GHKCPL2   222
          RJ        ECFNTL         COMPUTE LENGTH OF THE ECS FNT PARTITI GHKCPL2   223
CHKPTRS   SA7       THISITEM                                             GHKCPL2   224
          BX6       X6-X6                                                GHKCPL2   225
          BX1       X7                                                   GHKCPL2   226
          SA6       REWRITE                                              GHKCPL2   227
          SB4       A7+B1                                                GHKCPL2   228
          RJ        READ1          READ UP EMPTY CHAIN POINTER           GHKCPL2   229
          SA2       THISITEM+1                                           GHKCPL2   230
          MX0       45                                                   GHKCPL2   231
          BX7       X0*X2                                                GHKCPL2   232
          ZR        X7,PTRCHK1     JUMP IF TOP 45 BITS ARE 0             GHKCPL2   233
          SA7       DARNFLAG                                             GHKCPL2   234
          BX2       -X0*X2         CLEAR JUNK                            GHKCPL2   235
          BX6       X2                                                   GHKCPL2   236
          SA6       A2                                                   GHKCPL2   237
          SA7       REWRITE                                              GHKCPL2   238
PTRCHK1   SA3       LECFNT         LENGTH OF THE PARTITION               GHKCPL2   239
          IX2       X2-X3          SEE IF POINTER IS TOO BIG             GHKCPL2   240
          NG        X2,PTRCHK2                                           GHKCPL2   241
          BX7       X7-X7                                                GHKCPL2   242
          SX6       B1                                                   GHKCPL2   243
          SA6       DARNFLAG                                             GHKCPL2   244
          SA7       A2             SET POINTER TO ZERO                   GHKCPL2   245
          SA6       REWRITE                                              GHKCPL2   246
PTRCHK2   SA1       REWRITE                                              GHKCPL2   247
          ZR        X1,PTRCHK3     JUMP IF NO REWRITE IS NEEDED          GHKCPL2   248
          SA1       THISITEM                                             GHKCPL2   249
          SB4       THISITEM+1                                           GHKCPL2   250
          RJ        WRITE1         REWRITE CORRECTED ANSWER              GHKCPL2   251
PTRCHK3   SA1       THISITEM                                             GHKCPL2   252
          SX7       X1+B1          TO NEXT POINTER                       GHKCPL2   253
          SX6       X7-N.ELCHN-1                                         GHKCPL2   254
          NG        X6,CHKPTRS     GO CHECK NEXT ONE                     GHKCPL2   255
          SPACE     3,3                                                  GHKCPL2   256
**        NOW RUN THOUGH IT AND CHECK POINTERS FOR RANGE                 GHKCPL2   257
*                                                                        GHKCPL2   258
PTRCHK4   SA7       THISITEM       SAVE POINTER TO ITEM                  GHKCPL2   259
          BX1       X7                                                   GHKCPL2   260
          SB4       A7+B1                                                GHKCPL2   261
          RJ        READ1                                                GHKCPL2   262
          SA1       THISITEM+1     LOAD HIM                              GHKCPL2   263
          MX0       1                                                    GHKCPL2   264
          SB6       B0                                                   GHKCPL2   265
          LX0       55+S.ELLNK                                           GHKCPL2   266
          BX2       X0*X1          SEE IF -LNK- IS SET                   GHKCPL2   267
          ZR        X2,PTRCHK5     JUMP IF NOT                           GHKCPL2   268
          SB6       B1                                                   GHKCPL2   269
          BX1       -X0*X1         CLEAR S.ELLNK                         GHKCPL2   270
PTRCHK5   MX0       45                                                   GHKCPL2   271
          BX2       -X0*X1         GET DOWN POINTER                      GHKCPL2   272
          LX1       45                                                   GHKCPL2   273
          BX3       -X0*X1         GET RIGHT POINTER                     GHKCPL2   274
          SX2       X2-N.ELCHN-1                                         GHKCPL2   275
          SX3       X3-N.ELCHN-1                                         GHKCPL2   276
          MX7       60-2                                                 GHKCPL2   277
          ASSUME    LE.FNT+1,EQ,4  SUBSEQUENT CODE CHECKS DIVISIBILITY   GHKCPL2   278
          BX6       -X7*X2         *BY 4                                 GHKCPL2   279
          BX5       -X7*X3                                               GHKCPL2   280
          SA4       LECFNT                                               GHKCPL2   281
          SX2       X2+N.ELCHN                                           GHKCPL2   282
          SX3       X3+N.ELCHN                                           GHKCPL2   283
          IX2       X2-X4          SEE IF TOO BIG                        GHKCPL2   284
          IX3       X3-X4                                                GHKCPL2   285
          PL        X3,PTRCHK6                                           GHKCPL2   286
          ZR        X5,PTRCHK7                                           GHKCPL2   287
PTRCHK6   SB6       B1                                                   GHKCPL2   288
          BX1       X0*X1          CLEAR BAD POINTER                     GHKCPL2   289
PTRCHK7   LX1       15                                                   GHKCPL2   290
          PL        X2,PTRCHK8                                           GHKCPL2   291
          ZR        X6,PTRCHK9                                           GHKCPL2   292
PTRCHK8   SB6       B1                                                   GHKCPL2   293
          BX1       X0*X1          CLEAR BAD POINTER                     GHKCPL2   294
PTRCHK9   ZR        B6,PTRCHK10    JUMP IF NO REWRITE NEEDED             GHKCPL2   295
          BX7       X1                                                   GHKCPL2   296
          SA7       A1                                                   GHKCPL2   297
          SA1       THISITEM                                             GHKCPL2   298
          SB4       THISITEM+1                                           GHKCPL2   299
          RJ        WRITE1         GO REWRITE THE BASTARD                GHKCPL2   300
          SX7       B1                                                   GHKCPL2   301
          SA7       DARNFLAG       ITS A GRAND OLD FLAG                  GHKCPL2   302
PTRCHK10  SA1       THISITEM       ARENT YOU GETTING SICK OF THESE       GHKCPL2   303
          SX7       X1+LE.FNT+1    *NUMBERED LOCATION SYMBOLS...         GHKCPL2   304
          SA2       LECFNT                                               GHKCPL2   305
          IX6       X7-X2                                                GHKCPL2   306
          NG        X6,PTRCHK4     BACK FOR MORE                         GHKCPL2   307
          SPACE     3,3                                                  GHKCPL2   308
**        NOW VERIFY THE EMPTY CHAIN                                     GHKCPL2   309
*                                                                        GHKCPL2   310
          BX7       X7-X7                                                GHKCPL2   311
          MX6       1                                                    GHKCPL2   312
          LX6       55+S.ELLNK                                           GHKCPL2   313
          SA7       LASTITEM                                             GHKCPL2   314
          SA6       LASTITEM+1                                           GHKCPL2   315
EMPCHK    SA7       THISITEM                                             GHKCPL2   316
          BX1       X7                                                   GHKCPL2   317
          SB4       A7+B1                                                GHKCPL2   318
          RJ        READ1          READ THE GUY UP                       GHKCPL2   319
          SA1       THISITEM+1                                           GHKCPL2   320
          MX0       1                                                    GHKCPL2   321
          LX0       55+S.ELLNK                                           GHKCPL2   322
          BX2       X0*X1                                                GHKCPL2   323
          ZR        X2,UPYOURS     JUMP IF NOT ALREADY LINKED            GHKCPL2   324
          SA1       LASTITEM                                             GHKCPL2   325
          SB4       LASTITEM+1                                           GHKCPL2   326
          RJ        WRITE1         GO CLEAR PREVIOUS POINTER             GHKCPL2   327
          SX7       B1                                                   GHKCPL2   328
          SA7       DARNFLAG                                             GHKCPL2   329
          EQ        CHNCHKS        GO CHECK THE CHAINS                   GHKCPL2   330
UPYOURS   MX2       45                                                   GHKCPL2   331
          BX3       X2*X1                                                GHKCPL2   332
          ZR        X3,DONDI       JUMP IF TOP 45 ARE OK                 GHKCPL2   333
          BX1       -X2*X1         CLEAR THEM                            GHKCPL2   334
          SX7       B1                                                   GHKCPL2   335
          SA7       DARNFLAG                                             GHKCPL2   336
DONDI     BX7       X0+X1          SET -LINKED- BIT                      GHKCPL2   337
          SA7       A1             STORE HIM AGAIN                       GHKCPL2   338
          SA1       THISITEM                                             GHKCPL2   339
          SB4       THISITEM+1                                           GHKCPL2   340
          RJ        WRITE1         REQRITE HIM                           GHKCPL2   341
          SA1       THISITEM                                             GHKCPL2   342
          SA2       A1+B1                                                GHKCPL2   343
          BX6       X1                                                   GHKCPL2   344
          SX7       X2                                                   GHKCPL2   345
          SA6       LASTITEM                                             GHKCPL2   346
          NZ        X7,EMPCHK      JUMP IF MORE TO GO                    GHKCPL2   347
          SPACE     3,3                                                  GHKCPL2   348
**        CHECK VALIDITY OF THE CHAINS AND SAVE THE RBTS OF THE GUYS     GHKCPL2   349
*                                                                        GHKCPL2   350
CHNCHKS   BSS       0                                                    GHKCPL2   351
EDDIE     SET       0                                                    GHKCPL2   352
MERCKX    DUP       N.ELCHN        HE IS A FAMOUS BIKE RACER             GHKCPL2   353
EDDIE     SET       EDDIE+1                                              GHKCPL2   354
          SX7       EDDIE                                                GHKCPL2   355
          RJ        CHKCHN                                               GHKCPL2   356
MERCKX    ENDD                                                           GHKCPL2   357
          SPACE     3,3                                                  GHKCPL2   358
**        NOW COLLECT UNLINKED ITEMS                                     GHKCPL2   359
*                                                                        GHKCPL2   360
          BX1       X1-X1                                                GHKCPL2   361
          SB4       LASTUNL                                              GHKCPL2   362
          RJ        READ1                                                GHKCPL2   363
          SA1       LASTUNL                                              GHKCPL2   364
          SX7       N.ELCHN+1                                            GHKCPL2   365
          SX6       X1             CLEAR LINK BIT                        GHKCPL2   366
          SA6       A1                                                   GHKCPL2   367
COLLECT   SA7       THISITEM       SAVE POINTER                          GHKCPL2   368
          BX1       X7                                                   GHKCPL2   369
          SB4       A7+B1                                                GHKCPL2   370
          RJ        READ1          READ HIM UP                           GHKCPL2   371
          SA1       THISITEM+1                                           GHKCPL2   372
          MX0       1                                                    GHKCPL2   373
          LX0       55+S.ELLNK                                           GHKCPL2   374
          BX2       X0*X1                                                GHKCPL2   375
          NZ        X2,LINKED      JUMP IF HE WAS LINKED                 GHKCPL2   376
          SX6       B1                                                   GHKCPL2   377
          SA6       DARNFLAG                                             GHKCPL2   378
          SA1       THISITEM                                             GHKCPL2   379
          SA2       LASTUNL        LAST UNLINKED GUY                     GHKCPL2   380
          BX6       X1                                                   GHKCPL2   381
          BX7       X2                                                   GHKCPL2   382
          SA6       A2                                                   GHKCPL2   383
          SA7       A1+B1          NEW POINTER                           GHKCPL2   384
          EQ        VIETCONG                                             GHKCPL2   385
LINKED    BX7       -X0*X1         CLEAR THAT BIT                        GHKCPL2   386
          SA7       A1                                                   GHKCPL2   387
VIETCONG  SA1       THISITEM                                             GHKCPL2   388
          SB4       THISITEM+1                                           GHKCPL2   389
          RJ        WRITE1         REQRITE FINAL VERSION                 GHKCPL2   390
          SA1       THISITEM                                             GHKCPL2   391
          SX7       X1+LE.FNT+1                                          GHKCPL2   392
          SA2       LECFNT                                               GHKCPL2   393
          IX6       X7-X2                                                GHKCPL2   394
          NG        X6,COLLECT     KEEP GOING                            GHKCPL2   395
          BX1       X1-X1                                                GHKCPL2   396
          SB4       LASTUNL                                              GHKCPL2   397
          RJ        WRITE1         PUT THOSE GUYS ON THE EMPTY CHAIN     GHKCPL2   398
          SPACE     3,3                                                  GHKCPL2   399
**        RECOVER ANY OPERATION THAT WAS IN PROGRESS                     GHKCPL2   400
*                                                                        GHKCPL2   401
          SA1       PPOR                                                 GHKCPL2   402
          ZR        X1,NOTGOING    JUMP IF NOTHING WAS GOING ON          GHKCPL2   403
          SA1       X1             LOAD THE GUYS OUTPUT REGISTER         GHKCPL2   404
          MX0       48                                                   GHKCPL2   405
          LX1       48                                                   GHKCPL2   406
          BX2       -X0*X1         GET REQUEST NUMBER                    GHKCPL2   407
          SX3       X2-MAXREQ-1    SEE IF TOO BIG                        GHKCPL2   408
          PL        X3,SHIT1       JUMP IF IT WAS CLOBBERED              GHKCPL2   409
          SX3       X2-PUTREQ                                            GHKCPL2   410
          NZ        X3,NOTGOING    JUMP IF RECOVERED ALREADY             GHKCPL2   411
          SA1       PPOR                                                 GHKCPL2   412
          SA1       X1+B1                                                GHKCPL2   413
          SB6       A1+2                                                 GHKCPL2   414
          MX0       36                                                   GHKCPL2   415
          BX7       -X0*X1         COLUMN ID THE GUY USED                GHKCPL2   416
          AX1       24                                                   GHKCPL2   417
          MX0       54                                                   GHKCPL2   418
          BX6       -X0*X1                                               GHKCPL2   419
          RJ        PUT                                                  GHKCPL2   420
          SA1       PPOR                                                 GHKCPL2   421
          MX0       48                                                   GHKCPL2   422
          SA1       X1+B1                                                GHKCPL2   423
          L         X1,C.FFRBA,4                                         GHKCPL2   424
          BX6       -X0*X1                                               GHKCPL2   425
          CALL      SAVRBT                                               GHKCPL2   426
NOTGOING  SA1       DARNFLAG                                             GHKCPL2   427
          ZR        X1,SAVECSF     QUITE IF WE MADE NO MISTAKES          GHKCPL2   428
          OPCOM     A,(RECOL1,ECSBADD)                                   GHKCPL2   429
          EQ        SAVECSF                                              GHKCPL2   430
          SPACE     3,3                                                  GHKCPL2   431
**        RECOVER AN FNT CHAIN                                           GHKCPL2   432
*                                                                        GHKCPL2   433
CHKCHN    PS                                                             GHKCPL2   434
          SA7       LASTITEM                                             GHKCPL2   435
          BX6       X6-X6                                                GHKCPL2   436
          SA6       A7+B1                                                GHKCPL2   437
          BX1       X7                                                   GHKCPL2   438
          SB4       THISITEM                                             GHKCPL2   439
          RJ        READ1          READ UP THE FIRST GUYS ADDRESS        GHKCPL2   440
          SA1       THISITEM                                             GHKCPL2   441
          ZR        X1,CHKCHN      QUIT IF THE CHAIN IS EMPTY            GHKCPL2   442
          BX7       X1                                                   GHKCPL2   443
          SA7       THISCOL                                              GHKCPL2   444
          SB4       A7+B1                                                GHKCPL2   445
          RJ        READ1                                                GHKCPL2   446
CHKCHN1   SA1       THISITEM                                             GHKCPL2   447
          SB4       THISITEM+1                                           GHKCPL2   448
          SB2       LE.FNT+1                                             GHKCPL2   449
          SB5       W.ECFNT                                              GHKCPL2   450
          RJ        ECSTFL                                               GHKCPL2   451
          RJ        ECSRD          READ THE GUY UP                       GHKCPL2   452
          NZ        X2,-1          OOPS                                  GHKCPL2   453
          SA1       THISITEM+1                                           GHKCPL2   454
          MX0       1                                                    GHKCPL2   455
          LX0       55+S.ELLNK                                           GHKCPL2   456
          BX2       X0*X1                                                GHKCPL2   457
          ZR        X2,NOTLNK      JUMP IF NO GOOF                       GHKCPL2   458
          SA1       LASTITEM+1                                           GHKCPL2   459
          SA2       THISITEM                                             GHKCPL2   460
          MX0       45                                                   GHKCPL2   461
          BX3       -X0*X1                                               GHKCPL2   462
          BX2       X3-X2          SEE IF A MATCH                        GHKCPL2   463
          NZ        X2,COLPTR                                            GHKCPL2   464
          BX7       X0*X1          CLEAR BAD POINTER                     GHKCPL2   465
          EQ        VIETNAM                                              GHKCPL2   466
COLPTR    LX1       45             CLEAR                                 GHKCPL2   467
          BX7       X0*X1           BAD                                  GHKCPL2   468
          LX7       15               POINTER                             GHKCPL2   469
VIETNAM   SA7       A1             STORE AGAIN                           GHKCPL2   470
          SX6       B1                                                   GHKCPL2   471
          SA6       DARNFLAG                                             GHKCPL2   472
          SA1       LASTITEM                                             GHKCPL2   473
          SB4       LASTITEM+1                                           GHKCPL2   474
          RJ        WRITE1         CLEAR BAD STUFF                       GHKCPL2   475
          SA1       THISITEM                                             GHKCPL2   476
          SA2       THISCOL                                              GHKCPL2   477
          BX3       X1-X2                                                GHKCPL2   478
          ZR        X3,CHKCHN      QUIT IF A BAD COLUMN POINTER          GHKCPL2   479
          EQ        CHKCHNA        GO DO NEXT COLUMN                     GHKCPL2   480
NOTLNK    BX1       X0+X1          SET S.ELLNK                           GHKCPL2   481
          LX0       S.ELTOP-S.ELLNK                                      GHKCPL2   482
          BX2       X0*X1                                                GHKCPL2   483
          SA3       THISITEM                                             GHKCPL2   484
          SA4       THISCOL                                              GHKCPL2   485
          BX3       X3-X4          SEE IF WE ARE AT A COLUMN TOP         GHKCPL2   486
          NZ        X3,NTOP        JUMP IF NO                            GHKCPL2   487
          NZ        X2,TOPOK       JUMP IF YES AND TOP BIT IS SET        GHKCPL2   488
          BX1       X0+X1          SET IT                                GHKCPL2   489
          SX6       B1                                                   GHKCPL2   490
          SA6       DARNFLAG                                             GHKCPL2   491
          EQ        TOPOK                                                GHKCPL2   492
NTOP      ZR        X2,TOPOK1      JUMP IF TOP BIT IS CLEAR              GHKCPL2   493
          BX1       -X0*X1         CLEAR IT                              GHKCPL2   494
          SX6       B1                                                   GHKCPL2   495
          SA6       DARNFLAG                                             GHKCPL2   496
TOPOK1    MX0       45                                                   GHKCPL2   497
          LX0       15                                                   GHKCPL2   498
          BX2       -X0*X1         GET COLUMP POINTER                    GHKCPL2   499
          ZR        X2,TOPOK       JUMP IF IT IS ZERO                    GHKCPL2   500
          BX1       X2*X1          CLEAR IT                              GHKCPL2   501
          SX6       B1                                                   GHKCPL2   502
          SA6       DARNFLAG                                             GHKCPL2   503
TOPOK     MX0       24                                                   GHKCPL2   504
          LX1       6                                                    GHKCPL2   505
          BX2       X0*X1          GET COLUMN ID                         GHKCPL2   506
          NZ        X2,IDOK        JUMP IF IT IS NONZERO                 GHKCPL2   507
          BX1       X0+X1          SET IT TO ALL ONES                    GHKCPL2   508
          SX6       B1                                                   GHKCPL2   509
          SA6       DARNFLAG                                             GHKCPL2   510
IDOK      LX1       54                                                   GHKCPL2   511
          BX7       X1                                                   GHKCPL2   512
          SA7       A1             STORE CLEANED UP VERSION              GHKCPL2   513
          SA1       THISITEM+3     GET RBT POINTERS                      GHKCPL2   514
          MX0       48                                                   GHKCPL2   515
          L         X1,C.FFRBA,4   GET RBT START ADDRESS                 GHKCPL2   516
          BX6       -X0*X1                                               GHKCPL2   517
          CALL SAVRBT              RECOVER THE GUYS DISK SPACE           GHKCPL2   518
          SA1       THISITEM                                             GHKCPL2   519
          SB4       THISITEM+1                                           GHKCPL2   520
          RJ        WRITE1         REWRITE THE GUYS POINTERS INTO ECS    GHKCPL2   521
          RJ        NIXON          TO THE NEXT GUY ON THIS COLUMN        GHKCPL2   522
          NZ        X1,CHKCHN1     JUMP IF THERE IS ONE                  GHKCPL2   523
CHKCHNA   RJ        BUCKLEY        TRY THE NEXT COLUMN                   GHKCPL2   524
          NZ        X1,CHKCHN1     JUMP IF MORE                          GHKCPL2   525
          EQ        CHKCHN         BYE NOW                               GHKCPL2   526
          SPACE     3                                                    GHKCPL2   527
SHIT1     OPCOM     A,(RECOL1,SHIT2)                                     GHKCPL2   528
          EQ        NOTGOING                                             GHKCPL2   529
          SPACE     3                                                    GHKCPL2   530
PUT       PS                                                             GHKCPL2   531
          SA6       CHN                                                  GHKCPL2   532
          SA7       COLID                                                GHKCPL2   533
          SB1       1              VIRGIN CONSTANT                       GHKCPL2   534
          SX7       B6             POINTER TO THE FNT                    GHKCPL2   535
          SA7       PPOR           SAVE IT                               GHKCPL2   536
          SA6       LASTITEM                                             GHKCPL2   537
          SB4       A6+B1                                                GHKCPL2   538
          BX1       X6                                                   GHKCPL2   539
          RJ        READ1          START INITIALIZING STUFF NOW          GHKCPL2   540
          SA1       LASTITEM+1                                           GHKCPL2   541
          BX6       X1                                                   GHKCPL2   542
          SA6       THISCOL                                              GHKCPL2   543
          SA6       CHEMPTY                                              GHKCPL2   544
          SA6       THISITEM       USE IT A LOT, DONT I                  GHKCPL2   545
          SB4       A6+B1                                                GHKCPL2   546
          RJ        READ1          READ UP WHAT WEVE BEEN POINTING AT    GHKCPL2   547
          SA1       THISITEM+1                                           GHKCPL2   548
          BX7       X1                                                   GHKCPL2   549
          SA7       THISCOL+1                                            GHKCPL2   550
          BX1       X1-X1          EMPTY CHAIN POINTER                   GHKCPL2   551
          SA2       COLID          MUST BE NONZERO                       GHKCPL2   552
          ZR        X2,BADREQ                                            GHKCPL2   553
          SB4       EMPCHN                                               GHKCPL2   554
          RJ        READ1          GO READ EMPTY CHAIN POINTER           GHKCPL2   555
          SA1       EMPCHN         POINTER TO THE ITEM                   GHKCPL2   556
          NZ        X1,NOTFULL     JUMP IF ECS IS NOT FULL               GHKCPL2   557
          OOPS      NSPC           GO GIVE UP                            GHKCPL2   558
          EQ        PUT                                                  GHKCPL2   559
NOTFULL   SB4       EMPCHN+1                                             GHKCPL2   560
          RJ        READ1          READ UP NEW EMPTY POINTER             GHKCPL2   561
          SA1       EMPCHN         WHERE TO WRITE ENTRY                  GHKCPL2   562
          RJ        WRITEOUT       PUT THE ENTRY INTO ECS                GHKCPL2   563
          SB4       EMPCHN+1                                             GHKCPL2   564
          SX1       B0                                                   GHKCPL2   565
          WRITE1    1              GO WRITE NEW POINTER                  GHKCPL2   566
          SA1       CHEMPTY        SEE IF CHAIN IS EMPTY                 GHKCPL2   567
          ZR        X1,NEWCHN      GO CREATE A CHAIN                     GHKCPL2   568
PUT       SPACE     3,3                                                  GHKCPL2   569
**        FIND THE COLUMN TO STICK IT IN                                 GHKCPL2   570
*                                                                        GHKCPL2   571
PUTLOOK   SA1       THISCOL+1      GET ECS COLUMN IDENT                  GHKCPL2   572
          SA2       COLID          REQUESTED ONE                         GHKCPL2   573
          MX0       36                                                   GHKCPL2   574
          AX1       30                                                   GHKCPL2   575
          BX3       -X0*X1         ID FROM ECS                           GHKCPL2   576
          ZR        X3,ECSERROR                                          GHKCPL2   577
          IX3       X2-X3          REQUEST-ECS                           GHKCPL2   578
          ZR        X3,COLTHAR     JUMP IF A MATCH                       GHKCPL2   579
          NG        X3,TOOFAR      JUMP IF PAST IT                       GHKCPL2   580
PUT       SPACE     3,3                                                  GHKCPL2   581
**        THAT"S NOT IT - TRY THE NEXT COLUMN                            GHKCPL2   582
*                                                                        GHKCPL2   583
          RJ        BUCKLEY        GO TO THE RIGHT                       GHKCPL2   584
          NZ        X1,PUTLOOK     JUMP IF NOT CHAIN END                 GHKCPL2   585
PUT       SPACE     3,3                                                  GHKCPL2   586
**        INSERT A COLUMN IN ITS PLACE                                   GHKCPL2   587
*                                                                        GHKCPL2   588
STICKIN   SA1       THISCOL                                              GHKCPL2   589
          SA2       COLID                                                GHKCPL2   590
          LX1       15                                                   GHKCPL2   591
          LX2       30                                                   GHKCPL2   592
          MX3       1              "TOP" BIT                             GHKCPL2   593
          IFNE      S.ELTOP,5,1                                          GHKCPL2   594
          LX3       55+S.ELTOP                                           GHKCPL2   595
          BX7       X1+X2                                                GHKCPL2   596
          BX7       X7+X3          SET UP HEADER WORD FOR FNT ENTRY      GHKCPL2   597
          SA7       EMPCHN+1                                             GHKCPL2   598
          SA1       EMPCHN                                               GHKCPL2   599
          SB4       A7                                                   GHKCPL2   600
          WRITE1    1              GO WRITE HIS HEADER                   GHKCPL2   601
          MX0       45                                                   GHKCPL2   602
          SA1       EMPCHN         POINTER TO HIM                        GHKCPL2   603
          SA2       LASTITEM+1                                           GHKCPL2   604
          SA3       LASTITEM                                             GHKCPL2   605
          BX6       X1                                                   GHKCPL2   606
          SB4       A2                                                   GHKCPL2   607
          SA6       THISCOL                                              GHKCPL2   608
          SX3       X3-N.ELCHN-1   SEE IF HE IS NEW HEAD OF CHAIN        GHKCPL2   609
          LX2       45                                                   GHKCPL2   610
          BX7       X6                                                   GHKCPL2   611
          SA6       THISITEM       UPDATE RECORDS                        GHKCPL2   612
          NG        X3,PUTGO       JUMP IF HE IS NEW CHAIN HEAD          GHKCPL2   613
          BX7       X0*X2          CLEAR OLD POINTER                     GHKCPL2   614
          BX7       X7+X1          NEW POINTER                           GHKCPL2   615
          LX7       15             PUT BACK THE WAY IT WERE              GHKCPL2   616
PUTGO     SA7       A2                                                   GHKCPL2   617
          SA1       A2-B1          ADDR TO WRITE TO                      GHKCPL2   618
          WRITE1    0              INSTALL HIM IN ECS                    GHKCPL2   619
          EQ        PUT            AND QUIT                              GHKCPL2   620
PUT       SPACE     3,3                                                  GHKCPL2   621
**        WE PASSED WHERE THE COLUMN SHOULD BE                           GHKCPL2   622
*                                                                        GHKCPL2   623
TOOFAR    SA1       LASTITEM+1                                           GHKCPL2   624
          AX1       30                                                   GHKCPL2   625
          BX3       -X0*X1         PREVIOUS ID FROM ECS                  GHKCPL2   626
          IX3       X3-X2          PREVIOUS-REQUEST                      GHKCPL2   627
          NG        X3,STICKIN     GO PUT IT BETWEEN COLUMNS             GHKCPL2   628
          RJ        DIE            OOPS HE GOOFED                        GHKCPL2   629
PUT       SPACE     3,3                                                  GHKCPL2   630
**        CREATE A NEW CHAIN                                             GHKCPL2   631
*                                                                        GHKCPL2   632
NEWCHN    SA2       COLID                                                GHKCPL2   633
          MX3       1                                                    GHKCPL2   634
          LX2       30                                                   GHKCPL2   635
          IFNE      S.ELTOP,5,1                                          GHKCPL2   636
          LX3       55+S.ELTOP     "TOP OF COLUMN" BIT                   GHKCPL2   637
          BX7       X2+X3          SET UP HEADER WORD                    GHKCPL2   638
          SA7       EMPCHN+1       STORE IT                              GHKCPL2   639
          SA1       EMPCHN                                               GHKCPL2   640
          SB4       A7                                                   GHKCPL2   641
          WRITE1    1              WRITE IT OUT                          GHKCPL2   642
          SA1       EMPCHN         POINTER TO HIM                        GHKCPL2   643
          SB4       LASTITEM+1                                           GHKCPL2   644
          BX7       X1                                                   GHKCPL2   645
          SA7       B4             STORE HEADER                          GHKCPL2   646
          SA1       LASTITEM       WHERE IN ECS TO WRITE                 GHKCPL2   647
          SA7       THISCOL        UPDATE                                GHKCPL2   648
          SA7       THISITEM        RECORDS                              GHKCPL2   649
          WRITE1    0              AND WRITE HIM OUT                     GHKCPL2   650
          EQ        PUT                                                  GHKCPL2   651
PUT       SPACE     3,3                                                  GHKCPL2   652
**        INSERT INTO AN EXISTING COLUMN                                 GHKCPL2   653
*                                                                        GHKCPL2   654
COLTHAR   SA1       PPOR                                                 GHKCPL2   655
          SA1       X1                                                   GHKCPL2   656
          MX0       48                                                   GHKCPL2   657
          BX7       -X0*X1         EXTRACT THE PRIORITY FOR FUTURE USE   GHKCPL2   658
          SA7       SRCHDATA       AND SAVE IT                           GHKCPL2   659
COLTHLP   SA1       THISITEM                                             GHKCPL2   660
          SB4       SRCHFNT        TEMP STORAGE                          GHKCPL2   661
          SX1       X1+B1          POINT AT FNT WORD 1                   GHKCPL2   662
          RJ        READ1          READ HIM UP                           GHKCPL2   663
          SA1       SRCHFNT        PRIORITY FROM ECS                     GHKCPL2   664
          SA2       SRCHDATA       PRIORITY OF NEW ITEM                  GHKCPL2   665
          MX0       48                                                   GHKCPL2   666
          BX3       -X0*X1         PRI FROM ECS                          GHKCPL2   667
          IX3       X3-X2          ECS-REQUEST                           GHKCPL2   668
          NG        X3,INSERT      GO PUT IT IN                          GHKCPL2   669
          RJ        NIXON          TRY NEXT ITEM                         GHKCPL2   670
          NZ        X1,COLTHLP     BACK FOR MORE                         GHKCPL2   671
PUT       SPACE     3,3                                                  GHKCPL2   672
**        PUT AN ITEM IN ITS PLACE                                       GHKCPL2   673
*                                                                        GHKCPL2   674
INSERT    SA1       THISITEM                                             GHKCPL2   675
          SA2       COLID                                                GHKCPL2   676
          SA3       A1+B1          PREVIOUS "TOP" BIT IS HERE            GHKCPL2   677
          MX0       1                                                    GHKCPL2   678
          IFNE      S.ELTOP,5,1                                          GHKCPL2   679
          LX0       55+S.ELTOP                                           GHKCPL2   680
          BX7       -X0*X3                                               GHKCPL2   681
          MX6       45                                                   GHKCPL2   682
          BX3       X0*X3                                                GHKCPL2   683
          LX6       15                                                   GHKCPL2   684
          BX4       -X6*X7         EXTRACT OLD COLUMN POINTER            GHKCPL2   685
          BX7       X6*X7          CLEAR THE OLD COLUMN POINTER          GHKCPL2   686
          SA7       A3                                                   GHKCPL2   687
          LX2       30                                                   GHKCPL2   688
          BX7       X1+X2          POINTERS AND ID                       GHKCPL2   689
          BX7       X7+X3          "TOP" BIT IF NECESSARY                GHKCPL2   690
          BX7       X7+X4          NEW COLUMN POINTER                    GHKCPL2   691
          SA7       EMPCHN+1                                             GHKCPL2   692
          SA1       EMPCHN                                               GHKCPL2   693
          SB4       A7                                                   GHKCPL2   694
          WRITE1    1              GO WRITE THE HEADER                   GHKCPL2   695
          SA2       EMPCHN+1       SEE IF TOP BIT WAS CLEARED            GHKCPL2   696
          IFNE      S.ELTOP,5,1                                          GHKCPL2   697
          LX0       5-S.ELTOP                                            GHKCPL2   698
          PL        X2,NOTTOP      JUMP IF NOT                           GHKCPL2   699
          SA1       THISITEM       REWRITE WITHOUT TOP BIT SET           GHKCPL2   700
          SB4       THISITEM+1                                           GHKCPL2   701
          WRITE1    1                                                    GHKCPL2   702
          SA1       EMPCHN                                               GHKCPL2   703
          SA3       LASTITEM       SEE IF HE WAS FAMOUS 1ST GUY          GHKCPL2   704
          SA2       A3+B1                                                GHKCPL2   705
          BX6       X1                                                   GHKCPL2   706
          SX3       X3-N.ELCHN-1                                         GHKCPL2   707
          SA6       THISCOL                                              GHKCPL2   708
          NG        X3,NOTTOP      JUMP IF HE WAS 1ST GUY                GHKCPL2   709
          MX0       45                                                   GHKCPL2   710
          SA6       THISITEM                                             GHKCPL2   711
          LX2       45             PREPARE TO SET UP A NEW COLUMN PTR    GHKCPL2   712
          BX0       X0*X2                                                GHKCPL2   713
          BX7       X0+X1                                                GHKCPL2   714
          SB4       A2                                                   GHKCPL2   715
          LX7       15             REPOSITION NOW THAT PTRS ARE OK       GHKCPL2   716
          EQ        PUTGO                                                GHKCPL2   717
NOTTOP    MX0       45                                                   GHKCPL2   718
          SA1       EMPCHN         POINTER TO HIM                        GHKCPL2   719
          SA2       LASTITEM+1                                           GHKCPL2   720
          BX6       X1                                                   GHKCPL2   721
          SB4       A2                                                   GHKCPL2   722
          SA6       THISITEM       UPDATE RECORDS                        GHKCPL2   723
          BX0       X0*X2          CLEAR OLD POINTER                     GHKCPL2   724
          BX7       X0+X1          SET UP NEW POINTER                    GHKCPL2   725
          EQ        PUTGO                                                GHKCPL2   726
          SPACE     3                                                    GHKCPL2   727
INITFNTL  PS                                                             GHKCPL2   728
          RJ        ECFNTL         FIND THE LENGTH OF ECS STUFF          GHKCPL2   729
          SB5       W.ECFNT                                              GHKCPL2   730
          SX1       B0             ECS ADDR TO WRITE                     GHKCPL2   731
          SB2       N.ELCHN+1      CM WORD COUNT                         GHKCPL2   732
          RJ        ECSTFL                                               GHKCPL2   733
          SB4       PTRWDS                                               GHKCPL2   734
          RJ        ECSWR          SET UP THE INITIAL POINTERS           GHKCPL2   735
ECFNTLP   SA1       DUMYFNT        ADDRESS TO WRITE TO                   GHKCPL2   736
          SX7       X1+LE.FNT+1    POINT TO NEXT ONE                     GHKCPL2   737
          SA7       A1                                                   GHKCPL2   738
          SB2       LE.FNT+1                                             GHKCPL2   739
          SB5       W.ECFNT                                              GHKCPL2   740
          SA2       LECFNT                                               GHKCPL2   741
          IX7       X7-X2                                                GHKCPL2   742
          PL        X7,ECFNTOUT    JUMP IF INITIALIZATION IS COMPLETE    GHKCPL2   743
          RJ        ECSTFL         RELOCATE ECS ADDRESS                  GHKCPL2   744
          SB4       DUMYFNT        CM ADDR TO WRITE FROM                 GHKCPL2   745
          RJ        ECSWR                                                GHKCPL2   746
          EQ        ECFNTLP                                              GHKCPL2   747
ECFNTOUT  BX7       X7-X7                                                GHKCPL2   748
          SA7       DUMYFNT                                              GHKCPL2   749
          RJ        ECSTFL                                               GHKCPL2   750
          SB4       DUMYFNT                                              GHKCPL2   751
          RJ        ECSWR          WRITE OUT LIST TERMINATOR             GHKCPL2   752
          EQ        INITFNTL                                             GHKCPL2   753
          SPACE     3                                                    GHKCPL2   754
ECFNTL    PS                                                             GHKCPL2   755
          SA1       P.ECST                                               GHKCPL2   756
          MX0       48                                                   GHKCPL2   757
          BX1       -X0*X1         POINTER TO ECST                       GHKCPL2   758
          LX1       3              *10B                                  GHKCPL2   759
          SA1       X1+W.ECFNT     GET PARTITION DEFINITION WORD         GHKCPL2   760
          MX0       36                                                   GHKCPL2   761
          LX1       36                                                   GHKCPL2   762
          BX6       -X0*X1                                               GHKCPL2   763
          SA6       LECFNT         LENGTH OF THE ECS FNT                 GHKCPL2   764
          EQ        ECFNTL                                               GHKCPL2   765
          SPACE     3                                                    GHKCPL2   766
READ1     PS                                                             GHKCPL2   767
          SB2       B1                                                   GHKCPL2   768
          SB5       W.ECFNT                                              GHKCPL2   769
          RJ        ECSTFL                                               GHKCPL2   770
          RJ        ECSRDE                                               GHKCPL2   771
          ZR        X2,READ1       QUIT IF READ WAS OK                   GHKCPL2   772
          RJ        PAR            PARITY ERROR                          GHKCPL2   773
WRITE1    SPACE     3,2                                                  GHKCPL2   774
WRITE1    PS                                                             GHKCPL2   775
          SB2       B1                                                   GHKCPL2   776
          SB5       W.ECFNT                                              GHKCPL2   777
          RJ        ECSTFL                                               GHKCPL2   778
          RJ        ECSWR                                                GHKCPL2   779
          EQ        WRITE1                                               GHKCPL2   780
WRITEOUT  SPACE     3,2                                                  GHKCPL2   781
WRITEOUT  PS                                                             GHKCPL2   782
          SB2       LE.FNT                                               GHKCPL2   783
          SB5       W.ECFNT                                              GHKCPL2   784
          SX1       X1+B1          ECS ADDR WE ARE GOING TO WRITE TO     GHKCPL2   785
          RJ        ECSTFL                                               GHKCPL2   786
          SA2       PPOR                                                 GHKCPL2   787
          SB4       X2             CM ADDR TO WRITE FROM                 GHKCPL2   788
          RJ        ECSWR          GO WRITE HIM                          GHKCPL2   789
          EQ        WRITEOUT                                             GHKCPL2   790
PAR       SPACE     3,2                                                  GHKCPL2   791
PAR       PS                                                             GHKCPL2   792
          RJ        DIE                                                  GHKCPL2   793
OOPSER    SPACE     3,2                                                  GHKCPL2   794
OOPSER    PS                                                             GHKCPL2   795
ZAPPER    OPCOM     A,(RECOL1,LSPERR)                                    GHKCPL2   796
          EQ        ZAPPER                                               GHKCPL2   797
BADREQ    SPACE     3,2                                                  GHKCPL2   798
BADREQ    OOPS      BADR                                                 GHKCPL2   799
ECSERROR  EQU       BADREQ                                               GHKCPL2   800
BUCKLEY   SPACE     3,2                                                  GHKCPL2   801
BUCKLEY   PS                                                             GHKCPL2   802
          SA1       THISCOL        MOVE                                  GHKCPL2   803
          SA2       A1+B1           TO                                   GHKCPL2   804
          BX6       X1               THE                                 GHKCPL2   805
          BX7       X2                RIGHT...                           GHKCPL2   806
          SA6       LASTITEM                                             GHKCPL2   807
          SA7       A6+B1                                                GHKCPL2   808
          MX0       45                                                   GHKCPL2   809
          AX2       15                                                   GHKCPL2   810
          BX1       -X0*X2         GET RIGHTWARDS POINTER                GHKCPL2   811
          BX7       X1                                                   GHKCPL2   812
          SA7       THISCOL        SAVE IT                               GHKCPL2   813
          SA7       THISITEM                                             GHKCPL2   814
          ZR        X1,BUCKLEY     QUIT IF END OF CHAIN                  GHKCPL2   815
          SB4       A1+B1                                                GHKCPL2   816
          RJ        READ1          READ UP NEW GUY                       GHKCPL2   817
          SA1       THISCOL+1                                            GHKCPL2   818
          BX7       X1                                                   GHKCPL2   819
          SA7       THISITEM+1     NOW WE ARE DONE                       GHKCPL2   820
          EQ        BUCKLEY        SO GO WAVE A FLAG                     GHKCPL2   821
NIXON     SPACE     3,2                                                  GHKCPL2   822
NIXON     PS                                                             GHKCPL2   823
          SA1       THISITEM       DROP                                  GHKCPL2   824
          SA2       A1+B1           DOWN                                 GHKCPL2   825
          BX6       X1               ONE                                 GHKCPL2   826
          BX7       X2                NOTCH...                           GHKCPL2   827
          SA6       LASTITEM                                             GHKCPL2   828
          SA7       A6+B1                                                GHKCPL2   829
          MX0       45                                                   GHKCPL2   830
          BX1       -X0*X2         GET DOWNWARDS POINTER                 GHKCPL2   831
          BX7       X1                                                   GHKCPL2   832
          SA7       THISITEM       SAVE IT                               GHKCPL2   833
          BX7       X7-X7                                                GHKCPL2   834
          SA7       A7+B1          CLEAR SOME GARBAGE                    GHKCPL2   835
          ZR        X1,NIXON       QUIT IF END OF COLUMN                 GHKCPL2   836
          SB4       A1+B1                                                GHKCPL2   837
          RJ        READ1                                                GHKCPL2   838
          SX1       B1             "OK" FLAG                             GHKCPL2   839
          EQ        NIXON          GO DRAFT SOME POOR JERK               GHKCPL2   840
DATA      SPACE     3,5                                                  GHKCPL2   841
PUTREQ    EQU       1                                                    GHKCPL2   842
MAXREQ    EQU       7                                                    GHKCPL2   843
CHN       BSSZ      1              CHAIN IDENTIFICATION                  GHKCPL2   844
COLID     BSSZ      1              COLUMN IDENTIFICATION                 GHKCPL2   845
THISCOL   BSSZ      2              WORD 1 POINTS TO THE ECS ENTRY.  WORD GHKCPL2   846
LASTITEM  BSSZ      2              2 CONTAINS THE POINTER WORD FROM THE  GHKCPL2   847
THISITEM  BSSZ      2+LE.FNT       ECS ENTRY.                            GHKCPL2   848
EMPCHN    BSSZ      2              USED TO GET AN ITEM FROM THE EMPTY CH GHKCPL2   849
CHEMPTY   BSSZ      1              NON-ZERO IF CHAIN IS NOT EMPTY        GHKCPL2   850
SRCHDATA  BSSZ      1              HOLDS POINTERS AND HIGHEST PRIORITY   GHKCPL2   851
SRCHFNT   BSSZ      1              USED TO READ FNT WORD 1 FOR PRIORITY  GHKCPL2   852
REWRITE   DATA      0                                                    GHKCPL2   853
DARNFLAG  DATA      0                                                    GHKCPL2   854
PPOR      DATA      0                                                    GHKCPL2   855
LASTUNL   DATA      0                                                    GHKCPL2   856
LECFNT    BSSZ      1              WILL CONTAIN THE LENGTH OF THE ECS FN GHKCPL2   857
EMPCNT    DATA      0              COUNT OF FNTS ON THE EMPTY CHAIN      GHKCPL2   858
PTRWDS    BSS       0                                                    GHKCPL2   859
DUMYFNT   BSS       0                                                    GHKCPL2   860
          CON       N.ELCHN+1      POINTER TO HEAD OF EMPTY CHAIN        GHKCPL2   861
X         SET       N.ELCHN                                              GHKCPL2   862
          IFGT      LE.FNT,X,1                                           GHKCPL2   863
X         SET       LE.FNT                                               GHKCPL2   864
          DUP       X,1                                                  GHKCPL2   865
          DATA      0                                                    GHKCPL2   866
          TITLE     RECOVERY --- SUBROUTINE ECSRECON (FIGURATION)        HS2IRCP   869
ECSRECON  PS                                                             HS2IRCP   870
          SA1      W.CPECS                                               HS2IRCR    23
          L        X1,C.CPECFL,4   GET ECS SIZE                          HS2IRCR    24
          MX0      48                                                    HS2IRCR    25
          BX1      -X0*X1                                                HS2IRCR    26
          SX1      X1-400B         TEST IF HAL                           HS2IRCR    27
          MI       X1,NOSWITCH     JUMP IF ALREADY HALF                  HS2IRCR    28
 ECSRE1   OPCOM    O,(RECOL1,REECR1,REECR2,REECR3)   ASK IF TO HALF      HS2IRCR    29
          SB2      X1-1            EXAMINE ANSWER                        HS2IRCR    30
          EQ       B2,B1,NOSWITCH  JUMP IF NO                            HS2IRCR    31
          NE       B2,B0,ECSRE1    JUML IF NEITHR YES OR NO              HS2IRCR    32
*         (YES)                                                          HS2IRCR    33
          SPACE    1                                                     HS2IRCR    34
          OPCOM     X,(RECOL1,REECR2)                                    HS2IRCR    35
*                                                                        BBBSWPR   126
*         ZRO ECS ALLOC TABLE AND ZERO ECS AND CHECKSUMS                 BBBSWPR   127
*                                                                        BBBSWPR   128
          SA1       P.ECST         GET TABLE ADDRESS                     BBBSWPR   129
          MX0       60-12                                                BBBSWPR   130
          L         X1,C.ECSWPA,4                                        BBBSWPR   131
          BX1       -X0*X1                                               BBBSWPR   132
          LX1       3              START ADDRESS                         BBBSWPR   133
          SA2       P.LECST        GET LENGTH                            BBBSWPR   134
          L         X2,C.ECSWPL,4                                        BBBSWPR   135
          BX2       -X0*X2         LENGTH IN  IN WORDS                   BBBSWPR   136
          SB2       X1             FWA                                   BBBSWPR   137
          SB3       X2-1           LENGTH                                BBBSWPR   138
          SX6       B0                                                   BBBSWPR   139
LPZESS    SA6       B2             ZERO                                  BBBSWPR   140
          SB2       B2+B1                                                BBBSWPR   141
          SB3       B3-B1                                                BBBSWPR   142
          PL        B3,LPZESS      LOOP OTO ZERO                         BBBSWPR   143
*        WE ARE READY TO WRITE TO ECS WITH CHECKSUMMING, SO FIRST        BBBSWPR   144
*         ZERO IT AND ITS ASSOCIATED CHECKSUMS                           BBBSWPR   145
          SA1       T.ECSPAR       GET BLOCK SIZE                        BBBSWPR   146
          L        X1,0,4               NO SYMBOL , BLANME DMD           BBBSWPR   147
          MX3      60-6                                                  BBBSWPR   148
          BX1      -X3*X1               BLOCK SIZE                       BBBSWPR   149
          SX7       X1             SAVE BLOCK LENGTH                     BBBSWPR   150
          SA7       ES.BL          SAVE IT                               BBBSWPR   151
          SA4      P.ECST               GET SWAP PART                    BBBSWPR   152
          L        X4,C.ECST,4                                           BBBSWPR   153
          MX0      60-12                                                 BBBSWPR   154
          BX4      -X0*X4               TABLE PART                       BBBSWPR   155
          LX4      3                    *8                               BBBSWPR   156
          SA4      X4+W.ECSWAP          SWAP APART                       BBBSWPR   157
          MX3      60-24                                                 BBBSWPR   158
          BX2      -X3*X4               X2=SWAP START                    BBBSWPR   159
          AX4      24                   X4=SWAP LENGTH                   BBBSWPR   160
          IX6       X2+X4                                                BBBSWPR   161
         SX3       15             -15 FOR END CH(CKSUM BLOCK             BBBSWPR   162
          IX6       X6-X3          .                                     BBBSWPR   163
          SA6       ES.ZL          SAVE IT                               BBBSWPR   164
          SX3       B0             NOW FIND BLOCK STARTING BOUNDARY      BBBSWPR   165
ES.CL     IX3       X3+X1          LOOP                                  BBBSWPR   166
          IX4       X3-X2          TEST FOR THERE                        BBBSWPR   167
          NG        X4,ES.CL       LOOP                                  BBBSWPR   168
          BX6       X3                                                   BBBSWPR   169
          SA6       ES.ZA          SAVE START ADDRESS                    BBBSWPR   170
          BX1       X3                                                   BBBSWPR   171
*             NOW LOOP AND ZERO ECS                                      BBBSWPR   172
ES.ZLP    SA2       ES.BL          GET BLOCK LENGTH                      BBBSWPR   173
          SB4       ES.ZB          ZERO ADREA                            BBBSWPR   174
          SB2       X2             LENGTH                                BBBSWPR   175
          RJ        ECSWR          AND WRITE                             BBBSWPR   176
          SA1       ES.ZA          OMOW INCREMENT ADDRESS                BBBSWPR   177
          SA2       ES.BL          LENGTH                                BBBSWPR   178
          IX1       X1+X2          STEP UP                               BBBSWPR   179
          BX6       X1                                                   BBBSWPR   180
          SA6       A1             SAVE IT                               BBBSWPR   181
          SA3       ES.ZL          LWA OF TABLE                          BBBSWPR   182
          IX3       X1-X3          TEST FOR IT ALL ZEROED                BBBSWPR   183
          NG        X3,ES.ZLP      LOP TILL IT IS ALL ZEROED             BBBSWPR   184
*                                                                        BBBSWPR   185
          RJ       RECSH           MOVE SUTFF AROUTND IN ECS FOR AFETR T HS2IRCR    36
*                                  THE SWITCH                            HS2IRCR    37
          SPACE    1                                                     HS2IRCR    38
*                                  NOW, HAVE THE OPERATOR DO THE CHANEGE HS2IRCR    39
 ECSRE2   OPCOM    A,(RECOL1,REECR4)                                     HS2IRCR    40
          RJ       ECSIZE          SEE IF HE DID IT                      HS2IRCR    41
          SA1      W.CPECS                                               HS2IRCR    42
          L        X1,C.CPECFL,4   GET ECS SIZE                          HS2IRCR    43
          MX0      48                                                    HS2IRCR    44
          BX1      -X0*X1                                                HS2IRCR    45
          SX1      X1-400B         TEST IF HE HAS                        HS2IRCR    46
          PL       X1,ECSRE2       JUMP IF HE HASNT                      HS2IRCR    47
          SX1      B0              READ UP ECS WORD 0                    HS2IRCR    48
          SB2      B1                                                    HS2IRCR    49
          SB4      TBUF0                                                 HS2IRCR    50
          RJ       ECSRD           DO THE READ                           HS2IRCR    51
          SA5      =10HECS BANK 0  FIND OUT IF THEIS IS                  HS2IRCR    52
          SA4      TBUF0           BANK 0 OR 1                           HS2IRCR    53
          IX6      X4-X5                                                 HS2IRCR    54
          LX6      54              POSITION                              HS2IRCR    55
          SA1      T.ECSPAR        AND PUT BANK NUMBER IN LOW CORE       HS2IRCR    56
          BX6      X1+X6                                                 HS2IRCR    57
          SA6      A1                                                    HS2IRCR    58
 NOSWITCH BSS      0                                                     HS2IRCR    59
          SA6      NOMODECD        SWITCH TO PREVENT C/D  LOADING        HS2IRCS     7
*                                  (SINCE ECS SHOLD BE RELOADED)         HS2IRCS     8
          RJ       ALTLIB                                                HS2IRCQ   178
          EQ       ECSRECON                                              HS2IRCQ   179
          SPACE    2                                                     HS2IRCQ   180
          SB1       1                                                    GHKCPL2    11
          BX1       X1-X1                                                GHKCPL2    12
          SB4       THISITEM                                             GHKCPL2    13
          RJ        READ1          EMPTY CHAIN POINTER                   GHKCPL2    14
COUNTEM   SA1       THISITEM                                             GHKCPL2    15
          SA2       EMPCNT                                               GHKCPL2    16
          ZR        X1,COUNTESS    JUMP IF END OF THE CHAIN              GHKCPL2    17
          SX7       X2+B1          COUNT AN EMPTY FNT                    GHKCPL2    18
          SB4       A1                                                   GHKCPL2    19
          SA7       A2                                                   GHKCPL2    20
          EQ        READ1+1        NOTE THAT THIS WORKS                  GHKCPL2    21
*                                  (READ1 WILL RETURN TO COUNTEM)        GHKCPL2    22
COUNTESS  SA1       P.INS                                                GHKCPL2    23
          BX7       X2             FINAL COUNT                           GHKCPL2    24
          MX0       48                                                   GHKCPL2    25
          LX1       12                                                   GHKCPL2    26
          BX1       -X0*X1         POINTER TO INSTALLATION AREA          GHKCPL2    27
          SA7       X1+W.ELSAVE+1  SAVE THE COUNT OF EMPTY ECS FNTS      GHKCPL2    28
RECOL1    MSGLST  LARGE,RIGHT                                            IRCP     3556
          TABX   4                                                       IRCP     3557
          MSGTEXT  (RECOVERY)                                            IRCP     3558
          ENDLST                                                         IRCP     3559
RECOL2    MSGLST  LARGE,LEFT                                             IRCP     3560
          MSGTEXT  (RECOVERY RISKY)                                      IRCP     3561
          ENDLST                                                         IRCP     3562
NORERN    MSGLST  MEDIUM,LEFT                                            IRCP     3563
          POSTXT  *,5                                                    IRCP     3564
JLM2      MSGTEXT   (          HAS BEEN DROPPED)                         HS2IRCP   891
          MSGTEXT   (BECAUSE JOB REQUESTED)                              HS2IRCP   892
          MSGTEXT   (   -NO RERUN-)                                      HS2IRCP   893
          ENDLST                                                         IRCP     3567
JOBL      MSGLST    MEDIUM,LEFT                                          HUSTREC   421
          POSTXT    *,5                                                  HUSTREC   422
JLM       MSGTEXT   (          HAS BEEN LOST )                           HUSTREC   423
          ENDLST                                                         HUSTREC   425
NORTT     MSGLST    MEDIUM,LEFT                                          HUSTREC   426
          POSTXT    *,5                                                  HUSTREC   427
NORT      MSGTEXT   (          HAD MT  XX)                               HUSTREC   428
          MSGTEXT   (IN USE AT TIME OF CRASH)                            HUSTREC   429
          MSGTEXT   (IS THE TAPE STILL MOUNTED)                          HS2IRCP   894
          MSGTEXT   (   Y - YES,THE TAPE IS UNTOUCHED)                   HS2IRCP   895
          MSGTEXT   (   N - NO,TAPE UNLOADED)                            HS2IRCP   896
          ENDLST                                                         HUSTREC   432
MESREM    MSGLST    MEDIUM,LEFT                                          HUSTREC   433
          POSTXT    *,5                                                  HUSTREC   434
MESRM     MSGTEXT   (REMOUNT MT        )                                 HUSTREC   435
          MSGTEXT   (AT LOAD POINT)                                      HUSTREC   436
          MSGTEXT   (WITH SAME TAPE AS BEFORE CRASH)                     HUSTREC   437
          ENDLST                                                         HUSTREC   438
 RECSLA   MSGLST   MEDIUM,LEFT                                           HS2IRCP   897
          POSTXT   *,5                                                   HS2IRCP   898
          MSGTEXT  (SWITCH ECS BACK)                                     HS2IRCP   899
          MSGTEXT  (TO HALF-OFF.)                                        HS2IRCP   900
          MSGTEXT  ((THEN TYPE GO))                                      HS2IRCP   901
          ENDLST                                                         HS2IRCP   902
 RECSSM   MSGLST   MEDIUM,LEFT                                           HS2IRCP   903
          POSTXT   *,5                                                   HS2IRCP   904
          MSGTEXT  (TURN ECS BACK)                                       HS2IRCP   905
          MSGTEXT  (FULLY ON.)                                           HS2IRCP   906
          MSGTEXT  (         ... AND TYPE GO)                            HS2IRCP   907
          ENDLST                                                         HS2IRCP   908
ECSBADD   MSGLST    MEDIUM,LEFT                                          GHKCPL2   867
          POSTXT    *,5                                                  GHKCPL2   868
          MSGTEXT   (THE ECS FNTS)                                       GHKCPL2   869
          MSGTEXT   (WERE CLOBBERED.)                                    GHKCPL2   870
          MSGTEXT   (SOME JOBS OR FILES)                                 GHKCPL2   871
          MSGTEXT   (MAY HAVE BEEN LOST.)                                GHKCPL2   872
          ENDLST                                                         GHKCPL2   873
SHIT2     MSGLST    MEDIUM,LEFT                                          GHKCPL2   874
          POSTXT    *,5                                                  GHKCPL2   875
          MSGTEXT   (CMR HAS BEEN)                                       GHKCPL2   876
          MSGTEXT   (CLOBBERED. RECOVERY)                                GHKCPL2   877
          MSGTEXT   (IS RISKY. GOOD LUCK.)                               GHKCPL2   878
          ENDLST                                                         GHKCPL2   879
LSPERR    MSGLST    MEDIUM,LEFT                                          GHKCPL2   880
          POSTXT    *,5                                                  GHKCPL2   881
          MSGTEXT   (IRCP HAS GOOFED.)                                   GHKCPL2   882
          MSGTEXT   (TAKE DUMP,)                                         GHKCPL2   883
          MSGTEXT   (TELL SYSTEMS.)                                      GHKCPL2   884
          MSGTEXT   ((T.S., CHARLIE))                                    GHKCPL2   885
          ENDLST                                                         GHKCPL2   886
ITDIDIT   MSGLST    MEDIUM,LEFT                                          GHKCPL2   887
          POSTXT    *,5                                                  GHKCPL2   888
          MSGTEXT   (TELL GHK IT HAPPENED.)                              GHKCPL2   889
          MSGTEXT   ((TYPE CR.))                                         GHKCPL2   890
         ENDLST                                                          GHKCPL2   891
          TITLE                   PRELOADER --- MAIN ROUTINE             IRCP      448
*         PRELOAD -- MAIN PRELOADING ROUTINE                             IRCP      449
                                                                         IRCP      450
PRELOAD   DATA   0                                                       IRCP      451
          SB1    1                                                       IRCP      452
          RJ   PLMSG1              GO SEND STANDARD DISPLAY FOR PRELOAD  IRCP      453
          RJ   PLDEV               GO SET UP FOR THE 1ST SYSTEM DEVICE   IRCP      454
          SX1    30B               REWIND TAPE                           IRCP      455
          RJ   PLTAPEF                                                   IRCP      456
                                                                         IRCP      457
*         START OF MAIN PRELOADING LOOP                                  IRCP      458
                                                                         IRCP      459
*         ISSUE TAPE READ REQUEST                                        IRCP      460
                                                                         IRCP      461
PL1       SX1    TAPEPRU           TAPE READ WORD COUNT                  IRCP      462
          SA2    TBUFS             ADDRESS OF INPUT BUFFER               IRCP      463
          LX1    48                FORM TAPE READ REQUEST                IRCP      464
          SX3    X2                WITH ORDER CODE = 0                   IRCP      465
          LX3    24                                                      IRCP      466
          BX7    X1+X3                                                   IRCP      467
          SA7    T.PPC1+W.PPMES1   STORE TAPE REQUEST                    IRCP      468
          MX6    0                 START TAPE READ REQUEST               IRCP      469
          SA6    T.PPC1+W.PPIR                                           IRCP      470
                                                                         IRCP      471
*         WAIT FOR TAPE ONLY IF THIS IS THE FIRST TIME                   IRCP      472
*         OR IF THIS IS THE START OF A CONTINUATION REEL                 IRCP      473
                                                                         IRCP      474
          SA4    TCALL1                                                  IRCP      475
          ZR   X4,PL7              JUMP IF NOT TO WAIT                   IRCP      476
          SA6    A4                CLEAR FIRST FLAG                      IRCP      477
                                                                         IRCP      478
*         RETURN HERE AFTER TRANSFERRING DATA FROM A TAPE BUFFER TO      IRCP      479
*         AN RMS BUFFER.                                                 IRCP      480
                                                                         IRCP      481
PL2       SA1    T.PPC1+W.PPIR     WAIT UNTIL THE LAST TAPE READ         IRCP      482
          ZR   X1,PL2              REQUEST IS COMPLETED                  IRCP      483
          SA3    T.PPC1+W.PPMES1   GET STATUS INFORMATION                IRCP      484
          SX1    TAPEPRU           ALSO COMPUTE AND SAVE WORD COUNT      IRCP      485
          BX7    X3                                                      IRCP      486
          AX7    48                                                      IRCP      487
          IX7    X1-X7             WORDS READ = PRU SIZE - WORDS LEFT    IRCP      488
          SA7    TAPEWC            STORE WORD COUNT                      IRCP      489
          MX2    57                                                      IRCP      490
          BX4    -X2*X3            CHECK FOR END OF REEL                 IRCP      491
          BX5    -X2-X4                                                  IRCP      492
          NZ   X5,PL6              JUMP IF NOT END OF REEL               IRCP      493
          SX1    30B               REWIND TAPE                           IRCP      494
          RJ   PLTAPEF                                                   IRCP      495
PL5       OPCOM  A,(PMHDR,PMINFO,PMREEL)                                 IRCP      496
          RJ   WAITGO              WAIT FOR OPERATOR TO TYPE GO          IRCP      497
          NZ   X6,PL5                                                    IRCP      498
          SX1    30B               REWIND TAPE                           IRCP      499
          RJ   PLTAPEF                                                   IRCP      500
          SX7    B1                SET FIRST FLAG                        IRCP      501
          SA7    TCALL1                                                  IRCP      502
          RJ   PLMSG1              CLEAR OUT END OF REEL MESSAGE         IRCP      503
          EQ   PL1                 GO READ TAPE AGAIN                    IRCP      504
                                                                         IRCP      505
PL6       MX0    48                CHECK FOR END OF FILE                 IRCP      506
          BX5    -X0*X3                                                  IRCP      507
          SX6    X5-7405B          LEVEL 17                              IRCP      508
          SA6    EOF                                                     IRCP      509
          ZR   X6,PL8              JUMP IF EOF                           IRCP      510
          SA1    TBUFS             CHANGE BUFFER SWITCH SO AS TO         IRCP      511
          LX1    30                READ FROM THE OTHER BUFFER            IRCP      512
          BX6    X1                                                      IRCP      513
          SA6    A1                                                      IRCP      514
          EQ   PL1                 GO READ THE NEXT TAPE RECORD          IRCP      515
                                                                         IRCP      516
*         PROCESS PROGRAM NAME AT START OF EACH PROGRAM                  IRCP      517
                                                                         IRCP      518
PL7       SA1    SHORTSW                                                 IRCP      519
          SX2    TAPEPRU                                                 IRCP      520
          SA5    TAPEWC            WORD COUNT THIS TAPE RECORD           IRCP      521
          IX7    X2-X5             STORE FLAG TO INDICATE WHETHER OR     IRCP      522
          SA7    A1                NOT THIS RECORD WAS SHORT             IRCP      523
          ZR   X1,PL9              JUMP IF THE LAST RECORD WAS NOT SHORT IRCP      524
          SA2    TBUFS                                                   IRCP      525
          LX2    30                ADDRESS OF BUFFER BEING PROCESSED     IRCP      526
          SA1    X2                FIRST WORD OF RECORD                  IRCP      527
          MX0    6                                                       IRCP      528
          BX2    X0*X1             CHECK FOR 77 PREFIX                   IRCP      529
          MX3    18                                                      IRCP      530
          BX2    X2-X0                                                   IRCP      531
          BX6    X1*X3             NAME IS HERE IF ABSOLUTE RECORD       IRCP      532
          MX0    42                                                      IRCP      533
          NZ   X2,PL8              JUMP IF ABS. RECORD (NO 77 PREFIX)    IRCP      534
          SA1    A1+B1             NAME IS IN NEXT WORD                  IRCP      535
          BX6    X0*X1             ISOLATE NAME OF THIS PROGRAM          IRCP      536
PL8       RJ   SQUANK              ADD BLANKS TO NAME                    IRCP      537
          SA6    PMPROG            STORE NAME IN MESSAGE                 IRCP      538
          RJ   PLMSG1              DISPLAY AGAIN SO THAT NAME WILL SHOW  IRCP      539
                                                                         IRCP      540
*         FORMAT INPUT FROM TAPE RECORD FOR OUTPUT IN PRUS TO THE        IRCP      541
*         RMS DEVICE.                                                    IRCP      542
                                                                         IRCP      543
PL9       SA1    TBUFS             INITIALIZE CURRENT FETCH ADDRESS      IRCP      544
          AX1    30                FROM TAPE BUFFER                      IRCP      545
          SX6    X1                                                      IRCP      546
          SA6    TFETCH                                                  IRCP      547
PL10      SA5    TAPEWC            GET REMAINING WD CT FROM TAPE READ    IRCP      548
          ZR   X5,PL12             JUMP IF DEPLETED                      IRCP      549
          NG   X5,PL2              JUMP IF DEPLETED PREVIOUSLY           IRCP      550
          SX7    RMSPRU            RMS PRU SIZE                          IRCP      551
          IX6    X5-X7             REDUCE WORD COUNT BY PRU SIZE         IRCP      552
          PL   X6,PL11             JUMP IF FULL PRU CAN BE WRITTEN       IRCP      553
          BX7    X5                SET WORD COUNT FOR SHORT PRU          IRCP      554
PL11      SA6    A5                STORE UPDATED TAPE WORD COUNT         IRCP      555
          RJ   PLPRU               OUTPUT A PRU                          IRCP      556
          EQ   PL10                LOOP THRU TAPE DATA                   IRCP      557
                                                                         IRCP      558
PL12      SA1    SHORTSW           GET SHORT SWITCH                      IRCP      559
          ZR   X1,PL2              JUMP IF THIS WAS A FULL TAPE RECORD   IRCP      560
          MX7    0                 OUTPUT A ZERO-LENGTH PRU              IRCP      561
          RJ   PLPRU               (EITHER EOF OR LEVEL ZERO SHORT)      IRCP      562
          SA1    EOF                                                     IRCP      563
          NZ   X1,PL2              CONTINUE IF EOF NOT PROCESSED         IRCP      564
                                                                         IRCP      565
*         COMPLETION OF PRELOADING.  SET UP FNT ENTRY FOR SYSTEM         IRCP      566
*         AND COMPLETE RBT BY ADDING INFORMATION TO 1ST WORD PAIR.       IRCP      567
                                                                         IRCP      568
          RJ   PLWAITR             WAIT FOR FINAL RMS REQUEST TO FINISH  IRCP      569
          S      A1,P.FNT                                                IRCP      570
          MX0    48                                                      IRCP      571
          AX1    48                                                      IRCP      572
          BX1    -X0*X1            FWA OF FNT                            IRCP      573
          SA2    SYNAME            FIND ENTRY FOR SYSTEM FILE            IRCP      574
          MX0    42                                                      IRCP      575
PL13      SA3    X1                GET ENTRY                             IRCP      576
          BX4    X3-X2             COMPARE WITH NAME *SYSTEM *           IRCP      577
          BX4    X0*X4                                                   IRCP      578
          SX1    X1+LE.FNT         ADVANCE SEARCH BY FNT LENGTH          IRCP      579
          NZ   X4,PL13             LOOP ON MISS                          IRCP      580
          SA2    FSYSDT            GET DEVICE TYPE (1ST DEVICE)          IRCP      581
          SA5    FRBTADR           GET 1ST RBT ADDRESS                   IRCP      582
          SX7    4                 1ST RBT ORDINAL = 0, BYTE = 4         IRCP      583
          BX6    X5                                                      IRCP      584
          LX2    54                SHIFT EVERYTHING INTO PLACE           IRCP      585
          LX5    36                AND COMBINE                           IRCP      586
          LX6    24                                                      IRCP      587
          LX7    12                                                      IRCP      588
          BX2    X2+X5             (PRU = 0)                             IRCP      589
          BX6    X6+X7                                                   IRCP      590
          BX6    X2+X6                                                   IRCP      591
          SA6    A3+B1             STORE FST WORD 1                      IRCP      592
          MX0    24                                                      IRCP      593
          SA1    MEMSIZE           GET 1ST WORD OF 1ST WORD PAIR         IRCP      594
          AX5    35                OF SYSTEM RBT                         IRCP      595
          IX1    X1-X5                                                   IRCP      596
          SA2    X1                                                      IRCP      597
          BX2    X0*X2                                                   IRCP      598
          SA3    T.PPC2+W.PPMES1   GET 1ST WORD OF RMS REQUEST           IRCP      599
          AX3    24                                                      IRCP      600
          MX0    48                                                      IRCP      601
          SA4    CURPRU            EOI PRU NUMBER                        IRCP      602
          BX5    -X0*X3            LAST RBT ORDINAL AND BYTE             IRCP      603
          MX1    1                 POSITION RANDOM FILE BIT              IRCP      604
          LX1    31                                                      IRCP      605
          LX4    12                                                      IRCP      606
          BX1    X1+X4                                                   IRCP      607
          BX5    X5+X1                                                   IRCP      608
          BX7    X5+X2             ADD THIS TO 1ST WORD PAIR             IRCP      609
          SA7    A2                AND STORE IT                          IRCP      610
          SA2    A2+B1             GET 2ND WORD OF 1ST WORD PAIR         IRCP      611
          LX4    36                ADD THE EOI PRU NUMBER TO IT          IRCP      612
          BX7    X2+X4                                                   IRCP      613
          SA7    A2                AND STORE IT                          IRCP      614
          RJ   CKCHAIN             CHECK EMPTY CHAIN                     IRCP      615
          SX1    30B               REWIND TAPE                           IRCP      616
          RJ   PLTAPEF                                                   IRCP      617
          OPCOM  X,(PMHDR,PMINFO,PMDONE)                                 IRCP      618
          EQ   PRELOAD             EXIT                                  IRCP      619
          TITLE                   PRELOADER --- SUBROUTINE PLDEV         IRCP      620
*         PLDEV -- SET UP FOR NEXT DEVICE FOR PRELOADING                 IRCP      621
                                                                         IRCP      622
*               ENTRY - B1 = 1                                           IRCP      623
                                                                         IRCP      624
PLDEV     DATA   0                                                       IRCP      625
PLDEV0    SA1    CURRBR                                                  FCON      138
          ZR   X1,PLDEV09          JUMP IF FIRST RBR FOR DEVICE          FCON      139
          SA4    ESTADR                                                  FCON      140
          SA5    X4                GET EST ENTRY                         FCON      141
          MX0    49                                                      FCON      142
          AX5    12                                                      FCON      143
          BX5    -X0*X5            HARDWARE MNEMONIC FROM EST            FCON      144
          SB3    PLUG-DEVTABLE-1                                         FCON      145
PLDEV02   SA2    B3+DEVTABLE       READ MNEMONIC FROM TABLE              FCON      146
          LX2    12                                                      FCON      147
          BX6    -X0*X2                                                  FCON      148
          BX7    X6-X5             COMPARE WITH MNEMONIC FROM EST        FCON      149
          ZR   X7,PLDEV04          JUMP IF MNEMONICS MATCH               FCON      150
          SB3    B3-B1                                                   FCON      151
          PL   B3,PLDEV02          LOOP UNTIL MATCH FOUND                FCON      152
          SX4    B1                ASSUME 1 IF NO MATCH (SHOULD NOT      FCON      153
                                    OCCUR)                               FCON      154
          EQ   PLDEV06                                                   FCON      155
PLDEV04   SA4    B3+RBRTABLE       READ NUMBER OF RBR S FOR DEVICE       FCON      156
PLDEV06   IX7    X1-X4                                                   FCON      157
          PL   X7,PLDEV09          JUMP IF NO MORE RBR S FOR DEVICE      FCON      158
                                                                         FCON      159
*         THIS CODE ASSUMES DST IMMEDIATELY FOLLOWS RBR AREA IN CMR      FCON      160
                                                                         FCON      161
          S      A4,P.RQS                                                FCON      162
          MX0    48                                                      FCON      163
          BX4    -X0*X4                                                  FCON      164
          LX4    3                                                       FCON      165
          SB5    X4                B5 = ADDR OF DST = END OF RBR AREA    FCON      166
          SA2    RBRADR            ADDRESS OF CURRENT RBR                FCON      167
          SA3    RBRORD            ORDINAL OF CURRENT RBR                FCON      168
          MX0    6                                                       FCON      169
          LX0    42                POSITION MASK OVER EST ORD FIELD      FCON      170
          SA5    ESTORD            CURRENT EST ORDINAL                   FCON      171
          SX7    X2+RBRLTH                                               FCON      172
          SX6    X3+B1                                                   FCON      173
          LX5    36                POSITION EST ORDINAL FOR COMPARE      FCON      174
PLDEV07   SA4    X7+B1             SECOND WORD OF RBR                    FCON      175
          SB6    A4-B5                                                   FCON      176
          PL   B6,PLDEV09          JUMP ON END OF RBR AREA (SHOULD NOT   FCON      177
                                    OCCUR)                               FCON      178
          BX4    X4*X0             ISOLATE EST ORD                       FCON      179
          IX4    X4-X5             COMPARE                               FCON      180
          ZR   X4,PLDEV08          JUMP ON MATCH                         FCON      181
          SX6    X6+B1             BUMP ORDINAL                          FCON      182
          SX7    X7+RBRLTH         BUMP ADDRESS                          FCON      183
          EQ   PLDEV07             LOOP UNTIL MATCH FOUND                FCON      184
PLDEV08   SA6    A3                STORE ORDINAL AND ADDRESS             FCON      185
          SA7    A2                                                      FCON      186
          EQ   PLDEV25                                                   FCON      187
PLDEV09   SA4    DEVCT             BUMP DEVICE COUNT                     FCON      188
          SX7    X4+B1                                                   IRCP      627
          SA7    A4                                                      IRCP      628
          SX2    X4-MSYSDEV                                              IRCP      629
          NG   X2,PLDEV1           JUMP IF NOT TOO MANY DEVICES          IRCP      630
          OPCOM  X,(PMHDR,PMINFO,PMOV1)                                  IRCP      631
          PS                                                             IRCP      632
                                                                         IRCP      633
PLDEV1    SA2    DEVICES           WORD WITH ALL EST ORDINALS            IRCP      634
          MX0    48                                                      IRCP      635
          LX2    12                SHIFT AND STORE BACK                  IRCP      636
          BX7    X2                                                      IRCP      637
          SA7    A2                                                      IRCP      638
          BX7    -X0*X2            GET THE ONE WE WANT NEXT              IRCP      639
          S      A1,P.EST          COMPUTE EST ADDRESS                   IRCP      640
          LX1    12                                                      IRCP      641
          BX6    -X0*X1                                                  IRCP      642
          IX6    X7+X6                                                   IRCP      643
          SA6    ESTADR            SAVE EST ADDRESS                      IRCP      644
          SA7    ESTORD            SAVE EST ORDINAL                      IRCP      645
          NZ   X7,PLDEV2           JUMP IF THERE IS ANOTHER DEVICE       IRCP      646
          OPCOM  X,(PMHDR,PMINFO,PMOV2)                                  IRCP      647
          PS                                                             IRCP      648
                                                                         IRCP      649
PLDEV2    SX6    B1                                                      FCON      189
          SA6    CURRBR            INITIALIZE RBR COUNTER FOR DEVICE     FCON      190
          BX5    X7                SET X5 = ESTORD                       FCON      191
          SA1    ESTADR                                                  FCON      192
         SA5     ESTORD                                                  SC3131      2
         SA1     X1                                                      SC3131      3
         LX1     36                                                      SC3131      4
         NG    X1,PLDEV0           JMP, DEVICE OFF                       SC3131      5
          RJ   GETRBR              GET RBR ORDINAL AND ADDRESS           IRCP      651
PLDEV25   SX5    PMDEV             SET UP PRELOADING MESSAGE             FCON      193
          RJ   DEVINFO             TO SHOW DEVICE INFORMATION            IRCP      653
          RJ   PLMSG1              GO DISPLAY THIS INFORMATION           IRCP      654
          SA1    RBRADR            MAKE SURE THAT THERE ARE AT LEAST     IRCP      655
          MX0    48                TWO FREE RBS ON THIS DEVICE           IRCP      656
          SA1    X1+B1                                                   IRCP      657
          AX1    12                                                      IRCP      658
          BX1    -X0*X1            LOGICAL AVAILABILITY                  IRCP      659
          SX1    X1-2                                                    IRCP      660
          NG   X1,PLDEV0           JUMP IF LESS THAN 2 FREE RBS          IRCP      661
                                                                         IRCP      662
*         INITIALIZE RMS REQUEST                                         IRCP      663
                                                                         IRCP      664
          SA4    DEVCT             DEVICE COUNT                          IRCP      665
          MX5    0                 BYTE = 0, EXCEPT FOR 1ST DEVICE       IRCP      666
          MX0    12                POSITION INIT. FLAG FOR PRU FIELD     IRCP      667
          LX0    24                                                      IRCP      668
          SX4    X4-1              (NO. OF DEVICES SO FAR) - 1           IRCP      669
          NZ   X4,PLDEV3           JUMP IF NOT 1ST DEVICE                IRCP      670
          SX5    4                 BYTE = 4 FOR 1ST DEVICE               IRCP      671
          SA1    RMSREQ            MOVE THE INITIAL REQUEST TO           IRCP      672
          SA2    A1+B1             FIRST 2 WORDS OF PP2 MESSAGE BUFFER   IRCP      673
          BX7    X1                                                      IRCP      674
          SA7    T.PPC2+W.PPMES1                                         IRCP      675
          BX7    X2                                                      IRCP      676
          SA7    A7+B1                                                   IRCP      677
PLDEV3    SA1    T.PPC2+W.PPMES1   GET 1ST WORD OF REQUEST               IRCP      678
          BX7    X0+X1             PRU = 7777B FOR 1ST REQUEST           IRCP      679
          SA7    A1                                                      IRCP      680
          SA4    RBRORD            GET RBR ORDINAL                       IRCP      681
          LX4    3                                                       IRCP      682
          BX7    X4+X5             MERGE RBR ORDINAL AND BYTE            IRCP      683
          SA1    A1+B1             2ND WORD OF REQUEST                   IRCP      684
          MX0    48                                                      IRCP      685
          BX1    X0*X1             INSERT NEW RBR ORDINAL AND BYTE       IRCP      686
          IX7    X1+X7                                                   IRCP      687
          SA7    A1                STORE 2ND WORD                        IRCP      688
                                                                         IRCP      689
*         MAKE 1ST RMS REQUEST FOR DEVICE                                IRCP      690
                                                                         IRCP      691
          MX7    0                 ACTIVATE RMS CONTROL                  IRCP      692
          SA7    T.PPC2+W.PPIR     BY CLEARING PP2 INPUT REGISTER        IRCP      693
PLDEV4    SA5    A7                WAIT UNTIL RMS IS DONE                IRCP      694
          ZR   X5,PLDEV4                                                 IRCP      695
          AX7    X5,B1             CHECK FOR ANY ERROR STATUS            IRCP      696
          ZR   X7,PLDEV5           JUMP IF OK                            IRCP      697
          OPCOM  X,(PMHDR,PMINFO,ERR3)                                   IRCP      698
          PS                                                             IRCP      699
                                                                         IRCP      700
PLDEV5    SA1    T.PPC2+W.PPMES1   GET BOTH WORDS OF REQUEST             IRCP      701
          SA2    A1+B1                                                   IRCP      702
          MX3    52                SAVE RB SIZE                          IRCP      703
          AX2    16                                                      IRCP      704
          BX7    -X3*X2                                                  IRCP      705
          SA7    RBSIZE                                                  IRCP      706
          SA4    DEVCT             NUMBER OF SYSTEM DEVICES SO FAR       IRCP      707
          SX4    X4-1                                                    IRCP      708
          NZ   X4,PLDEV6           JUMP IF NOT 1ST DEVICE                IRCP      709
          LX1    12                SAVE 1ST RBT ADDRESS SO AS            IRCP      710
          BX7    -X0*X1            TO BE ABLE TO FIND THE 1ST            IRCP      711
          SA7    FRBTADR           WORD PAIR LATER.                      IRCP      712
          SA2    RBRADR            GET DEVICE TYPE FROM RBR AND SAVE     IRCP      713
          MX3    6                 IT IS NEEDED FOR SYSTEM FNT ENTRY     IRCP      714
          SA5    X2                                                      IRCP      715
          BX6    X3*X5                                                   IRCP      716
          LX6    6                                                       IRCP      717
          SA6    FSYSDT                                                  IRCP      718
PLDEV6    RJ   CKCHAIN             CHECK LENGTH OF EMPTY CHAIN           IRCP      719
          EQ   PLDEV               EXIT                                  IRCP      720
          TITLE                   PRELOADER --- SUBROUTINE PLPRU         IRCP      721
*         PLPRU -- MOVE A PRU OF DATA FROM TAPE BUFFER TO RMS BUFFER     IRCP      722
*                  AND CALL RMS DRIVER WHEN RB OF DATA HAS BEEN STORED.  IRCP      723
                                                                         IRCP      724
*               ENTRY - X7 = NO. OF CM WORDS TO PUT IN PRU               IRCP      725
*                       B1 = 1                                           IRCP      726
                                                                         IRCP      727
PLPRU     DATA   0                                                       IRCP      728
          SB5    X7+B1             B5 = NO. OF CM WORDS FOR PRU          IRCP      729
          MX1    0                 INITIALIZE CHECKSUM                   IRCP      730
          SA2    TFETCH                                                  IRCP      731
          BX4    X7                                                      IRCP      732
          SA5    X2-1              A5 = FETCH ADDRESS FORM TAPE BUFFER   IRCP      733
          LX7    2                                                       IRCP      734
          SA3    RSTORE            GET STORE ADDRESS                     IRCP      735
          IX4    X4+X7             PRU WORD COUNT IN BYTES               IRCP      736
          SB2    X3                SAVE FWA OF THIS PRU IN B2            IRCP      737
          SA2    B2-B1                                                   IRCP      738
          MX5    0                 NEEDED FOR CORRECT CHECKSUM           IRCP      739
          BX6    X2                                                      IRCP      740
          SA6    A2                A6 = STORE ADDRESS TO RMS BUFFER      IRCP      741
                                                                         IRCP      742
*         TRANSFER DATA BETWEEN BUFFERS                                  IRCP      743
                                                                         IRCP      744
PLPRU1    BX6    X5                                                      IRCP      745
          SB5    B5-B1             REDUCE COUNT                          IRCP      746
          SA6    A6+B1             STORE IN RMS BUFFER                   IRCP      747
          IX1    X1+X5             ADD TO CHECKSUM                       IRCP      748
          SA5    A5+B1             GET NEXT WORD FROM TAPE BUFFER        IRCP      749
          NZ   B5,PLPRU1           LOOP                                  IRCP      750
                                                                         IRCP      751
*         STORE ZEROES IN REMAINDER OF PRU AND SET LEVEL 17 IF EOF PRU   IRCP      752
                                                                         IRCP      753
          MX6    0                 LEV 0 FOR ANY SHORT PRU EXCEPT LAST   IRCP      754
          SB3    RMSPRU            PRU SIZE IN CM WORDS                  IRCP      755
          SA2    EOF                                                     IRCP      756
          NZ   X2,PLPRU2           JUMP IF NOT EOF PRU                   IRCP      757
          MX6    4                 SET 1ST WORD AFTER DATA               IRCP      758
          LX6    52                = 00170000000000000000B               IRCP      759
PLPRU2    SB3    B2+B3             LWA+1 FOR STORE OF A FULL PRU         IRCP      760
          SX7    B3+B1             UPDATE POINTER TO OUTPUT BUFFER       IRCP      761
          SA7    RSTORE                                                  IRCP      762
PLPRU3    SB4    A6-B3             COMPARE WITH LAST ADDRESS STORED AT   IRCP      763
          ZR   B4,PLPRU4           JUMP IF PRU COMPLETE                  IRCP      764
          SA6    A6+B1             STORE A WORD                          IRCP      765
          MX6    0                 ALWAYS STORE ZERO AFTER 1ST           IRCP      766
          EQ   PLPRU3              LOOP                                  IRCP      767
                                                                         IRCP      768
PLPRU4    SX7    A5                UPDATE TAPE BUFFER FETCH ADDRESS      IRCP      769
          SA7    TFETCH                                                  IRCP      770
                                                                         IRCP      771
*         FORM 12-BIT CHECKSUM AND STORE IN 1ST WORD OF PRU              IRCP      772
                                                                         IRCP      773
          MX2    48                                                      IRCP      774
          SB4    4                                                       IRCP      775
PLPRU5    BX3    X1*X2             SAVE UPPER                            IRCP      776
          AX3    12                MOVE UPPER OVER                       IRCP      777
          BX1    -X2*X1            SAVE LOWER                            IRCP      778
          IX1    X1+X3             COMBINE UPPER AND LOWER               IRCP      779
          SB4    B4-B1             4 TIMES                               IRCP      780
          NZ   B4,PLPRU5           LOOP                                  IRCP      781
          BX1    -X2*X1            KEEP 12 BITS ONLY                     IRCP      782
          LX1    12                                                      IRCP      783
          IX6    X1+X4             BYTE COUNT HAS BEEN KEPT IN X4        IRCP      784
          SA6    B2                FWA OF PRU WAS KEPT IN B2             IRCP      785
                                                                         IRCP      786
*         CHECK IF THE CURRENT SYSTEM DEVICE IS FULL AND, IF SO,         IRCP      787
*         INITIALIZE NEXT DEVICE.  THIS CHECK IS IN THIS PARTICULAR      IRCP      788
*         LOCATION SO THAT A NEW DEVICE WILL BE INITIALIZED ONLY         IRCP      789
*         IF WE KNOW THERE IS AT LEAST ONE MORE PRU OF DATA TO WRITE.    IRCP      790
                                                                         IRCP      791
          SA2    DEVSW                                                   IRCP      792
          ZR   X2,PLPRU6           JUMP IF NOT AT END OF DEVICE          IRCP      793
          MX7    0                 CLEAR FLAG                            IRCP      794
          SA7    A2                                                      IRCP      795
          RJ   PLWAITR             WAIT FOR LAST RMS REQUEST             IRCP      796
          RJ   PLDEV               GO SET UP FOR NEXT DEVICE             IRCP      797
                                                                         IRCP      798
*         ADVANCE PRU COUNT AND CHECK FOR END OF RB                      IRCP      799
                                                                         IRCP      800
PLPRU6    SA1    CURPRU            NUMBER OF PRUS ALREADY TAKEN          IRCP      801
          SX7    X1+B1                                                   IRCP      802
          SA7    A1                UPDATE PRU COUNT                      IRCP      803
          SA2    RBSIZE            (MAXIMUM PRUS/RB) - 1                 IRCP      804
          SA3    EOF               CHECK FOR EOF                         IRCP      805
          ZR   X3,PLPRU7           IF AT EOF, DO NOT RESET PRU COUNT     IRCP      806
          IX2    X2-X7             COMPARE PRU COUNT WITH RB MAXIMUM     IRCP      807
          PL   X2,PLPRU            EXIT IF RB IS NOT YET FULL            IRCP      808
          MX6    0                 RB IS FULL AND THIS IS NOT EOF        IRCP      809
          SA6    A1                RESET PRU COUNT                       IRCP      810
                                                                         IRCP      811
*         OUTPUT RB                                                      IRCP      812
                                                                         IRCP      813
PLPRU7    RJ   PLWAITR             WAIT FOR PREVIOUS RMS REQUEST         IRCP      814
          RJ   CKCHAIN             CHECK EMPTY RBT CHAIN                 IRCP      815
          SA1    RBUFS             SWITCH BUFFER POINTERS                IRCP      816
          BX7    X1                                                      IRCP      817
          LX7    30                                                      IRCP      818
          SA7    A1                                                      IRCP      819
          SA2    T.PPC2+W.PPMES2   GET 2ND WORD OF REQUEST               IRCP      820
          MX3    36                                                      IRCP      821
          BX2    -X3*X2            MASK OUT OLD FWA AND RB COUNT         IRCP      822
          SX7    X7                FWA OF BUFFER                         IRCP      823
          SX6    B1                RB COUNT                              IRCP      824
          LX7    24                FORM 2ND WORD FOR REQUEST             IRCP      825
          LX6    48                                                      IRCP      826
          BX7    X7+X2                                                   IRCP      827
          IX7    X7+X6                                                   IRCP      828
          SA7    A2                STORE NEW REQUEST                     IRCP      829
          MX6    0                 ACTIVATE RMS                          IRCP      830
          SA6    T.PPC2+W.PPIR                                           IRCP      831
          SX7    X1                INITIALIZE STORE ADDRESS FOR NEXT RB  IRCP      832
          SA7    RSTORE                                                  IRCP      833
          EQ   PLPRU               EXIT                                  IRCP      834
          TITLE                   PRELOADER --- SUBROUTINE PLMSG1        IRCP      835
*         PLMSG1 -- OUTPUT NORMAL PRELOADING DISPLAY                     IRCP      836
                                                                         IRCP      837
*                ENTRY - B1 = 1                                          IRCP      838
                                                                         IRCP      839
*                EXIT  - B-REGISTERS ARE SAVED                           IRCP      840
                                                                         IRCP      841
PLMSG1    DATA   0                                                       IRCP      842
          OPCOM  X,(PMHDR,PMINFO)                                        IRCP      843
          EQ   PLMSG1              EXIT                                  IRCP      844
          TITLE                   PRELOADER --- SUBROUTINE PLWAITR       IRCP      845
*         PLWAITR -- WAIT FOR LAST RMS REQUEST TO COMPLETE               IRCP      846
*                    ALSO HANDLE ERROR CHECKING                          IRCP      847
                                                                         IRCP      848
*                 ENTRY - B1 = 1                                         IRCP      849
                                                                         IRCP      850
PLWAITR   DATA   0                                                       IRCP      851
                                                                         IRCP      852
*         WAIT FOR RMS COMPLETION                                        IRCP      853
                                                                         IRCP      854
PLW1      SA1    T.PPC2+W.PPIR                                           IRCP      855
          ZR   X1,PLW1                                                   IRCP      856
                                                                         IRCP      857
*         CHECK FOR ERRORS                                               IRCP      858
                                                                         IRCP      859
          LX1    54                CHECK FOR ILLEGAL REQUEST (SHOULD     IRCP      860
          PL   X1,PLW2             NOT OCCUR)                            IRCP      861
          OPCOM  X,(PMHDR,PMINFO,ERR3)                                   IRCP      862
          PS                                                             IRCP      863
                                                                         IRCP      864
PLW2      LX1    1                 CHECK FOR REJECT                      IRCP      865
          SX2    DVERMSG2          ADDRESS TO STORE ERROR INFO           IRCP      866
          PL   X1,PLW3                                                   IRCP      867
          RJ   DEVERR              INSERT DEVICE ERROR INFO              IRCP      868
          OPCOM  X,(PMHDR,PMINFO,PMDREJ,DVERMSG)                         IRCP      869
          PS                                                             IRCP      870
                                                                         IRCP      871
PLW3      LX1    1                 CHECK FOR LOST DATA                   IRCP      872
          PL   X1,PLW4                                                   IRCP      873
          RJ   DEVERR              INSERT DEVICE ERROR INFO              IRCP      874
          OPCOM  X,(PMHDR,PMINFO,PMDLD,DVERMSG)                          IRCP      875
          PS                                                             IRCP      876
                                                                         IRCP      877
*         CHECK TO SEE IF THE DEVICE IS FULL BY CHECKING TO SEE IF       IRCP      878
*         THE LOGICAL AVAILABILITY IS NOW REDUCED TO ONE, THAT IS,       IRCP      879
*         THE DATA CURRENTLY SET UP IN THE BUFFER WILL BE FOR THE        IRCP      880
*         LAST RB.                                                       IRCP      881
                                                                         IRCP      882
PLW4      SA1    RBRADR            RBR ADDRESS                           IRCP      883
          MX7    48                                                      IRCP      884
          SA3    X1+B1             2ND WORD OF RBR HEADER                IRCP      885
          AX3    12                                                      IRCP      886
          BX3    -X7*X3            LOGICAL AVAILABILITY                  IRCP      887
          SX3    X3-1                                                    IRCP      888
          NZ   X3,PLWAITR          EXIT IF NOT TIME TO SWITCH            IRCP      889
          SA7    DEVSW             SET FLAG FOR END OF DEVICE            IRCP      890
          EQ   PLWAITR             EXIT                                  IRCP      891
          TITLE                   PRELOADER --- SUBROUTINE PLTAPEF       IRCP      892
*         PLTAPEF -- ISSUE TAPE MOTION FUNCTIONS                         IRCP      893
                                                                         IRCP      894
*                 ENTRY - X1 = ONE OF THE FOLLOWING -                    IRCP      895
*                              30 = REWIND                               IRCP      896
*                              34 = UNLOAD                               IRCP      897
*                         B1 = 1                                         IRCP      898
                                                                         IRCP      899
*                 EXIT  - B-REGISTERS ARE SAVED                          IRCP      900
                                                                         IRCP      901
PLTAPEF   DATA   0                                                       IRCP      902
          BX6    X1                PLACE REQUEST IN MESSAGE BUFFER       IRCP      903
          SA6    T.PPC1+W.PPMES1   (CODE FIELD IS ALL THAT IS NEEDED)    IRCP      904
          MX7    0                 CALL TAPE CONTROL                     IRCP      905
          SA7    T.PPC1+W.PPIR                                           IRCP      906
PLT1      SA1    A7                WAIT UNTIL COMPLETED                  IRCP      907
          ZR   X1,PLT1                                                   IRCP      908
          EQ   PLTAPEF             EXIT                                  IRCP      909
          TITLE                   PRELOADER --- MESSAGES                 IRCP      910
                                                                         IRCP      911
*         THE FOLLOWING MESSAGES ARE DIRECTLY RELATED TO PRELOADING.     IRCP      912
                                                                         IRCP      913
          SPACE  3                                                       IRCP      914
PMHDR     MSGLST  LARGE,RIGHT                                            IRCP      915
          MSGTEXT  (  PRELOADING)                                        IRCP      916
          ENDLST                                                         IRCP      917
PMINFO    MSGLST   MEDIUM,RIGHT                                          IRCP      918
          POSTXT  *,6                                                    IRCP      919
PM1       MSGTEXT  (PROGRAM --          )                                IRCP      920
PMPROG    EQU    PM1+2                                                   IRCP      921
          POSTXT  *,9                                                    IRCP      922
PM2       MSGTEXT  (DEV00 DVNAME CH00 EQ0 UN00)                          IRCP      923
PMDEV     EQU    PM2+1                                                   IRCP      924
          ENDLST                                                         IRCP      925
PMDONE    MSGLST  MEDIUM,RIGHT                                           IRCP      926
          POSTXT  8,16                                                   IRCP      927
          MSGTEXT  (PRELOADING COMPLETE)                                 IRCP      928
          ENDLST                                                         IRCP      929
PMREEL    QSTLST  MEDIUM,LEFT                                            IRCP      930
          QSTEXT  (END OF REEL - MOUNT NEXT)                             IRCP      931
          QSTEXT  (REEL AND TYPE GO)                                     IRCP      932
          ENDLST                                                         IRCP      933
PMOV1     MSGLST  MEDIUM,LEFT                                            IRCP      934
          POSTXT  *,10                                                   IRCP      935
          MSGTEXT  (SYSTEM OVERFLOWS 5 DEVICES)                          IRCP      936
          ENDLST                                                         IRCP      937
PMOV2     MSGLST  MEDIUM,LEFT                                            IRCP      938
          POSTXT  *,10                                                   IRCP      939
          MSGTEXT  (ALL SYSTEM DEVICES SPECIFIED)                        IRCP      940
          MSGTEXT  (ARE NOT ENOUGH TO HOLD ENTIRE)                       IRCP      941
          MSGTEXT  (SYSTEM. DEADSTART AGAIN AND)                         IRCP      942
          MSGTEXT  (SPECIFY MORE UNITS.)                                 IRCP      943
          ENDLST                                                         IRCP      944
PMDREJ    MSGLST  MEDIUM,LEFT                                            IRCP      945
          POSTXT  10,10                                                  IRCP      946
          MSGTEXT  (DEVICE REJECT)                                       IRCP      947
          ENDLST                                                         IRCP      948
PMDLD     MSGLST  MEDIUM,LEFT                                            IRCP      949
          POSTXT  9,10                                                   IRCP      950
          MSGTEXT  (DEVICE LOST DATA)                                    IRCP      951
          ENDLST                                                         IRCP      952
                                                                         IRCP      953
*         THE FOLLOWING MESSAGES ARE USED BY MANY ROUTINES OTHER         IRCP      954
*         THAN PRELOAD.                                                  IRCP      955
                                                                         IRCP      956
DVERMSG   MSGLST  MEDIUM,LEFT                                            IRCP      957
          POSTXT  *,17                                                   IRCP      958
          MSGTEXT  (RBR RB PRU DVST CVST  ADR-REG)                       IRCP      959
DVERMSG1  MSGTEXT  (                              )                      IRCP      960
DVERMSG2  EQU    DVERMSG1+1                                              IRCP      961
          ENDLST                                                         IRCP      962
NOMSG     MSGLST                                                         IRCP      963
          MSGTEXT  (        )                                            IRCP      964
          ENDLST                                                         IRCP      965
          TITLE                   PRELOADER --- LOCAL VARIABLES          IRCP      966
*         THE FOLLOWING ARE USED NOT ONLY BY PRELOAD, BUT MAY BE         IRCP      967
*         USED BY ANY ROUTINE IN THIS ENTIRE PROGRAM.                    IRCP      968
                                                                         IRCP      969
MEMSIZE   DATA   0                 SIZE OF CM  (18 BITS)                 IRCP      970
MAXECLIB  DATA     0               MAXIMUM ECS LIBRARY LENGTH            HS2IRCP    33
OLDECLWA  DATA     0               ECS LWA TO BE USED ON RECOVERY        HS2IRCP    34
NRBR      DATA   0                 NUMBER OF RBRS                        IRCP      971
ESTORD    DATA   0                 CURRENT SYSTEM DEVICE EST ORDINAL     IRCP      972
ESTADR    DATA   0                 CURRENT SYSTEM DEVICE EST ADDRESS     IRCP      973
 NOCKSUM  DATA     0               CHECKSUM FLAG                         BCIRCP     16
*                                  0 IMPLIES PERFORM CHECKSUM FOR        BCIRCP     17
*                                  SYSTEM FILE, NOT 0 IMPLIES DO NOT     BCIRCP     18
*                                  PERFORM CHECKSUM                      BCIRCP     19
RBRORD    DATA   0                 CURRENT SYSTEM DEVICE RBR ORDINAL     IRCP      974
RBRADR    DATA   0                 CURRENT SYSTEM DEVICE RBR ADDRESS     IRCP      975
RBSIZE    DATA   0                 (NO. PRUS) - 1 IN RB OF CURRENT DEV   IRCP      976
NUMRBR    DATA   0                 NO. OF RBR S PER UNIT OF CURRENT DEV  FCON      194
BLANKS    DATA   10H                                                     IRCP      977
*         THE FOLLOWING TABLE IS USED BY GETDEV TO DETERMINE FOR         BCIRCP     20
*         WHICH NO CHECKSUM IS RETURNED                                  BCIRCP     21
 SIZTABLE DEVBYTE                                                        BCIRCP     22
                                                                         FCON      195
*         THE FOLLOWING TABLE IS USED BY LF TO FIND THE NUMBER OF        FCON      196
*         RBR S FOR EACH DEVICE                                          FCON      197
                                                                         FCON      198
RBRTABLE  DEVRBRS                  THIS MACRO IS DEFINED IN DSLCOM       FCON      199
                                                                         FCON      200
                                                                         IRCP      978
*         THE FOLLOWING ARE USED BY PRELOAD ONLY.                        IRCP      979
                                                                         IRCP      980
*         THE FOLLOWING TABLE IS USED TO OBTAIN THE DEVICE NAME FOR      IRCP      981
*         ANY DEVICE MNEMONIC.                                           IRCP      982
                                                                         IRCP      983
DEVTABLE  DEVNAMES                 THIS MACRO IS DEFINED IN DSLCOM       IRCP      984
PLUG      VFD    12/0,48/8H------                                        IRCP      985
                                                                         IRCP      986
*         INITIAL FORM OF THE RMS REQUEST FOR WRITING DURING PRELOADING  IRCP      987
                                                                         IRCP      988
RMSREQ    VFD    12/0              FIRST RBT ADDRESS (SET BY RMS)        IRCP      989
          VFD    12/0              CURRENT RBT ADDRESS (SET BY RMS)      IRCP      990
          VFD    12/0              CURRENT ORDINAL AND BYTE (SET BY RMS) IRCP      991
          VFD    12/-0             1ST FLAG USED ONCE / DEVICE  (PRU)    IRCP      992
          VFD    12/4              ORDER CODE FOR WRITE WITH RBT         IRCP      993
          VFD    9/0               NUMBER OF PRUS TO WRITE +             IRCP      994
          VFD    3/0               NUMBER OF RBS TO WRITE                IRCP      995
          VFD    24/RMSBUF0        BUFFER ADDRESS                        IRCP      996
          VFD    12/0              RB SIZE (INSERTED BY RMS)             IRCP      997
          VFD    12/0              RBR ORDINAL AND BYTE (1ST/DEVICE)     IRCP      998
                                                                         IRCP      999
*         BUFFER SWITCHES -- RIGHT HALF = BUFFER BEING READ/WRITTEN      IRCP     1000
*                            LEFT HALF = BUFFER BEING PROCESSED BY IRCP  IRCP     1001
                                                                         IRCP     1002
RBUFS     VFD    30/RMSBUF0,30/RMSBUF1                                   IRCP     1003
TBUFS     VFD    30/TBUF1,30/TBUF0                                       IRCP     1004
DEVICES   DATA   0                 EST ORDINALS OF 1-5 SYSTEM DEVICES    IRCP     1005
DEVCT     DATA   0                 NUMBER OF SYSTEM DEVICES SO FAR       IRCP     1006
FRBTADR   DATA   0                 FIRST RBT ADDRESS OF SYSTEM FILE      IRCP     1007
FSYSDT    DATA   0                 DEVICE TYPE OF 1ST SYSTEM DEVICE      IRCP     1008
SYNAME    DATA   0LSYSTEM          USED FOR FINDING SYSTEM FNT ENTRY     IRCP     1009
SSSSSST   DATA   0LSSSSSST                                               IRCP     1010
SSSSSSU   DATA   0LSSSSSSU                                               IRCP     1011
TCALL1    DATA   1                 NON-ZERO FOR 1ST TAPE READ            IRCP     1012
DEVSW     DATA   0                 NON-ZERO IF CURRENT DEVICE FULL       IRCP     1013
EOF       DATA   1                 SET TO ZERO WHEN PROCESSING EOF       IRCP     1014
TAPEWC    DATA   0                 WORD COUNT OF LAST TAPE READ          IRCP     1015
SHORTSW   DATA   1                 NON-ZERO FOR SHORT TAPE RECORDS       IRCP     1016
TFETCH    VFD    60/TBUF0          FETCH ADDRESS FROM TAPE BUFFER        IRCP     1017
RSTORE    VFD    60/RMSBUF0        STORE ADDRESS FOR RMS BUFFER          IRCP     1018
CURPRU    DATA   0                 NO. OF FILLED PRUS IN CURRENT RB      IRCP     1019
ECSLWA    DATA      0                                                    BBBECS1     4
ECSTORE   DATA      0                                                    BBBECS1     5
ECBUF     BSSZ     1                                                     BBBECS1     6
 NOMODECD DATA     0                                                     HS2IRCS     2
          TITLE                   PRERECOV, RECOVERY                     IRCP     1020
          TITLE                   DEAD-START SYSTEM LOADER               IRCP     1021
*         LOAD -- MAIN SYSTEM LOADING ROUTINE                            IRCP     1022
          SPACE  1                                                       IRCP     1023
LOAD      PS                                                             IRCP     1024
          SB6    CPP36                                                   IRCP     1025
          SB1    1                                                       IRCP     1026
*         THE FOLLOWING READS THE FIRST RB OF SYSTEM.                    IRCP     1027
*         IT REQUIRES THAT THE FNT POINTER AND THE SYSTEM FNT ENTRY      IRCP     1028
*         BE INTACT.                                                     IRCP     1029
*                                                                        IRCP     1030
CPP0      RJ   SETREQ              GO SET UP RMSC REQUEST                IRCP     1031
          SX6    B0                                                      IRCP     1032
          SX7    -B1                                                     IRCP     1033
          SA6    FIRSTSP           SET FIRSTSP = 0                       IRCP     1034
          SA7    RBRORD            SET RBRORD = -1                       IRCP     1035
          SA7    PRUNO             SET PRUNO = -1                        IRCP     1036
          RJ   RDNXTRB             GO READ FIRST RB                      IRCP     1037
          SPACE  4                                                       IRCP     1038
*         THIS IS THE START OF THE MAIN LOOP FOR LOADING THE SYSTEM FILE IRCP     1039
          SPACE  1                                                       IRCP     1040
CPP21     RJ     CHKEND      CHECK FOR END OF RB                         IRCP     1041
          RJ     GETPARAM    GET WORD COUNT AND CHECKSUM                 IRCP     1042
          SA1    WORDCNT                                                 IRCP     1043
          NZ     X1,CPP37    JUMP IF WORD COUNT IS NON-ZERO              IRCP     1044
          SA1    GETPOINT    GET FIRST WORD OF PRU                       IRCP     1045
          SA1    X1                                                      IRCP     1046
          MX2    4                                                       IRCP     1047
          LX2    52          17B EOR (00170000000000000000B)             IRCP     1048
          IX0    X1-X2                                                   IRCP     1049
          ZR     X0,ENDFILE     YES, GO TO EOF PROCEDURE                 IRCP     1050
CPP37     JP     B6+0                                                    IRCP     1051
CPP36     SA1    FIRSTSP                                                 IRCP     1052
          ZR     X1,IGNORE    IF NOT FIRST PRU, GO TO IGNORE             IRCP     1053
          SA1    GETPOINT     GET FIRST WORD OF PRU                      IRCP     1054
          SA1    X1                                                      IRCP     1055
          SA2    =23241400B        STL0                                  IRCP     1056
          AX1    36                                                      IRCP     1057
          SA3    =15242200B        MTR0                                  IRCP     1058
          SA4    =04230400B        DSD0                                  IRCP     1059
          IX0    X1-X2                                                   IRCP     1060
          ZR   X0,STL1             GO TO STL ROUTINE                     IRCP     1061
          IX0    X1-X3                                                   IRCP     1062
          ZR   X0,MTR1             GO TO MTR ROUTINE                     IRCP     1063
          IX0    X1-X4                                                   IRCP     1064
          ZR   X0,DSD1             GO TO DSD ROUTINE                     IRCP     1065
          EQ     IGNORE      GO TO IGNORE                                IRCP     1066
          EJECT                                                          IRCP     1067
*         THIS SECTION PROCESSES STL                                     IRCP     1068
                                                                         IRCP     1069
STL1      SX6    STLBUF          SET STORE POINTER TO STLBUF             IRCP     1070
          SB6    STL2            SET SWITCH TO STL2                      IRCP     1071
          SA6    STOREPT                                                 IRCP     1072
STL2      RJ   PROCESSP          GO PROCESS THIS PRU                     IRCP     1073
          ZR   X6,CPP21          EXIT IF NOT SHORT                       IRCP     1074
          SB6    CPP36                                                   IRCP     1075
          EQ   CPP21                                                     IRCP     1076
          SPACE  3                                                       IRCP     1077
*         THIS SECTION PROCESSES MTR                                     IRCP     1078
                                                                         IRCP     1079
MTR1      SX6    MTRBUF      SET STOREPT TO MTRBUF(SAVE MTR THERE        IRCP     1080
          SA6    STOREPT       UNTIL PP CAN READ IT IN)                  IRCP     1081
          SB6    MTR2        SET SWITCH TO MTR2                          IRCP     1082
MTR2      RJ     PROCESSP    PROCESS THIS PRU                            IRCP     1083
          ZR     X6,CPP21    EXIT IF NOT SHORT                           IRCP     1084
          SB6    CPP36       SET SWITCH TO CPP36                         IRCP     1085
          EQ     CPP21                                                   IRCP     1086
          SPACE  3                                                       IRCP     1087
*         THIS SECTION PROCESSES DSD                                     IRCP     1088
                                                                         IRCP     1089
DSD1      SX6    DSDBUF      SAVE DSD IN DSDBUF                          IRCP     1090
          SA6    STOREPT                                                 IRCP     1091
          SB6    DSD2                                                    IRCP     1092
DSD2      RJ     PROCESSP    PROCESS PRU                                 IRCP     1093
          ZR     X6,CPP21                                                IRCP     1094
                                                                         IRCP     1095
*         IF THIS WAS A RECOVERY, IT IS NOW TIME TO GO DIFFERENT         IRCP     1096
*         WAYS DEPENDING ON THE TYPE OF RECOVERY BEING PERFORMED.        IRCP     1097
*         TYPES A AND B SIMPLY INVOLVE LOADING THE FILE SYSTEM, WHICH    IRCP     1098
*         IS THE WAY DEAD-START LOADER HAS ALWAYS FUNCTIONED IN THE      IRCP     1099
*         PAST.  TYPES C AND D REQUIRE A DIFFERENT TYPE OF PROCESSING    IRCP     1100
*         AND DO NOT FLOW THROUGH THE EPT1-PNT1-LIB1 SEQUENCE.           IRCP     1101
                                                                         IRCP     1102
          SA1    CEDARGS           CHECK IF THIS IS A RECOVERY           IRCP     1103
          MX0    48                                                      IRCP     1104
          BX2    -X0*X1                                                  IRCP     1105
          SX2    X2-2                                                    IRCP     1106
          NZ   X2,MODEAB           JUMP IF NOT RECOVERY                  IRCP     1107
          SA1    SYSFLAG           THIS WAS SET UP BY RECOVERY           IRCP     1108
          SB2    X1-2              -2=MODEA, -1=MODEB, 0=MODEC, 1=MODED  IRCP     1109
          PL   B2,MODEC            JUMP IF MODE C OR D                   IRCP     1110
MODEAB    SB6    EPT1              SET SWITCH TO EPT1                    IRCP     1111
          EQ     CPP21                                                   IRCP     1112
          EJECT                                                          IRCP     1113
*         THIS SECTION PROCESSES ENTRY POINT TABLE                       IRCP     1114
                                                                         IRCP     1115
EPT1      SA1    P.LIB       SAVE ADDRESS OF BEGINNING OF EPT AT         IRCP     1116
          AX1    36            LOCA                                      IRCP     1117
          SX6    X1                                                      IRCP     1118
          SA6    LOCA                                                    IRCP     1119
          SX6    X6+B1       START STORING EPT AT (LOCA) + 1             IRCP     1120
          SA6    STOREPT                                                 IRCP     1121
          SB6    EPT2        SET SWITCH TO EPT2                          IRCP     1122
EPT2      RJ     PROCESSP    PROCESS A PRU                               IRCP     1123
          ZR     X6,CPP21    EXIT IF NOT SHORT                           IRCP     1124
          SA1    STOREPT     SAVE CURRENT VALUE OF STORE POINTER IN      IRCP     1125
          BX6    X1             (LOCA)                                   IRCP     1126
          SA2    LOCA                                                    IRCP     1127
          SA6    X2                                                      IRCP     1128
          SA6    LOCD        SAVE THIS VALUE IN LOCD                     IRCP     1129
          SX7    X6+B1       SET STORE POINTER TO (LOCD) +1 FOR          IRCP     1130
          SA7    A1            EPT                                       IRCP     1131
          SX6    X6-1        INITIALIZE NAME TABLE POINTER TO (LOCD) - 1 IRCP     1132
          SA6    NAMEPT                                                  IRCP     1133
          SB6    PNT1        SET SWITCH TO PNT1                          IRCP     1134
          EQ     CPP21                                                   IRCP     1135
          SPACE  3                                                       IRCP     1136
*         THIS SECTION PROCESSES PROGRAM NAME TABLE                      IRCP     1137
                                                                         IRCP     1138
PNT1      RJ     PROCESSP    PROCESS THE PRU                             IRCP     1139
          ZR     X6,CPP21    EXIT IF NOT SHORT                           IRCP     1140
          SA6    FIRST       SET FIRST FLAG                              IRCP     1141
          SA1    STOREPT     SAVE STOREPT IN LOCATION BETWEEN EPT        IRCP     1142
          BX6    X1             AND PNT                                  IRCP     1143
          SA1    LOCD                                                    IRCP     1144
          SA6    X1                                                      IRCP     1145
          SB6    LIB1        SET SWITCH TO JUMP TO LIB1                  IRCP     1146
          EQ     CPP21                                                   IRCP     1147
          EJECT                                                          IRCP     1148
*         THIS SECTION PROCESSES THE LIBRARY PROGRAMS                    IRCP     1149
          SPACE  4                                                       IRCP     1150
 LIB1     SA2    FIRST       SEE IF CURRENT PRU IS THE FIRST PRU OF      IRCP     1151
          ZR     X2,CPP7      A PROGRAM.  JUMP IF NOT.                   IRCP     1152
          SA1    NAMEPT      IF SO, INCREASE THE PROGRAM NAME TABLE      IRCP     1153
          SX6    X1+2         POINTER TO THE NEXT ENTRY                  IRCP     1154
          SA6    A1                                                      IRCP     1155
          SA1    X6          GET NAME OF CURRENT PROGRAM                 IRCP     1156
          MX0    42                                                      IRCP     1157
          BX7    X1*X0       MASK AWAY LENGTH                            IRCP     1158
          SA7    PROGNAM     STORE INTO MESSAGE                          IRCP     1159
          OPCOM  X,(RTITLE,LDV)                                          IRCP     1160
          SA2    LOCD        GET THE WORD BETWEEN THE ENTRY POINT TABLE  IRCP     1161
          SA1    NAMEPT                                                  IRCP     1162
          SA2    X2           AND THE PROGRAM NAME TABLE AND SEE IF      IRCP     1163
          LX2    36           WE HAVE ENCOUNTERED THE FIRST NON-PP       IRCP     1164
          SX0    X2           PROG(THE ADDRESS OF SAME WILL BE HERE IF   IRCP     1165
          NZ    X0,CPP8       WE HAVE).  JUMP IF SO                      IRCP     1166
          SA1    X1+B1             GET SECOND WORD OF NAME TABLE ENTRY   IRCP     1167
          MX4    4            SEE IF CURRENT PROG IS NON-PP.             IRCP     1168
          LX4    56                                                      IRCP     1169
          BX4    X4*X1                                                   IRCP     1170
          ZR     X4,CPP8     JUMP IF PROG IS PP PROG                     IRCP     1171
          SX1    A1-B1       STORE ADDRESS OF THIS PROG IN WORD          IRCP     1172
          IX6    X2+X1           BETWEEN TABLES                          IRCP     1173
          LX6    24                                                      IRCP     1174
          SA6    A2          RESTORE UPDATED WORD                        IRCP     1175
          SPACE  1                                                       IRCP     1176
*         THE FOLLOWING CREATES A DEVICE ADDRESS OF THE FORMAT           IRCP     1177
*         59          41          35          23          11          0  IRCP     1178
*         ************************************************************** IRCP     1179
*         *           *   UNIT    *    RBT    *    RBT    *   PRU     *  IRCP     1180
*         *           *  NUMBER   *  ADDRESS  *  ORDINAL  *  NUMBER   *  IRCP     1181
*         ************************************************************** IRCP     1182
*                                                                        IRCP     1183
*         AND MERGES IT INTO THE SECOND WORD OF THE P N T ENTRY.         IRCP     1184
*                                                                        IRCP     1185
          SPACE  1                                                       IRCP     1186
CPP8      SA2    DEVADDR                                                 IRCP     1187
          SA3    PRUNO                                                   IRCP     1188
          SA1    NAMEPT                                                  IRCP     1189
          SX6       B0                                                   BBBECS1     7
          SA6       ECSTORE        CLEAR ECS FLAG                        BBBECS1     8
          IX6    X2+X3             (X6) = DEVICE ADDRESS                 IRCP     1190
          SA1    X1+B1             FETCH WORD 2 OF PNT ENTRY             IRCP     1191
          SX4    77677B                                                  IRCP     1192
          LX4    45                                                      IRCP     1193
          BX4    X4*X1                                                   IRCP     1194
          IX6    X6+X4                                                   IRCP     1195
          SA6    A1          IF THE PROGRAM IS CM RESIDENT REPLACE       IRCP     1196
          MX4    4            THE UNIT NUMBER AND RBT ADDRESS WITH       IRCP     1197
          BX7    X4*X6          THE CM ADDRESS                           IRCP     1198
          SA7    MOVEFLAG    SET THE MOVEFLAG ACCORDINGLY                IRCP     1199
*                            FOR MOVE FLAG, 0 = CM RESIDENT(MOVE)        IRCP     1200
*                               NON-ZERO = NOT CM RESIDENT(DONT MOVE)    IRCP     1201
          NZ     X7,CPP12    JUMP IF NOT CM RESIDENT                     IRCP     1202
CPP8A     BSS       0                                                    BBBECS1     9
          SX7       B0                                                   BBBECS1    10
          SA7       MOVEFLAG       TURN ON CM MOVE                       BBBECS1    11
          SA2    STOREPT                                                 IRCP     1203
          MX4    21                                                      IRCP     1204
          LX4    45                                                      IRCP     1205
          BX6    -X4*X6                                                  IRCP     1206
          LX2    24                                                      IRCP     1207
          IX6    X6+X2                                                   IRCP     1208
          SA6    A1                                                      IRCP     1209
 CPP7     RJ     CHKSUM      GO TO CHECKSUM PRU                          IRCP     1210
          SA1    WORDCNT                                                 IRCP     1211
          SX2    RMSPRU                                                  IRCP     1212
          IX6    X1-X2       SET FIRST AS FOLLOWS                        IRCP     1213
          SA6    FIRST            0 = NOT FIRST PRU OF A PROG            IRCP     1214
          EQ     CPP21       LOOP                                        IRCP     1215
CPP12     LX7    4           SHIFT RESIDENCE TO LOW ORDER BITS           IRCP     1216
          SX0    B1          IS IT 1                                     IRCP     1217
          IX0    X7-X0                                                   IRCP     1218
          ZR     X0,CPP7     YES, GO TO CPP7                             IRCP     1219
*                                                                        BBBECS1    12
*         ECS RESIDENCE                                                  BBBECS1    13
*                                                                        BBBECS1    17
          SX0       X7-6           TEST FOR RES CODE GT 5                BBBECS1    18
          PL        X0,RESERR      YES - ERROR                           BBBECS1    19
          SA1       NAMEPT                                               BBBECS1    25
          SA2       X1              PNT WORD 1                           BBBECS1    26
          SX2      X2                                                    BBBECS1    27
          SA3      ECSLWA                                                BBBECS1    28
          IX2      X2+X3                                                 BBBECS1    29
          SA3      MAXECLIB                                              HS2IRCP    35
          IX3      X3-X2                                                 BBBECS1    34
          NG       X3,CPPECSD      NOT ENUF ROOM IN ECS-JUMP             BBBECS1    35
                                                                         BBBECS1    36
          SA1       X1+B1          LOAD PNT WORD 2                       BBBECS1    37
          SX2       B1                                                   BBBECS1    38
          LX2       58             ECS UP BIT                            BBBECS1    39
          BX6       X1+X2          INSERT IT INTO PNT                    BBBECS1    40
          AX2       1                                                    BBBECS1    41
          BX6       -X2*X6         CLEAR ALTERNATE RESIDENCY BIT         BBBECS1    42
          SA2       ECSLWA                                               BBBECS1    43
          MX4       21                                                   BBBECS1    44
          LX4       45                                                   BBBECS1    45
          BX6       -X4*X6         MASK OUT OLD PNT ADDRESS              BBBECS1    46
          LX2       24                                                   BBBECS1    47
          BX6       X2+X6          INSRRT THE NEW ECS ADDRESS            BBBECS1    48
          SA6       A1                                                   BBBECS1    49
          SX6       B1                                                   BBBECS1    50
          SA6       ECSTORE        INTO ECS STORE POINTER                BBBECS1    51
          JP        CPP7           GO OMOVE IT IN                        BBBECS1    52
*               ECS IS DOWN                                              BBBECS1    53
*                                                                        BBBECS1    54
CPPECSD   SA1       NAMEPT                                               BBBECS1    55
          SA1       X1+B1          LOAD PNT WORD 2                       BBBECS1    56
          SX2       B1                                                   BBBECS1    57
          LX2       58             THE ECS BIT                           BBBECS1    58
          BX6       -X2*X1         CLEAR THE ECS BIT                     BBBECS1    59
          AX2       1                                                    BBBECS1    60
          BX6       X2+X6          SET ALTERNATE RESIDENCE BIT           BBBECS1    61
          SA6       A1             STORE NEW PNT                         BBBECS1    62
          BX2       X6                                                   BBBECS1    63
          LX2       3              TEST DISK OR CM                       BBBECS1    64
          PL        X2,CPP8A       JUMP IF CM                            BBBECS1    65
          JP        CPP7           ELSE DISK                             BBBECS1    66
          SPACE  4                                                       IRCP     1220
*         AT THIS POINT CAN BE ADDED TESTS FOR OTHER RESIDENCE TYPES     IRCP     1221
*         (SUCH AS 2 FOR ECS) PLUS JUMPS TO ROUTINES TO PROCESS THEM.    IRCP     1222
*         CURRENTLY ONLY TYPE 0 (CM RESIDENT) AND TYPE 1 (DISK RESIDENT) IRCP     1223
*         ARE PROCESSED.                                                 IRCP     1224
          SPACE  4                                                       IRCP     1225
*         THE FOLLOWING PROCESSES RESIDENCE ERRORS                       IRCP     1226
RESERR    BSS 0                                                          BBBECS1    67
          SA2    PROGNAM                                                 IRCP     1227
          BX7    X2                                                      IRCP     1228
          SA7    RESMSG2           INSERT PROG NAME IN MSG               IRCP     1229
CPP13     OPCOM  O,(RESMSG,RESOPT,RTITLE,LDV)                            IRCP     1230
          ZR   X1,CPP13            JMP NO INPUT                          IRCP     1231
          SX0    X1-3                                                    IRCP     1232
          PL   X1,CPP13            JMP ILLEGAL INPUT (NOTE0 CHANGE THIS  IRCP     1233
*                                      IF NEW RESIDENCE TYPES ADDED)     IRCP     1234
          SX1    X1-1                                                    IRCP     1235
          SA3    NAMEPT                                                  IRCP     1236
          LX1    56                                                      IRCP     1237
          SA3    X3+B1             FETCH 2ND WORD OF PNT ENTRY           IRCP     1238
          MX2    4                                                       IRCP     1239
          BX4    -X2*X3                                                  IRCP     1240
          IX6    X1+X4             REPLACE RESIDENCE TYPE                IRCP     1241
          SA6    A3                PUT IT BACK                           IRCP     1242
          OPCOM  X,(RTITLE,LDV)                                          IRCP     1243
          EQ   CPP8                                                      IRCP     1244
          EJECT                                                          IRCP     1245
 MODEC    SA1      NOMODECD        TEST IF WE CAN DO  C/D LOAD           HS2IRCS     3
          NZ       X1,MODEAB       JUMP IF NOT                           HS2IRCS     4
          EQ       B2,B1,MODED     JUMP IF OK AND MODE D                 HS2IRCS     5
*                                  FALL THRU IF MODE C AND OK            HS2IRCS     6
          SPACE  3                                                       IRCP     1247
*         THIS SECTION PROCESSES LOADING AS IS REQUIRED FOR A TYPE C     IRCP     1248
*         RECOVERY.  THIS INVOLVES READING THE FILE SSSSSST INTO         IRCP     1249
*         THE CM DIRECTORY AREA.                                         IRCP     1250
*                                                                        HS2IRCP    36
          SA1      OLDECLWA                                              HS2IRCP    37
          LX1      59-23           TEST BIT 23 OF VALUE THAT WAS IN P.IN HS2IRCP    38
          PL       X1,MODEC2       JUMP IF C-REC. OK                     HS2IRCP    39
 CERRORM  OPCOM    O,(CERROR,CERROR1,RTITLE)                             HS2IRCP    40
          SB2      X1-1            TSET FOR 1 OR 2                       HS2IRCP    41
          EQ       B2,B0,MODEAB    JUMP IF =B= ENTERED                   HS2IRCP    42
          EQ       B2,B1,MODED     JUMP IF =D= ENTERED                   HS2IRCP    43
          EQ       CERRORM         JUMP IF ANYTHING ENLSE ENTERED        HS2IRCP    44
          SPACE    1                                                     HS2IRCP    45
 MODEC2   BSS      0                                                     HS2IRCP    46
                                                                         IRCP     1251
*         THE FNT/FST MUST HAVE A COMMON FILE BY THE NAME SSSSSST.       IRCP     1252
*         OTHERWISE, NO EDITLIBS HAVE BEEN PERFORMED.                    IRCP     1253
                                                                         IRCP     1254
          SA1    SSSSSST                                                 IRCP     1255
          RJ   SSSFNT                                                    IRCP     1256
          NZ   X5,MODEAB           JUMP IF NO FILE SSSSSST               IRCP     1257
                                                                         IRCP     1258
*         FORM POINTERS FOR RMS REQUEST INDICATING SSSSSST IS REWOUND    IRCP     1259
                                                                         IRCP     1260
          SA3    X2+B1             WORD 1 OF FST                         IRCP     1261
          MX0    48                                                      IRCP     1262
          LX3    12+12*C.FFRBA                                           IRCP     1263
          BX4    -X0*X3            FIRST RBA                             IRCP     1264
          SA1    MEMSIZE                                                 IRCP     1265
          LX6    X4,B1                                                   IRCP     1266
          IX6    X1-X6             ADDRESS OF 1ST WORD PAIR              IRCP     1267
          SA2    X6                GET 1ST WORD OF 1ST WORD PAIR         IRCP     1268
          LX2    12*C.RBTAL+11-S.RBTRND  POSITION RANDOM BIT             IRCP     1269
          BX5    X4                1ST RBA = CURRENT RBA                 IRCP     1270
          LX5    12                                                      IRCP     1271
          BX4    X4+X5             1ST RBA AND CURRENT RBA               IRCP     1272
          LX4    12                                                      IRCP     1273
          SX7    B1+B1             SET BYTE = 2 IF NOT RANDOM            IRCP     1274
          PL   X2,ORDERLY          JUMP IF NOT RANDOM FILE               IRCP     1275
          IX7    X7+X7             SET BYTE = 4                          IRCP     1276
ORDERLY   BX7    X4+X7             1ST RBA, CURRENT RBA, BYTE            IRCP     1277
          LX7    24                (ORDINAL AND PRU = 0)                 IRCP     1278
          MX6    0                                                       IRCP     1279
          S      A1,P.LIB          LIBRARY POINTER                       IRCP     1280
          SA7    T.PPC2+W.PPMES1   STORE 1ST WORD OF RMS REQUEST         IRCP     1281
          SA6    T.PPC2+W.PPMES2   STORE 2ND WORD                        IRCP     1282
                                                                         IRCP     1283
*         DETERMINE STORE ADDRESS FOR SSSSSST                            IRCP     1284
                                                                         IRCP     1285
          SHIFT  X1,C.DIRFWA+1     GET FWA OF DIRECTORY AREA             IRCP     1286
          SX7    X1                                                      IRCP     1287
          SA7    STOREPT           THIS IS STORE ADDRESS FOR SSSSSST     IRCP     1288
                                                                         IRCP     1289
*         LOAD SSSSSST                                                   IRCP     1290
                                                                         IRCP     1291
          SB2    B1                FLAG TO INDICATE SSSSSST INPUT        IRCP     1292
          RJ   LOADREC             GO LOAD SSSSSST                       IRCP     1293
                                                                         IRCP     1294
*         SINCE THIS WAS A RECOVERY, THE RBT WORD PAIRS FOR ANY          IRCP     1295
*         PARTICULAR FILE ARE NOT NECESSARILY IN THE SAME PLACE AS THEY  IRCP     1296
*         WERE BEFORE RECOVERY.  THEREFORE, THE RBT ADDRESSES IN THE     IRCP     1297
*         PROGRAM NAME TABLE ARE NOT NECESSARILY CORRECT.  IT IS         IRCP     1298
*         THEREFORE NECESSARY TO ADJUST THEM SO THEY WILL BE CORRECT.    IRCP     1299
                                                                         IRCP     1300
*         BUILD A LIST OF THE RBT ADDRESSES FOR BOTH SYSTEM AND SSSSSSU  IRCP     1301
                                                                         IRCP     1302
DOCTOR    SB7    B0                                                      IRCP     1303
          SA1    SYNAME            PROCESS SYSTEM FIRST                  IRCP     1304
SHALE     SB2    B7+CMBUFFER       STORE RBT ADDRESSES STARTING HERE     IRCP     1305
          RJ   SSSFNT              GET FNT ADDRESS                       IRCP     1306
          SA4    MEMSIZE                                                 IRCP     1307
          SA2    X2+B1             GET FST WORD 1                        IRCP     1308
          MX0    48                                                      IRCP     1309
          LX2    12+12*C.FFRBA                                           IRCP     1310
          BX7    -X0*X2            1ST RBT ADDRESS                       IRCP     1311
HOPS      SA7    B2                SAVE RBT ADDRESS                      IRCP     1312
          SB2    B2+B1             BUMP STORE POINTER                    IRCP     1313
          ZR   X7,REDWOOD          JUMP IF END OF RBT                    IRCP     1314
          LX7    1                 GET NEXT WORD PAIR                    IRCP     1315
          IX3    X4-X7                                                   IRCP     1316
          SA2    X3                                                      IRCP     1317
          LX2    12                                                      IRCP     1318
          BX7    -X0*X2            NEXT RBT ADDRESS                      IRCP     1319
          EQ   HOPS                LOOP                                  IRCP     1320
                                                                         IRCP     1321
REDWOOD   NZ   B7,REPLANT          JUMP IF SSSSSSU WAS JUST DONE         IRCP     1322
          SB7    B2-CMBUFFER       SAVE OFFSET TO RBT ADRS OF SSSSSSU    IRCP     1323
          SA1    SSSSSSU                                                 IRCP     1324
          EQ   SHALE               GO DO SAME WITH SSSSSSU               IRCP     1325
                                                                         IRCP     1326
*         MAKE ADJUSTMENTS IN ALL PNT ENTRIES                            IRCP     1327
                                                                         IRCP     1328
REPLANT   S      A1,P.LIB                                                IRCP     1329
          SHIFT  X1,C.DIRFWA+1                                           IRCP     1330
          SA2    X1                                                      IRCP     1331
          SA3    X2                FWA-1 OF PNT                          IRCP     1332
          SB6    X3                SAVE LWA+1 OF PNT                     IRCP     1333
          SB2    B1+B1                                                   IRCP     1334
          MX0    51                MASK FOR RBT ORDINAL                  IRCP     1335
          MX1    48+S.DIRPR        MASK FOR CHECKING RESIDENCE           IRCP     1336
TACT      SA3    A3+B2             GET 2ND WORD OF A PNT ENTRY           IRCP     1337
          BX2    X3                                                      IRCP     1338
          LX2    12+12*C.DIRPTR-S.DIRPR                                  IRCP     1339
          BX4    -X1*X2            ISOLATE RESIDENCE                     IRCP     1340
          SB3    X4                                                      IRCP     1341
          NE   B3,B1,DUG           JUMP IF NOT DISK RESIDENT             IRCP     1342
          BX2    X3                                                      IRCP     1343
          LX2    9+12*C.DIRRBN     GET RBT ORDINAL                       IRCP     1344
          BX6    -X0*X2                                                  IRCP     1345
          SA5    X6+CMBUFFER       GET THE RBT ADDRESS                   IRCP     1346
          BX2    X3                CHECK WHICH FILE PROGRAM IS ON        IRCP     1347
          LX2    8                                                       IRCP     1348
          MX7    48                                                      IRCP     1349
          LX3    12+12*C.DIRRBA                                          IRCP     1350
          PL   X2,MELON            JUMP IF ON FILE SYSTEM                IRCP     1351
          SA5    A5+B7             GET RBA FOR SSSSSSU                   IRCP     1352
MELON     BX7    X7*X3             MASK OUT OLD RBA                      IRCP     1353
          IX7    X5+X7             PUT IN THE CORRECT ONE                IRCP     1354
          LX7    48-12*C.DIRRBA                                          IRCP     1355
          SA7    A3                STORE BACK                            IRCP     1356
DUG       SB4    A3+B2             CHECK FOR END OF PNT                  IRCP     1357
          LT   B4,B6,TACT          LOOP THRU PNT                         IRCP     1358
*                  SET ECSLWA TO VALUE FROM LOLD P.ITN                   HS2IRCP    47
          SA1      OLDECLWA                                              HS2IRCP    48
          BX6      X1                                                    HS2IRCP    49
          SA6      ECSLWA                                                HS2IRCP    50
                                                                         IRCP     1359
*         RETURN TO THE COMMON END PROCESSOR FOR ALL TYPES OF LOADING    IRCP     1360
                                                                         IRCP     1361
          EQ   ENDFILE                                                   IRCP     1362
          SPACE  3                                                       IRCP     1363
*         THIS SECTION PROCESSES LOADING AS IS REQUIRED FOR A TYPE D     IRCP     1364
*         RECOVERY.  THIS INVOLVES USING THE PNT THAT IS ALREADY IN      IRCP     1365
*         CMR.  (IT MUST BE INTACT.)  TO LOAD PROGRAMS, THE ADDRESSES    IRCP     1366
*         MUST BE PICKED UP FROM THE PNT AND EITHER SYSTEM OR SSSSSSU    IRCP     1367
*         MUST BE ACCESSED.  SINCE THIS PROCESS IS NOT NECESSARY         IRCP     1368
*         FOR DISK-RESIDENT PROGRAMS, AND SINCE IT IS QUITE SLOW,        IRCP     1369
*         ONLY THOSE PROGRAMS WHICH ARE CM RESIDENT AND HAVE BEEN        IRCP     1370
*         CLOBBERED BY DEAD-START BUFFERS ARE READ.                      IRCP     1371
                                                                         IRCP     1372
*         FIRST CHECK TO SEE THAT THE PNT DOES NOT EXTEND PAST THE       IRCP     1373
*         POINT WHERE DEAD-START HAS CLOBBERED.                          IRCP     1374
                                                                         IRCP     1375
MODED     S      A1,P.LIB                                                IRCP     1376
          SHIFT  X1,C.DIRFWA+1                                           IRCP     1377
          SA2    X1                FWA-1 OF PNT                          IRCP     1378
          SA3    X2                                                      IRCP     1379
          SX7    X3                ADDRESS OF END OF PNT                 IRCP     1380
          SB4    X7                SAVE                                  IRCP     1381
          SB3    X2                CURRENT PNT FETCH ADDRESS             IRCP     1382
          SA7    STOREPT           STORE HERE IN CASE THERE ARE NO       IRCP     1383
          SX6    X7-TBUF0          CM RESIDENT PROGRAMS                  IRCP     1384
          NG   X6,HEALTHY          JUMP IF PNT SMALL ENOUGH              IRCP     1385
          OPCOM  X,(RTITLE,DERROR)  ERROR HALT                           IRCP     1386
          PS                                                             IRCP     1387
                                                                         IRCP     1388
*         PROCESS NEXT PNT ENTRY                                         IRCP     1389
                                                                         IRCP     1390
HEALTHY   SB3    B3+B1                                                   IRCP     1391
          GE   B3,B4,DOCTOR        JUMP IF AT END OF PNT                 IRCP     1392
          SA1    B3                GET WORD 1 OF PNT ENTRY               IRCP     1393
          SB3    B3+B1                                                   IRCP     1394
          SA2    B3                GET WORD 2 OF PNT ENTRY               IRCP     1395
          BX3    X2                                                      RDVPIDR     1
          MX0    4                                                       RDVPIDR     2
          LX3    12+12*C.DIRPTR-S.DIRPT-4  POSITION TYPE CODE IN UPPER   RDVPIDR     3
          BX3    X3*X0             MASK OUT PROGRAM TYPE                 RDVPIDR     4
          NZ   X3,HEALTH1          IF NOT TYPE PP                        RDVPIDR     5
          SX6    B1                ENSURE                                RDVPIDR     6
          LX6    48-12*C.DIRPI+S.DIRPI  STI                              RDVPIDR     7
          BX6    -X6*X1                    FLAG                          RDVPIDR     8
          SA6    A1                           CLEAR                      RDVPIDR     9
HEALTH1   BSS    0                                                       RDVPIDR    10
          MX0    48+S.DIRPR                                              IRCP     1396
          BX3    X2                                                      IRCP     1397
          LX3    12+12*C.DIRPTR-S.DIRPR                                  IRCP     1398
          BX3    -X0*X3                                                  IRCP     1399
          ZR       X3,QUITEILL     JUMP IF CM RES                        HS2IRCQ    16
          SX3      X3-2            TEST FOR EM IN CM                     HS2IRCQ    17
          NZ   X3,HEALTHY          DO NOT PROCESS IF NOT CM RESIDENT     IRCP     1400
 QUITEILL BSS      0                                                     HS2IRCQ    18
          SB5    X1                PROGRAM LENGTH                        IRCP     1401
          BX3    X2                                                      IRCP     1402
          LX3    24+12*C.DIRCMA                                          IRCP     1403
          SX7    X3+B5             SET LWA+1 IN CASE LAST CM RESIDENT    IRCP     1404
          SA1    DIREND           PROGRAM NEED NOT BE READ               SC20119     1
          IX6    X1-X7                                                   SC20119     2
          PL     X6,ROBUST        GET HIGHEST POSSIBLE ADDRESS IN        SC20119     3
          SA7    A1               DIREND (DIRECTORY LWA+1)               SC20119     4
ROBUST    SX6    X7-TBUF0                                                SC20119     5
          NG   X6,HEALTHY          DO NOT READ IF ALREADY INTACT         IRCP     1407
                                                                         IRCP     1408
*         AT THIS POINT, WE KNOW THE PROGRAM MUST BE READ FROM THE       IRCP     1409
*         APPROPRIATE FILE (SYSTEM OR SSSSSSU).  NOW THE INITIAL         IRCP     1410
*         RMS REQUEST TO READ THIS PROGRAM MUST BE FORMED BY USING       IRCP     1411
*         THE PNT ENTRY.  THE RBT ADDRESS FIELD MUST NOT BE USED         IRCP     1412
*         BECAUSE OF THE REASON DESCRIBED AT THE START OF THE            IRCP     1413
*         ROUTINE -DOCTOR-.                                              IRCP     1414
                                                                         IRCP     1415
          SX7    X3                SET STORE POINTER TO FWA OF PROGRAM   IRCP     1416
          SA7    STOREPT                                                 SC20119     6
          SA1    SYNAME            FILE NAME SYSTEM                      IRCP     1418
          SA5    MEMSIZE                                                 IRCP     1419
          SB7    X5                SAVE MEMORY SIZE                      IRCP     1420
          LX2    8                                                       IRCP     1421
          PL   X2,FORGE            JUMP IF PROGRAM ON SYSTEM             IRCP     1422
          SA1    SSSSSSU           PROGRAM IS ON SSSSSSU                 IRCP     1423
FORGE     RJ   SSSFNT              GET FNT ADDRESS                       IRCP     1424
          SA4    X2+B1             FST WORD 1                            IRCP     1425
          MX0    36                                                      IRCP     1426
          SA3    B3                GET PNT WORD 2 AGAIN                  IRCP     1427
C.DIRRBN  EQU    3                 SOMETHING MUST BE CHANGED HERE        IRCP     1428
C.DIRPRU  EQU    4                 IF ASSEMBLY ERROR                     IRCP     1429
          BX7    -X0*X3            RBT ORD, BYTE, PRU                    IRCP     1430
          BX6    X7                                                      IRCP     1431
          AX6    15                                                      IRCP     1432
          SB5    X6                RBT ORDINAL                           IRCP     1433
          MX1    48                                                      IRCP     1434
          LX4    12+12*C.FFRBA                                           IRCP     1435
          BX4    -X1*X4                                                  IRCP     1436
          BX5    X4                ADD 1ST RBA TO REQUEST WORD           IRCP     1437
          LX5    36                                                      IRCP     1438
          BX7    X7+X5                                                   IRCP     1439
BUCKET    LX6    X4,B1             COMPUTE ADDRESS OF NEXT WORD PAIR     IRCP     1440
          SB6    X6                                                      IRCP     1441
          ZR   B5,QUEEN            JUMP IF WE HAVE THE CORRECT ONE       IRCP     1442
          SA4    B7-B6             GET WORD 1 OF NEXT WORD PAIR          IRCP     1443
          LX4    12                GET LINK TO NEXT                      IRCP     1444
          BX4    -X1*X4                                                  IRCP     1445
          SB5    B5-B1                                                   IRCP     1446
          EQ   BUCKET              LOOP                                  IRCP     1447
                                                                         IRCP     1448
QUEEN     LX4    24                POSITION CURRENT RBA                  IRCP     1449
          BX7    X7+X4             ADD TO REQUEST WORD                   IRCP     1450
          LX7    12                FINAL POSITION FOR WORD 1             IRCP     1451
          MX6    0                                                       IRCP     1452
          SA7    T.PPC2+W.PPMES1   STORE RMS REQUEST                     IRCP     1453
          SA6    T.PPC2+W.PPMES2                                         IRCP     1454
                                                                         IRCP     1455
*         LOAD THIS PROGRAM INTO ITS PLACE IN CM                         IRCP     1456
                                                                         IRCP     1457
          SB2    B0                SAYS THIS IS NOT SSSSSST              IRCP     1458
          RJ   LOADREC                                                   IRCP     1459
          EQ   HEALTHY             LOOP THRU PNT                         IRCP     1460
          EJECT                                                          IRCP     1461
*         THIS SECTION PERFORMS FINAL TASKS FOR ALL TYPES OF LOADING     IRCP     1462
   LIST L                                                                BBBSWPR     2
                                                                         IRCP     1463
ENDFILE   SA1    DIREND           IF RECOVERY, IT HOLDS LWA+1 OF DIREC.  SC20119     7
          NZ     X1,ENDFILA                                              SC20119     8
          SA1    STOREPT          OTHERWISE THIS DOES                    SC20119     9
ENDFILA   LX1    12                                                      SC20119    10
          SA2    P.LIB                                                   SC20119    11
          MX4    24                                                      IRCP     1467
          BX6    X4*X2                                                   IRCP     1468
          IX6    X6+X1                                                   IRCP     1469
          SA6    A2          RESTORE UPDATED P.LIB                       IRCP     1470
          SA1    A1          ROUND LWA+1 OF LIBRARY UP TO NEAREST 100B   IRCP     1471
          SX1    X1+77B        AND STORE THIS VALUE IN WORD 20 OF THE    IRCP     1472
          AX1    6             CONTROL PT AREAS AND ALSO IN THE          IRCP     1473
          BX6    X1            RA FIELD OF EACH CONTROL POINTS           IRCP     1474
          LX6    12            EXCHANGE PACKAGE                          IRCP     1475
          BX7    X1                                                      IRCP     1476
          LX7    42                                                      IRCP     1477
          MX5    48                                                      IRCP     1478
          SX0    T.CPA1                                                  IRCP     1479
          SA1    P.NCP                                                   IRCP     1480
          SHIFT  X1,C.NCP                                                IRCP     1481
          BX1    -X5*X1            FETCH NO. OF CONTROL POINTS           IRCP     1482
          SB2    X1                                                      IRCP     1483
 CPP45    SA6    X0+W.CPSTAT                                             IRCP     1484
          SA7    X0+B1                                                   IRCP     1485
          SX0    X0+200B                                                 IRCP     1486
          SB2    B2-B1                                                   IRCP     1487
          NZ     B2,CPP45    LOOP UNTIL ALL CON PTS HAVE BEEN PROCESSED  IRCP     1488
          SA1      P.ECST          GET ADDRESS OF PARTITION TABLE        HS2IRCP    51
          L        X1,C.ECST,4                                           HS2IRCP    52
          MX0      48                                                    HS2IRCP    53
          BX1      -X0*X1                                                HS2IRCP    54
          LX1      3                                                     HS2IRCP    55
          SA2      X1+W.ECLIB      LAD LIBRARY PARTIT. ENTRY             HS2IRCP    56
          MX0      21              EXTRACT JUST ECS LENGTH               HS2IRCP    57
          LX0      21+24                                                 HS2IRCQ    19
          SA4      ECSLWA                                                HS2IRCP    59
          LX4      24                                                    HS2IRCP    60
          BX4      X0*X4           GET ELTNGH FROM ECSLWA WORRD          HS2IRCP    61
          BX2      -X0*X2                                                HS2IRCP    62
          BX6      X2+X4                                                 HS2IRCP    63
          SA6      A2              UPDATE ENTRY                          HS2IRCP    64
          AX4      24                                                    HS2IRCP    65
          IX4      X4+X2           LWA OF LIB                            HS2IRCP    66
          SA3      W.CPECS                                               HS2IRCP    67
          MX0      48                                                    HS2IRCP    68
          L        X3,C.CPECFL,4                                         HS2IRCP    69
          BX3      -X0*X3                                                HS2IRCP    70
          LX3      9                                                     HS2IRCP    71
          IX3      X3-X4                                                 HS2IRCP    72
          LX3      24                                                    HS2IRCP    73
          BX6      X3+X4                                                 HS2IRCP    74
          SA6      A2+W.ECSWAP-W.ECLIB  STORE SWAP PARITON VALUES        HS2IRCP    75
*                                                                        BBBSWPR     3
*        DETERMINE NUMBER OF AVAIL ECS SWAP BLOCKS AND SET IT UP         BBBSWPR     4
*                                                                        BBBSWPR     5
          SA1       P.ECST         GET ADDRESS OF ALLOC TABLE            BBBSWPR     6
          L         X1,C.ECSWPA,4                                        BBBSWPR     7
          MX0       60-12                                                BBBSWPR     8
          BX1       -X0*X1         INTO X1                               BBBSWPR     9
          LX1       3              *8                                    BBBSWPR    10
          SA1       X1             LOAD IT                               BBBSWPR    11
          NZ       X1,NSAR        EXIT IF ALREADY RECOVERED              BBBSWPR    12
          AX3       24             GET LENGTH                            BBBSWPR    13
          SX4       30             CHECKSUM BLOCKS                       BBBSWPR    14
          IX3       X3-X4                                                BBBSWPR    15
          AX3       9+2            /4000B                                BBBSWPR    16
          ASSUME    L.ECBLK,EQ,4000B                                     BBBSWPR    17
          SX6      X3             X6=BLOCKS                              BBBSWPR    18
          LX6       12             POSITION TO BYTE 3                    BBBSWPR    19
          BX6       X6+X3          AND BYTE 4 ALSO                       BBBSWPR    20
          SA6       A1             RESTOER IT                            BBBSWPR    21
NSAR      BSS       0                                                    BBBSWPR    22
*                                                                        BBBSWPR    23
          SA1      ECSLWA                                                HS2IRCP    76
          LX1      36-12*C.ECLIBX                                        HS2IRCP    77
          MX0      60-24                                                 HS2IRCP    78
          LX0      36-12*C.ECLIBX                                        HS2IRCP    79
          SA2      P.INS                                                 HS2IRCP    80
          BX6      X0*X2                                                 HS2IRCP    81
          BX6      X6+X1                                                 HS2IRCP    82
          SA6      A2              STORE LWA OF LIB FOR EDITLIB          HS2IRCP    83
          SPACE     3                                                    GHKCPL2     8
**        COUNT THE NUMBER OF FREE ECS FNTS FOR USE BY CMR/1RA/DSD       GHKCPL2     9
*                                                                        GHKCPL2    10
          SPACE  1                                                       SC2873      1
          RJ   CHKPAK              GO CHECK PACKS FOR ACTIVE FILES       SC2873      2
          SX6    0                                                       FCON      201
          SA1    DIRECT            GET THE FIRST ENTRY                   FCON      202
 AGAIN    ZR     X1,NEXT           IF ZERO ENTRY, DONE                   FCON      203
          SA6    A1                ZERO OUT ENTRY IF NOT                 FCON      204
          SA1    A1+1        GET NEXT ENTRY                              FCON      205
          EQ     AGAIN                                                   FCON      206
 NEXT     BSS    0                                                       FCON      207
          SX6    77B                                                     IRCP     1489
          SX7    12B                                                     IRCP     1490
          SA7    B0                SIGNAL PP0 TO STOP DRIVING DISPLAY    IRCP     1491
JELL      SA5    B0                WAIT UNTIL PP0 PICKS UP SIGNAL        IRCP     1492
          NZ   X5,JELL                                                   IRCP     1493
          SA6    T.PPC1+W.PPIR     SIGNAL PP1 TO LOAD AND ENTER STL      IRCP     1494
          SA6    T.PPC2+W.PPIR     SIGNAL PP-2 TO LOOK AT CM LOCN 0      IRCP     1495
          SPACE  1                                                       IRCP     1496
          IFNE   IP.ECNOM,0,1                                            IRCP     1497
          RJ   SETECS              GO SET UP ECS                         IRCP     1498
          SPACE  1                                                       IRCP     1499
          PS                       STLCP NOW CEASES ALL ACTIVITY         IRCP     1500
*                                                                        SC20119    12
DIREND    DATA   0                                                       SC20119    13
          EJECT                                                          IRCP     1501
*         PROCESSP--PROCESS THE SPECIAL RECORDS                          IRCP     1502
          SPACE  4                                                       IRCP     1503
PROCESSP  PS                                                             IRCP     1504
          SX7    B0                                                      IRCP     1505
          SA7    MOVEFLAG    SET MOVEFLAG TO MOVE                        IRCP     1506
          RJ     CHKSUM      CHECKSUM THE PRU                            IRCP     1507
          SX1    RMSPRU            COMPARE WORD COUNT OF THIS PRU TO THE IRCP     1508
          SA2    WORDCNT      SIZE OF A FULL PRU                         IRCP     1509
          IX6    X2-X1                                                   IRCP     1510
          SA6    FIRSTSP                                                 IRCP     1511
          EQ     PROCESSP                                                IRCP     1512
          EJECT                                                          IRCP     1513
IGNORE    SB6    IGNORE      SET SWITCH TO IGNORE                        IRCP     1514
          SX6    B1          SET MOVE FLAG NOT TO STORE ANYTHING(IE,     IRCP     1515
          SA6    MOVEFLAG      IN EFFECT, IGNORE PRU)                    IRCP     1516
          RJ     CHKSUM      ONLY CHECKSUM IT                            IRCP     1517
          SA1    WORDCNT     IS IT SHORT                                 IRCP     1518
          SX2    RMSPRU                                                  IRCP     1519
          IX6    X1-X2                                                   IRCP     1520
          ZR     X6,CPP21    NO, EXIT                                    IRCP     1521
          SA6    FIRSTSP                                                 IRCP     1522
          SB6    CPP36       SET SWITCH TO CPP36                         IRCP     1523
          EQ     CPP21                                                   IRCP     1524
          EJECT                                                          IRCP     1525
*         CHKSUM--CHECKSUM THE PRUS FOR COMPARISON TO THAT ON THE DEVICE IRCP     1526
          SPACE  4                                                       IRCP     1527
 CHKSUM   PS                                                             IRCP     1528
          SA3    WORDCNT     DIVIDE WORD COUNT BY 5 TO GET CM WORD       IRCP     1529
          SX3    X3+4            COUNT                                   IRCP     1530
          SA1    =.200000001P48                                          IRCP     1531
          PX3    B0,X3                                                   IRCP     1532
          FX6    X1*X3                                                   IRCP     1533
          UX6    B0,X6                                                   IRCP     1534
          SA6    A3          RESTORE UPDATED WORD COUNT                  IRCP     1535
          SB2    X6          SAVE WORD COUNT IN B2                       IRCP     1536
          SB3       X6             SAVE WORD COUNT FOR ECS               BBBECS1    77
          SX0    B0          INITIALIZE CHECKSUM TO ZERO                 IRCP     1537
          SA5    GETPOINT    SAVE GET POINTER IN X5 AND B5               IRCP     1538
          SB5    X5                                                      IRCP     1539
          SA1    A3                                                      IRCP     1540
          ZR     X1,CHK7     JUMP IF WORD COUNT = 0                      IRCP     1541
          SA4    MOVEFLAG                                                IRCP     1542
          NZ     X4,CHK1     NO MOVING IF MOVEFLAG = 1                   IRCP     1543
          SA1    FIRST                                                   IRCP     1544
          ZR     X1,CHK2     NOT FIRST PRU IF FIRST = 0                  IRCP     1545
          SA2    X5          CHECKSUM PREFIX OF PROGRAM SEPARATELY       IRCP     1546
          SA3    X5+B1          AND DONT MOVE IT                         IRCP     1547
          SA4    A3+B1                                                   IRCP     1548
          SX5    A4+B1       INCREASE GET POINTER BY 3                   IRCP     1549
          IX0    X2+X3                                                   IRCP     1550
          IX0    X0+X4                                                   IRCP     1551
          SB2    B2-3        DECREASE EFFECTIVE WORD COUNT BY 3          IRCP     1552
 CHK2     SA2    STOREPT     SET X2 = STORING ADDRESS                    IRCP     1553
          SA1    X5                                                      IRCP     1554
 CHK3     IX0    X0+X1       ACCUMULATE CHECKSUM                         IRCP     1555
          BX6    X1          MOVE WORD FROM BUFFER TO ITS PROPER         IRCP     1556
          SA6    X2           PLACE IN MEMORY                            IRCP     1557
          SB7    A6-IRADR                                                IRCP     1558
          NZ     B7,IMPLY                                                IRCP     1559
          OPCOM  X,(OVERFLO,RTITLE,LDV)                                  IRCP     1560
          PS                                                             IRCP     1561
IMPLY     SA1    A1+B1                                                   IRCP     1562
          SX2    X2+B1       BUMP STORING ADDRESS                        IRCP     1563
          SB2    B2-B1       DECREASE WORD COUNT                         IRCP     1564
          NZ     B2,CHK3     LOOP UNTIL DONE                             IRCP     1565
          BX6    X2          SET NEW VALUE OF STORE POINTER              IRCP     1566
          SA6    A2                                                      IRCP     1567
          EQ     CHK4                                                    IRCP     1568
 CHK1     SA1    X5          IF NOT CM RESIDENT, CHECKSUM BUT DONT MOVE  IRCP     1569
 CHK5     IX0    X0+X1                                                   IRCP     1570
          SA1    A1+B1                                                   IRCP     1571
          SB2    B2-B1                                                   IRCP     1572
          NZ     B2,CHK5     LOOP UNTIL CHECKSUMMING DONE                IRCP     1573
                                                                         BBBECS1    78
*             ECS RESIDENCE                                              BBBECS1    79
                                                                         BBBECS1    80
          SA1       ECSTORE        TEST ECS FLAG                         BBBECS1    81
          ZR        X1,CHK4        NOT ECS                               BBBECS1    82
          BX6      X0                                                    HS2IRCP    84
          SA6      SAVEX0          SAVE CHECK SUM                        HS2IRCP    85
          SA1       GETPOINT                                             BBBECS1    84
          SA0       X1             CM START                              BBBECS1    85
          SA1       FIRST          TEST FOR FIRST TIME                   BBBECS1    86
          ZR        X1,CKE2        NO                                    BBBECS1    87
          SA0       A0+3           INCLEARE START BU 3                   BBBECS1    88
          SB3       B3-3           DLEREASE LENGTH BY 3                  BBBECS1    89
CKE2      SA2       ECSLWA         ECS START                             BBBECS1    90
          BX0       X2                                                   BBBECS1    91
          SX6       B3             LENGTH                                BBBECS1    92
          IX6       X6+X2          INCREMENT ECSLWA                      BBBECS1    93
          SA3      MAXECLIB                                              HS2IRCP    86
          IX3       X6-X3          TEST FOR OVERFLOW                     BBBECS1    99
          NG        X3,CKKE3       OK - IT FITS                          BBBECS1   100
          OPCOM     X,(OVERECS,RTITLE,LDV)                               BBBECS1   101
          PS                       STOP                                  BBBECS1   102
*                                                                        BBBECS1   103
CKKE3     SA6       A2                                                   BBBECS1   104
          SX6      B6                                                    HS2IRCQ    20
          SA6      SVDAMNB6        SAVE D... B6                          HS2IRCQ    21
          SA1      P.ECST                                                HS2IRCP    87
          MX6      48              48                                    HS2IRCP    88
          L        X1,C.ECST,4                                           HS2IRCP    89
          BX1      -X6*X1                                                HS2IRCP    90
          LX1      3               BASE ASSDRSS OF OF PARTITION TABLE    HS2IRCP    91
          SA1      X1+W.ECLIB      BGET LIBRARY PARTITION WORD           HS2IRCP    92
          MX6      36                                                    HS2IRCP    93
          BX1      -X6*X1          EXTRACT ECS FWA OF LIBRARY            HS2IRCP    94
          IX0      X0+X1           RELOACTED ECS FWA INTO LIB ARE        HS2IRCP    95
          LX0      18              SHIFT UP ECS ADDRES                   HS2IRCP    96
          SX6      A0                                                    HS2IRCP    97
          BX6      X6+X0           OR CMADDR AND ECS ADDR                HS2IRCP    98
          LX6      18                                                    HS2IRCP    99
          SX0      B3                                                    HS2IRCP   100
          BX6      X6+X0           OR IN LENGTH                          HS2IRCP   101
          SA6      SAVEEP          SAVE PARAMETERS                       HS2IRCP   102
          SB2      X6              LENGTH                                HS2IRCP   103
          AX6      18                                                    HS2IRCP   104
          SB4      X6              CM FWA                                HS2IRCP   105
          AX6      18                                                    HS2IRCP   106
          BX1      X6              ECS FWA                               HS2IRCP   107
          RJ       ECSWR                                                 HS2IRCP   108
          NZ       X2,ECSBAD       JUMP IF ECS BAD                       HS2IRCP   109
          SA1      SAVEEP          READ RECORD BACK UP TO CHECK IT       HS2IRCP   110
          SB2      X1              LENGTH                                HS2IRCP   111
          AX1      18                                                    HS2IRCP   112
          SB4      X1              CMFWA                                 HS2IRCP   113
          AX1      18                                                    HS2IRCP   114
          RJ       ECSRD                                                 HS2IRCP   115
          NZ       X2,ECSBAD       IF PARITY ERROR, DISE                 HS2IRCP   116
          SA1      SAVEX0          RESTORE CHECKSUM TO X0                HS2IRCP   117
          SA4      SVDAMNB6                                              HS2IRCQ    22
          SB6      X4              RESTORE B6+                           HS2IRCQ    23
          BX0      X1                                                    HS2IRCP   118
          SPACE 2                                                        BBBECS1   112
 CHK4     MX4    48          COLLAPSE CHECKSUM INTO 12 BITS              IRCP     1574
          SB2    4                                                       IRCP     1575
 CHK6     BX6    X4*X0                                                   IRCP     1576
          AX6    12                                                      IRCP     1577
          BX0    -X4*X0                                                  IRCP     1578
          IX0    X6+X0                                                   IRCP     1579
          SB2    B2-B1                                                   IRCP     1580
          NZ     B2,CHK6                                                 IRCP     1581
          BX0    -X4*X0                                                  IRCP     1582
          SA1    CHECKSUM                                                IRCP     1583
          SA3      NOCKSUM                                               BCIRCP     23
          NZ       X3,CHK7         JUMP IF NO CHECKSUM SHOULD BE MADE    BCIRCP     24
          IX0    X0-X1       COMPARE AGAINST CHECKSUM ON DISK            IRCP     1584
          NZ     X0,CSUMERR    STOP ON CHECKSUM ERROR                    IRCP     1585
 CHK7     SA2      GETPOINT                                              HS2IRCP   119
          SX6      X2+RMSPRU       UPDATE GETPOINT                       HS2IRCP   120
          SA6      A2                                                    HS2IRCP   121
          EQ     CHKSUM      EXIT FROM ROUTINE                           IRCP     1589
CSUMERR   SA3    PROGNAM                                                 IRCP     1590
          BX7    X3                                                      IRCP     1591
          SA7    CHKM2             INSERT PROG NAME IN MSG               IRCP     1592
          OPCOM  X,(CHKMSG,RTITLE,LDV)                                   IRCP     1593
          PS                                                             IRCP     1594
          SPACE    1                                                     HS2IRCP   122
SAVEX0    BSS      1                                                     HS2IRCP   123
SAVEEP    BSS      1                                                     HS2IRCP   124
 SVDAMNB6 BSS      1                                                     HS2IRCQ    24
          SPACE 4                                                        BBBECS1   113
*                                                                        HS2IRCP   125
*         ECS PARITY ERROR                                               HS2IRCP   126
 DIE      EQ       *-*                                                   HS2IRCP   127
 TOOMNYPE BSS       0                                                    DMDECS3    15
ECSBAD    OPCOM     X,(ECSD,RTITLE,LDV)                                  BBBECS1   126
          PS                                                             BBBECS1   127
          SPACE 2                                                        BBBECS1   128
ECSD      MSGLST    LEFT                                                 BBBECS1   129
          POSTXT    *,5                                                  BBBECS1   130
          MSGTEXT  (THERE IS MORE )                                      HS2IRCQ    25
          MSGTEXT  (THAN ONE)                                            HS2IRCQ    26
          MSGTEXT   (ECS PARITY ERROR)                                   BBBECS1   131
          MSGTEXT   (LOADING STOPS )                                     BBBECS1   132
          MSGTEXT  (WHAT A P-SS-R)                                       HS2IRCP   128
          ENDLST                                                         BBBECS1   134
          EJECT                                                          IRCP     1595
*         LOADREC -- LOAD RECORD                                         IRCP     1596
                                                                         IRCP     1597
*                    THIS ROUTINE IS USED BY LOAD DURING RECOVERY        IRCP     1598
*                    MODES C AND D.  IT READS A LOGICAL RECORD FROM      IRCP     1599
*                    THE APPROPRIATE FILE (SYSTEM, SSSSSSU, OR SSSSSST)  IRCP     1600
*                    AND PLACES IT IN ITS PROPER PLACE IN CM.  NO        IRCP     1601
*                    CHECKSUMMING IS DONE AS IN CHKSUM, SINCE THE        IRCP     1602
*                    INFORMATION WRITTEN ON SSSSSSU AND SSSSSST WAS      IRCP     1603
*                    NOT WRITTEN BY DEAD-START, AND, PRESUMABLY, HAS     IRCP     1604
*                    NO PRU CHECKSUMS.                                   IRCP     1605
*                    THE 1ST 3 WORDS OF THE RECORD ARE SKIPPED, EXCEPT   IRCP     1606
*                    IF WE ARE READING FROM SSSSSST, IN WHICH CASE       IRCP     1607
*                    THE 1ST 4 WORDS ARE SKIPPED.  IT IS THUS ASSUMED    IRCP     1608
*                    THAT THE 5TH WORD IN SSSSSST IS THE START OF THE    IRCP     1609
*                    CMR DIRECTORY.                                      IRCP     1610
                                                                         IRCP     1611
*                ON ENTRY, STOREPT = THE FWA OF THE STORE AREA FOR THE   IRCP     1612
*                                    RECORD.                             IRCP     1613
*                          B2 = 1 IF SSSSSST IS BEING READ               IRCP     1614
*                             = 0 OTHERWISE                              IRCP     1615
*                          THE RMS REQUEST IS SET UP, EXCEPT FOR WHAT    IRCP     1616
*                             IS DONE BY CHNGREQ.                        IRCP     1617
                                                                         IRCP     1618
*                ON EXIT - B3, B4 ARE SAVED                              IRCP     1619
                                                                         IRCP     1620
LOADREC   DATA   0                                                       IRCP     1621
          SX6    B3                SAVE B-REGISTERS                      IRCP     1622
          SX7    B4                                                      IRCP     1623
          LX6    18                                                      IRCP     1624
          IX6    X6+X7                                                   IRCP     1625
          SA6    LOADRSV                                                 IRCP     1626
          ZR   B2,MILL             JUMP IF NOT READING SSSSSST           IRCP     1627
          SA1    SSSSSST           PLACE NAME IN MESSAGE                 IRCP     1628
          BX6    X1                                                      IRCP     1629
          SA6    PROGNAM                                                 IRCP     1630
MILL      SX7    7777B             SET PRU POINTERS TO FORCE CHKEND      IRCP     1631
          SA7    PRUNO             TO CALL RDNXTRB ON 1ST TIME           IRCP     1632
          SA7    RBRORD            FORCE RDNXTRB TO CALL GETDEV 1ST TIME IRCP     1633
          SB5    X7                INDICATE 1ST PRU OF THIS RECORD       IRCP     1634
                                                                         IRCP     1635
*         START OF LOOP TO FETCH DATA FROM LOGICAL RECORD                IRCP     1636
                                                                         IRCP     1637
POUND     RJ   CHKEND              BUMP PRU AND READ RB IF NECESSARY     IRCP     1638
          SB4    3                 CONSTANT FOR USE LATER                IRCP     1639
          RJ   GETPARAM            PROCESS PRU HEADER BYTES              IRCP     1640
          SA3    WORDCNT           CONVERT PRU BYTE COUNT TO CM WD CT    IRCP     1641
          SX3    X3+4                                                    IRCP     1642
          SA1    =.200000001P48                                          IRCP     1643
          PX3    X3                                                      IRCP     1644
          FX6    X1*X3                                                   IRCP     1645
          UX6    X6                                                      IRCP     1646
          SA6    A3                RESTORE UPDATED WORD COUNT            IRCP     1647
          SB3    X6                SAVE WORD COUNT FOR IMMEDIATE USE     IRCP     1648
          SA4    GETPOINT          FETCH POINTER                         IRCP     1649
          SB7    B2+B4             4 IF SSSSSST, 3 OTHERWISE             IRCP     1650
          SB4    X4                SAVE FETCH POINTER (PRU START)        IRCP     1651
          ZR   B5,SWIFT            JUMP IF NOT 1ST PRU                   IRCP     1652
          SA2    X4+B1             GET PROGRAM NAME, UNLESS SSSSSST      IRCP     1653
          SB3    B3-B7             REDUCE PRU WORD COUNT                 IRCP     1654
          SX7    X4+B7             ADVANCE FETCH ADR PAST HEADER         IRCP     1655
          SA7    A4                SAVE CORRECT FETCH ADDRESS            IRCP     1656
          NZ   B2,BOTTLE           JUMP IF READING FROM SSSSSST          IRCP     1657
          MX1    42                PUT PROGRAM NAME IN MESSAGE           IRCP     1658
          BX7    X1*X2                                                   IRCP     1659
          SA7    PROGNAM                                                 IRCP     1660
BOTTLE    OPCOM  X,(RTITLE,LDV)    DISPLAY MESSAGE                       IRCP     1661
SWIFT     SA1    GETPOINT          FETCH POINTER                         IRCP     1662
          SA2    STOREPT           STORE POINTER                         IRCP     1663
BEANS     SA5    X1                MOVE THE DATA                         IRCP     1664
          ZR   B3,HEAL                                                   IRCP     1665
          BX6    X5                                                      IRCP     1666
          SX1    X1+B1                                                   IRCP     1667
          SA6    X2                                                      IRCP     1668
          SB3    B3-B1                                                   IRCP     1669
          SX2    X2+B1                                                   IRCP     1670
          EQ   BEANS                                                     IRCP     1671
                                                                         IRCP     1672
HEAL      SX6    B4+RMSPRU         UPDATE FETCH ADDRESS                  IRCP     1673
          SA6    A1                                                      IRCP     1674
          BX7    X2                UPDATE STORE ADDRESS                  IRCP     1675
          SA7    A2                                                      IRCP     1676
          SA3    WORDCNT           COMPARE WORD COUNT WITH THAT OF       IRCP     1677
          SB5    X3-RMSPRU         A FULL PRU                            IRCP     1678
          ZR   B5,POUND            LOOP IF THIS PRU WAS NOT SHORT        IRCP     1679
          SA1    LOADRSV           RESTORE B-REGISTERS                   IRCP     1680
          SB4    X1                                                      IRCP     1681
          AX1    18                                                      IRCP     1682
          SB3    X1                                                      IRCP     1683
          EQ   LOADREC             EXIT                                  IRCP     1684
                                                                         IRCP     1685
LOADRSV   DATA   0                 STORAGE FOR B-REGISTERS               IRCP     1686
          EJECT                                                          IRCP     1687
*         SSSFNT -- FIND FNT/FST ENTRY                                   IRCP     1688
*                   FILE MUST BE TYPE COMMON                             IRCP     1689
                                                                         IRCP     1690
*                ENTRY - X1 = FILE NAME                                  IRCP     1691
                                                                         IRCP     1692
*                EXIT  - X2 = FNT ADDRESS                                IRCP     1693
*                        X5 = ZR IF ENTRY WAS FOUND                      IRCP     1694
*                           = NZ IF NOT FOUND                            IRCP     1695
*                        B-REGISTERS ARE SAVED                           IRCP     1696
                                                                         IRCP     1697
SSSFNT    DATA   0                                                       IRCP     1698
          S      A3,P.FNT          GET LIMITS OF FNT/FST                 IRCP     1699
          MX0    48                                                      IRCP     1700
          LX3    12                                                      IRCP     1701
          BX2    -X0*X3            FWA OF FNT                            IRCP     1702
          LX3    12                                                      IRCP     1703
          BX3    -X0*X3            LWA+1 OF FNT                          IRCP     1704
          MX0    42                MASK FOR CHECKING NAMES               IRCP     1705
PICKLES   SA4    X2                GET FNT ENTRY                         IRCP     1706
          BX5    X4-X1                                                   IRCP     1707
          MX6    60-S.FNTLK+S.FNTTYP  MASK FOR CHECKING TYPE             IRCP     1708
          BX5    X0*X5                                                   IRCP     1709
WINK      ZR   X5,IVORY            JUMP IF NAME MATCHES                  IRCP     1710
          SX2    X2+LE.FNT         ADVANCE TO NEXT ENTRY                 IRCP     1711
          IX4    X2-X3                                                   IRCP     1712
          PL   X4,SSSFNT           EXIT IF AT END OF FNT                 IRCP     1713
          EQ   PICKLES             LOOP                                  IRCP     1714
                                                                         IRCP     1715
IVORY     AX4    48-12*C.FTYPE+S.FNTTYP  CHECK IF IT IS TYPE COMMON      IRCP     1716
          BX5    -X6*X4                                                  IRCP     1717
          SX5    X5-2                                                    IRCP     1718
          NZ   X5,WINK             JUMP IF NOT TYPE COMMON               IRCP     1719
          SA3    MEMSIZE           CHECK IF THE FILE IS ON ECS           IRCP     1720
          SA4    X2+B1             FST WORD 1                            IRCP     1721
          MX0    48                                                      IRCP     1722
          LX4    12+12*C.FFRBA     1ST RBT ADDRESS                       IRCP     1723
          BX4    -X0*X4                                                  IRCP     1724
          LX4    1                                                       IRCP     1725
          IX6    X3-X4                                                   IRCP     1726
          SA4    X6                GET 1ST WORD OF 1ST RBT WORD PAIR     IRCP     1727
          MX7    48+S.RBTRBR                                             IRCP     1728
          LX4    12+12*C.RBTRBR-S.RBTRBR                                 IRCP     1729
          BX4    -X7*X4            GET RBR ORDINAL                       IRCP     1730
          SX6    RBRLTH            GET ADR RELATIVE TO START OF RBRS     IRCP     1731
          PX4    X4                                                      IRCP     1732
          PX6    X6                                                      IRCP     1733
          DX3    X4*X6                                                   IRCP     1734
          UX3    X3                                                      IRCP     1735
          S      A4,P.RBR          GET RBR ORIGIN                        IRCP     1736
          SHIFT  X4,C.RBRAD+1                                            IRCP     1737
          IX3    X4+X3             ADDRESS OF 1ST WORD THIS RBR          IRCP     1738
          SA4    X3                1ST RBR WORD                          IRCP     1739
          MX0    54                                                      IRCP     1740
          LX4    6                                                       IRCP     1741
          BX4    -X0*X4            DEVICE TYPE                           IRCP     1742
          SX4    X4-20B                                                  IRCP     1743
          NZ   X4,SSSFNT           EXIT IF NOT ECS                       IRCP     1744
          OPCOM  X,(RTITLE,ECERROR)                                      IRCP     1745
          PS                                                             IRCP     1746
          EJECT                                                          IRCP     1747
          SPACE  4                                                       IRCP     1748
*         CHKEND--CHECK FOR END OF RECORD BLOCK                          IRCP     1749
                                                                         IRCP     1750
*                 EXIT - ALL B-REGISTERS EXCEPT B7 ARE SAVED             IRCP     1751
          SPACE  4                                                       IRCP     1752
 CHKEND   PS                                                             IRCP     1753
          SA1    PRUNO       BUMP PRU NUMBER                             IRCP     1754
          SA2    PRUMAX                                                  IRCP     1755
          SX6    X1+B1             BUMP PRU NUMBER                       IRCP     1756
          IX5    X2-X6                                                   IRCP     1757
          SA6    A1                STORE UPDATED PRU NUMBER              IRCP     1758
          PL   X5,CHKEND           JMP NOT END OF RB YET                 IRCP     1759
          RJ   RDNXTRB             GO READ NEXT RB                       IRCP     1760
          SX7    B0                                                      IRCP     1761
          SA7    PRUNO             SET PRUNO = 0                         IRCP     1762
          EQ   CHKEND                                                    IRCP     1763
          EJECT                                                          IRCP     1764
          SPACE  4                                                       IRCP     1765
*         GETPARAM--MASK OFF THE PARAMETERS SENT BY THE PP PROGRAM       IRCP     1766
                                                                         IRCP     1767
*                   EXIT - B-REGISTERS ARE SAVED                         IRCP     1768
          SPACE  4                                                       IRCP     1769
 GETPARAM PS                                                             IRCP     1770
          SA1    GETPOINT    THE PARAMETERS FROM THE PP ARE IN THE       IRCP     1771
          SX6    X1+B1        FIRST WORD OF THE PRU IMAGE SO BUMP        IRCP     1772
          SA6    A1           GET POINTER PAST THE PARAMS TO FIRST       IRCP     1773
          SA1    X1           ACTUAL WORD OF DATA                        IRCP     1774
          SX4    7777B                                                   IRCP     1775
          BX6    X4*X1                                                   IRCP     1776
          SA6    WORDCNT     PICK UP WORD COUNT                          IRCP     1777
          AX1    12                                                      IRCP     1778
          BX6    X4*X1                                                   IRCP     1779
          SA6    CHECKSUM    PICK UP CHECKSUM                            IRCP     1780
          EQ     GETPARAM                                                IRCP     1781
          EJECT                                                          IRCP     1782
          SPACE  3                                                       IRCP     1783
*         RDNXTRB -- READ NEXT RB OF SYSTEM FILE                         IRCP     1784
                                                                         IRCP     1785
*                 EXIT - ALL B-REGISTERS EXCEPT B7 ARE SAVED             IRCP     1786
          SPACE  4                                                       IRCP     1787
RDNXTRB   PS                                                             IRCP     1788
          RJ   CHNGREQ             GO SET UP REQUEST TO READ NEXT RB     IRCP     1789
          SX7    B0                                                      IRCP     1790
          SB7    B1                                                      IRCP     1791
          SA7    T.PPC2+W.PPIR     ACTIVATE RMSC TO PERFORM READ         IRCP     1792
**                                                                       IRCP     1793
**        THE FOLLOWING IS A DELAY LOOP SO THAT THE CP AND THE PP        IRCP     1794
**        DO NOT FALL ALL OVER EACH OTHER TRYING TO GET AT CM            IRCP     1795
RDNX1     SB7    B7+B7                                                   IRCP     1796
          PL   B7,RDNX1                                                  IRCP     1797
          SB7    B1                                                      IRCP     1798
**                                                                       IRCP     1799
          SA1    A7                FETCH PP-2 INPUT REG                  IRCP     1800
          ZR   X1,RDNX1            JUMP IF RMS STILL BUSY                IRCP     1801
          SA5    T.PPC2+W.PPMES2   FETCH 2-ND WORD OF COMPLETED REQUEST  IRCP     1802
          MX1    48                                                      IRCP     1803
          SA3    RBRORD            FETCH CURRENT RBR ORD                 IRCP     1804
          BX6    -X1*X5            ISOLATE NEW RBR ORDINAL               IRCP     1805
          AX6    3                                                       IRCP     1806
          IX2    X6-X3                                                   IRCP     1807
          ZR   X2,RDNX2            JMP SAME OLD DEVICE                   IRCP     1808
          RJ   GETDEV              GO GET PARAMETERS FOR NEW DEVICE      IRCP     1809
*                                  (THIS IS THE ONLY PLACE IN LOADER)    IRCP     1810
*                                  (WHERE DEVICE SWITCHING IS HANDLED)   IRCP     1811
RDNX2     SA2    T.PPC2+W.PPIR                                           IRCP     1812
          AX2    3                                                       IRCP     1813
          NZ   X2,RDERR            JMP I/O ERROR                         IRCP     1814
RDNX3     SA4    T.PPC2+W.PPMES1                                         IRCP     1815
          SX6    CMBUFFER                                                IRCP     1816
          SA2    UNITNO                                                  IRCP     1817
          MX3    24                                                      IRCP     1818
          LX4    12                                                      IRCP     1819
          BX5    X3*X4                                                   IRCP     1820
          IX7    X5+X2                                                   IRCP     1821
          SA6    GETPOINT          SET GETPOINT = CMBUFFER               IRCP     1822
          LX7    36                                                      IRCP     1823
          SA7    DEVADDR           SET DEVADDR = (0,UNITNO,RBT ADDR,     IRCP     1824
*                                                 RBT ORD,0)             IRCP     1825
          EQ   RDNXTRB                                                   IRCP     1826
          SPACE  2                                                       IRCP     1827
**        THE FOLLOWING IS THE ROUTINE TO PROCESS READ ERRORS            IRCP     1828
RDERR     AX2    1                                                       IRCP     1829
          SA1    X2+MSGTAB                                               IRCP     1830
          SB2    X1                                                      IRCP     1831
          SX2    DEVST1+1                                                IRCP     1832
          RJ   DEVERR                                                    IRCP     1833
          JP   B2                                                        IRCP     1834
                                                                         IRCP     1835
RDERR1    OPCOM  X,(IOERR,ERR1,DEVSTAT,RTITLE,LDV)                       IRCP     1836
          PS                                                             IRCP     1837
RDERR2    OPCOM  X,(IOERR,ERR2,DEVSTAT,RTITLE,LDV)                       IRCP     1838
          PS                                                             IRCP     1839
RDERR3    OPCOM  X,(IOERR,ERR3,DEVSTAT,RTITLE,LDV)                       IRCP     1840
          PS                                                             IRCP     1841
          SPACE  3                                                       IRCP     1842
MSGTAB    VFD    60/RDERR1                                               IRCP     1843
          VFD    60/RDERR2                                               IRCP     1844
          VFD    60/RDERR3                                               IRCP     1845
          EJECT                                                          IRCP     1846
          SPACE  3                                                       IRCP     1847
*         CHNGREQ -- SET UP RMSC REQUEST TO READ NEXT RECORD BLOCK       IRCP     1848
          SPACE  1                                                       IRCP     1849
*                    THIS IS ACCOMPLISHED BY SETTING LENGTH              IRCP     1850
*                    (WORD 2, BYTE 0) TO 1 RB AND SETTING CM FWA         IRCP     1851
*                    (WORD 2,BYTES 1,2) TO "CMBUFFER"                    IRCP     1852
                                                                         IRCP     1853
*                    ON EXIT, B-REGISTERS ARE SAVED                      IRCP     1854
          SPACE  4                                                       IRCP     1855
CHNGREQ   PS                                                             IRCP     1856
          SA2    T.PPC2+W.PPMES2   FETCH SECOND WORD OF LAST REQUEST     IRCP     1857
          SX1    B1                                                      IRCP     1858
          MX5    24                                                      IRCP     1859
          SX4    CMBUFFER                                                IRCP     1860
          LX2    36                                                      IRCP     1861
          BX2    X2*X5                                                   IRCP     1862
          LX1    24                                                      IRCP     1863
          BX6    X2+X4             RESET CM FWA = CMBUFFER               IRCP     1864
          BX7    X6+X1             RESET NO. OF RB-S TO BE READ TO 1     IRCP     1865
          LX7    24                                                      IRCP     1866
          SA7    A2                RESTORE SECOND WORD                   IRCP     1867
          EQ   CHNGREQ                                                   IRCP     1868
          EJECT                                                          IRCP     1869
          SPACE  3                                                       IRCP     1870
*         GETDEV -- GET INFORMATION FOR NEW DEVICE                       IRCP     1871
*                                                                        IRCP     1872
*                INPUT - (X5) = SECOND WORD OF RMSC REQUEST              IRCP     1873
*                        (X6) = RBR ORDINAL FOR NEW DEVICE               IRCP     1874
                                                                         IRCP     1875
*                EXIT - B-REGISTERS ARE SAVED                            IRCP     1876
          SPACE  4                                                       IRCP     1877
GETDEV    PS                                                             IRCP     1878
          S      A1,P.RBR          FETCH RBR POINTER                     IRCP     1879
          SHIFT  X1,C.RBRAD+1                                            IRCP     1880
          MX3    52                                                      IRCP     1881
          SX1    X1                ISOLATE RBR POINTER (T.RBR)           IRCP     1882
          SA6    RBRORD            SAVE RBR ORD (FROM RMSC REQUEST)      IRCP     1883
GETDEV1   ZR   X6,GETDEV2                                                IRCP     1884
          SX6    X6-1              CALCULATE (RBR ADDRESS) =             IRCP     1885
          SX1    X1+RBRLTH            P.RBR + (RBR ORD) * RBRLTH         IRCP     1886
          EQ   GETDEV1                                                   IRCP     1887
GETDEV2   SA2    X1                FETCH 1-ST WORD OF RBR                IRCP     1888
          AX5    16                                                      IRCP     1889
          BX7    -X3*X5                                                  IRCP     1890
          MX4    54                                                      IRCP     1891
          AX2    42                                                      IRCP     1892
          SA7    PRUMAX            SAVE RB SIZE -1 (FROM RMSC REQUEST)   IRCP     1893
          SA3    A2+B1             FETCH 2-ND WORD OF RBR                IRCP     1894
          BX6    -X4*X2                                                  IRCP     1895
          AX3    36                                                      IRCP     1896
          SA6    UNITNO            SAVE DST ORD (FROM RBR)               IRCP     1897
          MX1    48                                                      IRCP     1898
          BX7    -X1*X3                                                  IRCP     1899
          SA7    ESTORD            SAVE EST ORD (FROM RBR)               IRCP     1900
          S      A2,P.EST          EST POINTER                           IRCP     1901
          LX2    12                                                      IRCP     1902
          BX2    -X1*X2            FWA OF EST                            IRCP     1903
          IX6    X2+X7             EST ADR = FWA OF EST + EST ORD        IRCP     1904
          SA6    ESTADR            SAVE EST ADDRESS                      IRCP     1905
          SA5      X6              EST ENTRY                             BCIRCP     25
          SX6      B6                                                    BCIRCP     26
          SA6      SVB6            SAVE B6                               BCIRCP     27
          LX5      36                                                    BCIRCP     28
          MX1      11                                                    BCIRCP     29
          LX1      59                                                    BCIRCP     30
          BX5      X5*X1           ISOLATE MNEMONIC FROM EST             BCIRCP     31
          MX1      12                                                    BCIRCP     32
          SB6      PLUG-DEVTABLE-1                                       BCIRCP     33
 GETDEV3  SA2      B6+DEVTABLE     READ MNEMONIC FROM TABLE              BCIRCP     34
          BX2      X1*X2                                                 BCIRCP     35
          BX6      X2-X5           COMPARE WITH MNEMONIC FROM EST        BCIRCP     36
          ZR       X6,GETDEV4      JUMP IF MNEMONICS MATCH               BCIRCP     37
          SB6      B6-B1                                                 BCIRCP     38
          PL       B6,GETDEV3      LOOP UNTIL MATCH FOUND                BCIRCP     39
          SX6      B0              ASSUME 0                              BCIRCP     40
          EQ       GETDEV5                                               BCIRCP     41
 GETDEV4  SA2      B6+SIZTABLE     NUMBER OF BYTES FOR DEVICE            BCIRCP     42
          SX6      X2-5*RMSPRU-2                                         BCIRCP     43
 GETDEV5  SA6      NOCKSUM         NOCKSUM =0 IMPLIES CHECKSUM WILL BE   BCIRCP     44
*                                  RETURNED IN BYTE 0 OF EACH SECTOR     BCIRCP     45
*                                  READ,   =1 IMPLIES NO CHECKSUM        BCIRCP     46
*                                  RETURNED                              BCIRCP     47
          SA1      SVB6                                                  BCIRCP     48
          SB6      X1              RESTORE B6                            BCIRCP     49
          SX5    LDV2                                                    IRCP     1906
          RJ   DEVINFO             GO SET UP LINE FOR DISPLAY            IRCP     1907
          EQ   GETDEV                                                    IRCP     1908
 SVB6     BSSZ   1                                                       BCIRCP     50
          EJECT                                                          IRCP     1909
          SPACE  3                                                       IRCP     1910
*         SETREQ -- SET UP TWO WORD TYPE-0 RMSC REQUEST TO READ          IRCP     1911
*                   ONE RB OF SYSTEM                                     IRCP     1912
*                                                                        IRCP     1913
*                WORD 1 - GET RBT POINTERS (C.FFRBA,C.FLRBWP,C.FLRBEB)   IRCP     1914
*                         FROM FNT (SYSTEM IS EXPECTED TO BE REWOUND))   IRCP     1915
*                                                                        IRCP     1916
*                WORD 2 - SET TO ZERO                                    IRCP     1917
*                                                                        IRCP     1918
*         LENGTH AND CM FWA ARE ADDED TO THE REQUEST EACH                IRCP     1919
*         TIME IT IS ISSUED.  (THIS IS DONE BY CHNGREQ, CALLED           IRCP     1920
*         BY RDNXTRB.)                                                   IRCP     1921
                                                                         IRCP     1922
*         ON EXIT, ALL B-REGISTERS EXCEPT B2 ARE SAVED                   IRCP     1923
          SPACE  4                                                       IRCP     1924
SETREQ    PS                                                             IRCP     1925
          S      A4,P.FNT                                                IRCP     1926
          MX2    48                                                      IRCP     1927
          SA3    SYNAME                                                  IRCP     1928
          AX4    48                                                      IRCP     1929
          BX4    -X2*X4                                                  IRCP     1930
          SB2    X4                                                      IRCP     1931
          MX6    42                                                      IRCP     1932
SETREQ1   SA1    B2                FETCH NEXT FNT ENTRY                  IRCP     1933
          SB2    B2+LE.FNT                                               IRCP     1934
          BX4    X1*X6                                                   IRCP     1935
          IX5    X4-X3                                                   IRCP     1936
          NZ   X5,SETREQ1          JMP NOT SYSTEM                        IRCP     1937
          SA1    A1+B1             FETCH 2-ND WORD OF FNT ENTRY          IRCP     1938
          SX7    B0                                                      IRCP     1939
          LX1    12                                                      IRCP     1940
          BX6    X2*X1             ISOLATE RBT POINTERS                  IRCP     1941
          SA7    T.PPC2+W.PPMES2   STORE 2-ND WORD                       IRCP     1942
          SA6    T.PPC2+W.PPMES1   STORE 1-ST WORD                       IRCP     1943
          EQ   SETREQ                                                    IRCP     1944
                                                                         IRCP     1945
*         THE CODE HERE ASSUMES THE FOLLOWING SYMBOLS HAVE VALUES        IRCP     1946
*         AS SHOWN.  OTHERWISE, SOME CODE MUST BE CHANGED.               IRCP     1947
                                                                         IRCP     1948
C.FFRBA   EQU    1                                                       IRCP     1949
C.FLRBWP  EQU    2                                                       IRCP     1950
C.FLRBEB  EQU    3                                                       IRCP     1951
          EJECT                                                          IRCP     1952
          SPACE  3                                                       SC2873      3
*         CHKPAK -- CHECK DISK PACKS FOR ACTIVE FILES AND SET            SC2873      4
*                   EST STATUS TO -BUSY- IF SO                           SC2873      5
*                                                                        SC2873      6
*         IF A PACK CONTAINS PERMANENT FILES OR OTHER RECOVERABLE        SC2873      7
*         FILES FOLLOWING A NORMAL OR RECOVERY DEADSTART AND THE EST     SC2873      8
*         STATUS IS LEFT AS ASSEMBLED, THE OPERATOR CAN DO A -DEVADD-    SC2873      9
*         AND THE FILE CONTENT IS DESTROYED, ALTHOUGH THE FNT AND RBT    SC2873     10
*         ARE INTACT.     THUS, IN THIS ROUTINE THE RBR-S ARE SEARCHED   SC2873     11
*         FOR SUCH DEVICES AND THE STATUS SET TO -BUSY-, PREVENTING      SC2873     12
*         -DEVADD- AND HENCE PRESERVING THE FILES.                       SC2873     13
*                                                                        SC2873     14
*         EXIT - ALL B-REGISTERS BUT B2 ARE SAVED                        SC2873     15
          SPACE  4                                                       SC2873     16
CHKPAK    DATA   0                                                       SC2873     17
          SA3    P.EST             FETCH EST POINTER                     SC2873     18
          SA2    P.RQS             FETCH FWA DST                         SC2873     19
          AX3    48                                                      SC2873     20
          SA1    P.RBR             FETCH RBR ADDR                        SC2873     21
          MX0    48                                                      SC2873     22
          SB2    X3                B2 = FWA EST                          SC2873     23
          BX2    -X0*X2                                                  SC2873     24
          AX1    36-C.RBRAD*12     POSITION BOTH TO BYTE 4               SC2873     25
          LX2    3                                                       SC2873     26
CHKPAK1   IX5    X1-X2             COMPARE RBR,DST POINTERS              SC2873     27
          SA3    X1                FETCH RBR HEADER                      SC2873     28
          PL   X5,CHKPAK           JMP ALL DONE                          SC2873     29
          SA4    X1+B1                                                   SC2873     30
          AX3    54                                                      SC2873     31
          SX1    X1+RBRLTH         BUMP RBR POINTER                      SC2873     32
          SX3     X3-7             CHECK EQUIP TYPE                      SC2873     33
          NZ   X3,CHKPAK1          JUMP NOT AP                           SC2873     34
          AX4    12                                                      SC2873     35
          BX3    -X0*X4            ISOLATE NUMBER AVAILABLE RB-S         SC2873     36
          AX4    12                                                      SC2873     37
          BX5    -X0*X4            ISOLATE NUMBER USABLE RB-S            SC2873     38
          SX3    X3+B1             IGNORE LABEL RB                       SC2873     39
          AX4    12                                                      SC2873     40
          BX6    -X0*X4            ISOLATE EST ORDINAL                   SC2873     41
          IX3    X3-X5                                                   SC2873     42
          SA5    X6+B2             FETCH EST ENTRY                       SC2873     43
          PL   X3,CHKPAK1          JUMP NO RB-S ALLOCATED                SC2873     44
         MX3        57                                                   SC2873A     1
          SX4    B1                CHANGE EST                            SC2873     46
          LX5    9                    STATUS TO BUSY                     SC2873     47
         BX3        X3*X5                                                SC2873A     2
          IX7    X3+X4                                                   SC2873     49
          LX7    51                                                      SC2873     50
          SA7    X6+B2             RESTORE EST ENTRY                     SC2873     51
          EQ   CHKPAK1             LOOP                                  SC2873     52
          EJECT                                                          SC2873     53
          SPACE  3                                                       IRCP     1953
*         THE FOLLOWING ARE THE DISPLAY MESSAGES FOR LOADING             IRCP     1954
          SPACE  4                                                       IRCP     1955
RTITLE    MSGLST   LARGE,RIGHT                                           IRCP     1956
TITLE     MSGTEXT  ( SYSTEM LOADING)                                     IRCP     1957
          ENDLST                                                         IRCP     1958
          SPACE  2                                                       IRCP     1959
LDV       MSGLST                                                         IRCP     1960
          POSTXT   *,3                                                   IRCP     1961
LDV1      MSGTEXT  (                          )                          IRCP     1962
LDV2      EQU      LDV1+1                                                IRCP     1963
          POSTXT   *,6                                                   IRCP     1964
LDV3      MSGTEXT  (LOADING -     )                                      IRCP     1965
LDV4      EQU      LDV3+2                                                IRCP     1966
PROGNAM   EQU      LDV4                                                  IRCP     1967
          ENDLST                                                         IRCP     1968
          SPACE  2                                                       IRCP     1969
RESMSG    QSTLST                                                         IRCP     1970
          POSTXT   *,5                                                   IRCP     1971
RESMSG1   MSGTEXT  (RESIDENCE ERROR FOR  )                               IRCP     1972
RESMSG2   EQU      RESMSG1+3                                             IRCP     1973
          POSTXT   *,8                                                   IRCP     1974
          QSTEXT   (TO PROCEED ENTER NEW RESIDENCE)                      IRCP     1975
          ENDLST                                                         IRCP     1976
          SPACE  2                                                       IRCP     1977
RESOPT    OPTLST                                                         IRCP     1978
          PTABX    5                                                     IRCP     1979
          OPTEXT   (CM$ - CM RESIDENCE)                                  IRCP     1980
          OPTEXT   (DS$ - RMS DEVICE RESIDENCE)                          IRCP     1981
          ENDLST                                                         IRCP     1982
          SPACE  2                                                       IRCP     1983
OVERFLO   MSGLST   LEFT                                                  IRCP     1984
          POSTXT   *,5                                                   IRCP     1985
          MSGTEXT  (THE CM RESIDENT LIBRARY HAS)                         IRCP     1986
          MSGTEXT  (OVERFLOWED THE DEAD START)                           IRCP     1987
          MSGTEXT  (PROGRAMS)                                            IRCP     1988
          ENDLST                                                         IRCP     1989
          SPACE 2                                                        BBBECS1   135
OVERECS   MSGLST    LEFT                                                 BBBECS1   136
          POSTXT    *,5                                                  BBBECS1   137
          MSGTEXT   (THE ECS RESIDENT LIBRARY HAS)                       BBBECS1   138
          MSGTEXT   (OVERFLOWED THE ECS LIBRARY LIMIT)                   BBBECS1   139
          MSGTEXT   (    -- TOO BAD --)                                  BBBECS1   140
          ENDLST                                                         BBBECS1   141
          SPACE    2                                                     HS2IRCP   129
 CERROR   QSTLST                                                         HS2IRCP   130
          POSTXT   *,0                                                   HS2IRCP   131
          QSTEXT   (A (C) RECOVERY CANNOT)                               HS2IRCP   132
          QSTEXT   (BE DONE AS ECS LIBRARY)                              HS2IRCP   133
          QSTEXT   (WAS ALTERED IN THE)                                  HS2IRCP   134
          QSTEXT   (LAST EDITLIB.)                                       HS2IRCP   135
          POSTXT   *,*                                                   HS2IRCP   136
          QSTEXT   (ENTER TYPE OF)                                       HS2IRCP   137
          QSTEXT   (RECOVERY TO)                                         HS2IRCP   138
          QSTEXT   (BE DONE INSTEAD).                                    HS2IRCP   139
          ENDLST                                                         HS2IRCP   140
          SPACE    1                                                     HS2IRCP   141
 CERROR1  OPTLST   RIGHT                                                 HS2IRCP   142
          OPTEXT   (B$ RELOAD ORIGINAL SYSTEM)                           HS2IRCP   143
          OPTEXT   (D$ INCLUDE THRU LAST EDITLIB)                        HS2IRCQ    27
          ENDLST                                                         HS2IRCP   145
          SPACE 2                                                        BBBECS1   142
                                                                         IRCP     1990
DERROR    MSGLST  MEDIUM,LEFT                                            IRCP     1991
          POSTXT  *,5                                                    IRCP     1992
          MSGTEXT  (DUE TO THE SIZE OF THE PNT,)                         IRCP     1993
          MSGTEXT  (A RECOVERY OF THIS TYPE (D))                         IRCP     1994
          MSGTEXT  (CANNOT BE PERFORMED.)                                IRCP     1995
          MSGTEXT  (TRY TYPE A, B, OR C)                                 IRCP     1996
          ENDLST                                                         IRCP     1997
                                                                         IRCP     1998
ECERROR   MSGLST  MEDIUM,LEFT                                            IRCP     1999
          POSTXT  *,5                                                    IRCP     2000
          MSGTEXT  (CANNOT PERFORM TYPE C OR D)                          IRCP     2001
          MSGTEXT  (RECOVERY IF FILES SSSSSST OR)                        IRCP     2002
          MSGTEXT  (SSSSSSU ARE ON ECS)                                  IRCP     2003
          ENDLST                                                         IRCP     2004
          SPACE    2                                                     HS2IRCQ    28
 EC2M     QSTLST                                                         HS2IRCQ    29
          POSTXT   *,2                                                   HS2IRCQ    30
          QSTEXT   (ECS IS HALF-OFF.)                                    HS2IRCQ    31
          POSTXT   *,*                                                   HS2IRCQ    32
          QSTEXT   (PLEASE ENTER THE)                                    HS2IRCQ    33
          QSTEXT   (ECS CONFIGURATION)                                   HS2IRCQ    34
          QSTEXT   (SWITCH SETTING.)                                     HS2IRCQ    35
          ENDLST                                                         HS2IRCQ    36
          SPACE    2                                                     HS2IRCQ    37
 EC2MO    OPTLST   RIGHT                                                 HS2IRCQ    38
          OPTEXT   (ODD$ SWITCH =ODD= IS UP)                             HS2IRCQ    39
          OPTEXT   (EVEN$ SWITCH =EVEN= IS UP)                           HS2IRCQ    40
          ENDLST                                                         HS2IRCQ    41
          SPACE  2                                                       IRCP     2005
CHKMSG    MSGLST  LEFT                                                   IRCP     2006
          POSTXT   *,5                                                   IRCP     2007
CHKM1     MSGTEXT  (CHECKSUM ERROR IN    )                               IRCP     2008
CHKM2     EQU      CHKM1+3                                               IRCP     2009
          ENDLST                                                         IRCP     2010
          SPACE  2                                                       IRCP     2011
DEVSTAT   MSGLST   LEFT                                                  IRCP     2012
          POSTXT   *,12                                                  IRCP     2013
          MSGTEXT  (RBR RB PRU DVST CVST  ADR-REG )                      IRCP     2014
DEVST1    MSGTEXT  (                              )                      IRCP     2015
          ENDLST                                                         IRCP     2016
          SPACE  2                                                       IRCP     2017
IOERR     MSGLST   LARGE,LEFT                                            IRCP     2018
          MSGTEXT  (  I/O ERROR)                                         IRCP     2019
          ENDLST                                                         IRCP     2020
          SPACE  2                                                       IRCP     2021
ERR1      MSGLST   MEDIUM,LEFT                                           IRCP     2022
          POSTXT   *,5                                                   IRCP     2023
          MSGTEXT  (PARITY ERROR OR LOST DATA)                           IRCP     2024
          ENDLST                                                         IRCP     2025
          SPACE  2                                                       IRCP     2026
ERR2      MSGLST   MEDIUM,LEFT                                           IRCP     2027
          POSTXT   *,5                                                   IRCP     2028
          MSGTEXT  (DEVICE NOT AVAILABLE)                                IRCP     2029
          ENDLST                                                         IRCP     2030
          SPACE  2                                                       IRCP     2031
ERR3      MSGLST   MEDIUM,LEFT                                           IRCP     2032
          POSTXT   *,5                                                   IRCP     2033
          MSGTEXT  (RMS DRIVER OVERLAY NOT FOUND)                        IRCP     2034
          ENDLST                                                         IRCP     2035
          TITLE    ECSETUP -- SETUP AND ZERO ECS                         HS2IRCQ    42
