         OPEN     FPTA,FPTR,FPTL,OPT                                    00000000
         OPEN     FPT:SECT,SAVE$                                        00000001
         OPEN     BUILDCAL,BUILDFPT                                     00000002
         OPEN     GET,GETABS,GETFLAG,GETADDR,GETDADDR                   00000003
         OPEN     SETUP,SWITCH,DWTEXT                                   00000004
FPT:SECT SET      -1                SECT NOT DECLARED YET               00000005
         OPEN     :REW                                                  00000006
         OPEN     :WEOF                                                 00000007
         OPEN     :UNLD                                                 00000008
         OPEN     :PFIL                                                 00000009
         OPEN     :PREC                                                 00000010
         OPEN     :STDLB                                                00000011
         OPEN     :MEDIA                                                00000012
         OPEN     :ERSEND                                               00000013
         OPEN     :SETNAME                                              00000014
         OPEN     :RUN                                                  00000015
         OPEN     :RLS                                                  00000016
SWITCH   CNAME                                                          00000017
         PROC                                                           00000018
LF       SET      $                                                     00000019
         DO       AF=-1                                                 00000020
         CSECT    0                                                     00000021
AF       SET      $                                                     00000022
         ELSE                 AF=-1                                     00000023
         ORG      AF                                                    00000024
         FIN                 AF=-1                                      00000025
         PEND                                                           00000026
*                                                                       00000027
*                                                                       00000028
GETDADDR CNAME    4                                                     00000029
GETADDR  CNAME    3                                                     00000030
GETFLAG  CNAME    2                                                     00000031
GETABS   CNAME    1                                                     00000032
GET      CNAME    1                                                     00000033
         PROC                                                           00000034
         LOCAL    I,J,T2,T3                                             00000035
         ERROR,3,AFA(1,2)&(NAME~=3)  'ILLEGAL * IGNORED'                00000036
         DO       NAME=2                                                00000037
         ERROR,3,NUM(AF(1))>2  'VALUE AFTER FLAG KEY IGNORED'           00000038
         ELSE                 NAME=2                                    00000039
         ERROR,3,NUM(AF(1))>3  'EXTRA VALUES IN GROUP IGNORED'          00000040
         FIN                 NAME=2                                     00000041
I        DO       NUM(AF)-1                                             00000042
J        SET      I+1                                                   00000043
         GOTO,SCOR(AF(J,1),SET,RESET,VALUE,DATA,LABEL) ;                00000044
                  A1,A2,A3,A4,A5                                        00000045
A1       BOUND    1                                                     00000046
T2       SET      1**(31-AF(J,3))                                       00000047
T3       SET      T2                                                    00000048
         GOTO     INSERT                                                00000049
A2       BOUND    1                                                     00000050
T2       SET      0                                                     00000051
T3       SET      1**(31-AF(J,3))                                       00000052
         GOTO     INSERT                                                00000053
A3       GOTO,NAME>2  A6                                                00000054
T2       SET      AF(1,2)**(32-AF(J,3)-AF(J,4))                         00000055
T3       SET      (1**AF(J,4)-1)**(32-AF(J,3)-AF(J,4))                  00000056
         GOTO     INSERT                                                00000057
A4       BOUND    1                                                     00000058
T2       SET      AF(J,5)**(32-AF(J,3)-AF(J,4))                         00000059
T3       SET      (1**AF(J,4)-1)**(32-AF(J,3)-AF(J,4))                  00000060
INSERT   BOUND    1                                                     00000061
FPTA(AF(J,2)+1) SET (FPTA(AF(J,2)+1)&~T3)|(T2&T3)                       00000062
OPT      SET      OPT|1**(31-AF(J,2))                                   00000063
         GOTO     FIN                                                   00000064
A5       BOUND    1                                                     00000065
FPTL(AF(J,2)+1)  SET  AF(J,3),AF(J,4)                                   00000066
         GOTO     FIN                                                   00000067
A6       BOUND    1                                                     00000068
FPTR(AF(J,2)+1) SET S:UFV(AF(1,2))                                      00000069
         DO       (AFA(1,2)~=0)&(NAME=3)                                00000070
FPTA(AF(J,2)+1) SET FPTA(AF(J,2)+1)|1**31                               00000071
         FIN                 (AFA(1,2)~=0)&(NAME=3)                     00000072
OPT      SET      OPT|(1**(31-AF(J,2)))                                 00000073
FIN      FIN                 NUM(AF)-1                                  00000074
         PEND                                                           00000075
*                                                                       00000076
*                                                                       00000077
BUILDCAL CNAME                                                          00000078
         PROC                                                           00000079
         LOCAL    T1,T2                                                 00000080
T1       SET      CF(3)                                                 00000081
         GOTO,NUM(CF(2))=0 BOTH                                         00000082
         GOTO,SCOR(CF(2),CAL,FPT,INLN)  CALONLY,PEND,BOTH               00000083
         ERROR,3  'ILLEGAL CF(2) IGNORED'                               00000084
BOTH     BOUND    1                                                     00000085
         DO       SCOR(CF(2),INLN)                                      00000086
T2       SET      $+2                                                   00000087
         ELSE                 SCOR(CF(2),INLN)                          00000088
         DO       FPT:SECT=-1                                           00000089
SAVE$    SWITCH   FPT:SECT                                              00000090
FPT:SECT SWITCH   SAVE$                                                 00000091
         FIN                 FPT:SECT=-1                                00000092
T2       SET      FPT:SECT                                              00000093
         FIN                 SCOR(CF(2),INLN)                           00000094
LF(1)    GEN,1,7,4,3,17  0,X'04',T1,0,T2                                00000095
         GOTO     PEND                                                  00000096
CALONLY  BOUND    1                                                     00000097
         GOTO,(NUM(AF)>2)|(NUM(AF(1))>1)|(NUM(AF(2))>1)  AFERR          00000098
LF       GEN,1,7,4,3,17  AFA(1),X'04',T1,AF(2),S:UFV(AF(1))             00000099
         GOTO     PEND                                                  00000100
AFERR    ERROR,4  'ILLEGAL AF FOR CAL OPTION'                           00000101
LF(1)    GEN,1,7,4,3,17  0,X'04',T1,0,0                                 00000102
PEND     PEND                                                           00000103
*                                                                       00000104
*                                                                       00000105
BUILDFPT CNAME                                                          00000106
         PROC                                                           00000107
         LOCAL    ENDFPT,I,T1,T2                                        00000108
         GOTO,SCOR(CF(2),CAL)    PEND                                   00000109
         DO       SCOR(CF(2),INLN)                                      00000110
         GEN,1,11,3,17  0,X'680',0,ENDFPT                               00000111
         ELSE                 SCOR(CF(2),INLN)                          00000112
         DO       NUM(CF(2))=0                                          00000113
SAVE$    SWITCH   FPT:SECT                                              00000114
         FIN                 NUM(CF(2))=0                               00000115
         FIN                 SCOR(CF(2),INLN)                           00000116
         DO       SCOR(CF(2),FPT)                                       00000117
LF       EQU      $                                                     00000118
         ELSE                 SCOR(CF(2),FPT)                           00000119
LF(2)    EQU      $                                                     00000120
         FIN                 SCOR(CF(2),FPT)                            00000121
I        DO       32                                                    00000122
         GOTO,((1**(32-I))&OPT)~=0  A1                                  00000123
         ELSE                 18                                        00000124
A1       BOUND    1                                                     00000125
         DO       FPTL(I,1)=0                                           00000126
          DATA     FPTA(I)+FPTR(I)                                      00000127
         ELSE                       FPTL(I,1)=0                         00000128
AF(FPTL(I,1),FPTL(I,2)) DATA FPTA(I)+FPTR(I)                            00000129
         FIN                        FPTL(I,1)=0                         00000130
FIN      FIN                 23                                         00000131
         DO       NUM(CF(2))=0                                          00000132
FPT:SECT SWITCH   SAVE$                                                 00000133
         FIN                 NUM(CF(2))=0                               00000134
ENDFPT   RES      0                                                     00000135
PEND     PEND                                                           00000136
*                                                                       00000137
*                                                                       00000138
SETUP    CNAME                                                          00000139
         PROC                                                           00000140
FPTA     SET      0                                                     00000141
FPTR     SET      0                                                     00000142
FPTL     SET      0                                                     00000143
OPT      SET      0                                                     00000144
         PEND                                                           00000145
*                                                                       00000146
*                                                                       00000147
DWTEXT   CNAME                                                          00000148
         PROC                                                           00000149
         LOCAL    I                                                     00000150
         DO       S:NUMC(AF)=0                                          00000151
LF       SET      AF                                                    00000152
         ELSE                 S:NUMC(AF)=0                              00000153
I        SET      8*S:NUMC(AF)                                          00000154
         ERROR,4,I>64  'TEXT > 8 BYTES'                                 00000155
LF       SET      AF|0                                                  00000156
         DO1      I<64                                                  00000157
LF       SET      AF**(64-I)|((1**(64-I)-1)&'        ')                 00000158
         FIN                 S:NUMC(AF)=0                               00000159
         PEND                                                           00000160
*                                                                       00000161
*                                                                       00000162
M:REW    CNAME    1,X'01'                                               00000163
:REW     SET      1,X'01'                                               00000164
M:WEOF   CNAME    1,X'02'                                               00000165
:WEOF    SET      1,X'02'                                               00000166
M:UNLD   CNAME    1,X'03'                                               00000167
:UNLD    SET      1,X'03'                                               00000168
M:READ   CNAME    1,X'10'                                               00000169
M:WRITE  CNAME    1,X'11'                                               00000170
M:OPEN   CNAME    1,X'14'                                               00000171
M:CLOSE  CNAME    1,X'15'                                               00000172
M:PFIL   CNAME    1,X'1C'                                               00000173
:PFIL    SET      1,X'1C'                                               00000174
M:PREC   CNAME    1,X'1D'                                               00000175
:PREC    SET      1,X'1D'                                               00000176
M:PRECORD CNAME   1,X'1D'                                               00000177
M:CHECK  CNAME    1,X'29'                                               00000178
M:DELFPT CNAME    7,X'47'                                               00000179
M:ERSEND CNAME    7,X'66'                                               00000180
:ERSEND  EQU      7,X'66'                                               00000181
         PROC                                                           00000182
         LOCAL    I,J,T1,T2                                             00000183
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000184
         SETUP                                                          00000185
FPTA(1)  SET      NAME(2)**24                                           00000186
         DO       (NAME(1)=:ERSEND(1))&(NAME(2)=:ERSEND(2))             00000187
T2       SET      0                                                     00000188
         ELSE                       NAME=:ERSEND                        00000189
T2       SET      1                                                     00000190
         DO       NUM(AF(1))=1                                          00000191
