 TITLE 'CP-V/CP-R GRAPHICAL DISPLAY MODULE ELLA. 708006-A01   6.10.75'  ELS40001
         SYSTEM   SIG7FDP                                               ELS40002
*                                                                       ELS40003
*                                                                       ELS40004
*                                                                       ELS40005
         DEF      DISP:0                                                ELS40006
         REF      L:SPACE2,L:SPACE3                                     S4--0002
         REF      L:SPACE,L:PRINT,E:PRINT                               ELS40007
         REF      HEXEBC,HEXTWO,MS:HMSN,DSP:                            ELS40008
         REF      BUFFER,CF,CAB,COMBUFF                                 ELS40009
         REF      R:COM,DECHEX:,READ:ERF                                ELS40010
         REF      REW:FLAG,YR:R,JD:R                                    ELS40011
*                                                                       ELS40012
*                                                                       ELS40013
*                                                                       ELS40014
TEXTS    CNAME                                                          ELS40015
         PROC                       THIS PROCEEDURE                     ELS40016
         DISP     %                 SUPPRESSES TEXT                     ELS40017
         LIST     0                 PRITOUT.                            ELS40018
LF       TEXT     AF                                                    ELS40019
         LIST     1                                                     ELS40020
         PEND                                                           ELS40021
         PAGE                                                           ELS40022
*                                                                       ELS40023
*                                                                       ELS40024
         CSECT                                                          ELS40025
TITL1    TEXTS    'G R A P H I C  D I S P L A Y            '            ELS40026
TITL2    TEXTS    '- - - - - - -  - - - - - - -'                        ELS40027
TITL4    TEXTS    'TIME ERRORS'                                         ELS40028
TITL5    TEXTS    '-----0------------------10------------------20',;    ELS40029
                  '------------------30----'                            ELS40030
TITL6    TEXTS    'END OF FILE'                                         ELS40031
OUTBUF   TEXTS    '                                              ',;    ELS40032
                  '                                              '      ELS40033
INPUE    TEXTS    'INVALID REQUEST'                                     ELS40034
INPU2    TEXTS    'INVALID REQUEST. (QUAL .GT. 60 MIN)'                 ELS40035
ERRX     TEXTS    'NON-DECIMAL VALUE IN R14, DECHEX: ROUTINE'           ELS40036
*                                                                       ELS40037
         BOUND    8                                                     ELS40038
SOUTPUT  RES      3                                                     ELS40039
SINPUT   RES      3                                                     ELS40040
ODATE    PZE                                                            ELS40041
OYEAR    PZE                                                            ELS40042
FTFLG    PZE                                                            ELS40043
TSCALE   PZE                                                            ELS40044
WORDCNT  PZE                                                            ELS40045
PASSFLG  PZE                                                            ELS40046
QUALTEMP PZE                                                            ELS40047
TMXFLG   PZE                                                            ELS40048
ZEROFLG  PZE                                                            ELS40049
COUNT    PZE                                                            ELS40050
OVERFLOW PZE                                                            ELS40051
         PAGE                                                           ELS40052
         BOUND    8                                                     ELS40053
HOURS    PZE                                                            ELS40054
MINUTES  PZE                                                            ELS40055
*                                                                       ELS40056
ADDR     PZE                                                            ELS40057
SCALE    PZE                                                            ELS40058
NEXTIME  PZE                                                            ELS40059
TWORK    PZE                                                            ELS40060
MAXTIME1 PZE                                                            ELS40061
RELTIME3 PZE                                                            ELS40062
NTIME    PZE                                                            ELS40063
NYEAR    PZE                                                            ELS40064
NDATE    PZE                                                            ELS40065
*                                                                       ELS40066
MAXTIME  DATA     X'05265BFF'                                           ELS40067
TDEFAULT DATA     X'0000EA60'                                           ELS40068
X40X     DATA     X'40404040'                                           ELS40069
:KX0000F DATA     X'0000000F'                                           ELS40070
PATCH    RES      100                                                   ELS40071
         PAGE                                                           ELS40072
DISP:0   LI,7     -8                                                    ELS40073
         STW,0    ODATE+8,7                                             ELS40074
         BIR,7    %-1                                                   ELS40075
         STW,1    REW:FLAG                                              ELS40076
         LW,13    CF                                                    ELS40077
         BEZ      QUAL07                                                ELS40078
