 TITLE 'CP-V/CP-R CONTROL PROG. ELLA. 708006-A02   9.XX.75'             RT--0003
*                                                                       ELRT0008
*                                                                       ELRT0009
*                                                                       ELRT0010
*  ******************************************************               ELRT0011
*  IMPORTANT NOTE:                                                      ELRT0012
*-------------------                                                    ELRT0013
*  ANYTIME ANY MODULE OF THE ERROR LOG LIST/ANALYSIS PROG               ELRT0014
*  IS TO BE CHANGED TO ANOTHER LETTER VERSION.. PLEASE REVISE           ELRT0015
*  THE OUTPUT HEADER OF ELLA IN THE TEXT STATEMENT WITH LABEL           ELRT0016
*  NAME  'HEAD1'                                                        ELRT0017
*                                                                       ELRT0018
*                                                                       ELRT0019
*                                                                       ELRT0020
*                                                                       ELRT0021
*                                                                       ELRT0022
*                                                                       ELRT0023
*  *********************************************************            ELRT0024
*                                                                       ELRT0025
*                                                                       ELRT0026
*                                                                       ELRT0027
         PAGE                                                           ELRT0028
         SYSTEM   SIG7FDP                                               ELRT0029
         CSECT                                                          ELRT0030
*                                                                       ELRT0031
*                                                                       ELRT0032
*PROCEDURES.                                                            ELRT0033
*                                                                       ELRT0034
*  THESE PROCS WILL SUPRESS LISTING OF TEXT OBJECT CODE                 ELRT0035
*                                                                       ELRT0036
*                                                                       ELRT0037
*                                                                       ELRT0038
*                                                                       ELRT0039
*                                                                       ELRT0040
*                                                                       ELRT0041
*                                                                       ELRT0042
TEXTS    CNAME                                                          ELRT0043
         PROC                                                           ELRT0044
         DISP     %                                                     ELRT0045
         LIST     0                                                     ELRT0046
LF       TEXT     AF                                                    ELRT0047
         LIST     1                                                     ELRT0048
         PEND                                                           ELRT0049
*                                                                       ELRT0050
* THIS PROC WILL GENERATE A STRING OF BYTE FIELDS.                      ELRT0051
*                                                                       ELRT0052
BS       CNAME                                                          ELRT0053
         PROC                                                           ELRT0054
         BOUND    4                                                     ELRT0055
LF       EQU      %                                                     ELRT0056
I        DO       NUM(AF)                                               ELRT0057
         DATA,1   AF(I)                                                 ELRT0058
         FIN                                                            ELRT0059
         BOUND    4                                                     ELRT0060
         PEND                                                           ELRT0061
         PAGE                                                           ELRT0062
*                                                                       ELRT0063
*                                                                       ELRT0064
*        BIFSYS *(KEY,*ADDR) . . .                                      ELRT0065
*                                                                       ELRT0066
*        KEY IS SYSTEM NAME (CPR,CPV,RBM)                               ELRT0067
*        ADDR IS BRANCH ADDRESS                                         ELRT0068
*        GROUP MAY BE REPEATED FOR MULTIPLE TEST/BRANCHES               ELRT0069
*        AFA(I)   INDICATES B IF NOT SYSTEM                             ELRT0070
*        AFA(I,2) INDICATES B INDIRECT                                  ELRT0071
*                                                                       ELRT0072
*                                                                       ELRT0073
BIFSYS   CNAME                                                          ELRT0074
         PROC                                                           ELRT0075
         LOCAL    I,T1                                                  ELRT0076
         GEN,8,4,20  X'71',1,S:SYS         CB,1 S:SYS                   ELRT0077
I        DO       NUM(AF)                                               ELRT0078
T1       SET      SCOR(AF(I,1),RBM,CPR)                                 ELRT0079
         DO       T1>0                                                  ELRT0080
         GEN,1,7,4,20  AFA(I,2),X'69'-AFA(I),T1,AF(I,2)                 ELRT0081
         ELSE                                                           ELRT0082
         GEN,1,7,4,20  AFA(I,2),X'68'+AFA(I),3,AF(I,2)                  ELRT0083
         FIN                                                            ELRT0084
         FIN                                                            ELRT0085
         PEND                                                           ELRT0086
*                                                                       ELRT0087
*                                                                       ELRT0088
         PAGE                                                           ELRT0089
*                                                                       ELRT0090
*        DEFINITIONS.                                                   ELRT0091
         DEF      EL:DCB                                                ELRT0092
*                                                                       ELRT0093
         DEF      R:COM,REW:FLAG,READ:ERF                               ELRT0094
         DEF      L:PRINT,E:PRINT                                       ELRT0095
         DEF      L:SPACE                                               ELRT0096
         DEF      L:SPACE2,L:SPACE3                                     RT--0006
         DEF      TYPEF,:TYPE:,MODF,:MOD:,DEVF,:DEV:                    ELRT0097
         DEF      HEXDEC:,HEXDECE,DECHEX:,HEXFIVE,BINEBC,HEXTWO         ELRT0098
         DEF      HEXEBC,EBCHEX8,EBCHEX1                                ELRT0099
         DEF      MS:HMSN,HMSN:MS,JD:MD,MD:JD                           ELRT0100
         DEF      HEXFOUR                                               ELRT0101
         DEF      BUFFER                                                ELRT0102
         DEF      CT:PRINT                                              ELRT0103
         DEF      COMBUFF                                               ELRT0104
         DEF      YEAR:0,YEAR:1,YEAR:2                                  ELRT0105
         DEF      DATE:0,DATE:1,DATE:2                                  ELRT0106
         DEF      TIME:00,TIME:1,TIME:2                                 ELRT0107
         DEF      XFOX,XF9X                                             ELRT0108
         DEF      COB,CAB,X4BD5                                         ELRT0109
         DEF      A:7                                                   ELRT0110
         DEF      S:SYS,DSP:,F:F                                        ELRT0111
         DEF      TIME:ZR,S:FLAG,YEAR:3,DATE:3,TIME:3                   ELRT0112
         DEF      GETDT                                                 ELRT0113
        DEF       CF                                                    ELRT0114
        DEF      JD:R,YR:R,TM:R                                         ELRT0115
         DEF      MOD:EBC                                               ELRT0116
         DEF      MDIO,PAGECNT,MODTBL:,READFIL,TABPNTR                  ELRT0117
         DEF      IOMD                                                  ELRT0118
         DEF      RSE:                                                  ELRT0119
         DEF      FLAG:PR                                               ELRT0120
         DEF      BRK:CHK                                               ELRT0121
         DEF      IONDD                                                 ELRT0122
* MESSAGES 1-19 DEFINITIONS.........                                    ELRT0123
*                                                                       ELRT0124
         DEF      MSG1,MSG2,MSG3,MSG4,MSG5,MSG6                         ELRT0125
         DEF      MSG7,MSG8,MSG9,MSG10,MSG11,MSG12                      ELRT0126
         DEF      MSG13,MSG14,MSG15,MSG16,MSG17,MSG18                   ELRT0127
         DEF      MSG19                                                 ELRT0128
         DEF      MSG154                                                ELRT0129
         DEF      MSG1A,MSG1B,MSG1C                                     ELRT0130
         DEF      MSG2A,MSG2B,MSG3A,MSG3B,MSG4A,MSG4B                   ELRT0131
         DEF      MSG5A,MSG5B,MSG6A,MSG6B,MSG7A,MSG7B                   ELRT0132
         DEF      MSG8A,MSG8B,MSG9A,MSG9B,MSG10A,MSG10B                 ELRT0133
         DEF      MSG11A,MSG11B,MSG12A,MSG12B,MSG13A,MSG13B             ELRT0134
         DEF      MSG14A,MSG14B,MSG15A,MSG15B,MSG16A,MSG16B             ELRT0135
         DEF      MSG17A,MSG17B,MSG18A,MSG18B,MSG19A,MSG19B             ELRT0136
**********************************************************              RT--0008
**********************************************************              RT--0009
*                                                                       RT--0010
*        THIS INSERT IS FOR THE BENEFIT OF DDEBUGGING ON THE            ELRT0140
*        CP-R SYSTEM............ DELETE AFTER USE.......                ELRT0141
*                                                                       ELRT0142
*                                                                       ELRT0143
         DEF      BIOPEN,ELASSIGN                                       ELRT0144
*                                                                       ELRT0145
**********************************************************              RT--0012
**********************************************************              RT--0013
         PAGE                                                           ELRT0151
*                                                                       ELRT0152
*        REFERENCES.                                                    ELRT0153
*                                                                       ELRT0154
         SREF     J:JIT,JB:PRIV     REFS TO CPV JIT TABLE               ELRT0155
         REF      M:SI,M:OC,M:LO,M:BI                                   ELRT0156
         REF      SUM:0,CLIS:0,SLIS:0,DISP:0,TIME:0                     ELRT0157
         REF      TYPE:0,DEV:0,MOD:0                                    ELRT0158
         REF      MOS:0
         SREF     CSTAB                                                 ELRT0159
*                              USED FOR CP-R (SORT TABLE USE)           ELRT0160
         PAGE                                                           ELRT0161
*                                                                       ELRT0162
*        DIRECTORY TABLE:                                               ELRT0163
*                                                                       ELRT0164
*        FORMAT FOR THE TABLE OF COMMANDS.                              ELRT0165
*                                                                       ELRT0166
*        TEXTX    COMMAND NAME                                          ELRT0167
*        DATA     ADDRESS OF ENTRY TO COMMAND OVERLAY.                  ELRT0168
*                                                                       ELRT0169
*        THIS TABLE ENDS WITH A ZERO.                                   ELRT0170
*                                                                       ELRT0171
         DEF      RT                                                    ELRT0172
RT       EQU      %                                                     ELRT0173
TABLE:   DATA     %+1                                                   ELRT0174
TA:CLIS  TEXTS    'CLIS'            CHRONOLOGICAL                       ELRT0175
         DATA     CLIS:                                                 ELRT0176
         DATA     0                                                     ELRT0177
TA:SUM   TEXTS    'SUM'             SUMMARY                             ELRT0178
         DATA     SUM:                                                  ELRT0179
         DATA     0                                                     ELRT0180
TA:SLIS  TEXTS    'SLIS'            SORTED                              ELRT0181
         DATA     SLIS:                                                 ELRT0182
         DATA     0                                                     ELRT0183
TA:DISP  TEXTS    'DISP'            DISPLAY GRAPHIC                     ELRT0184
         DATA     DISP:                                                 ELRT0185
         DATA     2                                                     ELRT0186
TA:ANLZ  TEXTS    'ANLZ'            ANALYZE                             ELRT0187
         DATA     ANLZ:                                                 ELRT0188
         DATA     0                                                     ELRT0189
TA:DSPL  TEXTS    'DSPL'            DISPLAY BOUNDARIES                  ELRT0190
         DATA     DSPL:                                                 ELRT0191
         DATA     0                                                     ELRT0192
TA:TIME  TEXTS    'TIME'            TIME SELECTOR                       ELRT0193
         DATA     TIME:                                                 ELRT0194
         DATA     1                                                     ELRT0195
TA:TYPE  TEXTS    'TYPE'            TYPE SELECTOR                       ELRT0196
         DATA     TYPE:                                                 ELRT0197
         DATA     1                                                     ELRT0198
TA:MOD   TEXTS    'MOD'             MODEL SELECTOR                      ELRT0199
         DATA     MOD:                                                  ELRT0200
         DATA     1                                                     ELRT0201
TA:DEV   TEXTS    'DEV'             DEVICE SELECTOR                     ELRT0202
         DATA     DEV:                                                  ELRT0203
         DATA     1                                                     ELRT0204
TA:RSET  TEXTS    'RSET'            RESET TIME AND SELECT PARAMETERS    ELRT0205
         DATA     RSET:                                                 ELRT0206
         DATA     0                                                     ELRT0207
TA:END   TEXTS    'END'             END PROGRAM                         ELRT0208
         DATA     END:                                                  ELRT0209
         DATA     0                                                     ELRT0210
TA:SET   TEXTS    'SET'             SET                                 ELRT0211
         DATA     SET:                                                  ELRT0212
         DATA     1                                                     ELRT0213
TA:MOS   TEXTS    'MOS'             MOS
         DATA     MOS:
         DATA     1
         DATA     0                                                     ELRT0214
         PAGE                                                           ELRT0215
* MSG1 THRU MSG19 ARE RESERVED FOR USER'S DATA AREA.                    ELRT0216
TE:TABLE EQU      %                                                     ELRT0217
         DATA     160               TABL CNT                            ELRT0218
         DATA     MSG1                                                  ELRT0219
         DATA     MSG2                                                  ELRT0220
         DATA     MSG3                                                  ELRT0221
         DATA     MSG4                                                  ELRT0222
         DATA     MSG5                                                  ELRT0223
         DATA     MSG6                                                  ELRT0224
         DATA     MSG7                                                  ELRT0225
         DATA     MSG8                                                  ELRT0226
         DATA     MSG9                                                  ELRT0227
         DATA     MSG10                                                 ELRT0228
         DATA     MSG11                                                 ELRT0229
         DATA     MSG12                                                 ELRT0230
         DATA     MSG13                                                 ELRT0231
         DATA     MSG14                                                 ELRT0232
         DATA     MSG15                                                 ELRT0233
         DATA     MSG16                                                 ELRT0234
         DATA     MSG17                                                 ELRT0235
         DATA     MSG18                                                 ELRT0236
         DATA     MSG19                                                 ELRT0237
* TEXT AREA STARTS FROM MSG20 :                                         ELRT0238
         DATA     MSG20                                                 ELRT0239
         DATA     MSG21                                                 ELRT0240
         DATA     MSG22                                                 ELRT0241
         DATA     MSG23                                                 ELRT0242
         DATA     MSG24                                                 ELRT0243
         DATA     MSG25                                                 ELRT0244
         DATA     MSG26                                                 ELRT0245
         DATA     MSG27                                                 ELRT0246
         DATA     MSG28                                                 ELRT0247
         DATA     MSG29                                                 ELRT0248
         DATA     MSG30                                                 ELRT0249
         DATA     MSG31                                                 ELRT0250
         DATA     MSG32                                                 ELRT0251
         DATA     MSG33                                                 ELRT0252
         DATA     MSG34                                                 ELRT0253
         DATA     MSG35                                                 ELRT0254
         DATA     MSG36                                                 ELRT0255
         DATA     MSG37                                                 ELRT0256
         DATA     MSG38                                                 ELRT0257
         DATA     MSG39                                                 ELRT0258
         DATA     MSG40                                                 ELRT0259
         DATA     MSG41                                                 ELRT0260
         DATA     MSG42                                                 ELRT0261
         DATA     MSG43                                                 ELRT0262
         DATA     MSG44                                                 ELRT0263
         DATA     MSG45                                                 ELRT0264
         DATA     MSG46                                                 ELRT0265
         DATA     MSG47                                                 ELRT0266
         DATA     MSG48                                                 ELRT0267
         DATA     MSG49                                                 ELRT0268
         DATA     MSG50                                                 ELRT0269
         DATA     MSG51                                                 ELRT0270
         DATA     MSG52                                                 ELRT0271
         DATA     MSG53                                                 ELRT0272
         DATA     MSG54                                                 ELRT0273
         DATA     MSG55                                                 ELRT0274
         DATA     MSG56                                                 ELRT0275
         DATA     MSG57                                                 ELRT0276
         DATA     MSG58                                                 ELRT0277
         DATA     MSG59                                                 ELRT0278
         DATA     MSG60                                                 ELRT0279
         DATA     MSG61                                                 ELRT0280
         DATA     MSG62                                                 ELRT0281
         DATA     MSG63                                                 ELRT0282
         DATA     MSG64                                                 ELRT0283
         DATA     MSG65                                                 ELRT0284
         DATA     MSG66                                                 ELRT0285
         DATA     MSG67                                                 ELRT0286
         DATA     MSG68                                                 ELRT0287
         DATA     MSG69                                                 ELRT0288
         DATA     MSG70                                                 ELRT0289
         DATA     MSG71                                                 ELRT0290
         DATA     MSG72                                                 ELRT0291
         DATA     MSG73                                                 ELRT0292
         DATA     MSG74                                                 ELRT0293
         DATA     MSG75                                                 ELRT0294
         DATA     MSG76                                                 ELRT0295
         DATA     MSG77                                                 ELRT0296
         DATA     MSG78                                                 ELRT0297
         DATA     MSG79                                                 ELRT0298
         DATA     MSG80                                                 ELRT0299
         DATA     MSG81                                                 ELRT0300
         DATA     MSG82                                                 ELRT0301
         DATA     MSG83                                                 ELRT0302
         DATA     MSG84                                                 ELRT0303
         DATA     MSG85                                                 ELRT0304
         DATA     MSG86                                                 ELRT0305
         DATA     MSG87                                                 ELRT0306
         DATA     MSG88                                                 ELRT0307
         DATA     MSG89                                                 ELRT0308
         DATA     MSG90                                                 ELRT0309
         DATA     MSG91                                                 ELRT0310
         DATA     MSG92                                                 ELRT0311
         DATA     MSG93                                                 ELRT0312
         DATA     MSG94                                                 ELRT0313
         DATA     MSG95                                                 ELRT0314
         DATA     MSG96                                                 ELRT0315
         DATA     MSG97                                                 ELRT0316
         DATA     MSG98                                                 ELRT0317
         DATA     MSG99                                                 ELRT0318
         DATA     MSG100                                                ELRT0319
         DATA     MSG101                                                ELRT0320
         DATA     MSG102                                                ELRT0321
         DATA     MSG103                                                ELRT0322
         DATA     MSG104                                                ELRT0323
         DATA     MSG105                                                ELRT0324
         DATA     MSG106                                                ELRT0325
         DATA     MSG107                                                ELRT0326
         DATA     MSG108                                                ELRT0327
         DATA     MSG109                                                ELRT0328
         DATA     MSG110                                                ELRT0329
         DATA     MSG111                                                ELRT0330
         DATA     MSG112                                                ELRT0331
         DATA     MSG113                                                ELRT0332
         DATA     MSG114                                                ELRT0333
         DATA     MSG115                                                ELRT0334
         DATA     MSG116                                                ELRT0335
         DATA     MSG117                                                ELRT0336
         DATA     MSG118                                                ELRT0337
         DATA     MSG119                                                ELRT0338
         DATA     MSG120                                                ELRT0339
         DATA     MSG121                                                ELRT0340
         DATA     MSG122                                                ELRT0341
         DATA     MSG123                                                ELRT0342
         DATA     MSG124                                                ELRT0343
         DATA     MSG125                                                ELRT0344
         DATA     MSG126                                                ELRT0345
         DATA     MSG127                                                ELRT0346
         DATA     MSG128                                                ELRT0347
         DATA     MSG129                                                ELRT0348
         DATA     MSG130                                                ELRT0349
         DATA     MSG131                                                ELRT0350
         DATA     MSG132                                                ELRT0351
         DATA     MSG133                                                ELRT0352
         DATA     MSG134                                                ELRT0353
         DATA     MSG135                                                ELRT0354
         DATA     MSG136                                                ELRT0355
         DATA     MSG137                                                ELRT0356
         DATA     MSG138                                                ELRT0357
         DATA     MSG139                                                ELRT0358
         DATA     MSG140                                                ELRT0359
         DATA     MSG141                                                ELRT0360
         DATA     MSG142                                                ELRT0361
         DATA     MSG143                                                ELRT0362
         DATA     MSG144                                                ELRT0363
         DATA     MSG145                                                ELRT0364
         DATA     MSG146                                                ELRT0365
         DATA     MSG147                                                ELRT0366
         DATA     MSG148                                                ELRT0367
         DATA     MSG149                                                ELRT0368
         DATA     MSG150                                                ELRT0369
         DATA     MSG151                                                ELRT0370
         DATA     MSG152                                                ELRT0371
         DATA     MSG153                                                ELRT0372
         DATA     MSG154                                                ELRT0373
         DATA     MSG155                                                ELRT0374
         DATA     MSG156                                                ELRT0375
         DATA     MSG157                                                ELRT0376
         DATA     MSG158,MSG159,MSG160                                  ELRT0377
         DATA     MSG161,MSG162,MSG163,MSG164,MSG165                    ELRT0378
         DATA     MSG166,MSG167,MSG168,MSG169,MSG170                    ELRT0379
         DATA     MSG171,MSG172,MSG173,MSG174,MSG175,MSG176             ELRT0380
         DATA     MSG177,MSG178,MSG179,MSG180,MSG181,MSG182             RT--0015
         DATA     MSG183,MSG184,MSG185,MSG186,MSG187,MSG188             RT--0016
         DATA     MSG189,MSG190,MSG191                                  RT--0017
*                                                                       ELRT0381
*                                                                       ELRT0382
*                                                                       ELRT0383
         PAGE                                                           ELRT0384
*                                                                       ELRT0385
*        MESSAGE AREA FOR THE TEXT COMPRESSION TABLE.                   ELRT0386
*                                                                       ELRT0387
MSG1     DATA     X'0C40407A'                                           ELRT0388
MSG1A    DATA     X'40407A40'                                           ELRT0389
MSG1B    DATA     X'407A4040'                                           ELRT0390
MSG1C    DATA     X'40404040'                                           ELRT0391
MSG2     DATA     0                                                     ELRT0392
MSG2A    DATA     0                                                     ELRT0393
MSG2B    DATA     0                                                     ELRT0394
MSG3     DATA     0                                                     ELRT0395
MSG3A    DATA     0                                                     ELRT0396
MSG3B    DATA     0                                                     ELRT0397
MSG4     DATA     0                                                     ELRT0398
MSG4A    DATA     0                                                     ELRT0399
MSG4B    DATA     0                                                     ELRT0400
MSG5     DATA     0                                                     ELRT0401
MSG5A    DATA     0                                                     ELRT0402
MSG5B    DATA     0                                                     ELRT0403
MSG6     DATA     0                                                     ELRT0404
MSG6A    DATA     0                                                     ELRT0405
MSG6B    DATA     0                                                     ELRT0406
MSG7     DATA     0                                                     ELRT0407
MSG7A    DATA     0                                                     ELRT0408
MSG7B    DATA     0                                                     ELRT0409
MSG8     DATA     0                                                     ELRT0410
MSG8A    DATA     0                                                     ELRT0411
MSG8B    DATA     0                                                     ELRT0412
MSG9     DATA     0                                                     ELRT0413
MSG9A    DATA     0                                                     ELRT0414
MSG9B    DATA     0                                                     ELRT0415
MSG10    DATA     0                                                     ELRT0416
MSG10A   DATA     0                                                     ELRT0417
MSG10B   DATA     0                                                     ELRT0418
MSG11    DATA     0                                                     ELRT0419
MSG11A   DATA     0                                                     ELRT0420
MSG11B   DATA     0                                                     ELRT0421
MSG12    DATA     0                                                     ELRT0422
MSG12A   DATA     0                                                     ELRT0423
MSG12B   DATA     0                                                     ELRT0424
MSG13    DATA     0                                                     ELRT0425
MSG13A   DATA     0                                                     ELRT0426
MSG13B   DATA     0                                                     ELRT0427
MSG14    DATA     0                                                     ELRT0428
MSG14A   DATA     0                                                     ELRT0429
MSG14B   DATA     0                                                     ELRT0430
MSG15    DATA     0                                                     ELRT0431
MSG15A   DATA     0                                                     ELRT0432
MSG15B   DATA     0                                                     ELRT0433
MSG16    DATA     0                                                     ELRT0434
MSG16A   DATA     0                                                     ELRT0435
MSG16B   DATA     0                                                     ELRT0436
MSG17    DATA     0                                                     ELRT0437
MSG17A   DATA     0                                                     ELRT0438
MSG17B   DATA     0                                                     ELRT0439
MSG18    DATA     0                                                     ELRT0440
MSG18A   DATA     0                                                     ELRT0441
MSG18B   DATA     0                                                     ELRT0442
MSG19    DATA     0                                                     ELRT0443
MSG19A   DATA     0                                                     ELRT0444
MSG19B   DATA     0                                                     ELRT0445
         RES      20                                                    ELRT0446
*                                                                       ELRT0447
MSG20    TEXTC    ' '               A DUMMY SPACE                       ELRT0448
MSG21    TEXTC    '***'                                                 ELRT0449
MSG22    TEXTC    'SIO'                                                 ELRT0450
MSG23    TEXTC    'FAILURE'                                             ELRT0451
MSG24    TEXTC    'TIME'                                                ELRT0452
MSG25    TEXTC    'MDL'                                                 ELRT0453
MSG26    TEXTC    'I/O'                                                 ELRT0454
MSG27    TEXTC    'HIO'                                                 ELRT0455
MSG28    TEXTC    'TDV'                                                 ELRT0456
MSG29    TEXTC    'SUBC'                                                ELRT0457
MSG30    TEXTC    'TDV CUR'                                             ELRT0458
MSG31    TEXTC    'REM'                                                 ELRT0459
MSG32    TEXTC    'ADRS'                                                ELRT0460
MSG33    TEXTC    'STAT'                                                ELRT0461
MSG34    TEXTC    'CC'                                                  ELRT0462
MSG35    TEXTC    'COMM'                                                ELRT0463
MSG36    TEXTC    'DA'                                                  ELRT0464
MSG37    TEXTC    'BYTES'                                               ELRT0465
MSG38    TEXTC    'UNEXP. INTERRUPT'                                    ELRT0466
MSG39    TEXTC    'AIO'                                                 ELRT0467
MSG40    TEXTC    'VOLUME'                                              ELRT0468
MSG41    TEXTC    'SERIAL'                                              ELRT0469
MSG42    TEXTC    'COUNT'                                               ELRT0470
MSG43    TEXTC    'DEVICE'                                              ELRT0471
MSG44    TEXTC    'TIO'                                                 ELRT0472
MSG45    TEXTC    'CUR COMM DW'                                         ELRT0473
MSG46    TEXTC    '-RETRY-'                                             ELRT0474
MSG47    TEXTC    '...'                                                 ELRT0475
MSG48    TEXTC    'MFI'                                                 ELRT0476
MSG49    TEXTC    'REQ'                                                 ELRT0477
MSG50    TEXTC    'STATUS'                                              ELRT0478
MSG51    TEXTC    'DEVICE ERROR SECONDARY'                              ELRT0479
MSG52    TEXTC    'SEEK'                                                ELRT0480
MSG53    TEXTC    'TIMEOUT'                                             ELRT0481
MSG54    TEXTC    'SENSE'                                               ELRT0482
MSG55    TEXTC    'INFORMATION'                                         ELRT0483
MSG56    TEXTC    '---------'                                           ELRT0484
MSG57    TEXTC    'RBT'                                                 ELRT0485
MSG58    TEXTC    'SYMB'                                                ELRT0486
MSG59    TEXTC    'CODE'                                                ELRT0487
MSG60    TEXTC    'PARITY'                                              ELRT0488
MSG61    TEXTC    '------PSDW-------'                                   ELRT0489
MSG62    TEXTC    'REAL'                                                ELRT0490
MSG63    TEXTC    'TRAPPED'                                             ELRT0491
MSG64    TEXTC    'EFF.'                                                ELRT0492
MSG65    TEXTC    '1'                                                   ELRT0493
MSG66    TEXTC    '2'                                                   ELRT0494
MSG67    TEXTC    '3'                                                   ELRT0495
MSG68    TEXTC    '4'                                                   ELRT0496
MSG69    TEXTC    'MEMORY  FAULT INTERRUPT'                             ELRT0497
MSG70    TEXTC    'INSTRUCT'                                            ELRT0498
MSG71    TEXTC    'TRAP.INST.'                                          ELRT0499
MSG72    TEXTC    'WATCHDOG TIMER'                                      ELRT0500
MSG73    TEXTC    'SYSTEM STARTUP'                                      ELRT0501
MSG74    TEXTC    'DATE'                                                ELRT0502
MSG75    TEXTC    'START'                                               ELRT0503
MSG76    TEXTC    'RECOV'                                               ELRT0504
MSG77    TEXTC    'SCREECH'                                             ELRT0505
MSG78    TEXTC    'SUB-'                                                ELRT0506
MSG79    TEXTC    'TYPE'                                                ELRT0507
MSG80    TEXTC    'BAD GRANULE  RELEASE'                                RT--0019
MSG81    TEXTC    'PROCESSOR FAULT INTERRUPT'                           ELRT0509
MSG82    TEXTC    'DCT'                                                 ELRT0510
MSG83    TEXTC    'INDEX'                                               ELRT0511
MSG84    TEXTC    'PRIM'                                                ELRT0512
MSG85    TEXTC    'ALTN'                                                ELRT0513
MSG86    TEXTC    'CONFIGURATION'                                       ELRT0514
MSG87    TEXTC    'SYSTEM IDENTIFICATION'                               ELRT0515
MSG88    TEXTC    'CORE'                                                ELRT0516
MSG89    TEXTC    'SITE'                                                ELRT0517
MSG90    TEXTC    'SYSTEM'                                              ELRT0518
MSG91    TEXTC    '(K)'                                                 ELRT0519
MSG92    TEXTC    'RT'                                                  ELRT0520
MSG93    TEXTC    'RES'                                                 ELRT0521
MSG94    TEXTC    'OPTIONS'                                             ELRT0522
MSG95    TEXTC    'CPU'                                                 ELRT0523
MSG96    TEXTC    'SYMBIONT'                                            ELRT0524
MSG97    TEXTC    'REL.'                                                ELRT0525
MSG98    TEXTC    'BAD'                                                 ELRT0526
MSG99    TEXTC    'SECT'                                                ELRT0527
MSG100   TEXTC    'INSTRUCTION FAIL'                                    ELRT0528
MSG101   TEXTC    'RIO'                                                 ELRT0529
MSG102   TEXTC    '-'                                                   ELRT0530
MSG103   TEXTC    '--'                                                  ELRT0531
MSG104   TEXTC    '---'                                                 ELRT0532
MSG105   TEXTC    'ACTIVITY COUNT'                                      ELRT0533
MSG106   TEXTC    'INSTRUCTION EXCEPTION'                               ELRT0534
MSG107   TEXTC    'POWER FAILSAFE'                                      ELRT0535
MSG108   TEXTC    'I.D.'                                                ELRT0536
MSG109   TEXTC    'RB'                                                  ELRT0537
MSG110   TEXTC    'LOST'                                                ELRT0538
MSG111   TEXTC    'ENTRIES'                                             ELRT0539
MSG112   TEXTC    'ENTRY'                                               ELRT0540
MSG113   TEXTC    'UNIT'                                                ELRT0541
MSG114   TEXTC    'LAST'                                                ELRT0542
MSG115   TEXTC    'DUPLICATE'                                           ELRT0543
MSG116   TEXTC    'SECONDARY POLL RECORD'                               ELRT0544
MSG117   TEXTC    'NAME'                                                ELRT0545
MSG118   TEXTC    'POLL'                                                ELRT0546
MSG119   TEXTC    'FILE COPY'                                           ELRT0547
MSG120   TEXTC    'ERROR'                                               ELRT0548
MSG121   TEXTC    'DCB '                                                ELRT0549
MSG122   TEXTC    'ENQUEUE TABLE OVERFLOW'                              ELRT0550
MSG123   TEXTC    'USER'                                                ELRT0551
MSG124   TEXTC    'PARTITIONED'                                         ELRT0552
MSG125   TEXTC    'RESOURCE'                                            ELRT0553
MSG126   TEXTC    'CONTRLR'                                             ELRT0554
MSG127   TEXTC    'RETURNED'                                            ELRT0555
MSG128   TEXTC    'PRIVATE PACK'                                        ELRT0556
MSG129   TEXTC    'NO.'                                                 ELRT0557
MSG130   TEXTC    'ERRLOG'                                              ELRT0558
MSG131   TEXTC    'CALL'                                                ELRT0559
MSG132   TEXTC    'PROCESSOR'                                           ELRT0560
MSG133   TEXTC    'CL'                                                  ELRT0561
MSG134   TEXTC    'UN'                                                  ELRT0562
MSG135   TEXTC    'POLR'                                                ELRT0563
MSG136   TEXTC    'RESULTS'                                             ELRT0564
MSG137   TEXTC    'PARITY SECONDARY'                                    ELRT0565
MSG138   TEXTC    'MEMORY'                                              ELRT0566
MSG139   TEXTC    'PAR.'                                                ELRT0567
MSG140   TEXTC    'LOCATIONS'                                           ELRT0568
MSG141   TEXTC    'STATUS WORDS'                                        ELRT0569
MSG142   TEXTC    '----'                                                ELRT0570
MSG143   TEXTC    'FILE'                                                ELRT0571
MSG144   TEXTC    'INCONSISTENCY'                                       ELRT0572
MSG145   TEXTC    'ACCOUNT'                                             ELRT0573
MSG146   TEXTC    'RELATIVE'                                            ELRT0574
MSG147   TEXTC    'MODE'                                                ELRT0575
MSG148   TEXTC    'ORG'                                                 ELRT0576
MSG149   TEXTC    'HEX DUMP'                                            ELRT0577
MSG150   TEXTC    'CALLERS ADRS/'                                       ELRT0578
MSG151   TEXTC    'NO. GRANULES '                                       ELRT0579
MSG152   TEXTC    'UNKNOWN'                                             ELRT0580
MSG153   TEXTC    ' = '                                                 ELRT0581
MSG154   DATA     0,0,0                                                 ELRT0582
MSG155   TEXTC    '-RETRY-'                                             ELRT0583
MSG156   TEXTC    'OPERATOR MESSAGE'                                    ELRT0584
MSG157   TEXTC    'ERRS'                                                ELRT0585
MSG158   TEXTC    'COPY'                                                ELRT0586
MSG159   TEXTC    '('                                                   ELRT0587
MSG160   TEXTC    ')'                                                   ELRT0588
MSG161   TEXTC    'RIF'                                                 ELRT0589
MSG162   TEXTC    'ANLZ'                                                ELRT0590
MSG163   TEXTC    'REMOTE PROCESSING ERROR'                             ELRT0591
MSG164   TEXTC    'WORKSTAT'                                            ELRT0592
MSG165   TEXTC    'RB:FLAGS'                                            ELRT0593
MSG166   TEXTC    'RP'                                                  ELRT0594
MSG167   TEXTC    'HARDWARE'                                            ELRT0595
MSG168   TEXTC    'TERTIARY'                                            ELRT0596
MSG169   TEXTC    'LOGICAL'                                             ELRT0597
MSG170   TEXTC    'OR'                                                  ELRT0598
MSG171   TEXTC    'AND'                                                 ELRT0599
MSG172   TEXTC    'CONTENTS'                                            ELRT0600
MSG173   TEXTC    'LMS'                                                 ELRT0601
MSG174   TEXTC    'OF'                                                  ELRT0602
MSG175   TEXTC    'LOWEST'                                              ELRT0603
MSG176   TEXTC    'HIGHEST'                                             ELRT0604
MSG177   TEXTC    'ONLN'                                                RT--0021
MSG178   TEXTC    'TP'                                                  RT--0022
MSG179   TEXTC    'MP'                                                  RT--0023
MSG180   TEXTC    '5'                                                   RT--0024
MSG181   TEXTC    '6'                                                   RT--0025
MSG182   TEXTC    '7'                                                   RT--0026
MSG183   TEXTC    '8'                                                   RT--0027
MSG184   TEXTC    '9'                                                   RT--0028
MSG185   TEXTC    'A'                                                   RT--0029
MSG186   TEXTC    'B'                                                   RT--0030
MSG187   TEXTC    'C'                                                   RT--0031
MSG188   TEXTC    'D'                                                   RT--0032
MSG189   TEXTC    'E'                                                   RT--0033
MSG190   TEXTC    'F'                                                   RT--0034
MSG191   TEXTC    '0'                                                   RT--0035
         PAGE                                                           ELRT0605