FPTR(1)  SET      S:UFV(AF(1))                                          00000192
FPTA(1)  SET      FPTA(1)|AFA(1)**31                                    00000193
         ELSE                 NUM(AF(1))=1                              00000194
         ERROR,4  'ILLEGAL DCB ADDRESS'                                 00000195
         FIN                 NUM(AF(1))=1                               00000196
         FIN                        NAME=:ERSEND                        00000197
OPT      SET      1**(31-0)+1**(31-1)                                   00000198
T1       SET      ((NAME(2)=:PREC(2))|(NAME(2)=:PFIL(2)))&;             00000199
                  (NAME(1)=1)                                           00000200
I        DO       NUM(AF)-T2                                            00000201
J        SET      I+T2                                                  00000202
         GOTO,SCOR(AF(J,1),ERR,ERROR,ABN,BUSY,BUF,BUFFER,;              00000203
         SIZE,RECL,BTD,BLOCK,EAADDR,EAINTNR,EAINTLB,EACSA,;             00000204
         TYPE1,WFPT,TYPE2,BBA,N,PROMPT,TIME,IOQ12,FUNC) ;               00000205
         A1,A1,A2,A3,A4,A4,;                                            00000206
         A5,A5,A6,A7,A8,A9,A9,A8,;                                      00000207
         A10,A11,A11,A12,A24,A27,A28,A29,A30                            00000208
         GOTO,SCOR(AF(J,1),DCB,FPT,FWD,REV,BACK,WAIT,CKWRT,;            00000209
         PTRD,PTRI,LWAIT,IGNERR,SKIP,NOCK,DIAG,OUT,IN,SAVE) ;           00000210
         A13,A14,A15,A16,A16,A17,A18,;                                  00000211
         A19,A20,A21,A22,A23,A25,A26,FIN,FIN,FIN                        00000212
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000213
         ELSE                 NUM(AF)-1                                 00000214
         GOTO     FIN                                                   00000215
A1       GETADDR   (AF(J)),(VALUE,2+T1),(SET,1,0+T1),(LABEL,2+T1,J,3)   00000216
         ELSE                 NUM(AF)-1                                 00000217
A2       GETADDR   (AF(J)),(VALUE,3),(SET,1,1),(LABEL,3,J,3)            00000218
         ELSE                 NUM(AF)-1                                 00000219
A3       GETADDR   (AF(J)),(VALUE,4),(SET,1,2),(LABEL,4,J,3)            00000220
         ELSE                 NUM(AF)-1                                 00000221
A4       GETADDR  (AF(J)),(VALUE,4),(SET,1,2),(LABEL,4,J,3)             00000222
         ELSE                 NUM(AF)-1                                 00000223
A5       GETADDR  (AF(J)),(VALUE,5),(SET,1,3),(LABEL,5,J,3)             00000224
         ELSE                 NUM(AF)-1                                 00000225
A6       GETADDR  (AF(J)),(VALUE,7),(SET,1,5),(LABEL,7,J,3)             00000226
         ELSE                 NUM(AF)-1                                 00000227
A7       GETADDR  (AF(J)),(VALUE,9),(SET,1,7),(LABEL,9,J,3)             00000228
         ELSE                 NUM(AF)-1                                 00000229
A8       GETDADDR  (AF(J)),(VALUE,10),(SET,1,8),;                       00000230
         (DATA,10,0,2,SCOR(AF(J,1),EACSA)*3),(LABEL,10,J,3)             00000231
         ELSE                 NUM(AF)-1                                 00000232
A9       GET      (AF(J)),(VALUE,10,15,17),(SET,1,8),;                  00000233
         (DATA,10,0,2,SCOR(AF(J,1),EAINTNR,EAINTLB)),;                  00000234
         (LABEL,10,J,3)                                                 00000235
         ELSE                 NUM(AF)-1                                 00000236
A10      GETFLAG  (AF(J)),(RESET,1,9)                                   00000237
OPT      SET      OPT&(~(1**(31-11)))                                   00000238
         ELSE                 NUM(AF)-1                                 00000239
A11      GETFLAG  (AF(J)),(SET,1,9),(DATA,11,0,32,0),(LABEL,11,J,2)     00000240
         ELSE                 NUM(AF)-1                                 00000241
A12      GETADDR   (AF(J)),(VALUE,12),(SET,1,10),(LABEL,12,J,3)         00000242
         ELSE                 NUM(AF)-1                                 00000243
A13      GETFLAG  (AF(J)),(RESET,1,9)                                   00000244
         ELSE                 NUM(AF)-1                                 00000245
A14      GETFLAG  (AF(J)),(SET,1,9)                                     00000246
         ELSE                 NUM(AF)-1                                 00000247
A15      GETFLAG  (AF(J)),(RESET,1,26+T1)                               00000248
         ELSE                 NUM(AF)-1                                 00000249
A16      GETFLAG  (AF(J)),(SET,1,26+T1)                                 00000250
         ELSE                 NUM(AF)-1                                 00000251
A17      GETFLAG  (AF(J)),(SET,1,27+T1)                                 00000252
         ELSE                 NUM(AF)-1                                 00000253
A18      GETFLAG  (AF(J)),(SET,1,28)                                    00000254
         ELSE                 NUM(AF)-1                                 00000255
A19      GETFLAG  (AF(J)),(SET,1,29)                                    00000256
         ELSE                 NUM(AF)-1                                 00000257
A20      GETFLAG  (AF(J)),(SET,1,30)                                    00000258
         ELSE                 NUM(AF)-1                                 00000259
A21      GETFLAG  (AF(J)),(SET,1,24)                                    00000260
         ELSE                 NUM(AF)-1                                 00000261
A22      GETFLAG  (AF(J)),(SET,1,31)                                    00000262
         ELSE                 NUM(AF)-1                                 00000263
A23      GETFLAG  (AF(J)),(SET,1,26)                                    00000264
         ELSE                 NUM(AF)-1                                 00000265
A24      GETADDR  (AF(J)),(VALUE,2),(SET,1,0),(LABEL,2,J,3)             00000266
         ELSE                 NUM(AF)-1                                 00000267
A25      GETFLAG  (AF(J)),(SET,1,23)                                    00000268
         ELSE                       NUM(AF)-1                           00000269
A26      GETFLAG  (AF(J)),(SET,1,25)                                    00000270
         ELSE                       NUM(AF)-T2                          00000271
A27      GETADDR  (AF(J)),(SET,1,6),(VALUE,8),(LABEL,8,J,3)             00000272
         ELSE                       NUM(AF)-T2                          00000273
A28      GETADDR  (AF(J)),(VALUE,14),(SET,1,12),(LABEL,14,J,3)          00000274
         ELSE                       NUM(AF)-T2                          00000275
A29      GETADDR  (AF(J)),(VALUE,17),(SET,1,15),(LABEL,17,J,3)          00000276
         ELSE                       NUM(AF)-T2                          00000277
A30      GETADDR  (AF(J)),(VALUE,18),(SET,1,16),(LABEL,18,J,3)          00000278
FIN      FIN                 NUM(AF)-1                                  00000279
         DO1      (OPT&X'7FFFFFFF')~=0                                  00000280
FPTA(1)  SET      FPTA(1)|(1**(31-8))                                   00000281
BUILD    BOUND    1                                                     00000282
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000283
LF       BUILDFPT,CF(2)     AF                                          00000284
PEND     PEND                                                           00000285
*                                                                       00000286
*                                                                       00000287
M:WAIT   CNAME    9,9                                                   00000288
M:EXIT   CNAME    9,1                                                   00000289
M:EXDA   CNAME    9,X'A'                                                00000290
M:TERM   CNAME    9,8                                                   00000291
M:ABORT  CNAME    9,3                                                   00000292
M:ERR    CNAME    9,3                                                           
M:XXX    CNAME    9,3                                                   00000293
M:TRTN   CNAME    9,5                                                   00000294
         PROC                                                           00000295
LF       GEN,8,4,20  X'04',NAME                                         00000296
         PEND                                                           00000297
*                                                                       00000298
*                                                                       00000299
M:SIO    CNAME    5,X'12'                                               00000300
M:TIO    CNAME    5,X'13'                                               00000301
M:TDV    CNAME    5,X'14'                                               00000302
M:HIO    CNAME    5,X'15'                                               00000303
         PROC                                                           00000304
         LOCAL    I,T1                                                  00000305
         SETUP                                                          00000306
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000307
FPTA(1)  SET      NAME(2)**24                                           00000308
OPT      SET      1**(31-0)                                             00000309
I        DO       NUM(AF)                                               00000310
         GOTO,SCOR(AF(I,1),DCB,OPLBX,DEVX,SIO,;                         00000311
                  EAADDR,EAINTNR,EAINTLB,EACSA,TIME,DIAG) ;             00000312
                  A2,A2,A2,A4,A5,A6,A6,A5,A7,A8                         00000313
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000314
         ELSE                 NUM(AF)                                   00000315
         GOTO     FIN                                                   00000316
A2       GETADDR  (AF(I)),(VALUE,0,15,17),(LABEL,0,I,3),;               00000317
                  (DATA,0,13,2,SCOR(AF(I,1),OPLBX,DEVX))                00000318
         ELSE                 NUM(AF)                                   00000319
A4       GETDADDR (AF(I)),(VALUE,2),(SET,1,0),(LABEL,2,I,3)             00000320
         ELSE                 NUM(AF)                                   00000321
A5       GETDADDR  (AF(I)),(VALUE,3),(SET,1,1),(LABEL,3,I,3),;          00000322
                  (DATA,3,0,2,SCOR(AF(I,1),EACSA)*3)                    00000323
         ELSE                 NUM(AF)                                   00000324
A6       GET      (AF(I)),(VALUE,3,15,17),(SET,1,1),(LABEL,3,I,3),;     00000325
                  (DATA,3,0,2,SCOR(AF(I,1),EAINTNR,EAINTLB))            00000326
         ELSE                 NUM(AF)                                   00000327
A7       GET      (AF(I)),(VALUE,4,0,32),(SET,1,2),(LABEL,4,I,3)        00000328
         ELSE                 NUM(AF)                                   00000329
A8       GETFLAG  (AF(I)),(SET,1,24)                                    00000330
FIN      FIN                 NUM(AF)                                    00000331
BUILD    BOUND    1                                                     00000332
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000333
LF       BUILDFPT,CF(2)     AF                                          00000334
PEND     PEND                                                           00000335
*                                                                       00000336
*                                                                       00000337
M:SIOSTP CNAME    5,X'10'                                               00000338
M:SIOSTRT CNAME   5,X'11'                                               00000339
M:BIOSTP CNAME    5,X'0E'                                               00000340
M:BIOSTRT CNAME   5,X'0F'                                               00000341
M:IODEACT CNAME   5,X'16'                                               00000342
M:IOACT  CNAME    5,X'17'                                               00000343
         PROC                                                           00000344
         LOCAL    I                                                     00000345
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000346
         SETUP                                                          00000347