*                                                                       ELS40079
QUAL05   MTW,1    CAB                                                   ELS40080
         LW,13    CAB                                                   ELS40081
         CI,13    79                                                    ELS40082
         BG       QUAL06                                                ELS40083
         LW,4     13                                                    ELS40084
         LB,12    COMBUFF,4                                             ELS40085
         CI,12    X'40'                                                 ELS40086
         BE       QUAL05                                                ELS40087
         CI,12    X'0D'                                                 ELS40088
         BE       QUAL06                                                ELS40089
         MTW,1    PASSFLG                                               ELS40090
         CI,12    X'F0'                                                 ELS40091
         BL       QUALERR                                               ELS40092
         CI,12    X'F9'                                                 ELS40093
         BCS,2    QUALERR                                               ELS40094
         LW,15    WORDCNT                                               ELS40095
         CI,15    3                                                     ELS40096
         BGE      QUALERR                                               ELS40097
         MTW,1    WORDCNT                                               ELS40098
         AND,12   :KX0000F          FROM END OF QUAL05                  ELS40099
         SLS,12   28                                                    ELS40100
         LW,13    QUALTEMP                                              ELS40101
         STH,13   12,1                                                  ELS40102
         SCS,12   4                                                     ELS40103
         STW,12   QUALTEMP                                              ELS40104
         B        QUAL05                                                ELS40105
         PAGE                                                           ELS40106
*                                                                       ELS40107
QUAL06   LW,12    PASSFLG                                               ELS40108
         BEZ      QUALERR                                               ELS40109
         LW,14    QUALTEMP                                              ELS40110
         BAL,15   DECHEX:                                               ELS40111
         B        QERR                                                  ELS40112
         STW,15   TSCALE                                                ELS40113
         CI,15    60                                                    ELS40114
         BG       QUALERR2                                              ELS40115
*                                                                       ELS40116
QUAL07   LI,14    28                                                    ELS40117
         BAL,15   L:PRINT           TITLE, GRAPHIC DISPLAY              ELS40118
         DATA     TITL1                                                 ELS40119
         BAL,15   L:PRINT                                               ELS40120
         DATA     TITL2                                                 ELS40121
         BAL,15   L:SPACE3                                              S4--0004
         BAL,15   DSP:                                                  S4--0005
         BAL,15   L:SPACE3                                              S4--0006
         LI,14    10                                                    ELS40129
         BAL,15   L:PRINT                                               ELS40130
         DATA     TITL4                                                 ELS40131
         LI,14    68                                                    ELS40132
         BAL,15   L:PRINT                                               ELS40133
         DATA     TITL5             PRINT, -----0......                 ELS40134
         BAL,15   INPUT                                                 ELS40135
         B        END                                                   ELS40136
         PAGE                                                           ELS40137
*                                                                       ELS40138
         STW,0    TMXFLG                                                ELS40139
         STW,0    ZEROFLG           CLEAR FLGS                          ELS40140
         STW,0    COUNT                                                 ELS40141
         STW,0    OVERFLOW                                              ELS40142
         LI,13    HA(OUTBUF)+3                                          ELS40143
         STW,13   ADDR                                                  ELS40144
         LW,14    MAXTIME                                               ELS40145
         STW,14   MAXTIME1                                              ELS40146
         MTW,1    MAXTIME1                                              ELS40147
         LW,14    JD:R,1                                                ELS40148
         STW,14   RELTIME3                                              ELS40149
         STW,14   NTIME                                                 ELS40150
         BAL,15   MS:HMSN           CONVERT TO HH:MM:SS:NNN             ELS40151
         STD,12   HOURS                                                 ELS40152
*                                                                       ELS40153
NEW05    LI,13    0                                                     ELS40154
         LW,14    HOURS                                                 ELS40155
         BAL,15   HEXTWO                                                ELS40156
         DATA     OUTBUF                                                ELS40157
         LI,13    3                                                     ELS40158
         LW,14    MINUTES                                               ELS40159
         BAL,15   HEXTWO                                                ELS40160
         DATA     OUTBUF                                                ELS40161
         LI,13    X'7A'                                                 ELS40162
         STB,13   OUTBUF,2                                              ELS40163
         CW,1     TMXFLG                                                ELS40164
         BE       RTMX                                                  ELS40165
         LW,14    TSCALE                                                ELS40166
         BEZ      INIT05                                                ELS40167
         LW,13    TDEFAULT                                              ELS40168
         MW,13    TSCALE                                                ELS40169
         STW,13   SCALE                                                 ELS40170
         B        INIT10                                                ELS40171
         PAGE                                                           ELS40172
*                                                                       ELS40173
INIT05   LI,13    10                                                    ELS40174
         STW,13   TSCALE                                                ELS40175
         LW,13    TDEFAULT                                              ELS40176
         MW,13    TSCALE                                                ELS40177
         STW,13   SCALE                                                 ELS40178
INIT10   LW,14    SCALE                                                 ELS40179
         AW,14    NTIME                                                 ELS40180
         STW,14   NEXTIME                                               ELS40181
         B        LOOP01                                                ELS40182
*                                                                       ELS40183
RTMX     STW,0    TMXFLG                                                ELS40184
         B        LOOP01                                                ELS40185
