*                                                                       ELS10001
*                                                                       ELS10002
 TITLE 'CPV/CPR CHRONO-SORTED MODULE FOR ELLA. 708008-A02 9-XX-75'      S1--0002
*                                                                       ELS10004
         SYSTEM   SIG7FDP                                               ELS10005
         REF      DCT%MASK                                              ELS10006
         CSECT                                                          ELS10007
         DEF      CLIS:0                                                ELS10008
         DEF      SLIS:0                                                ELS10009
*                                                                       ELS10010
* PROCEDURES.                                                           ELS10011
*                                                                       ELS10012
* THIS PROC WILL GENERATE A STRING OF BYTE FIELDS.                      ELS10013
*                                                                       ELS10014
BS       CNAME                                                          ELS10015
         PROC                                                           ELS10016
         BOUND    4                                                     ELS10017
LF       EQU      %                                                     ELS10018
I        DO       NUM(AF)                                               ELS10019
         DATA,1   AF(I)                                                 ELS10020
         FIN                                                            ELS10021
         BOUND    4                                                     ELS10022
         PEND                                                           ELS10023
*                                                                       ELS10024
*                                                                       ELS10025
LDCTX    CNAME                                                          ELS10026
         PROC                                                           ELS10027
LF       EQU      %                                                     ELS10028
         DO       NUM(AF)=2                                             ELS10029
         GEN,1,7,4,3,17 AFA,X'32',CF(2),AF(2),AF(1)                     ELS10030
         SLS,CF(2)  -16                                                 ELS10031
         ELSE                                                           ELS10032
         GEN,1,7,4,3,17 AFA,X'52',CF(2),0,AF(1)                         ELS10033
         FIN                                                            ELS10034
         AND,CF(2) DCT%MASK                                             ELS10035
         PEND                                                           ELS10036
LSECTA   CNAME                                                          ELS10037
         PROC                                                           ELS10038
         LW,CF(2) AF(1)                                                 ELS10039
         AND,CF(2)  XXXXFFFF                                            ELS10040
         MI,CF(2)  5**7                                                 ELS10041
         SCS,CF(2)  2                                                   ELS10042
         STH,AF(1)  CF(2)                                               ELS10043
         SCS,CF(2)  16                                                  ELS10044
         PEND                                                           ELS10045
         PAGE                                                           ELS10046
         REF      L:SPACE                                               ELS10047
         REF      L:SPACE2,L:SPACE3                                     S1--0004
         REF      L:PRINT,E:PRINT                                       ELS10048
         REF      TYPEF,:TYPE:,DEVF,:DEV:,MODF,:MOD:                    ELS10049
         REF      HEXDEC:,HEXDECE,DECHEX:,HEXFIVE,BINEBC                ELS10050
         REF      HEXEBC,EBCHEX8,EBCHEX1,MS:HMSN,HMSN:MS,JD:MD,MD:JD    ELS10051
         REF      HEXTWO,BUFFER                                         ELS10052
         REF      CT:PRINT                                              ELS10053
         REF      MSG1,MSG2,MSG3,MSG4,MSG5,MSG6,MSG7,MSG8,MSG9,MSG10    ELS10054
         REF      MSG11,MSG12,MSG13,MSG14,MSG15,MSG16,MSG17,MSG18,MSG19 ELS10055
         REF      MSG154,MSG1A,MSG1B                                    ELS10056
         REF      MSG13A,MSG13B,MSG19A,MSG19B                           ELS10057
         REF      READ:ERF,R:COM,S:SYS                                  ELS10058
         REF      REW:FLAG                                              ELS10059
         REF      MSG2A,MSG2B,MSG3A,MSG3B,MSG4A,MSG4B                   ELS10060
         REF      MSG5A,MSG5B,MSG6A,MSG6B,MSG7A,MSG7B                   ELS10061
         REF      MSG8A,MSG8B,MSG9A,MSG9B,MSG10A,MSG10B                 ELS10062
         REF      DSP:                                                  ELS10063
         REF      HEXFOUR                                               ELS10064
         REF      EL:DCB                                                ELS10065
         REF      MOD:EBC                                               ELS10066
         REF      READFIL,TABPNTR                                       ELS10067
         REF      MDIO,IOMD                                             ELS10068
         REF      BRK:CHK                                               ELS10069
         REF      FLAG:PR                                               ELS10070
         PAGE                                                           ELS10071
*                                                                       ELS10072
*                                                                       ELS10073
*        BIFSYS *(KEY,*ADDR) . . .                                      ELS10074
*                                                                       ELS10075
*        KEY IS SYSTEM NAME (CPR,CPV,RBM)                               ELS10076
*        ADDR IS BRANCH ADDRESS                                         ELS10077
*        GROUP MAY BE REPEATED FOR MULTIPLE TEST/BRANCHES               ELS10078
*        AFA(I)   INDICATES B IF NOT SYSTEM                             ELS10079
*        AFA(I,2) INDICATES B INDIRECT                                  ELS10080
*                                                                       ELS10081
*                                                                       ELS10082
BIFSYS   CNAME                                                          ELS10083
         PROC                                                           ELS10084
         LOCAL    I,T1                                                  ELS10085
         GEN,8,4,20  X'71',1,S:SYS         CB,1 S:SYS                   ELS10086
I        DO       NUM(AF)                                               ELS10087
T1       SET      SCOR(AF(I,1),RBM,CPR)                                 ELS10088
         DO       T1>0                                                  ELS10089
         GEN,1,7,4,20  AFA(I,2),X'69'-AFA(I),T1,AF(I,2)                 ELS10090
         ELSE                                                           ELS10091
         GEN,1,7,4,20  AFA(I,2),X'68'+AFA(I),3,AF(I,2)                  ELS10092
         FIN                                                            ELS10093
         FIN                                                            ELS10094
         PEND                                                           ELS10095
*                                                                       ELS10096
*                                                                       ELS10097
         PAGE                                                           ELS10098
         REF      MSG11A,MSG11B,MSG12A,MSG12B                           ELS10099
*                                                                       ELS10100
* CLIS DATA AREA                                                        ELS10101
*                                                                       ELS10102
* TYPE 15                                                               ELS10103
         DEF      ST                                                    ELS10104
ST       EQU      %                                                     ELS10105
AIOS     DATA     0                                                     ELS10106
MFI      DATA     0                                                     ELS10107
AIOC     DATA     0                                                     ELS10108
TDVC     DATA     0                                                     ELS10109
TIOC     DATA     0                                                     ELS10110
SUBCHSTA DATA     0                                                     ELS10111
TDVCCDA  DATA     0                                                     ELS10112
TDVS     DATA     0                                                     ELS10113
BYTREM   DATA     0                                                     ELS10114
CURCOMDW DATA     0                                                     ELS10115
         DATA     0                                                     ELS10116
TIOS     DATA     0                                                     ELS10117
RETREQ   DATA     0                                                     ELS10118
RETREM   DATA     0                                                     ELS10119
VSN      DATA     0                                                     ELS10120
ORGFCDE  DATA     0                                                     ELS10121
CURFCDE  DATA     0                                                     ELS10122
* TYPE 21                                                               ELS10123
MODEL    DATA     0                                                     ELS10124
DCTINDX  DATA     0                                                     ELS10125
ALTIOADD DATA     0                                                     ELS10126
PRIIOADD DATA     0                                                     ELS10127
*                                                                       ELS10128
YEAR     DATA     0                                                     ELS10129
JULIAN   DATA     0                                                     ELS10130
*                                                                       ELS10131
*                                                                       ELS10132
CODETBL  DATA     X'11121315',X'17181921',X'22232730',X'31324142'       ELS10133
         DATA     X'4344161D'                                           ELS10134
RTBL     DATA     RT11,RT12,RT13,RT15,RT17,RT18,RT19,RT21               ELS10135
         DATA     RT22,RT23,RT27,RT30,RT31,RT32,RT41,RT42               ELS10136
         DATA     RT43,RT44,RT16,RT1D                                   ELS10137
RTBLEND  EQU      %                                                     S1--0006
CODTBLX  DATA     X'101A1B1E',X'1F202434',X'35363738',X'39505152'       ELS10138
         DATA     X'53282649'                                           ELS10139
         DATA     X'2D2E2F00'                                           S1--0008
RTBLX    DATA     RT10,RT1A,RT1B,RT1E,RT1F,RT20                         ELS10140
         DATA     RT24,RT34,RT35,RT36,RT37,RT38,RT39,RT50               ELS10141
         DATA     RT51,RT52,RT53,RT28                                   ELS10142
         DATA     RT26,RT49                                             ELS10143
         DATA     RT2D,RT2E,RT2F                                        S1--0010
RTBLXEND EQU      %                                                     S1--0011
*                                                                       S1--0012
TTLCPR   EQU      (RTBLEND-RTBL)                                        S1--0013
TTLCPVO  EQU      (RTBLXEND-RTBLX)                                      S1--0014
*                                                                       S1--0015
*                                                                       S1--0016
VALIDWK  DATA     X'04900200'                                           ELS10144
FFFFXX   DATA     X'FFFF0000'                                           ELS10145
M3       DATA     X'7'                                                  ELS10146
M4       DATA     X'F'                                                  ELS10147
M6       DATA     X'3F'                                                 ELS10148
XXXXXXFF DATA     X'000000FF'                                           ELS10149
XX7FFFFF DATA     X'007FFFFF'                                           ELS10150
XXXXFFFF DATA     X'0000FFFF'                                           ELS10151
SAVE     RES      10                                                    ELS10152
X7AX     DATA     X'7A000000'                                           ELS10153
X40X     DATA     X'40404040'                                           ELS10154
TITL23   TEXT     '*** TIME STAMP ***  DATE=  /  /   ',;                ELS10155
                  ' TIME=  :  :  :   '                                  ELS10156
CLTITL   TEXT     'C H R O N O L O G I C A L  L I S T I N G'            ELS10157
UNDERL   TEXT     '- - - - - - - - - - - - -  - - - - - - -'            ELS10158
CLISF    DATA     0                                                     ELS10159
N8       DATA     8                                                     ELS10160
SEQFLG   DATA     0                                                     ELS10161
MODCN    DATA     0            MODEL COUNT                              ELS10162
MODCH    DATA     0            MODLE                                    ELS10163
DEVCN    DATA     0                                                     ELS10164
DEVCH    DATA     0            DEVICE COUNT AND LOCATION                ELS10165
TYPECN   DATA     0            TYPE COUNT.....                          ELS10166
*                                                                       ELS10167
*                                                                       ELS10168
*        THIS SUBROUTINE WILL FETCH THE MODEL FROM BUFFER               ELS10169
*        AND PLACE THE EBCDIC REPRESENTATION INTO THE                   ELS10170
*        OUTPUT BUFFER (MSG2) TO BE PRINTED BY CT:PRINT.                ELS10171
*        ALL REGISTERS ARE SAVED.                                       ELS10172
*                                                                       ELS10173
MOD:IN   EQU      %                                                     ELS10174
         LCI      3            SAVE THE REGISTERS. 13-15                ELS10175
         STM,13   MODSVE                                                ELS10176
         LW,14    BUFFER       FETCH THE BUFFER CONTENTS.               ELS10177
         AND,14   XXXXFFFF     AND THE MODEL IN:.......                 ELS10178
         BAL,15    MOD:EBC                                              ELS10179
         XW,14    15           XCHANGE THE CONTENTS AROUND.             ELS10180
         SLD,14   -8                                                    ELS10181
         LI,13    4                                                     ELS10182
         STB,13   14           STORE THE BYTE COUNT.                    ELS10183
         STW,14   MSG2         SAVE INTO THE OUTPUT BUFFER.             ELS10184
         STW,15   MSG2,1                                                ELS10185
         LCI      3            RESTORE REGISTERS.                       ELS10186
         LM,13    MODSVE                                                ELS10187
         B        *15                                                   ELS10188
MODSVE   RES      3                                                     ELS10189
*                                                                       ELS10190
*                                                                       ELS10191
*                                                                       ELS10192
         PAGE                                                           ELS10193
         SPACE    5                                                     ELS10194
SLIS:0   EQU      %                                                     ELS10195
         LI,14    26                                                    ELS10196
         BAL,15   L:PRINT                                               ELS10197
         DATA     SLTITL            PRINT TITLE, SORTED LISTING         ELS10198
         BAL,15   L:PRINT                                               ELS10199
         DATA     SUNDER                                                ELS10200
         BAL,15   L:SPACE3                                              S1--0018
         BAL,15   DSP:                                                  ELS10204
         STW,1    REW:FLAG                                              ELS10205
         STW,0    CLISF        SET CLISF                                ELS10206
         BAL,15   READ:ERF     SET UP SORT TABLE.........               ELS10207
         STW,0    SEQFLG                                                ELS10208
*                                                                       ELS10209
         LW,12    BRK:CHK                                               ELS10210
         BNEZ     S:END                                                 ELS10211
         STW,0    FLAG:PR                                               ELS10212
*                                                                       ELS10213
*                                                                       ELS10214
*  SORT CONTROL..                                                       ELS10215
*  ERROR FILE SHOULD BE CLOSED BY THIS TIME...                          ELS10216
*                                                                       ELS10217
*                                                                       ELS10218
S:A      EQU      %                                                     ELS10219
         STW,0    NEWFL        RESET A FLAG......(UNNASSOCIATED FLAG)   ELS10220
         STW,0    MODCH        CLEAR ALL LOCATION TO INTIALIZATION.     ELS10221
         STW,0    MODCN                                                 ELS10222
         STW,0    DEVCH                                                 ELS10223
         STW,0    DEVCN                                                 ELS10224
         STW,0    TYPECN                                                ELS10225
         STW,0    F:T               CLEAR OUT FLAGS.                    ELS10226
         STW,0    CUNA         RESET TYPE DEF. FLAG.......(NEW)         ELS10227
         STW,0    F:M                                                   ELS10228
         STW,0    F:D                                                   ELS10229
         STW,0    XFLAG15                                               ELS10230
         STW,0    UNASSFLG     RESET THE UNNASSOCAITEED FLAG....        ELS10231
         STW,0    MODP         CLEAR MODP AN DEVP                       ELS10232
         STW,0    DEVP                                                  ELS10233