FPTA(1)  SET      NAME(2)**24                                           00000348
OPT      SET      1**(31-0)                                             00000349
I        DO       NUM(AF)                                               00000350
         GOTO,SCOR(AF(I,1),DCB,OPLBX,DEVX,;                             00000351
                  HIO,DEV,IOP,PRADDR,PRINTNR,PRINTLB,PRCSA) ;           00000352
                  A2,A2,A2,A3,A4,A5,A6,A7,A7,A6                         00000353
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000354
         ELSE                 NUM(AF)                                   00000355
         GOTO     FIN                                                   00000356
A2       GETADDR  (AF(I)),(LABEL,0,I,3),(VALUE,0),;                     00000357
         (DATA,0,13,2,SCOR(AF(I,1),OPLBX,DEVX))                         00000358
         ELSE                 NUM(AF)                                   00000359
A3       GETFLAG  (AF(I)),(SET,0,11)                                    00000360
         ELSE                 NUM(AF)                                   00000361
A4       GETFLAG  (AF(I)),(SET,0,10),(RESET,0,12)                       00000362
         ELSE                 NUM(AF)                                   00000363
A5       GETFLAG  (AF(I)),(SET,0,12),(RESET,0,10)                       00000364
         ELSE                 NUM(AF)                                   00000365
A6       GETDADDR  (AF(I)),(LABEL,10,I,3),(VALUE,10),(SET,1,8),;        00000366
                  (SET,0,8),;                                                   
                  (DATA,10,0,2,SCOR(AF(I,1),PRCSA)*3)                   00000367
         ELSE                 NUM(AF)                                   00000368
A7       GET      (AF(I)),(LABEL,10,I,3),(VALUE,10,15,17),(SET,1,8),;   00000369
                  (SET,0,8),;                                                   
                  (DATA,10,0,2,SCOR(AF(I,1),PRINTNR,PRINTLB))           00000370
FIN      FIN                 NUM(AF)                                    00000371
BUILD    BOUND    1                                                     00000372
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000373
LF       BUILDFPT,CF(2)  AF                                             00000374
PEND     PEND                                                           00000375
*                                                                       00000376
*                                                                       00000377
M:TIME   CNAME    8,X'10'                                               00000378
M:INT    CNAME    8,X'0E'                                               00000379
M:PC     CNAME    1,X'2C'                                               00000380
         PROC                                                           00000381
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000382
         SETUP                                                          00000383
FPTA(1)  SET      NAME(2)**24                                           00000384
FPTR(1)  SET      S:UFV(AF(1))                                          00000385
OPT      SET      1**(31-0)                                             00000386
BUILD    BOUND    1                                                     00000387
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000388
LF       BUILDFPT,CF(2)  AF                                             00000389
PEND     PEND                                                           00000390
*                                                                       00000391
*                                                                       00000392
M:SLAVE  CNAME    5,7                                                   00000393
M:MASTER CNAME    5,8                                                   00000394
M:CALRTN CNAME    7,X'60'                                               00000395
         PROC                                                           00000396
         SETUP                                                          00000397
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000398
         GOTO,SCOR(CF(2),CAL)  PEND                                     00000399
         SETUP                                                          00000400
FPTA(1)  SET      NAME(2)**24                                           00000401
OPT      SET      1**(31-0)                                             00000402
LF       BUILDFPT,CF(2)  AF                                             00000403
PEND     PEND                                                           00000404
*                                                                       00000405
*                                                                       00000406
M:GETTIME CNAME   7,X'61'                                               00000407
         PROC                                                           00000408
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000409
         SETUP                                                          00000410
         ERROR,3,NUM(AF)>1  'ONLY ONE KEYWORD USED'                     00000411
FPTA(1)  SET      NAME(2)**24                                           00000412
OPT      SET      1**(31-0)+1**(31-1)                                   00000413
         DO       SCOR(AF(1),STIME)                                     00000414
         GETFLAG  (AF(1)),(SET,0,8)                                     00000415
         ELSE                 SCOR(AF(1),TIME)                          00000416
         DO       SCOR(AF(1),UTIME)                                     00000417
         GETFLAG  (AF(1)),(RESET,0,8)                                   00000418
         ELSE                 SCOR(AF(1),UTIME)                         00000419
         ERROR,3,NUM(AF)~=0  'ILLEGAL KEYWORD IGNORED'                  00000420
         FIN                 SCOR(AF(1),UTIME)                          00000421
         FIN                 SCOR(AF(1),TIME)                           00000422
BUILD    BOUND    1                                                     00000423
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000424
LF       BUILDFPT,CF(2)  AF                                             00000425
PEND     PEND                                                           00000426
*                                                                       00000427
*                                                                       00000428
M:PRINT  CNAME    2,1                                                   00000429
M:TYPE   CNAME    2,2                                                   00000430
         PROC                                                           00000431
         LOCAL    I                                                     00000432
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000433
         SETUP                                                          00000434
FPTA(1)  SET      NAME(2)**24                                           00000435
FPTA(2)  SET      1**31                                                 00000436
OPT      SET      1**(31-0)+1**(31-1)+1**(31-2)                         00000437
I        DO       NUM(AF)                                               00000438
         GOTO,SCOR(AF(I,1),WAIT,MESS,TIME) A1,A2,A3                     00000439
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000440
         ELSE                 NUM(AF)                                   00000441
         GOTO     FIN                                                   00000442
A1       GETFLAG  (AF(I)),(SET,1,27)                                    00000443
         ELSE                       NUM(AF)                             00000444
A2       GETADDR  (AF(I)),(LABEL,2,I,3),(VALUE,2)                       00000445
         ELSE                       NUM(AF)                             00000446
A3       GETADDR  (AF(I)),(LABEL,14,I,3),(VALUE,14,0,32),(SET,1,12)     00000447
FIN      FIN                 NUM(AF)                                    00000448
BUILD    BOUND    1                                                     00000449
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000450
LF       BUILDFPT,CF(2)  AF                                             00000451
PEND     PEND                                                           00000452
*                                                                       00000453
*                                                                       00000454
M:CORRES CNAME    1,X'2B'                                               00000455
         PROC                                                           00000456
         LOCAL    I                                                     00000457
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000458
         SETUP                                                          00000459
FPTA(1)  SET      NAME(2)**24                                           00000460
I        DO       NUM(AF)                                               00000461
         DO       SCOR(AF(I,1),DCB1,DCB2)~=0                            00000462
         GETADDR  (AF(I)),(VALUE,SCOR(AF(I,1),DCB2),15,17),;            00000463
                  (LABEL,SCOR(AF(I,1),DCB2),I,3)                        00000464
         ELSE                 SCOR(AF(I,1),DCB1,DCB2)~=0                00000465
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000466
         FIN                 SCOR(AF(I,1),DCB1,DCB2)                    00000467
         FIN                 NUM(AF)                                    00000468
BUILD    BOUND    1                                                     00000469
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000470
LF       BUILDFPT,CF(2)  AF                                             00000471
PEND     PEND                                                           00000472
*                                                                       00000473
*                                                                       00000474
M:RUN    CNAME    5,X'0C'                                               00000475
:RUN     SET      5,X'0C'                                               00000476
M:RLS    CNAME    5,X'0B'                                               00000477
:RLS     SET      5,X'0B'                                               00000478
         PROC                                                           00000479
         LOCAL    I,T1                                                  00000480
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000481
         SETUP                                                          00000482
FPTA(1)  SET      NAME(2)**24                                           00000483
OPT      SET      1**(31-0)+1**(31-2)+1**(31-3)+;                       00000484
                  (NAME(2)=:RUN(2))**(31-1)                             00000485
I        DO       NUM(AF)                                               00000486
         GOTO,SCOR(AF(I,1),FILEN) A6                                    00000487
         GOTO,NAME(2)=:RLS(2)  A1                                       00000488
         GOTO,SCOR(AF(I,1),SIG,ISP,PRIO,INTNR,INTLB)  ;                 00000489
                  A2,A3,A4,A5,A5                                        00000490
A1       ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000491
         ELSE                 NUM(AF)                                   00000492
         GOTO     FIN                                                   00000493
A2       GETDADDR (AF(I)),(LABEL,0,I,3),(VALUE,0)                       00000494
         ELSE                 NUM(AF)                                   00000495
A3       GETFLAG  (AF(I)),(SET,1,3)                                     00000496
         ELSE                 NUM(AF)                                   00000497
A4       GET      (AF(I)),(LABEL,1,I,3),(VALUE,1,5,7),(SET,1,4)         00000498
         ELSE                 NUM(AF)                                   00000499
A5       GET      (AF(I)),(LABEL,1,I,3),(VALUE,1,16,16),;               00000500
                  (DATA,1,0,2,SCOR(AF(I,1),INTNR,INTLB))                00000501
         ELSE                 NUM(AF)                                   00000502
A6       BOUND    1                                                     00000503
T1       DWTEXT   AF(I,2)                                               00000504
FPTA(3)  SET      (T1**(-32))&X'FFFFFFFF'                               00000505
FPTA(4)  SET      T1&X'FFFFFFFF'                                        00000506
FPTL(3)  SET      I,3                                                   00000507
FIN      FIN                 NUM(AF(I))>2                               00000508
BUILD    BOUND    1                                                     00000509
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000510
LF       BUILDFPT,CF(2)  AF                                             00000511
PEND     PEND                                                           00000512
*                                                                       00000513
*                                                                       00000514
M:TRAP   CNAME    8,X'14'                                               00000515
M:JTRAP  CNAME    7,X'5D'                                               00000516
         PROC                                                           00000517
         LOCAL    I,J,K,T1                                              00000518
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000519
         SETUP                                                          00000520
FPTA(1)  SET      NAME(2)**24                                           00000521
OPT      SET      1**(31-0)+1**(31-1)                                   00000522
J        SET      NUM(AF(1))=1                                          00000523
         DO1      J                                                     00000524
FPTR(1)  SET      S:UFV(AF(1))                                          00000525
I        DO       NUM(AF)-J                                             00000526
T1       SET      SCOR(AF(I+J,1),ABORT,TRAP,PERMIT,IGNORE)              00000527
         DO       T1=0                                                  00000528
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000529
         ELSE                 T1=0                                      00000530
K        DO       NUM(AF(I+J))-1                                        00000531
         GOTO,SCOR(AF(I+J,K+1),DEC,FX)~=0  A2                           00000532
         GOTO,SCOR(AF(I+J,1),PERMIT,IGNORE)~=0  A1                      00000533
         GOTO,SCOR(AF(I+J,K+1),;                                        00000534
                  WDG,NAO,UI,PS,FP,CAL)~=0  A2                          00000535
A1       ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000536
         ELSE                 NUM(AF(I+J))-1                            00000537
         GOTO     FIN                                                   00000538
A2       GETFLAG  0,(SET,1,;                                            00000539
                  SCOR(AF(I+J,K+1),WDG,NAO,UI,PS,FP,DEC,FX,CAL);        00000540
                  +8*(T1-1))                                            00000541