*                                                                       ELS40186
LOOP     BAL,15   INPUT                                                 ELS40187
         B        END                                                   ELS40188
*                                                                       ELS40189
LOOP01   LW,13    NYEAR                                                 ELS40190
         CW,13    OYEAR             HAS YEAR CHANGED                    ELS40191
         BG       LOOP02            IF SO, BRANCH                       ELS40192
         LW,13    NDATE                                                 ELS40193
         CW,13    ODATE             HAS DATE CHANGED                    ELS40194
         BG       LOOP02            IF SO, BRANCH                       ELS40195
         LW,13    JD:R,1            FETCH REL. TIME                     ELS40196
         CW,13    RELTIME3          IS CURRENT > OR = PREVIOUS TIME     ELS40197
         BGE      %+2               IF SO, BRANCH                       ELS40198
         B        LOOP05                                                ELS40199
         LW,14    ZEROFLG                                               ELS40200
         BNEZ     LOOP02B                                               ELS40201
         STW,13   RELTIME3          IS CURNTIME = OR > NEXTIME ON SCALE ELS40202
         CW,13    NEXTIME           IF SO, BRANCH                       ELS40203
         BL       LOOP05                                                ELS40204
*                                                                       ELS40205
LOOP02   LW,14    ZEROFLG                                               ELS40206
         BEZ      LOOP02A                                               ELS40207
         LW,13    JD:R,1                                                ELS40208
         STW,13   RELTIME3                                              ELS40209
         CW,13    NEXTIME                                               ELS40210
         BL       LOOP05                                                ELS40211
         B        LOOP02C                                               ELS40212
LOOP02A  LW,13    OVERFLOW                                              ELS40213
         BNEZ     %+2                                                   ELS40214
         BAL,15   OUTPUT                                                ELS40215
         STW,0    ZEROFLG                                               ELS40216
         STW,0    OVERFLOW                                              ELS40217
         STW,0    COUNT                                                 ELS40218
         LW,13    NEXTIME                                               ELS40219
         STW,13   NTIME                                                 ELS40220
         LW,13    SCALE                                                 ELS40221
         AW,13    NTIME                                                 ELS40222
         CW,13    MAXTIME1                                              ELS40223
         BL       LOOP03                                                ELS40224
         LW,14    MAXTIME                                               ELS40225
         STW,14   NTIME                                                 ELS40226
         SW,13    MAXTIME1                                              ELS40227
         STW,13   NEXTIME                                               ELS40228
         MTW,1    ZEROFLG                                               ELS40229
         B        LOOP04                                                ELS40230
LOOP02B  EQU      %                                                     ELS40231
         STW,13   RELTIME3                                              ELS40232
         CW,13    MAXTIME                                               ELS40233
         BL       LOOP05                                                ELS40234
LOOP02C  STW,0    ZEROFLG                                               ELS40235
         MTW,1    ODATE                                                 ELS40236
         LW,14    ODATE                                                 ELS40237
         CI,14    365                                                   ELS40238
         BLE      LOOP02A                                               ELS40239
         STW,1    ODATE                                                 ELS40240
         MTW,1    OYEAR                                                 ELS40241
         MTW,1    ODATE                                                 ELS40242
         LW,14    ODATE                                                 ELS40243
         CI,14    365                                                   ELS40244
         BLE      LOOP04                                                ELS40245
         STW,1    ODATE                                                 ELS40246
         MTW,1    OYEAR                                                 ELS40247
         B        LOOP04                                                ELS40248
*                                                                       ELS40249
LOOP03   STW,13   NEXTIME                                               ELS40250
LOOP04   LW,12    MINUTES                                               ELS40251
         AW,12    TSCALE                                                ELS40252
         STW,12   TWORK                                                 ELS40253
         STW,12   MINUTES                                               ELS40254
         STW,1    TMXFLG                                                ELS40255
         CI,12    60                                                    ELS40256
         BL       NEW05                                                 ELS40257
         LW,13    TWORK                                                 ELS40258
         AI,13    -60                                                   ELS40259
         STW,13   MINUTES                                               ELS40260
         MTW,1    HOURS                                                 ELS40261
         LW,13    HOURS                                                 ELS40262
         CI,13    24                                                    ELS40263
         BL       NEW05                                                 ELS40264
         LI,13    -24                                                   ELS40265
         AWM,13   HOURS                                                 ELS40266
         B        NEW05                                                 ELS40267