*                                                                       ELRT0606
*                                                                       ELRT0607
*                                                                       ELRT0608
*  DATA AREA                                                            ELRT0609
*                                                                       ELRT0610
*                                                                       ELRT0611
*                                                                       ELRT0612
CIDFG    DATA     0            FLAG :SET = CID=KP                       ELRT0613
*                                   :RESET = CID = CR                   ELRT0614
X40X     DATA     X'40404040'       SPACES                              ELRT0615
ERRMSG3  TEXT     'INVALID REQUEST '                                    ELRT0616
MTCF     DATA     0                                                     ELRT0617
CF       DATA     0                                                     ELRT0618
MCF      DATA     0                                                     ELRT0619
COB      DATA     0                                                     ELRT0620
CAB      DATA     0            BYTE TRANSFER LOCATION.                  ELRT0621
RB       DATA     0                                                     ELRT0622
CONF     DATA     0                                                     ELRT0623
X4BD5    BS       X'40',X'6B',X'D',X'15',X'F',X'7'                      ELRT0624
XFFFF    DATA     X'FFFF'                                               ELRT0625
X1FF     DATA     X'1FF'                                                ELRT0626
BYTEIN   DATA     0                                                     ELRT0627
XC0X     DATA     X'C0000000'                                           ELRT0628
         DEF      DCT%MASK                                              ELRT0629
DCT%MASK DATA     X'7F'                                                 ELRT0630
LASTCODE DATA     0                                                     ELRT0631
         PAGE                                                           ELRT0632
S:SYS     DATA    0      SYSTEM CONFIGURATION.                          ELRT0633
*                              1ST BYTE= 00: CP-R                       ELRT0634
*                                        01: CP-V                       ELRT0635
*                                             02: RBM                   ELRT0636
*                              2ND BYTE= 00: SIGMA 5                    ELRT0637
*                                        01= SIGMA 5-7                  ELRT0638
*                                        02= SIGMA 9                    ELRT0639
*                                        03= TAURUS                     ELRT0640
*                              3RD BYTE= 00= BATCH MODE.                ELRT0641
*                                        01= GHOST JOB.                 ELRT0642
*                                        02= ON-LINE MODE.              ELRT0643
*                                                                       ELRT0644
*                                                                       ELRT0645
SYSIDF   DATA     0     SYSTEM ID SONFIGURATION....                     ELRT0646
*                                                                       ELRT0647
*        BYTE 0 = CP-R OR CP-V OR OTHERS..... LOOK AT X'2B' SIGNIF.     ELRT0648
*        BYTE 1 = SIGMA TAURUS BYTE........                             ELRT0649
*        BYTES 3-4   0...........                                       ELRT0650
*                                                                       ELRT0651
*                                                                       ELRT0652
S:FLAG   DATA     0            SORT FLAG USE FOR THE READ ERRFILE       ELRT0653
*                              AND THE SORT ROUTINE.                    ELRT0654
SLIS:F   DATA     0            SLIS FLAG TO SIGNIFY (1) SLIF MOD.       ELRT0655
SUM:F DATA   0        SUM FLAG PRESENCE FLAG.                           ELRT0656
MOS:F    DATA     0                 MOS PRESENCE FLAG
DISP:F   DATA     0                                                     ELRT0657
         PAGE                                                           ELRT0658
*                                                                       ELRT0659
*        DATA     PARAMETER AREA.                                       ELRT0660
*                                                                       ELRT0661
TYPEF    DATA     0                                                     ELRT0662
:TYPE:   DATA     0,0,0,0,0                                             ELRT0663
MODF     DATA     0                                                     ELRT0664
:MOD:    DATA     0,0,0,0,0                                             ELRT0665
DEVF     DATA     0                                                     ELRT0666
:DEV:    DATA     0,0,0,0,0                                             ELRT0667
YEAR:1   DATA     0            BEG. YEAR.                               ELRT0668
YEAR:2   DATA     0            ENDING YEAR.                             ELRT0669
DATE:1   DATA     0            BEG. DATE                                ELRT0670
DATE:2   DATA     0            ENDING DATE                              ELRT0671
TIME:1   DATA     0            BEG. TIME                                ELRT0672
TIME:2   DATA     0            ENDING TIME.                             ELRT0673
YEAR:0   DATA     0            CURRENT YEAR..                           ELRT0674
YEAR:3   DATA     99           DEFAULT YEAR....                         ELRT0675
DATE:0   DATA     0            CURRENT DATE..                           ELRT0676
DATE:3   DATA     365          DEFAULT DATE....                         ELRT0677
TIME:ZR  DATA     0            DEFAULT TIME.. (0)                       ELRT0678
TIME:3   DATA     (24*60*60*1000)-1  DEFAULT TIME (ENDING)              ELRT0679
TIME:00  DATA     0            CURRENT TIME..                           ELRT0680
         PAGE                                                           ELRT0681
*                                                                       ELRT0682
*                                                                       ELRT0683
*  FPT'S USED FOR THE OPENING MESSAGE.............                      ELRT0684
*                                                                       ELRT0685
*                                                                       ELRT0686
CID:OPEN GEN,1,7,7,17  1,X'14',0,CID:DCB                                ELRT0687
         DATA     X'C0000000',WRI:ERR,WRI:ABN                           ELRT0688
CM:CRS   GEN,1,7,7,17  1,X'2B',0,CID:DCB                                ELRT0689
         GEN,1,14,17   1,0,MD:DCB                                       ELRT0690
HED:WR1  GEN,1,7,7,17  1,X'11',0,CID:DCB                                ELRT0691
         BS       X'F0',0,0,X'10'                                       ELRT0692
         DATA     WRI:ERR,WRI:ABN,HEAD1,15                              ELRT0693
HEAD1    TEXT     'ELLA 708006-F00'
         PAGE                                                           ELRT0695
*                                                                       ELRT0696
*                                                                       ELRT0697
*                                                                       ELRT0698
*                                                                       ELRT0699
*                                                                       ELRT0700
*                                                                       ELRT0701
*                                                                       ELRT0702
*                                                                       ELRT0703
*   DCB USED BY ELLA.                                                   ELRT0704
*                                                                       ELRT0705
*                                                                       ELRT0706
CID:DCB  DATA     M:SI                                                  ELRT0707
LD:DCB   DATA     M:LO                                                  ELRT0708
EL:DCB   DATA     M:BI                                                  ELRT0709
MD:DCB   DATA     M:OC                                                  ELRT0710
*                                                                       ELRT0711
*                                                                       ELRT0712
*                                                                       ELRT0713
         PAGE                                                           ELRT0714
*                                                                       ELRT0715
*                                                                       ELRT0716
*  BREAK KEY INTERRUPT. WHENEVER BREAK IS HIT, ROUTINE                  ELRT0717
*  BRANCHES TO HERE.                                                    ELRT0718
*                                                                       ELRT0719
*                                                                       ELRT0720
*                                                                       ELRT0721
*                                                                       ELRT0722
*  BREAK INTERRUPT ROUTINE.                                             ELRT0723
*                                                                       ELRT0724
*                                                                       ELRT0725
INT:BRK  EQU      %                                                     ELRT0726
         MTW,0    BK:FG        CHECK FOR INTERRUPT FLAG SET.            ELRT0727
         BNEZ     INT:BRKX     BRANCH IF SET .                          ELRT0728
         LW,14    *1           FETCH PSD IN TCB...                      ELRT0729
         AND,14   XFFF                                                  ELRT0730
         LI,15    R:COM        START TO CHANGE ADDRESS.                 ELRT0731
         LI,5     1                                                     ELRT0732
         STH,15   14,5                                                  ELRT0733
         STW,14   *1           ALTER THE PSD.......                     ELRT0734
         LI,1     1                                                     ELRT0735
         LI,0     0                                                     ELRT0736
         STW,1    BK:FG        SET FLAG IF NOT SET.                     ELRT0737
         STW,1    BRK:CHK           SET BREAK OUT FLAG                  ELRT0738
         BAL,15   RSE:         ISSUE RESET FOR SORTED TABLES            ELRT0739
         LI,14    5                                                     ELRT0740
         BAL,15   E:PRINT                                               ELRT0741
         DATA     BRK:MSG                                               ELRT0742
         STW,0    BK:FG        RESET FLAG BEFORE EXITING.               ELRT0743
INT:BRKX EQU      %            EXIT.                                    ELRT0744
         CAL1,9      5          EXIT BREAK CONTROL.                     ELRT0745
*                                                                       ELRT0746
BK:FG    DATA     0            FLAG.                                    ELRT0747
BRK:FPT  GEN,8,24 X'0E',INT:BRK                                         ELRT0748
BRK:MSG  TEXT     'BREAK'                                               ELRT0749
BRK:CHK  DATA     0                                                     ELRT0750
XFFF     DATA     X'FFF00000'                                           ELRT0751
         PAGE                                                           ELRT0752
*                                                                       ELRT0753
*        START OF PROGRAM.                                              ELRT0754
*                                                                       ELRT0755
*                                                                       ELRT0756
*                                                                       ELRT0757
START    EQU      %                                                     ELRT0758
         LI,0     0            INITIALIZE 0,1,2,3                       ELRT0759
         LI,1     1                                                     ELRT0760
         LI,2     2                                                     ELRT0761
         LI,3     3                                                     ELRT0762
         STW,0    SG:DEST      CLEAR DESTINATION SEGLOAD LOC.           ELRT0763
         STW,0    SG:NR             CLEAR CURRENT SEG NR                ELRT0764
         STW,0    S:FLAG       INITIALIZE S:FLAG.                       ELRT0765
         STW,0    TAB1ST       CLEAR OUT SORT TABLE INDICATOR......     ELRT0766
         STW,0    TIME:ZR      CLEAR OUT TIME:ZR FOR USE.               ELRT0767
         STW,0    DEF:FLG      CLEAR DEFAULT FLAG.....                  ELRT0768
         STW,0    PAS:FLG      CLEAR THE DEFAULT PASS FLAG.....         ELRT0769
         LI,14    0            CLEAR 14                                 ELRT0770
         LB,13    X'2B'                                                 ELRT0771
         SLS,13   -4           FETCH THE MOST SIGNIFICANT HALF BYTE     ELRT0772
         CI,13    8            IS IT CP-R (8)                           ELRT0773
         BE       S:1          B: IF CP-R SYSTEM.............           ELRT0774
         STB,2    14                PROVISIONALLY SET RBM FLAG          ELRT0775
         CI,13    3                                                     ELRT0776
         BE       S:1               B IF SYSTEM IS RBM                  ELRT0777
         CI,13    7            IS IT CP-V (7)                           ELRT0778
         BNE      M:ABORT      B: IF NOT EQUAL TO CP-V NOR CP-R         ELRT0779
         STB,1    14           SET A ONE IN 14 IF CP-V                  ELRT0780
S:1      EQU      %            SET A ZERO IN 14 IF CP-R                 ELRT0781
         LW,13    X'2B'        FETCH CPU TYPE. 2ND BYTE                 ELRT0782
         LI,15    X'C0'        00 = 5, 01 = 5/7, 10 = 9, 11 = 560       ELRT0783
         AND,13   15                                                    ELRT0784
         SLS,13   10                                                    ELRT0785
         OR,14    13           OR'ED INTO REG.14                        ELRT0786
         STW,14   S:SYS        SAVE IN S:SYS.                           ELRT0787
         LI,13    0            RESET REG. 13                            ELRT0788
         BIFSYS   *(CPV,S:2)        B IF NOT CPV                        ELRT0789
         LB,13    J:JIT        FETCH MODE OF OPERATION.                 ELRT0790
         SLS,13   -6           00 = BATCH, 01 = GHOST, 10 = ON-LINE     ELRT0791
S:2      EQU      %                                                     ELRT0792
         STB,13   S:SYS,2      SAVE IN S:SYS.                           ELRT0793
         BAL,15   GETDT                                                 ELRT0794
*        THIS CODE CHECKS FOR LEAP YEAR AND CORRECTS MONTHTBL
*        FOR LEAP YEARS.
         LI,15    X'1C'
         LW,14    DATIME+3
         AND,14   XFFFF
         CI,14    X'100'
         BAZ      %+2
         AI,14    2
         CI,14    3
         BANZ     %+2
         LI,15    X'1D'             LEAP YEAR
         STW,15   MONTHTBL+1
*                                                                       ELRT0795
*  ...........................                                          ELRT0796
*                                                                       ELRT0797
*                                                                       ELRT0798
*  INITIALIZE M:BI TO FILE NAMED 'ERRFILE'                              ELRT0799
*                                                                       ELRT0800
*  IN CP-R USE ASSIGN CAL FOR SP AREA                                   ELRT0801
*  IN CP-V USE AN M:OPEN TO 'ERRFILE',':SYS'                            ELRT0802
*                                                                       ELRT0803
         BIFSYS   *(CPV,START:1)    B IF NOT CPV                        ELRT0804
*                                                                       ELRT0805
*                                                                       ELRT0806
*                                                                       ELRT0807
*                                                                       ELRT0808
* THIS SECTION WILL BE RESERVED TO ALTER THE M:BI OPEN                  ELRT0809
* TO ASSIGN THE M:BI ERRFILE TO M:BI.                                   ELRT0810
* THIS SECTION OF CODE MAY BE USED TO ALTER THE FPT ADDRESS             ELRT0811
* OF M:OPEN TO M:BI TO ASSIGN THE ERRFILE TO M:BI.                      ELRT0812
*                                                                       ELRT0813
* FOR THE MOMENT WE WILL JUST ISSUE THE M:INT BREAK FOR CP-V            ELRT0814
*                                                                       ELRT0815
*  CONNECT INTERRUPT BREAK.                                             ELRT0816
*                                                                       ELRT0817
         CAL1,8   BRK:FPT      CONNECT INTERRUPT BREAK.                 ELRT0818
*                                                                       ELRT0819
*                                                                       ELRT0820
*  SET UP THE PROMPT CALL TO BE USED UNDER A ON-LINE ENVIRONMENT.       ELRT0821
*                                                                       ELRT0822
         CAL1,1   PROMPT                                                ELRT0823
*                                                                       ELRT0824
*                                                                       ELRT0825
*        SET THE TOP OF FORM HEADER PRINT....... FOR CP-V               ELRT0826
*                                                                       ELRT0827
         BAL,15   PAX          SET UP THE DATE.....                     ELRT0828
         CAL1,1   LP:HEAD      TOP OF FORM HEADER CAL.....              ELRT0829
*                                                                       ELRT0830
*                                                                       ELRT0831
*                                                                       ELRT0832
*                                                                       ELRT0833
*  CHECK PRIVILEGE LEVEL OF A0 OR HIGHER.                               ELRT0834
*                                                                       ELRT0835
         LB,14    JB:PRIV      CHECK PRIVILIGE LEVEL.                   ELRT0836
         CI,14    X'A0'        A0 OR HIGHER.                            ELRT0837
         BGE      ST:23        OK: PRIV .GT. .EQ.  A00                  ELRT0838
JB:ER    LI,14    34           BYTE COUNT                               ELRT0839
         BAL,15   E:PRINT      PRINT ERROR IN PRIVILEGE.                ELRT0840
         DATA     PRIV:ERR                                              ELRT0841
         B        M:ABORT                                               ELRT0842
PRIV:ERR TEXTS    'INSUFFICIENT PRIVILEGE LEVEL,ABORT'                  ELRT0843
*                                                                       ELRT0844
PROMPT   DATA     X'2C00005C'                                           ELRT0845
*                                                                       ELRT0846
*        WAKE ERR:FIL UP.                                               ELRT0847
*                                                                       ELRT0848
ST:23    EQU      %                                                     ELRT0849
         CAL1,6   JOB:FPT      WAKE UP ERR:FILL (GHOST JOB)             ELRT0850
         BCS,8    JB:EX             ERROR                               ELRT0851
         CAL1,8   WAIT:6       WAIT FOR 6 SECONDS.                      ELRT0852
         B        START:2      CONTINUE.                                ELRT0853
*                                                                       ELRT0854
*                                                                       ELRT0855
*                                                                       ELRT0856
JOB:FPT  GEN,8,24 X'06',0                                               ELRT0857
         TEXTC    'ERR:FIL'                                             ELRT0858
WAIT:6   GEN,8,24 X'0F',5      5 TIMES 1.2 SECONDS. TICKS.              ELRT0859
*                                                                       ELRT0860
*        ERROR ROUTINES FOR THE DIAGNOSTIC CALS 'ERR:FIL' , WAIT.       ELRT0861
*                                                                       ELRT0862
JB:EX    EQU      %                                                     ELRT0863
         LI,14    21           SET BYTE COUNT                           ELRT0864
         BAL,15   E:PRINT                                               ELRT0865
         DATA     JB:EXM                                                ELRT0866
         B        START:2                                               ELRT0867
JB:EXM   TEXTS    '**COULD NOT WAKE UP ERR:FILL'                        ELRT0868
*                                                                       ELRT0869
*                                                                       ELRT0870
*                                                                       ELRT0871
         PAGE                                                           ELRT0872
*                                                                       ELRT0873
*                                                                       ELRT0874
*  CP-R SYSTEM                                                          ELRT0875
*  ISSUE A CAL1,1 X'08'                                                 ELRT0876
*                                                                       ELRT0877
START:1  EQU      %                                                     ELRT0878
         CAL1,1   ELASSIGN     CAL ASSIGN.                              ELRT0879
         B        START:2                                               ELRT0880
*                                                                       ELRT0881
*                                                                       ELRT0882
*                                                                       ELRT0883
         PAGE                                                           ELRT0884
*                                                                       ELRT0885
*        DATA AREA FOR THE CAL'S FOR ASSIGNING M:BI TO ERRFILE          ELRT0886
*                                                                       ELRT0887
*                                                                       ELRT0888
*        ..........CP-R..........                                       ELRT0889
*                                                                       ELRT0890
ELASSIGN GEN,8,1,23            X'08',1,M:BI                             ELRT0891
         GEN,1,1,1,1,28        1,0,0,1,0                                ELRT0892
         DATA     WRI:ABN                                               ELRT0893
         DATA     %+1                                                   ELRT0894
         TEXT     '  SP'                                                ELRT0895
         TEXT     'ERRFILE'                                             ELRT0896
JAN:     TEXT     ' JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC'    ELRT0897
VFCSIRS  GEN,1,7,7,17  1,X'05',0,CID:DCB                                ELRT0898
         DATA     0                                                     ELRT0899
*                                                                       ELRT0900
*        DATA CAL AREA FOR GETTING THE CURRENT DATE-TIME.               ELRT0901
*                                                                       ELRT0902
GETDATE  GEN,8,8,16  X'10',0,DATIME                                     ELRT0903
DATIME   RES      4                                                     ELRT0904
HEDWRI2  GEN,1,7,7,17  1,X'11',0,CID:DCB                                ELRT0905
         BS       X'F0',0,0,X'10'                                       ELRT0906
         DATA     WRI:ERR,WRI:ABN,DATIME,16                             ELRT0907
HOUR:0   DATA     0                                                     ELRT0908
MINS:0   DATA     0                                                     ELRT0909
MONT:0   DATA     0                                                     ELRT0910
DAY:0    DATA     0                                                     ELRT0911
*                                                                       ELRT0912
*                                                                       ELRT0913
*                                                                       ELRT0914
DRCRST   GEN,8,24  X'8B',CID:DCB                                        ELRT0915
         DATA     0                                                     ELRT0916
         PAGE                                                           ELRT0917
*                                                                       ELRT0918
*        ERROR IN SYSTEM TIME FORMAT.                                   ELRT0919
*                                                                       ELRT0920
E:R:R    EQU      %                                                     ELRT0921
         LI,14    20                                                    ELRT0922
         BAL,15   E:PRINT      ERROR PRINT                              ELRT0923
         DATA     SYSTIME                                               ELRT0924
         B        M:ABORT      ABORT PROGRAM                            ELRT0925
*                                                                       ELRT0926
*                                                                       ELRT0927
*                                                                       ELRT0928
SYSTIME  TEXT     'ERROR IN SYSTEM TIME'                                ELRT0929
*                                                                       ELRT0930
*                                                                       ELRT0931
*                                                                       ELRT0932
         PAGE                                                           ELRT0933
*                                                                       ELRT0934
*                                                                       ELRT0935
*                                                                       ELRT0936
*                                                                       ELRT0937
*                                                                       ELRT0938
*        DETERMINE WHETHER INPUT (CID:DCB) IS A BI-DIRECTIONAL          ELRT0939
*        DEVICE.                                                        ELRT0940
*        USE THE CORRESPONDENCE CAL TO FIND OUT BETWEEN                 ELRT0941
*        CID:DCB VS MD:DCB                                              ELRT0942
*        THE STANDARD HERE IS TO ASSUME THAT MD:DCB IS ALWAYS           ELRT0943
*        EITHER THE USER CONSOLE OR THE OPERATOR CONSOLE.               ELRT0944
*        IF CID:DCB = MD:DCB , CIDFG = 1                                ELRT0945
*        IF CID:DCB NOT = MD:DCB , CIDFG = 0                            ELRT0946
*                                                                       ELRT0947
START:2  EQU      %                                                     ELRT0948
         STW,0    CIDFG        RESET CIDFG. ASSUMED NOT CONDITION       ELRT0949
         LW,14    *CID:DCB     FETCH DCB PARAMETER.                     ELRT0950
         AND,14   X200         MASK IN BIT 10                           ELRT0951
         BNEZ     ST:12        BRANCH IF ALREADY OPEN.                  ELRT0952
         CAL1,1   CID:OPEN     OPEN CID DEVICE.                         ELRT0953
ST:12    EQU      %                                                     ELRT0954
         LW,14    *MD:DCB      FETCH DCB PARAMETER                      ELRT0955
         AND,14   X200                                                  ELRT0956
         BNEZ     ST:34        BRANCH IF ALREADY OPEN.                  ELRT0957
         CAL1,1   C:OPENM                                               ELRT0958
ST:34    EQU      %                                                     ELRT0959
         CAL1,1   CM:CRS       ISSUE CORRESPONDENCE CAL                 ELRT0960
         MTW,0    8            IF REG.8 = 0, CID = CR                   ELRT0961
         BEZ      ST:56        BRANCH DIRECTLY TO R:COM IF 0=           ELRT0962
         STW,1    CIDFG        CID = KP                                 ELRT0963
         BIFSYS   (CPV,ST:45)       B IF CPV                            ELRT0964
         CAL1,1   VFCSIRS      RESET VFC....                            ELRT0965
ST:45    RES      0                                                     ELRT0966
         CAL1,1   HEDWRI2      OUTPUT TIME AND DATE(CURRENT)            ELRT0967
         CAL1,1   HED:WR1      PRINT HEADER MESSAGE.....                ELRT0968
         BIFSYS   (CPV,ST:56)       B IF CPV                            ELRT0969
         CAL1,1   VFCSIST      SET VFC.....                             ELRT0970
ST:56    BAL,15   RESET        RE-INITIALIZE DATE-TIME                  ELRT0971
         BIFSYS   *(CPV,R:COM)      B IF NOT CPV                        ELRT0972
         LC       J:JIT                                                 ELRT0973
         BCS,12   %+2               SKIP IF BATCH                       ELRT0974
         CAL1,1   FPT:READ          READ ! COMMAND TO IGNORE IT         ELRT0975
*                                                                       ELRT0976
*                                                                       ELRT0977
*                                                                       ELRT0978
         PAGE                                                           ELRT0979
*                                                                       ELRT0980
*        EFFECTIVE START HERE. ALL HOUSEKEEPING DONE.                   ELRT0981
*                                                                       ELRT0982
R:COM    EQU      %                                                     ELRT0983
         STW,0    SYSIDF       CLEAR SYSTEM ID ...........CONFIGURATION ELRT0984
      STW,0     SUM:F     RESET SUM PRESENCE FLAG.                      ELRT0985
         STW,0    MOS:F             RESET MOS PRESENCE FLAG
         STW,0    SLIS:F       RESET THE SORT MODULE FLAG HERE.         ELRT0986
         STW,0    BRK:CHK           RESET BREAK FLAG                    ELRT0987
         STW,0    SECHFLG      CLEAR SORTED SEARCH FLAG                 ELRT0988
         STW,0    DISP:F       RESET DISPLAY GRAPHIC PRESENCE FLG       ELRT0989
RR:1     EQU      %                                                     ELRT0990
         BAL,15   READ:COM     READ A RECORD (COMMAND FROM CID)         ELRT0991
*                                                                       ELRT0992
*                                                                       ELRT0993
*                                                                       ELRT0994
         PAGE                                                           ELRT0995
*                                                                       ELRT0996
*                                                                       ELRT0997
* ANALIZE COMMANDS:                                                     ELRT0998
*                                                                       ELRT0999
COMMAND  EQU      %                                                     ELRT1000
         LI,13    TA:CLIS      FETCH AND INITIALIZE FIRST               ELRT1001
         STW,13   TABLE:       TABLE ADDRESS .                          ELRT1002
         STW,0    MTCF              MULTIPLE COMMANDS                   ELRT1003
         STW,0    CF                COMMA FLAG                          ELRT1004
         STW,0    CAB          RESET POINTER CARRIER.                   ELRT1005
COMM     STW,0    MCF               MULTIPLE MATCH, SAME COMM.          ELRT1006
         STW,0    COB               CURRECNT BYTE COUNT                 ELRT1007
         STW,0    RB                REAL BYTE COUNT (NO BLANKS)         ELRT1008
*                                                                       ELRT1009
*                                                                       ELRT1010
A:0      EQU      %                                                     ELRT1011
         LW,4     COB               FETCH CURRENT BYTE COUNT            ELRT1012
         CI,4     79                CK FOR 80 COL.                      ELRT1013
         BG       A:1               BRANCH TO A:1                       ELRT1014
         LB,14    COMBUFF,4         LOAD A BYTE FROM INPUT BUFFER       ELRT1015
         CB,14    X4BD5             IS THIS A BLANK?                    ELRT1016
         BE       A:6               IGNORE BLANKS                       ELRT1017
           CB,14    X4BD5,1       IS THIS A COMMA                       ELRT1018
         BE       A:5               BRANCH TO SET CONDITIONS            ELRT1019
         CB,14    X4BD5,2      IS THIS LINE FEED.                       ELRT1020
         BE       A:1          RANCH IF EQUAL                           ELRT1021
         CB,14    X4BD5,3      IS THIS CARRIAGE RETURN.                 ELRT1022
         BE       A:1          BRANCH IF EQUAL                          ELRT1023
         STB,14   BYTEIN                                                ELRT1024
         LW,4     RB                INDEX FOR REAL BYTE                 ELRT1025
         CI,4     3                 IS REAL BYTE MORE THAN 4            ELRT1026
         BG       A:7          TOO MUCH PARAMETERS.                     ELRT1027
A:01     LB,14    *TABLE:,4    FETCH ONE BYTE AT A TIME.                ELRT1028
*                                                                       ELRT1029
         CB,14    BYTEIN                                                ELRT1030
         BNE      A:4                                                   ELRT1031
         STW,1    MCF          SET MATCH FLAG.                          ELRT1032
         MTW,1    RB                ADD 1 TO RB                         ELRT1033
A:6      MTW,1    COB               ADD 1 TO COB                        ELRT1034
         B        A:0               FETCH NEXT BYTE                     ELRT1035
*                                                                       ELRT1036
A:5      EQU      %                                                     ELRT1037
         MTW,1    CF                SET COMMA FLAG                      ELRT1038
*                                                                       ELRT1039
A:1      EQU      %                                                     ELRT1040
         MTW,0    MCF          MCF FLAG = SET ?                         ELRT1041
         BEZ      A:4          BRANCH IF ZERO. (NOT SET)                ELRT1042
         MTW,1    MTCF         INCREMENT MULTIPLE MATCH.                ELRT1043
         LW,14    *TABLE:,1    FETCH ADDRESS TO BRANCH TO:              ELRT1044
         STW,14   COMADRS:          FOR A GOO OVERLAY CALLING           ELRT1045
         LW,14    *TABLE:,2  FETCH COMMA OR NO COMMA INDICATOR.         ELRT1046
         STW,14   CONF         STORE IN SAVE LOCATION.                  ELRT1047
         LW,14    COB          FETCH CURRENT BYTE POINTER INDEX.        ELRT1048
         STW,14   CAB          TRANSFER FOR RECEIVING MODULE.           ELRT1049
*                                                                       ELRT1050
A:4      EQU      %                                                     ELRT1051
         MTW,3    TABLE:       INCREMENT TO NEXT TABLE TEXT.            ELRT1052
         LW,14    *TABLE:      END OF COMMANDS ?                        ELRT1053
         BEZ      A:9          BRANCH IF YES.                           ELRT1054
         LI,14    0            SET 14 FOR ZERO                          ELRT1055
         B        COMM              REPEAT THE PROCESS                  ELRT1056
*                                                                       ELRT1057
A:9      EQU      %                                                     ELRT1058
         LW,14    MTCF         CHECK FOR MULTIPLE INTRIES.              ELRT1059
         BEZ      A:7                                                   ELRT1060
         CI,14    1                                                     ELRT1061
         BE       A:11              SUCCESS PATH                        ELRT1062
A:7      EQU      %                                                     ELRT1063
         LI,14    15                                                    ELRT1064
         BAL,15   E:PRINT                                               ELRT1065
         DATA     ERRMSG3                                               ELRT1066
         B        R:COM             READ ANOTHER COM.                   ELRT1067
*                                                                       ELRT1068
A:11     EQU      %                                                     ELRT1069
         LW,14    CONF         FETCH COMMA OR NO COMMA INDICATOR.       ELRT1070
         BEZ      CK10         BRANCH IF NO COMMA NEEDED.               ELRT1071
         CI,14    1                                                     ELRT1072
         BE       CK20         BRANCH IF COMMA NEEDED.                  ELRT1073
*                                                                       ELRT1074
CKOK     B        *COMADRS:         BRANCH TO RESPECTIVE ROUTINE        ELRT1075
COMADRS: DATA     0                                                     ELRT1076
*                                                                       ELRT1077
*                                                                       ELRT1078
CK10     LW,14    CF           FETCH COMMA FLAG. (SET OR NOT)           ELRT1079
         BEZ      CKOK              COMMANDS, NO COMMA ALLOWED          ELRT1080
         B        A:7               MUST HAVE NO COMMA BUT WITH COMMA   ELRT1081
CK20     LW,14    CF                                                    ELRT1082
         BNEZ     CKOK         COMMANDS WITH COMMAS                     ELRT1083
         B        A:7               COMMANDS MUST HAVE COMMA BUT NOT    ELRT1084
*                                                                       ELRT1085
*                                                                       ELRT1086
*                                                                       ELRT1087
*                                                                       ELRT1088
         PAGE                                                           ELRT1089
*                                                                       ELRT1090
*                                                                       ELRT1091
*                                                                       ELRT1092
*        SELECTION BRANCHES.                                            ELRT1093
*                                                                       ELRT1094
*                                                                       ELRT1095
*                                                                       ELRT1096
         DATA     CLIS:0                                                ELRT1097
CLIS:    LW,14    %-1          CHRONOLOGICAL.                           ELRT1098
         B        SLIS:11                                               ELRT1099
         DATA     SLIS:0                                                ELRT1100
SLIS:    LW,14    %-1          SORTED LIST                              ELRT1101
           STW,1     SLIS:F    SET SORT SLIS FLAG.                      ELRT1102
SLIS:11  LI,15    1            FETCH 1ST ROM SEGMENT NO.                ELRT1103
         B        SEGLOAD      SEGMENT LOAD.                            ELRT1104
*                                                                       ELRT1105
*  ......................                                               ELRT1106
*                                                                       ELRT1107
         DATA     TYPE:0                                                ELRT1108
TYPE:    LW,14    %-1          TYPE DELIMITER.                          ELRT1109
         B        TIM:A                                                 ELRT1110
         DATA     MOD:0                                                 ELRT1111
MOD:     LW,14    %-1          MODEL DELIMITER                          ELRT1112
         B        TIM:A                                                 ELRT1113
         DATA     DEV:0                                                 ELRT1114
DEV:     LW,14    %-1          DEVICE DELIMITER                         ELRT1115
         B        TIM:A                                                 ELRT1116
         DATA     TIME:0                                                ELRT1117
TIME:    LW,14    %-1          TIME DELIMITER                           ELRT1118
TIM:A    LI,15    2            FETCH SEGMENT ROM NO.                    ELRT1119
         B        SEGLOAD      SEGMENT LOAD.                            ELRT1120
*                                                                       ELRT1121
*  .......................                                              ELRT1122
*                                                                       ELRT1123
         DATA     SUM:0                                                 ELRT1124
SUM:     LW,14    %-1          SUMMARY.                                 ELRT1125
         LI,15    3            FETCH SEGMENT NO ROM.                    ELRT1126
         STW,1   SUM:F    SET SUM PRESENCE FLAG.                        ELRT1127
         B        SEGLOAD      SEGMENT LOAD.                            ELRT1128
*
*  .......................
*
         DATA     MOS:0
MOS:     LW,14    %-1               MOS CORRECTABLE ERRORS
         LI,15    3                 FETCH SEGMENT ROM NO.
         STW,1    MOS:F             SET MOS PRESENCE
         B        SEGLOAD           SEGMENT LOAD
*                                                                       ELRT1129
*  .......................                                              ELRT1130
*                                                                       ELRT1131
         DATA     DISP:0                                                ELRT1132