FIN      FIN                 NUM(AF(I+J))-1                             00000542
         FIN                 T1=0                                       00000543
         FIN                 NUM(AF)-J                                  00000544
BUILD    BOUND    1                                                     00000545
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000546
LF       BUILDFPT,CF(2)  AF                                             00000547
PEND     PEND                                                           00000548
*                                                                       00000549
*                                                                       00000550
M:TRIGGER CNAME   5,X'0'                                                00000551
M:DISABLE CNAME   5,X'1'                                                00000552
M:ENABLE CNAME    5,X'2'                                                00000553
         PROC                                                           00000554
         LOCAL    I                                                     00000555
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000556
         SETUP                                                          00000557
FPTA(1)  SET      NAME(2)**24                                           00000558
OPT      SET      1**(31-0)                                             00000559
I        DO       NUM(AF)                                               00000560
         GOTO,SCOR(AF(I,1),INTNR,INTLB,ERR,ERROR)  ;                    00000561
                  A1,A1,A2,A2                                           00000562
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000563
         ELSE                 NUM(AF)                                   00000564
         GOTO     FIN                                                   00000565
A1       GET      (AF(I)),(LABEL,0,I,3),(VALUE,0,16,16),;               00000566
                  (DATA,0,15,1,SCOR(AF(I,1),INTLB))                     00000567
         ELSE                 NUM(AF)                                   00000568
A2       GETDADDR  (AF(I)),(LABEL,1,I,3),(VALUE,1),(SET,0,10)           00000569
FIN      FIN                 NUM(AF)                                    00000570
BUILD    BOUND    1                                                     00000571
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000572
LF       BUILDFPT,CF(2)  AF                                             00000573
PEND     PEND                                                           00000574
*                                                                       00000575
*                                                                       00000576
M:WAITANY CNAME   7,X'41'                                               00000577
M:WAITALL CNAME   7,X'40'                                               00000578
M:TEST   CNAME    7,X'42'                                               00000579
M:SIGNAL CNAME    7,X'43'                                               00000580
M:STIMER CNAME    7,X'44'                                               00000581
M:POLL   CNAME    7,X'45'                                               00000582
M:POST   CNAME    7,X'46'                                               00000583
M:INIT   CNAME    7,X'48'                                               00000584
M:EXTM   CNAME    7,X'49'                                               00000585
M:START  CNAME    7,X'4A'                                               00000586
M:STOP   CNAME    7,X'4B'                                               00000587
M:ENQ    CNAME    7,X'4C'                                               00000588
M:DEQ    CNAME    7,X'4D'                                               00000589
M:STATUS CNAME    7,X'4E'                                               00000590
M:MODIFY CNAME    7,X'4F'                                               00000591
M:SETNAME CNAME   7,X'51'                                               00000592
:SETNAME EQU      7,X'51'                                               00000593
M:ACT    CNAME    7,X'52'                                               00000594
M:DEACT  CNAME    7,X'53'                                               00000595
M:ERASE  CNAME    7,X'54'                                               00000596
M:LOCK   CNAME    7,X'55'                                               00000597
M:UNLOCK CNAME    7,X'56'                                               00000598
M:GETPAGE CNAME   7,X'57'                                               00000599
M:RELPAGE CNAME   7,X'58'                                               00000600
M:ALLOT  CNAME    7,X'5A'                                               00000601
M:DELETE CNAME    7,X'5B'                                               00000602
M:TRUNC  CNAME    7,X'5C'                                               00000603
M:TRTY   CNAME    7,X'5E'                                               00000604
M:TEXIT  CNAME    7,X'5F'                                               00000605
M:SJOB   CNAME    7,X'63'                                               00000606
M:KJOB   CNAME    7,X'64'                                               00000607
M:DEBUG  CNAME    7,X'65'                                               00000608
M:SCHED  CNAME    7,X'68'                                               00000609
M:RECALM CNAME    7,X'69'                                               00000610
M:ALARM  CNAME    7,X'6A'                                               00000611
         PROC                                                           00000612
         LOCAL    I,T1,T2                                               00000613
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000614
         SETUP                                                          00000615
FPTA(1)  SET      NAME(2)**24                                           00000616
OPT      SET      1**(31-0)                                             00000617
I        DO       NUM(AF)                                               00000618
         GOTO,SCOR(AF(I,1),SEG,AREA,ALMSG,ALADR,ERR,ERROR,;             00000619
             RNAME,TASK,FILE,CLASS,FSI,SDATA,RSI,RDATA,ESI,PRIO,GSI) ;  00000620
                  A1,A1,A1A,A1A,A2,A2,;                                 00000621
                  A3,A3,A4,A5,A6,A7,A7A,A8,A8A,A9,A9                    00000622
         GOTO,SCOR(AF(I,1),EAADDR,EAINTNR,EAINTLB,EACSA,;               00000623
                  TYC,JOB,TIME,INTV,FOR,ORG,;                           00000624
                  VPNL,VPNH,ACNTPTR,STRTPTR) ;                          00000625
                  A10,A11,A11,A10,;                                     00000626
                  A12,A13,A14,A14,A15,A15,;                             00000627
                  A16,A16,A29,A31                                       00000628
         GOTO,SCOR(AF(I,1),LWAIT,SYSL,STOP,ABORT,THRESH,JOBL,;          00000629
                  GO,INTVL,IMMED,SEC,RESFGD,PRI,WAIT,;                  00000630
                  DEBUG,SHARE,EXCL,IGNERR,NOCK,TS,REBOOT,DEL) ;         00000631
                  A17,A18,A18,A18,A18,A19,A19,A19,A20,A20,A20,;         00000632
                  A21,A22,A23,A23,A24,A25,A26,A27,A28,A30               00000633
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000634
         ELSE                 NUM(AF)                                   00000635
         GOTO     FIN                                                   00000636
A1       GET      (AF(I)),(LABEL,0,I,3),(VALUE,0,16,16)                 00000637
         ELSE                 NUM(AF)                                   00000638
A1A      GETADDR  (AF(I)),(LABEL,0,I,3),(VALUE,0)                       00000639
         ELSE                       NUM(AF)                             00000640
A2       GETADDR  (AF(I)),(LABEL,2,I,3),(VALUE,2),(SET,0,8),(SET,1,0)   00000641
         ELSE                 NUM(AF)                                   00000642
A3       ERROR,3,NUM(AF(I))>3  'EXTRA VALUES IN GROUP IGNORED'          00000643
T1       DWTEXT   AF(I,2)                                               00000644
         GET      (0,T1**(-32)&X'FFFFFFFF'),(VALUE,4,0,32),;            00000645
                  (SET,1,2),(SET,0,8),(LABEL,4,I,3)                     00000646
         DO1      (T1&X'FFFFFFFF')~='    '                              00000647
         GET      (0,T1&X'FFFFFFFF'),(VALUE,5,0,32),(SET,1,3)           00000648
         ELSE                 NUM(AF)                                   00000649
A4       ERROR,3,NUM(AF(I))>4  'EXTRA VALUES IN GROUP IGNORED'          00000650
T2       SET      (NAME(1)=:SETNAME(1))&(NAME(2)=:SETNAME(2))           00000651
         DO       (NUM(AF(I))>2)&;                                      00000652
                 (TCOR(AF(I,3),S:RAD,S:LIST,S:AAD,S:FR,S:LFR)=0)        00000653
T1       DWTEXT   AF(I,3)                                               00000654
         DO      T2=0                                                   00000655
         GET      (0,AF(I,2)),(VALUE,0,16,16)                           00000656
         FIN     T2=0                                                   00000657
         ELSE                 NUM(AF(I))>2                              00000658
T1       DWTEXT   AF(I,2)                                               00000659
         FIN                 NUM(AF(I))>2                               00000660
         GET      (0,T1**(-32)&X'FFFFFFFF'),(VALUE,4+3*T2,0,32),;       00000661
                  (SET,1,2+3*T2),(SET,0,8)                              00000662
         DO1      (T1&X'FFFFFFFF')~='    '                              00000663
         GET      (0,T1&X'FFFFFFFF'),(VALUE,5+3*T2,0,32),(SET,1,3+3*T2) 00000664
         DO       NUM(AF(I))=4                                          00000665
FPTL(5+3*T2)  SET  I,4                                                  00000666
         ELSE                       NUM(AF(I))=4                        00000667
         DO1      TCOR(AF(I,3),S:RAD,S:LIST,S:AAD,S:FR,S:LFR)>0         00000668
FPTL(5+3*T2)  SET  I,3                                                  00000669
         FIN                        NUM(AF(I))=4                        00000670
         ELSE                 NUM(AF)                                   00000671
A5       GET      (AF(I)),(VALUE,6,16,16),(SET,0,8),(SET,1,4),;         00000672
                  (LABEL,6,I,3)                                         00000673
         ELSE                 NUM(AF)                                   00000674
A6       GETADDR  (AF(I)),(LABEL,6,I,3),(VALUE,6),(SET,0,8),(SET,1,4)   00000675
         ELSE                 NUM(AF)                                   00000676
A7       GETDADDR (AF(I)),(LABEL,7,I,3),(VALUE,7),(SET,0,8),(SET,1,5)   00000677
         ELSE                 NUM(AF)                                   00000678
A7A      GETADDR  (AF(I)),(LABEL,7,I,3),(VALUE,7),(SET,0,8),(SET,1,5)   00000679
         ELSE                 NUM(AF)                                   00000680
A8       ERROR,3,NUM(AF(I))>4  'EXTRA VALUES IN GROUP IGNORED'          00000681
         GET      (0,AF(I,2)),(VALUE,8,1,7),(SET,0,8),(SET,1,6)         00000682
         GETDADDR (0,AF(I,3)),(LABEL,8,I,4),(VALUE,8)                   00000683
         ELSE                       NUM(AF)                             00000684
A8A      GETADDR  (AF(I)),(SET,0,8),(SET,1,6),;                         00000685
                  (VALUE,8),(LABEL,8,I,3)                               00000686
         ELSE                 NUM(AF)                                   00000687
A9       GETADDR  (AF(I)),(LABEL,9,I,3),(VALUE,9),(SET,0,8),(SET,1,7)   00000688
         ELSE                 NUM(AF)                                   00000689
A10      GETDADDR (AF(I)),(VALUE,10),(SET,0,8),(SET,1,8),;              00000690
                  (DATA,10,0,2,SCOR(AF(I,1),EACSA)*3),(LABEL,10,I,3)    00000691
         ELSE                 NUM(AF)                                   00000692
A11      GET      (AF(I)),(VALUE,10,8,24),(SET,0,8),(SET,1,8),;         00000693
                  (DATA,10,0,2,SCOR(AF(I,1),EAINTNR,EAINTLB)),;         00000694
                  (LABEL,10,I,3)                                        00000695
         ELSE                 NUM(AF)                                   00000696