*                                                                       ELS40268
LOOP05   LW,14    OVERFLOW                                              ELS40269
         BNEZ     LOOP                                                  ELS40270
         LH,14    BUFFER                                                ELS40271
         BAL,15   HEXEBC                                                ELS40272
         LW,4     ADDR                                                  ELS40273
         LH,15    15                                                    ELS40274
         STH,15   0,4               PUT ERR CODE IN OUTBUF              ELS40275
         MTW,1    ADDR                                                  ELS40276
         MTW,1    COUNT                                                 ELS40277
         LW,14    COUNT                                                 ELS40278
         CI,14    30                                                    ELS40279
         BL       LOOP                                                  ELS40280
         LI,15    X'C6C6'                                               ELS40281
         LW,4     ADDR                                                  ELS40282
         STH,15   0,4                                                   ELS40283
         BAL,15   OUTPUT                                                ELS40284
         STW,1    OVERFLOW                                              ELS40285
         B        LOOP                                                  ELS40286
         PAGE                                                           ELS40287
*                                                                       ELS40288
*        ROUTINE SECTION                                                ELS40289
*                                                                       ELS40290
END      EQU      %                                                     ELS40291
         BAL,15   OUTPUT                                                ELS40292
         BAL,15   L:SPACE                                               ELS40293
         LI,14    11                                                    ELS40294
         BAL,15   L:PRINT                                               ELS40295
         DATA     TITL6                                                 ELS40296
         BAL,15   L:SPACE3                                              S4--0008
         B        R:COM                                                 ELS40300
*                                                                       ELS40301
QUALERR  EQU      %                                                     ELS40302
         LI,14    15                                                    ELS40303
         BAL,15   E:PRINT                                               ELS40304
         DATA     INPUE                                                 ELS40305
         B        R:COM                                                 ELS40306
*                                                                       ELS40307
QUALERR2 EQU      %                                                     ELS40308
         LI,14    35                                                    ELS40309
         BAL,15   E:PRINT                                               ELS40310
         DATA     INPU2                                                 ELS40311
         B        R:COM                                                 ELS40312
*                                                                       ELS40313
QERR     LI,14    41                                                    ELS40314
         BAL,15   E:PRINT                                               ELS40315
         DATA     ERRX                                                  ELS40316
         B        R:COM                                                 ELS40317
         PAGE                                                           ELS40318
*                                                                       ELS40319
INPUT    EQU      %                                                     ELS40320
         LCI      3                                                     ELS40321
         STM,13   SINPUT                                                ELS40322
INPUT01  EQU      %                                                     ELS40323
         BAL,15   READ:ERF          READ AN ERROR RECORD                ELS40324
         STW,0    REW:FLAG                                              ELS40325
         CI,15    1                                                     ELS40326
         BNE      *SINPUT+2         EOF/EOD                             ELS40327
         LW,13    YR:R                                                  ELS40328
         STW,13   NYEAR                                                 ELS40329
         LW,13    JD:R                                                  ELS40330
         STW,13   NDATE                                                 ELS40331
         LW,13    FTFLG                                                 ELS40332
         BNEZ     INPUT15                                               ELS40333
         MTW,1    FTFLG                                                 ELS40334
         LW,13    NYEAR                                                 ELS40335
         STW,13   OYEAR                                                 ELS40336
         LW,13    NDATE                                                 ELS40337
         STW,13   ODATE                                                 ELS40338
INPUT15  LB,14    BUFFER                                                ELS40339
         BEZ      INPUT01                                               ELS40340
         CI,14    X'21'                                                 ELS40341
         BE       INPUT01                                               ELS40342
         CI,14    X'22'                                                 ELS40343
         BE       INPUT01                                               ELS40344
         CI,14    X'23'                                                 ELS40345
         BE       INPUT01                                               ELS40346
         MTW,1    SINPUT+2                                              ELS40347
         LCI      2                                                     ELS40348
         LM,13    SINPUT                                                ELS40349
         B        *SINPUT+2    RETURN BACK......                        ELS40350
         PAGE                                                           ELS40351
*                                                                       ELS40352
*                                                                       ELS40353
* ROUTINE PRINTS ONE LINE OF INFORMATION                                ELS40354
*                                                                       ELS40355
OUTPUT   EQU      %                                                     ELS40356
         STW,4    SOUTPUT+2                                             ELS40357
         STD,14   SOUTPUT                                               ELS40358
         LI,14    68                                                    ELS40359
         BAL,15   L:PRINT                                               ELS40360
         DATA     OUTBUF                                                ELS40361
         LI,4     -20                                                   ELS40362
         LW,14    X40X                                                  ELS40363
         STW,14   OUTBUF+20,4                                           ELS40364
         BIR,4    %-1                                                   ELS40365
         LI,14    HA(OUTBUF)+3                                          ELS40366
         STW,14   ADDR                                                  ELS40367
         LW,4     SOUTPUT+2                                             ELS40368
         LW,14    SOUTPUT                                               ELS40369
         B        *SOUTPUT+1                                            ELS40370
         END      DISP:0                                                ELS40371