DISP:    LW,14    %-1          DISPLAY DELIMITER COMMAND.               ELRT1133
         LI,15    4            FETCH SEGMENT ROM NO.                    ELRT1134
         STW,1    DISP:F                                                ELRT1135
         B        SEGLOAD      SEGMENT LOAD.                            ELRT1136
*                                                                       ELRT1137
*  ........................                                             ELRT1138
*                                                                       ELRT1139
ANLZ:    LI,14    38           ANALIZE IS NOT IMPLEMENTED               ELRT1140
         BAL,15   L:PRINT      AT THIS MOMENT.                          ELRT1141
         DATA     A:MSGL                                                ELRT1142
         B        R:COM                                                 ELRT1143
A:MSGL   TEXT     'ANLZ IS NOT IMPLEMENTED AT THIS MOMENT'              ELRT1144
*                                                                       ELRT1145
*  .........................                                            ELRT1146
*                                                                       ELRT1147
END:     EQU      %                                                     ELRT1148
         B        EXIT:M       EXIT PROGRAM.                            ELRT1149
*                                                                       ELRT1150
*  .........................                                            ELRT1151
*                                                                       ELRT1152
DSPL:    EQU      %                                                     ELRT1153
         BAL,15   DSPL:0       DISPLAY BOUNDARIES.                      ELRT1154
         B        R:COM        FETCH NEXT COMMAND.                      ELRT1155
*                                                                       ELRT1156
*        ......................                                         ELRT1157
*                                                                       ELRT1158
RSET:    EQU      %                                                     ELRT1159
         BAL,15   RESET        RE-INITIALIZE                            ELRT1160
         B        R:COM                                                 ELRT1161
*                                                                       ELRT1162
*                                                                       ELRT1163
RESET    EQU      %                                                     ELRT1164
         STW,0    YEAR:1       RESET YR,DATE,TIME (:1)                  ELRT1165
         STW,0    DATE:1                                                ELRT1166
         STW,0    TIME:1                                                ELRT1167
         LW,14    YEAR:3       RE:INITIALIZE YR,DATE,TIME (:2)          ELRT1168
         STW,14   YEAR:2                                                ELRT1169
         LW,14    DATE:3                                                ELRT1170
         STW,14   DATE:2                                                ELRT1171
         LW,14    TIME:3                                                ELRT1172
         STW,14   TIME:2                                                ELRT1173
         STW,0    MODF                                                  ELRT1174
         STW,0    TYPEF        RESET THE SELECTION BOUNDARIES.          ELRT1175
         STW,0    DEVF                                                  ELRT1176
RSE:     LW,14    TAB1ST       CHECK SORT TABLE INDICATOR.....          ELRT1177
         BEZ      RS:1         NO SORT NOT DONE.                        ELRT1178
         BIFSYS   (CPR,RS:2),(RBM,RS:1)   B IF RBM OR CPR               ELRT1179
         CAL1,8   PAGE:FR      FREE CP:V PAGES....                      ELRT1180
         B        RS:1         DONE GO                                  ELRT1181
RS:2     RES      0                                                     ELRT1182
         CAL1,7   PAGER        ERASE SEGMENT 5                          ELRT1183
RS:1     EQU      %            CONTINUE                                 ELRT1184
         LW,14    *EL:DCB      PREPARE TO CLOSE EL:DCB....              ELRT1185
         AND,14   X200                                                  ELRT1186
         BEZ      %+2                                                   ELRT1187
         CAL1,1   CLOSEL       CLOSE EL:DCB.....(ERRFILE)               ELRT1188
         STW,0    MDIO                                                  ELRT1189
         STW,0    S:FLAG       CLEAR SORT FLAG                          ELRT1190
         STW,0    TAB1ST       CLEAR SORT TABLE INDICATOR.....          ELRT1191
         STW,0    MODTBL:      ZERO OUT MODEL TABLE.                    ELRT1192
         B        *15                                                   ELRT1193
PAGE:FR  GEN,1,7,7,17  1,9,0,PAGECNT                                    ELRT1194
PAGER    GEN,8,1,7,16          X'54',1,0,5                              ELRT1195
         DATA     X'80400000',WRI:ERR,0                                 ELRT1196
*        .........................                                      ELRT1197
*                                                                       ELRT1198
*                                                                       ELRT1199
*        SET COMMAND.                                                   ELRT1200
*        THE SET COMMAND IS CODED TO THE SPECIFICATION ACCORDING        ELRT1201
*        TO 703118.                                                     ELRT1202
*        RETURN WILL BY R:COM AFTER TERMINATION.                        ELRT1203
*                                                                       ELRT1204
SET:     EQU      %                                                     ELRT1205
         LW,14    CAB          TRANSFER THE BYTE COUNT INDEX.           ELRT1206
         STW,14   COB                                                   ELRT1207
         LI,14    S:COM        ADDRESS OF TABLE LOOKUP.                 ELRT1208
         BAL,15   SEARCH       SEARCH FOR THE MATCH.                    ELRT1209
         B        A:7          **INVALID INPUT**                        ELRT1210
         LW,4     15           TRANSFER THE POINTER.                    ELRT1211
         LW,15    S:L,4        FETCH THE ADDRESS POINTED TO.            ELRT1212
         B        *15          BRANCH TO IT.                            ELRT1213
*                                                                       ELRT1214
*                                                                       ELRT1215
*                                                                       ELRT1216
*                                                                       ELRT1217
*        LIST CODE.            (LIST DEVICE)                            ELRT1218
*                                                                       ELRT1219
0:LIST   EQU      %                                                     ELRT1220
         LW,14    *LD:DCB      CHECK LD DCB DEVICE.                     ELRT1221
         AND,14   X200         CHECK OPEN BITS.                         ELRT1222
         BEZ      1:LIST       BRANCH IF CLOSED.                        ELRT1223
         CAL1,1   CLOSELD      CLOSE THE LD DEVICE.                     ELRT1224
1:LIST   LI,14    S:COM11      FETCH SEARCH TABLE #2                    ELRT1225
         BAL,15   SEARCH       SEARCH                                   ELRT1226
         B        A:7          **INVALID INPUT**                        ELRT1227
         BIFSYS   *(CPV,2:LIST)     B IF NOT CPV                        ELRT1228
         LW,5     15           FETCH THE POINTER. (0 OR 1)              ELRT1229
         LH,15    LPOCTX,5     FETCH RIGHT OP-LABEL.                    ELRT1230
         AND,15   XFFFF        MASK OUT LEAST HALF.                     ELRT1231
         STW,15   OPENLD+2     STORE TO LOCATION OF FPT.                ELRT1232
         CAL1,1   OPENLD       ASSIGN THE DEVICE BY AND M:OPEN.         ELRT1233
         CAL1,1   LP:HEAD      TOP OF FORM HEADER CALL.....             ELRT1234
         B        R:COM        RETURN TO R:COM.                         ELRT1235
*                                                                       ELRT1236
*                                                                       ELRT1237
*                                                                       ELRT1238
*                                                                       ELRT1239
*CP-R LIST DEVICE ASSIGNMENT.                                           ELRT1240
*                                                                       ELRT1241
2:LIST   EQU      %                                                     ELRT1242
         CI,15    0            15 = 0                                   ELRT1243
         BE       3:LIST       BRANCH IF 15 = 0                         ELRT1244
         LW,15    CPRSIA       FETCH OC LABEL........                   ELRT1245
         B        4:LIST                                                ELRT1246
3:LIST   LW,15    LOTX         FETCH THE OP-LABEL (LP)                  ELRT1247
4:LIST   STW,15   CPRMSS       STORE TO FPT TABLE.                      ELRT1248
         CAL1,1   CPRASS       AGSSIGN CP-R SYSTEM.                     ELRT1249
         B        R:COM        RETURN TO R:COM.                         ELRT1250
*                                                                       ELRT1251
*                                                                       ELRT1252
*        FILE,XX(YYYY) CODE. (ERROR FILE DEVICE ASSIGNMENT)             ELRT1253
*                                                                       ELRT1254
*                                                                       ELRT1255
0:FILE   EQU      %                                                     ELRT1256
         LI,14    38           PRINT THE MESSAGE.                       ELRT1257
         BAL,15   E:PRINT      'THIS COMMAND NOT IN OPERATION YET'      ELRT1258
         DATA     FILEMSG                                               ELRT1259
         B        R:COM        RETURN TO R:COM                          ELRT1260
         BAL,15   RSE:         AFTER THOUGHT OF RESETTING SORT TABLES   ELRT1261