A12      GETFLAG  (AF(I)),(SET,0,8),(SET,1,9),(DATA,11,0,32,0),;        00000697
                  (LABEL,11,I,2)                                        00000698
         ELSE                 NUM(AF)                                   00000699
A13      ERROR,3,NUM(AF(I))>3  'EXTRA VALUES IN GROUP IGNORED'          00000700
T1       DWTEXT   AF(I,2)                                               00000701
         GET      (0,T1**(-32)&X'FFFFFFFF'),(VALUE,12,0,32),;           00000702
                  (SET,1,10),(SET,0,8),(LABEL,12,I,3)                   00000703
         DO1      (T1&X'FFFFFFFF')~='    '                              00000704
         GET    (0,T1&X'FFFFFFFF'),(VALUE,13,0,32),(SET,1,11)           00000705
         ELSE                 NUM(AF)                                   00000706
A14      GET      (AF(I)),(VALUE,14,0,32),(SET,0,8),(SET,1,12),;        00000707
                  (LABEL,14,I,3)                                        00000708
         ELSE                 NUM(AF)                                   00000709
A15      BOUND    1                                                     00000710
         DO       AFA(I,2)                                              00000711
         GETADDR  (AF(I)),(LABEL,3,I,3),(VALUE,3),(SET,0,8),(SET,1,1)   00000712
         ELSE                       AFA(I,2)                            00000713
         ERROR,3,NUM(AF(I))>3  'EXTRA VALUES IN GROUP IGNORED'          00000714
         GET      (0,SCOR(AF(I,2),B,C)),(VALUE,3,30,2),;                00000715
                  (SET,0,8),(SET,1,1),(LABEL,3,I,3)                     00000716
         ERROR,3,SCOR(AF(I,2),U,B,C)=0  'ILLEGAL ORG; U ASSUMED'        00000717
         FIN                        AFA(I,2)                            00000718
         ELSE                 NUM(AF)                                   00000719
A16      GET      (AF(I)),(VALUE,7+SCOR(AF(I,1),VPNH),24,8),;           00000720
                  (SET,0,8),(SET,1,5+SCOR(AF(I,1),VPNH)),;              00000721
                  (LABEL,5+SCOR(AF(I,1),VPNH),I,3)                      00000722
         ELSE                 NUM(AF)                                   00000723
A17      GETFLAG  (AF(I)),(SET,0,8),(SET,1,24)                          00000724
         ELSE                 NUM(AF)                                   00000725
A18      GETFLAG  (AF(I)),(SET,0,8),(SET,1,25)                          00000726
         ELSE                 NUM(AF)                                   00000727
A19      GETFLAG  (AF(I)),(RESET,1,25)                                  00000728
         ELSE                 NUM(AF)                                   00000729
A20      GETFLAG  (AF(I)),(SET,0,8),(SET,1,26)                          00000730
         ELSE                 NUM(AF)                                   00000731
A21      GETFLAG  (AF(I)),(RESET,1,26)                                  00000732
         ELSE                 NUM(AF)                                   00000733
A22      GETFLAG  (AF(I)),(SET,0,8),(SET,1,27)                          00000734
         ELSE                 NUM(AF)                                   00000735
A23      GETFLAG  (AF(I)),(SET,0,8),(SET,1,28)                          00000736
         ELSE                 NUM(AF)                                   00000737
A24      GETFLAG  (AF(I)),(RESET,1,28)                                  00000738
         ELSE                 NUM(AF)                                   00000739
A25      GETFLAG  (AF(I)),(SET,0,8),(SET,1,31)                          00000740
         ELSE                 NUM(AF)                                   00000741
A26      GETFLAG  (AF(I)),(SET,0,8),(SET,1,23)                          00000742
         ELSE                       NUM(AF)                             00000743
A27      GETFLAG  (AF(I)),(SET,1,29),(SET,0,8)                          00000744
         ELSE                       NUM(AF)                             00000745
A28      GETFLAG  (AF(I)),(SET,0,9)                                     00000746
         ELSE                       NUM(AF)                             00000747
A29      GETADDR  (AF(I)),(SET,0,8),(SET,1,13),;                        00000748
                  (VALUE,15),(LABEL,15,I,3)                             00000749
         ELSE                       NUM(AF)                             00000750
A30      GETFLAG  (AF(I)),(SET,0,8),(SET,1,30)                          00000751
         ELSE                       NUM(AF)                             00000752
A31      GETADDR  (AF(I)),(SET,0,8),(SET,1,14),;                        00000753
                  (VALUE,16),(LABEL,16,I,3)                             00000754
FIN      FIN                 NUM(AF)                                    00000755
BUILD    BOUND    1                                                     00000756
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000757
LF       BUILDFPT,CF(2)  AF                                             00000758
PEND     PEND                                                           00000759
*                                                                       00000760
*                                                                       00000761
M:CON    CNAME    5,X'04',1                                             00000762
M:ARM    CNAME    5,X'04'                                               00000763
M:DISCON CNAME    5,X'03',1                                             00000764
M:DISARM CNAME    5,X'03'                                               00000765
         PROC                                                           00000766
         LOCAL    I,T1                                                  00000767
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000768
         SETUP                                                          00000769
FPTA(1)  SET      NAME(2)**24                                           00000770
FPTA(2)  SET      (NAME(3)=1)**(31-0)                                   00000771
OPT      SET      1**(31-0)+1**(31-1)+((NAME(3)=1)&(NAME(2)=4))**(31-2) 00000772
I        DO       NUM(AF)                                               00000773
         GOTO,SCOR(AF(I,1),INTNR,INTLB,TCB,NR,START,XPSD,;              00000774
                  RBLK,MTW,ERR,ERROR,TASK,JOB,TYC,;                     00000775
                  DE,AI,DI,CI,II,EI,MS,DM,AM,IGNERR)  ;                 00000776
                  A1,A1,A2,A3,A4,A4,A5,A6,A7,A7,A8,A9,A10,;             00000777
                  A11,A11,A11,A11,A11,A11,A11,A11,A11,A12               00000778
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000779
         ELSE                 NUM(AF)                                   00000780
         GOTO     FIN                                                   00000781
A1       GET      (AF(I)),(LABEL,0,I,3),(VALUE,0,16,16),;               00000782
                  (DATA,0,15,1,SCOR(AF(I,1),INTLB))                     00000783
         ELSE                 NUM(AF)                                   00000784
A2       GETDADDR (AF(I)),(LABEL,1,I,3),(VALUE,1)                       00000785
         ELSE                 NUM(AF)                                   00000786
A3       GET      (AF(I)),(LABEL,1,I,3),(VALUE,1,11,4)                  00000787
         ELSE                 NUM(AF)                                   00000788
A4       GETDADDR (AF(I)),(LABEL,2,I,3),(VALUE,2),(SET,1,0)             00000789
         ELSE                 NUM(AF)                                   00000790
A5       GET      (AF(I)),(LABEL,2,I,3),(VALUE,2,0,8),(SET,1,0)         00000791
         ELSE                 NUM(AF)                                   00000792
A6       GETDADDR (AF(I)),(LABEL,3,I,3),(VALUE,3),(SET,1,1)             00000793
         ELSE                 NUM(AF)                                   00000794
A7       GETADDR  (AF(I)),(LABEL,4,I,3),(VALUE,4),(SET,1,2)             00000795
         ELSE                 NUM(AF)                                   00000796
A8       ERROR,3,NUM(AF(I))>3  'EXTRA VALUES IN GROUP IGNORED'          00000797
T1       DWTEXT   AF(I,2)                                               00000798
         GET      (0,T1**(-32)&X'FFFFFFFF'),(VALUE,5,0,32),;            00000799
                  (SET,0,9),(LABEL,5,I,3)                               00000800
         GET      (0,T1&X'FFFFFFFF'),(VALUE,6,0,32)                     00000801
         ELSE                 NUM(AF)                                   00000802
A9       ERROR,3,NUM(AF(I))>3  'EXTRA VALUES IN GROUP IGNORED'          00000803
T1       DWTEXT   AF(I,2)                                               00000804
         GET      (0,T1**(-32)&X'FFFFFFFF'),(VALUE,7,0,32),;            00000805
                  (SET,0,10),(LABEL,7,I,3)                              00000806
         GET      (0,T1&X'FFFFFFFF'),(VALUE,8,0,32)                     00000807
         ELSE                 NUM(AF)                                   00000808
A10      GETFLAG  (AF(I)),(LABEL,9,I,3),(SET,0,11),(DATA,9,0,32,0)      00000809
         ELSE                 NUM(AF)                                   00000810
A11      GETFLAG  (AF(I)),(SET,1,SCOR(AF(I,1),;                         00000811
                  DI,CI,II,EI,MS,DM,AM)+3)                              00000812
         ELSE                 NUM(AF)                                   00000813
A12      GETFLAG  (AF(I)),(SET,0,14)                                    00000814
FIN      FIN                 NUM(AF)                                    00000815
BUILD    BOUND    1                                                     00000816
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000817
LF       BUILDFPT,CF(2)  AF                                             00000818
PEND     PEND                                                           00000819
*                                                                       00000820
*                                                                       00000821
M:SEGLOAD CNAME   8,X'01'                                               00000822
         PROC                                                           00000823
         LOCAL    I                                                     00000824
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000825
         SETUP                                                          00000826
FPTA(1)  SET      NAME(2)**24                                           00000827
OPT      SET      1**(31-0)                                             00000828
I        DO       NUM(AF)                                               00000829
         GOTO,SCOR(AF(I,1),SEG,EAADDR,EAINTNR,EAINTLB,EACSA,;           00000830
                  ERR,ERROR,T)  A1,A2,A3,A3,A2,A4,A4,A5                 00000831
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000832
         ELSE                 NUM(AF)                                   00000833
         GOTO     FIN                                                   00000834
A1       GET      (AF(I)),(LABEL,0,I,3),(VALUE,0,16,16)                 00000835
         ELSE                 NUM(AF)                                   00000836
A2       GETDADDR (AF(I)),(LABEL,1,I,3),(VALUE,1),(SET,0,8),;           00000837
                  (DATA,1,0,2,SCOR(AF(I,1),EACSA)*3)                    00000838
         ELSE                 NUM(AF)                                   00000839
A3       GET      (AF(I)),(LABEL,1,I,3),(VALUE,1,16,16),(SET,0,8),;     00000840
                  (DATA,1,0,2,SCOR(AF(I,1),EAINTNR,EAINTLB))            00000841
         ELSE                 NUM(AF)                                   00000842
A4       GETDADDR (AF(I)),(LABEL,2,I,3),(VALUE,2),(SET,0,9)             00000843
         ELSE                 NUM(AF)                                   00000844