S:TBA    MTW,0    MODF         ANY MODEL ASKEDD FOR....                 ELS10234
         BNEZ     S:A11        B: IF YESS......                         ELS10235
         MTW,0    DEVF         ANY DEVICE ADDRESS ASKED FOR.            ELS10236
         BNEZ     S:B11        B: IF YES.........                       ELS10237
         MTW,0    TYPEF        ANY TYPE CODE ASKED FOR.                 ELS10238
         BEZ      S:C          B: IF NONE.......(DEFAULT CASE)          ELS10239
         STW,1    CUNA         SET THE CUNA FLAG....(TYPE ONLY ASKED FORELS10240
         B        S:C          BRANCH TO DEFAULT PATH.....(TYPE ONLY)   ELS10241
*                                                                       ELS10242
*                                                                       ELS10243
*                                                                       ELS10244
S:A11    STW,1    MODCN        SET INITIALIZE IN INDE COUNT(MODEL)      ELS10245
S:B2     LW,5     MODCN        FETCH THE MODEL                          ELS10246
         LW,12    MODF,5                                                ELS10247
         STW,12   MODCH                                                 ELS10248
*                                                                       ELS10249
*                                                                       ELS10250
*                                                                       ELS10251
         MTW,0    DEVF         ANY DEVICE ADDRESS ASKED FOR.            ELS10252
         BEZ      S:B3                                                  ELS10253
S:B11    STW,1    DEVCN        INITIALIZE DEVICE COUNT.                 ELS10254
S:B4     LW,5     DEVCN        FETCH THE DEVICE ADDRESS.                ELS10255
         LW,12    DEVF,5                                                ELS10256
         STW,12   DEVCH                                                 ELS10257
*                                                                       ELS10258
*        MODEL AND/OR DEVICE ADDRESS FETCHED. GO ON.....                ELS10259
*                                                                       ELS10260
S:B3     EQU      %                                                     ELS10261
         MTW,0    MDIO         ANY MODEL/ADDRESS IN TABLE.              ELS10262
         BEZ      S:END        IF ZERO EXIT.(WHY GO ON IF NONE EXIST)   ELS10263
         LI,4     1            INITIALIZE REGISTER 4 FOR TALBE INDEX.   ELS10264
S:C3A    LW,15    MDIO,4       FETCH THE MODEL                          ELS10265
         LW,14    IOMD,4       FETCH THE IO ADDRESS.                    ELS10266
         MTW,0    MODF         CHECK MODEL ASKED FOR.                   ELS10267
         BEZ      S:C1A        BRANCH IF ZERO                           ELS10268
         CW,15    MODCH        COMPARE TO MODEL ASKED FOR.              ELS10269
         BNE      S:C2A        NO MATCH FETCH NEXT MD/IO FROM TABLE     ELS10270
         MTW,0    DEVF         MODEL MATCHED/ OR NONE CHECK DEVICE      ELS10271
         BEZ      S:C4A        BRANCH TO PROCESS IF NONE..........      ELS10272
S:C1A    CW,14    DEVCH        DEVICE MATCH???                          ELS10273
         BE       S:C4A        BRANCH IF YES.........                   ELS10274
*                                                                       ELS10275
*        NO MATCH FOUND...LOOP UNTIL EXHAUSTED TABLE.....OR FOUND       ELS10276
*                                                                       ELS10277
S:C2A    AI,4     1            INCREMENT INDEX TABLE COUNTER..4         ELS10278
         CW,4     MDIO         LOOP UNTIL ALL                           ELS10279
         BLE      S:C3A        BRANCH IF LESS OR EQUAL.....             ELS10280
         B        OVER         END ..BRANCH TO GET NEW MODEL/IO         ELS10281
*                                                                       ELS10282
*        MODEL AND/OR IO FOUND....SEARCH ACCORDINGLY TO TYPE.....       ELS10283
*                                                                       ELS10284
S:C4A    STW,15   MODP         INSERT INTO MODEL PARAMETER.             ELS10285
         STW,14   DEVP         INSERT INTO DEVICE PARAMETER             ELS10286
         STW,1    F:D                                                   ELS10287
         STW,1    F:M                                                   ELS10288
         STW,0    XFLAG15      RESET X FLAG15                           ELS10289
**                                                                      ELS10290
*        TYPE LOOP...ALLL TYPES TO BE GIVEN UNLESS TYPE IS ASKED FOR.   ELS10291
**                                                                      ELS10292
         STW,0    TYPECN       INITIALIZE TYPE INDEX.                   ELS10293
S:AH     BAL,15   TYPEGET      GET NEW TYPE....(TYPEP,TYPES)            ELS10294
         B        OVER1        OVER WITH THE TYPE                       ELS10295
         MTW,0    TYPEF        ANY TYPE ASKED FOR..                     ELS10296
         BEZ      S:EGG        BRANCH IF NONE...GIVE ALL TYPES.         ELS10297
         BAL,15   SECCHK       SECONDARIES.....                         ELS10298
         BAL,15   SAM          FILTER OUT SECONDARY.                    ELS10299
         B        S:AH         NO: BRANCH GET NEW TYPE                  ELS10300
*                                                                       ELS10301
*        SEARCH.....                                                    ELS10302
*                                                                       ELS10303
         BAL,15   XSAM         SET THE SECONDARY FOLLOW FLAG......      ELS10304
S:EGG    BAL,15   SEARCH       .............................            ELS10305
         B        S:AH         GET NEXT TYPE......                      ELS10306
*                                                                       ELS10307
*                                                                       ELS10308
*                                                                       ELS10309
OVER1    STW,0    F:FLAG       RESET THE F:FLAG.                        ELS10310
         MTW,0    TYPEF        ANY TYPES ASKED FOR.....                 ELS10311
         BEZ      OVER2        B: IF NO. GET ALL UNNASSIGNED SECOND..   ELS10312
         LW,5     TYPEF        FETCH THE COUNTER.                       ELS10313
         LW,12    TYPEF,5      FETCH ASKED FOR TYPE.....                ELS10314
         CI,12    X'16'        DEVICE SECONDARY ASKED FOR....           ELS10315
         BE       %+3          YES.. GIVE IT TO HIM                     ELS10316
         BDR,5    %-3          LOOP................                     ELS10317
         B        S:C2A        NO......NO DDEVICE SECONDARY.            ELS10318
OVER2    LI,12    X'16'                                                 ELS10319
         STW,12   TYPES        INSERT INTO TYPES.                       ELS10320
         STW,0    TYPEP        INSERT INTO PRMARY                       ELS10321
         STW,1    UNASSFLG     SET UNASSFLG.....                        ELS10322
         BAL,15   SEARCH       ********SEARCH............               ELS10323
         STW,0    UNASSFLG     RESET UNASSFLG.                          ELS10324
         B        S:C2A        AGAIN...........                         ELS10325
*                                                                       ELS10326
*                                                                       ELS10327
*                                                                       ELS10328
OVER     MTW,0    DEVF         ANY MORE DEVICE ADDRESS.                 ELS10329
         BEZ      S:B6         B: IF NO                                 ELS10330
         MTW,1    DEVCN        INCREMENT COUNTER.                       ELS10331
         LW,12    DEVCN                                                 ELS10332
         CW,12    DEVF         ALL DONE........                         ELS10333
         BLE      S:B4         B: IF NO                                 ELS10334
S:B6     MTW,0    MODF         ANY MORE MODEL.....                      ELS10335
         BEZ      S:END        END IT ALL THEN.                         ELS10336
         MTW,1    MODCN        INCREMENT MODEL COUNTER                  ELS10337
         LW,12    MODCN                                                 ELS10338
         CW,12    MODF                                                  ELS10339
         BLE      S:B2         LOOP                                     ELS10340
         B        S:END        END..................                    ELS10341
*                                                                       ELS10342
*                                                                       ELS10343
*                                                                       ELS10344
*DEFAULT .............................                                  ELS10345
*                                                                       ELS10346
*                                                                       ELS10347
*                                                                       ELS10348
S:C      EQU      %                                                     ELS10349
         STW,0    F:M          RSET FLAG FOR MOD.                       ELS10350
         STW,0    F:D          RESET DEVICE FLAG.                       ELS10351
         STW,0    MODP                                                  ELS10352
         STW,0    DEVP                                                  ELS10353
         STW,0    XFLAG15                                               ELS10354
         STW,0    F:FLAG       RESET THE F:FLAG....                     ELS10355
         STW,0    F:FLAG1                                               ELS10356
         STW,0    UNASSFLG     RESET THE UNASSOCIATED FLAG.             ELS10357
         LI,4     0                                                     ELS10358
S:C1     LB,12    SYSTYP,4                                              ELS10359
         STW,12   TYPEP                                                 ELS10360
         LB,12    SYSTYS,4                                              ELS10361
         STW,12   TYPES                                                 ELS10362
         STW,1    F:T                                                   ELS10363
         LW,15    CUNA         CUNA FLAG SET.....                       ELS10364
         BEZ      SSA          B: IF NOT SET.....                       ELS10365
         BAL,15   SECCHK       DDETERMINE IF SECONDARY OR NOT...        ELS10366
SEXD     BAL,15   SAM          LOOK FOR THE FILTER.....                 ELS10367
         B        SSE          NO SEARCH.........                       ELS10368
SSA      EQU      %                                                     ELS10369
         BAL,15   XSAM         FILTER THE SECONDARY FOLLOWING...        ELS10370
         BAL,15   SEARCH            SEARCH THE RECORD                   ELS10371
         LW,12    BRK:CHK                                               ELS10372
         BNEZ     S:END                                                 ELS10373
SSE      EQU      %                                                     ELS10374
         AI,4     1                                                     ELS10375
         CW,4     SYSPC                                                 ELS10376
         BL       S:C1                                                  ELS10377
         LW,4     MDIO                                                  ELS10378
         BEZ      S:END                                                 ELS10379
         LI,4     1                                                     ELS10380
S:C2     LW,12    MDIO,4                                                ELS10381
         STW,12   MODP                                                  ELS10382
         STW,1    F:M                                                   ELS10383
         LW,12    IOMD,4                                                ELS10384
         STW,12   DEVP                                                  ELS10385
         STW,1    F:D                                                   ELS10386
         STW,0    XFLAG15                                               ELS10387
         LI,5     0                                                     ELS10388
S:C3     LB,12    TYPEPL,5                                              ELS10389
         STW,12   TYPEP                                                 ELS10390
         LB,12    TYPESL,5                                              ELS10391
         STW,12   TYPES                                                 ELS10392
         LW,15    CUNA         CUNA FLAG SET....                        ELS10393
         BEZ      SSB          B: IF NOT SET.....                       ELS10394
         BAL,15   SAM          LOOK FOR FILTER.....                     ELS10395
         B        SSF          NO SEARCH......                          ELS10396
SSB      EQU      %                                                     ELS10397
         BAL,15   XSAM         FILTER THE SECONDARY FOLLOWING .....     ELS10398
         BAL,15   SEARCH            SEARCH A RECORD                     ELS10399
         LW,12    BRK:CHK                                               ELS10400
         BNEZ     S:END                                                 ELS10401
SSF      EQU      %                                                     ELS10402
         AI,5     1                                                     ELS10403
         CW,5     DEPRIM                                                ELS10404
         BL       S:C3                                                  ELS10405
         AI,4     1                                                     ELS10406
         CW,4     MDIO                                                  ELS10407
         BLE      S:C2                                                  ELS10408
         STW,1    UNASSFLG     SET UNASSOCIATED FLAG.                   ELS10409
         STW,0    MODP         RESET MODEL,DEVICE PARAMETERS.           ELS10410
         STW,0    DEVP                                                  ELS10411
         STW,0    F:M          RESET FLAGS.                             ELS10412
         STW,0    F:D                                                   ELS10413
         STW,0    TYPEP        RESET THE PRIMARY TYPE PARAMETER         ELS10414
         STW,1    F:T          SET TYPE FLAG.                           ELS10415
         STW,1    NEWFL        SET THE UNNASSOCIATED FLAG IN DEFAULT    ELS10416
         LI,4     0            RSET THE COUNTER INDEX                   ELS10417
S:C5     LB,12    SECTAB,4     FETCH THE SECONDARIES.                   ELS10418
         STW,12   TYPES        SET THE SECONDARIES.............         ELS10419
         LW,15    CUNA         CUNA FLAG SET.....                       ELS10420
         BEZ      SSX          B: IF ZERO...                            ELS10421
         BAL,15   SAM2         LOOK FOR FILTER ......                   ELS10422
         B        SSY          NO SEARCH.........                       ELS10423
SSX      EQU      %                                                     ELS10424
         STW,0    F:FLAG       RESET THE F:FLAG.                        ELS10425
         BAL,15   SEARCH       SEARCH.                                  ELS10426
         LW,12    BRK:CHK      TERMINATION FLAG.                        ELS10427
         BNEZ     S:END        BRANCH IF YES.                           ELS10428
SSY      EQU      %                                                     ELS10429
         AI,4     1            BUMP COUNTER                             ELS10430
         CW,4     SECND        DONE...............                      ELS10431
         BLE      S:C5         B: IF NOT DONE........                   ELS10432
S:END    EQU      %                                                     ELS10433
         LW,12    *EL:DCB                                               ELS10434
         AND,12   X200                                                  ELS10435
         BEZ      %+2                                                   ELS10436
         CAL1,1   CLO:                                                  ELS10437
         BAL,15   L:SPACE3                                              S1--0020
         B        R:COM                                                 ELS10441
CLO:     GEN,1,7,7,17  1,X'15',0,EL:DCB                                 ELS10442
*                                                                       ELS10443
X200     DATA     X'00200000'                                           ELS10444
*                                                                       ELS10445
*                                                                       ELS10446
NEWFL    DATA     0            FLAG FOR UNNASOCAITED DEFAULT PATH.      ELS10447
CUNA     DATA     0                                                     ELS10448
SNAT     DATA     0                                                     ELS10449
*                                                                       ELS10450
*                                                                       ELS10451
* SUBROUTINE FOR THE FILTER OF TYPES IN SLIS........                    ELS10452
*                                                                       ELS10453
*                                                                       ELS10454
SAM      MTW,0    SNAT         CHECK FOR ZERO.....                      ELS10455
         BEZ      SAM2         ZERO... BRANCH TO SAM2 ()                ELS10456
         LW,6     TYPEF        FETCH COUNT....                          ELS10457
MAST     LW,12    TYPEF,6      FETCH TYPE SELECTED...                   ELS10458
         CW,12    TYPEP        COMPARE TO PRIMARY....                   ELS10459
         BE       SAM1         EQUAL .....YES     BRANCH                ELS10460
         BDR,6    MAST         LOOP.....                                ELS10461
         B        SSEM         CONTINUE...                              ELS10462
SAM1     MTW,0    TYPES        ANY SECONDARIES.....(1ST TIME)           ELS10463
         BEZ      SSAM         YES.....GO AHEAD.                        ELS10464
SAM2     LW,7     TYPEF        FETCH COUNT...                           ELS10465
MAST1    LW,12    TYPEF,7      FETCH TYPES SELECTED...                  ELS10466
         CW,12    TYPES        ANY OF THE SECONDAIES..                  ELS10467
         BE       SSAM         YES.....GO AHEAD/                        ELS10468
         BDR,7    MAST1        LOOP                                     ELS10469
SSEM     B        *15          RETURN WITHOUT ANY INCREMENT.            ELS10470
SSAM     AI,15    1                                                     ELS10471
         B        *15          RETURN WITH INCREMENT...                 ELS10472
*                                                                       ELS10473
*                                                                       ELS10474
*                                                                       ELS10475
*                                                                       ELS10476
*                                                                       ELS10477
*                                                                       ELS10478
*  SUBROUTINE TO SET FLAG TO SUPPLY 1 SPACE IF SECONDARY IS CONNECTED   ELS10479
*  TO SUPPLY NO FLAG IF SECONDARY IS NOT CONNECTED                      ELS10480
*                                                                       ELS10481
*                                                                       ELS10482
XSAM     EQU      %                                                     ELS10483
         STW,15   XSA          SAVE 15                                  ELS10484
         STW,0    F:FLAG       RESET F:FLAG                             ELS10485
         LW,15    TYPEP        FETCH TH TYPE PRIMARY...                 ELS10486
         CW,15    F:FLAG1      COMPARE TO PREVIOUS PRMARY.              ELS10487
         BNE      %+2                                                   ELS10488
         STW,1    F:FLAG       SECONDARY FOLLOWS....SET F:FLAG.         ELS10489
         STW,15   F:FLAG1      INSERT INTO F:FLAG1 SO NEXT COMPARE      ELS10490
         B        *XSA         RETURN...                                ELS10491
*                                                                       ELS10492
*                                                                       ELS10493
XSA      DATA     0                                                     ELS10494
F:FLAG   DATA     0                                                     ELS10495
F:FLAG1  DATA     0                                                     ELS10496
*                                                                       ELS10497
*                                                                       ELS10498
*                                                                       ELS10499
*                                                                       ELS10500
*                                                                       ELS10501
*                                                                       ELS10502
*        GET TYPE FROM THE DEVICE TYPE TABLE...........                 ELS10503
*                                                                       ELS10504
*                                                                       ELS10505
TYPEGET  STW,7    TPRET+1      SAVE REG. 7                              ELS10506
         STW,15   TPRET        SAVE 15                                  ELS10507
         LW,7     TYPECN       FETCH COUNT....                          ELS10508
         CW,7     DEPRIM       ALL TYPES IN.......                      ELS10509
         BG       TYPEGX       EXIT.......YES........                   ELS10510
         LB,15    TYPEPL,7                                              ELS10511
         STW,15   TYPEP                                                 ELS10512
         LB,15    TYPESL,7                                              ELS10513
         STW,15   TYPES                                                 ELS10514
         STW,1    F:T          SET FLAG                                 ELS10515
         MTW,1    TPRET        INCREMENT REETURN ADDRESS.               ELS10516
         MTW,1    TYPECN       INCREMENT TYPE COUNT.......              ELS10517
TYPX     LW,7     TPRET+1      RESTORE 7                                ELS10518
         B        *TPRET                                                ELS10519
TYPEGX   STW,0    TYPECN       RESET TYPE COUNT                         ELS10520
         B        TYPX                                                  ELS10521
TPRET    DATA     0,0                                                   ELS10522
*                                                                       ELS10523
*                                                                       ELS10524
*                                                                       ELS10525
*                                                                       ELS10526
*                                                                       ELS10527
*        SET SNAT IF SECONDARY SUBROUTINE.....                          ELS10528
*                                                                       ELS10529
*                                                                       ELS10530
*                                                                       ELS10531
SECCHK   STW,6    SECCA+1      SAVE REG. 6,7                            ELS10532
         STW,7    SECCA+2                                               ELS10533
         STW,15   SECCA        SAVE RREG. 15                            ELS10534
         STW,0    SNAT         RESET SNAT.....                          ELS10535
         LW,6     TYPEF        FETCH COUNT                              ELS10536
SECCH2   LW,15    TYPEF,6      FETCH TYPE                               ELS10537
         LW,7     SECND        FETCHMTHE SECONDARY TABLE COUNT.         ELS10538
SECCH3   AI,7     -1           DECREMENT ONE......                      ELS10539
         CB,15    SECTAB,7                                              ELS10540
         BE       SECCH1       B: IF ONE SECONDARY AT LEAST.            ELS10541
         CI,7     0            ALL DONE                                 ELS10542
         BNEZ     SECCH3       LOOP                                     ELS10543
         STW,1    SNAT         NO SECONDARY.........                    ELS10544
         B        SECCH4       EXIT..........................           ELS10545
SECCH1   BDR,6    SECCH2       GET ALL TYPES ASKED.....                 ELS10546
SECCH4   LW,6     SECCA+1      RESTORE REG. 6,7                         ELS10547
         LW,7     SECCA+2                                               ELS10548
         B        *SECCA       RETURN                                   ELS10549
SECCA    DATA     0,0,0                                                 ELS10550
*                                                                       ELS10551
*                                                                       ELS10552
*                                                                       ELS10553
         PAGE                                                           ELS10554
*                                                                       ELS10555
*                                                                       ELS10556
*  TABLES OF TYPES AND DEVICE AND MODEL DEFAULT CASES....               ELS10557
**                                                                      ELS10558
*                                                                       ELS10559
*                                                                       ELS10560
*                                                                       ELS10561
SYSPC    DATA     68                NUM OF SYS CHECKS                   ELS10562
SYSTYP   BS       34,34,;                                               ELS10563
                  33,33,;                                               ELS10564
                  65,65,;                                               ELS10565
                  16,16,;                                               ELS10566
                  23,23,23,23,23,23,23,;                                ELS10567
                  24,24,;                                               ELS10568
                  25,25,25,25,25,25,25,;                                ELS10569
                  26,26,;                                               ELS10570
                  27,27,;                                               ELS10571
                  29,29,29,29,29,29,29,;                                ELS10572
                  30,30,;                                               ELS10573
                  32,32,;                                               ELS10574
                  35,35,;                                               ELS10575
                  36,36,;                                               ELS10576
                  38,38,;                                               ELS10577
                  39,39,;                                               ELS10578
                  40,40,;                                               ELS10579
                  48,48,48,48,48,;                                      ELS10580
                  49,49,49,49,49,49,;                                   ELS10581
                  80,80,;                                               ELS10582
                  81,81,;                                               ELS10583
                  82,82,;                                               ELS10584
                  X'FF'                                                 ELS10585
SYSTYS   BS       0,31,;            X'22' 34 IS PRIMARY                 ELS10586
                  0,31,;            21 33                               ELS10587
                  0,31,;            41 65                               ELS10588
                  0,31,;            10 16                               ELS10589
                  0,31,50,66,67,68,73,;  17 23                          ELS10590
                  0,31,;            18 24                               ELS10591
                  0,31,50,66,67,68,73,;  19 25                          ELS10592
                  0,31,;            1A 26                               ELS10593
                  0,31,;            1B 27                               ELS10594
                  0,31,50,66,67,68,73,;  1D 29                          ELS10595
                  0,31,;            1E 30                               ELS10596
                  0,31,;            20 32                               ELS10597
                  0,31,;            23 35                               ELS10598
                  0,31,;            24 36                               ELS10599
                  0,31,;            26 38                               ELS10600
                  0,31,;            27 39                               ELS10601
                  0,31,;            28 40                               ELS10602
                  0,31,50,66,73,;   30 48                               ELS10603
                  0,31,50,66,67,73,; 31 49                              ELS10604
                  0,31,;            50 80                               ELS10605
                  0,31,;            51 81                               ELS10606
                  0,31,;            52 82                               ELS10607
                  0                                                     ELS10608
DEPRIM   DATA     18                                                    ELS10609
TYPEPL   BS       17,17,18,18,19,19,21,21,21,21,21,21,21,21,81,81,;     ELS10610
      82,82                                                             ELS10611
TYPESL   BS       0,31,0,31,0,31,0,22,31,50,66,67,68,73,0,31,0,31       ELS10612
SECND    DATA     7                                                     ELS10613
SECTAB   BS       31,50,66,67,68,73,22                                  ELS10614
CLIS:0   EQU      %                                                     ELS10615
         STW,1    CLISF             SET CLIS FLAG                       ELS10616
         STW,0    F:FLAG       RESET THE F:FLAG/////.                   ELS10617
*                                                                       ELS10618
         LI,14    40                                                    ELS10619
         BAL,15   L:PRINT           PRINT CLIS TITLE                    ELS10620
         DATA     CLTITL                                                ELS10621
         BAL,15   L:PRINT                                               ELS10622
         DATA     UNDERL                                                ELS10623
         STW,0    SEQFLG            CLEAR SEQFLG                        ELS10624
         STW,1    REW:FLAG          SET REWIND FLAG                     ELS10625
         BAL,15   L:SPACE3                                              S1--0022
*                                                                       S1--0023
*                                   CK BOUNDARY LIMITS (DEV,MDL,ETC)    S1--0024
*                                   ALSO OUTPUT FROM/TO MSG             S1--0025
         BAL,15   DSP:                                                  ELS10629
*                                                                       ELS10630
RETURN   EQU      %                                                     ELS10631
         LI,4     0                                                     ELS10632
         LW,13    X40X                                                  ELS10633
         STW,13   MSG154            STORE SPACES TO MSG154              ELS10634
         STW,13   MSG154,1                                              ELS10635
LPX      CI,4     54                                                    ELS10636
         BE       RETN:0                                                ELS10637
         STW,13   MSG2,4                                                ELS10638
         AI,4     1                                                     ELS10639
         B        LPX                                                   ELS10640
RETN:0   EQU      %                                                     ELS10641
*******************************************************                 S1--0027
*******************************************************                 S1--0028
         BAL,15   READ:ERF          READ A RECORD                       ELS10642
*******************************************************                 S1--0030
*******************************************************                 S1--0031
         CI,15    1                                                     ELS10643
         BNE      REND              EOD/EOF                             ELS10644
CLIS:1   EQU      %                                                     ELS10645
         LI,4     0                 INTITIALIZE X4                      ELS10646
         LW,13    RTBL,4                                                ELS10647
         STW,13   ADTL                                                  ELS10648
         LB,10    BUFFER            LOAD TYPE CODE TO R10               ELS10649
LCLIS    EQU      %                                                     ELS10650
         CI,4     TTLCPR          IS THIS THE LAST CPR ERR TYPE         S1--0033
         BGE      CKCPV                                                 ELS10652
         CB,10    CODETBL,4         CK ERROR TYPE CODE                  ELS10653
         BE       *ADTL             TO EACH ROUTINE                     ELS10654
         AI,4     1                                                     ELS10655
         LW,13    RTBL,4                                                ELS10656
         STW,13   ADTL                                                  ELS10657
         B        LCLIS                                                 ELS10658
*                                                                       ELS10659
CKCPV    EQU      %                                                     ELS10660
         BIFSYS   *(CPV,RTX)        B IF NOT CPV                        ELS10661
         SLS,15   8                                                     ELS10662
         LI,4     0                 CP-V, CK FOR MORE TYPES             ELS10663
         LW,13    RTBLX,4                                               ELS10664
         STW,13   ADTL                                                  ELS10665
         LB,10    BUFFER            STORE TYPE                          ELS10666
LCLISX   EQU      %                                                     ELS10667
         CI,4     TTLCPVO         IS THIS THE LAST ERR TYPE..           S1--0035
*                                   IF YES BRANCH TO HANDLE             S1--0036
         BE       RTX               UNKNOWN TYPE                        ELS10669
         CB,10    CODTBLX,4                                             ELS10670
         BE       *ADTL             TO EACH CP-V ROUTINE                ELS10671
         AI,4     1                                                     ELS10672
         LW,13    RTBLX,4                                               ELS10673
         STW,13   ADTL                                                  ELS10674
         B        LCLISX            LOOP FOR ALL CPV CODES              ELS10675
*                                                                       ELS10676
*                                                                       ELS10677
REND     STW,0    SEQFLG            CLEAR SEQFLG                        ELS10678
         BAL,15   L:SPACE3                                              S1--0038
         B        R:COM                                                 ELS10682
*                                                                       ELS10683
ADTL     DATA     0                                                     ELS10684
*                                                                       ELS10685
RTX      EQU      %                                                     ELS10686
         LI,4     4            FETCH ARS COUNT.                         ELS10687
         LW,15    *EL:DCB,4                                             ELS10688
         SLS,15   -19          SHIFT LEFT 17 BITS/ AND DIVIDE BY 4      ELS10689
         STW,15   ARSX         STORE TO BYTE COUNT SAVE LOC.            ELS10690
         STW,0    PASSFL       RESET PASS FLAG.                         ELS10691
         STW,0    PISSFL       RESET TERMINATION FLAG.                  ELS10692
         LI,5     TX:1         FETCH ADDRESS                            ELS10693
         STW,5    RTX:2+3                                               ELS10694
         LI,5     X'FF'                                                 ELS10695
         STB,5    TX:1+3                                                ELS10696
         LB,5     BUFFER       FETCH THE TYPE CODE.......               ELS10697
         CW,5     SEQFLG       THIS THE SAME ONE AS BEFORE...           ELS10698
         BNE      %+5          B: NOT EQUAL                             ELS10699
         STB,1    TX:1+3                                                ELS10700
         LI,5     TX:1+3                                                ELS10701
         STW,5    RTX:2+3                                               ELS10702
         B        %+4                                                   ELS10703
         LI,5     3            SET THE SPACE COUNT                      ELS10704
         BAL,15   L:SPACE      SPACE.                                   ELS10705
         BDR,5    %-1          DO UNTIL DONE.                           ELS10706
         LB,14    BUFFER       FETCH TYPE CODE.                         ELS10707
         BAL,15   HEXEBC       CONVERT                                  ELS10708
         SLS,15   8            SHIFT LEFT 8 BITS.                       ELS10709
         STB,2    15                                                    ELS10710
         STW,15   MSG2         STORE TO  MSG2                           ELS10711
         LI,6     0            CLEAR INDEX 6                            ELS10712
RTX:4    LI,4     0            CLEAR INDEX 4                            ELS10713
         LI,15    MSG5         FETCH STARTING ADDRESS. MSG5             ELS10714
         STH,15   N1,1              STORE TO START LOC                  ELS10715
         STH,15   N2,1                                                  ELS10716
RTX:1    CW,6     ARSX         ALL WORDS IN.                            ELS10717
         BGE      RTX:5        BRANCH IF YES.                           ELS10718
         CI,4     5            INCREMENT  OF 5 ALL IN.                  ELS10719
         BGE      RTX:2        BRANCH IF YES.                           ELS10720
         LW,14    BUFFER,6     FETCH THE WORDS.                         ELS10721
         BAL,15   HEXEBC       CONVERT TO EBCDIC.                       ELS10722
         LI,5     8            SET INDEX OF 8 BYTES COUNT.              ELS10723
N1       STB,5    MSG5              SET BYTE CNT                        ELS10724
N2       STB,15   MSG5,5            STORE BYTES                         ELS10725
         SLD,14   -8           SHIFT DOUBLE RIGHT 8 BITS.               ELS10726
         BDR,5    N2                BR UNTIL ALL IN                     ELS10727
         AI,4     1            INCREMENT INDEX 4                        ELS10728
         AI,6     1            INCREMENT INDEX 6                        ELS10729
         MTW,3    N1                CHANGE INPUT LOC                    ELS10730
         MTW,3    N2                                                    ELS10731
         B        RTX:1        BRANCH TO DO OTHERS.                     ELS10732
*                                                                       ELS10733
*                                                                       ELS10734
*                                                                       ELS10735
RTX:2    LW,15    PASSFL       BEEN THRU BEFORE...?                     ELS10736
         BNEZ     RTX:3        BRANCH IF YES.                           ELS10737
         BAL,15   CT:PRINT     PRINT.                                   ELS10738
         DATA     TX:1         PRINT HEADER AND ALL.                    ELS10739
         B        RTX:9                                                 ELS10740
*                                                                       ELS10741
*                                                                       ELS10742
*                                                                       ELS10743
RTX:3    BAL,15   CT:PRINT                                              ELS10744
         DATA     TX:2         PRINT ONLY INFORMATION.                  ELS10745
RTX:9    MTW,0    PISSFL       TERMINATION ALREADY.                     ELS10746
         BNEZ     RTX:10       BRANCH IF TERMINATION.                   ELS10747
         MTW,1    PASSFL       SET PASS FLAG.                           ELS10748
         B        RTX:4        GO ANOTHER ROUND.                        ELS10749
*                                                                       ELS10750
*                                                                       ELS10751
*                                                                       ELS10752
RTX:5    AI,4     -1           TERMNATION. ADJUST FF CHARACTER.         ELS10753
         SLS,4    1            SHIFT LEFT 1                             ELS10754
         LB,15    TX:1+4,4     FETCH AND KEEP                           ELS10755
         STB,15   MSG10                                                 ELS10756
         LB,15    TX:2+1,4                                              ELS10757
         STB,15   MSG10,1                                               ELS10758
         LI,15    X'FF'                                                 ELS10759
         STB,15   TX:1+4,4     ENTERED TERMINATION BYTE IN              ELS10760
         STB,15   TX:2+1,4                                              ELS10761
         MTW,1    PISSFL       SET TERMNATION FLAG.                     ELS10762
         B        RTX:2        BRANCH TO PRINT.v|                       ELS10763
*                                                                       ELS10764
*                                                                       ELS10765
*                                                                       ELS10766
RTX:10   LB,15    MSG10                                                 ELS10767
         STB,15   TX:1+4,4     RESTORE THE BYTE KEPT.                   ELS10768
         LB,15    MSG10,1                                               ELS10769
         STB,15   TX:2+1,4                                              ELS10770
         LB,14    BUFFER                                                ELS10771
         STW,14   SEQFLG                                                ELS10772
         LW,13    CLISF                                                 ELS10773
         BEZ      SRTRN             SORT RETURN                         ELS10774
         B        RETURN       TERMNATION . RETTURN TO RETURN.          ELS10775
*                                                                       ELS10776
*                                                                       ELS10777
*                                                                       ELS10778
PASSFL   DATA     0                                                     ELS10779
PISSFL   DATA     0                                                     ELS10780
ARSX     DATA     0            WORD COUNT.                              ELS10781
TX:1     BS       2,21,1,152,1,79,1,153,1,2,;                           ELS10782
                  1,21,X'FF',149,6,5,1,6,1,7,1,8,1,9,X'FF'              ELS10783
TX:2     BS       1,20,13,5,1,6,1,7,1,8,1,9,X'FF'                       ELS10784
         PAGE                                                           ELS10785
*                                                                       ELS10786
*                                                                       ELS10787
STMSG4   EQU      %                                                     ELS10788
         LCI      3                                                     ELS10789
         STM,4    SAVE4+1           SAVE R4-6                           ELS10790
         STW,15   SAVE4             SAVE RETURN ADRS                    ELS10791
         LW,6     *SAVE4            LOAD MSG ADRS                       ELS10792
         LI,4     4                                                     ELS10793
L4       CI,4     0                 CK FOR LAST BYTE                    ELS10794
         BE       L5                                                    ELS10795
FXMSG    STB,5    *6,4                                                  ELS10796
         SLS,5    -8                                                    ELS10797
         AI,4     -1                                                    ELS10798
         B        L4                                                    ELS10799
L5       EQU      %                                                     ELS10800
         LCI      3                                                     ELS10801
         LM,4     SAVE4+1                                               ELS10802
         MTW,1    SAVE4             FIX RETURN ADRS                     ELS10803
         B        *SAVE4            BRANCH BACK TO MAIN PROG.           ELS10804
*                                                                       ELS10805
*                                                                       ELS10806
SAVE4    RES      5                                                     ELS10807
*                                                                       ELS10808
STMSG6   EQU      %                                                     ELS10809
         SLD,14   8                                                     ELS10810
         LI,5     6                                                     ELS10811
         STB,5    14                                                    ELS10812
         LW,5     *4                GET MSG ADR                         ELS10813
         LCI      2                                                     ELS10814
         STM,14   *5                                                    ELS10815
         B        *4,1                                                  ELS10816
**                                                                      ELS10817
TIME     EQU      %                                                     ELS10818
         LCI      6                                                     ELS10819
         STM,10   TSAV+1                                                ELS10820
         LW,14    BUFFER,1          LOAD RELATIVE TIME                  ELS10821
         BAL,15   MS:HMSN                                               ELS10822
         LW,11    13                SAVE R13 TO R11                     ELS10823
         LI,13    0                                                     ELS10824
         XW,14    15                                                    ELS10825
         LW,10    15                SAVE R15 TO R10                     ELS10826
         BAL,15   HEXFIVE                                               ELS10827
         DATA     MSG1B             M.SEC.                              ELS10828
         LB,13    X7AX                                                  ELS10829
         STB,13   MSG1B,1           FIX " : "                           ELS10830
         LI,13    3                                                     ELS10831
         LW,14    10                                                    ELS10832
         BAL,15   HEXTWO                                                ELS10833
         DATA     MSG1A             SEC.                                ELS10834
         LW,14    11                LOAD MIN.                           ELS10835
         LI,13    0                                                     ELS10836
         BAL,15   HEXTWO                                                ELS10837
         DATA     MSG1A                                                 ELS10838
         LI,13    1                                                     ELS10839
         LW,14    12                                                    ELS10840
         BAL,15   HEXTWO                                                ELS10841
         DATA     MSG1              HR.                                 ELS10842
         LI,10    12                BYTE CNT                            ELS10843
         STB,10   MSG1              SET UP BYTE CNT                     ELS10844
         LW,4     TSAV                                                  ELS10845
         LCI      5                                                     ELS10846
         LM,10    TSAV+1                                                ELS10847
         B        *TSAV+6           RETURN TO MAIN PROG                 ELS10848
*                                                                       ELS10849
*                                                                       ELS10850
TSAV     RES      10                                                    ELS10851
*                                                                       ELS10852
STMSG8   EQU      %                                                     ELS10853
         LCI      4                                                     ELS10854
         STM,4    SAVE8+1                                               ELS10855
         STW,15   SAVE8             SAVE RETURN ADRS                    ELS10856
         LW,7     *SAVE8                                                ELS10857
         LI,6     8                                                     ELS10858
L8       CI,6     0                                                     ELS10859
         BE       L9                                                    ELS10860
FXMSGX   STB,5    *7,6                                                  ELS10861
         SLD,4    -8                                                    ELS10862
         AI,6     -1                                                    ELS10863
         B        L8                                                    ELS10864
L9       LCI      4                                                     ELS10865
         LM,4     SAVE8+1                                               ELS10866
         MTW,1    SAVE8                                                 ELS10867
         B        *SAVE8                                                ELS10868
SAVE8    RES      6                                                     ELS10869
*                                                                       ELS10870
*                                                                       ELS10871
*                                                                       ELS10872
*******************                                                     ELS10873
*                                                                       ELS10874
SLTITL   TEXT     'S O R T E D  L I S T I N G'                          ELS10875
SUNDER   TEXT     '- - - - - -  - - - - - - -'                          ELS10876
MDTITL   TEXT     '>>> MODEL NO:     I/O ADDRESS:     <<<'              ELS10877
FSTFLG   DATA     0                                                     ELS10878
*                                                                       ELS10879
UNASSEC  TEXT     '>>>UNASSOCIATED SECONDARIES<<<'                      ELS10880
*                                                                       ELS10881
* THE SLIS OUTPUT SUBROUTINE:                                           ELS10882
*                                                                       ELS10883
*                                                                       ELS10884
SLISIN   EQU      %                                                     ELS10885
         LCI      0                                                     ELS10886
         STM,0    SAVSLIS                                               ELS10887
         LW,13    BRK:CHK      CHECK BREAK FLAG                         ELS10888
         BNEZ     SRTRN        EXIT IF SET.............                 ELS10889
SLIS:N1  EQU      %                                                     ELS10890
         STW,0    CLISF             CLEAR CLISF                         ELS10891
*                                                                       ELS10892
         LI,4     0                                                     ELS10893
         LW,13    X40X                                                  ELS10894
         STW,13   MSG154            STORE SPACES                        ELS10895
         STW,13   MSG154,1                                              ELS10896
LPXX     CI,4     54                                                    ELS10897
         BE       RTN:0                                                 ELS10898
         STW,13   MSG2,4                                                ELS10899
         AI,4     1                                                     ELS10900
         B        LPXX                                                  ELS10901
RTN:0    LI,4     0                                                     ELS10902
         LW,13    RTBL,4                                                ELS10903
         STW,13   ADTL                                                  ELS10904
         LB,10    BUFFER                                                ELS10905
LSLIS    EQU      %                                                     ELS10906
         CI,4     TTLCPR                                                S1--0040
         BGE      CKCPVS                                                ELS10908
         CB,10    CODETBL,4                                             ELS10909
         BE       *ADTL                                                 ELS10910
         AI,4     1                                                     ELS10911
         LW,13    RTBL,4                                                ELS10912
         STW,13   ADTL                                                  ELS10913
         B        LSLIS                                                 ELS10914
*                                                                       ELS10915
CKCPVS   EQU      %                                                     ELS10916
         BIFSYS   *(CPV,RTX)        B IF NOT CPV                        ELS10917
         LI,4     0                                                     ELS10918
         LW,13    RTBLX,4                                               ELS10919
         STW,13   ADTL                                                  ELS10920
         LB,10    BUFFER                                                ELS10921
LSLISX   EQU      %                                                     ELS10922
         CI,4     TTLCPVO         CK LAST OF CPV ERR TYPES              S1--0042
         BE       RTX                                                   ELS10924
         CB,10    CODTBLX,4                                             ELS10925
         BE       *ADTL                                                 ELS10926
         AI,4     1                                                     ELS10927
         LW,13    RTBLX,4                                               ELS10928
         STW,13   ADTL                                                  ELS10929
         B        LSLISX                                                ELS10930
*                                                                       ELS10931
*                                                                       ELS10932
SRTRN    EQU      %                                                     ELS10933
         LCI      0                                                     ELS10934
         LM,0     SAVSLIS           RESTORE ALL REGS.                   ELS10935
         B        *SAVSLIS+15                                           ELS10936
*                                                                       ELS10937
*                                                                       ELS10938
SAVSLIS  RES      16                                                    ELS10939
*                                                                       ELS10940
*                                                                       ELS10941
*                                                                       ELS10942
* THIS SUBROUTINE FIX MODEL NO. AND I/O ADRS.  THEN PRINTS              ELS10943
* OUT THE MODEL NO. AND I/O ADRS. FORMAT.                               ELS10944
*                                                                       ELS10945
*                                                                       ELS10946
*                                                                       ELS10947
FXMDIO   EQU      %                                                     ELS10948
         STW,4    SAVMDL                                                ELS10949
         LCI      2                                                     ELS10950
         STM,14   SAVMDL+1                                              ELS10951
         LW,14    F:M          MODEL FLAG ...........                   ELS10952
         BNEZ     LMOD:0       B: IF SET                                ELS10953
         LW,15    XMSGX        FETCH ASTERISK IF NOT SET.....           ELS10954
         B        LMOD:1                                                ELS10955
LMOD:0   EQU      %                                                     ELS10956
         LW,14    MODP              FETCH MODEL NO.                     ELS10957
         BAL,15   MOD:EBC                                               ELS10958
*                                                                       ELS10959
LMOD:1   LI,4     4                                                     ELS10960
LMOD     STB,15   MDTITL+3,4                                            ELS10961
         SLS,15   -8                                                    ELS10962
         BDR,4    LMOD                                                  ELS10963
         LW,14    F:D          CHECK DEVICE FLAG SET                    ELS10964
         BNEZ     FIXIOA                                                ELS10965
         LW,15    XMSGX        FETCH ASTRISK IS NOT SET                 ELS10966
         B        LIOA                                                  ELS10967
*                                                                       ELS10968
FIXIOA   LW,14    DEVP              FETCH DEVICE NO.                    ELS10969
         BAL,15   HEXEBC                                                ELS10970
LIOA     EQU      %                                                     ELS10971
         STH,15   MDTITL+8                                              ELS10972
         SLS,15   -16                                                   ELS10973
         STH,15   MDTITL+7,1                                            ELS10974
EXIOA    EQU      %                                                     ELS10975
         LI,14    38                                                    ELS10976
         BAL,15   L:PRINT                                               ELS10977
         DATA     MDTITL                                                ELS10978
         BAL,15   L:SPACE                                               ELS10979
         LW,4     SAVMDL                                                ELS10980
         LCI      2                                                     ELS10981
         LM,14    SAVMDL+1                                              ELS10982
         B        *SAVMDL+2                                             ELS10983
*                                                                       ELS10984
SAVMDL   RES      3                                                     ELS10985
XMSGX    TEXT     '****'                                                ELS10986
*                                                                       ELS10987
CKUNASS  EQU      %                                                     ELS10988
         STW,14   CKAS                                                  ELS10989
         STW,15   CKAS+1            SAVE R15                            ELS10990
         BAL,15   L:SPACE3                                              S1--0044
         STW,0    SEQFLG       RESET SEQUENCE FLAG.........             ELS10994
         STW,0    UNASSFLG          RESET FLG                           ELS10995
         LI,14    30                                                    ELS10996
         BAL,15   L:PRINT                                               ELS10997
         DATA     UNASSEC                                               ELS10998
         LW,14    CKAS                                                  ELS10999
         B        *CKAS+1                                               ELS11000
*                                                                       ELS11001
CKAS     RES      2                                                     ELS11002
                  PAGE                                                  ELS11005
*                                                                       ELS11006
*****                                                                   ELS11007
*     ROUTINE SEARCH                                                    ELS11008
*                                                                       ELS11009
*     SEARCH THOUGH SORTED FILE AND PICKS UP PARTICULAR                 ELS11010
*     ETRIES THAT WERE REQUESTED.                                       ELS11011
*                                                                       ELS11012
*     CALLING SEQUENCE:                                                 ELS11013
*        BAL,15   SEARCH                                                ELS11014
*        --       ----              CONTROL RETURNED HERE               ELS11015
*                                                                       ELS11016
*     FLAGS NEEDED BY SEARCH:                                           ELS11017
*           F:T     IF TYPE CODE IS TO BE EXAMINED                      ELS11018
*           F:M     IF MODEL IS TO BE EXAMINED                          ELS11019
*           F:D     IF DEVICE I/O IS TO BE EXAMINED                     ELS11020
*                                                                       ELS11021
*     VARIABLES TO CONTAIN THE VALUES TO BE COMPARED AGAINST            ELS11022
*     IF F:T, F:M AND F:D IS SET:                                       ELS11023
*           TYPEP   PRIMARY TYPE CODE                                   ELS11024
*           TYPES   SECONDARY TYPE CODE                                 ELS11025
*           MODP    MODEL NUMBER                                        ELS11026
*           DEVP    I/O ADDRESS OF DEVICE                               ELS11027
*                                                                       ELS11028
*****                                                                   ELS11029
*                                                                       ELS11030
SEARCH   EQU      %                                                     ELS11031
         STW,15   SAVESCH                                               ELS11032
         LCI      15                                                    ELS11033
         STM,0    SECSAV                                                ELS11034
         BAL,15   INITFLGS          CLEAR UST TIME FLAG                 ELS11035
         LW,7     TABPNTR           LOAD 1ST ADDR OF SORT TBL           ELS11036
         STW,7    WKADDR            STORE INTO WORK LOCATION            ELS11037
         STW,0    ENTRYCNT          ZERO OUT ENTRY COUNT                ELS11038
         STW,0    SECFLG                                                ELS11039
         LI,7     1                                                     ELS11040
         STW,7    CURCNT            SET CURRENT COUNT TO 3              ELS11041
         STW,1    CURPOS            SET CURRENT POSTION=1(CP-R)         ELS11042
         LW,7     *WKADDR           LOAD TOTAL NUMBER OF ENTRIES IN SORTELS11043
         STW,7    TOTALCNT                                              ELS11044
*                                                                       ELS11045
*                                                                       ELS11046
SECH05   EQU      %                                                     ELS11047
         STW,0    SECFLG                                                ELS11048
         LW,7     ENTRYCNT                                              ELS11049
         CW,7     TOTALCNT          LAST ENTRY IN SORT TBLE             ELS11050
         BGE      SECHEND           (NO,YES-SECHEND)                    ELS11051
*                                                                       ELS11052
         LW,4     CURCNT            LOAD CURRENT COUNT                  ELS11053
*                                                                       ELS11054
*                                                                       ELS11055
         LW,7     TYPEP             LOAD PRIMARY CODE TO SEARCH ON      ELS11056
         BEZ      SECH200           SEARCH FOR UNASSOCIATED SEC.        ELS11057
*                                     (NO,YES-SECH200)                  ELS11058
*                                                                       ELS11059
         LW,7     *WKADDR,4                                             ELS11060
         STW,7    SHWORK            STORE 1ST WORD FROM SORT ENTRY      ELS11061
         LB,7     SHWORK            LOAD THE TYPE CODE                  ELS11062
         STW,7    TYPEWK                                                ELS11063
         STW,0    MATCHF            SET MATCH FLAG=0(NO MATCH)          ELS11064
*                                                                       ELS11065
*                                                                       ELS11066
         LW,7     F:T               LOAD TYPE FLAG                      ELS11067
         BEZ      SECH10            CHECK TYPE(YES,NO-SECH10)           ELS11068
*                                                                       ELS11069
         LW,7     TYPEP             LOAD TYPE TO CHECK AGAINST          ELS11070
         CI,7     X'FF'             UNREC. ERROR CODE TO SORT           ELS11071
         BNE      SECH06            (YES,NO-SECH06)                     ELS11072
*                                                                       ELS11073
         BAL,15   UNKNOWN                                               ELS11074
         B        NOMATCH           NO MATCH RETURN                     ELS11075
         B        MATCH             MATCH RETURN                        ELS11076
*                                                                       ELS11077
*                                                                       ELS11078
SECH06   EQU      %                                                     ELS11079
         LW,7     TYPEWK            LOAD TYPE CODE FROM SORT ENTRY      ELS11080
         CW,7     TYPEP             SAME TYPE TO CHECK AGAINST          ELS11081
         BNE      SECH30            (YES,NO-SECH30)                     ELS11082
         MTW,1    MATCHF            SET MATCH FLAG=1(MATCH FOUND)       ELS11083
*                                                                       ELS11084
SECH10   EQU      %                                                     ELS11085
         LW,7     F:M               CHECK MODEL                         ELS11086
         BEZ      SECH15            (YES,NO-SECH15)                     ELS11087
         BAL,15   CHECK             CHECK IF ENTRY CONTAINS MODEL#      ELS11088
         B        NOMATCH           NO MODEL# IN ENTRY                  ELS11089
         LW,4     CURCNT            LOAD CURRENT POINTER ADDRESS        ELS11090
         AI,4     1                                                     ELS11091
         LW,7     *WKADDR,4         LOAD MODEL# IN ENTRY                ELS11092
         CW,7     MODP              MODEL # WANTED                      ELS11093
         BNE      NOMATCH           (YES,NO-NOMATCH)                    ELS11094
*                                                                       ELS11095
         MTW,1    MATCHF            SET MATCH FLAG=1(MATCH FOUND)       ELS11096
*                                                                       ELS11097
SECH15   EQU      %                                                     ELS11098
         LW,7     F:D               MATCH I/O ADDRESS                   ELS11099
         BEZ      SECH30            (YES,NO-SECH30)                     ELS11100
*                                                                       ELS11101
*                                                                       ELS11102
         BAL,15   CHECK1            CHECK IF ENTRY HAS I/O ADDR         ELS11103
         B        NOMATCH           NO I/0 ADDRESS IN ENTRY             ELS11104
*                                                                       ELS11105
SECH20   EQU      %                                                     ELS11106
         LW,7     SHWORK                                                ELS11107
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS                ELS11108
         CW,7     DEVP              I/O ADDRESS WANTED                  ELS11109
         BNE      NOMATCH           (YES,NO-NOMATCH)                    ELS11110
         B        MATCH                                                 ELS11111
*                                                                       ELS11112
*                                                                       ELS11113
SECH30   EQU      %                                                     ELS11114
         LW,7     MATCHF            ANY MATCH FOUND                     ELS11115
         BEZ      NOMATCH           (YES,NO-NOMATCH)                    ELS11116
         B        MATCH                                                 ELS11117
*                                                                       ELS11118
*                                                                       ELS11119
NOMATCH  EQU      %                                                     ELS11120
         LW,7     CURCNT            LOAD CURRENT COUNT                  ELS11121
         AI,7     4                                                     ELS11122
         STW,7    CURCNT            UPDATE TO NEXT ENTRY                ELS11123
         MTW,1    ENTRYCNT     BUMP ENTRY COUNT                         ELS11124
         B        SECH05                                                ELS11125
*                                                                       ELS11126
*                                                                       ELS11127
MATCH    EQU      %                                                     ELS11128
         STW,0    ENDFLG            INITIALIZE ENDFLAG TO ZERO          ELS11129
         BAL,15   BRKUP             BREAK UP THE ENTRY                  ELS11130
         MTW,1    ENDFLG            RETURN HERE IF LAST ENTRY           ELS11131
*                                    IN SORT TABLE READ                 ELS11132
         LW,7     TYPES             LOAD SECONDARY TYPE TO CHECK        ELS11133
         BEZ      SECH40            NO SEC.(NO,YES-SECH40)              ELS11134
         CI,7     X'16'             SECONDARY DEVICE ENTRY              ELS11135
         BE       SECH100           (NO,YES-SECH100)                    ELS11136
         MTW,1    SECFLG            SET SECONDARY FLAG                  ELS11137
SECH35   EQU      %                                                     ELS11138
         LW,4     CURCNT                                                ELS11139
         LW,7     *WKADDR,4         LOAD 1ST WORD IN NEXT ENTRY         ELS11140
         SLS,7    -24               RIGHT JUSTIFY                       ELS11141
         AND,7    :KX00FF                                               ELS11142
         STW,7    TYPESX                                                ELS11143
         CW,7     TYPES             SECONDARY WANTED                    ELS11144
         BNE      SECH38            (YES,NO-SECH38)                     ELS11145
         BAL,15   BRKUP             BREAK UP THE ENTRY                  ELS11146
         MTW,1    ENDFLG            RETURN HERE IF LAST ENTRY           ELS11147
*                                    IN SORT TABLE READ                 ELS11148
         B        SECH40                                                ELS11149
*                                                                       ELS11150
*                                                                       ELS11151
SECH38   EQU      %                                                     ELS11152
         BAL,15   SECOND            ENTRY A SECONDARY                   ELS11153
         B        %+2               (NO,YES-%+2)                        ELS11154
         B        SECH05                                                ELS11155
         LW,7     CURCNT            UPDATE TO NEXT ENTRY                ELS11156
         AI,7     4                                                     ELS11157
         STW,7    CURCNT                                                ELS11158
         MTW,1    ENTRYCNT          BUMP ENTRY COUNT                    S1--0047
         B        SECH35                                                ELS11159
*                                                                       ELS11160
SECH40   LW,12    KEY3                                                  ELS11161
*                                                                       ELS11162
         LW,13    KEY1                                                  ELS11163
         LW,14    KEY2                                                  ELS11164
         BAL,15   READFIL                                               ELS11165
*                                                                       ELS11166
*                                                                       ELS11167
         BAL,15   SLISIN            BR TO OUTPUT ENTRY                  ELS11168
         LW,15    BRK:CHK      CHECK BREAK FLAG                         ELS11169
         BNEZ     SECHEND      B: IF SET                                ELS11170
         LW,7     ENDFLG            LAST ENTRY REACHED                  ELS11171
         BEZ      %+2               (YES,NO-%+2)                        ELS11172
         B        SECHEND                                               ELS11173
         LW,7     SECFLG                                                ELS11174
         BEZ      SECH05                                                ELS11175
         B        SECH35                                                ELS11176
*                                                                       ELS11177
*     SEARCH NEXT 30 ENTRIES FOR DEVICE SECONDARIES.                    ELS11178
*     SEARCH IS STOPPED BY THE FOLLOWING REASONS:                       ELS11179
*     (A) REACHED LAST ENTRY IN SORT TABLE                              ELS11180
*     (B) ANOTHER PRIMARY RECORD(X'15') IS READ WITH SAME I/O           ELS11181
*          ADDRESS AS PREVIOUS                                          ELS11182
*     (C) 30 RECORDS WERE READ.                                         ELS11183
*                                                                       ELS11184
SECH100  EQU      %                                                     ELS11185
         LW,7     ENTRYCNT                                              ELS11186
         STW,7    SAVE16B           SAVE CURRENT ENTRY POINTER          ELS11187
         LW,7     CURCNT                                                ELS11188
         STW,7    SAVE16A           SAVE CURRENT ENTRY ADDRESS          ELS11189
         STW,0    COUNTX            SET COUNTX=0(30 COUNTER)            ELS11190
         STW,0    FLAG16            SET FLAG16=0(USED IF 1ST TIME)      ELS11191
*                                                                       ELS11192
*                                                                       ELS11193
SECH105  EQU      %                                                     ELS11194
         LW,4     CURCNT            LOAD CURRENT ENTRY POINTER          ELS11195
         LW,7     *WKADDR,4         LOAD 1ST WORD FROM SORT ENTRY       ELS11196
         STW,7    SECWRK                                                ELS11197
         SLS,7    -24               RIGHT JUSTIFY                       ELS11198
         AND,7    :KX00FF           MASK OFF TYPE CODE                  ELS11199
         CI,7     X'15'             DEVICE PRIMARY RECORD               ELS11200
         BE       SECH140           (NO,YES-SECH140)                    ELS11201
         CI,7     X'16'             DEVICE SECONDARY                    ELS11202
         BNE      SECH110           (YES,NO-SECH110)                    ELS11203
         LW,7     SECWRK            LOAD 1ST WORD AGAIN                 ELS11204
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS OF DEV         ELS11205
         CW,7     DEVP              REQUIRED SECONDARY                  ELS11206
         BNE      SECH110           (YES,NO-SECH110)                    ELS11207
*                                                                       ELS11208
*                                                                       ELS11209
         BAL,15   BRKUP             GET KEYS FOR ENTRY                  ELS11210
         MTW,1    ENDFLG                                                ELS11211
         LW,12    KEY3                                                  ELS11212
         LW,13    KEY1                                                  ELS11213
         LW,14    KEY2                                                  ELS11214
         BAL,15   READFIL                                               ELS11215
*                                                                       ELS11216
         BAL,15   SLISIN                                                ELS11217
         LW,15    BRK:CHK      CHECK BREAK FLAG SET                     ELS11218
         BNEZ     SECHEND      B: IF SET                                ELS11219
*                                                                       ELS11220
         LW,7     ENDFLG                                                ELS11221
         BEZ      SECH105           LAST ENRTY REACHED(YES,NO-SECH105)  ELS11222
         B        SECH130                                               ELS11223
*                                                                       ELS11224
*                                                                       ELS11225
SECH110  EQU      %                                                     ELS11226
         LW,7     FLAG16            1ST TIME THROUGH                    ELS11227
         BEZ      %+2               (NO,YES-%+2)                        ELS11228
*                                                                       ELS11229
         B        SECH120                                               ELS11230
*                                                                       ELS11231
         MTW,1    FLAG16            SET FLAG                            ELS11232
         LW,7     CURCNT                                                ELS11233
         STW,7    SAVE16A           SAVE CURRENT ENTRY POINTER          ELS11234
         LW,7     ENTRYCNT                                              ELS11235
         STW,7    SAVE16B           SAVE CURRENT ENTRY #                ELS11236
*                                                                       ELS11237
*                                                                       ELS11238
SECH120  EQU      %                                                     ELS11239
         BAL,15   BRKUP                                                 ELS11240
         B        SECH130           LAST ENTRY REACHED                  ELS11241
         MTW,1    COUNTX                                                ELS11242
         LW,7     COUNTX                                                ELS11243
         CI,7     30                30 ENTRIES PAST PRIMARY ENTRY       ELS11244
         BLE      SECH105           (YES,NO-SECH105)                    ELS11245
*                                                                       ELS11246
*                                                                       ELS11247
SECH130  EQU      %                                                     ELS11248
         LW,7     SAVE16A                                               ELS11249
         STW,7    CURCNT            RESTORE CURRENT ENTRY POINTER       ELS11250
         LW,7     SAVE16B                                               ELS11251
         STW,7    ENTRYCNT          RESTORE CURRENT ENTRY #             ELS11252
         B        SECH05                                                ELS11253
*                                                                       ELS11254
*                                                                       ELS11255
SECH140  EQU      %                                                     ELS11256
         LW,7     SECWRK                                                ELS11257
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS                ELS11258
         CW,7     DEVP              DEVICE WANTED                       ELS11259
         BE       SECH130           (NO,YES-SECH130)                    ELS11260
         B        SECH110                                               ELS11261
*                                                                       ELS11262
*                                                                       ELS11263
SECH200  EQU      %                                                     ELS11264
         LW,7     TYPES             LOAD SECONDARY CODE TO SEARCH FOR   ELS11265
         CI,7     X'16'             SECONDARY DEVICE CODE               ELS11266
         BE       SECH300           (NO,YES-SECH300)                    ELS11267
*                                                                       ELS11268
*     SYSTEM SECONDARY TO CHECK FOR                                     ELS11269
*                                                                       ELS11270
         STW,0    ENDFLG            SET ENDFLG=0                        ELS11271
SECH205 EQU        %                                                    ELS11272
         LW,4     CURCNT            LOAD CURRENT POINTER                ELS11273
         LW,7     *WKADDR,4         LOAD 1ST WORD OF ENTRY              ELS11274
         STW,7    SECWRK                                                ELS11275
         SLS,7    -24                                                   ELS11276
         AND,7    :KX00FF                                               ELS11277
         STW,7    TYPESX            SAVE TYPE CODE IN ENTRY             ELS11278
         BAL,15   PRIMARY           CHECK IF IT IS A PRIMARY ENTRY      ELS11279
         B        SECH250           PRIMARY ENTRY                       ELS11280
*                                                                       ELS11281
         BAL,15   SECOND            SECONDARY ENTRY                     ELS11282
         B        SECH230           SECONDARY ENTRY FOUND               ELS11283
*                                                                       ELS11284
         STW,0    PRIMFLG           SET PRIMARY FLAG TO ZERO            ELS11285
*                                                                       ELS11286
*                                                                       ELS11287
SECH210  EQU      %                                                     ELS11288
         BAL,15   BRKUP                                                 ELS11289
         B        SECHEND                                               ELS11290
         B        SECH205                                               ELS11291
*                                                                       ELS11292
*                                                                       ELS11293
SECH230  EQU      %                                                     ELS11294
         LW,7     PRIMFLG           PRIMARY ENTRY FOUND                 ELS11295
         BEZ      %+2               (YES,NO-%+2)                        ELS11296
         B        SECH210                                               ELS11297
*                                                                       ELS11298
*                                                                       ELS11299
         LW,7     TYPESX            LOAD ENTRY TYPE CODE                ELS11300
         CI,7     X'1F'             DUPLICATE ENTRY                     ELS11301
         BNE      SECH235           (YES,NO-SECH235)                    ELS11302
         LW,7     NONPRIM           LOAD IF NON-PRIM:'1F' COMB.         ELS11303
         BEZ      SECH235           (YES,NO-SECH235)                    ELS11304
         STW,0    NONPRIM                                               ELS11305
         B        SECH210                                               ELS11306
*                                                                       ELS11307
*                                                                       ELS11308
SECH235  BAL,15   BRKUP                                                 ELS11309
         MTW,1    ENDFLG                                                ELS11310
         LW,7     TYPESX                                                ELS11311
         CW,7     TYPES                                                 ELS11312
         BNE      SECH240                                               ELS11313
         LW,12    KEY3                                                  ELS11314
         LW,13    KEY1                                                  ELS11315
         LW,14    KEY2                                                  ELS11316
         BAL,15   READFIL                                               ELS11317
*                                                                       ELS11318
         BAL,15   SLISIN                                                ELS11319
         LW,15    BRK:CHK      CHECK BREAK FLAG SET                     ELS11320
         BNEZ     SECHEND      B: IF SET                                ELS11321
SECH240  EQU      %                                                     ELS11322
         LW,7     ENDFLG                                                ELS11323
         BNEZ     SECHEND                                               ELS11324
         B        SECH205                                               ELS11325
*                                                                       ELS11326
*                                                                       ELS11327
SECH250  EQU      %                                                     ELS11328
         STW,1    PRIMFLG           SET PRIMARY FLAG                    ELS11329
         B        SECH210                                               ELS11330
*                                                                       ELS11331
*                                                                       ELS11332
*     CHECK FOR UNASSOCIATED DEVICE SECONDARIES ONLY                    ELS11333
*                                                                       ELS11334
*                                                                       ELS11335
SECH300  EQU      %                                                     ELS11336
         STW,0    ENDFLG                                                ELS11337
         LI,4     -50                                                   ELS11338
SECH305  EQU      %                                                     ELS11339
         STW,0    SERIO+50,4                                            ELS11340
         BIR,4    SECH305                                               ELS11341
         STW,0    SERIOX                                                ELS11342
*                                                                       ELS11343
SECH306  EQU      %                                                     ELS11344
*                                                                       ELS11345
         LW,4     CURCNT                                                ELS11346
         LW,7     *WKADDR,4         LOAD 1ST WORD IN ENTRY              ELS11347
         STW,7    SECWRK                                                ELS11348
         LB,7     SECWRK                                                ELS11349
         CI,7     X'15'             PRIMARY DEV CODE                    ELS11350
         BE       SECH350           (NO,YES-SECH350)                    ELS11351
*                                                                       ELS11352
         CI,7     X'16'             DEVICE SECONDARY                    ELS11353
         BE       SECH330           (NO,YES-SECH330)                    ELS11354
         B        SECH320                                               ELS11355
*                                                                       ELS11356
SECH309  EQU      %                                                     ELS11357
         LI,4     -50                                                   ELS11358
SECH310  EQU      %                                                     ELS11359
         LW,7     SERIO+50,4                                            ELS11360
         AND,7    :KX00FF           AND OFF COUNT                       ELS11361
         BEZ      SECH315+1         COUNT=0(NO,YES-%+2)                 ELS11362
         CI,7     30                                                    ELS11363
         BL       SECH315                                               ELS11364
         LW,7     SERIO+50,4                                            ELS11365
         STB,0    7,3                                                   ELS11366
         STW,7    SERIO+50,4                                            ELS11367
SECH315  EQU      %                                                     ELS11368
*                                                                       ELS11369
         MTW,1    SERIO+50,4                                            ELS11370
         BIR,4    SECH310                                               ELS11371
         B        SECH306                                               ELS11372
*                                                                       ELS11373
*                                                                       ELS11374
SECH320  EQU      %                                                     ELS11375
         BAL,15   BRKUP                                                 ELS11376
         B        SECHEND                                               ELS11377
         B        SECH309                                               ELS11378
*                                                                       ELS11379
*                                                                       ELS11380
SECH330  EQU      %                                                     ELS11381
         LW,7     SECWRK                                                ELS11382
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS                ELS11383
         STW,7    SAVE16A                                               ELS11384
*                                                                       ELS11385
*                                                                       ELS11386
         LI,4     -50                                                   ELS11387
SECH335  EQU      %                                                     ELS11388
         LW,7     SERIO+50,4                                            ELS11389
         SLS,7    -16               RIGHT JUSTIFY                       ELS11390
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS                ELS11391
         CW,7     SAVE16A           I/O ADDR IN ENTRY EXIST             ELS11392
         BNE      SECH340           (YES,NO-SECH340)                    ELS11393
         LW,7     SERIO+50,4                                            ELS11394
         AND,7    :KX00FF           COUNT=0                             ELS11395
         BEZ      SECH341           (NO,YES-SECH341)                    ELS11396
         B        SECH320                                               ELS11397
*                                                                       ELS11398
SECH340  EQU      %                                                     ELS11399
         BIR,4    SECH335                                               ELS11400
*                                                                       ELS11401
*                                                                       ELS11402
SECH341  EQU      %                                                     ELS11403
         BAL,15   BRKUP                                                 ELS11404
         MTW,1    ENDFLG                                                ELS11405
         LW,7     F:D          ANY DEVICE ASKED FOR.........            ELS11406
         BEZ      SECH342      BRANCH IF NO........                     ELS11407
         LW,7     SAVE16A      FETCH ADDRESS.......                     ELS11408
         CW,7     DEVP         CHECK AGAINST ASKED FOR ....             ELS11409
         BNE      SECH343      BRANCH IF NOT EQUAL,,,FALL THRU IF EQUAL ELS11410
SECH342  EQU      %            HERE.,,,,.....                           ELS11411
         LW,13    KEY1                                                  ELS11412
         LW,14    KEY2                                                  ELS11413
         LW,12    KEY3                                                  ELS11414
         BAL,15   READFIL                                               ELS11415
         BAL,15   SLISIN                                                ELS11416
SECH343  EQU      %                                                     ELS11417
         LW,15    BRK:CHK      CHECK BREAK FLAG                         ELS11418
         BNEZ     SECHEND      B: IF SET                                ELS11419
         LW,7     ENDFLG                                                ELS11420
         BNEZ     SECHEND                                               ELS11421
         B        SECH309                                               ELS11422
*                                                                       ELS11423
*                                                                       ELS11424
SECH350  EQU      %                                                     ELS11425
         LW,7     SECWRK                                                ELS11426
         AND,7    :KXFFFF           MASK OFF I/O ADDRESS                ELS11427
         SLS,7    16                LEFT JUSTIFY                        ELS11428
         STW,7    SAVE16A                                               ELS11429
*                                                                       ELS11430
         LI,4     -50                                                   ELS11431
SECH355  EQU      %                                                     ELS11432
         LW,7     SERIO+50,4        LOAD ENTRY IN SEARCH TABLE          ELS11433
         BEZ      SECH370           NULL ENTRY(NO,YES-SECH370)          ELS11434
         AND,7    :KXFF00           MASK OFF I/O ADDRESS                ELS11435
         CW,7     SAVE16A           I/O ADDR FROM ENTRY IN TABLE        ELS11436
         BNE      SECH370           (YES,NO-SECH370)                    ELS11437
         MTW,1    7                                                     ELS11438
         STW,7    SERIO+50,4                                            ELS11439
         B        SECH320                                               ELS11440
*                                                                       ELS11441
*                                                                       ELS11442
SECH370  EQU      %                                                     ELS11443
         BIR,4    SECH355                                               ELS11444
*                                                                       ELS11445
         LW,4     SERIOX            LOAD NUMBER OF ENTRIES              ELS11446
         LW,7     SAVE16A                                               ELS11447
         STB,1    7,3          SET THE 3RD BYTE ..........              ELS11448
         STW,7    SERIO,4                                               ELS11449
         MTW,1    SERIOX                                                ELS11450
         B        SECH320                                               ELS11451
SECHEND  LCI      15                                                    ELS11452
         LM,0     SECSAV                                                ELS11453
         B        *SAVESCH                                              ELS11454
SECSAV   RES      15                                                    ELS11455
SERIOX   DATA     0                                                     ELS11456
NONPRIM  DATA     0                                                     ELS11457
KEY1     DATA     0                                                     ELS11458
KEY2     DATA     0                                                     ELS11459
SAVESCH  DATA     0                                                     ELS11460
MATCHF   DATA     0                                                     ELS11461
TLPCNTM  DATA     0                                                     ELS11462
TYPECNT  DATA     0                                                     ELS11463
SECFLG   DATA     0                                                     ELS11464
CURCNT   DATA     0                                                     ELS11465
WKADDR   DATA     0                                                     ELS11466
TOTALCNT DATA     0                                                     ELS11467
SHWORK   DATA     0                                                     ELS11468
ENTRYCNT DATA     0                                                     ELS11469
CURPOS   DATA     0                                                     ELS11470
TYPEWK   DATA     0                                                     ELS11471
:KX00FF  DATA     X'000000FF'                                           ELS11472
ENDFLG   DATA     0                                                     ELS11473
COUNTX   DATA     0                                                     ELS11474
SAVE16A  DATA     0                                                     ELS11475
SAVE16B  DATA     0                                                     ELS11476
FLAG16   DATA     0                                                     ELS11477
SECWRK   DATA     0                                                     ELS11478
:KXFFFF  DATA     X'0000FFFF'                                           ELS11479
PRIMFLG  DATA     0                                                     ELS11480
UNASSFLG DATA     0                                                     ELS11481
SERIO    RES      50                                                    ELS11482
:KXFF00  DATA     X'FFFF0000'                                           ELS11483
*                                                                       ELS11484
*                                                                       ELS11485
F:T      DATA     0                                                     ELS11486
F:M      DATA     0                                                     ELS11487
F:D      DATA     0                                                     ELS11488
MODP     DATA     0                                                     ELS11489
TYPEP    DATA     0                                                     ELS11490
TYPES    DATA     0                                                     ELS11491
DEVP     DATA     0                                                     ELS11492
KEY3     DATA     0                                                     ELS11493
         PAGE                                                           ELS11494
*                                                                       ELS11495
*****                                                                   ELS11496
*     ROUTINE UNKNOWN                                                   ELS11497
*                                                                       ELS11498
*     DETERMINE IF ERROR TYPE IN UNKNOWN                                ELS11499
*                                                                       ELS11500
*     CALLING SEQUENCE:                                                 ELS11501
*        BAL,15   UNKNOWN                                               ELS11502
*        --       ----              IF ERROR TYPE IS VALID              ELS11503
*        --       ----              IF ERROR TYPE IN NOT VALID          ELS11504
*****                                                                   ELS11505
*                                                                       ELS11506
UNKNOWN  EQU      %                                                     ELS11507
         LI,4     45                NUMBER OF ERROR CODES HANDLED       S1--0049
UNKN05   EQU      %                                                     ELS11509
         LB,7     CODES,4           LOAD VALID TYPE                     ELS11510
         CW,7     TYPEWK            SAME AS TYPE IN ENTRY               ELS11511
         BE       UNKN10            (NO,YES-UNKN10)                     ELS11512
         BDR,4    UNKN05                                                ELS11513
         MTW,1    15                                                    ELS11514
         B        *15                                                   ELS11515
*                                                                       ELS11516
*                                                                       ELS11517
UNKN10   EQU      %                                                     ELS11518
         B        *15               RETURN                              ELS11519
*                                                                       ELS11520
*                                                                       ELS11521
CODES    EQU      %                                                     ELS11522
         DATA     X'00101112'                                           ELS11523
         DATA     X'13151617'                                           ELS11524
         DATA     X'18191A1B'                                           ELS11525
         DATA     X'1D1E1F20'                                           ELS11526
         DATA     X'21222324'                                           ELS11527
         DATA     X'27272730'                                           ELS11528
         DATA     X'31323435'                                           ELS11529
         DATA     X'36373839'                                           ELS11530
         DATA     X'41424344'                                           ELS11531
         DATA     X'50515253'                                           ELS11532
         DATA     X'2826492D'                                           S1--0051
         DATA     X'2E2F0000'                                           S1--0052
         PAGE                                                           ELS11534
*                                                                       ELS11535
*****                                                                   ELS11536
*                                                                       ELS11537
*     ROUTINE INITFLGS                                                  ELS11538
*                                                                       ELS11539
*     CALLING SEQUENCE:                                                 ELS11540
*        BAL,15   INITFLGS                                              ELS11541
*        --       ----              CONTROL RETURNED HERE               ELS11542
*****                                                                   ELS11543
*                                                                       ELS11544
INITFLGS EQU      %                                                     ELS11545
         LW,7     TYPEP                                                 ELS11546
         CI,7     X'11'                                                 ELS11547
         BE       INA                                                   ELS11548
         CI,7     X'12'                                                 ELS11549
         BE       INA                                                   ELS11550
         CI,7     X'13'                                                 ELS11551
         BE       INA                                                   ELS11552
         CI,7     X'51'                                                 ELS11553
         BE       INA                                                   ELS11554
         CI,7     X'52'                                                 ELS11555
         BE       INA                                                   ELS11556
         CI,7     X'15'             PRIMARY TYPE CODE WANTED=15         ELS11557
         BNE      INIT10            (YES,NO-INIT10)                     ELS11558
INA      EQU      %                                                     ELS11559
         LW,7     XFLAG15           1ST TIME TO REQUEST X'15'           ELS11560
         BEZ      %+2               (NO,YES-%+2)                        ELS11561
         B        INIT05                                                ELS11562
         MTW,1    XFLAG15           SET FLAG                            ELS11563
         STW,0    FSTFLG            FSTFLG=0(PRINT MODEL-I/O HEADER)    ELS11564
INIT05   EQU      %                                                     ELS11565
         B        *15               RETURN                              ELS11566
*                                                                       ELS11567
*                                                                       ELS11568
INIT10   EQU      %                                                     ELS11569
         STW,0    FSTFLG                                                ELS11570
         B        *15                                                   ELS11571
*                                                                       ELS11572
*                                                                       ELS11573
XFLAG15  DATA     0                                                     ELS11574
         PAGE                                                           ELS11575
*                                                                       ELS11576
*****                                                                   ELS11577
*     ROUTINE CHECK                                                     ELS11578
*                                                                       ELS11579
*     CALLING SEQUENCE                                                  ELS11580
*        BAL,15   CHECK                                                 ELS11581
*        --       ----              IF NOT CODES THAT HAVE              ELS11582
*                                     MODEL# OR I/O ADDRESSES           ELS11583
*        --       ----              IF ENTRY HAVE MODEL# OR I/O ADDR    ELS11584
*****                                                                   ELS11585
*                                                                       ELS11586
CHECK    EQU      %                                                     ELS11587
         LI,4     11                                                    ELS11588
         B        CHK05                                                 ELS11589
*                                                                       ELS11590
*                                                                       ELS11591
CHECK1   EQU      %                 2ND ENTRY TO ROUTINE                ELS11592
         LI,4     13                LOAD # OF TYPES FOR I/O ADDR        ELS11593
CHK05    EQU      %                                                     ELS11594
         LB,7     MDIO:X,4          LOAD TYPES WITH MODEL#,I/O ADDRESS  ELS11595
         CW,7     TYPEWK            TYPE REQUESTED                      ELS11596
         BE       CHK10             (NO,YES-CHK10)                      ELS11597
         BDR,4    CHK05                                                 ELS11598
*                                                                       ELS11599
*                                                                       ELS11600
         B        *15               RETURN-SYSTEM TYPE CODE             ELS11601
*                                                                       ELS11602
*                                                                       ELS11603
CHK10    EQU      %                                                     ELS11604
         MTW,1    15                INCR TO GOOD RETURN                 ELS11605
         B        *15               RETURN-DEVICE TYPE CODE             ELS11606
*                                                                       ELS11607
*                                                                       ELS11608
MDIO:X   EQU      %                 ALL ENTRY TYPE CODES WITH           ELS11609
*                                    MODEL#/I/O ADDRESS                 ELS11610
         DATA     X'00121315'                                           ELS11611
         DATA     X'21363738'                                           ELS11612
         DATA     X'39515211'                                           ELS11613
         DATA     X'34160000'                                           ELS11614
         PAGE                                                           ELS11615
*                                                                       ELS11616
*****                                                                   ELS11617
*     ROUTINE BRKUP                                                     ELS11618
*                                                                       ELS11619
*     ROUTINE GETS THE KEYS FROM SORTED ENTRY TABLE AND                 ELS11620
*     UPDATES THE POINTER INTO THE SORTED TABLE TO THE                  ELS11621
*     NEXT ENTRY.                                                       ELS11622
*                                                                       ELS11623
*     CALLING SEQUENCE:                                                 ELS11624
*        BAL,15   BRKUP                                                 ELS11625
*        --       ----              RETURN HERE IF LAST ENTRY IN        ELS11626
*                                    SORT TABLE REACHED                 ELS11627
BRKUP    LW,4     CURCNT                                                ELS11628
         LW,7     *WKADDR,4                                             ELS11629
         LB,7     7,1                                                   ELS11630
         STW,7    KEY3                                                  ELS11631
         AI,4     2                                                     ELS11632
         LW,7     *WKADDR,4                                             ELS11633
         STW,7    KEY1                                                  ELS11634
         AI,4     1                                                     ELS11635
         LW,7     *WKADDR,4                                             ELS11636
         STW,7    KEY2                                                  ELS11637
         LW,7     CURCNT            UPDATE TO NEXT ENTRY                ELS11638
         AI,7     4                                                     ELS11639
         STW,7    CURCNT                                                ELS11640
         MTW,1    ENTRYCNT                                              ELS11641
         LW,7     ENTRYCNT                                              ELS11642
         CW,7     TOTALCNT          LAST ENTRY IN SORT TABLE            ELS11643
         BL       %+2               (YES,NO-%+2)                        ELS11644
         B        *15                                                   ELS11645
         MTW,1    15                UPDATE RETURN ADDRESS               ELS11646
         B        *15               RETURN                              ELS11647
         PAGE                                                           ELS11648
*                                                                       ELS11649
*****                                                                   ELS11650
*     ROUTINE SECOND                                                    ELS11651
*                                                                       ELS11652
*     ROUTINE CHECKS IF THE TYPE CODE IS A SECONDARY CODE.              ELS11653
*                                                                       ELS11654
*     CALLING SEQUENCE:                                                 ELS11655
*        BAL,15   SECOND                                                ELS11656
*        --       ----              RETURN HERE IF A SECONDARY          ELS11657
*        --       ----              RETURN HERE IF NOT A SECONDARY      ELS11658
*****                                                                   ELS11659
*                                                                       ELS11660
SECOND   EQU      %                                                     ELS11661
         LI,4     7                                                     ELS11662
SEC05    EQU      %                                                     ELS11663
         LB,7     SCODES,4          LOAD VALID SECONDARY TYPE           ELS11664
         CW,7     TYPESX            SECONDARY ENTRY                     ELS11665
         BE       SEC10             (NO,YES-SEC10)                      ELS11666
         BDR,4    SEC05                                                 ELS11667
         MTW,1    15                UPDATE RETURN ADDRESS               ELS11668
         B        *15               NOT A SECONDARY RETURN              ELS11669
*                                                                       ELS11670
*                                                                       ELS11671
SEC10    EQU      %                                                     ELS11672
         B        *15               SECONDARY ENTRY RETURN              ELS11673
*                                                                       ELS11674
*                                                                       ELS11675
SCODES   EQU      %                                                     ELS11676
         DATA     X'001F4243'                                           ELS11677
         DATA     X'44321649'                                           ELS11678
TYPESX   DATA     0                                                     ELS11679
         PAGE                                                           ELS11680
*                                                                       ELS11681
*****                                                                   ELS11682
*     ROUTINE PRIMARY                                                   ELS11683
*                                                                       ELS11684
*     ROUTINE CHECKS IF THE TYPE CODE IS A PRIMARY CODE.                ELS11685
*                                                                       ELS11686
*     CALLING SEQUENCE:                                                 ELS11687
*        BAL,15   PRIMARY                                               ELS11688
*        --       ----              RETURN HERE IF A PRIMARY            ELS11689
*        --       ----              RETURN HERE IF NOT A PRIMARY        ELS11690
*****                                                                   ELS11691
*                                                                       ELS11692
PRIMARY  EQU      %                                                     ELS11693
         LI,4     8                                                     ELS11694
PRIM05   EQU      %                                                     ELS11695
         LB,7     PCODES,4          LOAD VALID PRIMARY CODES            ELS11696
         CW,7     TYPESX            ENRTY A PRIMARY                     ELS11697
         BE       PRIM10            (NO,YES-PRIM10)                     ELS11698
         BDR,4    PRIM05                                                ELS11699
         STW,1    NONPRIM                                               ELS11700
         MTW,1    15                INCR RETURN ADDRESS                 ELS11701
         B        *15                                                   ELS11702
*                                                                       ELS11703
*                                                                       ELS11704
PRIM10   EQU      %                                                     ELS11705
         B        *15                                                   ELS11706
*                                                                       ELS11707
*                                                                       ELS11708
PCODES   EQU      %                                                     ELS11709
         DATA     X'00171810'                                           ELS11710
         DATA     X'22303115'                                           ELS11711
         DATA     X'1D000000'                                           ELS11712
         PAGE                                                           ELS11713
* SUBROUTINE SECTION:                                                   ELS11714
*                                                                       ELS11715
*                                                                       ELS11716
RT11     EQU      %                                                     ELS11717
         LW,13    CLISF                                                 ELS11718
         BNEZ     RT11YA                                                ELS11719
         LW,13    FSTFLG                                                ELS11720
         BNEZ     RT11YA                                                ELS11721
         STW,0    SEQFLG                                                ELS11722
RT11YA   EQU      %                                                     ELS11723
         LB,13    BUFFER                                                ELS11724
         CW,13    SEQFLG                                                ELS11725
         BE       RT116             SKIP SPACES                         ELS11726
         BAL,15   L:SPACE3                                              S1--0054
RT116    EQU      %                                                     ELS11730
         BAL,15   TIME              FIX MSG1                            ELS11731
         BAL,15   MOD:IN       FETCH /CONVERT AND STORE MODEL NO.       ELS11732
         LW,14    BUFFER,2                                              ELS11733
         AND,14   XXXXFFFF          I/O ADRS                            ELS11734
         BAL,15   HEXEBC                                                ELS11735
         LI,10    4                                                     ELS11736
         LW,5     15                SAVE R15                            ELS11737
         BAL,15   STMSG4                                                ELS11738
         DATA     MSG3                                                  ELS11739
         LI,10    4                 SIO STAT                            ELS11740
         STB,10   MSG3              SET BYTE CNT                        ELS11741
         LW,14    BUFFER,2          TDV STAT                            ELS11742
         SLS,14   -16                                                   ELS11743
         BAL,15   HEXEBC                                                ELS11744
         LI,10    4                                                     ELS11745
         STB,10   MSG4                                                  ELS11746
         LW,5     15                SAVE R15                            ELS11747
         BAL,15   STMSG4                                                ELS11748
         DATA     MSG4                                                  ELS11749
         LW,14    BUFFER,3                                              ELS11750
         SLS,14   -16                                                   ELS11751
         AND,14   XXXXXXFF          SIO CC                              ELS11752
         BAL,15   HEXEBC                                                ELS11753
         SLS,15   -8                                                    ELS11754
         STB,1    MSG5              SET UP BYTE CNT                     ELS11755
         STB,15   MSG5,1                                                ELS11756
         LI,4     5                                                     ELS11757
         LW,14    BUFFER,4          TDV STAT                            ELS11758
         SLS,14   -16                                                   ELS11759
         BAL,15   HEXEBC                                                ELS11760
         LI,10    4                                                     ELS11761
         STB,10   MSG6                                                  ELS11762
         LW,5     15                SAVE R15                            ELS11763
         BAL,15   STMSG4                                                ELS11764
         DATA     MSG6                                                  ELS11765
         LW,14    BUFFER,3                                              ELS11766
         SLS,14   -8                                                    ELS11767
         AND,14   XXXXXXFF          TDV CC                              ELS11768
         BAL,15   HEXEBC                                                ELS11769
         SLS,15   -8                                                    ELS11770
         STB,1    MSG7              SET UP BYTE CNT                     ELS11771
         STB,15   MSG7,1            TDV CC                              ELS11772
         LI,4     4                                                     ELS11773
         LW,14    BUFFER,4                                              ELS11774
         SLS,14   -25                                                   ELS11775
         BAL,15   HEXEBC                                                ELS11776
         STB,15   MSG8,2                                                ELS11777
         SLS,15   -8                                                    ELS11778
         STB,15   MSG8,1                                                ELS11779
         STB,2    MSG8              SET UP BYTE CNT                     ELS11780
         LW,14    BUFFER,4                                              ELS11781
         AND,14   XX7FFFFF                                              ELS11782
         BAL,15   HEXEBC                                                ELS11783
         SLD,14   8                                                     ELS11784
         STW,14   MSG9                                                  ELS11785
         STW,15   MSG9,1                                                ELS11786
         LI,10    6                                                     ELS11787
         STB,10   MSG9                                                  ELS11788
         LI,4     5                                                     ELS11789
         LW,14    BUFFER,4                                              ELS11790
         AND,14   XXXXFFFF                                              ELS11791
         BAL,15   HEXEBC                                                ELS11792
         LI,10    4                                                     ELS11793
         STB,10   MSG10             SET UP BYTE CNT                     ELS11794
         LW,5     15                SAVE R15                            ELS11795
         BAL,15   STMSG4                                                ELS11796
         DATA     MSG10             REM. BYTES                          ELS11797
         LB,14    S:SYS,1           FETCH CPU BYTE                      ELS11798
         CB,14    1,3               CK SIGMA 5-7                        ELS11799
         BNE      P11                                                   ELS11800
         LW,14    BUFFER,3                                              ELS11801
         LB,14    14           FETCH THE 1ST BYTE.......                ELS11802
         BAL,15   HEXEBC                                                ELS11803
         SLS,15   8            SHIFT 1 BYTE TO LEFT.....                ELS11804
         STW,15   MSG11             MFI                                 ELS11805
         LI,10    2                                                     ELS11806
         STB,10   MSG11                                                 ELS11807
P11      LW,13    CLISF                                                 ELS11808
         BEZ      P11S              SLIS                                ELS11809
         LB,13    BUFFER                                                ELS11810
         CW,13    SEQFLG                                                ELS11811
         BE       P11X                                                  ELS11812
         BAL,15   CT:PRINT          PRINT TYPE 11 ERROR REPORT          ELS11813
         DATA     TC11                                                  ELS11814
RTRN11   LB,13    BUFFER                                                ELS11815
         STW,13   SEQFLG                                                ELS11816
         B        RETURN                                                ELS11817
*                                                                       ELS11818
*                                                                       ELS11819
*                                                                       ELS11820
P11X     BAL,15   CT:PRINT                                              ELS11821
         DATA     TC11X                                                 ELS11822
         B        RTRN11                                                ELS11823
*                                                                       ELS11824
TC11     BS       4,21,1,22,1,23,1,21,1,65,0,65,X'FF',;                 S1--0056
                  20,19,26,3,104,0,22,0,102,2,104,0,28,0,102,;          ELS11826
                  2,29,2,30,2,31,X'FF',;                                ELS11827
                  24,10,25,3,32,2,33,1,34,2,33,1,34,2,33,2,35,1,36,;    ELS11828
                  2,37,2,48,X'FF',;                                     ELS11829
                  1,2,2,2,3,2,4,1,5,3,6,1,7,3,8,4,9,3,10,3,11,X'FF'     ELS11830
TC11X    BS       1,1,2,2,2,3,2,4,1,5,3,6,1,7,3,8,4,9,3,10,3,11,X'FF'   ELS11831
*                                                                       ELS11832
P11S     LW,13    FSTFLG                                                ELS11833
         BNEZ     P11SX                                                 ELS11834
         BAL,15   FXMDIO                                                ELS11835
         BAL,15   CT:PRINT                                              ELS11836
         DATA     TS11                                                  ELS11837
RTN11    STW,1    FSTFLG            SET FSTFLG                          ELS11838
         LB,13    BUFFER       FETCH TYPE CODE                          ELS11839
         STW,13   SEQFLG                                                ELS11840
         B        SRTRN                                                 ELS11841
*                                                                       ELS11842
P11SX    LB,13    BUFFER                                                ELS11843
         CW,13    SEQFLG                                                ELS11844
         BNE      P11S+3                                                ELS11845
         BAL,15   CT:PRINT                                              ELS11846
         DATA     TS11X                                                 ELS11847
         B        RTN11                                                 ELS11848
*                                                                       ELS11849
TS11     EQU      %                                                     ELS11850
         BS       4,21,1,22,1,23,1,21,1,65,0,65,X'FF',;                 S1--0058
                  20,13,104,0,22,0,102,2,104,0,28,0,102,;               ELS11852
                  2,29,2,30,2,31,X'FF',;                                ELS11853
                  24,10,33,1,34,2,33,1,34,2,33,2,35,1,36,;              ELS11854
                  2,37,2,48,X'FF',;                                     ELS11855
                  1,2,4,1,5,3,6,1,7,3,8,4,9,3,10,3,11,X'FF'             ELS11856
TS11X    BS       1,1,2,4,1,5,3,6,1,7,3,8,4,9,3,10,3,11,X'FF'           ELS11857
*                                                                       ELS11858
RT12     EQU      %                                                     ELS11859
         STW,1    F12               SET F12 FLAG                        ELS11860
         B        RT15                                                  ELS11861
*                                                                       ELS11862
*                                                                       ELS11863
F12      DATA     0                                                     ELS11864
*                                                                       ELS11865
*                                                                       ELS11866
         PAGE                                                           ELS11867
RT13     EQU      %                                                     ELS11868
         LW,13    CLISF                                                 ELS11869
         BNEZ     RT13YA                                                ELS11870
         LW,13    FSTFLG                                                ELS11871
         BNEZ     RT13YA                                                ELS11872
         STW,0    SEQFLG                                                ELS11873
RT13YA   EQU      %                                                     ELS11874
         LB,13    BUFFER                                                ELS11875
         CW,13    SEQFLG                                                ELS11876
         BE       NX13                                                  ELS11877
         BAL,15   L:SPACE3                                              S1--0060
NX13     EQU      %                                                     ELS11881
         BAL,15   TIME              FIX DATE/TIME                       ELS11882
         BAL,15   MOD:IN       FETCH/CONVERT/STORE MODEL NO.            ELS11883
*                                                                       ELS11884
         LW,14    BUFFER,2                                              ELS11885
         AND,14   XXXXFFFF                                              ELS11886
         BAL,15   HEXEBC            I/O ADRS                            ELS11887
         LI,10    4                                                     ELS11888
         STB,10   MSG3                                                  ELS11889
         LW,5     15                                                    ELS11890
         BAL,15   STMSG4                                                ELS11891
         DATA     MSG3                                                  ELS11892
         LW,14    BUFFER,2          AIO STAT.                           ELS11893
         SLS,14   -16                                                   ELS11894
         BAL,15   HEXEBC                                                ELS11895
         LI,10    4                                                     ELS11896
         STB,10   MSG4                                                  ELS11897
         LW,5     15                                                    ELS11898
         BAL,15   STMSG4                                                ELS11899
         DATA     MSG4                                                  ELS11900
         LW,14    BUFFER,3                                              ELS11901
         SLS,14   -16                                                   ELS11902
         AND,14   XXXXXXFF                                              ELS11903
         BAL,15   HEXEBC                                                ELS11904
         SLS,15   -8                                                    ELS11905
         STB,15   MSG5,1                                                ELS11906
         STB,1    MSG5                                                  ELS11907
         LW,13    CLISF                                                 ELS11908
         BEZ      P13S                                                  ELS11909
*                                                                       ELS11910
         LB,13    BUFFER                                                ELS11911
         CW,13    SEQFLG                                                ELS11912
         BE       P13X                                                  ELS11913
         BAL,15   CT:PRINT                                              ELS11914
         DATA     TC13                                                  ELS11915
RTRN13   LB,13    BUFFER                                                ELS11916
         STW,13   SEQFLG                                                ELS11917
         B        RETURN            RETURN TO READ ANOTHER RECORD       ELS11918
*                                                                       ELS11919
P13X     EQU      %                                                     ELS11920
         BAL,15   CT:PRINT                                              ELS11921
         DATA     TC13X                                                 ELS11922
         B        RTRN13                                                ELS11923
*                                                                       ELS11924
*                                                                       ELS11925
TC13     EQU      %                                                     ELS11926
         BS       4,21,1,38,1,21,1,65,0,67,X'FF',;                      S1--0062
                  20,19,26,3,104,0,39,0,102,X'FF',;                     ELS11928
                  24,10,25,3,32,2,33,1,34,X'FF',;                       ELS11929
                  1,2,2,2,3,2,4,1,5,X'FF'                               ELS11930
*                                                                       ELS11931
*                                                                       ELS11932
TC13X    BS       1,1,2,2,2,3,2,4,1,5,X'FF'                             ELS11933
*                                                                       ELS11934
P13S     LW,13    FSTFLG                                                ELS11935
         BNEZ     P13SX                                                 ELS11936
         BAL,15   FXMDIO                                                ELS11937
         BAL,15   CT:PRINT                                              ELS11938
         DATA     TS13                                                  ELS11939
RTN13    STW,1    FSTFLG                                                ELS11940
         LB,13    BUFFER       FETCH TYPE CODE                          ELS11941
         STW,13   SEQFLG                                                ELS11942
         B        SRTRN                                                 ELS11943
*                                                                       ELS11944
P13SX    LB,13    BUFFER                                                ELS11945
         CW,13    SEQFLG                                                ELS11946
         BNE      P13S+3                                                ELS11947
         BAL,15   CT:PRINT                                              ELS11948
         DATA     TS13X                                                 ELS11949
         B        RTN13                                                 ELS11950
*                                                                       ELS11951
TS13     BS       4,21,1,38,1,21,1,65,0,67,X'FF',;                      S1--0064
                  20,13,104,0,39,0,102,X'FF',;                          ELS11953
                  24,10,33,1,34,X'FF',;                                 ELS11954
                  1,2,4,1,5,X'FF'                                       ELS11955
*                                                                       ELS11956
TS13X    BS       1,1,2,4,1,5,X'FF'                                     ELS11957
*                                                                       ELS11958
*                                                                       ELS11959
RT15     EQU      %                                                     ELS11960
         LW,13    CLISF                                                 ELS11961
         BNEZ     RT15YA                                                ELS11962
         LW,13    FSTFLG                                                ELS11963
         BNEZ     RT15YA                                                ELS11964
         STW,0    SEQFLG                                                ELS11965
RT15YA   EQU      %                                                     ELS11966
         LB,13    BUFFER                                                ELS11967
         CW,13    SEQFLG                                                ELS11968
         BE       RT156             SKIP SPACES                         ELS11969
         BAL,15   L:SPACE3                                              S1--0066
RT156    EQU      %                                                     ELS11973
         BAL,15   TIME              FIX MSG1                            ELS11974
         LI,4     2                                                     ELS11975
         LW,13    BUFFER,4                                              ELS11976
         SLS,13   -16               SHIFT 16 BIT TO RIGHT               ELS11977
         STW,13   AIOS                                                  ELS11978
         LI,4     3                                                     ELS11979
         LW,13    BUFFER,4                                              ELS11980
         SLS,13   -24               SHIFT 24 BIT TO RIGHT               ELS11981
         AND,13   XXXXXXFF                                              ELS11982
         STW,13   MFI                                                   ELS11983
         LW,13    BUFFER,4                                              ELS11984
         SLS,13   -16                                                   ELS11985
         AND,13   XXXXXXFF                                              ELS11986
         STW,13   AIOC                                                  ELS11987
         LW,13    BUFFER,4                                              ELS11988
         SLS,13   -8                SHIFT 8 BIT TO RIGHT                ELS11989
         AND,13   XXXXXXFF                                              ELS11990
         STW,13   TDVC              STORE R13 TO TDVC                   ELS11991
         LW,13    BUFFER,4                                              ELS11992
         AND,13   XXXXXXFF                                              ELS11993
         STW,13   TIOC              STORE R13 TO TIOC                   ELS11994
         LI,4     4                                                     ELS11995
         LW,13    BUFFER,4                                              ELS11996
         SLS,13   -24                                                   ELS11997
         AND,13   XXXXXXFF                                              ELS11998
         STW,13   SUBCHSTA                                              ELS11999
         LW,13    BUFFER,4                                              ELS12000
         AND,13   XX7FFFFF                                              ELS12001
         STW,13   TDVCCDA           STORE R13 TO TDVCCDA                ELS12002
         LI,4     5                                                     ELS12003
         LW,13    BUFFER,4                                              ELS12004
         SLS,13   -16                                                   ELS12005
         STW,13   TDVS              STORE R13 TO TDVS                   ELS12006
         LW,13    BUFFER,4                                              ELS12007
         AND,13   XXXXFFFF                                              ELS12008
         STW,13   BYTREM            STORE R13 TO BYTREM                 ELS12009
         LI,4     8                                                     ELS12010
         LW,13    BUFFER,4                                              ELS12011
         SLS,13   -16                                                   ELS12012
         STW,13   TIOS              STORE R13 TO TIOS                   ELS12013
         LW,13    BUFFER,4                                              ELS12014
         SLS,13   -8                                                    ELS12015
         AND,13   XXXXXXFF                                              ELS12016
         STW,13   RETREQ            STORE R13 TO RETREQ                 ELS12017
         LW,13    BUFFER,4                                              ELS12018
         AND,13   XXXXXXFF                                              ELS12019
         STW,13   RETREM            STORE R13 TO RETREM                 ELS12020
         LI,4     11                                                    ELS12021
         LW,13    BUFFER,4                                              ELS12022
         SLS,13   -8                                                    ELS12023
         AND,13   XXXXXXFF                                              ELS12024
         STW,13   ORGFCDE           STORE R13 TO ORGFCDE                ELS12025
         LW,13    BUFFER,4                                              ELS12026
         AND,13   XXXXXXFF                                              ELS12027
*                                                                       ELS12028
         BAL,15   MOD:IN       FETCH/CONVERT/STORE MODEL NO.            ELS12029
*                                                                       ELS12030
         LI,4     2                                                     ELS12031
         LW,14    BUFFER,4          FIX I/O ADDRESS                     ELS12032
         AND,14   XXXXFFFF                                              ELS12033
         BAL,15   HEXEBC                                                ELS12034
         LI,10    4                                                     ELS12035
         STB,10   MSG3                                                  ELS12036
         LW,5     15                                                    ELS12037
         BAL,15   STMSG4                                                ELS12038
         DATA     MSG3                                                  ELS12039
         LW,14    AIOS                                                  ELS12040
         BAL,15   HEXEBC                                                ELS12041
         LI,10    4                                                     ELS12042
         STB,10   MSG4                                                  ELS12043
         LW,5     15                                                    ELS12044
         BAL,15   STMSG4                                                ELS12045
         DATA     MSG4                                                  ELS12046
         LW,14    AIOC                                                  ELS12047
         BAL,15   HEXEBC                                                ELS12048
         SLS,15   -8                                                    ELS12049
         STB,15   MSG5,1                                                ELS12050
         STB,1    MSG5              BYTE CNT                            ELS12051
         LW,14    TIOS                                                  ELS12052
         BAL,15   HEXEBC                                                ELS12053
         LI,10    4                                                     ELS12054
         STB,10   MSG6                                                  ELS12055
         LW,5     15                                                    ELS12056
         BAL,15   STMSG4                                                ELS12057
         DATA     MSG6                                                  ELS12058
         LW,14    TIOC                                                  ELS12059
         BAL,15   HEXEBC                                                ELS12060
         SLS,15   -8                                                    ELS12061
         STB,15   MSG7,1                                                ELS12062
         STB,1    MSG7              SET UP BYTE CNT                     ELS12063
         LW,14    TDVS                                                  ELS12064
         BAL,15   HEXEBC                                                ELS12065
         LI,10    4                                                     ELS12066
         STB,10   MSG8                                                  ELS12067
         LW,5     15                                                    ELS12068
         BAL,15   STMSG4                                                ELS12069
         DATA     MSG8                                                  ELS12070
         LW,14    TDVC                                                  ELS12071
         BAL,15   HEXEBC                                                ELS12072
         SLS,15   -8                                                    ELS12073
         STB,15   MSG9,1                                                ELS12074
         STB,1    MSG9                                                  ELS12075
         LW,14    TDVCCDA                                               ELS12076
         BAL,15   HEXEBC                                                ELS12077
         SLD,14   8                                                     ELS12078
         STW,14   MSG10                                                 ELS12079
         STW,15   MSG10,1                                               ELS12080
         LI,10    6                                                     ELS12081
         STB,10   MSG10                                                 ELS12082
*                                                                       ELS12083
         LW,14    BYTREM                                                ELS12084
         BAL,15   HEXEBC                                                ELS12085
         LI,10    4                                                     ELS12086
         STB,10   MSG11                                                 ELS12087
         LW,5     15                                                    ELS12088
         BAL,15   STMSG4                                                ELS12089
         DATA     MSG11                                                 ELS12090
         LB,14    S:SYS,1                                               ELS12091
         CW,14    1                                                     ELS12092
         BNE      P15                                                   ELS12093
         LW,14    BUFFER,3                                              ELS12094
         SLS,14   -24                                                   ELS12095
         BAL,15   HEXEBC            MFI                                 ELS12096
         SLS,15   8                                                     ELS12097
         STW,15   MSG18                                                 ELS12098
P15      EQU    %                                                       ELS12099
         LI,10    2                                                     ELS12100
         STB,10   MSG18                                                 ELS12101
         LI,4     6                                                     ELS12102
         LW,14    BUFFER,4          CUR. COM. DW                        ELS12103
         BAL,15   HEXEBC                                                ELS12104
         LI,10    8                                                     ELS12105
         STB,10   MSG12             CUR. COM. 1ST WORD                  ELS12106
         LW,4     14                                                    ELS12107
         LW,5     15                                                    ELS12108
         BAL,15   STMSG8                                                ELS12109
         DATA     MSG12                                                 ELS12110
*                                                                       ELS12111
         LI,4     7                                                     ELS12112
         LW,14    BUFFER,4          CUR. COMM. 2ND WORD                 ELS12113
         BAL,15   HEXEBC                                                ELS12114
         LI,10    8                                                     ELS12115
         STB,10   MSG13                                                 ELS12116
         LW,4     14                                                    ELS12117
         LW,5     15                                                    ELS12118
         BAL,15   STMSG8                                                ELS12119
         DATA     MSG13                                                 ELS12120
*                                                                       ELS12121
         LW,14    RETREQ                                                ELS12122
         LI,13    1                                                     ELS12123
*                                                                       ELS12124
         BAL,15   HEXTWO                                                ELS12125
         DATA     MSG14                                                 ELS12126
         STB,2    MSG14                                                 ELS12127
*                                                                       ELS12128
         LW,14    RETREM                                                ELS12129
         LI,13    1                                                     ELS12130
         BAL,15   HEXTWO                                                ELS12131
         DATA     MSG15                                                 ELS12132
         STB,2    MSG15                                                 ELS12133
*                                                                       ELS12134
         LI,4     11                                                    ELS12135
         LW,15    BUFFER,4     FETCH IO SERIAL NUMBER (ANS)             ELS12136
         AND,15   FFFFXX       MSK OUT                                  ELS12137
         BNEZ     %+2          B: NOT EQUAL ZERO                        ELS12138
         LW,15    X40X                                                  ELS12139
         LI,4     10                                                    ELS12140
         LW,14    BUFFER,4     FETCH SERIAL NO.                         ELS12141
         BNEZ     RT15:A       B: NOT EQUAL ZERO                        ELS12142
         LW,14    X40X                                                  ELS12143
RT15:A   SLD,14   -8                                                    ELS12144
         STW,14   MSG16                                                 ELS12145
         STW,15   MSG16,1                                               ELS12146
RT15:B   LI,4     6                                                     ELS12147
         STB,4    MSG16                                                 ELS12148
         STW,0    SGNFL        RESET SIGN FLAG                          ELS12149
         LI,4     9                                                     ELS12150
         LI,13    1                                                     ELS12151
         LW,14    BUFFER,4                                              ELS12152
         BGEZ     %+3          BRANCH IF POSITIVE SIGN                  ELS12153
         LCW,14   14           FETCH THE TWO'S COMPLEMENT               ELS12154
         STW,1    SGNFL        SET THE SIGN FLAG.                       ELS12155
         BAL,15   HEXDECE                                               ELS12156
         DATA     MSG154                                                ELS12157
         LI,4     10                                                    ELS12158
         STB,4    MSG154            BYTE CNT                            ELS12159
         MTW,0    SGNFL        CHECK SIGN FLAG.                         ELS12160
         BEZ      %+3          BRANCH IF ZERO.                          ELS12161
         LI,4     X'D5'        FETCH THE NEGATIVE EBCDIC SIGN.          ELS12162
         STB,4    MSG154,1                                              ELS12163
*                                                                       ELS12164
         LW,14    SUBCHSTA                                              ELS12165
         BAL,15   HEXEBC                                                ELS12166
         SLS,15   8                                                     ELS12167
         STW,15   MSG17                                                 ELS12168
         STB,2    MSG17                                                 ELS12169
*                                                                       ELS12170
         LI,4     12                                                    ELS12171
         LW,14    BUFFER,4                                              ELS12172
         BAL,15   HEXEBC            SEEK ADRS                           ELS12173
         LI,10    8                                                     ELS12174
         STB,10   MSG19             SET UP BYTE CNT                     ELS12175
         LW,4     14                                                    ELS12176
         LW,5     15                                                    ELS12177
         BAL,15   STMSG8                                                ELS12178
         DATA     MSG19                                                 ELS12179
         LW,13    CLISF                                                 ELS12180
         BEZ      P15S              SLIS                                ELS12181
         CW,1     F12               IS THIS TYPE 12                     ELS12182
         BE       P12                                                   ELS12183
         LI,13    39                FIX 'AIO'                           ELS12184
         LI,14    180               FIX ERRORTYPE=15                    S1--0068
         LI,15    120               FIX 'ERROR'                         S1--0069
*                                                                       S1--0070
P12X     EQU      %                                                     S1--0071
         LI,6     BA(TC15C)                                             S1--0072
         STB,13   0,6                                                   S1--0073
         LI,6     BA(TC15B)                                             S1--0074
         STB,14   0,6                                                   S1--0075
         LI,6     BA(TC15A)                                             S1--0076
         STB,15   0,6                                                   S1--0077
*                                                                       ELS12190
         LB,13    BUFFER                                                ELS12191
         CW,13    SEQFLG                                                ELS12192
         BE       P15X                                                  ELS12193
         BAL,15   CT:PRINT                                              ELS12194
         DATA     TC15              PRINT TYPE 15                       ELS12195
RTRN15   LB,13    BUFFER                                                ELS12196
         STW,13   SEQFLG            SET SEQFLG CONDITION                ELS12197
         B        RETURN                                                ELS12198
*                                                                       ELS12199
P15X     BAL,15   CT:PRINT                                              ELS12200
         DATA     TC15X                                                 ELS12201
         B        RTRN15                                                ELS12202
*                                                                       ELS12203
P12      EQU      %                                                     ELS12204
         LI,13    27                FIX HIO                             ELS12205
         LI,14    66                FIX ERRORTYPE=12                    S1--0079
         LI,15    53                FIX 'TIMEOUT'                       S1--0080
         STW,0    F12               RESET F12                           ELS12209
         B        P12X                                                  ELS12210
SGNFL    DATA     0                                                     ELS12211
TC15     EQU      %                                                     ELS12212
         DATA,1   X'8C',21,1,43,1                                       S1--0082
TC15A    DATA,1   120,1,21,1,65,0                                       S1--0083
TC15B    DATA,1   180,X'FF',20,19,26,3,104,0                            S1--0084
TC15C    DATA,1   39,0,102,2,104,0,44,0,102,2,;                         S1--0085
                  104,0,28,0,102,2,30,2,31,6,;                          ELS12215
                  20,4,26,5,142,0,45,0,103,1,155,1,40,1,;               ELS12216
                  29,X'FF',;                                            ELS12217
                  24,10,25,3,32,2,33,1,34,2,33,1,34,2,33,1,34,;         ELS12218
                  2,35,1,36,2,37,2,48,0,;                               ELS12219
                  20,2,42,7,65,8,66,5,49,1,31,1,41,1,33,;               ELS12220
                  1,52,1,32,X'FF',;                                     ELS12221
                  1,2,2,2,3,2,4,1,5,3,6,1,7,3,8,1,9,3,10,3,;            ELS12222
                  11,3,18,0,;                                           ELS12223
                  20,1,154,1,12,1,13,2,14,2,15,2,16,1,17,3,19,X'FF'     ELS12224
         BOUND    4                                                     S1--0087
TC15X    BS       1,1,2,2,2,3,2,4,1,5,3,6,1,7,3,8,1,9,3,10,3,;          ELS12225
                  11,3,18,0,;                                           ELS12226
                  20,1,154,1,12,1,13,2,14,2,15,2,16,1,17,3,19,X'FF'     ELS12227
*                                                                       ELS12228
P15S     EQU      %                                                     ELS12229
         CW,1     F12                                                   ELS12230
         BE       P12S                                                  ELS12231
         LI,13    39                'AIO'                               ELS12232
         LI,14    120               'ERROR'                             S1--0089
*                                                                       S1--0090
P12SX    EQU      %                                                     S1--0091
*                                                                       S1--0092
         STB,13   TS15+4,1                                              S1--0093
         STB,14   TS15+1,1                                              S1--0094
*                                                                       S1--0095
         LW,13    FSTFLG                                                ELS12237
         BNEZ     P15SX                                                 ELS12238
         BAL,15   FXMDIO                                                ELS12239
P12SY    EQU      %                                                     S1--0097
         BAL,15   CT:PRINT                                              ELS12240
         DATA     TS15                                                  ELS12241
RTN15    STW,1    FSTFLG                                                ELS12242
         LB,13    BUFFER       FETCH TYPE CODE                          ELS12243
         STW,13   SEQFLG                                                ELS12244
         B        SRTRN                                                 ELS12245
*                                                                       ELS12246
P15SX    LB,13    BUFFER                                                ELS12247
         CW,13    SEQFLG                                                ELS12248
         BNE      P12SY                                                 S1--0099
         BAL,15   CT:PRINT                                              ELS12250
         DATA     TS15X                                                 ELS12251
         B        RTN15                                                 ELS12252
*                                                                       ELS12253
P12S     LI,13    27                                                    ELS12254
*                                   27 ABOVE IS 'HIO'                   S1--0101
         LI,14    53                'TIMEOUT'                           S1--0102
         STW,0    F12               RESET F12                           ELS12258
         B        P12SX                                                 ELS12259
*                                                                       ELS12260
*                                                                       ELS12261
TS15     EQU      %                                                     S1--0104
         BS       X'8C',21,1,43,1,120,1,21,1,65,0,180,X'FF',;           S1--0105
                  20,13,104,0,39,0,102,2,104,0,44,0,102,2,;             ELS12263
                  104,0,28,0,102,2,30,2,31,6,;                          ELS12264
                  20,4,26,6,142,0,45,0,103,1,155,1,40,1,;               ELS12265
                  29,X'FF',;                                            ELS12266
                  24,10,33,1,34,2,33,1,34,2,33,1,34,;                   ELS12267
                  2,35,1,36,2,37,2,48,0,;                               ELS12268
                  20,2,42,8,65,8,66,5,49,1,31,1,41,1,33,;               ELS12269
                  1,52,1,32,X'FF',;                                     ELS12270
                  1,2,4,1,5,3,6,1,7,3,8,1,9,3,10,3,;                    ELS12271
                  11,3,18,0,;                                           ELS12272
                  20,0,154,3,12,1,13,2,14,2,15,2,16,1,17,3,19,X'FF'     ELS12273
*                                                                       ELS12274
TS15X    BS       1,1,2,4,1,5,3,6,1,7,3,8,1,9,3,10,3,;                  ELS12275
                  11,3,18,0,;                                           ELS12276
                  20,0,154,3,12,1,13,2,14,2,15,2,16,1,17,3,19,X'FF'     ELS12277
*                                                                       ELS12278
*                                                                       ELS12279
RT21     EQU      %                                                     ELS12280
         LB,13    BUFFER                                                ELS12281
         CW,13    SEQFLG                                                ELS12282
         BE       NX21                                                  ELS12283
         BAL,15   L:SPACE3                                              S1--0107
NX21     EQU      %                                                     ELS12287
         STB,1    TC21X,1           SET MSG1                            ELS12288
         STB,2    TC21X,2                                               ELS12289
         BAL,15   TIME                                                  ELS12290
         LI,4     2                 INITIALIZE X4=2                     ELS12291
         LB,13    BUFFER,1                                              ELS12292
         STW,13   TYCNT             SAVE CNT                            ELS12293
         LB,13    BUFFER                                                ELS12294
         CW,13    SEQFLG                                                ELS12295
         BE       TLX21                                                 ELS12296
         BAL,15   CT:PRINT          PRINT FORMATS                       ELS12297
         DATA     TC21                                                  ELS12298
TLX21    EQU      %                                                     ELS12299
*                                                                       ELS12300
         LB,13    BUFFER                                                ELS12301
         STW,13   SEQFLG                                                ELS12302
L21      CW,4     TYCNT             IS THIS THE LAST PAIR               ELS12303
         BGE      CKRTRN                                                ELS12304
         LW,14    BUFFER,4          MDL                                 ELS12305
         SLS,14   -16                                                   ELS12306
          BAL,15    MOD:EBC                                             ELS12307
         XW,14    15                                                    ELS12308
         SLD,14   -8                                                    ELS12309
         STW,14   MSG2                                                  ELS12310
         STW,15   MSG2,1                                                ELS12311
         LI,10    4                                                     ELS12312
         STB,10   MSG2                                                  ELS12313
*                                   DCT                                 S1--0109
         LW,14    BUFFER,4                                              ELS12314
         AND,14   XXXXXXFF                                              ELS12315
         BAL,15   HEXEBC                                                ELS12316
         SLS,15   8                                                     ELS12317
         STW,15   MSG5                                                  ELS12318
         STB,2    MSG5              BYTE CNT                            ELS12319
*                                                                       ELS12320
         AI,4     1                                                     ELS12321
         LW,14    BUFFER,4                                              ELS12322
         AND,14   XXXXFFFF                                              ELS12323
         BAL,15   HEXEBC                                                ELS12324
         LI,10    4                                                     ELS12325
         STB,10   MSG3                                                  ELS12326
         LW,5     15                                                    ELS12327
         BAL,15   STMSG4                                                ELS12328
         DATA     MSG3              PRIIOADD                            ELS12329
*                                                                       ELS12330
         LW,14    BUFFER,4                                              ELS12331
         SLS,14   -16                                                   ELS12332
         BAL,15   HEXEBC                                                ELS12333
         LI,10    4                                                     ELS12334
         STB,10   MSG4                                                  ELS12335
         LW,5     15                                                    ELS12336
         BAL,15   STMSG4                                                ELS12337
         DATA     MSG4              ALTIOADD                            ELS12338
*                                                                       ELS12339
         BAL,15   CT:PRINT                                              ELS12340
         DATA     TC21X                                                 ELS12341
         AI,4     1                 INCREMENT X4 BY 1                   ELS12342
         LI,13    20                'SPACE'                             ELS12343
         STB,13   TC21X,1           MASK MSG1                           ELS12344
         LI,13    13                13 SPACES                           ELS12345
         STB,13   TC21X,2                                               ELS12346
         B        L21               LOOP FOR ANOTHER PAIR               ELS12347
*                                                                       ELS12348
CKRTRN   LW,13    CLISF                                                 ELS12349
         BEZ      SRTRN             RETURN TO SLIS RETURN               ELS12350
         B        RETURN            RETURN TO CLIS RETURN               ELS12351
*                                                                       ELS12352
TC21     EQU      %                                                     ELS12353
         BS       3,21,1,86,1,21,1,66,0,65,X'FF',;                      S1--0111
                  20,20,26,3,32,2,82,X'FF',;                            ELS12355
                  24,10,25,4,84,2,85,2,83,X'FF'                         ELS12356
*                                                                       ELS12357
TC21X    BS       1,1,2,2,3,3,2,4,3,5,X'FF'                             ELS12358
RT2D     EQU      %                                                     S1--0113
         STW,3    F19               SET TYPE FLG=2D                     S1--0114
         B        RT17                                                  S1--0115
*                                                                       S1--0116
RT2E     EQU      %                                                     S1--0117
         LI,13    4                                                     S1--0118
         STW,13   F19               SET TYPE FLG=2E                     S1--0119
         B        RT17                                                  S1--0120
*                                                                       S1--0121
RT2F     EQU      %                                                     S1--0122
         LI,13    5                                                     S1--0123
         STW,13   F19               SET TYPE FLG=2F                     S1--0124
*                                   FALL THRU TO RT17                   S1--0125
*                                                                       S1--0126
*                                                                       ELS12359
*                                                                       ELS12360
RT17     EQU      %                                                     ELS12361
*                                                                       ELS12362
         LB,13    BUFFER                                                ELS12363
         CW,13    SEQFLG                                                ELS12364
         BE       NX17                                                  ELS12365
         BAL,15   L:SPACE3                                              S1--0128
NX17     EQU      %                                                     ELS12369
         LW,14    BUFFER,2          PSD W1                              ELS12370
         BAL,15   HEXEBC                                                ELS12371
         LI,10    8                                                     ELS12372
         STB,10   MSG2                                                  ELS12373
         LW,4     14                                                    ELS12374
         LW,5     15                                                    ELS12375
         BAL,15   STMSG8                                                ELS12376
         DATA     MSG2                                                  ELS12377
*                                                                       ELS12378
         LW,14    BUFFER,3          PSD W2                              ELS12379
         BAL,15   HEXEBC                                                ELS12380
         LI,10    8                                                     ELS12381
         STB,10   MSG3                                                  ELS12382
         LW,4     14                                                    ELS12383
         LW,5     15                                                    ELS12384
         BAL,15   STMSG8                                                ELS12385
         DATA     MSG3                                                  ELS12386
         LI,4     6                                                     ELS12387
         LW,14    BUFFER,4          REAL ADRS                           ELS12388
         BAL,15   HEXEBC                                                ELS12389
         LI,10    8                                                     ELS12390
         STB,10   MSG4                                                  ELS12391
         LW,4     14                                                    ELS12392
         LW,5     15                                                    ELS12393
         BAL,15   STMSG8                                                ELS12394
         DATA     MSG4                                                  ELS12395
*                                                                       ELS12396
         LI,4     7                 INSTRUCTION                         ELS12397
         LW,14    BUFFER,4                                              ELS12398
         BAL,15   HEXEBC                                                ELS12399
         LI,10    8                                                     ELS12400
         STB,10   MSG5                                                  ELS12401
         LW,4     14                                                    ELS12402
         LW,5     15                                                    ELS12403
         BAL,15   STMSG8                                                ELS12404
         DATA     MSG5                                                  ELS12405
*                                                                       ELS12406
         LW,14    BUFFER            TRAP-CC/RIF OR CPU ADR              S1--0130
         STW,14   MSG19             TEMP STORAGE                        S1--0131
         LW,15    F19               ERR TYPE                            S1--0132
         CI,15    2                                                     S1--0133
         BG       NX17A           PROCESS 2D,2E,2F ERR CODES            S1--0134
*                                                                       S1--0135
         LI,15    4               SET MSG11 BC=4 .. MSG11 WILL BE       S1--0136
         STB,15   MSG11           BLANKS FOR ERR CODES 17,19,1D...      S1--0137
         B        NX17B           PROCEED WITH 17,19,1D PROCESSING      S1--0138
*                                                                       S1--0139
*                                                                       S1--0140
*        HANDLE 2D,2E,2F HERE                                           S1--0141
*                                                                       S1--0142
NX17A    EQU      %                                                     S1--0143
         BAL,15   GETCPU            PROCESS CPU ADR                     S1--0144
         DATA     MSG11                                                 S1--0145
*                                                                       S1--0146
         LW,14    BUFFER+10         GET TRAP-CC/RIF                     S1--0147
         LB,10    BUFFER+10       GET TRAP INFO                         S1--0148
         SCS,14   8                 CREATE THE                          S1--0149
         LI,5     2                 * 17,19,1D                          S1--0150
         STB,10   14,5              * FORMAT                            S1--0151
         STW,14   MSG19             TEMP STORAGE                        S1--0152
*                                                                       S1--0153
NX17B    EQU      %                                                     S1--0154
         AND,14   XXXXXXFF                                              ELS12408
         BAL,15   HEXEBC                                                ELS12409
         SLS,15   -8                                                    ELS12410
         STB,15   MSG6,1                                                ELS12411
         STB,1    MSG6                                                  ELS12412
*                                                                       ELS12413
         LW,14    MSG19             RIF                                 S1--0156
         SLS,14   -8                                                    ELS12415
         AND,14   M3                                                    ELS12416
         BAL,15   HEXEBC                                                ELS12417
         STB,15   MSG7,1                                                ELS12418
         STB,1    MSG7                                                  ELS12419
*                                                                       ELS12420
         LI,4     8                                                     ELS12421
         LW,14    BUFFER,4          ANLZ CC                             ELS12422
         SCS,14   4                                                     ELS12423
         AND,14   M4                                                    ELS12424
         BAL,15   HEXEBC                                                ELS12425
         STB,15   MSG8,1                                                ELS12426
         STB,1    MSG8                                                  ELS12427
         LI,4     8                                                     ELS12428
         LW,14    BUFFER,4          EFF. ADRS                           ELS12429
         AND,14   XX7FFFFF                                              ELS12430
         BAL,15   HEXEBC                                                ELS12431
         LI,10    8                                                     ELS12432
         STB,10   MSG9                                                  ELS12433
         LW,4     14                                                    ELS12434
         LW,5     15                                                    ELS12435
         BAL,15   STMSG8                                                ELS12436
         DATA     MSG9                                                  ELS12437
*                                                                       ELS12438
         LI,4     9                                                     ELS12439
         LW,14    BUFFER,4          REAL EFF ADR                        ELS12440
         BAL,15   HEXEBC                                                ELS12441
         LI,10    8                                                     ELS12442
         STB,10   MSG10                                                 ELS12443
         LW,4     14                                                    ELS12444
         LW,5     15                                                    ELS12445
         BAL,15   STMSG8                                                ELS12446
         DATA     MSG10                                                 ELS12447
*                                                                       ELS12448
*                                                                       S1--0158
*                                   DETERMINE TYPE OF ERROR CODE        S1--0159
         LW,4     F19               GET ERROR TYPE                      S1--0160
         LW,4     NX17TBL,4         GET PROPER TITLE ADR                S1--0161
         LCI      3                                                     S1--0162
         LM,13    *4                                                    S1--0163
         LCI      3                                                     S1--0164
         STM,13   TC17              STORE NEW TITLE                     S1--0165
*                                                                       ELS12454
*                                                                       ELS12455
         BAL,15   TIME                                                  ELS12456
         LB,13    BUFFER                                                ELS12457
         CW,13    SEQFLG                                                ELS12458
         BE       P17X                                                  ELS12459
         BAL,15   CT:PRINT                                              ELS12460
         DATA     TC17                                                  ELS12461
RTRN17   LB,13    BUFFER                                                ELS12462
         STW,13   SEQFLG                                                ELS12463
         B        CKRTRN                                                ELS12468
*                                                                       ELS12469
P17X     BAL,15   CT:PRINT                                              ELS12470
         DATA     TC17X                                                 ELS12471
         B        RTRN17                                                ELS12472
*                                                                       ELS12473
W1D      BS       X'8C',21,1,106,1,21,0,20,1,65,0,188                   S1--0169
*                                                                       S1--0170
*                                                                       S1--0171
W19      BS       X'8C',21,1,72,1,21,0,20,1,65,0,184                    S1--0172
*                                                                       S1--0173
*                                                                       S1--0174
W17      BS       X'8C',21,1,167,1,120,1,21,1,65,0,182                  S1--0175
TC17     BS       X'8C',21,1,167,1,120,1,21,1,65,0,182,X'FF',;          S1--0177
                  20,13,95,3,61,2,62,6,103,0,63,0,103,3,161,2,;         S1--0178
                  162,4,104,0,70,1,32,0,104,X'FF',;                     ELS12496
                  24,10,32,6,65,6,66,7,32,6,70,1,34,9,34,7,;            S1--0180
                  64,5,62,1,64,X'FF',;                                  ELS12498
                  1,2,11,2,2,1,3,2,4,2,5,1,6,5,7,4,8,6,9,3,10,X'FF'     S1--0182
*                                                                       S1--0183
TC17X    BS       1,1,2,11,2,2,1,3,2,4,2,5,1,6,5,7,4,8,6,9,3,10,X'FF'   S1--0184
*                                                                       S1--0185
*                                                                       S1--0186
W2D      BS       X'8C',21,1,167,1,120,1,21,1,66,0,188                  S1--0187
*                                                                       S1--0188
W2E      BS       X'8C',21,1,72,1,21,0,20,1,66,0,189                    S1--0189
*                                                                       S1--0190
W2F      BS       X'8C',21,1,106,1,21,0,20,1,66,0,190                   S1--0191
*                                                                       S1--0192
*                                                                       S1--0193
*                                   TABLE OF TITLE ADDRESSES            S1--0194
NX17TBL  DATA     W17,W19,W1D,W2D,W2E,W2F                               S1--0195
         PAGE                                                           S1--0197
GETCPU   EQU      %               GET CPU ADR FROM BUFFER IF            S1--0198
*                                     ENTERED HERE....                  S1--0199
*                                   AFTER BAL, R15=ADR OF MSG           S1--0200
*                                        FOR STORAGE                    S1--0201
         LW,14    BUFFER          ********                              S1--0202
*                                                                       S1--0203
GETCPUX  EQU      %               ENTRY HERE ASSUMES R14 CONTAINS       S1--0204
*                                      CPU ADR IN HW(1)....             S1--0205
         LCI      4                                                     S1--0206
         STM,4    GETCPU1+1                                             S1--0207
         STW,15   GETCPU1                                               S1--0208
         LW,7     *GETCPU1                                              S1--0209
         AND,14   XXXXFFFF                                              S1--0210
*                                                                       S1--0211
         BAL,15   HEXEBC                                                S1--0212
         LI,6     4                                                     S1--0213
         STB,6    *7                                                    S1--0214
*                                 LD 5 WITH EBCDIC FROM R15             S1--0215
         LW,5     15                                                    S1--0216
         STW,7    GETCPU0                                               S1--0217
*                                                                       S1--0218
         BAL,15   STMSG4                                                S1--0219
GETCPU0  DATA     0                 MSG ADR FOR STMSG4                  S1--0220
         LCI      4                                                     S1--0221
         LM,4     GETCPU1+1                                             S1--0222
         MTW,1    GETCPU1                                               S1--0223
         B        *GETCPU1          RETURN                              S1--0224
*                                                                       S1--0225
*                                                                       S1--0226
GETCPU1  RES      5               TEMP STORAGE                          S1--0227
         PAGE                                                           S1--0228
*                                                                       ELS12503
*                                   SYSTEM STARTUP CODE                 S1--0230
RT18     EQU      %                                                     ELS12504
         LB,13    BUFFER                                                ELS12505
         CW,13    SEQFLG                                                ELS12506
         BE       NX18                                                  ELS12507
         BAL,15   L:SPACE3                                              S1--0232
NX18     EQU      %                                                     ELS12511
*                                 HANDLE JULIAN DATE AND TIME           S1--0234
         LW,14    BUFFER,2                                              ELS12512
         SLS,14   -16                                                   ELS12513
         LI,13    3                                                     ELS12514
         BAL,15   HEXTWO                                                ELS12515
         DATA     MSG2A                                                 ELS12516
         LI,13    97                X61 = '/'                           ELS12517
         STB,13   MSG2A,2                                               ELS12518
         LW,14    BUFFER,2                                              ELS12519
         AND,14   XXXXFFFF                                              ELS12520
         BAL,15   JD:MD             TIME/DATE                           ELS12521
         STW,15   12                SAVE R15                            ELS12522
         LI,13    0                                                     ELS12523
         BAL,15   HEXTWO                                                ELS12524
         DATA     MSG2A                                                 ELS12525
         LI,13    97                                                    ELS12526
         STB,13   MSG2,3            /                                   ELS12527
         LI,13    1                                                     ELS12528
         STW,12   14                                                    ELS12529
         BAL,15   HEXTWO            MONTH                               ELS12530
         DATA     MSG2                                                  ELS12531
         LI,4     8                                                     ELS12532
         STB,4    MSG2              BYTE CNT                            ELS12533
*                                                                       S1--0236
         LB,14    BUFFER,2          STARTUP TYPE                        ELS12534
         BAL,15   HEXEBC                                                ELS12535
         STB,15   MSG3,2                                                ELS12536
         SLS,15   -8                                                    ELS12537
         STB,15   MSG3,1                                                ELS12538
         STB,2    MSG3              BYTE CNT                            ELS12539
*                                                                       S1--0238
         LB,14    BUFFER,3          RECON. CNT                          ELS12540
         BAL,15   HEXEBC                                                ELS12541
         STB,15   MSG4,2                                                ELS12542
         SLS,15   -8                                                    ELS12543
         STB,15   MSG4,1                                                ELS12544
         STB,2    MSG4              BYTE CNT                            ELS12545
*                                   SCRETCH CODE                        S1--0240
         LW,14    BUFFER,3                                              ELS12546
         SLS,14   -24                                                   ELS12547
         BAL,15   HEXEBC                                                ELS12548
         STB,15   MSG5,2                                                ELS12549
         SLS,15   -8                                                    ELS12550
         STB,15   MSG5,1                                                ELS12551
         STB,2    MSG5              BYTE CNT                            ELS12552
*                                                                       ELS12553
*                                   SCRETCH SUB CODE                    S1--0242
         LW,14    BUFFER,3                                              ELS12554
         SLS,14   -16                                                   ELS12555
         AND,14   XXXXXXFF                                              ELS12556
         BAL,15   HEXEBC                                                ELS12557
         STB,15   MSG6,2                                                ELS12558
         SLS,15   -8                                                    ELS12559
         STB,15   MSG6,1                                                ELS12560
         STB,2    MSG6              BYTE CNT                            ELS12561
*                                 GET CPU ADR (ENTRY POINT 2)           S1--0244
         LW,14    BUFFER,3        GET CPU ADR INTO R14                  S1--0245
         BAL,15   GETCPUX                                               S1--0246
         DATA     MSG7                                                  S1--0247
*                                                                       ELS12562
         BAL,15   TIME                                                  ELS12563
         LB,13    BUFFER                                                ELS12564
         CW,13    SEQFLG                                                ELS12565
         BE       P18X                                                  ELS12566
         BAL,15   CT:PRINT                                              ELS12567
         DATA     TC18                                                  ELS12568
RTRN18   LB,13    BUFFER                                                ELS12569
         STW,13   SEQFLG                                                ELS12570
         B        CKRTRN                                                ELS12571
*                                                                       ELS12572
P18X     BAL,15   CT:PRINT                                              ELS12573
         DATA     TC18X                                                 ELS12574
         B        RTRN18                                                ELS12575
*                                                                       ELS12576
*                                                                       ELS12577
TC18     BS       4,21,1,73,1,21,1,65,0,183,X'FF',;                     S1--0249
                  20,23,95,3,75,2,76,2,77,2,78,X'FF',;                  S1--0251
                  24,10,74,6,32,2,79,3,42,2,59,5,59,X'FF',;             S1--0252
                  1,2,2,2,7,3,3,5,4,5,5,6,6,X'FF'                       S1--0253
*                                                                       ELS12582
TC18X    BS       1,1,2,2,2,7,3,3,5,4,5,5,6,6,X'FF'                     S1--0255
*                                                                       ELS12584
*                                                                       ELS12585
RT19     EQU      %                                                     ELS12586
         STW,1    F19               SET TYPE 19 FLAG                    ELS12587
         B        RT17                                                  ELS12588
*                                                                       ELS12589
F19      DATA     0                                                     ELS12590
*                                                                       ELS12591
*                                                                       ELS12592
*                                                                       ELS12593
RT22     EQU      %                                                     ELS12594
*                                                                       ELS12595
         LB,13    BUFFER                                                ELS12596
         CW,13    SEQFLG                                                ELS12597
         BE       NX22                                                  ELS12598
         BAL,15   L:SPACE3                                              S1--0257
NX22     EQU      %                                                     ELS12602
         BAL,15   TIME                                                  ELS12603
*                                   GET CORE SIZE                       S1--0259
         LB,11    BUFFER,2                                              ELS12604
         MW,11    N8                                                    ELS12605
         LW,14    11                                                    ELS12606
         LI,13    1                                                     ELS12607
         BAL,15   HEXFIVE                                               ELS12608
         DATA     MSG2                                                  ELS12609
         LI,10    5                                                     ELS12610
         STB,10   MSG2              BYTE CNT                            ELS12611
         LW,14    BUFFER,3          SITE I.D. W1                        ELS12612
         LW,5     14                                                    ELS12613
         BAL,15   STMSG4                                                ELS12614
         DATA     MSG3                                                  ELS12615
         LI,10    8                                                     ELS12616
         STB,10   MSG3              BYTE CNT                            ELS12617
         LI,4     4                                                     ELS12618
         LW,14    BUFFER,4          SITE I.D. W2                        ELS12619
         LW,5     14                                                    ELS12620
         BAL,15   STMSG4                                                ELS12621
         DATA     MSG3A                                                 ELS12622
         LW,14    BUFFER,2          SYS. VER. FLGS                      ELS12623
         SLS,14   -28                                                   ELS12624
         CI,14    7                 IS THIS CP-V                        ELS12625
         BE       CPV                                                   ELS12626
         CI,14    8                                                     ELS12627
         BE       CPR               CP-R                                ELS12628
         LW,14    TUNK         FETCH ASTERISK...                        ELS12629
         STW,14   MSG4                                                  ELS12630
         LW,14    TUNK+1                                                ELS12631
         B        L22M                                                  ELS12632
CPV      LW,14    TCPV                                                  ELS12633
         STW,14   MSG4                                                  ELS12634
         LW,14    TCPV,1                                                ELS12635
         B        L22M                                                  ELS12636
CPR      LW,14    TCPR                                                  ELS12637
         STW,14   MSG4                                                  ELS12638
         LW,14    TCPR,1                                                ELS12639
L22M     EQU      %                                                     ELS12640
         STW,14   MSG4A                                                 ELS12641
*                                   GET SYSTEM VERSION #                S1--0261
L22      LW,14    BUFFER,2                                              ELS12642
         SLS,14   -16                                                   ELS12643
         STW,14   10                SAVE R14                            ELS12644
         AND,14   XXXXXXXF                                              ELS12645
         LI,13    2                                                     ELS12646
         BAL,15   HEXTWO            VERSION NO.                         ELS12647
         DATA     MSG5                                                  ELS12648
         AND,10   XXXXXXFF                                              ELS12649
         SLS,10   -4                                                    ELS12650
         LI,13    X'C0'                                                 ELS12651
         AW,10    13                VERSION                             ELS12652
         STH,10   MSG5                                                  ELS12653
         STB,3    MSG5              BYTE CNT                            ELS12654
*                                                                       ELS12655
         LW,14    BUFFER,2          FETCH CPU TYPE...6/7, 5, 9, 560     S1--0263
         LI,13    X'1C0'            SET MASK...BITS 23,24,25 (D00)      S1--0264
         AND,14   13           MASK OUT                                 ELS12658
         CI,14    X'40'        S 6/7                                    ELS12659
         BE       FXS67                                                 ELS12660
         CI,14    X'80'        S 9                                      ELS12661
         BE       FXS9                                                  ELS12662
         CI,14    X'C0'        560                                      ELS12663
         BE       FX560                                                 ELS12664
         CI,14    0                                                     ELS12665
         BE       FXS5         S5                                       ELS12666
         LW,14    TXSSS        INSERT ASTERISK FOR UNKNOWNS...          ELS12667
         STW,14   MSG6                                                  ELS12668
*                                   FETCH OPTIONS....                   S1--0266
*                                                                       S1--0267
FXOPTION EQU      %                                                     S1--0268
         LW,14    BUFFER,2          OPTION WORD                         S1--0269
         LI,4     6                                                     S1--0270
FXLOOP   LW,13    YES                                                   S1--0271
         SCS,14   -1                SHIFT BIT 31 TO BIT0                S1--0272
         LW,14    14                LOAD FOR NEG TEST                   S1--0273
         BLZ      FXSET             BR IF OPTION IS SET                 S1--0274
*                                                                       S1--0275
*                                   OTHERWISE INDICATE 'NO'             S1--0276
         LW,13    NO                                                    S1--0277
*                                                                       S1--0278
*                                                                       S1--0279
FXSET    EQU      %                                                     S1--0280
         LW,10    OPTBL,4           OPTION TBL                          S1--0281
         STW,13   *10                     MESSAGES....                  S1--0282
         CI,4     4                                                     S1--0283
         BNE      %+2                                                   S1--0284
         SCS,14   -10               SHIFT TO MP,TP,ONLN BITS            S1--0285
         BDR,4    FXLOOP                                                S1--0286
*                                                                       S1--0287
*                                   TIME RESOLUTION                     S1--0288
FXRES    EQU      %                                                     ELS12687
         LI,14    1                                                     ELS12688
         LB,4     BUFFER,3                                              ELS12689
         BEZ      FXMSG13                                               S1--0290
         SLS,14   1                                                     ELS12691
         BDR,4    %-1                                                   ELS12692
FXMSG13  EQU      %                                                     S1--0292
         LI,13    1                                                     ELS12694
         BAL,15   HEXTWO                                                ELS12695
         DATA     MSG13                                                 S1--0294
         STB,2    MSG13                                                 S1--0295
*                                                                       ELS12698
         LB,13    BUFFER                                                ELS12699
         CW,13    SEQFLG                                                ELS12700
         BE       P22X                                                  ELS12701
         BAL,15   CT:PRINT                                              ELS12702
         DATA     TC22                                                  ELS12703
RTRN22   LB,13    BUFFER                                                ELS12704
         STW,13   SEQFLG                                                ELS12705
         B        CKRTRN                                                ELS12706
P22X     BAL,15   CT:PRINT                                              ELS12707
         DATA     TC22X                                                 ELS12708
         B        RTRN22                                                ELS12709
*                                                                       ELS12710
FXS67    LW,14    TS67                                                  ELS12711
         B        FXS5+1                                                ELS12712
*                                                                       ELS12713
FXS9     LW,14    TS9                                                   ELS12714
         B        FXS5+1                                                ELS12715
*                                                                       ELS12716
FX560    LW,14    T560                                                  ELS12717
         B        FXS5+1                                                ELS12718
*                                                                       ELS12719
FXS5     LW,14    TS5                                                   ELS12720
         STW,14   MSG6                                                  ELS12721
         B        FXOPTION                                              ELS12722
*                                                                       ELS12734
*                                                                       ELS12735
TC22     BS       4,21,1,87,1,21,1,66,0,66,X'FF',;                      S1--0298
                  20,13,88,29,104,0,104,0,94,0,56,3,24,X'FF',;          S1--0300
                  24,10,91,4,89,1,108,2,90,4,95,2,;                     ELS12738
                  58,1,92,1,109,2,177,1,178,1,179,3,93,X'FF',;          S1--0302
                  1,2,2,2,3,3,4,1,5,2,6,3,7,3,9,3,8,3,10,3,11,;         S1--0303
                  3,12,4,13,X'FF'                                       S1--0304
*                                                                       S1--0305
*                                                                       S1--0306
TC22X    BS       1,1,2,2,2,3,3,4,1,5,2,6,3,7,3,9,3,8,3,10,3,11,;       S1--0307
                  3,12,3,13,X'FF'                                       S1--0308
*                                                                       S1--0309
*                                                                       S1--0310
OPTBL    EQU      %-1                                                   S1--0311
         DATA     MSG10,MSG11,MSG12,MSG9,MSG8,MSG7                      S1--0312
*                                                                       S1--0313
*                                                                       S1--0314
*                                                                       ELS12744
*                                                                       ELS12745
TUNK     TEXTC    '****'                                                ELS12746
TCPV     TEXTC    'CP-V'                                                ELS12747
TCPR     TEXTC    'CP-R'                                                ELS12748
XXXXXXXF DATA     X'0000000F'                                           ELS12749
TSYMB    TEXTC    'SYMB'                                                ELS12750
TRT      TEXTC    'RT'                                                  ELS12751
TRB      TEXTC    'RB'                                                  ELS12752
TXSSS    TEXTC    '***'                                                 ELS12753
TS5      TEXTC    'S5 '                                                 ELS12754
TS67     TEXTC    'S67'                                                 ELS12755
TS9      TEXTC    'S9 '                                                 ELS12756
T560     TEXTC    '560'                                                 ELS12757
YES      TEXTC    'Y'                                                   ELS12758
X0102    DATA     X'01020000'                                           ELS12759
*                                                                       ELS12760
*                                                                       ELS12761
RT23     EQU      %                                                     ELS12762
         LB,13    BUFFER                                                ELS12763
         CW,13    SEQFLG                                                ELS12764
         BE       %+2               SAME TYPE,NO ROLL UP                S1--0316
         BAL,15   L:SPACE3                                              S1--0317
         LW,4     1                                                     ELS12769
         LW,14    BUFFER,4                                              ELS12770
         BAL,15   MS:HMSN                                               ELS12771
         LW,11    13                SAVE R13 TO R11 (MIN)               ELS12772
         XW,14    15                EXCHANGE R14 WITH R15               ELS12773
         LW,10    15                SAVE R15 TO R10 (SEC.)              ELS12774
         LI,13    3                                                     ELS12775
         BAL,15   HEXFIVE                                               ELS12776
         DATA     TITL23+11                                             ELS12777
         LB,13    X7AX                                                  ELS12778
         STB,13   TITL23+12         RESTORE ::                          ELS12779
         LI,13    2                                                     ELS12780
         LW,14    10                LOAD SEC.                           ELS12781
         BAL,15   HEXTWO                                                ELS12782
         DATA     TITL23+11                                             ELS12783
         LI,13    3                                                     ELS12784
         LW,14    11                LOAD MIN.                           ELS12785
         BAL,15   HEXTWO                                                ELS12786
         DATA     TITL23+10                                             ELS12787
         LI,13    0                                                     ELS12788
         LW,14    12                LOAD HOUR                           ELS12789
         BAL,15   HEXTWO                                                ELS12790
         DATA     TITL23+10                                             ELS12791
*                                                                       ELS12792
         LI,4     2                                                     ELS12793
         LW,14    BUFFER,4          YEAR                                ELS12794
         SLS,14   -16                                                   ELS12795
         LI,13    3                                                     ELS12796
         BAL,15   HEXTWO                                                ELS12797
         DATA     TITL23+7                                              ELS12798
         LW,14    BUFFER,4                                              ELS12799
         AND,14   XXXXFFFF          AND 0-15 BIT OT                     ELS12800
         BAL,15   JD:MD                                                 ELS12801
         STW,15   12                SAVE R15                            ELS12802
         LI,13    0                                                     ELS12803
         BAL,15   HEXTWO            CONV. DAY TO DEC.                   ELS12804
         DATA     TITL23+7                                              ELS12805
         LI,13    1                                                     ELS12806
         LW,14    12                LOAD MONTH                          ELS12807
         BAL,15   HEXTWO                                                ELS12808
         DATA     TITL23+6                                              ELS12809
*                                                                       ELS12810
         LI,14    52                                                    ELS12811
         BAL,15   L:PRINT           PRINT TIME STAMP                    ELS12812
         DATA     TITL23                                                ELS12813
         LB,13    BUFFER                                                ELS12814
         STW,13   SEQFLG            SET SEQFLG CONDITION                ELS12815
         B        CKRTRN                                                ELS12816
*                                                                       ELS12817
*                                                                       ELS12818
RT27     EQU      %                                                     ELS12819
         LB,13    BUFFER                                                ELS12820
         CW,13    SEQFLG                                                ELS12821
         BE       NX27                                                  ELS12822
         BAL,15   L:SPACE3                                              S1--0319
NX27     EQU      %                                                     ELS12826
         BAL,15   TIME                                                  ELS12827
         LI,4     2                                                     ELS12828
         LI,5     0                                                     ELS12829
L27      CI,4     17                                                    ELS12830
         BE       EX1               CK CP-R                             ELS12831
X27      CI,4     21                                                    ELS12832
         BE       EX2               CP-V                                ELS12833
         LW,14    BUFFER,4                                              ELS12834
         STW,14   MSG2,5                                                ELS12835
         AI,4     1                                                     ELS12836
         AI,5     1                                                     ELS12837
         B        L27                                                   ELS12838
EX1      EQU      %                                                     ELS12839
         BIFSYS   *(CPV,EX2)        B IF NOT CPV                        ELS12840
         B        X27               CP-V                                ELS12841
EX2      EQU      %                                                     ELS12842
         BAL,15   CT:PRINT                                              ELS12843
         DATA     TC27                                                  ELS12844
RTRN27   LB,13    BUFFER                                                ELS12845
         STW,13   SEQFLG                                                ELS12846
         B        CKRTRN                                                ELS12847
*                                                                       ELS12848
*                                                                       ELS12849
*                                                                       ELS12850
TC27     BS       2,21,1,156,1,21,4,24,1,153,1,1,X'FF',;                ELS12851
                  2,0,X'FF'                                             ELS12852
*                                                                       ELS12853
*                                                                       ELS12854
*                                                                       ELS12855
RT30     EQU      %                                                     ELS12856
         LB,13    BUFFER                                                ELS12857
         CW,13    SEQFLG                                                ELS12858
         BE       NX30                                                  ELS12859
         BAL,15   L:SPACE3                                              S1--0321
NX30     EQU      %                                                     ELS12863
         BAL,15   TIME                                                  ELS12864
*                                                                       ELS12865
         LI,14    81                                                    ELS12866
*                                   FOR TYPE 30                         S1--0323
         STB,14   TC30,3            SET MSG81                           ELS12867
         CW,1     F31               IS THIS TYPE 31                     ELS12868
         BE       P31                                                   ELS12869
P31X     EQU      %                                                     ELS12870
         BAL,15   GETCPU            PROCESS CPU ADDRESS                 S1--0325
         DATA     MSG2              STORE IN MSG2                       S1--0326
*                                                                       S1--0327
         LB,13    BUFFER                                                ELS12871
         CW,13    SEQFLG                                                ELS12872
         BE       P30X                                                  ELS12873
         BAL,15   CT:PRINT                                              ELS12874
         DATA     TC30                                                  ELS12875
RTRN30   LB,13    BUFFER                                                ELS12876
         STW,13   SEQFLG                                                ELS12877
         LI,14    81                                                    ELS12878
         STB,14   TC30,3            RESTORE MSG81                       ELS12879
         B        CKRTRN                                                ELS12880
*                                                                       ELS12881
P30X     BAL,15   CT:PRINT                                              ELS12882
         DATA     TC30X                                                 ELS12883
         B        RTRN30                                                ELS12884
*                                                                       ELS12885
P31      EQU      %                                                     ELS12886
         LI,14    69                                                    ELS12887
         STB,14   TC30,3            FX MSG69                            ELS12888
         STW,0    F31               RESET F31 FLG                       ELS12889
         B        P31X                                                  ELS12890
*                                                                       ELS12891
*                                                                       ELS12892
TC30     BS       4,21,1,81,1,21,1,67,0,191,X'FF',;                     S1--0329
                  20,13,95,X'FF',;                                      S1--0331
                  24,10,32,X'FF',;                                      S1--0332
                  1,2,2,X'FF'                                           S1--0333
*                                                                       S1--0334
TC30X    BS       1,1,2,2,X'FF'                                         S1--0335
*                                                                       ELS12898
*                                                                       ELS12899
RT31     EQU      %                                                     ELS12900
         STW,1    F31               SET F31 FLG                         ELS12901
         B        RT30                                                  ELS12902
*                                                                       ELS12903
F31      DATA     0                                                     ELS12904
*                                                                       ELS12905
*                                                                       ELS12906
RT32     EQU      %                                                     ELS12907
         LW,14    CLISF                                                 ELS12908
         BNEZ     UNX               CLIS                                ELS12909
         LW,13    UNASSFLG          CK UNASSO. SECONDARIES              ELS12910
         BEZ      UNX                                                   ELS12911
         BAL,15   CKUNASS           PRINT UNASS. SEC.                   ELS12912
         B        NX3201       SKIP ONCE.                               ELS12913
*                                                                       ELS12914
*                                                                       ELS12915
*                                                                       ELS12916
UNX      EQU      %                                                     ELS12917
         LB,13    BUFFER                                                ELS12918
         CW,13    SEQFLG                                                ELS12919
         BE       NX32                                                  ELS12920
         MTW,0    F:FLAG                                                ELS12921
         BNEZ     NX3201       B: IF SECONDARY FOLLOWS PRIMARY.         ELS12922
         BAL,15   L:SPACE2                                              S1--0337
NX3201   EQU      %                                                     ELS12925
         BAL,15   L:SPACE                                               ELS12926
NX32     EQU      %                                                     ELS12927
         BAL,15   TIME                                                  ELS12928
         LI,5     8                                                     ELS12929
         LB,14    BUFFER,5          UNIT ADRS                           ELS12930
         AND,14   M6                                                    ELS12931
         BAL,15   HEXEBC                                                ELS12932
         SLS,15   8                                                     ELS12933
         STW,15   MSG2                                                  ELS12934
         STB,2    MSG2                                                  ELS12935
         LI,5     9                                                     ELS12936
         LB,14    BUFFER,5          UNIT TYPE                           ELS12937
         AND,14   M4                                                    ELS12938
         BAL,15   HEXEBC                                                ELS12939
         SLS,15   16                                                    ELS12940
         STW,15   MSG3                                                  ELS12941
         STB,1    MSG3                                                  ELS12942
         LW,14    BUFFER,2                                              ELS12943
         SLS,14   -20                                                   ELS12944
         AND,14   M4                                                    ELS12945
         BAL,15   HEXEBC                                                ELS12946
         STB,15   MSG4,1                                                ELS12947
         STB,1    MSG4                                                  ELS12948
         LW,14    BUFFER,2                                              ELS12949
         AND,14   XXXXFFFF                                              ELS12950
         BAL,15   HEXEBC                                                ELS12951
         LW,5     15                                                    ELS12952
         BAL,15   STMSG4                                                ELS12953
         DATA     MSG5                                                  ELS12954
         LI,4     4                                                     ELS12955
         STB,4    MSG5                                                  ELS12956
*                                                                       ELS12957
         LB,13    BUFFER                                                ELS12958
         CW,13    SEQFLG                                                ELS12959
         BE       P32X                                                  ELS12960
         BAL,15   CT:PRINT                                              ELS12961
         DATA     TC32                                                  ELS12962
RTRN32   LB,13    BUFFER                                                ELS12963
         STW,13   SEQFLG                                                ELS12964
         B        CKRTRN                                                ELS12965
*                                                                       ELS12966
P32X     BAL,15   CT:PRINT                                              ELS12967
         DATA     TC32X                                                 ELS12968
         B        RTRN32                                                ELS12969
*                                                                       ELS12970
TC32     BS       4,47,1,116,1,47,1,67,0,66,X'FF',;                     S1--0339
                  20,13,103,0,113,0,103,2,103,0,118,0,102,X'FF',;       ELS12972
                  24,10,32,1,117,2,33,1,34,X'FF',;                      ELS12973
                  1,2,2,3,3,4,5,1,4,X'FF'                               ELS12974
*                                                                       ELS12975
TC32X    BS       1,1,2,2,3,3,4,5,1,4,X'FF'                             ELS12976
*                                                                       ELS12977
RT41     EQU      %                                                     ELS12978
         LB,13    BUFFER                                                ELS12979
         CW,13    SEQFLG                                                ELS12980
         BE       NX41                                                  ELS12981
         BAL,15   L:SPACE3                                              S1--0341
NX41     EQU      %                                                     ELS12985
         STB,1    TC41X,1           SET MSG1 FOR TC41X                  ELS12986
         STB,2    TC41X,2                                               ELS12987
         BAL,15   TIME                                                  ELS12988
         STW,2    SAVE5                                                 ELS12989
         LB,13    BUFFER,1          ERR. BYTE CNT                       ELS12990
         STW,13   TYCNT                                                 ELS12991
         LB,13    BUFFER                                                ELS12992
         CW,13    SEQFLG                                                ELS12993
         BE       NX41X                                                 ELS12994
         BAL,15   CT:PRINT                                              ELS12995
         DATA     TC41              PRINT FORMAT                        ELS12996
NX41X    EQU      %                                                     ELS12997
         LB,13    BUFFER                                                ELS12998
         STW,13   SEQFLG                                                ELS12999
*                                                                       ELS13000
*                                                                       ELS13001
         LI,6     2                                                     ELS13002
LTYPE    EQU      %                                                     ELS13003
         CW,6     TYCNT                                                 ELS13004
         BE       CKRTRN                                                ELS13005
*                                                                       ELS13006
         LW,5     SAVE5        FETCH COUNT.                             ELS13007
         LI,4     0            RESET 4                                  ELS13008
L41      LW,10    TYTBL,4      FETCH ADDRESS.                           ELS13009
         STW,10   ADTL         SECURE IT                                ELS13010
         LW,11    BUFFER,5     FETCH THE WORD                           ELS13011
         LB,8     11           FETCH TYPE                               ELS13012
         CB,8     TYPETBL,4    COMPARE                                  ELS13013
         BE       *ADTL        BRANCH IF EQUAL                          ELS13014
         AI,4     1            BUMP ONE.                                ELS13015
         CI,4     7            IS IT 7                                  ELS13016
         BL       L41          BRANCH IF LESS                           ELS13017
         LW,14    TY8C         FETCH THE UNKNOWN TYPE MSG.              ELS13018
         STW,14   MSG2                                                  ELS13019
         LW,14    TY8C+1                                                ELS13020
         STW,14   MSG2,1                                                ELS13021
*                                                                       ELS13022
FXMSG3   EQU      %                                                     ELS13023
         LW,5     SAVE5                                                 ELS13024
         LW,14    BUFFER,5                                              ELS13025
         SLS,14   -19               CL                                  ELS13026
         AND,14   X7                                                    ELS13027
         BAL,15   HEXEBC                                                ELS13028
         STB,15   MSG3,1                                                ELS13029
         STB,1    MSG3              BYTE CNT                            ELS13030
         LW,5     SAVE5                                                 ELS13031
         LW,14    BUFFER,5                                              ELS13032
         SLS,14   -16               UN                                  ELS13033
         AND,14   X7                                                    ELS13034
         BAL,15   HEXEBC                                                ELS13035
         STB,15   MSG4,1                                                ELS13036
         STB,1    MSG4              BYTE CNT                            ELS13037
         LW,5     SAVE5                                                 ELS13038
         LW,14    BUFFER,5                                              ELS13039
         AND,14   XXXXFFFF                                              ELS13040
         BAL,15   HEXEBC                                                ELS13041
         LI,10    4                                                     ELS13042
         STB,10   MSG5                                                  ELS13043
         LW,5     15                                                    ELS13044
         BAL,15   STMSG4                                                ELS13045
         DATA     MSG5                                                  ELS13046
*                                                                       ELS13047
         BAL,15   CT:PRINT                                              ELS13048
         DATA     TC41X                                                 ELS13049
         AI,6     1                                                     ELS13050
         MTW,1    SAVE5             UPDATE SAVE5 BY 1                   ELS13051
         LI,13    20                                                    ELS13052
         STB,13   TC41X,1           MASK MSG1                           ELS13053
         LI,13    13                                                    ELS13054
         STB,13   TC41X,2                                               ELS13055
         B        LTYPE             LOOP FOR ANOTHER TYPE               ELS13056
TY1      EQU      %                                                     ELS13057
         LW,14    TY1C                                                  ELS13058
         STW,14   MSG2                                                  ELS13059
         LW,14    TY1C+1                                                ELS13060
         STW,14   MSG2A                                                 ELS13061
         B        FXMSG3                                                ELS13062
*                                                                       ELS13063
TY2      LW,14    TY2C                                                  ELS13064
         STW,14   MSG2                                                  ELS13065
         LW,14    TY2C+1                                                ELS13066
         STW,14   MSG2A                                                 ELS13067
         B        FXMSG3                                                ELS13068
*                                                                       ELS13069
TY3      LW,14    TY3C                                                  ELS13070
         STW,14   MSG2                                                  ELS13071
         LW,14    TY3C+1                                                ELS13072
         STW,14   MSG2A                                                 ELS13073
         B        FXMSG3                                                ELS13074
*                                                                       ELS13075
TY4      LW,14    TY4C                                                  ELS13076
         STW,14   MSG2                                                  ELS13077
         LW,14    TY4C+1                                                ELS13078
         STW,14   MSG2A                                                 ELS13079
         B        FXMSG3                                                ELS13080
*                                                                       ELS13081
TY5      LW,14    TY5C                                                  ELS13082
         STW,14   MSG2                                                  ELS13083
         LW,14    TY5C+1                                                ELS13084
         STW,14   MSG2A                                                 ELS13085
         B        FXMSG3                                                ELS13086
*                                                                       ELS13087
TY6      LW,14    TY6C                                                  ELS13088
         STW,14   MSG2                                                  ELS13089
         LW,14    TY6C+1                                                ELS13090
         STW,14   MSG2A                                                 ELS13091
         B        FXMSG3                                                ELS13092
TY7      LW,14    TY7C                                                  ELS13093
         STW,14   MSG2                                                  ELS13094
         LW,14    TY7C+1                                                ELS13095
         STW,14   MSG2A                                                 ELS13096
         B        FXMSG3                                                ELS13097
X7       DATA     7                                                     ELS13098
*                                                                       ELS13099
*                                                                       ELS13100
TYPETBL  BS       1,2,3,4,5,6,7                                         ELS13101
TYTBL    DATA     TY1,TY2,TY3,TY4,TY5,TY6,TY7                           ELS13102
*                                                                       ELS13103
TY1C     TEXTC    'CPU   '                                              ELS13104
TY2C     TEXTC    'MI    '                                              ELS13105
TY3C     TEXTC    'PI    '                                              ELS13106
TY4C     TEXTC    'MIOP  '                                              ELS13107
TY5C     TEXTC    'HSRIOP'                                              ELS13108
TY6C     TEXTC    'CT    '                                              ELS13109
TY7C     TEXTC    'SU    '                                              ELS13110
TY8C     TEXTC    '******'                                              ELS13111
SAVE5    DATA     0                                                     ELS13112
*                                                                       ELS13113
TYCNT    DATA     0                                                     ELS13114
*                                                                       ELS13115
TC41     BS       3,21,1,132,1,86,1,21,1,68,0,65,X'FF',;                S1--0343
                  20,13,113,10,135,X'FF',;                              ELS13117
                  24,10,117,2,133,2,134,2,136,X'FF'                     ELS13118
TC41X    BS       1,1,1,2,1,3,3,4,3,5,X'FF'                             ELS13119
*                                                                       ELS13120
*                                                                       ELS13121
RT42     EQU      %                                                     ELS13122
         LW,14    CLISF                                                 ELS13123
         BNEZ     UN42                                                  ELS13124
         LW,13    UNASSFLG                                              ELS13125
         BEZ      UN42                                                  ELS13126
         BAL,15   CKUNASS           PRINT UNASSO. SEC.                  ELS13127
         B        NX4201                                                ELS13128
*                                                                       ELS13129
*                                                                       ELS13130
*                                                                       ELS13131
UN42     EQU      %                                                     ELS13132
         LB,13    BUFFER                                                ELS13133
         CW,13    SEQFLG                                                ELS13134
         BE       NX42                                                  ELS13135
         MTW,0    F:FLAG       B: IF SECONDARY FOLOW PRIMARY            ELS13136
         BNEZ     NX4201                                                ELS13137
         BAL,15   L:SPACE2                                              S1--0345
NX4201   EQU      %                                                     ELS13140
         BAL,15   L:SPACE                                               ELS13141
NX42     EQU      %                                                     ELS13142
         BAL,15   TIME                                                  ELS13143
*                                                                       S1--0347
         BAL,15   GETCPU                                                S1--0348
         DATA     MSG2                                                  S1--0349
         LW,14    BUFFER,2          MSW0                                ELS13144
         BAL,15   HEXEBC                                                ELS13145
         LW,4     14                                                    ELS13146
         LW,5     15                                                    ELS13147
         BAL,15   STMSG8                                                ELS13148
         DATA     MSG5                                                  S1--0351
         LI,10    8                                                     ELS13150
         STB,10   MSG5              BYTE COUNT                          S1--0353
         LW,14    BUFFER,3          MSW1                                ELS13152
         BAL,15   HEXEBC                                                ELS13153
         LW,4     14                                                    ELS13154
         LW,5     15                                                    ELS13155
         BAL,15   STMSG8                                                ELS13156
         DATA     MSG3                                                  ELS13157
         LI,10    8                                                     ELS13158
         STB,10   MSG3              BYTE CNT                            ELS13159
         LW,14    BUFFER,3          REAL ADR                            ELS13160
         BAL,15   HEXEBC                                                ELS13161
         BAL,4    STMSG6                                                ELS13162
         DATA     MSG4                                                  ELS13163
*                                                                       ELS13164
         LB,13    BUFFER                                                ELS13165
         CW,13    SEQFLG                                                ELS13166
         BE       P42X                                                  ELS13167
         BAL,15   CT:PRINT                                              ELS13168
         DATA     TC42                                                  ELS13169
RTRN42   EQU      %                                                     ELS13170
         LB,13    BUFFER                                                ELS13171
         STW,13   SEQFLG                                                ELS13172
         B        CKRTRN                                                ELS13173
*                                                                       ELS13174
P42X     BAL,15   CT:PRINT                                              ELS13175
         DATA     TC42X                                                 ELS13176
         B        RTRN42                                                ELS13177
*                                                                       ELS13178
*                                                                       ELS13179
TC42     BS       4,47,1,138,1,137,1,47,1,68,0,66,X'FF',;               S1--0355
                  20,13,95,3,103,0,138,1,50,0,103,3,62,X'FF',;          S1--0357
                  24,10,32,6,65,7,66,7,32,X'FF',;                       S1--0358
                  1,2,2,2,5,1,3,2,4,X'FF'                               S1--0359
*                                                                       S1--0360
TC42X    BS       1,1,2,2,5,2,1,3,2,4,X'FF'                             S1--0361
*                                                                       ELS13186
*                                                                       ELS13187
*                                                                       ELS13188
RT43     EQU      %                                                     ELS13189
         LW,14    CLISF                                                 ELS13190
         BNEZ     UN43                                                  ELS13191
         LW,13    UNASSFLG                                              ELS13192
         BEZ      UN43                                                  ELS13193
         BAL,15   CKUNASS           PRINT UNASSO. SEC.                  ELS13194
         B        NX4301                                                ELS13195
*                                                                       ELS13196
*                                                                       ELS13197
*                                                                       ELS13198
UN43     EQU      %                                                     ELS13199
         LB,13    BUFFER                                                ELS13200
         CW,13    SEQFLG                                                ELS13201
         BE       NX43                                                  ELS13202
         MTW,0    F:FLAG       B: IF SECONDARY FOLLOW PRIMARY..         ELS13203
         BNEZ     NX4301                                                ELS13204
         BAL,15   L:SPACE2                                              S1--0363
NX4301   EQU      %                                                     ELS13207
         BAL,15   L:SPACE                                               ELS13208
NX43     EQU      %                                                     ELS13209
         BAL,15   TIME                                                  ELS13210
*                                                                       S1--0365
         BAL,15   GETCPU                                                S1--0366
         DATA     MSG2                                                  S1--0367
*                                 GET MEMORY STATUS WORD 0              S1--0368
         LW,14    BUFFER+3
         BAL,15   HEXEBC                                                ELS13212
         LI,10    8                                                     ELS13213
         STB,10   MSG6                                                  S1--0372
         LW,4     14                                                    ELS13215
         LW,5     15                                                    ELS13216
         BAL,15   STMSG8                                                ELS13217
         DATA     MSG6                                                  S1--0374
*                                 GET MEMORY STATUS WORD 1              S1--0376
         LW,14    BUFFER+4
         BAL,15   HEXEBC                                                ELS13221
         LI,10    8                                                     ELS13222
         STB,10   MSG3                                                  ELS13223
         LW,4     14                                                    ELS13224
         LW,5     15                                                    ELS13225
         BAL,15   STMSG8                                                ELS13226
         DATA     MSG3                                                  ELS13227
*                                 GET MEMORY STSTUS WORD 2              S1--0379
         LW,14    BUFFER+2
         BAL,15   HEXEBC                                                ELS13230
         LI,10    8                                                     ELS13231
         STB,10   MSG4                                                  ELS13232
         LW,4     14                                                    ELS13233
         LW,5     15                                                    ELS13234
         BAL,15   STMSG8                                                ELS13235
         DATA     MSG4                                                  ELS13236
*                                 GET REAL ADRS FROM MEMORY WORD 2      S1--0382
         LW,14    BUFFER+5
         BAL,15   HEXEBC                                                ELS13238
         BAL,4    STMSG6                                                ELS13239
         DATA     MSG5                                                  ELS13240
*                                                                       ELS13241
         LB,13    BUFFER                                                ELS13242
         CW,13    SEQFLG                                                ELS13243
         BE       P43X                                                  ELS13244
         BAL,15   CT:PRINT                                              ELS13245
         DATA     TC43                                                  ELS13246
RTRN43   LB,13    BUFFER                                                ELS13247
         STW,13   SEQFLG                                                ELS13248
         B        CKRTRN                                                ELS13249
*                                                                       ELS13250
P43X     BAL,15   CT:PRINT                                              ELS13251
         DATA     TC43X                                                 ELS13252
         B        RTRN43                                                ELS13253
*                                                                       ELS13254
*                                                                       ELS13255
TC43     BS       4,47,1,138,1,137,1,47,1,68,0,67,X'FF',;               S1--0386
                  20,13,95,3,104,0,138,1,141,0,142,3,62,X'FF',;         S1--0388
                  24,10,32,6,65,8,66,7,67,7,32,X'FF',;                  S1--0389
                  1,2,2,2,6,1,3,1,4,2,5,X'FF'                           S1--0390
*                                                                       S1--0391
TC43X    BS       1,1,2,2,2,6,1,3,1,4,2,5,X'FF'                         S1--0392
*                                                                       ELS13262
RT44     EQU      %                                                     ELS13263
         LI,5     5                                                     ELS13264
         LI,4     0                                                     ELS13265
         STW,4    PISSFL       RESET THE END FLAG......                 ELS13266
         STW,4    PASSFL       RESET THE ONCE FLAG.....                 ELS13267
         LI,14    8                                                     ELS13268
         STB,14   MSG5,4                                                ELS13269
         AI,4     12                                                    ELS13270
         BDR,5    %-2                                                   ELS13271
         LW,14    CLISF                                                 ELS13272
         BNEZ     UN44                                                  ELS13273
         LW,13    UNASSFLG                                              ELS13274
         BEZ      UN44                                                  ELS13275
         BAL,15   CKUNASS           PRINT UNASS. SEC.                   ELS13276
         B        NX4401                                                ELS13277
*                                                                       ELS13278
*                                                                       ELS13279
*                                                                       ELS13280
UN44     EQU      %                                                     ELS13281
         LB,13    BUFFER                                                ELS13282
         CW,13    SEQFLG                                                ELS13283
         BE       NX44                                                  ELS13284
         MTW,0    F:FLAG       B: IF SECONDARY FOLLOW PRIMARY           ELS13285
         BNEZ     NX4401                                                ELS13286
         BAL,15   L:SPACE2                                              S1--0394
NX4401   EQU      %                                                     ELS13289
         BAL,15   L:SPACE                                               ELS13290
         LI,15    TC44         FETCH ADDRESS.                           ELS13291
         STW,15   ELMER6                                                ELS13292
         LI,15    X'FF'                                                 ELS13293
         STB,15   TC44B-1      RESTORE                                  ELS13294
NX44     EQU      %                                                     ELS13295
         BAL,15   TIME                                                  ELS13296
         LW,14    BUFFER                                                ELS13297
         AND,14   XXXXFFFF                                              ELS13298
         LI,13    1                                                     ELS13299
         BAL,15   HEXTWO                                                ELS13300
         DATA     MSG2                                                  ELS13301
         STB,2    MSG2                                                  ELS13302
*                                                                       ELS13303
         LI,6     2            SET THE COUNTER OF TWO.....              ELS13304
JACK0    LI,4     0            RESET MSG'S COUNTER.....                 ELS13305
         LI,14    MSG5         SET THE ADDRESS.                         ELS13306
         STH,14   FX1,1        IN FX1                                   ELS13307
         STH,14   FX2,1        IN FX2                                   ELS13308
*                                                                       ELS13309
JACK1    CB,6     BUFFER,1     ALL LOCATIONS IN.......                  ELS13310
         BGE      ELMER1       B: IF YES........                        ELS13311
         CI,4     5            ALL 5 LOCATIONS MSG'S FILLED...          ELS13312
         BGE      ELMER2       B: IF YES........                        ELS13313
         LW,14    BUFFER,6     FETCH THE CONTENTS.                      ELS13314
         BAL,15   HEXEBC       CONVERT TO EBCDIC.                       ELS13315
         LI,5     8            SET COUNTER 5 TO 8 BYTES.....            ELS13316
FX1      STB,5    MSG5         INTO THE BYTE LOCATION FOR TEXTC SIMULATIELS13317
FX2      STB,15   MSG5,5       START TO FILL IN.....                    ELS13318
         SLD,14   -8           SHIFT EIGHT TO THE RIGHT                 ELS13319
         BDR,5    FX2          BRANCH DECREMENTING....                  ELS13320
         AI,4     1            INCREMENT BOTH REGISTERS.                ELS13321
         AI,6     1                                                     ELS13322
         MTW,3    FX1          INCREMENT BY THREE TO NEXT ADDRESS.      ELS13323
         MTW,3    FX2                                                   ELS13324
         B        JACK1        LOOP UNTIL ALL LOCATIONS ACCOUNTED FOR.  ELS13325
*                                                                       ELS13326
ELMER1   CI,4     1            FIND OUTIF ONE OR LESS.                  ELS13327
         BLE      %+3                                                   ELS13328
         SLS,4    1            MULTIPLY BY TWO...                       ELS13329
         LB,15    TC44B,4      REPLACE WITH THE X'FF'                   ELS13330
         STB,15   MSG10        SAVE......                               ELS13331
         LB,15    TC44XB,4                                              ELS13332
         STB,15   MSG10,1                                               ELS13333
         LI,15    X'FF'                                                 ELS13334
         STB,15   TC44B,4      REPLACE.............                     ELS13335
         STB,15   TC44XB,4                                              ELS13336
         MTW,1    PISSFL       SET THE TERMINATOR FLAG.....             ELS13337
*                                                                       ELS13338
ELMER2   LW,15    PASSFL       BEEN THRU  HERE BEFORE.....              ELS13339
         BNEZ     ELMER3       B: IF YES.........                       ELS13340
         BAL,15   CT:PRINT     PRINT.......                             ELS13341
ELMER6   DATA     TC44                                                  ELS13342
         B        ELMER4                                                ELS13343
ELMER3   BAL,15   CT:PRINT                                              ELS13344
         DATA     TC44X                                                 ELS13345
ELMER4   MTW,0    PISSFL       TERMINATION TIME......                   ELS13346
         BNEZ     ELMER5       B: IF YES...........                     ELS13347
         MTW,1    PASSFL       INCREMENT THE PASS FLAG....              ELS13348
         B        JACK0        BRANCH TO JACK 0...........              ELS13349
*                                                                       ELS13350
ELMER5   LB,15    MSG10        RESTORE THE SAVED BYTE....               ELS13351
         STB,15   TC44B,4      RESTORE......                            ELS13352
         LB,15    MSG10,1                                               ELS13353
         STB,15   TC44XB,4                                              ELS13354
         LB,15    BUFFER                                                ELS13355
         STW,15   SEQFLG       CHANGE SEQFLG...                         ELS13356
         LI,15    TC44B-1                                               ELS13357
         STW,15   ELMER6                                                ELS13358
         STB,1    TC44B-1                                               ELS13359
         B        CKRTRN       RETURN.......                            ELS13360
*                                                                       ELS13361
*                                                                       ELS13362
TC44     BS       4,47,1,138,1,137,1,47,1,68,0,68,X'FF',;               S1--0396
                  20,13,139,1,140,X'FF',;                               ELS13364
                  24,10,157                                             ELS13365
         BS       X'FF',1,3,2                                           ELS13366
TC44B    BS       2,5,1,6,1,7,1,8,1,9,X'FF'                             ELS13367
TC44X    BS       1,20,16,20                                            ELS13368
TC44XB   BS       1,5,1,6,1,7,1,8,1,9,X'FF'                             ELS13369
         PAGE                                                           ELS13370
*                                                                       ELS13371
*                                                                       ELS13372
*                                                                       ELS13373
*  THE FOLLOWING ROUTINES ARE FOR CP-V ONLY.                            ELS13374
*                                                                       ELS13375
*                                                                       ELS13376
*                                                                       ELS13377
RT10     EQU      %                                                     ELS13378
         LB,13    BUFFER                                                ELS13379
         CW,13    SEQFLG                                                ELS13380
         BE       NX10                                                  ELS13381
         BAL,15   L:SPACE3                                              S1--0398
NX10     EQU      %                                                     ELS13385
         LI,15    8                                                     ELS13386
         STB,15   MSG3                                                  ELS13387
         BAL,15   TIME                                                  ELS13388
         LB,14    BUFFER,1     COUNT.                                   ELS13389
         CI,14    2                                                     ELS13390
         BG       BADINDX                                               ELS13391
P10      EQU      %                                                     ELS13392
         LB,14    BUFFER,3                                              ELS13393
         BAL,15   HEXEBC                                                ELS13394
      SLS,15     8                                                      ELS13395
         STB,2    15                BYTE CNT                            ELS13396
         STW,15   MSG2                                                  ELS13397
         LB,13    BUFFER                                                ELS13398
         CW,13    SEQFLG                                                ELS13399
         BE       P10X                                                  ELS13400
         BAL,15   CT:PRINT                                              ELS13401
         DATA     TC10                                                  ELS13402
RTRN10A  EQU      %                                                     ELS13403
RTRN10   LB,13    BUFFER                                                ELS13404
         STW,13   SEQFLG                                                ELS13405
         B        CKRTRN                                                ELS13406
*                                                                       ELS13407
P10X     BAL,15   CT:PRINT                                              ELS13408
         DATA     TC10X                                                 ELS13409
         B        RTRN10                                                ELS13410
BADINDX  LW,14    BUFFER,2          INDX BAD ENTRY                      ELS13411
         BAL,15   HEXEBC                                                ELS13412
         LI,4     8                                                     ELS13413
         STB,4    MSG3                                                  ELS13414
         STB,15   MSG3,4                                                ELS13415
         SLD,14   -8                                                    ELS13416
         BDR,4    %-2                                                   ELS13417
         B        P10                                                   ELS13418
*                                                                       ELS13419
*                                                                       ELS13420
TC10     BS       4,21,1,158,1,120,1,21,1,65,0,191,X'FF',;              S1--0400
                  20,13,78,2,83,X'FF',;                                 ELS13422
                  24,10,79,2,98,1,112,X'FF',;                           ELS13423
                  1,2,2,4,3,X'FF'                                       ELS13424
*                                                                       ELS13425
TC10X    BS       1,1,2,2,4,3,X'FF'                                     ELS13426
*                                                                       ELS13427
*                                                                       ELS13428
RT16     EQU      %                                                     ELS13429
         LW,14    CLISF                                                 ELS13430
         BNEZ     UN16              NOT SLIS                            ELS13431
         LW,13    UNASSFLG                                              ELS13432
         BEZ      %+3                                                   ELS13433
         BAL,15   CKUNASS           PRINT UNASSO. SEC.                  ELS13434
         BAL,15   L:SPACE      SKIP.....                                ELS13435
         LI,5     1            SET 5 TO 1                               ELS13436
         LW,13    FSTFLG       CHCK MODEL IO HEADER PRINTOUT...         ELS13437
         BNEZ     UN16         B: IF NOT WANTED.....                    ELS13438
         STW,1    FSTFLG       SET FLT FLG.......                       ELS13439
         MTW,0    NEWFL        CHECK NEW FLAG........                   ELS13440
         BNEZ     NX16         BRANCH IF NOT ZERO                       ELS13441
         BAL,15   L:SPACE3                                              S1--0402
         BAL,15   FXMDIO       PRNT MODEL/ AND IO ADDRSS.               ELS13445
         STW,0    SEQFLG       RESET THE SEGFLG.......                  ELS13446
         B        NX16         B:  CONTINUE... (NO SKIP)                ELS13447
*                                                                       ELS13448
*                                                                       ELS13449
*                                                                       ELS13450
UN16     EQU      %                                                     ELS13451
         LB,13    BUFFER       FETCH TYPE CODE.                         ELS13452
         CW,13    SEQFLG       BEEN THRU BEFORE ???                     ELS13453
         BE       NX16         BRANCH IF YES.                           ELS13454
         MTW,0    F:FLAG                                                ELS13455
         BNEZ     NX1601       B: IF SEONDARY FOLLOW PRIMARY...         ELS13456
         LI,5     3            LOOP TO SPACE.                           ELS13457
NX1601   BAL,15   L:SPACE      SKIP.......                              ELS13458
         BDR,5    %-1                                                   ELS13459
NX16     BAL,15   TIME         SET UP THE TIME.                         ELS13460
         STW,0    PASSFL       RESET PASS FLAG.                         ELS13461
         STW,0    PISSFL       RESET TERMINATION FLAG.                  ELS13462
         LW,14    BUFFER       FETCH IO ADDRESS.                        ELS13463
         AND,14   XXXXFFFF     AND IT.                                  ELS13464
         BAL,15   HEXEBC       CONVERT                                  ELS13465
         LW,5     15           TRANSFER INTO THE REGISTER 5             ELS13466
         BAL,15   STMSG4       SET UP IO ADDRESS.                       ELS13467
         DATA     MSG2           INTO MSG2                              ELS13468
         LI,4     4            SET UP THE BYTE COUNT.                   ELS13469
         STB,4    MSG2                                                  ELS13470
         LB,4     BUFFER,1     FETCH THE WORD COUNT FROM RECORDS        ELS13471
         STW,4    SAVE16       SAVE INTO THE WORD COUNT.                ELS13472
         LI,6     2            SET UP INDEX 6                           ELS13473
RT16:4   LI,4     0            RESET INDEX 4                            ELS13474
         LI,14    MSG3         SET UP MSG3 STARTING LOCATION.           ELS13475
         STH,14   F161,1                                                ELS13476
         STH,14   F162,1                                                ELS13477
RT16:1   CW,6     SAVE16       ALL WORDS IN ???                         ELS13478
         BGE      RT16:5       BRANCH IF TERMINATION.                   ELS13479
         CI,4     4            ALL 4 WORDSIN FOR / ROUND.               ELS13480
         BGE      RT16:2       BRANCH TO PRINT IF ROUND READY.          ELS13481
         LW,14    BUFFER,6     FETCH THE WORDS                          ELS13482
         BAL,15   HEXEBC       CONVERT                                  ELS13483
         LI,5     8            SET UP INDEX 5                           ELS13484
F161     STB,5    MSG3         SET UP BYTE COUNT.                       ELS13485
F162     STB,15   MSG3,5       SET UP BYTES CHARACTERS.                 ELS13486
         SLD,14   -8           SHIFT RIGHT 8 BITS                       ELS13487
         BDR,5    F162                                                  ELS13488
         AI,4     1            INCREMENT INDEX 4                        ELS13489
         AI,6     1            INCREMENT INDEX 6                        ELS13490
         MTW,3    F161         SET UP NEXT OUTPUT BUFFER.               ELS13491
         MTW,3    F162                                                  ELS13492
         B        RT16:1                                                ELS13493
*                                                                       ELS13494
*                                                                       ELS13495
RT16:2   LW,15    PASSFL       BEEN PRINT BEFORE.                       ELS13496
         BNEZ     RT16:3       BRANCH IF YES.                           ELS13497
         LB,13    BUFFER       HEADER PRINTED YET ??                    ELS13498
         CW,13    SEQFLG                                                ELS13499
         BE       P16X         BRANCH IF YES.                           ELS13500
         LI,13    X'FF'        SET UP TERMINATION CHARACTER.            ELS13501
         STB,13   TC16X                                                 ELS13502
         BAL,15   CT:PRINT     PRINT.                                   ELS13503
         DATA     TC16                                                  ELS13504
         B        P16A                                                  ELS13505
P16X     LI,13    1            SET UP OUTPUT.                           ELS13506
         STB,13   TC16X                                                 ELS13507
         BAL,15   CT:PRINT     PRINT (NO HEADER)                        ELS13508
         DATA     TC16X                                                 ELS13509
P16A     LB,13    BUFFER       BEEN THRU BEFORE.                        ELS13510
         STW,13   SEQFLG       SET UP THE THRU FLAG.                    ELS13511
         B        RT16:94                                               ELS13512
*                                                                       ELS13513
*                                                                       ELS13514
*                                                                       ELS13515
RT16:3   BAL,15   CT:PRINT     PRINT ONLY THE SENSE INFO.               ELS13516
         DATA     TC16X1                                                ELS13517
RT16:94  MTW,0    PISSFL       TERMINATION FLAG SET.                    ELS13518
         BNEZ     RT16EXT      BRANCH IF YES.                           ELS13519
         MTW,1    PASSFL       INCREMENT PASS FLAG.                     ELS13520
         B        RT16:4       DO ANOTHER.                              ELS13521
*                                                                       ELS13522
*                                                                       ELS13523
*                                                                       ELS13524
RT16:5   SLS,4    1            TERMINATION.. MULTIPLY COUNT BY TWO      ELS13525
         LB,15    AXE:0,4      SAVE AND LATER RESTORE.                  ELS13526
         STB,15   MSG10                                                 ELS13527
         LB,15    AXE:1,4      SAVE AND AT EXIT RESTORE.                ELS13528
         STB,15   MSG10,1                                               ELS13529
         LI,15    X'FF'                                                 ELS13530
         STB,15   AXE:0,4      SET UP TERMINATION BYTE.                 ELS13531
         STB,15   AXE:1,4                                               ELS13532
         MTW,1    PISSFL       SET TERMINATION FLAG.                    ELS13533
         B        RT16:2       PRINT.                                   ELS13534
*                                                                       ELS13535
RT16EXT  LB,15    MSG10                                                 ELS13536
         STB,15   AXE:0,4                                               ELS13537
         LB,15    MSG10,1                                               ELS13538
         STB,15   AXE:1,4                                               ELS13539
         B        CKRTRN                                                ELS13540
*                                                                       ELS13541
*                                                                       ELS13542
TC16     BS       4,47,1,51,1,47,1,65,0,181                             S1--0404
         BS       X'FF',20,13,26,X'FF',24,10,32                         ELS13544
         BS       2,56,0,54,1,55,0,56                                   ELS13545
TC16X    BS       X'FF',1,2,2                                           ELS13546
AXE:0    BS       2,3,1,4,1,5,1,6,X'FF'                                 ELS13547
TC16X1   BS       1,20,17,20                                            ELS13548
AXE:1    BS       1,3,1,4,1,5,1,6,X'FF'                                 ELS13549
SAVE16   DATA     0                                                     ELS13550
*                                                                       ELS13551
*                                                                       ELS13552
RT1A     EQU      %                                                     ELS13553
         LB,13    BUFFER                                                ELS13554
         CW,13    SEQFLG                                                ELS13555
         BE       NX1A                                                  ELS13556
         BAL,15   L:SPACE3                                              S1--0406
NX1A     EQU      %                                                     ELS13560
         BAL,15   TIME                                                  ELS13561
         LI,6     10                                                    ELS13562
         LW,4     BUFFER,6          ACCOUNT INEBC                       ELS13563
         LI,7     11                                                    ELS13564
         LW,5     BUFFER,7                                              ELS13565
         BAL,15   STMSG8                                                ELS13566
         DATA     MSG2                                                  ELS13567
         LI,13    8                                                     ELS13568
         STB,13   MSG2              BYTE CNT                            ELS13569
         LI,4     12                                                    ELS13570
         LDCTX,14 BUFFER,4                                              ELS13571
         BAL,15   HEXEBC            DCT INDX                            ELS13572
         SLS,15   8                                                     ELS13573
         STW,15   MSG3                                                  ELS13574
         STB,2    MSG3                                                  ELS13575
         LW,14    BUFFER,4                                              ELS13576
         LSECTA,15 14                                                   ELS13577
         LW,14    15                                                    ELS13578
         BAL,15   HEXEBC                                                ELS13579
         LW,5     15                                                    ELS13580
         BAL,15   STMSG4                                                ELS13581
         DATA     MSG4                                                  ELS13582
         LI,8     4                                                     ELS13583
         STB,8    MSG4                                                  ELS13584
         LI,6     27                                                    ELS13585
         LH,14    BUFFER,6          MODE                                ELS13586
         AND,14   XXXXFFFF                                              ELS13587
         LI,13    1                                                     ELS13588
         BAL,15   HEXTWO                                                ELS13589
         DATA     MSG5                                                  ELS13590
         STB,2    MSG5                                                  ELS13591
         LI,6     26                                                    ELS13592
         LH,14    BUFFER,6          ORG                                 ELS13593
         AND,14   XXXXFFFF                                              ELS13594
         LI,13    1                                                     ELS13595
         BAL,15   HEXTWO                                                ELS13596
         DATA     MSG6                                                  ELS13597
         STB,2    MSG6                                                  ELS13598
         LB,14    BUFFER,3                                              ELS13599
         SLS,14   -1                SHIFT 1 BIT TO RIGHT                ELS13600
         STB,14   BUFFER,3          SUBCODE                             ELS13601
         LH,14    BUFFER,1          ERR CODE                            ELS13602
         AND,14   XXXXFFFF                                              ELS13603
         BAL,15   HEXEBC                                                ELS13604
         LW,5     15                                                    ELS13605
         BAL,15   STMSG4                                                ELS13606
         DATA     MSG7                                                  ELS13607
         LI,4     4                                                     ELS13608
         STB,4    MSG7                                                  ELS13609
*                                                                       ELS13610
         LI,5     0            CLEAR 5                                  ELS13611
         LI,6     2            SET 6                                    ELS13612
L1A      CI,6     10           DONE......                               ELS13613
         BGE      OUT1A        B: GREATER..EQUAL...                     ELS13614
         LW,4     BUFFER,6     FETCH WORD                               ELS13615
         STW,4    MSG8,5                                                ELS13616
         AI,6     1            BUMP                                     ELS13617
         AI,5     1            BUMP                                     ELS13618
         B        L1A          LOOP TILL ALL DONE.......                ELS13619
*                                                                       ELS13620
OUT1A    EQU      %                                                     ELS13621
         LB,13    BUFFER                                                ELS13622
         CW,13    SEQFLG                                                ELS13623
         BE       P1AX                                                  ELS13624
         BAL,15   CT:PRINT                                              ELS13625
         DATA     TC1A                                                  ELS13626
RTRN1A   LB,13    BUFFER                                                ELS13627
         STW,13   SEQFLG                                                ELS13628
         B        CKRTRN                                                ELS13629
P1AX     BAL,15   CT:PRINT                                              ELS13630
         DATA     TC1AX                                                 ELS13631
         B        RTRN1A                                                ELS13632
*                                                                       ELS13633
*                                                                       ELS13634
TC1A     BS       X'8C',21,1,143,1,144,1,21,1,65,0,185,X'FF',;          S1--0408
                  20,23,82,4,146,14,120,X'FF',;                         ELS13636
                  24,10,145,3,83,2,99,1,32,2,147,2,148,2,59,16,;        ELS13637
                  56,0,142,0,143,1,117,0,56,0,142,X'FF',;               ELS13638
                  1,2,2,2,3,5,4,7,5,4,6,3,7,17,8,X'FF'                  ELS13639
*                                                                       ELS13640
TC1AX    BS       1,1,2,2,2,3,5,4,7,5,4,6,3,7,17,8,X'FF'                ELS13641
*                                                                       ELS13642
*                                                                       ELS13643
RT1B     EQU      %                                                     ELS13644
         LB,13    BUFFER                                                ELS13645
         CW,13    SEQFLG                                                ELS13646
         BE       NX1B                                                  ELS13647
         BAL,15   L:SPACE3                                              S1--0410
NX1B     EQU      %                                                     ELS13651
         BAL,15   TIME                                                  ELS13652
         LB,14    BUFFER,3          SYMB. INDX                          ELS13653
         BAL,15   HEXEBC                                                ELS13654
         LW,5     15                                                    ELS13655
         BAL,15   STMSG4                                                ELS13656
         DATA     MSG4                                                  ELS13657
         LI,10    4                                                     ELS13658
         STB,10   MSG4                                                  ELS13659
         LW,14    BUFFER,2                                              ELS13660
         LSECTA,15 14                                                   ELS13661
         LW,14     15                                                   ELS13662
         BAL,15   HEXEBC                                                ELS13663
         LW,5     15                                                    ELS13664
         BAL,15   STMSG4                                                ELS13665
         DATA     MSG3                                                  ELS13666
         LI,4     4                                                     ELS13667
         STB,4    MSG3                                                  ELS13668
         LDCTX,14 BUFFER,2          DCT INDEX                           ELS13669
         BAL,15   HEXEBC                                                ELS13670
         LW,5     15                                                    ELS13671
         BAL,15   STMSG4                                                ELS13672
         DATA     MSG2                                                  ELS13673
         LI,4     4                                                     ELS13674
         STB,4    MSG2                                                  ELS13675
         LW,14    BUFFER,2                                              ELS13676
         LB,14    14                TYPE CODE                           ELS13677
         STB,15   MSG5,1                                                ELS13678
         STB,1    MSG5                                                  ELS13679
*                                                                       ELS13680
         LB,13    BUFFER                                                ELS13681
         CW,13    SEQFLG                                                ELS13682
         BE       P1BX                                                  ELS13683
         BAL,15   CT:PRINT                                              ELS13684
         DATA     TC1B                                                  ELS13685
RTRN1B   LB,13    BUFFER                                                ELS13686
         STW,13   SEQFLG                                                ELS13687
         B        CKRTRN                                                ELS13688
*                                                                       ELS13689
P1BX     BAL,15   CT:PRINT                                              ELS13690
         DATA     TC1BX                                                 ELS13691
         B        RTRN1B                                                ELS13692
*                                                                       ELS13693
*                                                                       ELS13694
TC1B     BS       4,21,1,96,1,144,1,21,1,65,0,186,X'FF',;               S1--0412
                  20,13,82,4,97,2,58,2,120,X'FF',;                      ELS13696
                  24,10,83,2,99,2,82,4,79,X'FF',;                       ELS13697
                  1,2,2,3,3,2,4,4,5,X'FF'                               ELS13698
*                                                                       ELS13699
TC1BX    BS       1,1,2,2,3,3,2,4,X'FF'                                 ELS13700
         PAGE                                                           S1--0414
RT1D     EQU      %                                                     ELS13701
         STW,2    F19               SET TYPE FLG 1D                     ELS13702
         B        RT17                                                  ELS13703
*                                                                       ELS13705
RT1E     EQU      %                                                     ELS13706
         STW,1    F1E               SET F1E FLAG                        ELS13707
         B        RT20                                                  ELS13708
*                                                                       ELS13709
F1E      DATA     0                                                     ELS13710
*                                                                       ELS13711
*                                                                       ELS13712
P1E      EQU      %                                                     ELS13713
         LB,13    BUFFER                                                ELS13714
         CW,13    SEQFLG                                                ELS13715
         BE       P1EX                                                  ELS13716
         BAL,15   CT:PRINT                                              ELS13717
         DATA     TC1E                                                  ELS13718
RTRN1E   LB,13    BUFFER                                                ELS13719
         STW,13   SEQFLG                                                ELS13720
         STW,0    F1E               RESET FLG                           ELS13721
         B        CKRTRN                                                ELS13722
*                                                                       ELS13723
P1EX     BAL,15   CT:PRINT                                              ELS13724
         DATA     TC1EX                                                 ELS13725
         B        RTRN1E                                                ELS13726
*                                                                       ELS13727
*                                                                       ELS13728
TC1E     BS       4,21,1,110,1,111,1,21,1,65,0,189,X'FF',;              S1--0417
                  24,1,114,5,111,X'FF',;                                ELS13730
                  110,1,112,4,110,X'FF',;                               ELS13731
                  1,2,2,X'FF'                                           ELS13732
*                                                                       ELS13733
TC1EX    BS       1,1,2,2,X'FF'                                         ELS13734
*                                                                       ELS13735
*                                                                       ELS13736
RT1F     EQU      %                                                     ELS13737
         STW,1    F1F          SET F1F FLAG.........                    ELS13738
         LW,14    CLISF                                                 ELS13739
         BNEZ     RT20                                                  ELS13740
         LW,13    UNASSFLG                                              ELS13741
         BEZ      RT20                                                  ELS13742
         BAL,15   CKUNASS           PRINT UNASSO. SEC.                  ELS13743
         B        NX2001                                                ELS13744
*                                                                       ELS13745
F1F      DATA     0                                                     ELS13746
*                                                                       ELS13747
*                                                                       ELS13748
P1F      EQU      %                                                     ELS13749
         LB,13    BUFFER                                                ELS13750
         CW,13    SEQFLG                                                ELS13751
         BE       P1FX                                                  ELS13752
         BAL,15   CT:PRINT                                              ELS13753
         DATA     TC1F                                                  ELS13754
RTRN1F   LB,13    BUFFER                                                ELS13755
         STW,13   SEQFLG                                                ELS13756
         STW,0    F1F               RESET FLG                           ELS13757
         B        CKRTRN                                                ELS13758
*                                                                       ELS13759
P1FX     BAL,15   CT:PRINT                                              ELS13760
         DATA     TC1FX                                                 ELS13761
         B        RTRN1F                                                ELS13762
*                                                                       ELS13763
*                                                                       ELS13764
TC1F     BS       4,47,1,115,1,111,1,47,1,65,0,190,X'FF',;              S1--0419
                  24,1,114,X'FF',;                                      ELS13766
                  115,5,42,X'FF',;                                      ELS13767
                  1,2,2,X'FF'                                           ELS13768
*                                                                       ELS13769
TC1FX    BS       1,1,2,2,X'FF'                                         ELS13770
*                                                                       ELS13771
*                                                                       ELS13772
RT20     EQU      %                                                     ELS13773
         LB,13    BUFFER                                                ELS13774
         CW,13    SEQFLG                                                ELS13775
         BE       NX20                                                  ELS13776
         MTW,0    F1F          THIS 1F TYPE CODE                        ELS13777
         BEZ      %+3          B: IF NOT                                ELS13778
         MTW,0    F:FLAG       SECONDARY TO FOLLOW PRIMARY..            ELS13779
         BNEZ     NX2001       B: IF YES.....                           ELS13780
         BAL,15   L:SPACE2                                              S1--0421
NX2001   EQU      %                                                     ELS13783
         BAL,15   L:SPACE                                               ELS13784
NX20     EQU      %                                                     ELS13785
         BAL,15   TIME                                                  ELS13786
*                                                                       S1--0423
         CI,13    X'20'             IF TYPE 20                          S1--0424
         BE       P20               BRANCH                              S1--0425
*                                                                       S1--0426
         LI,13    1                                                     ELS13787
         LW,14    BUFFER                                                ELS13788
         AND,14   XXXXFFFF                                              ELS13789
         BAL,15   HEXFIVE                                               ELS13790
         DATA     MSG2                                                  ELS13791
         LI,4     5                                                     ELS13792
         STB,4    MSG2                                                  ELS13793
         CW,1     F1E               IS THIS TYPE 1E                     ELS13794
         BE       P1E               CONTINUE RT1E ROUTINE               ELS13795
         CW,1     F1F               IS THIS TYPE 1F                     ELS13796
         BE       P1F               CONTINUE RT1F ROUTINE               ELS13797
P20      EQU      %                                                     ELS13798
*                                   GET CPU ADR                         S1--0428
         BAL,15   GETCPU                                                S1--0429
         DATA     MSG2                                                  S1--0430
*                                                                       S1--0431
         LB,13    BUFFER                                                ELS13799
         CW,13    SEQFLG                                                ELS13800
         BE       P20X                                                  ELS13801
         BAL,15   CT:PRINT                                              ELS13802
         DATA     TC20                                                  ELS13803
RTRN20   LB,13    BUFFER                                                ELS13804
         STW,13   SEQFLG                                                ELS13805
         B        CKRTRN                                                ELS13806
*                                                                       ELS13807
P20X     EQU      %                                                     ELS13808
         BAL,15   CT:PRINT                                              ELS13809
         DATA     TC20X                                                 ELS13810
         B        RTRN20                                                ELS13811
*                                                                       ELS13812
*                                                                       ELS13813
TC20     BS       4,21,1,107,1,21,1,66,0,191,X'FF',;                    S1--0433
                  20,13,95,X'FF',;                                      S1--0434
                  24,10,32,X'FF',;                                      S1--0435
                  1,2,2,X'FF'                                           S1--0436
*                                                                       S1--0437
TC20X    BS       1,1,2,2,X'FF'                                         S1--0438
*                                                                       ELS13819
*                                                                       ELS13820
RT24     EQU      %                                                     ELS13821
         LB,13    BUFFER                                                ELS13822
         CW,13    SEQFLG                                                ELS13823
         BE       NX24                                                  ELS13824
         BAL,15   L:SPACE3                                              S1--0440
NX24     EQU      %                                                     ELS13828
         BAL,15   TIME                                                  ELS13829
*                                                                       S1--0442
         LB,14    BUFFER,3          TYPE CODE                           ELS13830
         BEZ      TY0          B: IF ZERO.....                          ELS13831
*                                                                       S1--0444
*                                   PROCESS TYPE 1                      S1--0445
*                                                                       S1--0446
         LW,14    BUFFER,3                                              ELS13832
         SLS,14   -16                                                   ELS13833
         LI,13    1                                                     ELS13834
         BAL,15   HEXFIVE                                               ELS13835
         DATA     MSG2                                                  ELS13836
         LI,4     5                                                     ELS13837
         STB,4    MSG2              BYTE CNT                            ELS13838
         LI,5     10                                                    ELS13839
         B        P24                                                   S1--0448
*                                                                       S1--0449
*                                   PROCESS TYPE 0                      S1--0450
*                                                                       S1--0451
TY0      LW,14    BUFFER,3                                              ELS13843
         BAL,15   HEXEBC                                                ELS13844
         LW,4     14                                                    ELS13845
         LW,5     15                                                    ELS13846
         BAL,15   STMSG8                                                ELS13847
         DATA     MSG2                                                  ELS13848
         LI,4     8                                                     ELS13849
         STB,4    MSG2              BYTE CNT                            ELS13850
         LI,5     7                                                     ELS13851
*                                                                       S1--0453
P24      EQU      %                                                     S1--0454
         LI,4     BA(TC24A)         ADJUST OUTPUT SPACES BASED ON       S1--0455
         STB,5    0,4               TYPE 0 OR TYPE 1.......             S1--0456
         LI,4     BA(TC24XA)                                            S1--0457
         STB,5    0,4                                                   S1--0458
         LDCTX,14 BUFFER,2          DCT INDEX                           ELS13855
         BAL,15   HEXEBC                                                ELS13856
         SLS,15   8                                                     ELS13857
         STW,15   MSG5                                                  ELS13858
         STB,2    MSG5                                                  ELS13859
*                                                                       S1--0460
         LW,14    BUFFER,2                                              S1--0462
         LSECTA,15 14               REL SECT ADR                        ELS13861
         LW,14    15                                                    ELS13862
         BAL,15   HEXEBC                                                ELS13863
         LW,5     15                                                    ELS13864
         BAL,15   STMSG4                                                ELS13865
         DATA     MSG3                                                  ELS13866
         LI,8     4                                                     ELS13867
         STB,8    MSG3                                                  ELS13868
*                                                                       S1--0464
         LB,14    BUFFER,3          FIX TYPE CODE                       ELS13869
         BAL,15   HEXEBC                                                ELS13870
         STB,15   MSG4,1                                                ELS13871
         STB,1    MSG4              BYTE CNT                            ELS13872
*                                                                       ELS13873
         LB,13    BUFFER                                                ELS13874
         CW,13    SEQFLG                                                ELS13875
         BE       P24X                                                  ELS13876
         BAL,15   CT:PRINT                                              ELS13877
         DATA     TC24                                                  ELS13878
RTRN24   LB,13    BUFFER                                                ELS13879
         STW,13   SEQFLG                                                ELS13880
         B        CKRTRN                                                ELS13881
*                                                                       ELS13882
P24X     BAL,15   CT:PRINT                                              ELS13883
         DATA     TC24X                                                 ELS13884
         B        RTRN24                                                ELS13885
*                                                                       ELS13886
*                                                                       ELS13887
TC24     DATA,1   4,21,1,80,1,21,1,66,0,68,X'FF',;                      S1--0466
                  20,13,82,4,146,3,150,3,79,X'FF',;                     ELS13889
                  24,10,83,2,99,1,32,2,151,3,59,X'FF'                   S1--0468
         DATA,1   1,3,5,6,3                                             S1--0469
TC24A    DATA,1   10,2,7,4,X'FF'                                        S1--0470
         BOUND    4                                                     S1--0471
*                                                                       ELS13892
TC24X    DATA,1   1,1,3,5,6,3                                           S1--0473
TC24XA   DATA,1   7,2,7,4,X'FF'                                         S1--0474
         BOUND    4                                                     S1--0475
*                                                                       ELS13894
*                                   I/O ACTIVITY RECORDS                S1--0477
RT28     EQU      %                                                     ELS13896
         LB,13    BUFFER                                                ELS13897
         CW,13    SEQFLG                                                ELS13898
         BE       NX28                                                  ELS13899
         BAL,15   L:SPACE3                                              S1--0479
NX28     EQU      %                                                     ELS13903
         STB,1    TC28X,1           INITIALIZE MSG1                     ELS13904
         STB,2    TC28X,2                                               ELS13905
         BAL,15   TIME                                                  ELS13906
         LI,4     2                 INITIALIZE X4=2                     ELS13907
         LB,13    BUFFER,1          COUNT                               ELS13908
         STW,13   TYCNT             SAVE COUNT                          ELS13909
         LB,13    BUFFER                                                ELS13910
         CW,13    SEQFLG                                                ELS13911
         BE       NX28X+2           SKIP TITLE PRINTOUTS                ELS13912
NX28X    EQU      %                                                     ELS13913
         BAL,15   CT:PRINT                                              ELS13914
         DATA     TC28                                                  ELS13915
*                                                                       ELS13916
         LB,13    BUFFER                                                ELS13917
         STW,13   SEQFLG                                                ELS13918
L28X     CW,4     TYCNT                                                 ELS13919
         BE       CKRTRN                                                ELS13920
         LW,14    BUFFER,4                                              ELS13921
         SLS,14   -16               I/O ADRS                            ELS13922
         BAL,15   HEXEBC                                                ELS13923
         LW,5     15                                                    ELS13924
         BAL,15   STMSG4                                                ELS13925
         DATA     MSG2                                                  ELS13926
         LI,5     4                                                     ELS13927
         STB,5    MSG2              BYTE CNT                            ELS13928
         LW,14    BUFFER,4          DCT INDX                            ELS13929
         AND,14   XXXXFFFF                                              ELS13930
         BAL,15   HEXEBC                                                ELS13931
         LW,5     15                                                    ELS13932
         BAL,15   STMSG4                                                ELS13933
         DATA     MSG3                                                  ELS13934
         LI,5     4                                                     ELS13935
         STB,5    MSG3                                                  ELS13936
         AI,4     1                 ADD 1 TO X4                         ELS13937
         STW,0    SGNFL        RESET THE SIGN FLAG.                     ELS13938
         LW,14    BUFFER,4          I/O COUNT                           ELS13939
         BGEZ     %+3          BRANCH IF GRETER THAN OR E. ZERO         ELS13940
         LCW,14   14           FETCH THE TWO'S COMPLEMENT               ELS13941
         STW,1    SGNFL        SET SIGN FLAG.                           ELS13942
         LI,13    1                                                     ELS13943
         BAL,15   HEXDECE                                               ELS13944
         DATA     MSG4                                                  ELS13945
         LI,10    10                                                    ELS13946
         STB,10   MSG4              BYTE CNT                            ELS13947
         MTW,0    SGNFL        CHCK SIGN FLAG.                          ELS13948
         BEZ      %+3          BANCH IF ZERO                            ELS13949
         LI,4     X'D5'                                                 ELS13950
         STB,4    MSG4,1                                                ELS13951
         BAL,15   CT:PRINT                                              ELS13952
         DATA     TC28X                                                 ELS13953
         AI,4     1                                                     ELS13954
         LI,13    20                                                    ELS13955
         STB,13   TC28X,1           MASK MSG1                           ELS13956
         LI,13    13                NO. 13                              ELS13957
         STB,13   TC28X,2                                               ELS13958
         B        L28X              LOOP FOR NEXT I/O ADRS              ELS13959
*                                                                       ELS13960
*                                                                       ELS13961
TC28     BS       3,21,1,26,1,105,1,21,1,66,0,183,X'FF',;               S1--0481
                  20,13,26,3,82,4,26,X'FF',;                            ELS13963
                  24,10,32,2,83,2,42,X'FF'                              ELS13964
*                                                                       ELS13965
TC28X    BS       1,1,2,2,2,3,3,4,X'FF'                                 ELS13966
*                                                                       ELS13967
*                                                                       ELS13968
RT34     EQU      %                                                     ELS13969
         LB,13    BUFFER                                                ELS13970
         CW,13    SEQFLG                                                ELS13971
         BE       NX34                                                  ELS13972
         BAL,15   L:SPACE3                                              S1--0483
NX34     EQU      %                                                     ELS13976
         BAL,15   TIME                                                  ELS13977
         LI,5     5                                                     ELS13978
         LH,14    BUFFER,5          I/O ADRS                            ELS13979
         AND,14   XXXXFFFF                                              ELS13980
         BAL,15   HEXEBC                                                ELS13981
         LW,5     15                                                    ELS13982
         BAL,15   STMSG4                                                ELS13983
         DATA     MSG2                                                  ELS13984
         LI,4     4                                                     ELS13985
         STB,4    MSG2                                                  ELS13986
         LH,14    BUFFER,4           O STATUS                           ELS13987
         AND,14   XXXXFFFF                                              ELS13988
         BAL,15   HEXEBC                                                ELS13989
         LW,5     15                                                    ELS13990
         BAL,15   STMSG4                                                ELS13991
         DATA     MSG3                                                  ELS13992
         STB,4    MSG3                                                  ELS13993
         LB,14    BUFFER,2          CC                                  ELS13994
         BAL,15   HEXEBC                                                ELS13995
         SLS,15   -8                                                    ELS13996
         STB,15   MSG4,1                                                ELS13997
         STB,1    MSG4              BYTE CNT                            ELS13998
*                                                                       ELS13999
         LB,13    BUFFER                                                ELS14000
         CW,13    SEQFLG                                                ELS14001
         BE       P34X                                                  ELS14002
         BAL,15   CT:PRINT                                              ELS14003
         DATA     TC34                                                  ELS14004
RTRN34   LB,13    BUFFER                                                ELS14005
         STW,13   SEQFLG                                                ELS14006
         B        CKRTRN                                                ELS14007
*                                                                       ELS14008
P34X     BAL,15   CT:PRINT                                              ELS14009
         DATA     TC34X                                                 ELS14010
         B        RTRN34                                                ELS14011
*                                                                       ELS14012
*                                                                       ELS14013
TC34     BS       4,21,1,100,0,159,0,39,0,160,1,21,1,67,0,68,X'FF',;    S1--0485
                  20,13,26,3,103,0,39,0,103,X'FF',;                     ELS14015
                  24,10,32,2,33,1,34,X'FF',;                            ELS14016
                  1,2,2,2,3,1,4,X'FF'                                   ELS14017
*                                                                       ELS14018
TC34X    BS       1,1,2,2,2,3,1,4,X'FF'                                 ELS14019
*                                                                       ELS14020
*                                                                       ELS14021
RT35     EQU      %                                                     ELS14022
         LB,13    BUFFER                                                ELS14023
         CW,13    SEQFLG                                                ELS14024
         BE       NX35                                                  ELS14025
         BAL,15   L:SPACE3                                              S1--0487
NX35     EQU      %                                                     ELS14029
         BAL,15   TIME                                                  ELS14030
         LB,14    BUFFER,2          UNIT ADRS                           ELS14031
         BAL,15   HEXEBC                                                ELS14032
         SLS,15   8                                                     ELS14033
         STW,15   MSG2                                                  ELS14034
         STB,2    MSG2              BYTE CNT                            ELS14035
         LB,14    BUFFER,3          UNIT TYPE                           ELS14036
         BAL,15   HEXEBC                                                ELS14037
         SLS,15   8                                                     ELS14038
         STW,15   MSG3                                                  ELS14039
         STB,2    MSG3              BYTE CNT                            ELS14040
         LW,14    BUFFER,2                                              ELS14041
         SLS,14   -24               RIO CC                              ELS14042
         BAL,15   HEXEBC                                                ELS14043
         SLS,15   -8                                                    ELS14044
         STB,15   MSG4,1                                                ELS14045
         STB,1    MSG4                                                  ELS14046
*                                                                       ELS14047
         LB,13    BUFFER                                                ELS14048
         CW,13    SEQFLG                                                ELS14049
         BE       P35X                                                  ELS14050
         BAL,15   CT:PRINT                                              ELS14051
         DATA     TC35                                                  ELS14052
RTRN35   LB,13    BUFFER                                                ELS14053
         STW,13   SEQFLG                                                ELS14054
         B        CKRTRN                                                ELS14055
*                                                                       ELS14056
P35X     BAL,15   CT:PRINT                                              ELS14057
         DATA     TC35X                                                 ELS14058
         B        RTRN35                                                ELS14059
*                                                                       ELS14060
*                                                                       ELS14061
TC35     BS       4,21,1,100,0,159,0,101,0,160,1,21,1,67,0,180,X'FF',;  S1--0489
                  20,13,103,0,113,0,103,4,101,X'FF',;                   ELS14063
                  24,10,32,1,117,4,34,X'FF',;                           ELS14064
                  1,2,2,3,3,6,4,X'FF'                                   ELS14065
*                                                                       ELS14066
TC35X    BS       1,1,2,2,3,3,6,4,X'FF'                                 ELS14067
*                                                                       ELS14068
*                                                                       ELS14069
RT36     EQU      %                                                     S1--0491
         LI,0     0                 CODE 36 INDEX                       S1--0492
         STW,0    F36TO39                                               S1--0493
         B        RT39A                                                 S1--0494
*                                                                       S1--0495
F36TO39  DATA     0                 COMMON FLAG                         S1--0496
*                                                                       S1--0497
*                                                                       S1--0498
RT37     EQU      %                                                     S1--0499
         STW,1    F36TO39           CODE 37 INDEX                       S1--0500
         B        RT39A                                                 S1--0501
*                                                                       S1--0502
*                                                                       S1--0503
RT38     EQU      %                                                     S1--0504
         STW,2    F36TO39           CODE 38 INDEX                       S1--0505
         B        RT39A                                                 S1--0506
*                                                                       S1--0507
*                                                                       S1--0508
RT39     EQU      %                                                     S1--0509
         STW,3    F36TO39           CODE 39 INDEX                       S1--0510
*                                                                       S1--0511
RT39A    EQU      %                                                     S1--0512
         LB,13    BUFFER                                                ELS14092
         CW,13    SEQFLG                                                ELS14093
         BE       NX39                                                  ELS14094
         BAL,15   L:SPACE3                                              S1--0514
NX39     EQU      %                                                     ELS14098
         BAL,15   TIME                                                  ELS14099
         BAL,15   MOD:IN       FETCH / CONVERT / STORE   MODEL NO.      ELS14100
         LI,5     4                                                     ELS14101
         STB,5    MSG2              BYTE CNT                            ELS14102
         LI,5     5            SET REGITER COUNT 5 T A 5                ELS14103
         LH,14    BUFFER,5          I/O ADRS                            ELS14104
         AND,14   XXXXFFFF                                              ELS14105
         BAL,15   HEXEBC                                                ELS14106
         LI,4     4                                                     ELS14107
         STB,4    MSG3              BYTE CNT                            ELS14108
         LW,5     15                                                    ELS14109
         BAL,15   STMSG4                                                ELS14110
         DATA     MSG3                                                  ELS14111
         LI,5     8                                                     ELS14112
         LH,14    BUFFER,5          I/O STAT.                           ELS14113
         AND,14   XXXXFFFF                                              ELS14114
         BAL,15   HEXEBC                                                ELS14115
         LI,4     4                                                     ELS14116
         STB,4    MSG4                                                  ELS14117
         LW,5     15                                                    ELS14118
         BAL,15   STMSG4                                                ELS14119
         DATA     MSG4                                                  ELS14120
         LW,14    BUFFER,2          I/O CC                              ELS14121
         SLS,14   -24                                                   ELS14122
         BAL,15   HEXEBC                                                ELS14123
         SLS,15   -8                                                    ELS14124
         STB,15   MSG5,1                                                ELS14125
         STB,1    MSG5              BYTE CNT                            ELS14126
         LI,4     4                                                     ELS14127
         LW,14    BUFFER,4                                              ELS14128
         AND,14   XXXXFFFF          BYTE REM.                           ELS14129
         BAL,15   HEXEBC                                                ELS14130
         STB,4    MSG6                                                  ELS14131
         LW,5     15                                                    ELS14132
         BAL,15   STMSG4                                                ELS14133
         DATA     MSG6                                                  ELS14134
         LW,14    BUFFER,3                                              ELS14135
         AND,14   XX7FFFFF                                              ELS14136
         BAL,15   HEXEBC                                                ELS14137
         SLD,14   16                                                    ELS14138
         LW,4     14                                                    ELS14139
         LW,5     15                                                    ELS14140
         BAL,15   STMSG8                                                ELS14141
         DATA     MSG7                                                  ELS14142
         LI,6     6                                                     ELS14143
         STB,6    MSG7                                                  ELS14144
         LW,14    BUFFER,3                                              ELS14145
         SLS,14   -25               SUBCHAN STATUS                      ELS14146
         BAL,15   HEXEBC                                                ELS14147
         STB,2    MSG8              BYTE CNT                            ELS14148
         STB,15   MSG8,2            2ND BYTE                            ELS14149
         SLS,15   -8                                                    ELS14150
         STB,15   MSG8,1            1ST BYTE                            ELS14151
*                                                                       ELS14152
*                                                                       S1--0516
*                                   MODIFY OUTPUT MSG APPROPRIATELY     S1--0517
         LW,6     F36TO39           GET INDEX (0-3)                     S1--0518
         LB,13    T3639A,6          GET MSG NUMBER OF NAME              S1--0519
         STB,13   TC39+1,3          STORE IT                            S1--0520
*                                                                       S1--0521
         LB,13    T3639B,6          GET MSG NUMBER OF ERR CODE DIGIT    S1--0522
         STB,13   TC39+3,3          STORE IT                            S1--0523
*                                                                       S1--0524
P39      EQU      %                                                     ELS14161
         LB,13    BUFFER                                                ELS14162
         CW,13    SEQFLG                                                ELS14163
         BE       P39X                                                  ELS14164
         BAL,15   CT:PRINT                                              ELS14165
         DATA     TC39                                                  ELS14166
RTRN39   LB,13    BUFFER                                                ELS14167
         STW,13   SEQFLG                                                ELS14168
         B        CKRTRN                                                ELS14169
*                                                                       ELS14170
P39X     BAL,15   CT:PRINT                                              ELS14171
         DATA     TC39X                                                 ELS14172
         B        RTRN39                                                ELS14173
*                                                                       ELS14174
*                                                                       S1--0526
*                                   MSG NUMBER OF NAME...               S1--0527
T3639A   DATA,1   22                SIO                                 S1--0528
         DATA,1   44                TIO                                 S1--0529
         DATA,1   28                TDV                                 S1--0530
         DATA,1   27                HIO                                 S1--0531
*                                                                       S1--0532
*                                   MSG NUMBER OF ERR CODE DIGIT        S1--0533
T3639B   DATA,1   181               6                                   S1--0534
         DATA,1   182               7                                   S1--0535
         DATA,1   183               8                                   S1--0536
         DATA,1   184               9                                   S1--0537
*                                                                       S1--0538
*                                                                       S1--0539
TC39     BS       4,21,1,100,0,159,0,27,0,160,1,21,1,67,0,181,X'FF',;   S1--0540
                  20,19,26,3,103,0,26,0,103,2,31,13,29,X'FF',;          ELS14176
                  24,10,25,3,32,2,33,1,34,2,37,2,35,1,36,2,33,X'FF',;   ELS14177
                  1,2,2,2,3,2,4,1,5,3,6,3,7,3,8,X'FF'                   ELS14178
*                                                                       ELS14179
TC39X    BS       1,1,2,2,2,3,2,4,1,5,3,6,3,7,3,8,X'FF'                 ELS14180
*                                                                       ELS14181
*                                                                       ELS14182
RT50     EQU      %                                                     ELS14201
         LB,13    BUFFER                                                ELS14202
         CW,13    SEQFLG                                                ELS14203
         BE       NX50                                                  ELS14204
         BAL,15   L:SPACE3                                              S1--0543
NX50     EQU      %                                                     ELS14208
         BAL,15   TIME                                                  ELS14209
         LI,4     4                                                     ELS14210
         LH,14    BUFFER,4          USED ID                             ELS14211
         AND,14   XXXXFFFF                                              ELS14212
         BAL,15   HEXEBC                                                ELS14213
         STB,4    MSG2                                                  ELS14214
         LW,5     15                                                    ELS14215
         BAL,15   STMSG4                                                ELS14216
         DATA     MSG2                                                  ELS14217
         LI,5     5                                                     ELS14218
         LH,14    BUFFER,5          ENTRY CNT                           ELS14219
         AND,14   XXXXFFFF                                              ELS14220
         LI,13    1                                                     ELS14221
         BAL,15   HEXFIVE                                               ELS14222
         DATA     MSG3                                                  ELS14223
         LI,5     5                                                     ELS14224
         STB,5    MSG3              BYTE CNT                            ELS14225
*                                                                       ELS14226
         LB,13    BUFFER                                                ELS14227
         CW,13    SEQFLG                                                ELS14228
         BE       P50X                                                  ELS14229
         BAL,15   CT:PRINT                                              ELS14230
         DATA     TC50                                                  ELS14231
RTRN50   LB,13    BUFFER                                                ELS14232
         STW,13   SEQFLG                                                ELS14233
         B        CKRTRN                                                ELS14234
*                                                                       ELS14235
P50X     BAL,15   CT:PRINT                                              ELS14236
         DATA     TC50X                                                 ELS14237
         B        RTRN50                                                ELS14238
*                                                                       ELS14239
*                                                                       ELS14240
TC50     BS       4,21,1,122,1,21,1,180,0,191,X'FF',;                   S1--0545
                  20,13,123,2,112,X'FF',;                               ELS14242
                  24,10,108,2,42,X'FF',;                                ELS14243
                  1,2,2,2,3,X'FF'                                       ELS14244
*                                                                       ELS14245
TC50X    BS       1,1,2,2,2,3,X'FF'                                     ELS14246
*                                                                       ELS14247
*                                                                       ELS14248
RT51     EQU      %                                                     ELS14249
         STW,1    F51               SET F51 FLG                         ELS14250
         B        RT52                                                  ELS14251
*                                                                       ELS14252
F51      DATA     0                                                     ELS14253
*                                                                       ELS14254
*                                                                       ELS14255
RT52     EQU      %                                                     ELS14256
         LW,13    CLISF                                                 ELS14257
         BNEZ     RT52YA                                                ELS14258
         LW,13    FSTFLG                                                ELS14259
         BNEZ     RT52YA                                                ELS14260
         STW,0    SEQFLG                                                ELS14261
RT52YA   EQU      %                                                     ELS14262
         LB,13    BUFFER                                                ELS14263
         CW,13    SEQFLG                                                ELS14264
         BE       NX52                                                  ELS14265
         BAL,15   L:SPACE3                                              S1--0547
NX52     EQU      %                                                     ELS14269
         BAL,15   TIME                                                  ELS14270
         BAL,15   MOD:IN       FETCH/CONVERT/STORE MODEL NO.            ELS14271
         LI,5     4                                                     ELS14272
         STB,5    MSG2              BYTE CNT                            ELS14273
         LW,14    BUFFER,2                                              ELS14274
         SLS,14   -31                                                   ELS14275
         CW,1     14                IS F=1                              ELS14276
         BE       Y52                                                   ELS14277
         LW,13    NO                                                    ELS14278
         STW,13   MSG4                                                  ELS14279
         B        FXM4                                                  ELS14280
Y52      LW,13    YES                                                   ELS14281
         STW,13   MSG4              YES                                 ELS14282
FXM4     STB,1    MSG4              BYTE CNT                            ELS14283
         LW,14    BUFFER,2                                              ELS14284
         AND,14   XXXXFFFF          I/O ADRS                            ELS14285
         BAL,15   HEXEBC                                                ELS14286
         LI,4     4                                                     ELS14287
         STB,4    MSG3                                                  ELS14288
         LW,5     15                                                    ELS14289
         BAL,15   STMSG4                                                ELS14290
         DATA     MSG3                                                  ELS14291
*                                                                       ELS14292
         LW,13    CLISF                                                 ELS14293
         BEZ      P52S                                                  ELS14294
         CW,1     F51               IS THIS TYPE 51                     ELS14295
         BE       P51                                                   ELS14296
         LI,13    127               FX 'RETURNED'                       ELS14297
         LI,15    66                DIGIT '2' MSG NUMBER                S1--0549
*                                                                       S1--0550
P52      EQU      %                                                     S1--0551
         STB,13   TC52,3            NAME                                S1--0552
         STB,15   TC52+2,3          DIGIT                               S1--0553
*                                                                       S1--0554
         LB,13    BUFFER            CODE                                S1--0555
         CW,13    SEQFLG                                                ELS14301
         BE       P52X                                                  ELS14302
         BAL,15   CT:PRINT                                              ELS14303
         DATA     TC52                                                  ELS14304
RTRN52   LB,13    BUFFER                                                ELS14305
         STW,13   SEQFLG                                                ELS14306
         B        RETURN                                                ELS14307
*                                                                       ELS14308
P52X     BAL,15   CT:PRINT                                              ELS14309
         DATA     TC52X                                                 ELS14310
         B        RTRN52                                                ELS14311
*                                                                       ELS14312
*                                                                       ELS14313
TC52     BS       4,21,1,127,1,125,1,21,1,180,0,66,X'FF',;              S1--0557
                  20,18,26,X'FF',;                                      ELS14315
                  24,10,25,2,83,2,126,X'FF',;                           ELS14316
                  1,2,2,2,3,5,4,X'FF'                                   ELS14317
*                                                                       ELS14318
TC52X    BS       1,1,2,2,2,3,5,4,X'FF'                                 ELS14319
*                                                                       ELS14320
P51      EQU      %                                                     ELS14321
         STW,0    F51               RESET F51 FLG                       S1--0559
         LI,13    124               FIX 'PARTIONED' NAME                S1--0560
         LI,15    65                DIGIT '1' MSG NUMBER                S1--0561
         B        P52               STORE THEM                          S1--0562
*                                                                       ELS14326
*                                                                       ELS14327
P52S     EQU      %                                                     ELS14328
         CW,1     F51                                                   ELS14329
         BE       P51S                                                  ELS14330
         LI,13    127               FIX 'RETURNED'NAME                  S1--0564
         LI,15    66                DIGIT '2' MSG NUMBER                S1--0565
*                                                                       S1--0566
P51SX    EQU      %                                                     S1--0567
         STB,13   TS52,3            STORE NAME                          S1--0568
         STB,15   TS52+2,3          STORE DIGIT                         S1--0569
*                                                                       S1--0570
         LW,13    FSTFLG                                                ELS14335
         BNEZ     P52SX                                                 ELS14336
         BAL,15   FXMDIO                                                ELS14337
P51SX2   EQU      %                                                     S1--0572
         BAL,15   CT:PRINT                                              ELS14338
         DATA     TS52                                                  ELS14339
RTN52    STW,1    FSTFLG                                                ELS14340
         LB,13    BUFFER                                                ELS14341
         STW,13   SEQFLG                                                ELS14342
         B        SRTRN                                                 ELS14343
*                                                                       ELS14344
P52SX    LB,13    BUFFER                                                ELS14345
         CW,13    SEQFLG                                                ELS14346
         BNE      P51SX2                                                S1--0574
         BAL,15   CT:PRINT                                              ELS14348
         DATA     TS52X                                                 ELS14349
         B        RTN52                                                 ELS14350
*                                                                       ELS14351
P51S     EQU      %                                                     S1--0576
         LI,13    124               FIX 'PARTITIONED' NAME              S1--0577
         LI,15    65                DIGIT '1' NAME MSG                  S1--0578
         STW,0    F51               RESET F51 FLAG                      S1--0579
         B        P51SX                                                 S1--0580
*                                                                       ELS14356
TS52     BS       3,21,1,127,1,125,1,21,1,180,0,66,X'FF',;              S1--0582
                  24,10,126,X'FF',;                                     ELS14358
                  1,5,4,X'FF'                                           ELS14359
*                                                                       ELS14360
TS52X    BS       1,1,5,4,X'FF'                                         ELS14361
*                                                                       ELS14362
*                                                                       ELS14363
NO       TEXTC    'N'                                                   ELS14364
XXFFFFFF DATA     X'00FFFFFF'                                           ELS14365
         PAGE                                                           S1--0584
*                                                                       ELS14366
RT53     EQU      %                                                     ELS14367
         LB,13    BUFFER                                                ELS14368
         CW,13    SEQFLG                                                ELS14369
         BE       NX53                                                  ELS14370
         BAL,15   L:SPACE3                                              S1--0586
NX53     EQU      %                                                     ELS14374
         BAL,15   TIME                                                  ELS14375
         LW,14    BUFFER,2                                              ELS14376
         SLS,14   -24               USER NO.                            ELS14377
         BAL,15   HEXEBC                                                ELS14378
         STB,15   MSG2,2                                                ELS14379
         SLS,15   -8                                                    ELS14380
         STB,15   MSG2,1                                                ELS14381
         STB,2    MSG2              BYTE CNT                            ELS14382
         LW,14    BUFFER,2                                              ELS14383
         AND,14   XXXXFFFF                                              ELS14384
         BAL,15   HEXEBC                                                ELS14385
         SLD,14   16                                                    ELS14386
         LW,5     15                                                    ELS14387
         LW,4     14                                                    ELS14388
         BAL,15   STMSG8                                                ELS14389
         DATA     MSG3                                                  ELS14390
         LI,6     6                                                     ELS14391
         STB,6    MSG3              BYTE CNT                            ELS14392
*                                                                       ELS14393
         LW,14    BUFFER,3                                              ELS14394
         BAL,15   HEXEBC                                                ELS14395
         LW,4     14                                                    ELS14396
         LW,5     15                                                    ELS14397
         BAL,15   STMSG8                                                ELS14398
         DATA     MSG4                                                  ELS14399
         LI,4     8                                                     ELS14400
         STB,4    MSG4                                                  ELS14401
*                                                                       ELS14402
         LB,13    BUFFER                                                ELS14403
         CW,13    SEQFLG                                                ELS14404
         BE       P53X                                                  ELS14405
         BAL,15   CT:PRINT                                              ELS14406
         DATA     TC53                                                  ELS14407
RTRN53   LB,13    BUFFER                                                ELS14408
         STW,13   SEQFLG                                                ELS14409
         B        CKRTRN                                                ELS14410
*                                                                       ELS14411
P53X     BAL,15   CT:PRINT                                              ELS14412
         DATA     TC53X                                                 ELS14413
         B        RTRN53                                                ELS14414
*                                                                       ELS14415
*                                                                       ELS14416
TC53     BS       4,21,1,128,1,144,1,21,1,180,0,67,X'FF',;              S1--0588
                  20,13,123,2,121,4,130,X'FF',;                         ELS14418
                  24,10,129,3,32,4,131,1,32,X'FF',;                     ELS14419
                  1,2,2,4,3,2,4,X'FF'                                   ELS14420
*                                                                       ELS14421
TC53X    BS       1,1,2,2,4,3,2,4,X'FF'                                 ELS14422
*                                                                       ELS14423
*                                                                       ELS14424
         PAGE                                                           ELS14425
RT26     EQU      %                                                     ELS14426
         LB,13    BUFFER                                                ELS14427
         CW,13    SEQFLG                                                ELS14428
         BE       NX26                                                  ELS14429
         BAL,15   L:SPACE3                                              S1--0590
NX26     EQU      %                                                     ELS14433
         LW,14    BUFFER            IO ADR                              ELS14434
         AND,14   XXXXFFFF                                              ELS14435
         BAL,15   HEXEBC                                                ELS14436
         LW,5     15                                                    ELS14437
         BAL,15   STMSG4                                                ELS14438
         DATA     MSG2                                                  ELS14439
         LI,4     4                                                     ELS14440
         STB,4    MSG2                                                  ELS14441
         LI,4     5                 CURR CMD DW 1                       ELS14442
         LW,14    BUFFER,4                                              ELS14443
         BAL,15   HEXEBC                                                ELS14444
         LW,4     14                                                    ELS14445
         LW,5     15                                                    ELS14446
         BAL,15   STMSG8                                                ELS14447
         DATA     MSG3                                                  ELS14448
         LI,10    8                                                     ELS14449
         STB,10   MSG3                                                  ELS14450
         LI,4     6                                                     ELS14451
         LW,14    BUFFER,4          CURR CMD DW 2                       ELS14452
         BAL,15   HEXEBC                                                ELS14453
         LW,4     14                                                    ELS14454
         LW,5     15                                                    ELS14455
         BAL,15   STMSG8                                                ELS14456
         DATA     MSG4                                                  ELS14457
         STB,10   MSG4                                                  ELS14458
         LCI      2                                                     ELS14459
         LM,14    BUFFER,3          WK STAT NAME                        ELS14460
         SCD,14   -8                                                    ELS14461
         LB,4     14                                                    ELS14462
         STB,4    MSG5B                                                 ELS14463
         LCI      2                                                     ELS14464
         STM,14   MSG5                                                  ELS14465
         STB,10   MSG5                                                  ELS14466
         LW,14    BUFFER,2          RB:FLAGS                            ELS14467
         CW,14    VALIDWK                                               ELS14468
         BANZ     WKNM                                                  ELS14469
         LW,15    X40X                                                  ELS14470
         STW,15   MSG5                                                  ELS14471
         STW,15   MSG5A                                                 ELS14472
         STW,15   MSG5B                                                 ELS14473
         STB,10   MSG5                                                  ELS14474
WKNM     EQU      %                                                     ELS14475
         BAL,15   HEXEBC                                                ELS14476
         LW,4     14                                                    ELS14477
         LW,5     15                                                    ELS14478
         BAL,15   STMSG8                                                ELS14479
         DATA     MSG6                                                  ELS14480
         LI,10    8                                                     ELS14481
         STB,10   MSG6                                                  ELS14482
         LI,4     7                                                     ELS14483
         LW,8     BUFFER,4          RP1,RP2,RP3,RP4                     ELS14484
         LB,14    8                                                     ELS14485
         BAL,15   HEXEBC                                                ELS14486
         SLS,15   8                                                     ELS14487
         STW,15   MSG7                                                  ELS14488
         STB,2    MSG7                                                  ELS14489
         LB,14    8,1               RP2                                 ELS14490
         BAL,15   HEXEBC                                                ELS14491
         SLS,15   8                                                     ELS14492
         STW,15   MSG8                                                  ELS14493
         STB,2    MSG8                                                  ELS14494
         LB,14    8,2               RP3                                 ELS14495
                  BAL,15            HEXEBC                              ELS14496
         SLS,15   8                                                     ELS14497
         STW,15   MSG9                                                  ELS14498
         STB,2    MSG9                                                  ELS14499
         LB,14    8,3               RP4                                 ELS14500
         BAL,15   HEXEBC                                                ELS14501
         SLS,15   8                                                     ELS14502
         STW,15   MSG10                                                 ELS14503
         STB,2    MSG10                                                 ELS14504
*                                                                       ELS14505
         BAL,15   TIME                                                  ELS14506
         LB,13    BUFFER                                                ELS14507
         CW,13    SEQFLG                                                ELS14508
         BE       P26X                                                  ELS14509
         BAL,15   CT:PRINT                                              ELS14510
         DATA     TC26                                                  ELS14511
RTRN26   EQU      %                                                     ELS14512
         LB,13    BUFFER                                                ELS14513
         STW,13   SEQFLG                                                ELS14514
         B        CKRTRN                                                ELS14515
P26X     EQU      %                                                     ELS14516
         BAL,15   CT:PRINT                                              ELS14517
         DATA     TC26X                                                 ELS14518
         B        RTRN26                                                ELS14519
*                                                                       ELS14520
TC26     BS       4,21,1,163,1,21,1,66,0,181,X'FF',;                    S1--0592
                  20,13,26,3,104,0,45,0,104,2,164,12,;                  ELS14522
                  142,0,166,0,103,0,104,X'FF',;                         ELS14523
                  24,10,32,5,65,8,66,8,117,4,165,2,;                    ELS14524
                  65,2,66,2,67,2,68,X'FF',;                             ELS14525
                  1,2,2,2,3,1,4,2,5,2,6,2,7,1,8,1,9,1,10,X'FF'          ELS14526
TC26X    BS       1,1,2,2,2,3,1,4,2,5,2,6,2,7,1,8,1,9,1,10,X'FF'        ELS14527
         PAGE                                                           ELS14528
RT49     EQU      %                                                     ELS14529
         LB,13    BUFFER                                                ELS14530
         CW,13    SEQFLG                                                ELS14531
         BE       NX49                                                  ELS14532
         BAL,15   L:SPACE3                                              S1--0594
NX49     EQU      %                                                     ELS14536
         LW,14    BUFFER,2          # OF ERRORS                         ELS14537
         BAL,15   HEXEBC                                                ELS14538
         SLD,14   8                                                     ELS14539
         BAL,4    STMSG6                                                ELS14540
         DATA     MSG13                                                 S1--0596
         LI,10    5                 CORRECT THE COUNT                   ELS14542
         STB,10   MSG13                                                 S1--0598
         LW,14    BUFFER,3          LOG 'AND' OF ADR                    S1--0599
         BAL,15   HEXEBC                                                ELS14545
         BAL,4    STMSG6                                                ELS14546
         DATA     MSG5                                                  S1--0601
         LI,4     5                                                     S1--0602
         LW,14    BUFFER,4          LOG 'AND' OF CONTENTS               S1--0603
         BAL,15   HEXEBC                                                ELS14550
         LI,10    8                                                     ELS14551
         STB,10   MSG6                                                  S1--0605
         LW,4     14                                                    ELS14553
         LW,5     15                                                    ELS14554
         BAL,15   STMSG8                                                ELS14555
         DATA     MSG6                                                  S1--0607
         LI,4     4                                                     S1--0608
         LW,14    BUFFER,4          LOG 'OR' OF ADR                     S1--0609
         BAL,15   HEXEBC                                                ELS14559
         BAL,4    STMSG6                                                ELS14560
         DATA     MSG3                                                  S1--0611
         LI,4     6                                                     S1--0612
         LW,14    BUFFER,4          LOG 'OR' OF CONTENTS                S1--0613
         BAL,15   HEXEBC                                                ELS14564
         LW,4     14                                                    ELS14565
         LW,5     15                                                    ELS14566
         BAL,15   STMSG8                                                ELS14567
         DATA     MSG4                                                  S1--0615
         STB,10   MSG4                                                  S1--0616
         LI,4     4*7                                                   ELS14570
         LB,14    BUFFER,4          CC OF LOWEST                        ELS14571
         BAL,15   HEXEBC                                                ELS14572
         SLS,15   8                                                     ELS14573
         STB,1    15                                                    ELS14574
         STW,15   MSG7                                                  ELS14575
         LI,4     7                                                     ELS14576
         LW,14    BUFFER,4          ADR OF LOW                          ELS14577
         AND,14   XX7FFFFF                                              ELS14578
         BAL,15   HEXEBC                                                ELS14579
         BAL,4    STMSG6                                                ELS14580
         DATA     MSG8                                                  ELS14581
         LI,4     8                                                     ELS14582
         LW,14    BUFFER,4          CONTENTS OF LOW                     ELS14583
         BAL,15   HEXEBC                                                ELS14584
         STB,10   MSG9                                                  ELS14585
         LW,4     14                                                    ELS14586
         LW,5     15                                                    ELS14587
         BAL,15   STMSG8                                                ELS14588
         DATA     MSG9                                                  ELS14589
         LI,4     4*9                                                   ELS14590
         LB,14    BUFFER,4          CC OF HIGH                          ELS14591
         BAL,15   HEXEBC                                                ELS14592
         SLS,15   8                                                     ELS14593
         STB,1    15                                                    ELS14594
         STW,15   MSG10                                                 ELS14595
         LI,4     9                                                     ELS14596
         LW,14    BUFFER,4          ADR OF HIGH                         ELS14597
         AND,14   XX7FFFFF                                              ELS14598
         BAL,15   HEXEBC                                                ELS14599
         BAL,4    STMSG6                                                ELS14600
         DATA     MSG11                                                 ELS14601
         LI,4     10                                                    ELS14602
         LW,14    BUFFER,4          CONTENTS OF HIGH                    ELS14603
         BAL,15   HEXEBC                                                ELS14604
         STB,10   MSG12                                                 ELS14605
         LW,4     14                                                    ELS14606
         LW,5     15                                                    ELS14607
         BAL,15   STMSG8                                                ELS14608
         DATA     MSG12                                                 ELS14609
         BAL,15   TIME                                                  ELS14610
*                                                                       S1--0618
*                                 GET CPU ADR                           S1--0619
         BAL,15   GETCPU                                                S1--0620
         DATA     MSG2                                                  S1--0621
*                                                                       ELS14611
         LB,13    BUFFER                                                ELS14612
         CW,13    SEQFLG                                                ELS14613
         BE       P49X                                                  ELS14614
         BAL,15   CT:PRINT                                              ELS14615
         DATA     TC49                                                  ELS14616
RTRN49   EQU      %                                                     ELS14617
         LB,13    BUFFER                                                ELS14618
         STW,13   SEQFLG                                                ELS14619
         B        CKRTRN                                                ELS14620
P49X     EQU      %                                                     ELS14621
         BAL,15   CT:PRINT                                              ELS14622
         DATA     TC49X                                                 ELS14623
         B        RTRN49                                                ELS14624
*                                                                       ELS14625
TC49     BS       X'84',47,1,138,1,137,1,47,1,68,0,184,X'FF',;          S1--0623
                  20,13,95,3,103,0,169,1,170,0,104,1,103,0,169,1,171,;  S1--0625
                  0,103,1,103,0,173,1,174,1,175,0,104,2,;               ELS14628
                  103,0,173,1,174,1,176,0,103,2,139,X'FF',;             S1--0627
                  24,10,32,3,32,2,172,2,32,2,172,1,34,2,;               S1--0628
                  32,2,172,2,34,2,32,2,172,2,157,X'FF',;                S1--0629
                  1,2,2,2,3,1,4,1,5,1,6,1,7,2,8,1,9,;                   S1--0630
                  2,10,2,11,1,12,2,13,X'FF'                             S1--0631
*                                                                       S1--0632
TC49X    BS       1,1,2,2,2,3,1,4,1,5,1,6,1,7,2,8,1,9,;                 S1--0633
                  2,10,2,11,1,12,2,13,X'FF'                             S1--0634
         END      CLIS:0                                                ELS14636