FILEMSG  TEXT     'FILE ASSIGNMENT IS NOT IMPLEMENTED YET'              ELRT1262
*                                                                       ELRT1263
*                                                                       ELRT1264
*                                                                       ELRT1267
*        INPT ASSIGNS THE KEYBOARD.(/                                   ELRT1268
*        THIS ASSIGNMENT VALID ONLY FOR CP-R SYSTEM.                    ELRT1269
*                                                                       ELRT1270
0:INPT   EQU      %                                                     ELRT1271
         BIFSYS   (CPV,4:INPT)      B IF CPV                            ELRT1272
         LW,14    2:INPT       PASS CONTROL. (ONCE ASSIGNED,NOT         ELRT1273
         BNEZ     5:INPT             RE-ASSIGNABLE)                     ELRT1274
         LI,14    S:COM31      FETCH TABLE  ADDRESS.                    ELRT1275
         BAL,15   SEARCH                                                ELRT1276
         B        A:7          **INVALID INPUT**                        ELRT1277
         LW,14    M:SI         FETCH DCB BIT (OPEN / CLOSED)            ELRT1278
         AND,14   X200         BRANCH THRU IF CLOSED.                   ELRT1279
         BEZ      1:INPT                                                ELRT1280
         CAL1,1   CLOSI        CLOSE THE SI DEVICE.                     ELRT1281
1:INPT   CAL1,1   CPRSIS       ASSIGN THE CP:R M:SI TO OC DEVICE.       ELRT1282
         STW,1    2:INPT       SET FLAG FOR ENTRNANCE ONLY ONCE         ELRT1283
         STW,1    CIDFG             SET CID FLAG.                       ELRT1284
         B        R:COM        RETURN TO R:COM.                         ELRT1285
2:INPT   DATA     0            ENTRANCE FLAG.                           ELRT1286
*                                                                       ELRT1287
*        ERROR MESSAGES ROUTINE.                                        ELRT1288
*                                                                       ELRT1289
4:INPT   LI,14    27                                                    ELRT1290
         LI,15    CPVNVM                                                ELRT1291
         B        6:INPT                                                ELRT1292
5:INPT   LI,14    16                                                    ELRT1293
         LI,15    CPRASN                                                ELRT1294
6:INPT   STW,15   7:INPT                                                ELRT1295
         BAL,15   E:PRINT                                               ELRT1296
7:INPT   DATA     0                                                     ELRT1297
         B        R:COM        RETURN TO R:COM                          ELRT1298
CPVNVM   TEXTS    'COMMAND LEGAL ON CP:R ONLY'                          ELRT1299
CPRASN   TEXTS    'NON-REASSIGNABLE'                                    ELRT1300
*                                                                       ELRT1301
*                                                                       ELRT1302
*                                                                       ELRT1303
         PAGE                                                           ELRT1304
*                                                                       ELRT1305
*        TABLE OF ADDRESS AREA.                                         ELRT1306
*                                                                       ELRT1307
S:COM    GEN,8,8,8,8  3,4,1,1                                           ELRT1308
S:LIST   TEXTS    'LIST'                                                ELRT1309
S:FILE   TEXTS    'FILE'                                                ELRT1310
S:INPT   TEXTS    'INPT'                                                ELRT1311
*                                                                       ELRT1312
*                                                                       ELRT1313
*                                                                       ELRT1314
S:COM11  GEN,8,8,8,8  2,2,1,0                                           ELRT1315
S:LTLP   TEXTS    'LP'                                                  ELRT1316
S:LTKP   TEXTS    'KP'                                                  ELRT1317
*                                                                       ELRT1318
*                                                                       ELRT1319
*                                                                       ELRT1320
S:COM22  GEN,8,8,8,8  2,2,1,0                                           ELRT1321
S:FERD   TEXTS    'RD'                                                  ELRT1322
S:FEMT   TEXTS    'MT'                                                  ELRT1323
S:COM31  GEN,8,8,8,8  1,2,1,0                                           ELRT1324
S:ITKP   TEXTS    'KP'                                                  ELRT1325
*                                                                       ELRT1326
*                                                                       ELRT1327
*                                                                       ELRT1328
*                                                                       ELRT1330
*        ADDRESS TABLES.                                                ELRT1331
*                                                                       ELRT1332
S:L      DATA     0:LIST,0:FILE,0:INPT                                  ELRT1333
         PAGE                                                           ELRT1337
*                                                                       ELRT1338
*        THE FPT'S AREA FOR THE OPEN , CLOSE OF DCB'S.                  ELRT1339
*                                                                       ELRT1340
CLOSELD  GEN,1,7,7,17  1,X'15',0,LD:DCB  FOR CLOSING THE LD DEVICE      ELRT1341
         DATA     0                                                     ELRT1342
OPENLD   GEN,1,7,7,17  1,X'14',0,LD:DCB  FOR OPENING (ASSIGN) LD DEVICE.ELRT1343
         DATA     X'40000',0                                            ELRT1344
CPRASS   GEN,8,1,23  8,1,M:LO  CP-R ASSIGN FOR LO DEVICE.               ELRT1345
         GEN,1,1,1,1,28  0,1,0,0,0                                      ELRT1346
CPRMSS   DATA     0                                                     ELRT1347
CLOSI    GEN,8,7,17  X'15',0,M:SI  CP-R CLOSING M:SI DEVICE.            ELRT1348
         DATA     0                                                     ELRT1349
CPRSIS   GEN,8,1,23  8,1,M:SI  CP-R ASSIGN SI DEVICE TO KP              ELRT1350
         GEN,1,1,1,1,28  0,1,0,0,0                                      ELRT1351
CPRSIA   DATA     X'D6C3'                                               ELRT1352
*                                                                       ELRT1353
*                                                                       ELRT1354
*                                                                       ELRT1355
LPOCTX   TEXT     'LPOC'                                                ELRT1356
LOTX     DATA     X'D3D6'      'LO'                                     ELRT1357
*                                                                       ELRT1358
*                                                                       ELRT1359
*                                                                       ELRT1360
         PAGE                                                           ELRT1361
*                                                                       ELRT1362
*                                                                       ELRT1363
*        SEARCH ROUTINE.                                                ELRT1364
*        SEARCH FOR A MATCH FROM A GIVEN TABLE ADDRESS OF               ELRT1365
*        MATCHES (ADDRESS START LOCATION IN REGISTER 14)                ELRT1366
*        AND GIVE THE CORRECT NUMBER WHICH POINTS TO THE                ELRT1367
*        CORRECT ADDRESS ROUTINE.                                       ELRT1368
*                                                                       ELRT1369
*        THIS IS A SPECIALIXED SUBROUTINE NOT BE USED ELSEWHERE.        ELRT1370
*                                                                       ELRT1371
*                                                                       ELRT1372
*        CALL:                                                          ELRT1373
*        LI,14    TABLE ADDRESS START.                                  ELRT1374
*        BAL,15   SEARCH                                                ELRT1375
*        ERROR RETURN.                                                  ELRT1376
*        GOOD RETURN.                                                   ELRT1377
*        REGISTER 15 HAS THE INDEX UPON RETURN.                         ELRT1378
*                                                                       ELRT1379
*        REGISTER 14,15 VOLATILE.                                       ELRT1380
*                                                                       ELRT1381
*                                                                       ELRT1382
SEARCH EQU        %                                                     ELRT1383
         STW,4    SCH:V        SAVE REG. 4                              ELRT1384
         STW,15   SCH:V+2      SAVE REG 15                              ELRT1385
         LW,15    *14          FETCH TABLE ADDRESS.                     ELRT1386
         AI,14    1            INCREMENT BY ONE.                        ELRT1387
         STW,14   SCH:V+1      SAVE REG. 14                             ELRT1388
         STB,15   CFF,3        SAVE THE VARIOUS BYTE INFORMATIONS.      ELRT1389
         SLS,15   -8                                                    ELRT1390
         STB,15   CFP,3                                                 ELRT1391
         SLS,15   -8                                                    ELRT1392
         STB,15   BPW,3                                                 ELRT1393
         SLS,15   -8                                                    ELRT1394
         STB,15   NOW,3                                                 ELRT1395
         STW,0    MTCF         CLEAR MULTIPLE MATCH FLAG.               ELRT1396
         STW,0    ACAM         RESET THE POINTER CARRY INDEX.           ELRT1397
         STW,0    CAM          RESET THE POINTER COUNT.                 ELRT1398
         LW,15    COB          EXCHANGE THE BYTE INPUT INDEX.           ELRT1399
         STW,15   CAB                                                   ELRT1400
1:SCH    STW,0    PASS         RESET THE PASS FLAG.                     ELRT1401
         STW,0    MCF          RESET MATCH FLAG.                        ELRT1402
         STW,0    RB           RESET THE INTERNAL INDEX.                ELRT1403
         LW,15    CFP                                                   ELRT1404
         STW,15   CF           FETCH COMMA FLAG SET.                    ELRT1405
         LW,15    CAB          RESET THE POINTER.                       ELRT1406
         STW,15   COB                                                   ELRT1407
*                                                                       ELRT1408
*                                                                       ELRT1409
*                                                                       ELRT1410
2:SCH    BAL,15   F:F          FETCH A CHARACTER.                       ELRT1411
         B        5:SCH        **INVALID INPUT**                        ELRT1412
         STW,1    PASS         SET THE PASS FLAG.                       ELRT1413
         CB,14    X4BD5,1                                               ELRT1414
         BE       3:SCH        BRANCH IF A COMMA.                       ELRT1415
         STW,0    CF           RESET COMA FLAG.                         ELRT1416
         LW,4     RB           FETCH INTERNAL COUNTER.                  ELRT1417
         CW,4     BPW          IT IS WITHIN LIMITS.                     ELRT1418
         BGE      7:SCH        **ERROR** OUT OF BOUNDS.                 ELRT1419
         CB,14    *SCH:V+1,4   COMPARE TO TABLE ADDRESS.                ELRT1420
         BNE      4:SCH        BRANCH IF NOT EQUAL                      ELRT1421
         STW,1    MCF          MATCH !! SET MATCH FLAG.                 ELRT1422
         MTW,1    RB           INCREMENT INTERNAL FOUNDTER              ELRT1423
         B        2:SCH        B:                                       ELRT1424
*                                                                       ELRT1425
*                                                                       ELRT1426
*                                                                       ELRT1427
*        NO MATCH..                                                     ELRT1428
*                                                                       ELRT1429
*                                                                       ELRT1430
*                                                                       ELRT1431
4:SCH    STW,0    MCF          RESET MATCH FLAG.                        ELRT1432
         B        8:SCH                                                 ELRT1433
*                                                                       ELRT1434
*                                                                       ELRT1435
*                                                                       ELRT1436
*        COMMA ENCOUNTERED.                                             ELRT1437
*                                                                       ELRT1438
*                                                                       ELRT1439
*                                                                       ELRT1440
3:SCH    MTW,0    CF           COMMA PREVIOUS TO THIS.                  ELRT1441
         BNEZ     7:SCH        **ERROR** COMMA FLAG SUPPOSED = 0        ELRT1442
         STW,1    CF           CF FLAG OK! SET COMMA FLAG NOW.          ELRT1443
*                                                                       ELRT1444
*        TERMINATION                                                    ELRT1445
*                                                                       ELRT1446
*                                                                       ELRT1447
*                                                                       ELRT1448
5:SCH    MTW,0    PASS         CHECK PASS FLAG.                         ELRT1449
         BEZ      7:SCH        IF ZERO **ERROR** (BRANCH)               ELRT1450
         LW,14    CF           CHECK COMMA FLAG.                        ELRT1451
         CW,14    CFF          CHECK AGAINST THE FORWARD COMMA INDICATORELRT1452
         BNE      7:SCH        **ERROR** NO GO.                         ELRT1453
8:SCH    MTW,1    CAM          INCREMENT COUNT.                         ELRT1454
         MTW,1    SCH:V+1           INCREMENT TABLE ADDRESS.            ELRT1455
         MTW,0    MCF          CHECK MATCH FLAG.                        ELRT1456
         BEZ      9:SCH        BRANCH IF ZERO                           ELRT1457
         LW,14    CAM          FOUND A MATCH, TRANSFER COUNT.           ELRT1458
         STW,14   ACAM                                                  ELRT1459
         MTW,1    MTCF         SET (INCREMENT) MTCF.                    ELRT1460
         LW,14    COB               TRANSFER THE COB.                   ELRT1461
         STW,14   CEB               TO CEB.......                       ELRT1462
9:SCH    LW,14    CAM          CHECK BOUNDS.                            ELRT1463
         CW,14    NOW          (WITHIN BOUNDS??)                        ELRT1464
         BL       1:SCH        BRANCH IF YES.                           ELRT1465
*                                                                       ELRT1466
*        FALL THRU IF OVER........                                      ELRT1467
*                                                                       ELRT1468
*        ALL OVER.....                                                  ELRT1469
*                                                                       ELRT1470
6:SCH    EQU      %                                                     ELRT1471
         LW,4     MTCF                                                  ELRT1472
         CI,4     1                                                     ELRT1473
         BNE      7:SCH        **ERROR**                                ELRT1474
         MTW,1    SCH:V+2      INCREMENT RETURN ADDRESS.                ELRT1475
7:SCH    LW,4     SCH:V        RESTORE 4                                ELRT1476
         LW,14    CEB               RESTORE THE COB POINTER.            ELRT1477
         STW,14   COB                                                   ELRT1478
         LW,14    SCH:V+1      RESOTE 14                                ELRT1479
         LW,15    ACAM                                                  ELRT1480
         AI,15    -1           DECREMENT REGISTER 15                    ELRT1481
         B        *SCH:V+2     RETURN.                                  ELRT1482
SCH:V    RES      3                                                     ELRT1483
CAM      DATA     0                                                     ELRT1484
ACAM     DATA     0                                                     ELRT1485
CFF      DATA     0                                                     ELRT1486
CFP      DATA     0                                                     ELRT1487
BPW      DATA     0                                                     ELRT1488
NOW      DATA     0                                                     ELRT1489
PASS     DATA     0                                                     ELRT1490
CEB      DATA     0                                                     ELRT1491
*                                                                       ELRT1492
*                                                                       ELRT1493
*                                                                       ELRT1494
*                                                                       ELRT1495
*                                                                       ELRT1496
*                                                                       ELRT1497
         PAGE                                                           ELRT1498
*                                                                       ELRT1499
*                                                                       ELRT1500
*  SEGMENT LOAD ROUTINE.                                                ELRT1501
*  THIS ROUTINE WILL LOAD THE APPROPIATE SEGMENT FROM MEMORY            ELRT1502
*                                                                       ELRT1503
*  THE SEGMENT NO. WILL BE FOUND IN REGISTER 15 UPON ENTRY.             ELRT1504
*  THIS SEGMENT NO. IS USEFUL FOR CP-R AS A SEGMENT NO.                 ELRT1505
*  IT IS USEFUL FOR CP-V AS THE INDEX TO THE BYTE STRING                ELRT1506
*  CONTAINING THE EBCDIC NAME OF THE SEGMENT ROM.                       ELRT1507
*                                                                       ELRT1508
*  THIS IS NOT A SUBROUTINE. THE ENTRY INTO SEGLOAD WILL                ELRT1509
*  EFFECTIVELY TRANSFER TO THE DESTINATION ADDRESS FOUND IN             ELRT1510
*  REGISTER 14 UPON ENTRY.                                              ELRT1511
*                                                                       ELRT1512
*                                                                       ELRT1513
SEGLOAD  EQU      %                                                     ELRT1514
*                                                                       ELRT1515
         LW,5     15           FETCH THE SEGMENT #                      ELRT1516
         STW,14   SG:DEST           SAVE DESTINATION ADDRESS            ELRT1517
         CI,15    2            IS IT THE BOUNDARY SEGMENT               ELRT1518
         BE       SGAM         B: EQUAL........                         ELRT1519
         MTW,0    MOS:F             IS IT MOS
         BNEZ     SGAM              YES - BYPASS UPSPACE
         BAL,15   SKIPTP       SKIP AND NEW PAGE EJECT.                 ELRT1520
         BAL,15   L:SPACE3                                              RT--0042
SGAM     EQU      %                                                     ELRT1524
*                                                                       ELRT1525
*                                                                       ELRT1526
*                                                                       ELRT1527
         CW,5     SG:NR                                                 ELRT1528
         BE       SG:4              B IF DESIRED SEG IS LOADED          ELRT1529
         BIFSYS   (CPR,SG:2),(RBM,SG:1)   B IF CPR OR RBM               ELRT1530
         AI,5     -1           CP-V SYSTEM. SET UP INDEX                ELRT1531
         LW,15    CSL:1,5                                               ELRT1532
         STW,15   CPV:FPT1     SET UP ADDRESS TO CORRECT STRING.        ELRT1533
         CAL1,8   CPV:FPT      LOAD CPV SEGMENTS.                       ELRT1534
         AI,5     1                 RESTORE R5 TO SEG NR                ELRT1535
         B        SG:4         BRANCH TO DESTINATION.                   ELRT1536
SG:1     EQU      %                                                     ELRT1537
         STH,5    RBM:FPT,1         SET SEG ID NR                       ELRT1538
         CAL1,8   RBM:FPT           DO SEGLOAD                          ELRT1539
         B        SG:4                                                  ELRT1540
SG:2     RES      0                                                     ELRT1541
         LW,15    SG:NR             GET PRIOR SEG ID                    ELRT1542
         BEZ      SG:5         B: NO.. NONE...                          ELRT1543
         LI,15    X'54'        ERASE IMMEDIATEDLY......                 ELRT1544
         STB,15   CPR:FPT                                               ELRT1545
         CAL1,7   CPR:FPT                                               ELRT1546
SG:5     LI,15    X'52'        ACTIVATE NEXT SEGMENT....                ELRT1547
         STB,15   CPR:FPT                                               ELRT1548
         STH,5    CPR:FPT,1                                             ELRT1549
         CAL1,7   CPR:FPT      ACTIVATE.........                        ELRT1550
SG:4     RES      0                                                     ELRT1551
         STW,5    SG:NR             SAVE NEW SEG ID                     ELRT1552
         B        *SG:DEST          ENTER NEW SEGMENT                   ELRT1553
*                                                                       ELRT1554
*                                                                       ELRT1555
*                                                                       ELRT1556
SG:DEST  DATA     0                                                     ELRT1557
SG:NR    DATA     0                                                     ELRT1558
*                                                                       ELRT1559
*                                                                       ELRT1560
*                                                                       ELRT1561
CSL:0    TEXTC    'ELLACSL'                                             ELRT1562
TMD:0    TEXTC    'ELLATMD'                                             ELRT1563
SIM:0    TEXTC    'ELLASUM'                                             ELRT1564
DSP:0    TEXTC    'ELLADSP'                                             ELRT1565
*                                                                       ELRT1566
*                                                                       ELRT1567
*                                                                       ELRT1568
CSL:1    DATA     CSL:0        CHRONOLOGICAL AND SORTED.                ELRT1569
TMD:1    DATA      TMD:0       BOUNDARY.                                ELRT1570
SIM:1    DATA       SIM:0      SUMMARY.                                 ELRT1571
DSP:1    DATA        DSP:0     DISPLAY.                                 ELRT1572
*                                                                       ELRT1573
*                                                                       ELRT1574
*                                                                       ELRT1575
CPV:FPT  GEN,8,24  X'01',0                                              ELRT1576
CPV:FPT1 DATA     CSL:0                                                 ELRT1577
*                                                                       ELRT1578
*                                                                       ELRT1579
*                                                                       ELRT1580
CPR:FPT  GEN,8,1,23  X'52',1,0                                          ELRT1581
         DATA     X'80000000'                                           ELRT1582
         DATA     ERRADRS                                               ELRT1583
*                                                                       ELRT1584
*                                                                       ELRT1585
*                                                                       ELRT1586
RBM:FPT  GEN,8,24 X'01',0           SEGLOAD FPT FOR RBM                 ELRT1587
*                                                                       ELRT1588
*                                                                       ELRT1589
*                                                                       ELRT1590
ERRADRS  EQU      %                                                     ELRT1591
         BAL,15   ERR:PRN      ERROR PRINTOUT.                          ELRT1592
         LH,14    CPR:FPT,1         FETCH SEGMENT NO.                   ELRT1593
         BAL,15   HEXEBC                                                ELRT1594
         STH,15   ERMSG4+6     STORE SEGMENT NO.                        ELRT1595
         LI,14    28           FETCH BYTE COUNT.                        ELRT1596
         BAL,15   E:PRINT           PRINT ERROR MESSAGE                 ELRT1597
         DATA     ERMSG4                                                ELRT1598
         B        R:COM        BRANCH TO START AGAIN.                   ELRT1599
*                                                                       ELRT1600
*                                                                       ELRT1601
ERMSG4   TEXT     'UNABLE TO LOAD SEGMENT=     '                        ELRT1602
         PAGE                                                           ELRT1603
*                                                                       ELRT1604
*                                                                       ELRT1605
*  SKIP TO TOP OF PAGE IN LINE PRINTER,,,,IGNORE IN KP                  ELRT1606
*                                                                       ELRT1607
*   PRIMARILY FOR LINE PRINTTER........                                 ELRT1608
*                                                                       ELRT1609
SKIPSAV  DATA     0,0                                                   ELRT1610
SKIPTP   EQU      %                                                     ELRT1611
         LCI      2            SAVE REG.. 14,15                         ELRT1612
         STM,14   SKIPSAV      SAVE.........                            ELRT1613
         CAL1,1   VFCSET       SET VFC.......                           ELRT1614
         LI,14    4            SET BYTE COUNT 4                         ELRT1615
         BAL,15   L:PRINT      PRINT..........                          ELRT1616
         DATA     KIPMSG       TOPOF PAGE CHARACTER.....                ELRT1617
         CAL1,1   VFCRST       VFC RESET.......                         ELRT1618
         LCI      2            RESTORE REGISTERS.....                   ELRT1619
         LM,14    SKIPSAV                                               ELRT1620
         B        *15          RETURN.............                      ELRT1621
KIPMSG   TEXT     '1   '                                                ELRT1622
VFCSET   GEN,1,7,7,17  1,X'05',0,LD:DCB                                 ELRT1623
         DATA     X'10'                                                 ELRT1624
VFCRST   GEN,1,7,7,17   1,X'05',0,LD:DCB                                ELRT1625
         DATA     0                                                     ELRT1626
         PAGE                                                           ELRT1627
*                                                                       ELRT1628
*                                                                       ELRT1629
*  THIS ROUTINE READS A RECORD FROM A CARD READER.                      ELRT1630
*                                                                       ELRT1631
READ:COM EQU      %                                                     ELRT1632
         LCI      2                                                     ELRT1633
         STM,14   R:SAVE            SAVE R14 AND R15                    ELRT1634
         STW,4    R:SAVE+2                                              ELRT1635
         STW,5    R:SAVE+3      SAVE REGISTER 5                         ELRT1636
         LI,4     -20                                                   ELRT1637
         LW,15    X40X                                                  ELRT1638
         STW,15   COMBUFF+20,4      STORE SPACES                        ELRT1639
         BIR,4    %-1                                                   ELRT1640
*                                                                       ELRT1641
         LW,4     DEF:FLG      DEFAULT.........                         ELRT1642
         BNEZ     RED:DEF      B: IF YES.......                         ELRT1643
         BIFSYS   (CPV,REB:)        B IF CPV                            ELRT1644
         CAL1,1   DRCRST       RESET DRC BIT.......                     ELRT1645
         CAL1,1   VFCSIST      SET THE VFC M:SI DCB (BIT)               ELRT1646
         LI,15    X'F2'        SET THE EXTRA PROMPT BIT.......          ELRT1647
         STB,15   FPT:READ+1   .......................                  ELRT1648
REB:     EQU      %                                                     ELRT1649
         CAL1,1   FPT:READ     READ A COMMAND.......                    ELRT1650
         STW,1    PAS:FLG      SET THE PASS FLAG.... NO DEFAULT         ELRT1651
         LI,4     4            SET INDEX.                               ELRT1652
         LW,14    *CID:DCB,4   FETCH THE ARS PARAMETER IN DCB.          ELRT1653
         SLS,14   -17          SHIFT RIGHT 17 BITS.                     ELRT1654
REB:0    LI,5     0            CLEAR REG. 5                             ELRT1655
         LI,4     1            SET INDEX 4                              ELRT1656
REBUNT   LB,15    COMBUFF,5    FETCH BYTE AND TRANSFER TO               ELRT1657
         STB,15   OUTXT,4       OUTPUT BUFFER.                          ELRT1658
         AI,4     1            INDEX INCREMENT.                         ELRT1659
         AI,5     1                                                     ELRT1660
         CW,5     14           ALL BYTES INTO OUTPUT BUFFER.            ELRT1661
         BL       REBUNT       BRANCH IF NO.                            ELRT1662
         BAL,15   E:PRINT      PRINT OUT TO OC AND/OR LO OR NONE.       ELRT1663
R:HELL   DATA     OUTXT                                                 ELRT1664
         LW,4     R:SAVE+2          RESTORE X4                          ELRT1665
         LW,5     R:SAVE+3     RESTORE REGISTER 5                       ELRT1666
         LI,15    X'F0'                                                 ELRT1667
         STB,15   FPT:READ+1   RESTORE THE BYTE IN CASE OF CP-V BENEFIT.ELRT1668
         LW,15    R:SAVE+1          RESTORE R15                         ELRT1669
         LW,14    R:SAVE       RESTORE REG. 14                          ELRT1670
         B        *R:SAVE+1                                             ELRT1671
OUTXT    TEXT     '*   '                                                ELRT1672
         RES      20                                                    ELRT1673
*                                                                       ELRT1674
*                                                                       ELRT1675
R:COMAAD EQU      %                                                     ELRT1676
         LB,10    10           FETCH THE TYPE CODE.......               ELRT1677
         CI,10    5            END OF FILE.........                     ELRT1678
         BE       RED:DEF      B: IF YES......                          ELRT1679
         CI,10    6            END OF DATA.........                     ELRT1680
         BE       RED:DEF      B: IF YES......                          ELRT1681
         BAL,15   ABN:PRN      ABNORMAL ERROR PRINTOUT                  ELRT1682
         B        R:COM        BRANCH (READ ANOTHER INPUT)              ELRT1683
*                                                                       ELRT1684
*                                                                       ELRT1685
VFCSIST  GEN,1,7,7,17 1,5,0,CID:DCB                                     ELRT1686
         DATA     X'10'                                                 ELRT1687
R:SAVE   RES 4                                                          ELRT1688
COMBUFF  RES      20                                                    ELRT1689
FPT:READ GEN,8,24 X'90',CID:DCB                                         ELRT1690
         DATA     X'F0000010',WRI:ERR,R:COMAAD,COMBUFF,80,X'5C'         ELRT1691
PAS:FLG  DATA     0                                                     ELRT1692
DEF:FLG  DATA     0                                                     ELRT1693
         DATA     X'E2E4D415',X'C3D3C915',X'E2D3C915'                   ELRT1694
         DATA     X'C4C9E215',X'C5D5C415'                               ELRT1695
*                                                                       ELRT1696
*                                                                       ELRT1697
*                                                                       ELRT1698
RED:DEF  LW,14    PAS:FLG      DEFAULT REGION..... ANY COMMANDS         ELRT1699
         BNEZ     RED:1        B: IF YES... COMMANDS ENTERED...         ELRT1700
         LW,14    DEF:FLG      CHECK DEFAULT FLAG.                      ELRT1701
         BNEZ     %+2          B: IF YES.                               ELRT1702
         STW,1    DEF:FLG      SET DEF:FLG.....                         ELRT1703
         LW,4     DEF:FLG      FETCH FLAG/ NOW A COUNTER.               ELRT1704
RED:2    LW,14    DEF:FLG,4    FETCH A COMMAND.......                   ELRT1705
         STW,14   COMBUFF      STORE TO COMMAND BUFFER...               ELRT1706
         LI,14    4                                                     ELRT1707
         MTW,1    DEF:FLG      BUMP DEF FLAG....                        ELRT1708
         B        REB:0        BRANCH TO EXECUTE.......                 ELRT1709
RED:1    LI,4     5            SET THE END OF ELLA COMMAND.             ELRT1710
         B        RED:2        B: EXECUTE IT.....                       ELRT1711
         PAGE                                                           ELRT1712
RD:14    LB,15    BUFFER       FETCH TYPE CODE........                  ELRT1716
         CI,15    X'15'        DEVICE ERROR......                       ELRT1717
         BNE      RD:EX        BRANCH NOT EQUAL.......                  ELRT1718
         LI,15    -1           NITIALIZE 15 WITH A MINUS ONE...         ELRT1719
         STW,15   SECFL                                                 ELRT1720
         LH,15    BUFFER+2,1                                            ELRT1721
         LW,4     SECPNTR                                               ELRT1722
         STH,15   SECLIST,4                                             ELRT1723
         AI,4     1            INCR. POINTER MODULO 32                  ELRT1724
         CI,4     32                                                    ELRT1725
         BL       RD:A14                                                ELRT1726
         LI,4     0                                                     ELRT1727
RD:A14   STW,4    SECPNTR                                               ELRT1728
         B        RD:EX                                                 ELRT1729
SECFL    DATA     0            PRIME FLAG '42-44'                       ELRT1730
SECPNTR  DATA     0            SECLIST POINTER....                      ELRT1731
SECLIST  DO1      16           LAST 32 DEV. ADR. FROM ACCEPTED 15'S     ELRT1732
         DATA     0                                                     ELRT1733
         PAGE                                                           ELRT1737
*                                                                       ELRT1738
*                                                                       ELRT1739
* THIS ROUTINE REWINDS AND OR READS A RECORD FROM ERROR FILE.           ELRT1740
* IF R15 IS RESET IT INDICATES EITHER EOF OR EOD CONDITION OCCURRED.    ELRT1741
* R15 IS SET IF IT IS A GOOD READ.                                      ELRT1742
* REW:FLAG IS SET ONLY FOR THE FIRST READ.                              ELRT1743
*                                                                       ELRT1744
*                                                                       ELRT1745
READ:ERF EQU      %                                                     ELRT1746
         LCI      0            SAVE THE REGISTER BLOCK                  ELRT1747
         STM,0    E:SAVE                                                ELRT1748
         LI,4     -256         RESETTO BLANKS THE BUFFER.               ELRT1749
         LW,5     X40X                                                  ELRT1750
         STW,5    BUFFER+256,4                                          ELRT1751
         BIR,4    %-1                                                   ELRT1752
         LW,4     REW:FLAG     CHECK REWIND OR NOT.                     ELRT1753
         BEZ      RD:01        B: IF ZERO                               ELRT1754
         STW,0    PSSF         RESET THE PASS FLAGAND SEQ. COUNT.       ELRT1755
         BIFSYS   *(CPV,REWIND)     B IF NOT CPV                        ELRT1756
         STW,0    BIOFLG
         STW,0    OPNCNT
* CHECK TO SEE IF M:BI DCB IS ASSIGNED TO A FILE OTHER
* THAN ERRFILE IN THE :SYS ACCOUNT
         LI,4     M:BI
         LI,5     6                 INDEX TO FLP IN M:BI DCB
         LW,6     *4,5              GET ADDR OF VLP'S
         SLS,6    15
         SLS,6    -15
         LB,4     *6,2              GET 3RD BYTE OF 1ST VLP ENTRY
         CI,4     0                 IF 0 --- NO SET OR ASSIGN
         BG       %+2
         B        ASIGN
         LI,4     -3
         LI,5     1
         LI,7     0
GETNAME  LW,8     *6,5              GET FILE NAME
         STW,8    FNAME,7           STORE IT IN VLP
         AI,5     1
         AI,7     1
         BIR,4    GETNAME
         LI,4     -2
         AI,5     1
         LI,7     0
GETACC   LW,8     *6,5              GET ACCOUNT NAME
         STW,8    ACCNAME,7         STORE IT IN VLP
         AI,5     1
         AI,7     1
         BIR,4    GETACC
ASIGN    CAL1,1   BIOPEN       M:OPEN. ASSIGN M:BI ERRFILE.             ELRT1757
REWIND   CAL1,1   REW          ISSUE A REWIND TO M:BI                   ELRT1758
         STW,0    REW:FLAG     RESET REW FLAG.                          ELRT1759
         STW,0    YR:R         RESET THE TIME BOUNDS.                   ELRT1760
         STW,0    JD:R                                                  ELRT1761
         STW,0    TM:R                                                  ELRT1762
         LI,4     16           INITIALIZE SECLIST.......                ELRT1763
         STW,0    SECLIST-1,4                                           ELRT1764
         BDR,4    %-1                                                   ELRT1765
         BIFSYS   *(CPV,RD:01)      B IF NOT CPV                        ELRT1766
*                                                                       ELRT1767
*        CP-V SYSTEM . GET THE KEY SET-UP                               ELRT1768
*                                                                       ELRT1769
         LW,14    TIME:1       FETCH THE TIME.                          ELRT1770
         BAL,15   MS:HMSN      CONVERT TO HR,MIN                        ELRT1771
         STW,13   KEYLOC       SAVE IN KEYLOC AS TEMP.                  ELRT1772
         LI,13    0            SET THE BYTE POINTER TO 0                ELRT1773
         LW,14    12           FETCH THE HRS.                           ELRT1774
         BAL,15   HEXTWO                                                ELRT1775
         DATA     KEYLOC+1                                              ELRT1776
         LI,13    2                                                     ELRT1777
         LW,14    KEYLOC       FETCH MINS.                              ELRT1778
         BAL,15   HEXTWO                                                ELRT1779
         DATA     KEYLOC+1                                              ELRT1780
         LW,14    DATE:1       FETCH THE DATE JULIAN.                   ELRT1781
         BAL,15   HEXDEC:      CONVERT TO PACK DECIMAL                  ELRT1782
         STW,15   KEYLOC                                                ELRT1783
         LW,14    YEAR:1       FETCH YEAR.                              ELRT1784
         BAL,15   HEXDEC:      CONVERT TO PACK DECIMAL                  ELRT1785
         OR,15    X0700                                                 ELRT1786
         STH,15   KEYLOC                                                ELRT1787
*                                                                       ELRT1788
*  KEYED READ.                                                          ELRT1789
*                                                                       ELRT1790
RD:02    LW,15    BRK:CHK           CHECK BREAK FLAG                    ELRT1791
         BNEZ     RD:FIN            B: WANTS OUT NOW......              ELRT1792
         LI,15    X'F8'             SET THE KEYED READ                  ELRT1793
         STB,15   FPT:RDE+1                                             ELRT1794
****************************************************                    RT--0046
****************************************************                    RT--0047
         CAL1,1   FPT:RDE      READ CAL.                                ELRT1795
****************************************************                    RT--0049
****************************************************                    RT--0050
         B        RD:03                                                 ELRT1796
*                                                                       ELRT1797
*  SEQUENTIAL READ.                                                     ELRT1798
*                                                                       ELRT1799
RD:01    LW,15    BRK:CHK           CHECK BREAK FLAG......              ELRT1800
         BNEZ     RD:FIN            B:  WANTS OUT NOW...                ELRT1801
         LI,15    X'F0'             SET SEQUENTIAL READ.                ELRT1802
         STB,15   FPT:RDE+1                                             ELRT1803
****************************************************                    RT--0052
****************************************************                    RT--0053
         CAL1,1   FPT:RDE      READ CAL.                                ELRT1804
****************************************************                    RT--0055
****************************************************                    RT--0056
RD:03    MTW,1    PSSF                                                  ELRT1805
         LW,15    BUFFER                                                ELRT1806
         XW,15    LASTCODE                                              ELRT1807
         LB,14    15                                                    ELRT1808
         CI,14    X'10'                                                 ELRT1809
         BNE      RD:035                                                ELRT1810
         AND,15   XFF                                                   ELRT1811
         CI,15    3                                                     ELRT1812
         BL       RD:035                                                ELRT1813
         LB,15    BUFFER                                                ELRT1814
         BEZ      RD:01                                                 ELRT1815
RD:035   EQU      %                                                     ELRT1816
         BIFSYS   *(CPV,RD:05)       B IF NOT CPV                       ELRT1817
         LI,4     10           SET COUNTER.                             ELRT1818
         LW,13    *EL:DCB,4    FETCH ADDRESS OF KEY.                    ELRT1819
         AND,13   X1FFFF       AND ADDRESS IN.                          ELRT1820
         LB,14    *13,1                                                 ELRT1821
         BAL,15   DECHEX:      CONVERT TO HEX.                          ELRT1822
         B        RD:ERRX      **ERROR** NOT DECIMAL.                   ELRT1823
         STW,15   YR:R         STORE TO YEAR .                          ELRT1824
          LH,14   *13,1                                                 ELRT1825
         AND,14   XFFFF        FETCH DATE (JULIAN)                      ELRT1826
         BAL,15   DECHEX:      CONVERT                                  ELRT1827
         B        RD:ERRX      **ERROR** NOT DECIMAL.                   ELRT1828
         STW,15   JD:R         SCVE                                     ELRT1829
         B        RD:04                                                 ELRT1830
*                                                                       ELRT1831
*  CP:R SECTION **                                                      ELRT1832
*                                                                       ELRT1833
RD:05    LB,15    BUFFER       FETCH TYPE CODE                          ELRT1834
         CI,15    X'18'        TYPE CODE 18                             ELRT1835
         BE       RD:06        B: IF YES                                ELRT1836
         CI,15    X'23'        TYPE CODE 23                             ELRT1837
         BNE      RD:04        B: NOT EQUAL.                            ELRT1838
RD:06    LB,15    BUFFER+2,1   FETCH YEAR FROM RECORD                   ELRT1839
         STW,15   YR:R         SAVE IN YEAR.                            ELRT1840
         LH,15    BUFFER+2,1   FETCH DATE.                              ELRT1841
         AND,15   XFFFF        AND                                      ELRT1842
         STW,15   JD:R         SAVE IN DATE.                            ELRT1843
*                                                                       ELRT1844
*                                                                       ELRT1845
*                                                                       ELRT1846
RD:04    LB,15    BUFFER       FETCH TYPE                               ELRT1847
         LI,4     CDECNT            COUNT OF TABLE                      RT--0058
         CB,15    CDE,4        CHECK ON VALID TYPE CODES.               ELRT1849
         BE       %+3          B: EQUA                                  ELRT1850
         BDR,4    %-2          LOOP                                     ELRT1851
         B        %+3                                                   ELRT1852
         LW,15    BUFFER+1     FETCH RELATIVE TIME.                     ELRT1853
         STW,15   TM:R         SAVE                                     ELRT1854
*                                                                       ELRT1855
*                                                                       ELRT1856
*        FETCH AND UPDATE SISIDF IF TYPE IS SYSTEM ID......             ELRT1857
*                                                                       ELRT1858
*                                                                       ELRT1859
         LB,15    BUFFER       FETCH TYPE                               ELRT1860
         CI,15    X'22'        B: IF SYSTEM ID                          ELRT1861
         BNE      RD:04A       B: NOT EQUALLLLLLLL                      ELRT1862
         LW,15    BUFFER+2     FETCH THE SYSTEM ID CONFIGURATION.       ELRT1863
         LI,4     X'C0'        FETCH THE MASK.                          ELRT1864
         AND,15   4            MASK.........                            ELRT1865
         SLS,15   10           SHIFT RIGHT 10                           ELRT1866
         STW,15   SYSIDF                                                ELRT1867
         LB,15    BUFFER+2                                              ELRT1868
         SLS,15   -4           SHIFT THE CP-R/CP-V OR OTHERS...         ELRT1869
         STB,15   SYSIDF       STORE..........                          ELRT1870
RD:04A   EQU      %                                                     ELRT1871
*                                                                       ELRT1872
*        CHECK TIME BOUNDS.                                             ELRT1873
*                                                                       ELRT1874
         LW,15    YR:R         FETCH THE YEAR GOTTEN FROM RECORDS/KEY   ELRT1875
         CW,15    YEAR:1       COMPARE TO BEGGINNING BOUNDARY.YEAR      ELRT1876
         BL       RD:01        B: IF LESS THAN (READ AGAIN)             ELRT1877
         BG       RD:07        B: IF GREATER THAN 1ST BOUNDS.           ELRT1878
         LW,15    JD:R         (YEAR=YEAR:1,CHECK DATE)                 ELRT1879
         CW,15    DATE:1       CHECK AGAINST DATE 1ST BOUND.            ELRT1880
         BL       RD:01        B: LESS THAN 1ST DATE....                ELRT1881
         BG       RD:07        B: GREATER THAN 1ST DATTE.....           ELRT1882
         LW,15    TM:R         (DATE=DATE:1,CHECK TIME)                 ELRT1883
         CW,15    TIME:1       CHECK AGAINST 1ST TIME.....              ELRT1884
         BL       RD:01        B: LESS THAN 1ST TIME.....               ELRT1885
         BE       RD:09        B: IF EQUAL TO 1ST TIME(YEAR=YEAR1,DATE=DELRT1886
*                                                                       ELRT1887
*        CODE HERE IS FOR THE TIME,DATE,YEAR BOUNDS GREATER THAN 1ST    ELRT1888
*        BOUNDARY....CONTINUE HERE IF THE TIME IS GREATER(YEAR,DATE,TIMEELRT1889
*                                                                       ELRT1890
RD:07    LW,15    YR:R         FETCH THE RECORD YEAR AGAIN...           ELRT1891
         CW,15    YEAR:2       CHECK AGAINST 2ND BOUND....              ELRT1892
         BL       RD:08A       B: IF LESS THAN........                  ELRT1893
         BG       RD:FIN       TERMINATE....GREATER THAN 2ND BOUND...   ELRT1894
         LW,15    JD:R         (YER = YEAR:2) CONTINUE                  ELRT1895
         CW,15    DATE:2       CHECK AGAINST 2ND DATE BOUND             ELRT1896
         BL       RD:08A       B: IF LESS THAN.........CONTINUE         ELRT1897
         BG       RD:FIN       B: IF GREATHER THAN. TERMINATE.....      ELRT1898
         LW,15    TM:R         (DATE=DATE:2)  CONTINUE                  ELRT1899
         CW,15    TIME:2       (DATE=DATE:2) CHECK TIME.......          ELRT1900
         BLE      RD:09        B: IF LESS THAN OR EQUAL TO........GOOD  ELRT1901
*                                                                       ELRT1902
*        CHECK FOR TIME GREATER THAN 23:59:59:999.........              ELRT1903
*                                                                       ELRT1904
         CW,15    TIME:3       CHECK AGAINST THE LMIT (23:59:59:999)    ELRT1905
         BL       RD:FIN       B: LESS THAN (NOT THE SPECIAL CASE)      ELRT1906
RD:08    LW,15    DISP:F       DO NOT GIVE TO DISPLAY GRAPHIC IF TIME GRELRT1907
         BNEZ     RD:01        READ ANOTHER RECORD.                     ELRT1908
         B        RD:09        PASS THROUGH. SPECIAL CASE.....          ELRT1909
*                                                                       ELRT1910
*        THIS CODE FOR THE YEAR OR DATE LESS THAN YEAR:2 OR DATE:2      ELRT1911
*                                                                       ELRT1912
RD:08A   LW,15    TM:R         FETCH THE TIME FOR CHECK...              ELRT1913
         CW,15    TIME:3       NOTMORE THAN THE LIMIT (23:59:59:999)    ELRT1914
         BL       RD:09        GOOD CONTINUE........                    ELRT1915
         B        RD:08        YES.....GO FOR MORE CHECKNG......        ELRT1916
*                                                                       ELRT1917
*                                                                       ELRT1918
*                                                                       ELRT1919
*  ELIMINATTE X'28'   IOCOUNT.....                                      ELRT1920
*                                                                       ELRT1921
*                                                                       ELRT1922
RD:09    EQU      %                                                     ELRT1923
         LW,15    SUM:F                                                 ELRT1924
         BNEZ     %+4                                                   ELRT1925
         LB,15    BUFFER                                                ELRT1926
         CI,15    X'28'                                                 ELRT1927
         BE       RD:XXX       X'28' B: READ AGAIN.....                 ELRT1928
*                                                                       ELRT1929
*  GOOD BRANCH THRU.                                                    ELRT1930
GOOB     EQU      %                                                     ELRT1931
*                                                                       ELRT1932
         LW,15    SLIS:F       CHECK SLIS FLAG............              ELRT1933
         BEZ      RD:10        B: NOT THE SLIS MODULE IN CORE.          ELRT1934
         LW,15    SECHFLG      CHECK SEARCH SORT FLAG                   ELRT1935
         BNEZ     RD:EX        B: NOT ZERO                              ELRT1936
*                                                                       ELRT1937
*         SLIS:F =1 COMMENCE BUILDING SORT TABLES.                      ELRT1938
*                                                                       ELRT1939
         LW,15    S:FLAG       TABLE DONE YET.                          ELRT1940
         BNEZ     RD:FIN       TABLE DONE. B: FIN.                      ELRT1941
*                                                                       ELRT1942
*                                                                       ELRT1943
*   BUILD MOD,IO TABLE HERE.....                                        ELRT1944
*  ONLY TYPES 21,12,11,13,15,36-39,51,52 WILL BE LOOKED AT              ELRT1945
*                                                                       ELRT1946
         LB,15    BUFFER            FETCH TYPE CODE.                    ELRT1947
         LI,4     3                 SET COUNTER.                        ELRT1948
MIO:1    CB,15    DVTY,4            CHECK TYPE                          ELRT1949
         BE       MIO:3             B: EQUAL                            ELRT1950
         CI,4     DVTYCNT           ALL DONE YET                        RT--0060
         BGE      MIO:2             B: GT. OR. EQ.                      ELRT1952
         AI,4     1                 BUMP ONE                            ELRT1953
         B        MIO:1             LOOP                                ELRT1954
MIO:2    CI,15    X'21'                                                 ELRT1955
         BNE      MIO:5             B:NOT EQQUAL                        ELRT1956
         LI,4     2                 SET COUNTER                         ELRT1957
MIO:4    CB,4     BUFFER,1          CONFIGURATION. COUNT DONE.          ELRT1958
         BGE      MIO:5             B: DONE.                            ELRT1959
         LW,13    BUFFER,4          FETCH MODEL                         ELRT1960
         SLS,13   -16               SHIFT RIGHT 16 BITS.                ELRT1961
         AI,4     1                                                     ELRT1962
         LW,14    BUFFER,4          FETCH IO ADDRESS.                   ELRT1963
         AND,14   XFFFF             MSK IN.                             ELRT1964
         BAL,15   MIO:GO                                                ELRT1965
         B        MIO:6             OVERFLOW OF 50 LOCATIONS.           ELRT1966
         AI,4     1                                                     ELRT1967
         B        MIO:4                                                 ELRT1968
MIO:3    LW,13    BUFFER                                                ELRT1969
         AND,13   XFFFF             MASK IN                             ELRT1970
         LW,14    BUFFER+2          FETCH MODEL AND IO ADDRESS.         ELRT1971
         AND,14   XFFFF             MASK IN.                            ELRT1972
         BAL,15   MIO:GO                                                ELRT1973
         B        MIO:6             OVERFLOW OF 50 LOCATION.            ELRT1974
MIO:5    EQU      %                                                     ELRT1975
         BAL,15   TABLD             BUILD SORT TABLE.                   ELRT1976
         B        MIO:6             OVERFLOW OF SORT TABLE.             ELRT1977
         B        RD:01             READ ANOTHER RECORD.....            ELRT1978
*                                                                       ELRT1979
*                                                                       ELRT1980
*   CHECK FOR TYPE 28...IF IT IS ASKED FOR...PRINT IT OUT.              ELRT1981
*    IF IT IS NOT ASKED FOR....IGNORE IT.......                         ELRT1982
*                                                                       ELRT1983
*                                                                       ELRT1984
RD:XXX   EQU      %                                                     ELRT1985
         LW,4     TYPEF        FETCH THE TYPES....                      ELRT1986
         BEZ      RD:01        BRANCH IF NO ENTRIES....IGNORE 28        ELRT1987
         LW,15    TYPEF,4      START ........                           ELRT1988
         CI,15    X'28'                                                 ELRT1989
         BE       GOOB         B: IF IT IS ASKED.......GOOD BRANCH      ELRT1990
         BDR,4    %-3                                                   ELRT1991
         B        RD:01        NONE.....IGNORE 28                       ELRT1992
*                                                                       ELRT1993
*  OVERFLOW,,OF EITHER THE MODEL/IO TABLE OR SORT TABLE....             ELRT1994
*                                                                       ELRT1995
MIO:6    LI,14    35                                                    ELRT1996
         BAL,15   E:PRINT                                               ELRT1997
         DATA     OVER:M                                                ELRT1998
         B        RD:FIN                                                ELRT1999
OVER:M   TEXT     '**OVERFLOW OF SORT OR MOD/IO TABLES'                 ELRT2000
*********************************************************               RT--0062
*                                   BEGINNING OF TABLE                  RT--0063
CDE      DATA     X'00101112'                                           ELRT2001
         DATA     X'13151617'                                           ELRT2002
         DATA     X'18191A1B',X'1D1E1F20',X'21222324'                   ELRT2003
         DATA     X'27272830',X'31323435',X'36373839',X'41424344'       ELRT2004
         DATA     X'50515253'                                           ELRT2005
         DATA     X'26492D2E'                                           RT--0065
         DATA,1   X'2F'                                                 RT--0066
CDEEND   EQU      %                                                     RT--0067
         BOUND    4                                                     RT--0068
*                                   END OF TABLE                        RT--0069
************************************************************            RT--0070
*                                                                       RT--0071
CDECNT   EQU      (BA(CDEEND)-BA(CDE))-1   NUMBER OF TABLE ENTRIES      RT--0072
*                                                                       ELRT2007
*                                                                       ELRT2008
*                                                                       ELRT2009
*    INPUT OF MODEL AND IO ADDRESS........                              ELRT2010
*     AT INPUT TIME REGISTER 13 CONTAINS MODEL NUMBER.                  ELRT2011
*                    REGISTER 14 CONTAINS IO ADDRESS.                   ELRT2012
*      CALL IS    BAL,15            MIO:GO                              ELRT2013
*                   OVERFLOW RETURN..**ERROR**                          ELRT2014
*                    GOOD RETURN..                                      ELRT2015
*                                                                       ELRT2016
MIO:GO   STW,4    MIO:GOS                                               ELRT2017
         LW,4     MODTBL:           FETCH COUNT                         ELRT2018
         BEZ      MIO:GOX                                               ELRT2019
         CW,13    MODTBL:,4                                             ELRT2020
         BE       MIO:GCN                                               ELRT2021
         BDR,4    %-2                                                   ELRT2022
MIO:GOX  LW,4     MODTBL:                                               ELRT2023
         AI,4     1                                                     ELRT2024
         STW,13   MODTBL:,4                                             ELRT2025
         STW,4    MODTBL:                                               ELRT2026
MIO:GCN  EQU      %                                                     ELRT2027
         LW,4     MDIO                                                  ELRT2028
         BEZ      MIO:G3                                                ELRT2029
MIO:G5   CW,14    IOMD,4       ANY IO ADDRESS IN THE TABLE....          ELRT2030
         BE       MIO:G1                                                ELRT2031
         B        MIO:G6       BRANCH TO LOOP.......                    ELRT2032
MIO:G1   CW,13    MDIO,4                                                ELRT2033
         BE       MIO:G2                                                ELRT2034
MIO:G6   BDR,4    MIO:G5       LOOP TILL ALL IO ADDRESS DONE.....       ELRT2035
MIO:G3   LW,4     MDIO                                                  ELRT2036
         CI,4     50                                                    ELRT2037
         BGE      MIO:G4                                                ELRT2038
         AI,4     1                                                     ELRT2039
         STW,13   MDIO,4                                                ELRT2040
         STW,14   IOMD,4                                                ELRT2041
         STW,4    MDIO                                                  ELRT2042
MIO:G2   AI,15    1                                                     ELRT2043
MIO:G4   LW,4     MIO:GOS                                               ELRT2044
         B        *15               RETURN                              ELRT2045
MIO:GOS  DATA     0                                                     ELRT2046
*                                                                       ELRT2047
*   TABLES.....                                                         ELRT2048
*                                                                       ELRT2049
MDIO     DATA     0                                                     ELRT2050
         RES      50                                                    ELRT2051
IOMD     EQU      %-1                                                   ELRT2052
         RES      50                                                    ELRT2053
MODTBL:  DATA     0                                                     ELRT2054
         RES      50                                                    ELRT2055
*                                                                       ELRT2056
*                                                                       ELRT2057
*   BUILD SORT TABLES SUBROUTINE.                                       ELRT2058
*                                                                       ELRT2059
*                                                                       ELRT2060
TABLD    EQU      %                                                     ELRT2061
         LCI      0                                                     ELRT2062
         STM,0    TABREGS           SAVE REGISTERS                      ELRT2063
         MTW,0    TAB1ST            IS THIS THE FIRST TIME THRU         ELRT2064
         BNE      TABADD            NO- ADD TO CURRENT PAGE             ELRT2065
         STW,0    PAGECNT      CLEAR PAGE COUNT.......                  ELRT2066
         STW,1    TAB1ST            SET RE-ENTRY FLAG                   ELRT2067
         BIFSYS   (CPV,TABCPV0),(RBM,TABRBM0)                           ELRT2068
         LI,9     CSTAB              CPR DYNAMIC MEMORY ADDRESS         ELRT2069
         SLS,9    -9                WORD ADDR TO PAGE ADDR              ELRT2070
         STW,9    VPNL                                                  ELRT2071
         STW,9    VPNH              SET UP CPR GETPAGE                  ELRT2072
         CAL1,7   CPRPAG       GET PAGE (CP-R STYLE)                    ELRT2073
         LI,9     CSTAB        GET THE STARTING ADDRESS ....            ELRT2074
         B        TABVR                                                 ELRT2075
TABRBM0  RES      0                                                     ELRT2076
         LW,9     K:BPEND           END OF RBM PROGRAM                  ELRT2077
         CW,9     K:BCKEND          END OF RBM BACKGROUND MEMORY        ELRT2078
         BG       *TABREGS+15       IF NO SPACE, NO-SKIP EXIT           ELRT2079
         B        TABVR                                                 ELRT2080
TABCPV0  EQU      %                                                     ELRT2081
          CAL1,8     PAG::       GET PAGE                               ELRT2082
         BCS,8    *TABREGS+15       NO PAGES- ERR RETURN                ELRT2083
TABVR    STW,9    TABDEX       INITIALIZE STARTING ADDRESS.             ELRT2084
         STW,9    TABPNTR           STR TAB PNTR START ADDRESS          ELRT2085
         STW,0    *TABDEX           CLR ENTRY COUNT                     ELRT2086
         STW,1    PAGECNT      RESET PAGE COUNT                         ELRT2087
         B        SAMPAGE                                               ELRT2088
TABADD   LI,8     0                 CLR R IN PREP FOR DIVIDE            ELRT2089
         LW,9     TABDEX            FETCH CURRENT STR INDEX             ELRT2090
         AI,9     4                 INCLUDE ROOM FOR NEXT ENTRY...      RT--0074
         BIFSYS   (RBM,TABRBM2)     B IF RBM                            ELRT2091
         DW,8     PAGE              (PAGE=512)                          ELRT2092
         MTW,0    8                 IF ANY REMAINDER,...                ELRT2093
         BCS,3    SAMPAGE           USE THE CURRENT PAGE                ELRT2094
         BIFSYS   *(CPR,TABCPV2)    B IF NOT CPR                        ELRT2095
         CAL1,7   CPRPAG       GET PAGE (CP-R)                          ELRT2096
         B        TABVR:0                                               ELRT2097
TABRBM2  RES      0                                                     ELRT2098
         CW,9     K:BCKEND          END OF RBM BACKGROUND MEMORY        ELRT2099
         BG       *TABREGS+15       IF NO SPACE, NO-SKIP EXIT           ELRT2100
         B        SAMPAGE                                               ELRT2101
TABCPV2  EQU      %                                                     ELRT2102
          CAL1,8    PAG::        OTHERWISE GET NEW PAGE                 ELRT2103
         BCS,8    *TABREGS+15       NO PAGES- ERR RETURN                ELRT2104
TABVR:0  MTW,1    PAGECNT      INCREMENT PAGE COUNT...                  ELRT2105
SAMPAGE  MTW,1    TABDEX            POINT TO 1ST LOC OF THIS ENTRY      ELRT2106
         STW,0    *TABDEX,2                                             ELRT2107
         STW,0    *TABDEX           CLR 1ST LOC OF THIS ENTRY           ELRT2108
         STW,0    *TABDEX,1         CLR 2ND LOC                         ELRT2109
         LB,8     BUFFER            FETCH TYPE CODE                     ELRT2110
         STB,8    *TABDEX           STORE IN ENTRY                      ELRT2111
         BIFSYS   *(CPV,SAMPALO)    B IF NOT CPV                        ELRT2112
         LI,4     10                                                    ELRT2113
         LW,13    *EL:DCB,4                                             ELRT2114
         LW,13    *13,2                                                 ELRT2115
         LB,13    13                                                    ELRT2116
         STB,13   *TABDEX,1                                             ELRT2117
SAMPALO  EQU      %                                                     ELRT2118
*                                                                       RT--0076
*                                   IF TYPE CODE IS :                   RT--0077
*                                   11,12,13,15,36-39                   RT--0078
*                                   51-52...STORE MDL                   RT--0079
         LI,4     STBLCNT           INDEX TO TBL                        RT--0080
         CB,8     STBL,4            IS IT EQUAL TO TBL ENTRY            RT--0081
         BE       STORMOD           YES..BRANCH                         RT--0082
         BDR,4    %-2               NO ...LOOP                          RT--0083
*                                                                       RT--0084
*        OTHERWISE FALL THRU                                            RT--0085
*                                                                       RT--0086
         B        STRIO                                                 ELRT2139
****************************************************************        RT--0088
*                                   BEGINNING OF TABLE                  RT--0089
*                                                                       RT--0090
*                                   TBL OF VALID CODES.....             RT--0091
STBL     DATA,1   0,X'11',X'12',X'13',X'15'                             RT--0092
         DATA,1   X'36',X'37',X'38',X'39',X'51',X'52'                   RT--0093
*                                                                       RT--0094
STBLEND  EQU      %                                                     RT--0095
         BOUND    4                                                     RT--0096
*                                   END OF TABLE                        RT--0097
*****************************************************************       RT--0098
STBLCNT  EQU      (BA(STBLEND)-BA(STBL))-1   NUMBER OF TABLE ENTRIES    RT--0099
*                                                                       RT--0100
*                                                                       ELRT2140
STORMOD  LH,12    BUFFER,1          GET MODEL# FROM BUFFER              ELRT2141
         AND,12   XFFFF                                                 ELRT2142
         STH,12   *TABDEX,3         STORE IN THE MINI TABLE             ELRT2143
         LH,12    BUFFER+2,1   GET I/O ADDRESS                          ELRT2144
         AND,12   XFFFF                                                 ELRT2145
         STH,12   *TABDEX,1         STORE IN 1ST WRD OF ENTRY           ELRT2146
         B        KEYIN             NOW STORE KEYS                      ELRT2147
*                                                                       ELRT2148
STRIO    CI,8     X'16'             IF TYPE CODE = 16 OR 34,            ELRT2149
         BE       %+3               STORE ONLY I/O ADDRESS              ELRT2150
         CI,8     X'34'                                                 ELRT2151
         BNE      KEYIN             OTHERWISE, STORE KEYS               ELRT2152
*                                                                       ELRT2153
         LH,12    BUFFER,1          GET I/O ADDRESS                     ELRT2154
         STH,12   *TABDEX,1                                             ELRT2155
*                                                                       ELRT2156
KEYIN    MTW,2    TABDEX            POINT TO KEY WRD AREA               ELRT2157
         BIFSYS   (CPV,KEYIN1)      B IF CPV                            ELRT2158
         LW,13    PSSF              OTHERWISE, GET CPR KEY              ELRT2159
         B        TABEXIT           GO STORE ENTRY &THEN EXIT           ELRT2160
*                                                                       ELRT2161
KEYIN1   RES      0                                                     ELRT2162
         LI,4     10                                                    ELRT2163
         LW,13    *EL:DCB,4         GET KEY ADDRESS                     ELRT2164
         AND,13   X1FFFF            MASK FOR ADDRESS ONLY               ELRT2165
         LW,12    *13               R12= KEY WORD 1                     ELRT2166
         LW,13    *13,1             R13= KEY WORD 2                     ELRT2167
         STW,12   *TABDEX           STR KEY1                            ELRT2168
TABEXIT  MTW,1    TABDEX                                                ELRT2169
         STW,13   *TABDEX           STR KEY2                            ELRT2170
         MTW,1    *TABPNTR          INCREMENT ENTRY COUNT               ELRT2171
         MTW,1    TABREGS+15        INCREMENT RETURN                    ELRT2172
TABXT    B        *TABREGS+15  RETURN                                   ELRT2173
*                                                                       ELRT2174
TABPNTR  PZE                        TABLE STARTING ADDRESS              ELRT2175
TAB1ST   PZE                        FIRST TIME FLAG                     ELRT2176
PAGE     PZE      512               DIVISOR FOR PAGE MATH               ELRT2177
TABDEX   PZE                        STORING INDEX                       ELRT2178
TABREGS  RES      16                TEMP REG STORAGE                    ELRT2179
PAGECNT  DATA     0                                                     ELRT2180
PAG::     DATA     X'8000001'                                           ELRT2181
CPRPAG   GEN,8,1,7,16  X'57',1,0,5                                      ELRT2182
         DATA     X'86000000',TABN                                      ELRT2183
VPNL     DATA     0                                                     ELRT2184
VPNH     DATA     0                                                     ELRT2185
*                                                                       ELRT2186
TABN     BAL,15   ABN:PRN                                               ELRT2187
         B        TABXT                                                 ELRT2188
*                                                                       ELRT2189
K:BPEND  EQU      X'153'            CONTAINS ADDR OF END OF RBM BKG PGM ELRT2190
K:BCKEND EQU      X'141'            CONTAINS ADDR OF END OF RBM BKG MEM ELRT2191
*                                                                       ELRT2192
*                                                                       ELRT2193
* TYPE CHECK.                                                           ELRT2194
*                                                                       ELRT2195
RD:10    LW,15     SUM:F     SUM MODULE PRESENCE FLAG SET.              ELRT2196
         BEZ       RD:10A    B: NO.                                     ELRT2197
         LB,15     BUFFER      FETCH TYPE                               ELRT2198
         CI,15     X'18'                                                ELRT2199
         BE        RD:EX      BRANCH IF SYSTEM START UP RECORD.         ELRT2200
RD:10A   LW,15     TYPEF     ANY TYPE DELIMITER.                        ELRT2201
         BEZ      RD:12        B: NONE.                                 ELRT2202
         LB,15    BUFFER       FETCH TYPE                               ELRT2203
         LW,4     TYPEF        FETCH COUNU.                             ELRT2204
RD:A10   CW,15    TYPEF,4                                               ELRT2205
         BE       RD:12        B: EQUAL TO                              ELRT2206
         BDR,4    RD:A10       LOOP                                     ELRT2207
         LW,4     TYPEF        CHECK FOR UNKNOWN TYPE ASKED FOR..       ELRT2208
R:1      LW,13    TYPEF,4                                               ELRT2209
         CI,13    X'FF'        B: IF EQUAL.....                         ELRT2210
         BE       R:2                                                   ELRT2211
         BDR,4    R:1          LOOP.......                              ELRT2212
         B        RD:01        NONE ASKED FOR....                       ELRT2213
R:2      LI,4     41                IS THE BUFFER TYPE AN UNKNOWN.      ELRT2214
         CB,15    CDE,4                                                 ELRT2215
         BE       RD:01        B: IF NO.....                            ELRT2216
         BDR,4    %-2          LOOP                                     ELRT2217
         B        RD:12        YES... AN  UNKNOWN....CONTINUE           ELRT2218
*                                                                       ELRT2219
*  CHECK FOR ANY DEVICE ORIENTED                                        ELRT2220
*                                                                       ELRT2221
RD:11    LI,4     DVTYCNT           TABLE SIZE                          RT--0102
RD:A11   CB,15    DVTY,4                                                ELRT2223
         BE       RD:B11       B: EQUAL                                 ELRT2224
         BDR,4    RD:A11                                                ELRT2225
         LW,4     SECFL        CHK: FOR PARITY 2NDARIES IF PRIMED.      ELRT2226
         BCR,1    RD:B11+1     BRANCH CONDITION RESET.......            ELRT2227
         LI,4     SEC4XCNT          SIZE                                RT--0104
         LB,15    BUFFER       FETCH TYPE CODE.....                     ELRT2229
RD:C11   CB,15    SEC4X,4                                               ELRT2230
         BE       RD:EX        PRINT IF 42-44                           ELRT2231
         BDR,4    RD:C11                                                ELRT2232
         STW,0    SECFL        RESET SECFL.....                         ELRT2233
         B        RD:B11+1                                              ELRT2234
********************************************************************    RT--0106
*                                   BEGINNING OF TABLE                  RT--0107
*                                                                       RT--0108
SEC4X    BS       0,X'42',X'43',X'44'                                   ELRT2235
SEC4XEND EQU      %                                                     RT--0110
         BOUND    4                                                     RT--0111
*                                   END OF TABLE                        RT--0112
********************************************************************    RT--0113
*                                                                       RT--0114
SEC4XCNT EQU      (BA(SEC4XEND)-BA(SEC4X))-1   NUMBER OF TABLE ENTRIES  RT--0115
*                                                                       ELRT2236
*                                                                       ELRT2237
*                                                                       ELRT2238
RD:B11   AI,13    1                                                     ELRT2239
         B        *13                                                   ELRT2240
*                                                                       ELRT2241
*  MODEL AND DEVICE  CHECK.                                             ELRT2242
*  ONLY ALLOWED FOR DEVICE ORIENTED TYPES.                              ELRT2243
*                                                                       ELRT2244
RD:12    LW,15    MODF         ANY MODELS                               ELRT2245
         BEZ      RD:13        B: ZERO                                  ELRT2246
         LB,15    BUFFER       FETCH TYPE                               ELRT2247
         BAL,13   RD:11        CHECK DEVICE ORIENTED TYPE               ELRT2248
         B        RD:01        NONE.                                    ELRT2249
         CI,4     2            IS ANY OF THE CHECKS THE LAST TWO        ELRT2250
         BE       RD:01        CHK: FOR PRINTING OF TYPE 16             ELRT2251
         BG       %+6          B: IF GREATER....                        ELRT2252
         LI,4     -32                                                   ELRT2253
RD:B12   LH,15    SECLIST+16,4                                          ELRT2254
         CH,15    BUFFER,1                                              ELRT2255
         BE       RD:EX        B: IF EQUAL TO...                        ELRT2256
         BIR,4    RD:B12                                                ELRT2257
         LW,4     MODF         FETCH COUNTER.                           ELRT2258
         LW,15    BUFFER       FETCH MODEL                              ELRT2259
         AND,15   XFFFF                                                 ELRT2260
RD:A12   CW,15    MODF,4       FETCH                                    ELRT2261
         BE       RD:13        B: EQUAL                                 ELRT2262
         BDR,4    RD:A12       LOOP                                     ELRT2263
         B        RD:01        NONE HERE.                               ELRT2264
*                                                                       ELRT2265
*                                                                       ELRT2266
*                                                                       ELRT2267
RD:13    LW,15    DEVF         ANY DEVICE CHECKS.                       ELRT2268
         BEZ      RD:14        B: ZERO.                                 ELRT2269
         LB,15    BUFFER                                                ELRT2270
         BAL,13   RD:11                                                 ELRT2271
         B        RD:01        NONE.                                    ELRT2272
         LW,4     DEVF         COUNTER.                                 ELRT2273
         CI,15    X'16'        IS IT DEVICE SECONDARY.                  ELRT2274
         BNE      RD:A13       B: NOT EAL                               ELRT2275
         LW,15    BUFFER                                                ELRT2276
         B        RD:B13                                                ELRT2277
RD:A13   LW,15    BUFFER+2                                              ELRT2278
RD:B13   AND,15   XFFFF                                                 ELRT2279
RD:C13   CW,15    DEVF,4                                                ELRT2280
         BE       RD:14        B: EQUAL TO                              ELRT2281
         BDR,4    RD:C13                                                ELRT2282
         B        RD:01                                                 ELRT2283
*                                                                       ELRT2284
*                                                                       ELRT2285
*                                                                       ELRT2286
RD:EX    LI,15    1                                                     ELRT2287
         LCI      15                                                    ELRT2288
         LM,0     E:SAVE                                                ELRT2289
         B        *E:SAVE+15                                            ELRT2290
*                                                                       ELRT2291
*                                                                       ELRT2292
*                                                                       ELRT2293
RD:FIN   LW,15    SECHFLG      CHECK SEARCH SORT FLAG.                  ELRT2294
         BNEZ     RD:FB1       B: NOT ZERO                              ELRT2295
         CAL1,1   CLOSEL       CLOSE M:BI DCB                           ELRT2296
         LW,15    PSSF         ANY RECORDS.                             ELRT2297
         BNEZ     RD:FB        B: NOT EQUAL ZERO                        ELRT2298
         LI,14    18                                                    ELRT2299
         BAL,15   L:PRINT                                               ELRT2300
         DATA     MSGRF                                                 ELRT2301
RD:FB    LW,15    SLIS:F            SORT IN.                            ELRT2302
         BEZ      RD:FB1                                                ELRT2303
         MTW,0    TAB1ST       CHECK SORT TABLE INDICATOR.....          ELRT2304
         BNEZ     %+2          IF SOMETHINGIN THE SORT TABLE FINE..     ELRT2305
         STW,1    BRK:CHK      IF NOT .. SET TERMINATION INDICATOR...   ELRT2306
         LW,15    S:FLAG                                                ELRT2307
 BNEZ RD:FB1                                                            ELRT2308
 LI,4 MODTBL: FETCH ADDRESS OF MODEL IO TABLE.                          ELRT2309
 LW,5 MODTBL: FETCH COUNT/.                                             ELRT2310
 BAL,6 SETSTR: SET STRAIGHT.....STARINGHTEN TABLES..                    ELRT2311
 LI,5 1 SET REG 5                                                       ELRT2312
 LI,4 1                                                                 ELRT2313
STS:B1 CW,4 MODTBL: CW,COUNT TO TABLE.                                  ELRT2314
 BG STS:B6 B: GREATER THAN                                              ELRT2315
 LW,13 MODTBL:,4 START TO SORT IN ASCENDING ORDER                       ELRT2316
STS:B2 CW,5 MDIO                                                        ELRT2317
 BG STS:B5 BRANCH GREATER                                               ELRT2318
 LW,6 5 STORE TO 6 CONTENTS OF 5                                        ELRT2319
 LW,14 MDIO,5 MODEL NO                                                  ELRT2320
 LW,15 IOMD,5 I ADDRESS.                                                ELRT2321
STS:B3 CW,13 MDIO,6 EQUAL OR NOT                                        ELRT2322
 BE STS:B4 B: EQUAL                                                     ELRT2323
 AI,6 1 BUMP 6                                                          ELRT2324
 CW,6 MDIO GREATER                                                      ELRT2325
 BLE STS:B3 B: LESS EQUAL                                               ELRT2326
 B STS:B5                                                               ELRT2327
STS:B4 XW,14 MDIO,6                                                     ELRT2328
 XW,15 IOMD,6 XCHANGE MODEL AND IO WITH MEMORY                          ELRT2329
 STW,14 MDIO,5 STORE TO OTHER HIGHER TABLE.                             ELRT2330
 STW,15 IOMD,5                                                          ELRT2331
         AI,5     1            BUMP 5 ONE                               ELRT2332
         STW,5    CK           SAVE 5                                   ELRT2333
 B STS:B2                                                               ELRT2334
STS:B5 AI,4 1 BUMP 4                                                    ELRT2335
 LW,5 CK FETCH CK                                                       ELRT2336
 B STS:B1                                                               ELRT2337
STS:B6 EQU %                                                            ELRT2338
         LI,7     1            INITIALIZE                               ELRT2339
STS:B9   CW,7     MDIO         LESS OR GREATER.                         ELRT2340
         BG       STS:B10                                               ELRT2341
         LW,5     7            ADJUST                                   ELRT2342
         AI,5     -1           LESS ONE                                 ELRT2343
         STW,5    STP                                                   ELRT2344
         LW,6     MDIO,7       FETCH BEGINNING MODEL.                   ELRT2345
         LI,5     0            ZERO5                                    ELRT2346
STS:B7   CW,6     MDIO,7       MATCH.                                   ELRT2347
         BNE      STS:B8       B: NO MATCH                              ELRT2348
         AI,5     1            MATCH..                                  ELRT2349
         AI,7     1                                                     ELRT2350
         CW,7     MDIO         GREATER THAN                             ELRT2351
         BLE      STS:B7       LOOP                                     ELRT2352
STS:B8   CI,5     2            LESS THAN 2                              ELRT2353
         BL       STS:B9                                                ELRT2354
         LI,4     IOMD         FETCH ADDRESS OF IO                      ELRT2355
         AW,4     STP                                                   ELRT2356
         BAL,6    SETSTR:      SORT INTO ASCENDING                      ELRT2357
         B        STS:B9       LOOP                                     ELRT2358
STS:B10  EQU      %                                                     ELRT2359
RD:FB2 STW,1 S:FLAG SET SORT FLAG.                                      ELRT2360
RD:FB1 LI,15 0 SET EOD FLAG.                                            ELRT2361
 B RD:EX+1                                                              ELRT2362
CK DATA 0                                                               ELRT2363
DONE DATA 0                                                             ELRT2364
STP DATA 0                                                              ELRT2365
*                                                                       ELRT2366
MSGRF    TEXTS    'NOTHING IN ERRFILE'                                  ELRT2367
*                                                                       ELRT2368
RD:ERRX  LI,14    46                                                    ELRT2369
         BAL,15   E:PRINT                                               ELRT2370
         DATA     %+2                                                   ELRT2371
         B        RD:04        ASSUME JD:R OR YR:R SAME AS PREVIOUS     ELRT2372
   TEXT   'ERROR IN KEY FORMAT(YEAR/DATE NOT IN PACK DECIMAL)'          ELRT2373
*                                                                       ELRT2374
         PAGE                                                           ELRT2375
*                                                                       ELRT2376
*                                                                       ELRT2377
*  READFIL WILL READ A RECORD FROM THE ERRFILE                          ELRT2378
*                                                                       ELRT2379
* IF CP-R THE KEY WILL BE IN A FORM OF SEQUENCE NUMBER.                 ELRT2380
*  IF CP-V THE KEY WILL BE THE ACTUAL KEY FOR THE RECORD.               ELRT2381
*                                                                       ELRT2382
*  UPON ENTRY: REGISTER 13 = KEY1  , 14 = KEY2  (CP-V)                  ELRT2383
*                        13 = 0     , 14 = SEQUENCE NUMBER (CP-R)       ELRT2384
*                                                                       ELRT2385
*CALL:                                                                  ELRT2386
*        BAL,15   READFIL                                               ELRT2387
*                                                                       ELRT2388
*UPON RETURN. RECORD WILL BE IN BUFFER.                                 ELRT2389
*                                                                       ELRT2390
*        R15 = 1  GOOD RETURN........                                   ELRT2391
*        R15 = 0   BAD RETURN. EOF OR AND ERROR.                        ELRT2392
*                                                                       ELRT2393
* THIS SUBROUTINE USES READ:ERF AS THE LEGS FOR THE READ.               ELRT2394
*                                                                       ELRT2395
* SECHFLG MUST BE 1 UPON GOING IN.                                      ELRT2396
*                                                                       ELRT2397
READFIL  LCI      0            SAVE ALL EGISTER.                        ELRT2398
         STM,0    E:SAVE                                                ELRT2399
         STW,1    SECHFLG      SET SECHFLG                              ELRT2400
         BIFSYS   (CPV,RDE:1)       B IF CPV                            ELRT2401
*                                                                       ELRT2402
*                                                                       ELRT2403
*  CP-R SECTION.... SEQUENTIAL READ ........                            ELRT2404
*                                                                       ELRT2405
*                                                                       ELRT2406
         B        CP:R:BR                                               ELRT2407
*                                                                       ELRT2408
*                                                                       ELRT2409
*  CP-V SECTION ... SET UP KEYS, BRANCH TO KEYED READ...                ELRT2410
*                                                                       ELRT2411
*                                                                       ELRT2412
RDE:1    STW,13   KEYLOC                                                ELRT2413
         STW,14   KEYLOC+1     SET UP KEYS                              ELRT2414
         STB,12   KEYLOC+2                                              ELRT2415
         B        RD:02                                                 ELRT2416
*                                                                       ELRT2417
*                                                                       ELRT2418
SECHFLG  DATA     0                                                     ELRT2419
*                                                                       ELRT2420
*                                                                       ELRT2421
*                                                                       ELRT2422
*  SET UP THE CP:R READ BY THE SEQUENCE NUMBER.....                     ELRT2423
*  UPON ENTRANCE   REGISTER 14 HAS THE SEQENCE NUMBER...                ELRT2424
*                                                                       ELRT2425
*   FLAG:PR =0 IF A REWIND IS NEEDED.                                   ELRT2426
*    FLAG:PR =1 IF ANOTHER READ WITHOUT REWIND                          ELRT2427
*                                                                       ELRT2428
CP:R:BR  EQU      %                                                     ELRT2429
         LW,7     FLAG:PR      FETCH FLAG                               ELRT2430
         BNEZ     CPRRF1       B: NO REWIND.                            ELRT2431
         CAL1,1   REW          REWIND EL:DCB FILE.                      ELRT2432
         STW,1    FLAG:PR      SET FLAG                                 ELRT2433
         STW,0    REC#         SET UP RECORD NUMBER                     ELRT2434
CPRRF1   LW,13    14           SAVE SEQUENCE NUMBER                     ELRT2435
         SW,14    REC#         SUBTRACT.                                ELRT2436
         STW,13   REC#         SUBSTITUTE NEW REC #                     ELRT2437
         AI,14    -1           ADJUST BY ONE.                           ELRT2438
         CI,14    0            IS SKIPS TO BE DONE NEGATIVE??           ELRT2439
         BGEZ     CPRFWD       B: SKIPS ARE POSITIVE.                   ELRT2440
         LCW,14   14           FETCH THE ABSOULUTE.                     ELRT2441
         LI,7     X'10'                                                 ELRT2442
         STB,7    SKIPFPT+1,3  SET THE SKIP BACKWARD BIT.               ELRT2443
         B        CPRFWD+1                                              ELRT2444
CPRFWD   STB,0    SKIPFPT+1,3  SET THE FWD SKIP BIT                     ELRT2445
         CI,14    0            SKIP ZERO                                ELRT2446
         BE       CPRRF2       B: IS YES.                               ELRT2447
         STW,14   SKIPREW      STORE THE AMOUNT TO BE SKIPPED           ELRT2448
         CAL1,1   SKIPFPT      SKIP..                                   ELRT2449
CPRRF2   B        RD:01        BRACH TO READ.....                       ELRT2450
*                                                                       ELRT2451
*                                                                       ELRT2452
*                                                                       ELRT2453
REC#     DATA     0                                                     ELRT2454
FLAG:PR  DATA     0                                                     ELRT2455
SKIPFPT  GEN,8,1,3,20  X'9D',0,0,EL:DCB                                 ELRT2456
         GEN,1,1,6,1,1,16,1,1,1,3 1,1,0,0,0,0,0,0,0,0                   ELRT2457
SKIPREW  DATA     0                                                     ELRT2458
         DATA     R:ERFAAD                                              ELRT2459
*                                                                       ELRT2460
*                                                                       ELRT2461
*                                                                       ELRT2462
R:ERFEAD EQU      %                                                     ELRT2463
         LW,14    SECHFLG      CHECK SEARCH SORTED FLAG.                ELRT2464
         BNEZ     RD:FIN                                                ELRT2465
       LB,14    10                                                      ELRT2466
         CI,14    X'43'                                                 ELRT2467
         BE       RD:01        KEY NO FOUND. READ AGAIN.                ELRT2468
         BAL,15   ERR:PRN           PRINT ERROR MSG                     ELRT2469
         B        RD:FIN                                                ELRT2470
*                                                                       ELRT2471
R:ERFAAD EQU      %                                                     ELRT2472
         LB,14    10                FETCH ERROR CODE                    ELRT2473
         CI,14    5                 CK EOD                              ELRT2474
         BE       RD:FIN                                                ELRT2475
         CI,14    6                 CK EOF                              ELRT2476
         BE       RD:FIN                                                ELRT2477
*                                                                       ELRT2478
         BAL,15   ABN:PRN           PRINT ABNORMAL ERROR MSG            ELRT2479
R:ERRC   B        RD:FIN                                                ELRT2480
*                                                                       ELRT2481
*                                                                       ELRT2482
*  SUBROUTINE TO SORT A TABLE INTO ASCEDNIGN ORDER.                     ELRT2483
*  UPON ENTRY REG 4= ADDRESS. START ADDRESS OF TALBE. (ADDRESS-1)       ELRT2484
*              REG 5= NUMBER OF WORDS IN TABLE                          ELRT2485
*                                                                       ELRT2486
*    BAL,6  SETSTR:                                                     ELRT2487
*                                                                       ELRT2488
*                                                                       ELRT2489
*                                                                       ELRT2490
SETSTR:  LCI      3            SAVE REISTER 4,5,6                       ELRT2491
 STM,4 ADDRESS                                                          ELRT2492
 LI,4 1                                                                 ELRT2493
 LI,5 1                                                                 ELRT2494
 LW,6 :NO: FETCH NUMBER OF WORDS.                                       ELRT2495
 CI,6 1                                                                 ELRT2496
 BLE STS:0                                                              ELRT2497
STS:4 LW,6 *ADDRESS,4                                                   ELRT2498
STS:3 CW,4 :NO:                                                         ELRT2499
 BG STS:1                                                               ELRT2500
 CW,6 *ADDRESS,4                                                        ELRT2501
 BL STS:2                                                               ELRT2502
 XW,6 *ADDRESS,4                                                        ELRT2503
STS:2 AI,4 1                                                            ELRT2504
 B STS:3                                                                ELRT2505
STS:1 STW,6 *ADDRESS,5                                                  ELRT2506
 AI,5 1                                                                 ELRT2507
 CW,5 :NO:                                                              ELRT2508
 BG STS:0                                                               ELRT2509
 LW,4 5                                                                 ELRT2510
 B STS:4                                                                ELRT2511
STS:0 LCI 3                                                             ELRT2512
 LM,4 ADDRESS                                                           ELRT2513
 B *6                                                                   ELRT2514
ADDRESS DATA 0                                                          ELRT2515
:NO: DATA 0,0                                                           ELRT2516
*                                                                       ELRT2517
*                                                                       ELRT2518
*                                                                       ELRT2519
*                                                                       ELRT2520
*                                                                       ELRT2521
*                                                                       ELRT2522
REW      GEN,8,1,23  X'81',1,EL:DCB                                     ELRT2523
         GEN,24,8 0,X'10'                                               ELRT2524
REW:FLAG DATA     0                                                     ELRT2525
BUFFER   RES      256                                                   ELRT2526
E:SAVE   RES      16                                                    ELRT2527
FPT:RDE  GEN,8,24 X'90',EL:DCB                                          ELRT2528
         DATA     X'F0000010',R:ERFEAD,R:ERFAAD,BUFFER,1024             ELRT2529
         DATA     KEYLOC                                                ELRT2530
         BOUND    8                                                     ELRT2531
KEYLOC   DATA     0,0,0                                                 ELRT2532
PSSF     DATA     0                                                     ELRT2533
YR:R     DATA     0                                                     ELRT2534
JD:R     DATA     0                                                     ELRT2535
TM:R     DATA     0                                                     ELRT2536
X1FFFF   DATA     X'1FFFF'                                              ELRT2537
X0700    DATA     X'700'                                                ELRT2538
*****************************************************************       RT--0117
*                                   BEGINNING OF TABLE                  RT--0118
*                                                                       RT--0119
*                                   DEVICE ORIENTED ERR CODE TABLE      RT--0120
DVTY     DATA     X'00163411'                                           ELRT2539
         DATA     X'12131536'                                           ELRT2540
         DATA     X'37383951'                                           ELRT2541
         DATA,1   X'52'                                                 RT--0122
*                                                                       RT--0123
DVTYEND  EQU      %                                                     RT--0124
         BOUND    4                                                     RT--0125
*                                                                       RT--0126
*                                   END OF TABLE                        RT--0127
***************************************************************         RT--0128
*                                                                       RT--0129
DVTYCNT  EQU      (BA(DVTYEND)-BA(DVTY))-1  NUMBER OF TABLE ENTRIES     RT--0130
*                                                                       RT--0131
*                                                                       RT--0132
CLOSEL   GEN,1,7,7,17  1,X'15',0,EL:DCB                                 ELRT2543
         DATA     0                                                     ELRT2544
BIOPEN   GEN,8,24 X'94',EL:DCB                                          ELRT2545
         GEN,8,24 X'E7',9                                               ELRT2546
         DATA     R:ERFEAD,BIOPAR,BUFFER,2,2,1                          ELRT2547
         BS       1,0,3,3
FNAME    TEXTC    'ERRFILE'
         TEXT     '    '
         BS       2,1,2,2                                               ELRT2550
ACCNAME  TEXT     ':SYS'
         TEXT     '    '                                                ELRT2552
*                                                                       ELRT2553
*                                                                       ELRT2554
*                                                                       ELRT2555
BIOPAR   LB,14    10                                                    ELRT2556
         CI,14    X'14'                                                 ELRT2557
         BNE      WRI:ABN      B: NOT EQAL                              ELRT2558
         LB,14    10,1                                                  ELRT2559
         SLS,14   -1                                                    ELRT2560
         CI,14    1            IS IT CODE 14 SUBCODE 1                  ELRT2561
         BNE      WRI:ABN                                               ELRT2562
         MTW,0    BIOFLG
         BCS,2    BIOCNT
         LI,14    30                                                    ELRT2563
         BAL,15   E:PRINT                                               ELRT2564
         DATA     BIOARM                                                ELRT2565
         MTW,1    BIOFLG
         B        ASIGN                                                 ELRT2566
BIOARM   TEXT     'ERRFILE IS BUSY,WILL TRY AGAIN'                      ELRT2567
*                                                                       ELRT2568
BIOCNT   LW,14    OPNCNT
         CI,14    50
         BGE      %+3
         MTW,1    OPNCNT
         B        ASIGN
         STW,0    OPNCNT
         LI,14    41
         BAL,15   E:PRINT
         DATA     OPERRMES
         B        ASIGN
OPERRMES TEXT     'CAN''T OPEN ERRFILE AFTER 50 MORE ATTEMPTS'
OPNCNT   DATA     0
BIOFLG   DATA     0
         PAGE                                                           ELRT2573
*                                                                       ELRT2574
*        DISPLAY BOUNDARIES ROUTINE.                                    ELRT2575
*                                                                       ELRT2576
*        THE DISPLAY BOUNDARY ROUTINE IS SET UP AS A SUB-               ELRT2577
*        ROUTINE  TO PERMIT ENTRY BOTH AS A COMMAND AND AS              ELRT2578
*        A VIADUCT BY CALLING PROGRAMS (ROMS).                          ELRT2579
*        IF THE ENTRY IS THRU LABEL DSP: (BAL,15 DSP:),THEN             ELRT2580
*        THE OUTPUT WILL BE VIA THE LD DEVICE. (M:LO)                   ELRT2581
*        IF THE ENTRY IS THRU LABEL DSPL:0 (BAL,15 DSPL:0),             ELRT2582
*        THEN THE OUTPUT WILL BE VIA THE MD DEVICE. (M:LO AND           ELRT2583
*        M:OC).                                                         ELRT2584
*                                                                       ELRT2585
*                                                                       ELRT2586
DSP:     STW,4    DS:SAVE      SAVE REG. 4 LD OUTPUT ENTRY.             ELRT2587
         LW,4     L:PS         SET UP LINE PRINTER DEVICE.              ELRT2588
         B        DSP::1                                                ELRT2589
DSPL:0   STW,4    DS:SAVE      SAVE REG. 4 SET UP OC OUPUT              ELRT2590
         LW,4     E:PS                                                  ELRT2591
DSP::1   STW,4    1:D          SET UP OUTPUT BRANHCES.                  ELRT2592
         STW,4    2:D                                                   ELRT2593
         STW,4    3:D                                                   ELRT2594
         STW,4    4:D                                                   ELRT2595
         LCI      2                                                     ELRT2596
         STM,5    DS:SAVE+1    SAVE REGISTERS. 5,6 (+1,+2)              ELRT2597
         LCI      4                                                     ELRT2598
         STM,12   DS:SAVE+3    SAVE REG. 12-15 (+3,+4,+5,+6)            ELRT2599
*                                                                       ELRT2600
*                                                                       ELRT2601
*    RSESORT THE PARAMETERS.                                            ELRT2602
*                                                                       ELRT2603
*                                                                       ELRT2604
         LW,5     MODF                                                  ELRT2605
         CI,5     1            B: LEES EQ TO 1                          ELRT2606
         BLE      %+3                                                   ELRT2607
         LI,4     MODF                                                  ELRT2608
         BAL,6    SETSTR:                                               ELRT2609
         LW,5     DEVF                                                  ELRT2610
         CI,5     1                                                     ELRT2611
         BLE      %+3                                                   ELRT2612
         LI,4     DEVF                                                  ELRT2613
         BAL,6    SETSTR:                                               ELRT2614
         LW,5     TYPEF                                                 ELRT2615
         CI,5     1                                                     ELRT2616
         BLE      %+3                                                   ELRT2617
         LI,4     TYPEF                                                 ELRT2618
         BAL,6    SETSTR:                                               ELRT2619
*                                                                       ELRT2620
*        TYPE OUTPUT.                                                   ELRT2621
*                                                                       ELRT2622
         LW,5     TYPEF        DETERMINE TYPE OUTPUT.                   ELRT2623
         BEZ      DS:1         BRANCH IF NO.                            ELRT2624
         LI,6     7            SET UP INDEX.                            ELRT2625
         BAL,15   FILL:1       FILL X40 IN TO MESSAGE BEFORE OUTPUT     ELRT2626
         DATA     T:MSG+1                                               ELRT2627
         LB,4     T:NO,5       FETCH INDEX BYTE CONTROL.                ELRT2628
2:DSO    LW,14    TYPEF,5      FETCH VALUE.                             ELRT2629
         BAL,15   HEXEBC       CONVERT                                  ELRT2630
         LI,6     -2           SET UP INDEX OF 2 VALUES/ENTRY           ELRT2631
1:DSO    STB,15   T:MSG,4      STORE BYTE INTO MESSAGE.                 ELRT2632
         SLS,15   -8           SHIFT NEXT BYTE IN.                      ELRT2633
         AI,4     -1           DECREMENT                                ELRT2634
         BIR,6    1:DSO        LOOP FOR NEXT BYTE.                      ELRT2635
         AI,4     -1           DEC.                                     ELRT2636
         AI,5     -1           DEC.                                     ELRT2637
         BNEZ     2:DSO        BRANCH TILL DONE.                        ELRT2638
         LW,14    TYPEF        SET UP BYTE COUNT.                       ELRT2639
         SLS,14   1            MULTIFPY BY TWO                          ELRT2640
         AW,14    TYPEF                                                 ELRT2641
         AI,14    6                                                     ELRT2642
1:D      BAL,15   L:PRINT      PRINT TYPE PARAMETERS                    ELRT2643
         DATA     T:MSG                                                 ELRT2644
*                                                                       ELRT2645
*        DEVICE OUTPUT                                                  ELRT2646
*                                                                       ELRT2647
DS:1     EQU      %                                                     ELRT2648
         LW,5     DEVF         DETERMINE IF OUTPUT                      ELRT2649
         BEZ      DS:2         BRANCH IF NO.                            ELRT2650
         LI,6     12           SET UP INDEX                             ELRT2651
         BAL,15   FILL:1       FILL X40 INTO MESSAGE                    ELRT2652
         DATA     D:MSG+1                                               ELRT2653
         LB,4     MD:NO,5      FETCH INDEX BYTE CONTROL                 ELRT2654
4:DSO    LW,14    DEVF,5       FETCH VALUE.                             ELRT2655
         BAL,15   HEXEBC       CONVERT                                  ELRT2656
         LI,6     -4           SET UP INDEX OF PARAMETER / ENTRY        ELRT2657
3:DSO    STB,15   D:MSG,4                                               ELRT2658
         SLS,15   -8           SHIFT FOR NEXT BYTE                      ELRT2659
         AI,4     -1           DEC.                                     ELRT2660
         BIR,6    3:DSO        LOOP TILL ALL BYTES IN.                  ELRT2661
         AI,4     -1           DEC.                                     ELRT2662
         AI,5     -1           DEC.                                     ELRT2663
         BNEZ     4:DSO        BRANCH TILL ALL DONE.                    ELRT2664
         LW,14    DEVF         SET UP BYTE COUNT.                       ELRT2665
         SLS,14   2            MULTIPLY BY 4                            ELRT2666
         AW,14    DEVF                                                  ELRT2667
         AI,14    6                                                     ELRT2668
2:D      BAL,15   L:PRINT                                               ELRT2669
         DATA     D:MSG                                                 ELRT2670
*                                                                       ELRT2671
*        MODEL OUTPUT                                                   ELRT2672
*                                                                       ELRT2673
DS:2     EQU      %                                                     ELRT2674
         LW,5     MODF         DETERMINE IF OUTPUT                      ELRT2675
         BEZ      DS:3         BRANCH IF NO.                            ELRT2676
         LI,6     12           SET UP INDEX FOR BLANKS FILL             ELRT2677
         BAL,15   FILL:1                                                ELRT2678
         DATA     M:MSG+1                                               ELRT2679
         LB,4     MD:NO,5      FETCH INDEX BYTE CONTROL.                ELRT2680
6:DSO    LW,14    MODF,5       PREPARE OUTPUT MODEL VALUES.             ELRT2681
         BAL,15    MOD:EBC       FETCH MODEL OUTPUT                     ELRT2682
         LI,6     -4                                                    ELRT2683
7:DSO    STB,15   M:MSG,4      STORE TO MSG                             ELRT2684
         SLS,15   -8           SHIFT NEXT BYTE                          ELRT2685
         AI,4     -1           DEC.                                     ELRT2686
         BIR,6    7:DSO        BRANCH TILL ALL BYTE IN.                 ELRT2687
         AI,4     -1           DEC                                      ELRT2688
         AI,5     -1           DEC                                      ELRT2689
         BNEZ     6:DSO        BRANCH WHEN NOT DONE.                    ELRT2690
         LW,14    MODF         PREPARE BYTE COUNT.                      ELRT2691
         SLS,14   2            MULTIPLY BY 4                            ELRT2692
         AW,14    MODF                                                  ELRT2693
         AI,14    6                                                     ELRT2694
3:D      BAL,15   L:PRINT      PRINT MODEL.                             ELRT2695
         DATA     M:MSG                                                 ELRT2696
*                                                                       ELRT2697
*        DATE AND TIME OUTPUT.                                          ELRT2698
*                                                                       ELRT2699
DS:3     EQU      %                                                     ELRT2700
         LW,14    T1:MSG       OUTPUT DATE-TIME 'FROM-TO'               ELRT2701
         LI,4     0            SET UP HALFWORD INDEX.                   ELRT2702
         BAL,15   DS:OUT       PRINT.                                   ELRT2703
         LW,14    T2:MSG                                                ELRT2704
         LI,4     1                                                     ELRT2705
         BAL,15   DS:OUT                                                ELRT2706
         LCI      3            RESTORE REGISTERS 4-6,12-15              ELRT2707
         LM,4     DS:SAVE                                               ELRT2708
         LCI      4                                                     ELRT2709
         LM,12    DS:SAVE+3                                             ELRT2710
         B        *15          RETURN.                                  ELRT2711
DS:SAVE  RES      7                                                     ELRT2712
         PAGE                                                           ELRT2716
*                                                                       ELRT2717
*                                                                       ELRT2718
*        SUBROUTINE TO OUTPUT DATE AND TIME FOR THE FILL:1              ELRT2719
*        THIS ROUTINE IS GEARED TO THE DISPLAY SECTION.                 ELRT2720
*                                                                       ELRT2721
*                                                                       ELRT2722
DS:OUT   EQU      %                                                     ELRT2723
         STW,15   DS:UTS       SAVE REGISTER 15                         ELRT2724
         STW,14   T3:MSG       DEPOSIT HEADER.                          ELRT2725
         LW,14    DATE:1,4     FETCH CORRECT DATE.                      ELRT2726
         BAL,15   JD:MD        CONVERT TO MONTHS -DAYS.                 ELRT2727
         STW,15   MSG2A        SAVE IN TEMPORARY.                       ELRT2728
         LI,13    9                                                     ELRT2729
         BAL,15   HEXTWO       CONVERT AND STORE.                       ELRT2730
         DATA     T3:MSG                                                ELRT2731
         LW,14    MSG2A        FETCH FROM TEMPORARY.(DAYS)              ELRT2732
         LI,13    6                                                     ELRT2733
         BAL,15   HEXTWO       CONVERT AND STORE.                       ELRT2734
         DATA     T3:MSG                                                ELRT2735
         LI,13    12                                                    ELRT2736
         LW,14    YEAR:1,4                                              ELRT2737
         BAL,15   HEXTWO       CONVERT AND STORE YEARS.                 ELRT2738
         DATA     T3:MSG                                                ELRT2739
         LW,14    TIME:1,4     FETCH TIME:1,4                           ELRT2740
         BAL,15   MS:HMSN      CONVERT TO HR,MIN,SEC,MS.                ELRT2741
         LCI      4                                                     ELRT2742
         STM,12   MSG2         SAVE THE VALUES IN TEMPORARY.            ELRT2743
         LI,13    16                                                    ELRT2744
         LW,14    MSG2                                                  ELRT2745
         BAL,15   HEXTWO       C/S HRS.                                 ELRT2746
         DATA     T3:MSG                                                ELRT2747
         LI,13    19                                                    ELRT2748
         LW,14    MSG2A                                                 ELRT2749
         BAL,15   HEXTWO       C/S MINS.                                ELRT2750
         DATA     T3:MSG                                                ELRT2751
         LI,13    22                                                    ELRT2752
         LW,14    MSG2B                                                 ELRT2753
         BAL,15   HEXTWO       C/S SECS.                                ELRT2754
         DATA     T3:MSG                                                ELRT2755
         LW,14    MSG3                                                  ELRT2756
         BAL,15   HEXDEC:      CONVERT MS.                              ELRT2757
         LW,14    15                                                    ELRT2758
         BAL,15   HEXEBC                                                ELRT2759
         LI,14    X'7A'                                                 ELRT2760
         STB,14   15                                                    ELRT2761
         STW,15   T3:MSG+6     STORE MILLISEC.                          ELRT2762
         LI,14    28                                                    ELRT2763
4:D      BAL,15   L:PRINT      PRINT THE DATE-TIME.                     ELRT2764
         DATA     T3:MSG                                                ELRT2765
         B        *DS:UTS      RETURN.                                  ELRT2766
DS:UTS   DATA     0                                                     ELRT2767
*                                                                       ELRT2768
*                                                                       ELRT2769
*                                                                       ELRT2770
         PAGE                                                           ELRT2771
*                                                                       ELRT2772
*        DATA AREA FOR THE DISPLAY ROUTINE                              ELRT2773
T:MSG    TEXTS    'TYPE =XX XX XX XX XX    '                            ELRT2774
D:MSG    TEXTS    'DEV  =XXXX XXXX XXXX XXXX XXXX  '                    ELRT2775
M:MSG    TEXTS    'MODL =XXXX XXXX XXXX XXXX XXXX  '                    ELRT2776
T1:MSG   TEXTS    'FROM'                                                ELRT2777
T2:MSG   TEXTS    'TO  '                                                ELRT2778
T3:MSG   TEXTS    '      MM/DD/YY  HH:MM:SS:NNN'                        ELRT2779
L:PS     BAL,15   L:PRINT                                               ELRT2780
E:PS     BAL,15   E:PRINT                                               ELRT2781
T:NO     BS       0,7,10,13,16,19                                       ELRT2782
MD:NO    BS       0,9,14,19,24,29                                       ELRT2783
*                                                                       ELRT2784
*                                                                       ELRT2785
*                                                                       ELRT2786
         PAGE                                                           ELRT2787
*        ROUTINE TO FILL IN BLANKS.                                     ELRT2790
*        ONLY DESIGNED FOR THE DISPLAY ROUTINE.                         ELRT2791
*        ON ENTRANCE ,REGISTER 6 HAS START OF WHICH HALFWORD (0,1)      ELRT2792
*        ALL REGISTER CONSIDERED SAFE XCEPT 6,15                        ELRT2793
*                                                                       ELRT2794
*        LI,6     NUMBER OF HALFWORDS WANTED TO BLANK.                  ELRT2795
*        BAL,15   FILL:0 OR BAL,15 FILL:1.                              ELRT2796
*        DATA     ADDRESS OF STARTING LOCATION.                         ELRT2797
*                                                                       ELRT2798
*        FILL:0   START AT HALFWORD 0                                   ELRT2799
*        FILL:1   START AT HALFWORD +1                                  ELRT2800
*                                                                       ELRT2801
*                                                                       ELRT2802
FILL:0   EQU      %                                                     ELRT2803
         STW,4    F:SAV        SAVE REGI 4                              ELRT2804
         LI,4     0            SET 4                                    ELRT2805
         B        FIL:                                                  ELRT2806
FILL:1   EQU      %                                                     ELRT2807
         STW,4    F:SAV        SAVE REGI 4                              ELRT2808
         LI,4     1            SET 4                                    ELRT2809
         STW,15   F:SAV+3      SAVE REGISTER 15                         ELRT2810
         LW,15    *15          FETCH THE ADDRESS OF THE ADDRESS.        ELRT2811
FIL:     LCI      2            SAVE REGISTERS 5,6                       ELRT2812
         STM,5    F:SAV+1                                               ELRT2813
         LW,5     X40X         SET UP BLANKS.                           ELRT2814
FIL:1    STH,5    *15,4        FILL.                                    ELRT2815
         AI,4     1                                                     ELRT2816
         CW,4     6            BRANCH WHEN DONE.                        ELRT2817
         BLE      FIL:1                                                 ELRT2818
         LCI      3                                                     ELRT2819
         LM,4     F:SAV        RESTORE REGISTER 4,5,6                   ELRT2820
         MTW,1    F:SAV+3      INCREMENT RETURN ADDRESS.                ELRT2821
         B        *F:SAV+3     RETURN.                                  ELRT2822
F:SAV    RES      4                                                     ELRT2823
         PAGE                                                           ELRT2827
***                                                                     ELRT2828
* HEX TO EBCDIC CONVERSION                                              ELRT2829
***                                                                     ELRT2830
*                                                                       ELRT2831
* CALL SEQUENCES:                                                       ELRT2832
* LW,14   HEXWORD                                                       ELRT2833
* BAL,15  HEXEBC                                                        ELRT2834
* RESULT IN REGISTERS 14,15                                             ELRT2835
*                                                                       ELRT2836
HEXEBC   EQU      %                                                     ELRT2837
         LCI      4                                                     ELRT2838
         STM,12   HE:SAVE           SAVE (R12,13,14,15)                 ELRT2839
         STW,4    HE:SAVE+4         SAVE (X4)                           ELRT2840
         STW,14   12         TRANSFER HEX WORD TO 12                    ELRT2841
         LI,4     7                 (X4)=7, FOR R14 AND 15              ELRT2842
LHEXEBC  EQU      %                                                     ELRT2843
         LI,13    X'F0'                                                 ELRT2844
         SLD,12   -4                SHIFT IN LO-ORDER 4 BITS TO RIGHT   ELRT2845
         SCS,13   4                 SHIFT CIRCLE 4BITS TO LEFT          ELRT2846
         CB,13    XF9X       CHECK FOR 0-9                              ELRT2847
         BLE      %+2               N0. 0-9                             ELRT2848
         AI,13    -X'39'            ADJUST FOR A-F                      ELRT2849
         STB,13   14,4              STORE BYTE FROM BYTE3 OF REG.15     ELRT2850
         AI,4     -1                DECREMENT STORE BYTE POSITION BY 1  ELRT2851
         CI,4     0                 CLEAR (X4)                          ELRT2852
         BGEZ     LHEXEBC           LOOP UNTIL 8 BYTES ARE ALL STORED   ELRT2853
         LCI      2                 SET CONDITION CODE=4                ELRT2854
         LM,12    HE:SAVE           RESTORE (R12,13,14)                 ELRT2855
         LW,4     HE:SAVE+4         RESTORE (X4)                        ELRT2856
         B        *HE:SAVE+3        BRANCH TO MAIN PROG.                ELRT2857
XF9X     DATA     X'F9000000'                                           ELRT2858
HE:SAVE  DATA     0,0,0,0,0                                             ELRT2859
         PAGE                                                           ELRT2860
***                                                                     ELRT2861
* EBCDIC TO HEXWORD CONVERSION                                          ELRT2862
***                                                                     ELRT2863
*                                                                       ELRT2864
* CALL SEQUENCES:                                                       ELRT2865
* LD,13   EBCWORDS                                                      ELRT2866
* BAL,15  EBCHEX8                                                       ELRT2867
* ERROR RETURN                                                          ELRT2868
* GOOD  RETURN                                                          ELRT2869
* RESULT IN R15                                                         ELRT2870
*                                                                       ELRT2871
EBCHEX8  EQU      %                                                     ELRT2872
         STW,4    HC:SAVE+4         SAVE (X4)                           ELRT2873
         LCI      4                                                     ELRT2874
         STM,12   HC:SAVE           SAVE (R12,13,14,15)                 ELRT2875
         LI,4     0                 INDEX REG.4=0                       ELRT2876
         STW,13   12                                                    ELRT2877
         STW,14   13                                                    ELRT2878
LEBCHEX8 LB,15    12,4              LOAD BYTE FROM BYTE0 OF REG. 12     ELRT2879
         CB,15    XFOX              CK FOR 0-9                          ELRT2880
         BGE      TAG               0 AND UP                            ELRT2881
         CB,15    XC6X                                                  ELRT2882
         BG       ERRCHAR           ERROR CHARACTER PRINT               ELRT2883
         CB,15    XC1X                                                  ELRT2884
         BL       ERRCHAR           ERROR CHARACTER                     ELRT2885
         AI,15    9                 ADJUST FOR A THRU F                 ELRT2886
TAG      EQU      %                                                     ELRT2887
         SCS,15   -4                SHIFT 4 BITS TO RIGHT,CIRCLE        ELRT2888
         SLD,14   4                 SHIFT DOUBLE 4 BITS TO LEFT         ELRT2889
         AI,4     1                 INCREMENT REG.4 BY 1                ELRT2890
         CI,4     8                 CK CONTENTS OF INDEX REG. 4         ELRT2891
         BL       LEBCHEX8          LESS THAN 8, LOOP UNTIL 8 DIGITS    ELRT2892
         SLD,14   -32               SHIFT 32 BITS TO RIGHT, R14 TO R15  ELRT2893
         MTW,1    HC:SAVE+3  INCREMENT RETRUN ADDRESS.                  ELRT2894
ERRCHAR  LCI      3          SET CONDITION CODES                        ELRT2895
         LM,12    HC:SAVE           RESTORE (R12,13,14)                 ELRT2896
         LW,4     HC:SAVE+4         RESTORE X4                          ELRT2897
         B        *HC:SAVE+3 RETURN.                                    ELRT2898
*                                                                       ELRT2899
HC:SAVE  DATA     0,0,0,0,0                                             ELRT2900
XFOX     DATA     X'F0000000'                                           ELRT2901
XC6X     DATA     X'C6000000'                                           ELRT2902
XC1X     DATA     X'C1000000'                                           ELRT2903
*                                                                       ELRT2904
         PAGE                                                           ELRT2905
***                                                                     ELRT2906
* JULIAN DAY TO MONTH AND DAY CONVERSION                                ELRT2907
***                                                                     ELRT2908
*                                                                       ELRT2909
* CALL SEQUENCES:                                                       ELRT2910
* LW,14   JULIANDAY                                                     ELRT2911
* BAL,15  JD:MD                                                         ELRT2912
* RESULT IN REGISTERS 15=MONTH AND REGISTER 14=DAY                      ELRT2913
*                                                                       ELRT2914
JD:MD    EQU      %                                                     ELRT2915
         STW,4    J:SAVE+2          SAVE (X4)                           ELRT2916
         LCI      2                                                     ELRT2917
         STM,14   J:SAVE            SAVE (R14 AND R15)                  ELRT2918
         LI,15    1                                                     ELRT2919
         CI,14    0                                                     ELRT2920
         BE       FIXMD2            JULIAN DAY =0                       ELRT2921
JD:MD10  EQU      %
         LI,4     -12               INITIALIZE X4=-12                   ELRT2922
LJD:MD   LW,14    J:SAVE     FETCH JUL. DAY                             ELRT2923
         SW,14    MONTHTBL+12,4    SUBTRACT EACH MONTH.                 ELRT2924
         BLEZ     FIXMD      BRANCH LESS OR EQUAL                       ELRT2925
         STW,14   J:SAVE     SAVE REMAINDER OF OPERATION.               ELRT2926
         AI,15    1                 ADD 1 TO MONTH COUNT                ELRT2927
         BIR,4    LJD:MD            INCREMENT X4 AND BRANCH TO LJD:MD   ELRT2928
FIXMD    EQU      %                                                     ELRT2929
         LW,14    J:SAVE     FETCH LAST REMAINDER = DAYS.               ELRT2930
         LW,4     J:SAVE+2          RESTORE (X4)                        ELRT2931
         B        *J:SAVE+1         RETURN TO MAIN PROG.                ELRT2932
FIXMD2   LI,15    0                 JULIAN DAY=0                        ELRT2933
         B        FIXMD                                                 ELRT2934
*                                                                       ELRT2935
*                                                                       ELRT2936
J:SAVE   DATA     0,0,0                                                 ELRT2937
MONTHTBL DATA     31,28,31,30,31,30,31,31                               ELRT2938
         DATA     30,31,30,31                                           ELRT2939
         PAGE                                                           ELRT2940
***                                                                     ELRT2941
* MONTH AND DAY TO JULIAN DAY CONVERSION                                ELRT2942
***                                                                     ELRT2943
*                                                                       ELRT2944
* CALL SEQUENCES:                                                       ELRT2945
* LW,13   MONTH                                                         ELRT2946
* LW,14   DAY                                                           ELRT2947
* BAL,15  MD:JD                                                         ELRT2948
* RESULTS  IN REGISTER 15                                               ELRT2949
*                                                                       ELRT2950
* IF DAYS OR MONTHS  = 0 THEN RESULTS WILL BE ZERO.                     ELRT2951
*                                                                       ELRT2952
MD:JD    EQU      %                                                     ELRT2953
         LCI      3                                                     ELRT2954
         STM,13   M:SAVE            SAVE (R13,14,15)                    ELRT2955
         STW,4    M:SAVE+3          SAVE (X4)                           ELRT2956
         LI,13    1          SET 13 TO ONE.                             ELRT2957
         LI,15    0          CLEAR REG 15                               ELRT2958
         LW,4     M:SAVE     FETCH MONTHS AND SET AS INDEX.             ELRT2959
         BLEZ     FIXJD      BRANCH LESS OR EQUAL ZERO                  ELRT2960
         LW,15    M:SAVE+1   FETCH DAYS.                                ELRT2961
         BLEZ     FIXJD      BRANCH LESS OR EQUAL ZERO.                 ELRT2962
LMD:JD   EQU      %                                                     ELRT2963
         SW,4     13         SUBTRACT A ONE.                            ELRT2964
         BLEZ     FIXJD      BRANCH WHEN DONE WITH MONTHS.              ELRT2965
         AW,15    MONTHTBL-1,4   ADD DAYS OF EACH MONTHS.               ELRT2966
         B        LMD:JD     BRANCH FOR ANOTHER ROUND.                  ELRT2967
FIXJD    EQU      %                                                     ELRT2968
         LCI      2                                                     ELRT2969
         LM,13    M:SAVE            RESTORE (R13,14)                    ELRT2970
         LW,4     M:SAVE+3          RESTORE (X4)                        ELRT2971
         B        *M:SAVE+2         BRANCH BACK TO MAIN PROG.           ELRT2972
M:SAVE DATA 0,0,0,0                                                     ELRT2973
         PAGE                                                           ELRT2974
***                                                                     ELRT2975
* MILLISECOND TO HR, MIN, SEC, AND MS CONVERSION                        ELRT2976
***                                                                     ELRT2977
*                                                                       ELRT2978
* CALL SEQUENCES:                                                       ELRT2979
* LW,14   MS                                                            ELRT2980
* BAL,15  MS:HMSN                                                       ELRT2981
*  THE RESULTS WILL BE REGISTER 12 = HOURS                              ELRT2982
*                               13 = MINUTES                            ELRT2983
*                               14 = SECONDS                            ELRT2984
*                               15 = MILLISECS.                         ELRT2985
*                                                                       ELRT2986
*                                                                       ELRT2987
*  IF MILLISECONDS (INPUT) IS GREATER THAN 30:59:59:999, AN             ELRT2988
*  ERROR MESSAGE WILL BE PRINTED ON THE E:PRINT AND THE                 ELRT2989
*  REGISTERS WILL BE AS FOLLOWS.                                        ELRT2990
*                            12 = 0                                     ELRT2991
*                            13 = 0                                     ELRT2992
*                            14 = VOLATILE                              ELRT2993
*                            15 = 0                                     ELRT2994
*                                                                       ELRT2995
MS:HMSN  EQU      %                                                     ELRT2996
         LCI      2          SAVE REGISTERS 14,15                       ELRT2997
         STM,14   MS:SAVE                                               ELRT2998
         LI,12    0          CLEAR 12,13 AND MS:TEMP                    ELRT2999
         LI,13    0                                                     ELRT3000
         STW,13   MS:TEMP                                               ELRT3001
         CW,14    MS:MAX     COMPARE TO MAX TIME.                       ELRT3002
         BG       MS:EXIT    BRANCH IF GREATER.                         ELRT3003
         CI,14    0                 CHECK FOR LT ZERO
         BL       MS:EXIT           ALSO VERY BIG NUMBER
         STW,14   MS:TEMP    IF NOT, SAVE IN MS:TEMP                    ELRT3004
MS:HM1   SW,14    MS:6HRS    START AT 6 HOURS SUBTRACT.                 ELRT3005
         BLZ      MS:H1      BRANCH LESS ZERO                           ELRT3006
         STW,14   MS:TEMP    SAVE REAMINDER IN MS:TEMP                  ELRT3007
         AI,12    6          ADD 6 TO HOURS.                            ELRT3008
         B        MS:HM1     BRANCH TILL DONE WITH 6 HOURS.             ELRT3009
MS:H1    LW,14    MS:TEMP    FETCH REMAINDER OF LAST 6 HOURS.           ELRT3010
MS:HM2   SW,14    MS:1HR     SUBTRACT 1 HOUR                            ELRT3011
         BLZ      MS:H2      BRANCH LESS ZERO                           ELRT3012
         STW,14   MS:TEMP    SAVE IN TEMPORARY                          ELRT3013
         AI,12    1          ADD HOURS BY ONE.                          ELRT3014
         B        MS:HM2     BRANCH TILL DONE                           ELRT3015
MS:H2    LW,14    MS:TEMP    FETCH REMAINDER OF LAST 1 HOURS            ELRT3016
MS:HM3   SW,14    MS:1MIN    SUBTRACT 1 MINUTE                          ELRT3017
         BLZ      MS:H3      BRANCH LESS ZERO                           ELRT3018
         STW,14   MS:TEMP    SAVE                                       ELRT3019
         AI,13    1          ADD 1 TO MINUTES.                          ELRT3020
         B        MS:HM3     BRANCH TILL DONE WITH MINUTES.             ELRT3021
MS:H3    LI,14    0          CLEAR 14 , START WITH SECONDS.             ELRT3022
         LW,15    MS:TEMP    FETCH INTO REGISTER 15                     ELRT3023
MS:HM4   SW,15    MS:1SEC    SUBTRACT 1 SECOND                          ELRT3024
         BLZ      MS:H4      BRANCH LESS ZERO                           ELRT3025
         AI,14    1          ADD 1 TO SECONDS.                          ELRT3026
         STW,15   MS:TEMP                                               ELRT3027
         B        MS:HM4     BRANCH TILL DONE                           ELRT3028
MS:H4    LW,15    MS:TEMP                                               ELRT3029
         B        *MS:SAVE+1 RETURN                                     ELRT3030
MS:SAVE  DATA     0,0                                                   ELRT3031
MS:TEMP  DATA     0          TEMPORARY STORAGE.                         ELRT3032
MS:MAX   DATA     99*60*60*1000   MAX TIME = MILLISECONDS.              ELRT3033
MS:6HRS  DATA     6*60*60*1000 6 HOURS (MILLISEC.)                      ELRT3034
MS:1HR   DATA     60*60*1000 1 HOUR (MILLISEC.)                         ELRT3035
MS:1MIN  DATA     60*1000    1 MINUTE (MILLISEC.)                       ELRT3036
MS:1SEC  DATA     1000       1 SECOND (MILLISEC.)                       ELRT3037
*                                                                       ELRT3038
MS:EXIT  EQU      %                                                     ELRT3039
         LI,14    32           BYTE COUNT                               ELRT3040
         BAL,15   E:PRINT    PRINT IN THE E:PRINT ROUTINE               ELRT3041
         DATA     ERRMSGMS                                              ELRT3042
         B        MS:H4      BRANCH TO RETURN                           ELRT3043
ERRMSGMS TEXT     'ERROR: TIME .GT. 99:59:59:999'                       ELRT3044
*                                                                       ELRT3045
*                                                                       ELRT3046
*                                                                       ELRT3047
         PAGE                                                           ELRT3048
***                                                                     ELRT3049
* EBCDIC BYTE TO HEX CONVERSION                                         ELRT3050
***                                                                     ELRT3051
*                                                                       ELRT3052
* CALL SEQUENCES:                                                       ELRT3053
* LB,14   EBCBYTE                                                       ELRT3054
* BAL,15  EBCHEX1                                                       ELRT3055
* ERROR RETURN                                                          ELRT3056
* GOOD  RETURN                                                          ELRT3057
* RESULT IN REGISTER 15,BYTE 3                                          ELRT3058
*  REGISTER 14 UPON EXIT HAS CONTENTS SHIFTED RIGHT 8 PLACES.           ELRT3059
*                                                                       ELRT3060
EBCHEX1  EQU      %                                                     ELRT3061
         STW,15   E1:SAVE    SAVE REGISTER 15                           ELRT3062
         AND,14   XFF          MASK OUT.                                ELRT3063
         CB,14    XC1X       COMPARE BYTE TO EBCDIC 'A'                 ELRT3064
         BL       EBERROR    BRANCH IF NOT A HEX NUMBER.                ELRT3065
         CB,14    XC6X       COMPARE TO EBCDIC 'F'                      ELRT3066
         BLE      EBC1C6     BRANCH IF WITHIN C1-C6                     ELRT3067
         CB,14    XFOX       COMPARE TO EBCDIC 0 (ZERO)                 ELRT3068
         BL       EBERROR    BRANCH IF NOT A NUMBER                     ELRT3069
         CB,14    XF9X       COMPARE TO EBCDIC 9                        ELRT3070
         BLE      EBF0F9     BRANCH IF WITHIN 0-9                       ELRT3071
         B        EBERROR    ERROR BRANCH.                              ELRT3072
*                                                                       ELRT3073
EBC1C6   AI,14    9          CONVERT TO HEX BY ADD OF NINE.             ELRT3074
EBF0F9   SLD,14   -8         SHIFT LOGICAL DOUBLE RIGHT 8 BITS.         ELRT3075
         SLS,15   -24        SHIFT LOGICAL SINGLE RIGHT 24 BITS.        ELRT3076
         AND,15   XF         MASK OUT BITS 0-27                         ELRT3077
         MTW,1    E1:SAVE    INCREMENT RETURN ADDRESS.                  ELRT3078
EBERROR  B        *E1:SAVE   BRANCH OUT.                                ELRT3079
E1:SAVE  DATA     0                                                     ELRT3080
XFF      DATA     X'FF'                                                 ELRT3081
XF       DATA     X'F'                                                  RT--0138
         PAGE                                                           ELRT3085
***                                                                     ELRT3086
* BINARY TO EBCDIC CONVERSION ROUTINE                                   ELRT3087
***                                                                     ELRT3088
*                                                                       ELRT3089
* CALL SEQUENCES:                                                       ELRT3090
* LW,14 BINARY(BIT 28 TO 31)                                            ELRT3091
* BAL,15  BINEBC                                                        ELRT3092
* RESULT IN REGISTER 15                                                 ELRT3093
*                                                                       ELRT3094
BINEBC   EQU      %                                                     ELRT3095
         LCI      3                                                     ELRT3096
         STM,13   B:SAVE            SAVE (R13-15)                       ELRT3097
         LI,13    -4                INITIALIZE COUNT                    ELRT3098
         LW,15    EBCZEROS          INITIALIZE TO EBC ZEROS             ELRT3099
         SLD,14   -1                SHIFT BINARY BIT INTO R15           ELRT3100
         SCS,15   -7                SHIFT TO CHARACTER POSITION         ELRT3101
         BIR,13   %-2               LOOP FOR 4 BITS                     ELRT3102
         LCI      2                                                     ELRT3103
         LM,13    B:SAVE            RESTORE R13 AND 14                  ELRT3104
         B        *B:SAVE+2         RETURN TO MAIN PROG.                ELRT3105
*                                                                       ELRT3106
B:SAVE   DATA     0,0,0                                                 ELRT3107
EBCZEROS TEXT     '0000'                                                ELRT3108
         PAGE                                                           ELRT3109
***                                                                     ELRT3110
* HOUR AND MIN. TO MILLISECOND CONVERSION                               ELRT3111
***                                                                     ELRT3112
*                                                                       ELRT3113
* CALL SEQUENCES:                                                       ELRT3114
* LW,13   HOUR                                                          ELRT3115
* LW,14   MINUTE                                                        ELRT3116
* BAL,15   HMSN:MS                                                      ELRT3117
* BAD RETURN                                                            ELRT3118
* GOOD RETURN                                                           ELRT3119
*                                                                       ELRT3120
*  UPON EXIT REGISTER 15 = RESULTS.                                     ELRT3121
HMSN:MS  EQU      %                                                     ELRT3122
         LCI      3                                                     ELRT3123
         STM,13   HM:SAVE           SAVE (R13-15)                       ELRT3124
         CI,13    24                CK FOR 24 HOUR                      ELRT3125
         BGE      BADTM      BRANCH IF GREATER OR EQUAL TO 24 HRS       ELRT3126
         CI,14    60                                                    ELRT3127
         BGE      BADTM      BRANCH .GE. TO 60 MINUTES.                 ELRT3128
         MW,13    TOTALMIN   MULTIPLY HOURS BY TOTAL MIN. = 60          ELRT3129
         AW,13    14         ADD TO MINUTES.                            ELRT3130
         MW,13    MS:1MIN    MULTIPLY TO GET TOTAL MILLISECS.           ELRT3131
         LW,15    13         TRANSFER TO REGISTER 15                    ELRT3132
         MTW,1    HM:SAVE+2  INCREMENT RETURN FOR GOOD RETURN.          ELRT3133
BADTM    LCI      2          RESTORE REGISTER 13,14                     ELRT3134
         LM,13    HM:SAVE                                               ELRT3135
         B        *HM:SAVE+2 RETURN                                     ELRT3136
TOTALMIN DATA     60                                                    ELRT3137
HM:SAVE  DATA     0,0,0                                                 ELRT3138
*                                                                       ELRT3139
         PAGE                                                           ELRT3140
*                                                                       ELRT3141
*                                                                       ELRT3142
*                                                                       ELRT3143
*                                                                       ELRT3144
*  TEXT COMPRESSION OUTPUT ROUTINE                                      ELRT3145
*        THIS ROUTINE WILL PRINT MESSAGES FROM THE                      ELRT3146
*        TEXT COMPRESSION INFORMATION BYTE STRING                       ELRT3147
*        (TCIS)                                                         ELRT3148
*                                                                       ELRT3149
*  CALL MODE:     BAL,15  CT:PRINT                                      ELRT3150
*                 DATA         ADDRESS OF TCIS.                         ELRT3151
*                                                                       ELRT3152
*        THE FORMAT USED FOR TCIS BYTE STRINGS IS.                      ELRT3153
*                                                                       ELRT3154
*        1ST BYTE=             BIT 0 SET: SKIP AFTER 1ST GR. DONE.      ELRT3155
*                                    RESET: NO SKIP                     ELRT3156
*                                                                       ELRT3157
*                 BITS 1-4     CONTAINS THE # OF LINES TO BE            ELRT3158
*                              SKIPPED AFTER TEXT IS                    ELRT3159
*                              IS COMPLETED. THIS FIELD VALID           ELRT3160
*                              ONLY WHEN LENGHT OF DEVICE IS            ELRT3161
*                              72 BYTES LONG. A MAX OF 7 LINES          ELRT3162
*                              PERMITTED.                               ELRT3163
*                                                                       ELRT3164
*        BITS 5-7   CONTAINS THE # OF TEXT'S (132 BYTES IN LENGHT       ELRT3165
*                   EACH LINE TERMINATED BY THE HEX CHARACTERS          ELRT3166
*                   X'FF'. A MAX OF 5 LINES PERMITTED.                  ELRT3167
*                                                                       ELRT3168
*        THE REST OF THE  BYTES WILL ALTERNATED BETWEEN BEING           ELRT3169
*        THE INDEX TO THE TEXT TABLE AND BEING THE NUMBER OF            ELRT3170
*        SPACES BETWEEN EACH TEXT TRANSFERED BEGINNING WITH             ELRT3171
*        THE INDEX NUMBER.                                              ELRT3172
*                                                                       ELRT3173
*        ERROR PRINTS WILL OCCUR IF ANY OF THE LIMITS ARE EXCEEDED      ELRT3174
*        OR AN ERROR OCCURS IN THE ACTUAL PRINT ROUTINE.                ELRT3175
*                                                                       ELRT3176
*                                                                       ELRT3177
*                                                                       ELRT3178
*                                                                       ELRT3179
*                                                                       ELRT3180
*        DETERMINING THE OUTPUT MODE MD:DCB WILL BE ASSUMED             ELRT3181
*        TO BE ALWAYS A 72 BYTE LENGHT DEVICE.EITHER A                  ELRT3182
*        USER CONSOLE OR A OPERATOR CONSOLE.                            ELRT3183
*                                                                       ELRT3184
*                                                                       ELRT3185
*                                                                       ELRT3186
*        DATA AREA.............                                         ELRT3187
*                                                                       ELRT3188
*                                                                       ELRT3189
*                                                                       ELRT3190
CT:SAVE  RES      6            SAVE REGISTER AREA                       ELRT3191
CT:TCIS  DATA     0            ADDRESS OF TCIS BYTE STRING.             ELRT3192
CT:IBC   DATA     0            INTERNAL BYTE COUNT TO TCIS              ELRT3193
CT:BCT   DATA     0            BYTE COUNT TO EACH TEXT                  ELRT3194
CT:BCB   DATA     0            RUNNING BYTE COUNT.                      ELRT3195
CT#LNS   DATA     0            NUMBER OF LINES TO OUTPUT                ELRT3196
CT:SKIP  DATA     0            AMOUNT OF SKIP'S AFTER 1ST GROUP         ELRT3197
CT:ADRS  DATA     0            CURRENT OUTE: BUFFER ADDRESS.            ELRT3198
CT:BADRS DATA     0            ADDRESS OF CURRENT TEXT TABLE            ELRT3199
*                                                                       ELRT3200
*                                                                       ELRT3201
*                                                                       ELRT3202
*        OUTPUT BUFFER AREA                                             ELRT3203
*                                                                       ELRT3204
*                                                                       ELRT3205
*                                                                       ELRT3206
OUTE:1   RES      34                                                    ELRT3207
OUTE:2   RES      34                                                    ELRT3208
OUTE:3   RES      34                                                    ELRT3209
OUTE:4   RES      34                                                    ELRT3210
OUTE:5   RES      34                                                    ELRT3211
*                                                                       ELRT3212
*                                                                       ELRT3213
*                                                                       ELRT3214
*                                                                       ELRT3215
*        BYTE COUNT TO EACH OUTPUT  BUFFER                              ELRT3216
*                                                                       ELRT3217
*                                                                       ELRT3218
*                                                                       ELRT3219
BCNT:1   BS       0,0,0,0,0                                             ELRT3220
*                                                                       ELRT3221
*                                                                       ELRT3222
*                                                                       ELRT3223
*                                                                       ELRT3224
*        FLAGS............                                              ELRT3225
*                                                                       ELRT3226
*                                                                       ELRT3227
*                                                                       ELRT3228
1:FLAG   DATA     0            SET=72 BYTES,RESET=132 BYTES             ELRT3229
2:FLAG   DATA     0            1ST TIME AROUND (FOR 72 BYTES FLAG)      ELRT3230
3:FLAG   DATA     0            SKIP AT THE END OR NOT FLAG.             ELRT3231
*                                                                       ELRT3232
*                                                                       ELRT3233
*                                                                       ELRT3234
*                                                                       ELRT3235
*        OPEN MD:DCB FOR CORRES CAL.                                    ELRT3236
*                                                                       ELRT3237
*                                                                       ELRT3238
*                                                                       ELRT3239
C:OPENM  GEN,1,7,7,17  1,X'14',0,MD:DCB                                 ELRT3240
         DATA     X'C0000000',WRI:ERR,WRI:ABN                           ELRT3241
*                                                                       ELRT3242
*                                                                       ELRT3243
*                                                                       ELRT3244
*                                                                       ELRT3245
*                                                                       ELRT3246
*                                                                       ELRT3247
*        START OF PROUTINE.                                             ELRT3248
*                                                                       ELRT3249
*                                                                       ELRT3250
*                                                                       ELRT3251
CT:PRINT EQU      %                                                     ELRT3252
         LCI      4            SAVE REGISTER 5-8,14-15                  ELRT3253
         STM,5    CT:SAVE                                               ELRT3254
         STW,14   CT:SAVE+4                                             ELRT3255
         LW,14    *15          FETCH TCIS ADDRESS                       ELRT3256
         STW,14   CT:TCIS      SAVE TCIS ADRS.                          ELRT3257
         AI,15    1            INCREMENT RETURN ADDRESS+1               ELRT3258
         STW,15   CT:SAVE+5    RETURN ADDRESS IN CT:SAVE+5              ELRT3259
*                                                                       ELRT3260
*        HOUSE KEEPING CHORES.                                          ELRT3261
*                                                                       ELRT3262
         LW,14    X40X         INITIALIZE THE OUTPUT BUFFERS            ELRT3263
         LI,7     -165         WITH BLANKS. 165 WORDS.                  ELRT3264
         STW,14   OUTE:1+165,7                                          ELRT3265
         BIR,7    %-1                                                   ELRT3266
         LI,0     0            SET ZERO TO ZERO                         ELRT3267
         LI,1     1                                                     ELRT3268
         LI,2     2                                                     ELRT3269
         LI,3     3            RESET 1,2,3 TO 1,2,3                     ELRT3270
         STW,0    CT:IBC       RESET ALL PERTINENT LOCATIONS.           ELRT3271
         STW,0    CT:BCT                                                ELRT3272
         STW,0    CT:BCB                                                ELRT3273
         STW,0    1:FLAG                                                ELRT3274
         STW,0    2:FLAG                                                ELRT3275
         STW,0    3:FLAG                                                ELRT3276
*                                                                       ELRT3277
*        DETERMINE WHETHER OUTPUT (LO) DEVICE IS 72 BYTES               ELRT3278
*        LONG OR 132 BYTES LONG DEVICE.                                 ELRT3279
*                                                                       ELRT3280
*        ASSUMPTION AT THIS POINT IS THAT MD:DCB IS EITHER              ELRT3281
*        THE USER'S CONSOLE OR THE OPERATOR'S CONSOLE.                  ELRT3282
*                                                                       ELRT3283
*                                                                       ELRT3284
         LW,14    *LD:DCB      FETCH 1ST WORD OF LD:DCB(M:LO)           ELRT3285
         AND,14   X200         MASK IN BIT 10                           ELRT3286
         BNEZ     CT:H         BRANCH IF ALREADY OPENED.                ELRT3287
         CAL1,1   E:OPENL      OPEN LD:DCB                              ELRT3288
CT:H     LW,14    *MD:DCB      FETCH 1ST WORD OF MD:DCB(M:OC)           ELRT3289
         AND,14   X200         MASK IN BIT 10                           ELRT3290
         BNEZ     CT:I         BRANCH IF DCB IS ALREADY OPENED.         ELRT3291
         CAL1,1   C:OPENM      OPEN.                                    ELRT3292
CT:I     CAL1,1   E:CORRS      CHECK IF BOTH DEVICE ARE =               ELRT3293
         MTW,0    8            REG. 8 IF NON-ZERO LD = MD.              ELRT3294
         BEZ      CT:J         BRANCH IF LD NOT = TO MD                 ELRT3295
         STW,1    1:FLAG       SET FLAG. (LD =72 BYTES LONG)            ELRT3296
CT:J     EQU      %                                                     ELRT3297
*                                                                       ELRT3298
*                                                                       ELRT3299
*                                                                       ELRT3300
         LI,14    OUTE:1       INITIALIZE TO FIRST BUFFER ADRS.         ELRT3301
         STW,14   CT:BADRS                                              ELRT3302
         LB,14    *CT:TCIS     FETCH 1ST BYTE OF BYTE STRING.           ELRT3303
         LB,15    X4BD5+1,1    SET MASK OF X'7'                         ELRT3304
         AND,14   15           MASK 3 BITS IN.                          ELRT3305
         CI,14    5            BRANCH IF GREATER THAN 5 LINES.          ELRT3306
         BG       CT:X                                                  ELRT3307
         STW,14   CT#LNS       SAVE IN LINES LOCATION                   ELRT3308
         LB,14    *CT:TCIS     FETCH 1ST BYTE AGAIN.                    ELRT3309
         SLS,14   -3           THIS TIME FOR BITS 1-4                   ELRT3310
         LB,15    X4BD5+1      FETCH MASK OF X'F'                       ELRT3311
         AND,14   15           MASK 4 BITS IN                           ELRT3312
         STW,14   CT:SKIP      SAVE IN C:SKIP LOCATION.                 ELRT3313
         MTW,0    *CT:TCIS     IS BIT 0 SET OR NOT                      ELRT3314
         BGEZ     CT:P1        BRANCH IF NOT SET.                       ELRT3315
         STW,1    3:FLAG                                                ELRT3316
CT:P1    EQU      %                                                     ELRT3317
*                                                                       ELRT3318
*        EVERYTHING READY TO GO.                                        ELRT3319
*        START TO TRANSFER MESSAGE TEXT TO OUTPUT BUFFERS.              ELRT3320
*                                                                       ELRT3321
*                                                                       ELRT3322
CT:D     EQU      %                                                     ELRT3323
         MTW,1    CT:IBC       INCREMENT TCIS BYTE COUNT                ELRT3324
         LW,7     CT:IBC       FETCH INDEX                              ELRT3325
         LB,6     *CT:TCIS,7   FETCH INDEX TO TE:TABLE.                 ELRT3326
         BEZ      CT:CA        B:IF ZERO                                ELRT3327
         CI,6     X'FF'        TERMINATION CHARACTER                    ELRT3328
         BE       CT:B         BRANCH IF EQUAL. LINE TERMINATED.        ELRT3329
         LW,14    TE:TABLE,6   FETCH TEXT ADDRESS.                      ELRT3330
         STW,14   CT:ADRS      STORE TO CT:ADRS LOCATION                ELRT3331
         LB,7     *CT:ADRS     FETCH CURRENT BYTE COUNT.                ELRT3332
         AW,7     CT:BCB       TEST TO SEE IF EXCEEDS 132               ELRT3333
         CI,7     132                                                   ELRT3334
         BG       CT:X         **ERROR** EXCEEDS 132 BYTES.             ELRT3335
         LI,7     1            RESET INDEX 7 TO 1                       ELRT3336
         LW,5     CT:BCB       SET THE INDEX TO MOVE CHARACTERS         ELRT3337
CT:A     LB,14    *CT:ADRS,7   FETCH TEXT BYTES.                        ELRT3338
         STB,14   *CT:BADRS,5  TRANSFER TO OUTE:1 BUFFERS.              ELRT3339
         AI,5     1            INCREMENT 5 AND 7                        ELRT3340
         AI,7     1                                                     ELRT3341
         CB,7     *CT:ADRS     CHECK FOR COMPLETION                     ELRT3342
         BLE      CT:A         BRANCH LESS THAN/EQUAL TO NOT DONE       ELRT3343
CT:C     STW,5    CT:BCB       SAVE THE LAST AMOUNT                     ELRT3344
*                                                                       ELRT3345
*        PROCESS THE SPACES BETWEEN EACH WORD.                          ELRT3346
*                                                                       ELRT3347
CT:CA    EQU      %                                                     ELRT3348
         MTW,1    CT:IBC       INCREMENT INDEX.                         ELRT3349
         LW,7     CT:IBC       FETCH INDEX 7                            ELRT3350
         LB,6     *CT:TCIS,7   FETCH NEXT BYTE FROM TCIS                ELRT3351
         CI,6     X'FF'        CHECK FOR END OF LINE.                   ELRT3352
         BE       CT:B         BRANCH IF LINE TERMINATED.               ELRT3353
         AW,6     CT:BCB       ADD TO TOTAL AMOUNT OF BYTES.            ELRT3354
         CI,6     132          CHECK FOR EXCEEDS 132.                   ELRT3355
         BG       CT:X         **ERROR** EXCEEDS 132 BYTES.             ELRT3356
         STW,6    CT:BCB       SAVE IN BYTES LOCATION.                  ELRT3357
         B        CT:D         BRANCH FOR CONTINUATION.                 ELRT3358
*                                                                       ELRT3359
*                                                                       ELRT3360
*        END OF LINE. TERMINATION CHARACTER X'FF' ENCOUNTERED           ELRT3361
*                                                                       ELRT3362
*                                                                       ELRT3363
CT:B     EQU      %                                                     ELRT3364
         LW,14    CT:BCB       FETCH TOTAL BYTES ACCUMULATED            ELRT3365
         LW,7     CT:BCT       FETCH INDEX TO BCNT:1                    ELRT3366
         STB,14   BCNT:1,7     SAVE IN BYTE SUM LOCATION                ELRT3367
         MTW,1    CT:BCT       INCREMENT TO NEXT BYTE SAVE LOC.         ELRT3368
         LW,14    CT:BCT       FETCH FOR COMPARISON                     ELRT3369
         CW,14    CT#LNS       BRANCH IF ALL LINES PROCESSED.           ELRT3370
         BGE      CT:E         BRANCH IF GREATER OR EQUAL               ELRT3371
         LW,14    CT:BADRS     SET UP NEXT OUTPUT BUFFER                ELRT3372
         AI,14    34           ADDRESS.                                 ELRT3373
         STW,14   CT:BADRS                                              ELRT3374
         STW,0    CT:BCB       RESET BYTE COUNT OF OUTPUT BUFFERS.      ELRT3375
         B        CT:D         CONTINUE.                                ELRT3376
*                                                                       ELRT3377
*                                                                       ELRT3378
*        ALL LINES TAKEN CARE OF . START PRINT.                         ELRT3379
*                                                                       ELRT3380
*                                                                       ELRT3381
CT:E     EQU      %                                                     ELRT3382
         LI,14    OUTE:1       INITIALIZE FIRST OUTPUT BUFFER           ELRT3383
         STW,14   CT:BADRS     FOR PRINT ROUTINE.                       ELRT3384
         STW,0    CT:BCT       RESET BCNT:1 BYTE COUNT.                 ELRT3385
*                                                                       ELRT3386
*        WHAT OUTPUT DESIRED. 72 OR 132 BYTES LENGHT                    ELRT3387
*                                                                       ELRT3388
CT:NA    EQU      %                                                     ELRT3389
         LW,7     CT:BCT       GET BYTE COUNT.                          ELRT3390
         CW,7     CT#LNS       BRANCH IF ALL LINES DONE.                ELRT3391
         BGE      CT:AA                                                 ELRT3392
         MTW,0    1:FLAG       SET=72 , RESET=132                       ELRT3393
         BEZ      CT:L         BRANCH IF 132                            ELRT3394
         LB,14    BCNT:1,7     BEGIN TO ADJUST FOR 72 BYTES LENGHT.     ELRT3395
         AI,14    -72                                                   ELRT3396
         BLZ      CT:L         BRANCH IF LESS THAN 72                   ELRT3397
         AI,14    8            ADD 8 MORE BYTES TO THE SECOND LINE.     ELRT3398
         STB,14   BCNT:1,7     SAVE THE REMAINDER                       ELRT3399
         LI,14    72           SET FOR MAX OF 72                        ELRT3400
         B        CT:M         BRANCH TO PRINT.                         ELRT3401
*                                                                       ELRT3402
*                                                                       ELRT3403
*                                                                       ELRT3404
CT:L     EQU      %                                                     ELRT3405
         LB,14    BCNT:1,7     FETCH BYTE COUNT.                        ELRT3406
         STB,0    BCNT:1,7     RESET WHAT WE TOOK OUT.                  ELRT3407
CT:M     MTW,0    14           IF BYTE SUM = 0 , DO NOT PRINT           ELRT3408
         BEZ      CT:N         BRANCH IF EQUAL TO ZERO                  ELRT3409
         LW,6     CT:BADRS     FETCH ADDRESS.                           ELRT3410
         STW,6    CT:DA        INSERT TO DATA AFTER BAL                 ELRT3411
         BAL,15   L:PRINT      PRINT TEXT OUT.                          ELRT3412
CT:DA    DATA     OUTE:1                                                ELRT3413
CT:N     EQU      %                                                     ELRT3414
         LW,6     CT:BADRS     UPDATE CT:BADRS TO NEXT BUFFER           ELRT3415
         AI,6     34                                                    ELRT3416
         STW,6    CT:BADRS                                              ELRT3417
         MTW,1    CT:BCT       INCREMENT INDEX TO NEXT BYTE COUNT       ELRT3418
         B        CT:NA        CONTINUE                                 ELRT3419
CT:AA    EQU      %                                                     ELRT3423
         MTW,0    1:FLAG       CHECK 132 -72 BYTE FLAG.                 ELRT3424
         BEZ      CT:DONE      IF 132,BRANCH TO DONE.                   ELRT3425
         MTW,0    2:FLAG       ALREADY BEEN THRU HERE ???               ELRT3426
         BNEZ     CT:DONE      BRANCH IF YES. ONCE THRU ALREADY         ELRT3427
         LW,14    X40X         FETCH BLANKS.........                    ELRT3428
         STW,14   OUTE:1+16    FILL THE 8 PREVIOUS BYTES WITH BLANKS.   ELRT3429
         STW,14   OUTE:1+17                                             ELRT3430
         STW,14   OUTE:2+16                                             ELRT3431
         STW,14   OUTE:2+17                                             ELRT3432
         STW,14   OUTE:3+16                                             ELRT3433
         STW,14   OUTE:3+17                                             ELRT3434
         STW,14   OUTE:4+16                                             ELRT3435
         STW,14   OUTE:4+17                                             ELRT3436
         STW,14   OUTE:5+16                                             ELRT3437
         STW,14   OUTE:5+17                                             ELRT3438
         LI,14    OUTE:1+16    INITIALIZE FOR NEXT OUTPUT RUN           ELRT3439
         STW,14   CT:BADRS     THIS TIME FOR THE REST .                 ELRT3440
         STW,0    CT:BCT       RESET BYTE COUNT.                        ELRT3441
         STW,1    2:FLAG       SET 'ALREADY THRU' FLAG                  ELRT3442
         LW,14    3:FLAG       ANY SKIP AFTER 1ST GROUP DONE            ELRT3443
         BEZ      CT:NA        BRANCH IF NONE.....                      ELRT3444
         BAL,15   L:SPACE      SKIP                                     ELRT3445
         B        CT:NA        BRANCH BACK.                             ELRT3446
*                                                                       ELRT3447
*        ALL DONE.                                                      ELRT3448
*                                                                       ELRT3449
CT:DONE  EQU      %                                                     ELRT3450
         MTW,0    1:FLAG       CHCK IF 72O/ OR 132 LENGHT.              ELRT3451
         BEZ      CT:D1        BRANCH IF 132. (NO SKIP IF 132)          ELRT3452
         LW,7     CT:SKIP      ANY SKIPS  TO BE DONE AFTER ALL          ELRT3453
         BEZ      CT:D1          DONE. ALL GROUPS)                      ELRT3454
         LCW,7    CT:SKIP      YES, FETCH THE NEGATIVE INDEX.           ELRT3455
         BAL,15   L:SPACE      SKIP                                     ELRT3456
         BIR,7    %-1          GO UNTIL ALL DONE.                       ELRT3457
CT:D1    EQU      %                                                     ELRT3458
         LCI      4            RESTORE ALL REGISTERS.                   ELRT3459
         LM,5     CT:SAVE      5-8,14-15                                ELRT3460
         LCI      2                                                     ELRT3461
         LM,14    CT:SAVE+4                                             ELRT3462
         B        *15                                                   ELRT3463
*                                                                       ELRT3464
*                                                                       ELRT3465
*                                                                       ELRT3466
*  **ERROR**  ROUTINE.                                                  ELRT3467
*                                                                       ELRT3468
*                                                                       ELRT3469
*                                                                       ELRT3470
CT:X     EQU      %                                                     ELRT3471
         LI,14    34           PRINT OUT ERROR MSG.                     ELRT3472
         BAL,15   E:PRINT      PRINT.......                             ELRT3473
         DATA     CT:XMSG                                               ELRT3474
         B        CT:D1        BRANCH TO EXIT                           ELRT3475
CT:XMSG  TEXT     'ERROR:TOO MANY CHARACTERS OR LINES'                  ELRT3476
         PAGE                                                           ELRT3485
*                                                                       ELRT3486
*                                                                       ELRT3487
*  SUBROUTINE TO PRINT A SPACE OUT THRU THE L:PRINT DEVICE.             ELRT3488
*                                                                       ELRT3489
*                                                                       ELRT3490
*                                                                       ELRT3491
L:SPACE3 STW,14   L:SAVEP                                               RT--0142
         LI,14    3                                                     RT--0143
         STW,14   L:CNT                                                 RT--0144
         B        L:SPACE0                                              RT--0145
L:SPACE2 STW,14   L:SAVEP                                               RT--0146
         LI,14    2                                                     RT--0147
         STW,14   L:CNT                                                 RT--0148
         B        L:SPACE0                                              RT--0149
L:SPACE  STW,14   L:SAVEP                                               RT--0150
         LI,14    1                                                     RT--0151
         STW,14   L:CNT                                                 RT--0152
L:SPACE0 STW,15   L:SAVEP+1                                             RT--0153
L:SP     EQU      %                                                     RT--0154
         LI,14    1                                                     ELRT3495
         BAL,15   L:PRINT      PRINT THE SPACE                          ELRT3496
         DATA     SPACEMSG                                              ELRT3497
         MTW,-1   L:CNT                                                 RT--0156
         BCS,2    L:SP              LOOP IF L:CNT IS POS                RT--0157
         LCI      2            RESTORE THE REGISTERS                    ELRT3498
         LM,14    L:SAVEP                                               ELRT3499
         B        *15                                                   ELRT3500
L:SAVEP  DATA     0,0          RESERVED LOCATIONS.                      ELRT3501
L:CNT    DATA     0                                                     RT--0159
SPACEMSG TEXT     ' '                                                   ELRT3502
         PAGE                                                           ELRT3508
*                                                                       ELRT3509
* L:PRINT LIST OUT TO THE LISTING DEVICE (LD)                           ELRT3510
*                                                                       ELRT3511
* CALL MODE:                   IF ABNORMAL OR ERROR CODE OCCUR          ELRT3512
*                              THE SYSTEM WILL ABORT AND GO TO          ELRT3513
*        LB,14    BYTE COUNT   E:RPINT FOR OUTPUT.                      ELRT3514
*        BAL,15   L:PRINT      REGISTERS. 1,8,10 = VOLATILE THEN.       ELRT3515
*        DATA     TEXT         ADDRESS.                                 ELRT3516
*                                                                       ELRT3517
L:PRINT  EQU      %                                                     ELRT3518
         STW,14   L:PSAVE      SAVE REG. 14.15.8                        ELRT3519
         STW,15   L:PSAVE+1                                             ELRT3520
         STW,8    L:PSAVE+2                                             ELRT3521
         STW,14   WRI:BCNT     SAVE BYTE COUNT                          ELRT3522
         LW,14    *15          FETCH TEXT ADDRESS.                      ELRT3523
*                                                                       ELRT3524
         STW,14   WRI:BUF      SAVE IN BUFFER ADDRESS.                  ELRT3525
         BAL,15   PAX          SIDE OF THE SHOW TO UPDATE THE TOP OF    ELRT3526
* FORM HEADER FOR THE HEADER CAL.....FOR THE LP.....                    ELRT3527
         CAL1,1   WRI:FPT      WRITE OUT TO M:LO                        ELRT3528
         LW,14    L:PSAVE      RESTORE REG. 14.15 8                     ELRT3529
         LW,15    L:PSAVE+1                                             ELRT3530
         LW,8     L:PSAVE+2                                             ELRT3531
         MTW,1    L:PSAVE+1    INCREMENT RETURN ADDRESS.                ELRT3532
         B        *L:PSAVE+1   RETURN.                                  ELRT3533
L:PSAVE  DATA     0,0,0                                                 ELRT3534
*                                                                       ELRT3535
*                                                                       ELRT3536
*  ERROR RETURN FOR BOTH L:PRINT AND E:PRINT.                           ELRT3537
*                                                                       ELRT3538
*                                                                       ELRT3539
WRI:ERR  EQU      %                                                     ELRT3540
         BAL,15   ERR:PRN      ERROR PRINTOUT.                          ELRT3541
         B        M:ABORT      ABORT                                    ELRT3542
*                                                                       ELRT3543
*                                                                       ELRT3544
*        ABNORMAL ERROR RETURN FOR L:PRINT AND E:PRNT                   ELRT3545
*                                                                       ELRT3546
*                                                                       ELRT3547
WRI:ABN  EQU      %                                                     ELRT3548
         BAL,15   ABN:PRN      ERROR ABNORMAL PRINTOUT.                 ELRT3549
         B        M:ABORT      ABORT JOB.                               ELRT3550
*                                                                       ELRT3551
*                                                                       ELRT3552
WRI:FPT  GEN,1,7,7,17   1,X'11',0,LD:DCB                                ELRT3553
         DATA         X'F0000010',WRI:ERR,WRI:ABN                       ELRT3554
WRI:BUF  DATA         0                                                 ELRT3555
WRI:BCNT DATA         0                                                 ELRT3556
*                                                                       ELRT3557
*                                                                       ELRT3558
*                                                                       ELRT3559
         PAGE                                                           ELRT3560
*                                                                       ELRT3561
*                                                                       ELRT3562
* E:PRINT LIST THE ERROR MSG. TO THE CID AND LD DEVICE.                 ELRT3563
*                                                                       ELRT3564
* CALL MODE:                   THE M:OPEN HAS ERROR AND ABN.            ELRT3565
*                              RETURN BUT THE ERROR PRINT HAS           ELRT3566
*        LW,14    BYTE COUNT   NONE.                                    ELRT3567
*        BAL,15   E:PRINT                                               ELRT3568
*        DATA     TEXT         ADDRESS.                                 ELRT3569
*                                                                       ELRT3570
*                                                                       ELRT3571
* ISSUE A M:CORRES TO LD:DCB VS. MD:DCB.                                ELRT3572
* IF THE DEVICE ARE EQUAL , DO NOT PRINT TO LD:DCB DEVICE.              ELRT3573
*                                                                       ELRT3574
E:PRINT  EQU      %                                                     ELRT3575
         STW,14   E:PSAVE      SAVE REGISTER 14,15,8                    ELRT3576
         STW,15   E:PSAVE+1                                             ELRT3577
         STW,8    E:PSAVE+2                                             ELRT3578
         STW,14   WRIEBCNT     SET BYTE COUNT                           ELRT3579
         LW,14    *15          FETCH TEXT ADDRESS.                      ELRT3580
         STW,14   WRIEBUF      SET IN BUFFER ADDRESS.                   ELRT3581
         CI,15    1:D+1                                                 ELRT3582
         BE       E:PRS2                                                ELRT3583
         CI,15    2:D+1                                                 ELRT3584
         BE       E:PRS2                                                ELRT3585
         CI,15    3:D+1                                                 ELRT3586
         BE       E:PRS2                                                ELRT3587
         CI,15    4:D+1                                                 ELRT3588
         BE       E:PRS2                                                ELRT3589
         CI,15    R:HELL       IS THIS THE COMMAND OUTPUT ENTRY..?      ELRT3590
         BNE      E:PRS4       BRANCH IF ABSOLUTELY NOT!!!!.....        ELRT3591
EPI      LW,14    CIDFG        FLAG.  SI=OC (0) SI .NE. OC (1)          ELRT3592
         BEZ      E:PRS1       BRANCH IF ENFATICALLY YES!!!>>...        ELRT3593
         B        E:PRS3       IF NOT CHECK LO=OC OR NOT.               ELRT3594
E:PRS2   CAL1,1   VFC0CRS                                               ELRT3595
         CAL1,1   WRIEFPT      WRITE OUT                                ELRT3596
E:PRS3   LW,14    *LD:DCB      CHECK M:LO DEVICE DCB OPEN OR NOT        ELRT3597
         AND,14   X200         MASK IN BIT 10                           ELRT3598
         BNEZ     E:P1         BRANCH IF NOT ZERO                       ELRT3599
         CAL1,1   E:OPENL      OPEN BEFORE DOING THE M:CORRES.          ELRT3600
E:P1     EQU      %            DCB IS OPEN  HERE.                       ELRT3601
         CAL1,1   E:CORRS      CHECK DCB'S (EQUAL?)                     ELRT3602
         MTW,0    8            CHECK SR1                                ELRT3603
         BNEZ     E:P2         BRANCH IF NOT ZERO                       ELRT3604
E:PRS1   LW,15    WRIEBUF      SET UP THE M:LO PRINT.                   ELRT3605
         STW,15   E:P3                                                  ELRT3606
         LW,14    WRIEBCNT     BYTE COUNT                               ELRT3607
         CAL1,1   VFCRST       RESET VFC.....                           ELRT3608
         BAL,15   L:PRINT                                               ELRT3609
E:P3     DATA     0                                                     ELRT3610
E:P2     EQU      %                                                     ELRT3611
         LW,14    E:PSAVE      RESTORE REGISTERS.                       ELRT3612
         LW,15    E:PSAVE+1                                             ELRT3613
         LW,8     E:PSAVE+2                                             ELRT3614
         MTW,1    E:PSAVE+1    INCREMENT ADDRESS.                       ELRT3615
         B        *E:PSAVE+1                                            ELRT3616
*                                                                       ELRT3617
E:PSAVE  DATA     0,0,0                                                 ELRT3618
VFC0CRS  GEN,1,7,7,17  1,5,0,MD:DCB                                     ELRT3619
         DATA     0                                                     ELRT3620
X200     DATA     X'200000'                                             ELRT3621
         LW,14    BUFFER,2                                              ELRT3622
         LB,14    14                                                    ELRT3623
         STB,15   MSG5,1                                                ELRT3624
         STB,1    MSG5                                                  ELRT3625
E:OPENL  GEN,1,7,7,17   1,X'14',0,LD:DCB                                ELRT3626
         DATA     X'C0000000',WRI:ERR,WRI:ABN                           ELRT3627
E:CORRS  GEN,1,7,7,17  1,X'2B',0,MD:DCB                                 ELRT3628
         GEN,1,14,17   1,0,LD:DCB                                       ELRT3629
WRIEFPT  GEN,1,7,7,17   1,X'11',0,MD:DCB                                ELRT3630
         DATA     X'30000010'                                           ELRT3631
WRIEBUF  DATA     0                                                     ELRT3632
WRIEBCNT DATA     0                                                     ELRT3633
*                                                                       ELRT3634
*                                                                       ELRT3635
*                                                                       ELRT3636
*        SET UP BUFFER FOR THE ERROR OUPUT.                             ELRT3637
* (BUFFER IS 132 BYTES LENGHT...)                                       ELRT3638
*                                                                       ELRT3639
*                                                                       ELRT3640
E:PRS4   LCI      2            SAVE TWO REGISTERS.......                ELRT3641
         STM,5    E:PRSX       SAVE.....                                ELRT3642
         LW,5     WRIEBCNT     FETCH BYTE COUNT...                      ELRT3643
         CI,5     131          MAXXX..                                  ELRT3644
         BGE      E:PRS6                                                ELRT3645
         MTW,2    WRIEBCNT     ADD TWO.....                             ELRT3646
         LI,5     2            INITIALIZE.........                      ELRT3647
         LI,6     0                                                     ELRT3648
E:PRS5   LB,14    *WRIEBUF,6                                            ELRT3649
         STB,14   TEXOUT,5     TRANSFER THE BYTES.....                  ELRT3650
         AI,6     1            BUMP                                     ELRT3651
         AI,5     1                                                     ELRT3652
         CW,5     WRIEBCNT     B: IF GREATER                            ELRT3653
         BL       E:PRS5                                                ELRT3654
         LI,14    TEXOUT                                                ELRT3655
         STW,14   WRIEBUF                                               ELRT3656
E:PRS6   LCI      2            EXIT....RESTORE....                      ELRT3657
         LM,5     E:PRSX                                                ELRT3658
         B        E:PRS2                                                ELRT3659
E:PRSX   DATA     0,0                                                   ELRT3660
TEXOUT   TEXT     '**  '                                                ELRT3661
         RES      32                                                    ELRT3662
         PAGE                                                           ELRT3663
*                                                                       ELRT3664
*                                                                       ELRT3665
*        ERROR RETURN FOR MOST CAL'S.                                   ELRT3666
*        THE FUNCTION IS JUST TO PRINT OUT ERROR CODE AND               ELRT3667
*        LOCATION OF ERROR CAL.                                         ELRT3668
*        CALL MODE. :   BAL,15 ERR:PRN                                  ELRT3669
*                                                                       ELRT3670
*                                                                       ELRT3671
ERR:PRN  EQU      %                                                     ELRT3672
         LCI      0                                                     ELRT3673
         STM,0    ERR:PSAV     SAVE REGISTERS 0-15                      ELRT3674
         LB,14    10           FETCH CODE FROM REG. 10                  ELRT3675
         BAL,15   HEXEBC       CONVERT TO EBCDIC                        ELRT3676
         STH,15   ERR:MSG+5    SAVE INTO TEXT MSG.                      ELRT3677
         LB,14    10,1                                                  ELRT3678
         SLS,14   -1                ADJUST ERROR SUBCODE                RT--0162
         BAL,15   HEXEBC       CONVERT TO EBCDIC                        ELRT3679
         STH,15   ERR:MSG+8                                             ELRT3680
         LI,14    36                                                    ELRT3681
         BAL,15   E:PRINT      ERROR PRINTOUT.                          ELRT3682
         DATA     ERR:MSG                                               ELRT3683
         LCI      0            RESTORE REGISTERS 0-15                   ELRT3684
         LM,0     ERR:PSAV                                              ELRT3685
         B        *15          RETURN.                                  ELRT3686
ERR:PSAV RES      16           RESERVE FOR 16 REGISTERS.0-15            ELRT3687
*                                                                       ELRT3688
*                                                                       ELRT3689
ERR:MSG  TEXTS    'ERROR OCCURRED:CODE=XX  SUBCODE=XX'                  ELRT3690
*                                                                       ELRT3691
*                                                                       ELRT3692
*                                                                       ELRT3693
         PAGE                                                           ELRT3694
*                                                                       ELRT3695
*                                                                       ELRT3696
*                                                                       ELRT3697
*        ABNORMAL ERROR RETURN FOR MOST CAL'S                           ELRT3698
*        THE FUNCTION IS ESSENTIALLY THE SAME FOR ABNORMAL              ELRT3699
*        CALL MODE:            BAL,15  ABN:PRN                          ELRT3700
*                                                                       ELRT3701
*                                                                       ELRT3702
*                                                                       ELRT3703
ABN:PRN  EQU      %                                                     ELRT3704
         LCI      0            SAVE REGISTERS 0-15                      ELRT3705
         STM,0    ABN:SAV                                               ELRT3706
         LB,14    10           FETCH ERROR CODE                         ELRT3707
         BAL,15   HEXEBC       CONVERT TO EBCDIC                        ELRT3708
         STH,15   ABN:MSG+5                                             ELRT3709
         LB,14    10,1                                                  ELRT3710
         SLS,14   -1                ADJUST SUBCODE                      RT--0164
         BAL,15   HEXEBC                                                ELRT3711
         STH,15   ABN:MSG+8                                             ELRT3712
         LI,14    36           BYTE COUNT                               ELRT3713
         BAL,15   E:PRINT                                               ELRT3714
         DATA     ABN:MSG                                               ELRT3715
         LCI      0            RESTORE REGISTERS 0-15                   ELRT3716
         LM,0     ABN:SAV                                               ELRT3717
         B        *15          RETURN                                   ELRT3718
ABN:SAV  RES      16                                                    ELRT3719
*                                                                       ELRT3720
*                                                                       ELRT3721
ABN:MSG  TEXTS    'ABNORMAL ERROR CODE=XX  SUBCODE=XX'                  ELRT3722
*                                                                       ELRT3723
*                                                                       ELRT3724
*                                                                       ELRT3725
*                                                                       ELRT3726
         PAGE                                                           ELRT3727
*                                                                       ELRT3728
*                                                                       ELRT3729
*  HEXDEC:        CONVERT A HEX NUMBER TO DECIMAL DIGITS.               ELRT3730
*                                                                       ELRT3731
*  CALL MODE:                 INPUT = X'10000000' IN REG 14             ELRT3732
*                             OUTPUT = X'2' IN REG 14                   ELRT3733
*                                      X'68435456' IN REG 15            ELRT3734
*        LW,14    HEW WORD                                              ELRT3735
*        BAL,15   HEXDEC:                                               ELRT3736
*        RESULT IN REGISTERS 14,15                                      ELRT3737
*                                                                       ELRT3738
HEXDEC:  EQU      %                                                     ELRT3739
         LCI      3          SAVE REGISTERS 13-15,5-7                   ELRT3740
         STM,13   HX:SAVE                                               ELRT3741
         STM,5    HX:SAVE+3                                             ELRT3742
         LI,15    0          CLEAR 15                                   ELRT3743
         LI,14    0          CLEAR 14                                   ELRT3744
         LI,5     0          CLEAR 5                                    ELRT3745
         LI,6     -9                                                    ELRT3746
HEXDEC0  EQU      %                                                     ELRT3747
         LW,13    HX:SAVE+1  FETCH HEW WORD.                            ELRT3748
         SW,13    HX:10:9+9,6  DECREMENT CONSTANTS.                     ELRT3749
         BLZ      HEXDEC2    BRANCH IF LESS THAN ZERO (NEGATIVE)        ELRT3750
         AI,15    1          INCREMENT 15                               ELRT3751
         STW,13   HX:SAVE+1  SAVE REMAINDER                             ELRT3752
         B        HEXDEC0    BRANCH AGAIN.                              ELRT3753
HEXDEC2  EQU      %                                                     ELRT3754
         SLD,14   4            SHIFT LEFT 4                             ELRT3755
         BIR,6    HEXDEC0    BRANCH AND INCREMENT                       ELRT3756
         AW,15    HX:SAVE+1  ADD LAST DECIMAL DIGIT.                    ELRT3757
         LCI      3                                                     ELRT3758
         LM,5     HX:SAVE+3  RESTORE REG. 5-7,13-15                     ELRT3759
         LW,13    HX:SAVE                                               ELRT3760
         B        *HX:SAVE+2 RETURN.                                    ELRT3761
HX:SAVE  DATA     0,0,0,0,0,0                                           ELRT3762
HX:10:9  DATA     1000000000,100000000,10000000,1000000,100000          ELRT3763
         DATA     10000,1000,100,10                                     ELRT3764
*                                                                       ELRT3765
*                                                                       ELRT3766
*                                                                       ELRT3767
         PAGE                                                           ELRT3768
*                                                                       ELRT3769
* HEXDECE         CONVERT HEX WORD INTO EBCDIC DECIMAL                  ELRT3770
*                 DEPOSIT IN LOCATION OF USER CHOICE.                   ELRT3771
*                 10 DECIMAL LONG.                                      ELRT3772
*                                                                       ELRT3773
*  CALL MODE:     LI,13      START BYTE COUNT WITHIN A WORD.(0-3)       ELRT3774
*                 LW,14      HEX WORD TO BE CONVERTED.                  ELRT3775
*                 BAL,15     HEXDECE                                    ELRT3776
*                 DATA       ADDRESS OF LOCATION WHERE DECIMAL          ELRT3777
*                            DIGITS TO BE DEPOSITED.                    ELRT3778
*                                                                       ELRT3779
*                                                                       ELRT3780
HEXDECE  EQU      %                                                     ELRT3781
         LCI      3          SAVE REGISTERS 13-15,5-7                   ELRT3782
         STM,13   HX:FSAVE                                              ELRT3783
         STM,5    HX:FSAVE+3                                            ELRT3784
         LW,13    *15        FETCH ADDRESS OF LOCATION                  ELRT3785
         STW,13   HX:FADR    SAVE                                       ELRT3786
         BAL,15   HEXDEC:    CONVERT TO DECIMAL DIGITS.                 ELRT3787
         SLS,14   24         SHIFT LEFT 24 BITS.                        ELRT3788
         LW,7     HX:FSAVE   FETCH BYTE COUNT.                          ELRT3789
         LI,6     -2         SET INDEX 6 AT -2                          ELRT3790
A:HX     LI,13    0          CLEAR 13                                   ELRT3791
         SLD,13   4          SHIFT LEFT 4 BITS                          ELRT3792
         AI,13    X'F0'      ADD X'F0'                                  ELRT3793
         STB,13   *HX:FADR,7 STORE TO DATA LOCATION.                    ELRT3794
         AI,7     1          INCREMENT INDEX 7                          ELRT3795
         BIR,6    A:HX       BRANCH ON INCRMENTING                      ELRT3796
         LI,6     -8           SET UP INDEX                             ELRT3797
         B        2:HD         CONTINUE IN  REGULAR HEX CONV.           ELRT3798
*                                                                       ELRT3799
*                                                                       ELRT3800
*                                                                       ELRT3801
*                                                                       ELRT3802
*                                                                       ELRT3803
*  CALL MODE:                                                           ELRT3804
*        LI,13    START BYTE LOCATION.                                  ELRT3805
*        LW,14    HEX WORD                                              ELRT3806
*        BAL,15   HEXTWO,HEXFOUR,HEXFIVE,HEXEIGHT                       ELRT3807
*        DATA     LOCATION TO BE DEPOSITED.                             ELRT3808
HEXTWO   EQU      %                                                     ELRT3809
         LCI      3            CONVERT TO TWO DEC. EBCDIC.              ELRT3810
         STM,5    HX:FSAVE+3                                            ELRT3811
         LI,6     -2           SET UP INDEX.                            ELRT3812
         LI,7     24                                                    ELRT3813
         B        0:HD                                                  ELRT3814
HEXFOUR  EQU      %                                                     ELRT3815
         LCI      3                                                     ELRT3816
         STM,5    HX:FSAVE+3                                            ELRT3817
         LI,6     -4                                                    ELRT3818
         LI,7     16                                                    ELRT3819
         B        0:HD                                                  ELRT3820
HEXFIVE  EQU      %                                                     ELRT3821
         LCI      3                                                     ELRT3822
         STM,5    HX:FSAVE+3                                            ELRT3823
         LI,6     -5                                                    ELRT3824
         LI,7     12                                                    ELRT3825
         B        0:HD                                                  ELRT3826
HEXEIGHT EQU      %                                                     ELRT3827
         LCI      3                                                     ELRT3828
         STM,5    HX:FSAVE+3                                            ELRT3829
         LI,6     -8                                                    ELRT3830
         LI,7     0                                                     ELRT3831
0:HD     EQU      %                                                     ELRT3832
         STW,7    HD:SHT       SAVE THE SHIFT FACTOR.                   ELRT3833
         LCI      3            GO ON TO SAVE REG 13-15                  ELRT3834
         STM,13   HX:FSAVE                                              ELRT3835
         LW,13    *15                                                   ELRT3836
         STW,13   HX:FADR      SAVE IN THE ADDRESS                      ELRT3837
         BAL,15   HEXDEC:                                               ELRT3838
         CI,7     0            CHECK SHIFT FACTOR                       ELRT3839
         BE       1:HD         BRANCH IF ZERO                           ELRT3840
         SLS,15   *HD:SHT      SHIFT BY FACTOR.                         ELRT3841
1:HD     EQU      %                                                     ELRT3842
         LW,7     HX:FSAVE                                              ELRT3843
2:HD     EQU      %                                                     ELRT3844
         LI,14    0          CLEAR REGISTER 14                          ELRT3845
         SLD,14   4          SHIFT LEFT 4BITS DOUBLE REGISTERS          ELRT3846
         AI,14    X'F0'                                                 ELRT3847
         STB,14   *HX:FADR,7 STORE INTO LOCATION                        ELRT3848
         AI,7     1          INCREMENT BY ONE                           ELRT3849
         BIR,6    2:HD       BRANCH INCREMENT                           ELRT3850
         LCI      3          RESTORE REIGSTERS. 13-15,5-7               ELRT3851
         LM,5     HX:FSAVE+3                                            ELRT3852
         LM,13    HX:FSAVE                                              ELRT3853
         MTW,1    HX:FSAVE+2 INCREMENT RETURN ADDRESS.                  ELRT3854
         B        *HX:FSAVE+2 RETURN.                                   ELRT3855
HX:FSAVE DATA     0,0,0,0,0,0                                           ELRT3856
HD:SHT   DATA     0                                                     ELRT3857
HX:FADR  DATA     0                                                     ELRT3858
*                                                                       ELRT3859
*                                                                       ELRT3860
*                                                                       ELRT3861
         PAGE                                                           ELRT3862
*                                                                       ELRT3863
*                                                                       ELRT3864
*                                                                       ELRT3865
*                                                                       ELRT3866
*        DECIMAL TO HEXADECIMAL CONVERSION.                             ELRT3867
*                                                                       ELRT3868
*        THIS ROUTINE WILL CONVERT DECIMAL (4 BITS FORMAT)              ELRT3869
*        VALUES INTO HEXADECIMAL VALUES.                                ELRT3870
*                                                                       ELRT3871
*        THE MAX INPUT DECIMAL VALUE IS LIMITED TO 8 DECIMAL            ELRT3872
*        CHARACTERS. (A WORD) AND THE MAX IS DECIMAL 99999999           ELRT3873
*                                                                       ELRT3874
*        CALLING MODE:                                                  ELRT3875
*        LW,14    DECIMAL WORD.                                         ELRT3876
*        BAL,15   DECHEX:                                               ELRT3877
*        ERROR RETURN. (VALUE WAS NOT DECIMAL)                          ELRT3878
*        SUCCESFUL RETURN.                                              ELRT3879
*          (RESULTS IN REGISTER 15)                                     ELRT3880
*          ALL OTHER REGISTER CONSIDERED SAFE                           ELRT3881
*                                                                       ELRT3882
DECHEX:  EQU      %                                                     ELRT3883
         LCI      2            SAVE REGISTERS 14,15                     ELRT3884
         STM,14   DX:SAVE                                               ELRT3885
         LCI      4            SAVE REGISTERS 4,5,6,7                   ELRT3886
         STM,4    DX:SAVE+2                                             ELRT3887
         LI,15    0            CLEAR 14,15                              ELRT3888
         LI,14    0                                                     ELRT3889
         LI,4     -7           INITIALIZE INDEX REG 4 TO -7             ELRT3890
         LI,5     0            RESET INDEXES 5,6                        ELRT3891
         LI,6     0                                                     ELRT3892
         LW,7     DX:SAVE      FETCH DECIMAL VALUE                      ELRT3893
DX:0     EQU      %                                                     ELRT3894
         SLD,6    4            SHIFT DECIMAL VALUE LEFT 4 INTO...       ELRT3895
         CI,6     0             LEAST SIGNIFICANT 4 BITS OF REG 6       ELRT3896
         BL       DX:EXIT      CHECK FOR DECIMALI'TY (0-9)              ELRT3897
         CI,6     9                                                     ELRT3898
         BG       DX:EXIT      ERROR                                    ELRT3899
         CI,6     0            CHECK FOR ZERO                           ELRT3900
         BE       DX:1                                                  ELRT3901
         LCW,6    6            FETCH THE NEGATIVE VALUE                 ELRT3902
         AW,15    HX:10:9+2,5   ADD THE HEX VALUE (MULTIPLY)            ELRT3903
         BIR,6    %-1                                                   ELRT3904
DX:1     EQU      %                                                     ELRT3905
         AI,5     1            INCREMENT INDEX 5                        ELRT3906
         BIR,4    DX:0         DO UNTIL ALL 8 CHARACTERS DONE           ELRT3907
         SLD,6    4            SHIFT THE LAST CHARACTER IN.             ELRT3908
         AW,15    6            ADD TO ACCUMMULATED SUM.                 ELRT3909
         MTW,1    DX:SAVE+1    INCREMENT RETURN FOR GOOD RETURN.        ELRT3910
DX:EXIT  EQU      %                                                     ELRT3911
         LCI      4            RESTORE 4,5,6,7                          ELRT3912
         LM,4     DX:SAVE+2                                             ELRT3913
         LW,14    DX:SAVE                                               ELRT3914
         B        *DX:SAVE+1   RETURN.                                  ELRT3915
DX:SAVE  RES      6            RESERVED SAVE LOCATIONS.                 ELRT3916
*                                                                       ELRT3917
*                                                                       ELRT3918
*                                                                       ELRT3919
*                                                                       ELRT3920
*                                                                       ELRT3921
*                                                                       ELRT3922
*                                                                       ELRT3923
         PAGE                                                           ELRT3924
*                                                                       ELRT3925
*                                                                       ELRT3926
*        FETCH BYTES FROM COMBUFF SUBROUTINE.                           ELRT3927
*                                                                       ELRT3928
*        EVERYTIME AN ENTRY IS DONE,COB ISINCREMENTED.                  ELRT3929
*        CALL IS BY:                                                    ELRT3930
*        BAL,15   F:F                                                   ELRT3931
*        BRANCH HERE IS A TERMINATION RETURN.                           ELRT3932
*        BRANCH HERE IS A CONTINUATION RETURN.                          ELRT3933
*                                                                       ELRT3934
*        REGISTERS 14,15 ARE DISTURBED.                                 ELRT3935
*        REGISTER 14 WILL HAVE THE BYTE INPUT FROM COMBUFF.             ELRT3936
*        TERMINATION RETURN MEANS TERMINATED BY THE END OF              ELRT3937
*        THE 80 BYTES INPUT OR BY CARRIAGE RETURN OR NEW LINE.          ELRT3938
*        ALL OTHER REGISTER ARE SAVED.                                  ELRT3939
*        THIS ROUTINE IS FOR THE BENEFIT OF THE SET AND BOUNDARY        ELRT3940
*        COMMANDS. (SPECIALIZED ROUTINE)                                ELRT3941
*                                                                       ELRT3942
*                                                                       ELRT3943
F:F      EQU      %                                                     ELRT3944
         STW,4    FS:          SAVE REG. 4                              ELRT3945
FN:      EQU      %                                                     ELRT3946
         MTW,1    COB          INCREMENT INDEX POINTER                  ELRT3947
         LW,4     COB          FETCH INDEX 4                            ELRT3948
         CI,4     79           COMPARE TO 79                            ELRT3949
         BG       FX:          BRANCH IF GREATER THAN.                  ELRT3950
         LB,14    COMBUFF,4    FETCH BYTE.                              ELRT3951
         CB,14    X4BD5        BRANCH IF BLANK.                         ELRT3952
         BE       FN:                                                   ELRT3953
         CB,14    X4BD5,2      BRANCH IF CARRIAGE RETURN.               ELRT3954
         BE       FX:                                                   ELRT3955
         CB,14    X4BD5,3      BRANCH IF NEW LINE.                      ELRT3956
         BE       FX:                                                   ELRT3957
         AI,15    1            INCREMENT RETURN ADDRESS.                ELRT3958
FX:      EQU      %                                                     ELRT3959
         LW,4     FS:          RESTORE REG.4                            ELRT3960
         B        *15          RETURN.                                  ELRT3961
FS:      DATA     0                                                     ELRT3962
*                                                                       ELRT3963
*                                                                       ELRT3964
GETDT    LCI      4                                                     ELRT3965
         STM,12   GETSVT       SAVE 12-15                               ELRT3966
         STW,5    GETSV5                                                ELRT3967
*        GET CURRENT TIME-DATE.                                         ELRT3968
*        INITIALIZE PARAMETERS DATE:0,TIME:0,YEAR:0                     ELRT3969
*                                                                       ELRT3970
         CAL1,8   GETDATE      CAL GET DATE.                            ELRT3971
         LI,13    0            RESET 14                                 ELRT3972
         LH,12    DATIME       FETCH HOURS.                             ELRT3973
         AND,12   XFFFF                                                 ELRT3974
         SCD,12   -4                                                    ELRT3975
         SCS,12   -4                                                    ELRT3976
         SCD,12   -4                                                    ELRT3977
         SLS,13   -24                                                   ELRT3978
         LW,14    13                                                    ELRT3979
         BAL,15   DECHEX:                                               ELRT3980
         B        E:R:R                                                 ELRT3981
         STW,15   HOUR:0                                                ELRT3982
*                                                                       ELRT3983
*  ......................                                               ELRT3984
*                                                                       ELRT3985
         LW,12    DATIME       FETCH MINUTES.                           ELRT3986
         LW,13    DATIME+1                                              ELRT3987
         SLS,13   4                                                     ELRT3988
         SLD,12   -4                                                    ELRT3989
         SLS,13   -24                                                   ELRT3990
         LW,14    13                                                    ELRT3991
         BAL,15   DECHEX:                                               ELRT3992
         B        E:R:R                                                 ELRT3993
         STW,15   MINS:0                                                ELRT3994
*                                                                       ELRT3995
*  .......................                                              ELRT3996
*                                                                       ELRT3997
         LW,12    DATIME+1     FETCH MONTHS.                            ELRT3998
         LW,13    DATIME+2                                              ELRT3999
         SLD,12   8                                                     ELRT4000
         LI,5     0                                                     ELRT4001
DA:TI1   CW,12    JAN:,5                                                ELRT4002
         BE       DA:TI2                                                ELRT4003
         AI,5     1            INCREMENT INDEX TO MONTHS                ELRT4004
         CI,5     11                                                    ELRT4005
         BLE      DA:TI1       BRANCH LESS OR EQUAL                     ELRT4006
         B        E:R:R                                                 ELRT4007
DA:TI2   AI,5     1                                                     ELRT4008
         STW,5    MONT:0                                                ELRT4009
*                                                                       ELRT4010
*  ........................                                             ELRT4011
*                                                                       ELRT4012
         LI,13    0            FETCH DAYS.                              ELRT4013
         LW,12    DATIME+2                                              ELRT4014
         AND,12   XFFFF                                                 ELRT4015
         SCD,12   -4                                                    ELRT4016
         SCS,12   -4                                                    ELRT4017
         SCD,12   -4                                                    ELRT4018
         SLS,13   -24                                                   ELRT4019
         LW,14    13                                                    ELRT4020
         BAL,15   DECHEX:                                               ELRT4021
         B        E:R:R                                                 ELRT4022
         STW,15   DAY:0                                                 ELRT4023
*                                                                       ELRT4024
*  ..........................                                           ELRT4025
*                                                                       ELRT4026
         LI,13    0            FETCH YEAR.                              ELRT4027
         LW,12    DATIME+3                                              ELRT4028
         AND,12   XFFFF                                                 ELRT4029
         SCD,12   -4                                                    ELRT4030
         SCS,12   -4                                                    ELRT4031
         SCD,12   -4                                                    ELRT4032
         SLS,13   -24                                                   ELRT4033
         LW,14    13                                                    ELRT4034
         BAL,15   DECHEX:                                               ELRT4035
         B        E:R:R                                                 ELRT4036
         STW,15   YEAR:0                                                ELRT4037
*                                                                       ELRT4038
*  ..........................                                           ELRT4039
*                                                                       ELRT4040
         LW,13    MONT:0       FIX DATE:0                               ELRT4041
         LW,14    DAY:0                                                 ELRT4042
         BAL,15   MD:JD        CONVERT TO JULIAN DAYS.                  ELRT4043
         STW,15   DATE:0                                                ELRT4044
*                                                                       ELRT4045
*  ..........................                                           ELRT4046
*                                                                       ELRT4047
         LW,13    HOUR:0       FIX TIME:0                               ELRT4048
         LW,14    MINS:0                                                ELRT4049
         BAL,15   HMSN:MS      CONVERT TO MILLISECS.                    ELRT4050
         B        E:R:R                                                 ELRT4051
         STW,15   TIME:00                                               ELRT4052
*                                                                       ELRT4053
*        EXIT                                                           ELRT4054
*                                                                       ELRT4055
         LCI      4                                                     ELRT4056
         LM,12    GETSVT       RESTORE 12-15                            ELRT4057
         LW,5     GETSV5       RESTORE 5                                ELRT4058
         B        *15                                                   ELRT4059
GETSVT   RES      4                                                     ELRT4060
GETSV5   DATA     0                                                     ELRT4061
         PAGE                                                           ELRT4062
*                                                                       ELRT4063
*   GET MODEL INTO A EBCDIC FORMAT.                                     ELRT4064
*   CALL MODE.    BAL,15  MOD:EBC                                       ELRT4065
*         RESULTS IN REGISTERS 14,15                                    ELRT4066
*         FETCH THE MODEL FROM BUFFER INTO REG 14 (RIGHT JUST)          ELRT4067
*                                                                       ELRT4068
MOD:EBC   EQU     %                                                     ELRT4069
         LCI      0                                                     ELRT4070
          STM,0     COMBUFF                                             ELRT4071
         BIFSYS   (CPV,MOD:EAB)     B IF CPV                            ELRT4072
         BAL,15    HEXDEC:                                              ELRT4073
         LW,14    15                                                    ELRT4074
MOD:EAB   EQU    %                                                      ELRT4075
         BAL,15    HEXEBC                                               ELRT4076
         LCI     14                                                     ELRT4077
         LM,0     COMBUFF                                               ELRT4078
         B       *COMBUFF+15                                            ELRT4079
*                                                                       ELRT4080
*                                                                       ELRT4081
*                                                                       ELRT4082
         PAGE                                                           ELRT4083
*                                                                       ELRT4084
* IONDD CONVERTS THE PHYSICAL IO ADDRESS INTO LOGICAL .....             ELRT4085
* THIS IS DEPENDING UPON THE SYSIDF........CP-R OR CP-V                 ELRT4086
* SIGMA OR TAURUS SIGNIFICANCE......                                    ELRT4087
*                                                                       ELRT4088
* THE TAURUS CONVERSION REQUIRES A MATRIX CONVERSION..                  ELRT4089
* THE SIGMA IS A STRAITHGT FORWARD CONVERSION.                          ELRT4090
*                                                                       ELRT4091
* ENTERING REQUIRES HAVING THE DEVICE ADDRESS IN REG. 14                ELRT4092
*        BAL,15   IONDD        IS THE CALL.                             ELRT4093
*        RESULTS IN REGISTER 15 (EBCDIC)                                ELRT4094
*        (3 CHARACTERS RIGHT JUSTIFIED)                                 ELRT4095
*                                                                       ELRT4096
*                                                                       ELRT4097
IONDD    STW,7    ION7         SAVE 7                                   ELRT4098
         STW,14   IONS         SAVE 14                                  ELRT4099
         STW,15   IONS+1                                                ELRT4100
         BAL,15   HEXEBC       CONVERT...                               ELRT4101
         STH,15   IONT,1       SAVE IN TEMPORARY.                       ELRT4102
         LB,15    SYSIDF,1     FETCH TAURUS/SIGMA SIGN..                ELRT4103
         CI,15    3            IS IT TAURUS./                           ELRT4104
         BE       IONDTAU      B: YES.......                            ELRT4105
         LW,14    IONS         FETCH THE DEVICE                         ELRT4106
         SLS,14   -8                                                    ELRT4107
         AND,14   X7                                                    ELRT4108
         AI,14    X'C1'                                                 ELRT4109
         STB,14   IONT,1                                                ELRT4110
         B        IONX                                                  ELRT4111
IONDTAU  LW,7     IONS         FETCH THE DEVICE..                       ELRT4112
         SLS,7    -8                                                    ELRT4113
         AND,7    X7                                                    ELRT4114
         LW,14    UNADR#,7                                              ELRT4115
         STW,14   WKAD:        INTO WORD ADDRESS.                       ELRT4116
         LW,7     IONS         FETCH THE CLUSTER....                    ELRT4117
         SLS,7    -11                                                   ELRT4118
         AND,7    X7                                                    ELRT4119
         LB,14    *WKAD:,7     FETCH THE CHARACTER.                     ELRT4120
         STB,14   IONT,1                                                ELRT4121
IONX     LW,7     ION7                                                  ELRT4122
         LW,14    IONS                                                  ELRT4123
         LW,15    IONT                                                  ELRT4124
         B        *IONS+1                                               ELRT4125
X7       DATA     7                                                     ELRT4126
ION7     DATA     0                                                     ELRT4127
IONS     DATA     0,0                                                   ELRT4128
IONT     DATA     0                                                     ELRT4129
WKAD:    DATA     0                                                     ELRT4130
*                                                                       ELRT4131
*                                                                       ELRT4132
UN#0     TEXT     'ABHNTZ5.'                                            ELRT4133
UN#1     TEXT     '%CIOU06.'                                            ELRT4134
UN#2     TEXT     '#DJPV17.'                                            ELRT4135
UN#3     TEXT     '!EKQW28.'                                            ELRT4136
UN#4     TEXT     ':FLRX39.'                                            ELRT4137
UN#5     TEXT     '.GMSY4..'                                            ELRT4138
UN#6     TEXT     '........'                                            ELRT4139
UN#7     TEXT     '........'                                            ELRT4140
UNADR#   DATA     UN#0,UN#1,UN#2,UN#3,UN#4,UN#5,UN#6,UN#7               ELRT4141
         PAGE                                                           ELRT4142
*                                                                       ELRT4143
*                                                                       ELRT4144
*                                                                       ELRT4145
*  PAX ......SET UP THE HEADER DATE FOR THE CAL1,1 LP:HEAD CALL..       ELRT4146
*                                                                       ELRT4147
*                                                                       ELRT4148
PAX      EQU      %                                                     ELRT4149
         STW,4    PAX:DA+1     SAVE 4                                   ELRT4150
         STW,15   PAX:DA                                                ELRT4151
         CAL1,8   GETDATE      GET THE CURRENT DATE...                  ELRT4152
         LI,4     4            INITIALIZE THE COUNT                     ELRT4153
         LW,15    DATIME-1,4   FETCH THE INFO....                       ELRT4154
         STW,15   BUFDAT,4                                              ELRT4155
         BDR,4    %-2                                                   ELRT4156
         LW,4     PAX:DA+1                                              ELRT4157
         B        *PAX:DA                                               ELRT4158
PAX:DA   DATA     0,0                                                   ELRT4159
LP:HEAD  GEN,1,7,7,17  1,X'26',0,LD:DCB                                 ELRT4160
         GEN,4,28       X'C',0                                          ELRT4161
         DATA     BUFDAT,113                                            ELRT4162
BUFDAT   TEXTC    '                    '                                ELRT4163
*                                                                       ELRT4164
*                                                                       ELRT4165
*                                                                       ELRT4166
*                                                                       ELRT4167
         PAGE
         DEF      MOS:RCRD,CHIPERRS,MOS:QTY
*
*        NAME:    MOS:RCRD
*
*        PURPOSE:
*
*        A. FOR EACH TYPE X'43' TYPE RECORD PROCESSED, DETERMINE
*           IF IT IS A MOS CORRECTABLE MEMORY ERROR.
*
*        B. TO ISOLATE THE FAILING ADDRESS TO AN OFFENDING
*           MEMORY UNIT/BANK/SLOT/CHIP.
*
*        C. MAINTAIN A COUNT OF THE NUMBER OF SINGLE BIT
*           CORRECTABLE MOS MEMORY ERRORS PER MEMORY CHIP.
*
*        CALLING SEQUENCE: BAL,15    MOS:RCRD
*
MOS:RCRD EQU      %
         MTW,0    BUFFER+3          BIT0 OF MSW0 ---> CORRECTABLE ERROR
         BGEZ     *15               RETURN IF NOT MOS ERROR
         MTW,1    MOS:QTY           COUNT MOS CORRECTABLE ERRORS
         LCI      0
         STM,0    MOS:SAVE          SAVE REGISTER BLOCK
         LCI      3
         LM,8     BUFFER+3          LOAD MEMORY STATUS WORDS 0, 1, 2
         BAL,6    MOS:ISLT          ISOLATE TO UNIT/BANK/SLOT/CHIP
         CVA,6    CHIPCONV          CONVERT TO CHIP INDEX
         MTH,1    CHIPERRS,6        BUMP COUNT
         BNC      MOS:RET0          MAX IS X'FFFF'
         MTH,-1   CHIPERRS,6        KEEP AT X'FFFF'
MOS:RET0 LCI      0
         LM,0     MOS:SAVE          RESTORE REGISTER BLOCK
         B        *15               RETURN
*
*
CHIPCONV DATA     0,0,0,0,0,0,0,2560   BYTE 0 - UNIT #
         DATA     0,0,0,0,0,0,1280,640 BYTE 1 - BANK #
         DATA     0,0,0,0,0,320,160,80 BYTE 2 - SLOT #
         DATA     0,64,32,16,8,4,2,1   BYTE 3 - CHIP #
CHIPERRS RES,2    5120
MOS:QTY  DATA     0                 COUNT OF MOS ERRORS
MOS:SAVE RES      16
         PAGE
*F*      NAME:    MOS:ISLT
*F*
*F*      PURPOSE:
*F*               TO ISOLATE A SINGLE BIT ERROR TO THE
*F*                UNIT/BANK/SLOT/CHIP LEVEL.
*F*
*D*
*D*      NAME:    MOS:ISLT
*D*
*D*      REGISTERS:
*D*               ALL REGISTERS ARE VOLATILE
*D*
*D*      INPUT:
*D*               R6  = LINK RETURN ADDRESS
*D*               R8  = MEMORY STATUS WORD 0
*D*               R9  = MEMORY STATUS WORD 1
*D*               R10 = MEMORY STATUS WORD 2
*D*
*D*      OUTPUT:
*D*               R7  = BYTE 0 - UNIT NUMBER
*D*                          1 - BANK NUMBER
*D*                          2 - SLOT NUMBER
*D*                          3 - CHIP NUMBER
*D*
MOS:ISLT STW,6    SAVERTN
         LI,7     0                 CLEAR RESULTS REGISTER
*
*        DETERMINE UNIT NUMBER
*
         LB,12    9                 UNIT # BITS 4-7
         AND,12   M4                  OF MSW 1
         STB,12   7                 UNIT # --> BYTE 0
*
*        DETERMINE BANK NUMBER
*
         LI,6     2
         LB,12    10,6              BANK # BITS 20-23
         AND,12   M4                  OF MSW 2
         LI,13    3                 BANK D TO START WITH
         SCS,12   -1                MOVE BIT 31 TO BIT 0
         CI,12    0                 BIT 0 SET
         BLZ      %+3               B/ IF YES
         AI,13    -1                NEXT BANK DOWN
         BNEZ     %-4               CONTINUE IF NOT AT BANK A
         LI,6     1
         STB,13   7,6               BANK # --> BYTE 1
*
*        DETERMINE CHIP NUMBER
*
         LI,12    0
         LB,6     10                ERROR CORRECTION CODES
         SLS,6    -2                  BITS 0-5 OF MSW 2
         LB,13    BITCONV,6         RELATE ECC TO BITS IN CHIP
         DW,12    D20               20 BITS TO A BOARD
         AW,7     12                CHIP OFFSET --> BYTE  3
         SLS,13   2+8               REMAINDER IS PART OF SLOT #
         AW,7     13                PART OF SLOT # --> BYTE 2
         LW,13    10                QUADRANT BITS 18-19
         SLS,13   -12                 OF MSW 2
         AND,13   M2
         MI,13    20                20 CHIPS PER QUADRANT
         AW,7     13                CHIP # --> BYTE 3
*
*        DETERMINE SLOT NUMBER
*
         LW,12    10                GET BITS (16,17) OR (15,16) OR
         SLS,12   -15,6               (14,15) OF MSW 2
         LB,6     9                 BANK SIZE BITS 2-3
         SLS,6    -4                  OF MSW 1
         AND,6    M2
         AND,12   M1-1,6            (32K='01'B) (64K='11'B)
         SLS,12   8                 BIAS SLOT NUMBER
         AW,7     12                COMBINE WITH SLOT # --> BYTE 2
*
         B        *SAVERTN
*
M1       DATA     1
M2       DATA     3
M3       DATA     7
M4       DATA     X'F'
D20      DATA     20
BITCONV  DATA,1   39,38,37,99       PC6,PC5,PC4,***
         DATA,1   36,99,18,99       PC3,***,D18,***
         DATA,1   35,29,14,99       PC2,D29,D14,***
         DATA,1   07,99,22,99       D07,***,S22,***
         DATA,1   34,27,12,99       PC1,D27,D12,***
         DATA,1   05,99,20,99       D05,***,D20,***
         DATA,1   02,31,16,99       D02,D31,D16,***
         DATA,1   09,99,24,99       D09,***,D24,***
         DATA,1   33,26,11,99       PC0,D26,D11,***
         DATA,1   04,99,19,99       D04,***,D19,***
         DATA,1   01,30,15,99       D01,D30,D15,***
         DATA,1   08,99,23,99       D08,***,D23,***
         DATA,1   00,28,13,99       D00,D28,D13,***
         DATA,1   06,99,21,99       D06,***,D21,***
         DATA,1   03,32,17,99       D03,PAR,D17,***
         DATA,1   10,99,25,99       D10,***,D25,***
SAVERTN  RES      1
         PAGE
*
* NAME:         BIN:DEC
*
* INPUT:   4  = BA(FORMAT BUFFER)
*          5  = NUMBER OF DIGITS TO CONVERT
*          7  = LINK ADDRESS
*         9   = VALUE TO CONVERT
*
* OUTPUT:
*          4  = BA(POSITION AFTER LAST CONVERTED DIGIT)
*
* NOTE:
*        ALL REGISTERS PRESERVED EXCEPT 4  WHICH IS UPDATED.
*
         DEF      BIN:DEC
BIN:DEC  EQU      %                 BINARY TO DECIMAL (BCD)
         LCI      5                 SAVE 5-9
         STM,5    CONVSAVE            IN TCB TEMP STACK
BIN:XXX0 AW,4     5                 SET PONTER TO END
BIN:XXX1 LI,8     0                 CLEAR 8
         DW,8     L(10)
         AI,8     C'0'
         CI,8     C'9'
         BLE      BIN:XXX2
         AI,8     C'A'-C'0'-X'A'
BIN:XXX2 AI,4     -1
         STB,8    0,4               BUFFER THE CONVERTED DIGIT
         CI,9     0                 ZERO VALUE YET
         BEZ      CHKFIL            B/ IF READY FOR FILL
         BDR,5    BIN:XXX1          CONTINUE TRANSLATING
         CI,9     0                 ANY OVERFLOW
         BEZ      BIASRTN           B/ IF NONE
         LW,8     FILOVF            RETRIEVE OVERFLOW FILL CHARACTER
         BEZ      BIASRTN           B/ IF NOT IN OVERFLOW FILL MODE
         LW,5     CONVSAVE          RESTORE LENGTH
OVFFIL1  STB,8    0,4               FILL THE BUFFER
         AI,4     1                 UPDATE TO NEXT OUTPUT POSITION
         BDR,5    OVFFIL1           CONTINUE THE FILL
         B        PULLRTN           RESTORTE REGISTERS AND RETURN
CHKFIL   LW,8     FILCHR            RETRIEVE FILL CHARACTER
         B        CHKFIL2
CHKFIL1  AI,4     -1                UPDATE TO NEXT OUTPUT POSITION
         STB,8    0,4               PUT IN FILL CHARACTER
CHKFIL2  BDR,5    CHKFIL1           CONTINUE FILLING
BIASRTN  AW,4     CONVSAVE          BIAS OUTPUT POINTER TO END
PULLRTN  LCI      5                 RESTORE 5-9
         LM,5     CONVSAVE            FROM TCB TEMP STACK
         B        0,7               RETURN TO CALLER
*
*
CONVSAVE RES      5
FILCHR   DATA     C' '
FILOVF   DATA     C'*'              FILL OVERFLOW CHARACTER
*
*
         PAGE                                                           ELRT4168
M:ABORT  CAL1,9   3            ABORT WITH ERROR.                        ELRT4169
*                                                                       ELRT4170
EXIT:M   CAL1,9   1                                                     ELRT4171
*                                                                       ELRT4172
PAT      EQU      %                                                     ELRT4173
         DEF      PAT                                                   ELRT4174
         RES      40                                                    ELRT4175
*                                                                       ELRT4176
         END      START                                                 ELRT4177