A5       GETFLAG  (AF(I)),(SET,0,15)                                    00000845
FIN      FIN                 NUM(AF)                                    00000846
BUILD    BOUND    1                                                     00000847
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000848
LF       BUILDFPT,CF(2)  AF                                             00000849
PEND     PEND                                                           00000850
*                                                                       00000851
M:DEVICE CNAME                                                                  
         PROC                                                                   
         LOCAL    A1,A2,A3                                                      
         DO       NUM(AF)=2                                                     
         GOTO,SCOR(AF(2,1),CORRES,BIN,VFC)    A1,A2,A3                          
A1       SET      0                                                             
LF       M:CORRES (DCB1,AF(1)),(DCB2,AF(2,2))                                   
         GOTO     FIN                                                           
A2       SET      0                                                             
LF       M:DFMODE AF(1),BIN                                                     
         GOTO     FIN                                                           
A3       SET      0                                                             
LF       M:VFC    AF(1),VFC                                                     
         GOTO     FIN                                                           
         ELSE                                                                   
         ERROR,3  'ILLEGAL KEYWORD, STATEMENT IGNORED'                          
FIN      FIN                                                                    
         PEND                                                                   
*                                                                       00000852
M:VFC    CNAME    1,X'05'                                               00000853
M:DRC    CNAME    1,X'0B'                                               00000854
M:DFMODE CNAME    1,X'22'                                               00000855
         PROC                                                           00000856
         LOCAL    I,J                                                   00000857
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000858
         SETUP                                                          00000859
FPTA(1)  SET      NAME(2)**24                                           00000860
         DO       NUM(AF(1))=1                                          00000861
FPTR(1)  SET      S:UFV(AF(1))                                          00000862
FPTA(1)  SET      FPTA(1)|AFA(1)**31                                    00000863
         ELSE                 NUM(AF(1))=1                              00000864
         ERROR,4  'ILLEGAL DCB ADDRESS'                                 00000865
         FIN                 NUM(AF(1))=1                               00000866
OPT      SET      1**(31-0)                                             00000867
I        DO       NUM(AF)-1                                             00000868
J        SET      I+1                                                   00000869
         GOTO,SCOR(AF(J,1),RSI,ORG,FOR,GSI,NRT,BIN,BCD,PACK,UNPK,;      00000870
                  VFC,NOVFC,DRC,NODRC,D1600,D800,ASC,EBC,BLK,UNBLK) ;   00000871
                  A1,A2,A2,A3,A4,A5,A5A,A6,A6A,;                        00000872
                  A7,A8,A7,A8,A6A,A6,A9,A10,A11,A12                     00000873
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000874
         ELSE                 NUM(AF)-1                                 00000875
         GOTO     FIN                                                   00000876
A1       GETADDR  (AF(J)),(LABEL,2,J,3),(VALUE,2),(SET,1,0)             00000877
         ELSE                 NUM(AF)-1                                 00000878
A2       BOUND    1                                                     00000879
         DO       AFA(J,2)                                              00000880
         GETADDR  (AF(J)),(LABEL,3,J,3),(VALUE,3),(SET,1,1)             00000881
         ELSE                       AFA(J,2)                            00000882
         ERROR,3,NUM(AF(J))>3  'EXTRA VALUES IN GROUP IGNORED'          00000883
         GET      (0,SCOR(AF(J,2),B,C)),(VALUE,3,30,2),;                00000884
                  (SET,1,1),(LABEL,3,J,3)                               00000885
         ERROR,3,SCOR(AF(J,2),U,B,C)=0  'ILLEGAL ORG; U ASSUMED'        00000886
         FIN                        AFA(J,2)                            00000887
         ELSE                 NUM(AF)-1                                 00000888
A3       GETADDR  (AF(J)),(LABEL,4,J,3),(VALUE,4),(SET,1,2)             00000889
         ELSE                 NUM(AF)-1                                 00000890
A4       GETADDR  (AF(J)),(LABEL,5,J,3),(VALUE,5),(SET,1,3)             00000891
         ELSE                 NUM(AF)-1                                 00000892
A5       GETFLAG  (AF(J)),(SET,1,27)                                    00000893
         ELSE                       NUM(AF)-1                           00000894
A5A      GETFLAG  (AF(J)),(RESET,1,27)                                  00000895
         ELSE                       NUM(AF)-1                           00000896
A6       GETFLAG  (AF(J)),(RESET,1,25)                                  00000897
         ELSE                 NUM(AF)-1                                 00000898
A6A      GETFLAG  (AF(J)),(SET,1,25)                                    00000899
         ELSE                 NUM(AF)-1                                 00000900
A7       GETFLAG  (AF(J)),(SET,1,27)                                    00000901
         ELSE                 NUM(AF)-1                                 00000902
A8       GETFLAG  (AF(J)),(RESET,1,27)                                  00000903
         ELSE                       NUM(AF)-1                           00000904
A9       GETFLAG  (AF(J)),(SET,1,24)                                    00000905
         ELSE                       NUM(AF)-1                           00000906
A10      GETFLAG  (AF(J)),(RESET,1,24)                                  00000907
         ELSE                       NUM(AF)-1                           00000908
A11      GETFLAG  (AF(J)),(SET,1,28)                                    00000909
         ELSE                       NUM(AF)-1                           00000910
A12      GETFLAG  (AF(J)),(RESET,1,28)                                  00000911
FIN      FIN                 NUM(AF)-1                                  00000912
BUILD    BOUND    1                                                     00000913
LF       BUILDCAL,CF(2),NAME(1) AF                                      00000914
LF       BUILDFPT,CF(2)  AF                                             00000915
PEND     PEND                                                           00000916
*                                                                       00000917
*                                                                       00000918
M:STDLB  CNAME    7,X'62'                                               00000919
:STDLB   SET      7,X'62'                                               00000920
M:ASSIGN CNAME    1,X'08'                                               00000921
M:GETASN CNAME    1,X'09'                                               00000922
M:MEDIA  CNAME    7,X'59'                                               00000923
:MEDIA   SET      7,X'59'                                               00000924
         PROC                                                           00000925
         LOCAL    I,J,T1                                                00000926
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00000927
         SETUP                                                          00000928
FPTA(1)  SET      NAME(2)**24+1**(31-8)                                 00000929
         DO       NUM(AF(1))=1                                          00000930
T1       SET      1                                                     00000931
FPTR(1)  SET      S:UFV(AF(1))                                          00000932
FPTA(1)  SET      FPTA(1)|AFA(1)**31                                    00000933
         ELSE                 NUM(AF(1))=1                              00000934
T1       SET      0                                                     00000935
         DO       (NAME(1)~=:MEDIA(1))                                  00000936
         DO       (NAME(1)=:STDLB(1))&(NAME(2)=:STDLB(2))               00000937
         ERROR,4  'MISSING OPLABEL'                                     00000938
         ELSE                 NAME=:STDLB                               00000939
         ERROR,4  'MISSING DCB ADDRESS'                                 00000940
         FIN                 NAME=:STDLB                                00000941
         FIN                        NAME~=:MEDIA                        00000942
         FIN                 NUM(AF(1))=1                               00000943
OPT      SET      1**(31-0)                                             00000944
I        DO       NUM(AF)-T1                                            00000945
J        SET      I+T1                                                  00000946
         GOTO,SCOR(AF(J,1),ERR,ERROR,OPLB,DEVPTR,FILPTR,;               00000947
                  MODLPTR,BOT,EOT,DCTX,RSI,GSI,ORG,FOR,ESI,ZERO,;       00000948
                  EAADDR,EAINTNR,EAINTLB,EACSA,PRIO,WP,DEVCPTR,;        00000949
                  TYC,TIME,ACNTPTR,WAIT,IGNERR,ENQ,REL,DS,NVFC,DEL) ;   00000950
                  A1,A1,A2,A3,A4,A5,A6,A7,A20,A21,A21,A22,A22,;         00000951
                  A26,A8,A9,A10,A10,A9,A22,A24,A25,;                    00000952
                  A11,A12,A23,A13,A14,A15,A16,;                         00000953
                  A17,A18,A19                                           00000954
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00000955
         ELSE                 NUM(AF)-T1                                00000956
         GOTO     FIN                                                   00000957
A1       GETADDR  (AF(J)),(LABEL,2,J,3),(VALUE,2),(SET,1,0)             00000958
         ELSE                 NUM(AF)-T1                                00000959
A2       GETADDR  (AF(J)),(LABEL,3,J,3),(VALUE,3),(SET,1,1)             00000960
         ELSE                 NUM(AF)-T1                                00000961
A3       GETADDR  (AF(J)),(LABEL,4,J,3),(VALUE,4),(SET,1,2)             00000962
         ELSE                 NUM(AF)-T1                                00000963
A4       GETADDR  (AF(J)),(LABEL,5,J,3),(VALUE,5),(SET,1,3)             00000964
         ELSE                 NUM(AF)-T1                                00000965
A5       GETADDR  (AF(J)),(LABEL,6,J,3),(VALUE,6),(SET,1,4)             00000966
         ELSE                 NUM(AF)-T1                                00000967
A6       GETADDR  (AF(J)),(LABEL,7,J,3),(VALUE,7),(SET,1,5)             00000968
         ELSE                 NUM(AF)-T1                                00000969
A7       GETADDR  (AF(J)),(LABEL,8,J,3),(VALUE,8),(SET,1,6)             00000970
         ELSE                 NUM(AF)-T1                                00000971
A8       GETFLAG  (AF(J)),(RESET,1,1),(RESET,1,2),(RESET,1,3)           00000972
OPT      SET      OPT&X'E3FFFFFF'                                       00000973
         ELSE                 NUM(AF)-T1                                00000974
A9       GETDADDR (AF(J)),(LABEL,10,J,3),(VALUE,10),(SET,1,8),;         00000975
                  (DATA,10,0,2,SCOR(AF(J,1),EACSA)*3)                   00000976
         ELSE                 NUM(AF)-T1                                00000977
A10      GET      (AF(J)),(LABEL,10,J,3),(VALUE,10,16,16),(SET,1,8),;   00000978
                  (DATA,10,0,2,SCOR(AF(J,1),EAINTNR,EAINTLB))           00000979
         ELSE                 NUM(AF)-T1                                00000980
A11      GETFLAG  (AF(J)),(LABEL,11,J,2),(DATA,11,0,32,0),(SET,1,9)     00000981
         ELSE                 NUM(AF)-T1                                00000982
A12      GET      (AF(J)),(LABEL,14,J,3),(VALUE,14,0,32),(SET,1,12)     00000983
         ELSE                 NUM(AF)-T1                                00000984
A13      GETFLAG  (AF(J)),(SET,1,27)                                    00000985
         ELSE                 NUM(AF)-T1                                00000986
A14      GETFLAG  (AF(J)),(SET,1,31)                                    00000987
         ELSE                 NUM(AF)-T1                                00000988
A15      GETFLAG  (AF(J)),(SET,1,25)                                    00000989
         ELSE                 NUM(AF)-T1                                00000990
A16      GETFLAG  (AF(J)),(SET,1,26)                                    00000991
         ELSE                       NUM(AF)-T1                          00000992
A17      GETFLAG  (AF(J)),(SET,0,9)                                     00000993
         ELSE                       NUM(AF)-T1                          00000994
A18      GETFLAG  (AF(J)),(SET,0,10)                                    00000995
         ELSE                       NUM(AF)-T1                          00000996
A19      GETFLAG  (AF(J)),(SET,0,11)                                    00000997
         ELSE                       NUM(AF)-T1                          00000998
A20      GETADDR  (AF(J)),(LABEL,13,J,3),(SET,1,11),(VALUE,13)          00000999
         ELSE                       NUM(AF)-T1                          00001000
A21      GETADDR  (AF(J)),(LABEL,10,J,3),(SET,1,10),(VALUE,12)          00001001
         ELSE                       NUM(AF)-T1                          00001002
A22      GETADDR  (AF(J)),(LABEL,9,J,3),(SET,1,7),(VALUE,9)             00001003
         ELSE                       NUM(AF)-1                           00001004
A23      GETADDR  (AF(J)),(SET,1,13),(VALUE,15),(LABEL,15,J,3)          00001005
         ELSE                       NUM(AF)-1                           00001006
A24      GETADDR  (AF(J)),(SET,1,14),(VALUE,16),(LABEL,16,J,3)          00001007
         ELSE                       NUM(AF)-1                           00001008
A25      GETADDR  (AF(J)),(SET,1,15),(VALUE,17),(LABEL,17,J,3)          00001009
         ELSE                       NUM(AF)-1                           00001010
A26      GETADDR  (AF(J)),(SET,1,8),(VALUE,10),(LABEL,10,J,3)           00001011
FIN      FIN                 NUM(AF)-1                                  00001012
BUILD    BOUND    1                                                     00001013
LF       BUILDCAL,CF(2),NAME(1) AF                                      00001014
LF       BUILDFPT,CF(2)  AF                                             00001015
PEND     PEND                                                           00001016
*                                                                       00001017
*                                                                       00001018
M:JOB    CNAME    7,X'67'                                               00001019
         PROC                                                           00001020
         LOCAL    I                                                     00001021
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00001022
         SETUP                                                          00001023
FPTA(1)  SET      NAME(2)**24+1**(31-8)                                 00001024
FPTA(2)  SET      1**(31-27)                                            00001025
OPT      SET      1**(31-0)+1**(31-1)                                   00001026
I        DO       NUM(AF)                                               00001027
         GOTO,SCOR(AF(I,1),ERR,ERROR,SFILPTR,FILPTR,;                   00001028
                  IDNR,STAT,QNR,PRIO,;                                  00001029
                  TYC,ACNTPTR,DEF,DEL,IN,OUT,STATCK,IGNERR) ;           00001030
                  A1,A1,A2,A3,A4,A5,A6,A7,;                             00001031
                  A8,A15,A9,A10,A11,A12,A13,A14                         00001032
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00001033
         ELSE                       NUM(AF)                             00001034
A1       GETADDR  (AF(I)),(LABEL,2,I,3),(SET,1,0),(VALUE,2)             00001035
         ELSE                       NUM(AF)                             00001036
A2       GETADDR  (AF(I)),(LABEL,4,I,3),(SET,1,2),(VALUE,4)             00001037
         ELSE                       NUM(AF)                             00001038
A3       GETADDR  (AF(I)),(LABEL,5,I,3),(SET,1,3),(VALUE,5)             00001039
         ELSE                       NUM(AF)                             00001040
A4       GETADDR  (AF(I)),(LABEL,6,I,3),(SET,1,4),(VALUE,6)             00001041
         ELSE                       NUM(AF)                             00001042
A5       GETADDR  (AF(I)),(LABEL,7,I,3),(SET,1,5),(VALUE,7)             00001043
         ELSE                       NUM(AF)                             00001044
A6       GETADDR  (AF(I)),(LABEL,8,I,3),(SET,1,6),(VALUE,8)             00001045
         ELSE                       NUM(AF)                             00001046
A7       GETADDR  (AF(I)),(LABEL,9,I,3),(SET,1,7),(VALUE,9)             00001047
         ELSE                       NUM(AF)                             00001048
A8       GETFLAG  (AF(I)),(LABEL,11,I,2),(SET,1,9),(DATA,11,0,32,0)     00001049
         ELSE                       NUM(AF)                             00001050
A9       GETFLAG  (AF(I)),(SET,1,25)                                    00001051
         ELSE                       NUM(AF)                             00001052
A10      GETFLAG  (AF(I)),(SET,1,26)                                    00001053
         ELSE                       NUM(AF)                             00001054
A11      GETFLAG  (AF(I)),(SET,1,28)                                    00001055
         ELSE                       NUM(AF)                             00001056
A12      GETFLAG  (AF(I)),(RESET,1,28)                                  00001057
         ELSE                       NUM(AF)                             00001058
A13      GETFLAG  (AF(I)),(RESET,1,25),(RESET,1,26)                     00001059
         ELSE                       NUM(AF)                             00001060
A14      GETFLAG  (AF(I)),(SET,1,31)                                    00001061
         ELSE                       NUM(AF)                             00001062
A15      GETADDR  (AF(I)),(SET,1,13),(VALUE,15),(LABEL,15,I,3)          00001063
FIN      FIN                        NUM(AF)                             00001064
BUILD    BOUND    1                                                     00001065
LF       BUILDCAL,CF(2),NAME(1) AF                                      00001066
LF       BUILDFPT,CF(2)  AF                                             00001067
PEND     PEND                                                           00001068
*                                                                       00001069
*                                                                       00001070
M:PREFMOD CNAME   7,X'50'                                               00001071
         PROC                                                           00001072
         LOCAL    I                                                     00001073
         GOTO,SCOR(CF(2),CAL)  BUILD                                    00001074
         SETUP                                                          00001075
FPTA(1)  SET      NAME(2)**24                                           00001076
OPT      SET      1**(31-0)                                             00001077
I        DO       NUM(AF)                                               00001078
         GOTO,SCOR(AF(I,1),PBA,ERR,ERROR,TYC,REL,RES,IGNERR) ;          00001079
                  A1,A2,A2,A3,A4,A5,A6                                  00001080
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00001081
         ELSE                 NUM(AF)                                   00001082
         GOTO     FIN                                                   00001083
A1       GETDADDR (AF(I)),(LABEL,0,I,3),(VALUE,0)                       00001084
         ELSE                 NUM(AF)                                   00001085
A2       GETADDR  (AF(I)),(LABEL,2,I,3),(VALUE,2),(SET,1,0),(SET,0,8)   00001086
         ELSE                 NUM(AF)                                   00001087
A3       GETFLAG  (AF(I)),(DATA,11,0,32,0),(SET,1,9),(SET,0,8),;        00001088
                  (LABEL,11,I,2)                                        00001089
         ELSE                 NUM(AF)                                   00001090
A4       GETFLAG  (AF(I)),(SET,0,9)                                     00001091
         ELSE                 NUM(AF)                                   00001092
A5       GETFLAG  (AF(I)),(RESET,0,9)                                   00001093
         ELSE                 NUM(AF)                                   00001094
A6       GETFLAG  (AF(I)),(SET,1,31),(SET,0,8)                          00001095
FIN      FIN                 NUM(AF)                                    00001096
BUILD    BOUND    1                                                     00001097
LF       BUILDCAL,CF(2),NAME(1) AF                                      00001098
LF       BUILDFPT,CF(2)  AF                                             00001099
PEND     PEND                                                           00001100
*                                                                       00001101
*                                                                       00001102
M:DCB    CNAME                                                          00001103
         PROC                                                           00001104
         LOCAL    I,T1,T2                                               00001105
         SETUP                                                          00001106
OPT      SET      X'F8000000'                                           00001107
I        DO       NUM(AF)                                               00001108
         GOTO,SCOR(AF(I,1),ZERO,DEV,DEVX,FILE,FILEN,;                   00001109
                  OPLB,OPLBX,AREA,AREAX,DFAREA,ACNT) ;                  00001110
                  A1,A2,A2A,A3,A3A,A4,A4A,A5,A5A,A5B,A6                 00001111
         GOTO,SCOR(AF(I,1),NRT,TRIES,BUF,RSZ,RECL,;                     00001112
                  ERA,ERR,ERROR,ABA,ABN,BTD,VFC,BIN,PACK,;              00001113
                 LIST,L,D1600,D800,ASC,EBC,DRC,TYPEX,TTL) ;             00001114
                  A7,A7,A8,A9,A9,;                                      00001115
                  A10,A10,A10,A11,A11,A12,A13,A14,A15,;                 00001116
                  A16,A16,A17,A18,A19,A20,A21,A22,A23                   00001117
         ERROR,3  'ILLEGAL KEYWORD IGNORED'                             00001118
         ELSE                 NUM(AF)                                   00001119
         GOTO     FIN                                                   00001120
A1       GETFLAG  (AF(I)),(DATA,0,28,4,0)                               00001121
         ELSE                       NUM(AF)                             00001122
A2       ERROR,3,NUM(AF(I))>3 'EXTRA VALUES IN GROUP IGNORED'           00001123
T1       DWTEXT   AF(I,2)                                               00001124
         GET      (0,T1**-32&X'FFFFFFFF'),(SET,0,25),;                  00001125
                  (DATA,0,28,4,3),(SET,1,16),(VALUE,5,0,32),;           00001126
                  (LABEL,5,I,3)                                         00001127
         GET      (0,T1&X'FFFFFFFF'),(VALUE,6,0,32)                     00001128
         ELSE                       NUM(AF)                             00001129
A2A      GET      (AF(I)),(RESET,0,25),(DATA,0,28,4,3),;                00001130
                  (SET,1,16),(VALUE,1,24,8),(LABEL,1,I,3)               00001131
         ELSE                       NUM(AF)                             00001132
A3       ERROR,3,NUM(AF(I))>4 'EXTRA VALUES IN GROUP IGNORED'           00001133
         GOTO,NUM(AF(I))<3|;                                            00001134
                  TCOR(AF(I,3),S:RAD,S:LIST,S:AAD,S:FR,S:LFR)~=0  A3A   00001135
T1       DWTEXT   AF(I,3)                                               00001136
T2       SET      4                                                     00001137
         GET      (0,AF(I,2)),(SET,0,24),(SET,7,0),;                    00001138
                  (VALUE,8,16,16)                                       00001139
         GOTO     A3B                                                   00001140
A3A      ERROR,3,NUM(AF(I))>3  'EXTRA VALUES IN GROUP IGNORED'          00001141
T1       DWTEXT   AF(I,2)                                               00001142
T2       SET      3                                                     00001143
A3B      BOUND    1                                                     00001144
         GET      (0,T1**-32&X'FFFFFFFF'),(DATA,0,28,4,1),;             00001145
                  (VALUE,5,0,32),(LABEL,5,I,T2)                         00001146
         GET      (0,T1&X'FFFFFFFF'),(VALUE,6,0,32)                     00001147
         ELSE                       NUM(AF)                             00001148
A4       GET      (AF(I)),(SET,0,25),(DATA,0,28,4,3),;                  00001149
                  (RESET,1,16),(VALUE,5,16,16),(LABEL,5,I,3)            00001150
         ELSE                       NUM(AF)                             00001151
A4A      GET      (AF(I)),(RESET,0,25),(DATA,0,28,4,3),;                00001152
                  (RESET,1,16),(VALUE,1,24,8),(LABEL,1,I,3)             00001153
         ELSE                       NUM(AF)                             00001154
A5       GET      (AF(I)),(SET,0,24,),(DATA,0,28,4,1),;                 00001155
                  (SET,7,0),(VALUE,8,16,16),(LABEL,8,I,3)               00001156
         ELSE                       NUM(AF)                             00001157
A5A      GET      (AF(I)),(RESET,0,24),(DATA,0,28,4,1),;                00001158
                  (VALUE,1,18,6),(LABEL,1,I,3)                          00001159
         ELSE                       NUM(AF)                             00001160
A5B      GETFLAG  (AF(I)),(SET,0,24),(RESET,7,0),;                      00001161
                  (DATA,0,28,4,1)                                       00001162
OPT      SET      OPT&X'FF7FFFFF'                                       00001163
         ELSE                       NUM(AF)                             00001164
A6       ERROR,3,NUM(AF(I))>3  'EXTRA VALUES IN GROUP IGNORED'          00001165
T1       DWTEXT   AF(I,2)                                               00001166
         GET      (0,T1**-32&X'FFFFFFFF'),(SET,7,1),;                   00001167
                  (VALUE,9,0,32),(LABEL,9,I,3)                          00001168
         DO1      (T1&X'FFFFFFFF')~='    '                              00001169
         GET      (0,T1&X'FFFFFFFF'),(SET,7,2),(VALUE,10,0,32)          00001170
         ELSE                       NUM(AF)                             00001171
A7       GET      (AF(I)),(LABEL,1,I,3),(VALUE,1,0,8)                   00001172
         ELSE                 NUM(AF)                                   00001173
A8       GETDADDR (AF(I)),(LABEL,2,I,3),(VALUE,2)                       00001174
         ELSE                 NUM(AF)                                   00001175
A9       GET      (AF(I)),(LABEL,3,I,3),(VALUE,3,0,15)                  00001176
         ELSE                 NUM(AF)                                   00001177
A10      GETDADDR (AF(I)),(LABEL,3,I,3),(VALUE,3)                       00001178
         ELSE                 NUM(AF)                                   00001179
A11      GETDADDR (AF(I)),(LABEL,4,I,3),(VALUE,4)                       00001180
         ELSE                 NUM(AF)                                   00001181
A12      GET      (AF(I)),(LABEL,0,I,3),(VALUE,0,26,2)                  00001182
         ELSE                 NUM(AF)                                   00001183
A13      GETFLAG  (AF(I)),(SET,0,23)                                    00001184
         ELSE                 NUM(AF)                                   00001185
A14      GETFLAG  (AF(I)),(SET,0,14)                                    00001186
         ELSE                 NUM(AF)                                   00001187
A15      GETFLAG  (AF(I)),(SET,0,22)                                    00001188
         ELSE                 NUM(AF)                                   00001189
A16      GETFLAG  (AF(I)),(SET,1,17)                                    00001190
         ELSE                       NUM(AF)                             00001191
A17      GETFLAG  (AF(I)),(SET,0,22)                                    00001192
         ELSE                       NUM(AF)                             00001193
A18      GETFLAG  (AF(I)),(RESET,0,22)                                  00001194
         ELSE                       NUM(AF)                             00001195
A19      GETFLAG  (AF(I)),(SET,0,20)                                    00001196
         ELSE                       NUM(AF)                             00001197
A20      GETFLAG  (AF(I)),(RESET,0,20)                                  00001198
         ELSE                       NUM(AF)                             00001199
A21      GETFLAG  (AF(I)),(SET,0,21)                                    00001200
         ELSE                       NUM(AF)                             00001201
A22      GET      (AF(I)),(VALUE,1,18,6),(LABEL,1,I,3)                  00001202
         ELSE                       NUM(AF)                             00001203
A23      GET      (AF(I)),(VALUE,0,0,8),(LABEL,0,I,3)                   00001204
FIN      FIN                 NUM(AF)                                    00001205
         DO1      (OPT&X'01FF0000')~=0                                  00001206
OPT      SET      OPT|X'FE000000'                                       00001207
T1       SET      0                                                     00001208
I        DO       16                                                    00001209
         DO1      (OPT&1**(32-I))~=0                                    00001210
T1       SET      T1+1                                                  00001211
         FIN                        16                                  00001212
         DO       (FPTA(1)&X'FF000000')=0                               00001213
         GET      (0,T1),(VALUE,0,0,8)                                  00001214
         ELSE                       (FPTA(1)&X'FF000000')=0             00001215
         DO1      FPTA(1)**-24>16                                       00001216
         GET      (0,16),(VALUE,0,0,8)                                  00001217
T1       SET      FPTA(1)**-24-T1                                       00001218
OPT      SET      OPT+1**T1-1                                           00001219
         FIN                        (FPTA(1)&X'FF000000')=0             00001220
LF       BUILDFPT,FPT  AF                                               00001221
PEND     PEND                                                           00001222
*                                                                       00001223
*                                                                       00001224
         CLOSE    FPTA,FPTR,FPTL,OPT                                    00001225
         CLOSE    FPT:SECT,SAVE$                                        00001226
         CLOSE    BUILDCAL,BUILDFPT                                     00001227
         CLOSE    GET,GETABS,GETFLAG,GETADDR,GETDADDR                   00001228
         CLOSE    SETUP,SWITCH,DWTEXT                                   00001229
         CLOSE    :REW                                                  00001230
         CLOSE    :WEOF                                                 00001231
         CLOSE    :UNLD                                                 00001232
         CLOSE    :PFIL                                                 00001233
         CLOSE    :PREC                                                 00001234
         CLOSE    :STDLB                                                00001235
         CLOSE    :MEDIA                                                00001236
         CLOSE    :ERSEND                                               00001237
         CLOSE    :SETNAME                                              00001238
         CLOSE    :RUN                                                  00001239
         CLOSE    :RLS                                                  00001240
         OPEN     PLOC,ULOC,A,I,M,P,Q,S,S:S,PF,USET                             
ULOC     SET      $                                                             
PLOC     SET      $                                                             
USET     CNAME                                                                  
         PROC                                                                   
LF       SET      $                                                             
         ORG      AF                                                            
         PEND                                                                   
S:S      FNAME                                                                  
         PROC                                                                   
         PEND     AF(AF(1)+2)                                                   
M:CAC    CNAME    8                                                             
M:TS     CNAME    4                                                             
M:TS2    CNAME    6                                                             
M:TS3    CNAME    X'B'                                                          
         PROC                                                                   
         BOUND    4                                                             
PF       SET      SCOR(CF(2),E,L)                                               
LF(1)    DO1      PF=0|PF=1                                                     
         GEN,1,7,4,3,17 S:S(PF=1,(,4,8,,PLOC),(AFA,4,8,AF(2),AF(1)))            
         DO1      PF=0                                                          
ULOC     USET     PLOC                                                          
         DO1      PF=0|PF=2                                                     
         GEN,8,4,2,2,16 6,NAME,,AF(1),                                          
         DO1      PF=0                                                          
PLOC     USET     ULOC                                                          
         PEND                                                                   
M:STAB   CNAME    1                                                             
M:TELCMD CNAME    3                                                             
         PROC                                                                   
         BOUND    4                                                             
PF       SET      SCOR(CF(2),E,L)                                               
LF(1)    DO1      PF=0|PF=1                                                     
         GEN,1,7,4,3,17 S:S(PF=1,(,4,8,,PLOC),(AFA,4,8,AF(2),AF(1)))            
         DO1      PF=0                                                          
ULOC     USET     PLOC                                                          
         DO1      PF=0|PF=2                                                     
         GEN,8,4,3,17   6,NAME,AF(2),AF(1)                                      
         DO1      PF=0                                                          
PLOC     USET     ULOC                                                          
         PEND                                                                   
M:STA    CNAME    (1,1,23,3),(1,1,19,3),(1,1,18,3),(1,1,21,3),;                 
                  (2,1,21,3),(2,1,19,3),(2,1,18,3),(2,3,16),;                   
                  (3,1,23,3),;                                                  
                  (6,7,19),(6,7,16),;                                           
                  (7,255,16),;                                                  
                  (13,255,16)                                                   
         PROC                                                                   
PF       SET      SCOR(CF(2),E,L)                                               
LF(1)    DO1      PF=0|PF=1                                                     
         GEN,1,7,4,3,17 S:S(PF=1,(,4,8,,PLOC),(AFA,4,8,AF(2),AF(1)))            
         DO       PF=0|PF=2                                                     
         DO1      PF=0                                                          
ULOC     USET     PLOC                                                          
LF(2)    EQU      $                                                             
Q        SET      X'06200000',                                                  
P        SET      S:KEYS(2,*0,ECHOPLEX,TABSIM,UCSHIFT,TRANSPARENT,;             
                  SPACEINSERT,LCSHIFT,PARITYCHECK,ACS,;                         
                  TABREL,;                                                      
                  ALGORITHM,SPEED,;                                             
                  COCTERM,;                                                     
                  CPOS)                                                         
I        DO       NUM(NAME)                                                     
         GOTO,(P(2)&X'100000000'**-I)=0  $FIN                                   
Q(2)     SET      Q(2)|X'100000000'**-NAME(I,1)                                 
         DO       AFA(P(I+2),2)                                                 
         ERROR,3,(NAME(I,2)&X'80000000')=0 'INDIRECT AF NOT ALLOWED'            
Q(NAME(I,1)+2) SET S:IFR(AF(P(I+2),2))+X'80000000'                              
         ELSE                                                                   
M        SET      NAME(I,2)                                                     
S        SET      NAME(I,3)                                                     
A        SET  M&S:S(NAME(I,4)&SCOR(AF(P(I+2),2),OFF,ON),;                       
         S:IFR(AF(P(I+2),2)),,1)                                                
Q(NAME(I,1)+2) SET Q(NAME(I,1)+2)+A**S+S:S(S>15,,M**(S&X'F'))                   
         FIN                                                                    
$FIN     FIN                                                                    
I        DO       NUM(Q)                                                        
         DO1      NUM(Q(I))>0                                                   
         DATA     Q(I)                                                          
         FIN                                                                    
         DO1      PF=0                                                          
PLOC     USET     ULOC                                                          
         FIN                                                                    
         PEND                                                                   
         CLOSE    PLOC,ULOC,A,I,M,P,Q,S,S:S,PF,USET                             
         END                                                                    
