MACRO 00001000
RDEVICE &ADDRESS=,&DEVTYPE=,&MODEL=,&FEATURE=,&ALTCU=, *00002000
&CLASS=,&ADAPTER=,&SETADDR=,&BASEADD=0, *00003000
&MAXDIAL=,&CPNAME=,&CPTYPE=EP,&CLUSTER=0, *00004000
&IMAGE=IMAG3800,&CHARS=GF10,&FCB=6,&DPMSIZE=1 @V60B9BA 00004100
.* THIS MACRO GENERATES A REAL DEVICE BLOCK 00005000
GBLA &CHADDR,&CUADDR,&DVADDR,&DVADDRB,&DEC 00006000
GBLA &RDVCNT,&RPRTCNT,&RPUNCNT,&RRDRCNT 00007000
GBLA &RCUCNT,&RCHCNT,&RPCCNT,&RPCLST(16),&DIAL75(16) 00008000
GBLC &RPCCU(16) @V2D3931 00009000
GBLB &RCODE 00010000
GBLC &RPRNTRS(32),&RPUNCHS(32),&RREADRS(32) 00011000
GBLC &HEX,&NAME 00012000
LCLA &RNMDLA 00013000
LCLA &COUNT,&INDEX,&SAD,&DMCT,&SZLEN 00014000
LCLA &DKMODEL 00015000
LCLA &CHADDA,&CHADDB,&CUADDA,&CUADDB,&INCR,&TOTNUM 00016000
LCLB &TRACK7,&DUALDNS,&TRANS,&CONV,&UNVCHST,&OPREAD 00017000
LCLB &WCGMS4 @V60B9BA 00017100
LCLB &FEP,&DUMY,&VIRT 00018000
LCLC &RDVFLG,&FTRCOD,&BASE 00019000
LCLC &RDVSTA 00019100
LCLC &RDVSTA3 HRC011DK 00019500
LCLC &RNMDLC 00020000
LCLC &RDEVADD,&RDEVBDD,&RDEVCUA,&RDEVCUB,&TYPC,&TYPE,&TRMCD 00021000
LCLC &RCUADD,&RCUBDD,&DEVNAME,&DUMMY 00022000
LCLC &DYNRPQ HRC072DK 00022500
.* 00023000
.* CHECK FOR VALID MACRO SEQUENCE IN 'DMKRIO' 00024000
.* 00025000
AIF (&RCUCNT NE 0 OR &RCHCNT NE 0).ERR15 00026000
.* VALIDATE ADDRESS, DEVTYPE OPERANDS 00027000
AIF ('&ADDRESS'(1,1) NE '(' AND K'&ADDRESS GT 3).ERR1 00028000
AIF ('&ADDRESS'(1,1) EQ '(' AND K'&ADDRESS GT 9).ERR1 00029000
AIF (T'&DEVTYPE EQ 'O').ERR2 00030000
.* CHECK FOR INVALID CLUSTER OPERAND 00031000
AIF ('&CLUSTER' NE '0' AND *00032000
'&ADAPTER' NE 'BSCA').INVNAM1 @VA03687 00033000
.* 00034000
.* DECOMPOSE ADDRESS INTO CHANNEL, CONTROL UNIT, DEVICE ADDRS 00035000
.* 00036000
AIF (K'&ADDRESS(1) NE 3).ERR1 00037000
&HEX SETC '&ADDRESS(1)'(1,1) 00038000
HEXDEC 00039000
AIF (&RCODE).ERR1 00040000
&CHADDA SETA &DEC 00041000
&HEX SETC '&ADDRESS(1)'(2,1) 00042000
HEXDEC 00043000
AIF (&RCODE).ERR1 00044000
&CUADDA SETA &DEC 00045000
&HEX SETC '&ADDRESS(1)'(3,1) 00046000
HEXDEC 00047000
AIF (&RCODE).ERR1 00048000
&DVADDR SETA &DEC 00049000
&RDEVADD SETC '0' 00050000
AIF (&DVADDR LT 8).LOWA 00051000
&RDEVADD SETC '8' 00052000
.LOWA ANOP 00053000
&RDEVCUA SETC 'RCU'.'&ADDRESS(1)'(1,2).'&RDEVADD' 00054000
&RDEVCUB SETC '0' 00054100
AIF ('&ALTCU' EQ '').NOALT 00054200
AIF (K'&ALTCU NE 3).ERR5 00054300
&HEX SETC '&ALTCU'(1,1) 00054400
HEXDEC 00054500
AIF (&RCODE).ERR5 00054600
&CHADDB SETA &DEC 00054700
&HEX SETC '&ALTCU'(2,1) 00054800
HEXDEC 00054900
AIF (&RCODE).ERR5 00055000
&CUADDB SETA &DEC 00055100
&HEX SETC '&ALTCU'(3,1) 00055300
HEXDEC 00055400
AIF (&RCODE).ERR5 00055500
&DVADDRB SETA &DEC 00055600
AIF (&DVADDRB NE 0 AND &DVADDRB NE 8).ERR5 00055650
.NOALT ANOP 00055700
.* 00056000
.* DECODE THE FEATURE PARAMETER 00057000
.* 00058000
&INDEX SETA 0 00059000
&FTRCOD SETC '0' 00060000
&DMCT SETA 0 00061000
AIF (T'&FEATURE EQ 'O').CKDT NO FEATURE GIVEN 00062000
.FEAT ANOP 00063000
&INDEX SETA &INDEX+1 00064000
AIF (&INDEX GT N'&FEATURE).CKDT 00065000
AIF ('&FEATURE(&INDEX)' EQ '7-TRACK').TRK7 00066000
AIF ('&FEATURE(&INDEX)' EQ 'DUALDENS').DUAL 00067000
AIF ('&FEATURE(&INDEX)' EQ 'TRANS').TRAN 00068000
AIF ('&FEATURE(&INDEX)' EQ 'CONV').CONV 00069000
AIF ('&FEATURE(&INDEX)' EQ '2CHANSW').CHAN 00070000
AIF ('&FEATURE(&INDEX)' EQ '4CHANSW').CHAN 00071000
AIF ('&FEATURE(&INDEX)' EQ 'UNVCHSET').UNVS 00072000
AIF ('&FEATURE(&INDEX)' EQ 'OPRDR').OPRDR 00073000
AIF ('&FEATURE(&INDEX)' EQ '4WCGMS').WCGM4 @V60B9BA 00073100
AIF ('&FEATURE(&INDEX)' EQ 'VIRTUAL').VIRT1 @V60B6B8 00073500
AIF ('&FEATURE(&INDEX)' EQ 'SYSVIRT').VIRT2 @V60B6B8 00073510
AGO .ERR8 00074000
.TRK7 ANOP 00075000
&TRACK7 SETB 1 00076000
&FTRCOD SETC '&FTRCOD'.'+FTR7TRK' 00077000
AGO .FEAT 00078000
.DUAL ANOP 00079000
&DUALDNS SETB 1 00080000
&FTRCOD SETC '&FTRCOD'.'+FTRDLDNS' 00081000
AGO .FEAT 00082000
.TRAN ANOP 00083000
&TRANS SETB 1 00084000
&FTRCOD SETC '&FTRCOD'.'+FTRTRANS' 00085000
AGO .FEAT 00086000
.CONV ANOP 00087000
&CONV SETB 1 00088000
&FTRCOD SETC '&FTRCOD'.'+FTRDCONV' 00089000
AGO .FEAT 00090000
.CHAN ANOP 00091000
MNOTE 0,'''&FEATURE(&INDEX)'' FEATURE IGNORED' 00092000
AGO .FEAT 00092250
.VIRT1 ANOP 00092500
AIF ('&DEVTYPE' NE '3330').ERR8 00092750
&VIRT SETB 1 00093000
&FTRCOD SETC '&FTRCOD'.'+VIRTUAL' @V60B6B8 00093250
AGO .FEAT 00093500
.VIRT2 ANOP 00093501
AIF ('&DEVTYPE' NE '3330').ERR8 @V60B6B8 00093502
&VIRT SETB 1 @V60B6B8 00093503
&FTRCOD SETC '&FTRCOD'.'+SYSVIRT' @V60B6B8 00093504
AGO .FEAT @V60B6B8 00093505
.UNVS ANOP 00095000
&UNVCHST SETB 1 00096000
&FTRCOD SETC '&FTRCOD'.'+FTRUCS' 00097000
AGO .FEAT 00098000
.WCGM4 ANOP @V60B9BA 00098100
&WCGMS4 SETB 1 @V60B9BA 00098200
&FTRCOD SETC '&FTRCOD'.'+FTR4WCGM' @V60B9BA 00098300
AGO .FEAT @V60B9BA 00098400
.OPRDR ANOP 00099000
AIF ('&DEVTYPE' EQ '3158').ERR8 @VA02100 00100000
&OPREAD SETB 1 00101000
&FTRCOD SETC '&FTRCOD'.'+FTROPRDR' 00102000
AIF ('&DEVTYPE' NE '3277' OR '&DEVTYPE' NE '3278').ERR8 00103000
AGO .FEAT 00104000
.* 00105000
.* VALIDATE AND SEPARATE OUT THE VARIOUS DEVICE TYPES 00106000
.* 00107000
.CKDT ANOP 00108000
&COUNT SETA 1 00109000
&RDVFLG SETC '0' 00110000
&RDVSTA SETC 'RDEVDISA' 00110100
&TYPC SETC 'CLASTERM' 00111000
&BASE SETC '&BASEADD' 00112000
.* 00113000
AIF ('&BASEADD' NE '0' AND '&DEVTYPE' NE '3705' AND *00114000
'&DEVTYPE' NE '3704').ERR12 00115000
.* 00116000
AIF ('&DEVTYPE' EQ '1052' OR '&DEVTYPE' EQ '3210').CONS 00117000
AIF ('&DEVTYPE' EQ '3215' OR '&DEVTYPE' EQ '2150').CONS 00118000
.* 00119000
AIF ('&DEVTYPE' EQ '2701' OR '&DEVTYPE' EQ '2955').SAD1 00120000
AIF ('&DEVTYPE' EQ '2702').SAD2 00121000
AIF ('&DEVTYPE' EQ '2703' OR '&DEVTYPE' EQ 'ICA').SAD3 00122000
AIF ('&DEVTYPE' EQ '3704' OR '&DEVTYPE' EQ '3705').PCCU 00123000
.* 00124000
AIF ('&DEVTYPE' EQ '2260' OR '&DEVTYPE' EQ '2265').GRAF 00125000
AIF ('&DEVTYPE' EQ '1053' OR '&DEVTYPE' EQ '2250').GRAF 00126000
AIF ('&DEVTYPE' EQ '3277' OR '&DEVTYPE' EQ '3284').GRAF 00127000
AIF ('&DEVTYPE' EQ '3278' OR '&DEVTYPE' EQ '3287').GRAF 00127500
AIF ('&DEVTYPE' EQ '3286' OR '&DEVTYPE' EQ '3066').GRAF 00128000
AIF ('&DEVTYPE' EQ '3158' OR '&DEVTYPE' EQ '3288').GRAF 00129000
AIF ('&DEVTYPE' EQ '3138' OR '&DEVTYPE' EQ '3148').GRAF 00131000
AIF ('&DEVTYPE' EQ '3036').GRAF 00131100
.* 00132000
AIF ('&DEVTYPE' EQ '1403' OR '&DEVTYPE' EQ '1443').URPRT 00133000
AIF ('&DEVTYPE' EQ '3211' OR '&DEVTYPE' EQ '1018').URPRT 00134000
AIF ('&DEVTYPE' EQ '3800').PRT3800 @V60B9BA 00134100
AIF ('&DEVTYPE' EQ '3203').PRT3203 00135000
AIF ('&DEVTYPE' EQ '2540P' OR '&DEVTYPE' EQ '1442P').URPUN 00136000
AIF ('&DEVTYPE' EQ '2520P' OR '&DEVTYPE' EQ '3525').URPUN 00137000
.* 00138000
AIF ('&DEVTYPE' EQ '2540R' OR '&DEVTYPE' EQ '2520R').URDVI 00139000
AIF ('&DEVTYPE' EQ '3505' OR '&DEVTYPE' EQ '1442R').URDVI 00140000
AIF ('&DEVTYPE' EQ '2495' OR '&DEVTYPE' EQ '2671').URDVI 00141000
AIF ('&DEVTYPE' EQ '1017' OR '&DEVTYPE' EQ '2501').URDVI 00142000
.* 00143000
AIF ('&DEVTYPE' EQ '2401' OR '&DEVTYPE' EQ '2402').TAPE 00144000
AIF ('&DEVTYPE' EQ '2403' OR '&DEVTYPE' EQ '2404').TAPE 00145000
AIF ('&DEVTYPE' EQ '2420' OR '&DEVTYPE' EQ '3420').TAPE 00146000
AIF ('&DEVTYPE' EQ '3410' OR '&DEVTYPE' EQ '3411').TAPE 00147000
AIF ('&DEVTYPE' EQ '2415').TAPE 00148000
.* 00149000
AIF ('&DEVTYPE' EQ '2311' OR '&DEVTYPE' EQ '2314').DISK 00150000
AIF ('&DEVTYPE' EQ '2321' OR '&DEVTYPE' EQ '3330').DISK 00151000
AIF ('&DEVTYPE' EQ '2301' OR '&DEVTYPE' EQ '2303').DISK 00152000
AIF ('&DEVTYPE' EQ '2305' OR '&DEVTYPE' EQ '2319').DISK 00153000
AIF ('&DEVTYPE' EQ '3333' OR '&DEVTYPE' EQ '3340').DISK 00154000
AIF ('&DEVTYPE' EQ '3350').DISK 00155000
AIF ('&DEVTYPE' EQ '3380').DISK HRC011DK 00155500
.* 00156000
AIF ('&DEVTYPE' EQ 'CTCA').SPEC 00157000
AIF ('&DEVTYPE' EQ '3851').SPEC 00157500
AIF ('&DEVTYPE' EQ '7443').SRF 00157700
MNOTE 4,'UNSUPPORTED DEVICE TYPE' 00158000
&TYPC SETC 'CLASSPEC' 00159000
&TYPE SETC 'TYPUNSUP' 00160000
AIF ('&CLASS' EQ '').CKCZ 00161000
&FTRCOD SETC 'CLAS'.'&CLASS' DEVICE SUB-CLASS 00162000
AIF ('&CLASS' EQ 'DASD' OR '&CLASS' EQ 'TAPE').CKCZ 00163000
AIF ('&CLASS' EQ 'TERM' OR '&CLASS' EQ 'GRAF').CKCZ 00164000
AIF ('&CLASS' EQ 'URI' OR '&CLASS' EQ 'URO').CKCZ 00165000
AGO .ERR9 INVALID CLASS PARAMETER 00166000
.* 00167000
.SAD1 AIF ('&SETADDR' NE '').ERR7 00168000
AGO .SAD4 00169000
.SAD2 AIF ('&SETADDR' EQ '' OR '&SETADDR' GT '3').ERR7 00170000
.SAD5 AIF ('&SETADDR' LT '0' OR '&SETADDR' GT '4').ERR7 00171000
&SAD SETA &SETADDR 00172000
AGO .TPDV 00173000
.SAD3 AIF ('&SETADDR' NE '').SAD5 00174000
.SAD4 ANOP 00175000
&SAD SETA 4 00176000
AIF ('&DEVTYPE' EQ '2955').CONS 00177000
.TPDV AIF ('&ADAPTER' EQ 'BSCA').COMM 00178000
AIF ('&ADAPTER' EQ 'IBM1').UNDEF 00179000
AIF ('&ADAPTER' EQ 'SDLC').SDLC @V67CDF1 00179500
AIF ('&ADAPTER' EQ 'TELE2').TTY 00180000
AGO .ERR6 00181000
.SDLC ANOP @V67CDF1 00181100
AIF ('&DEVTYPE' NE 'ICA').ERR6 @V67CDF1 00181200
&TYPE SETC 'TYPSDLC' @V67CDF1 00181300
&TRMCD SETC '0' @V67CDF1 00181400
AGO .CKCX @V67CDF1 00181500
.CONS ANOP 00182000
&TYPE SETC 'TYP&DEVTYPE' 00183000
&TRMCD SETC '00' 00184000
AGO .CKCX 00185000
.UNDEF ANOP 00186000
&TYPE SETC 'TYPUNDEF' 00187000
&TRMCD SETC 'RDEVPTTC' 00188000
&RDVFLG SETC 'RDEVPSUP' 00189000
AGO .CKCX 00190000
.* 00191000
.TTY ANOP 00192000
&TYPE SETC 'TYPTTY' 00193000
&TRMCD SETC 'RDEVUSC8' 00194000
AGO .CKCX 00195000
.* 00196000
.COMM ANOP 00197000
&TYPE SETC 'TYP2700' CLASTERM, TYP2700 = BSC LINE @V2D3931 00198000
&TRMCD SETC '0' TERMINAL CODE = EBCDIC @V2D3931 00199000
&INDEX SETA 0 @V2D3931 00200000
AIF ('&CLUSTER' EQ '0').CKCX @V2D3931 00201000
&TYPE SETC 'TYPBSC' CLASTERM, TYPBSC = 3270 REMOTE @V2D3931 00202000
.FINDT ANOP 00203000
&INDEX SETA &INDEX+1 @V2D3931 00204000
AIF ('&RPCCU(&INDEX)' EQ '&ADDRESS').FOUND @V2D3931 00205000
AIF (&INDEX LT &RPCCNT).FINDT @V2D3931 00206000
AGO .INVNAM2 ADDRESS DOES NOT MATCH CLUSTER @VA10744 00207100
.FOUND ANOP 00208000
AIF (&DIAL75(&INDEX) EQ 0).DIAL 00209000
&FTRCOD SETC '&FTRCOD'.'+FTRDIAL' 00210000
.DIAL ANOP 00211000
&INDEX SETA &RPCLST(&INDEX) NUMBER OF RESOURCES @V2D3931 00212000
&INDEX SETA &INDEX-1 @V2D3931 00213000
AGO .CKCX 00214000
.* NOTE MODEL 5 IS RNMDLA 16 00215490
.GRAF ANOP 00216000
&TYPC SETC 'CLASGRAF' 00217000
&TRMCD SETC '00' 00217100
&DYNRPQ SETC '0' HRC072DK 00217200
AIF ('&DEVTYPE' EQ '3138' OR '&DEVTYPE' EQ C00218000
'3148').DEV158 00219000
AIF ('&DEVTYPE' EQ '3036').DEV158 00219100
&TYPE SETC 'TYP&DEVTYPE' 00220000
AGO .NOT158 00221000
.DEV158 ANOP 00222000
&TYPE SETC 'TYP3158' 00223000
&RNMDLC SETC 'DMKGRTB' 00223025
AGO .GRTY0 00223050
.NOT158 ANOP 00224000
&RNMDLC SETC 'DMKGRTB' 00224100
AIF ('&DEVTYPE' NE '3278').GRTY0 00224200
AIF ('&MODEL' EQ 'DYNAMIC').RPQ3278 HRC072DK 00224220
AIF ('&MODEL' NE '5').NOT785 HRC073DK 00224240
&RNMDLA SETA 16 00224250
&RNMDLC SETC 'DMKGRXTB' HRC073DK 00224260
AGO .GRTY0 HRC073DK 00224270
.NOT785 ANOP HRC073DK 00224280
AIF ('&MODEL' NE '2A').NOT782A HRC101DK 00224340
&RNMDLA SETA 12 00224400
&RNMDLC SETC 'DMKGRWTB' 00224500
AGO .GRTY0 HRC101DK 00224610
.NOT782A ANOP HRC101DK 00224620
AIF ('&MODEL' NE '3').NOT783 HRC101DK 00224630
&RNMDLA SETA 4 HRC101DK 00224640
&RNMDLC SETC 'DMKGRUTB' HRC101DK 00224650
AGO .GRTY0 HRC101DK 00224660
.NOT783 ANOP HRC101DK 00224670
AIF ('&MODEL' NE '4').NOT784 HRC101DK 00224680
&RNMDLA SETA 8 HRC101DK 00224690
&RNMDLC SETC 'DMKGRVTB' HRC101DK 00224700
AGO .GRTY0 HRC101DK 00224710
.NOT784 ANOP HRC101DK 00224720
AIF ('&MODEL' NE '2').ERR4 HRC101DK 00224730
AGO .GRTY0 HRC072DK 00224800
.RPQ3278 ANOP HRC072DK 00224810
&DYNRPQ SETC 'RDEVERPQ' Flag bit in RDEVGRIC HRC072DK 00224820
.* HRC072DK 00224830
.GRTY0 ANOP HRC072DK 00224840
&SAD SETA 0 00225000
AIF (T'&FEATURE EQ 'O').CKCT 00226000
AIF (N'&FEATURE GT 0 AND '&FTRCOD'(6,5) NE 'OPRDR').ERR8 00227000
AIF (N'&FEATURE GT 1).ERR8 00228000
AGO .CKCT 00229000
.* 00230000
.PCCU AIF ('&ADAPTER' EQ 'TYPE1' OR '&ADAPTER' EQ 'TYPE2').BASE 00231000
AIF ('&ADAPTER' EQ 'TYPE3' OR '&ADAPTER' EQ 'TYPE4').BASE 00232000
AIF ('&CPNAME' NE '' OR '&MAXDIAL' NE '').ERR12 00233000
AIF ('&CPTYPE' NE 'EP' AND '&CPTYPE' NE 'PEP').ERR12 00234000
AGO .SAD3 00235000
.BASE ANOP 00236000
&TYPC SETC 'CLASSPEC' DEVICE CLASS 00237000
&TYPE SETC 'TYP&DEVTYPE' DEVICE TYPE 00238000
&FEP SETB 1 00239000
&FTRCOD SETC 'FTRTYP'.'&ADAPTER'(5,1) 00240000
.CK37X AIF (('&CPTYPE' EQ 'EP' OR '&CPTYPE' EQ 'PEP') AND *00241000
('&ADAPTER' NE 'TYPE1' AND '&ADAPTER' NE 'TYPE4')).ERR12 00242000
AIF ('&DEVTYPE' EQ '3704' AND '&ADAPTER' NE 'TYPE1').ERR12 00243000
AIF ('&FEATURE' NE '').ERR8 00244000
AIF ('&SETADDR' NE '').ERR7 00245000
AIF ('&CLASS' NE '').ERR9 00246000
AIF ('&MODEL' EQ '' OR K'&MODEL GT 2).ERR4 00247000
AIF (K'&MODEL EQ 2).MDLLET 00248000
&RNMDLC SETC '&MODEL'(1,1) 00249000
AGO .SETMDL2 00250000
.MDLLET AIF ('&MODEL'(1,1) LT 'A' OR '&MODEL'(1,1) GT 'H').ERR4 00251000
AIF ('&MODEL'(1,1) NE 'A' AND '&DEVTYPE' EQ '3704').ERR4 00252000
&RNMDLC SETC '&MODEL'(2,1) 00253000
AIF ('&MODEL'(1,1) EQ 'A' AND '&RNMDLC' LE '2').SETMDL2 00254000
AIF ('&MODEL'(1,1) EQ 'A' AND '&DEVTYPE' EQ '3705').ERR4 00255000
AIF ('&MODEL'(1,1) EQ 'A' AND '&RNMDLC' LE '4').SETMDL2 00256000
AIF ('&MODEL'(1,1) EQ 'B' AND '&RNMDLC' LE '4').SETMDL2 00257000
AIF ('&MODEL'(1,1) EQ 'C' AND '&RNMDLC' LE '6').SETMDL2 00258000
AIF ('&MODEL'(1,1) GE 'D' AND '&MODEL'(1,1) LE 'H').SETMDL2 00259000
AGO .ERR4 00260000
AIF ('&MODEL'(1,1) LT 'B' AND '&RNMDLC' GT '2').ERR4 00261000
.SETMDL2 AIF ('&RNMDLC' LT '1' OR '&RNMDLC' GT '8').ERR4 00262000
AIF ('&RNMDLC' GT '4' AND '&DEVTYPE' EQ '3704').ERR4 00263000
&RNMDLA SETA &RNMDLC 00264000
AIF ('&DEVTYPE' EQ '3704').MDLCK 00265000
&RNMDLA SETA &RNMDLA*2 00266000
AIF (K'&MODEL EQ 2 AND '&MODEL'(1,1) GT 'D').MDLCK 00267000
&RNMDLA SETA &RNMDLA-1 00268000
.MDLCK AIF (K'&MODEL EQ 2).MDLDONE 00269000
MNOTE 0,'MODEL SHOULD BE EXPRESSED AS 2 CHARACTERS' 00270000
.MDLDONE ANOP 00271000
AIF ('&CPTYPE' EQ 'NCP' AND N'&ADDRESS NE 1).ERR12 00272000
AIF ('&CPTYPE' NE 'PEP' AND '&MAXDIAL' NE '').ERR12 00273000
AIF ('&CPNAME' EQ '').MAXD 00274000
&RDVFLG SETC 'RDEVAUTO' 00275000
.MAXD AIF ('&CPTYPE' NE 'PEP' OR '&MAXDIAL' EQ '').CKCY 00276000
&DMCT SETA &MAXDIAL 00277000
AGO .CKCY 00278000
.* 00279000
.URPUN ANOP 00280000
AIF (N'&FEATURE GT 0).ERR8 00281000
AGO .URDVO 00282000
.PRT3800 ANOP @V60B9BA 00282100
AIF (K'&IMAGE LT 1 OR K'&IMAGE GT 8).ERR20 @V60B9BA 00282200
AIF (T'&IMAGE EQ 'N').ERR20 @V60B9BA 00282300
AIF (K'&CHARS LT 1 OR K'&CHARS GT 4).ERR21 @V60B9BA 00282400
AIF ('&FCB'NE'6' AND '&FCB'NE'8' AND '&FCB'NE'12').ERR22 00282500
AIF (T'&DPMSIZE NE 'N').ERR23 @V60B9BA 00282600
AIF (&DPMSIZE LT 1 OR &DPMSIZE GT 9).ERR23 @V60B9BA 00282700
&FTRCOD SETC '&FTRCOD'.'+FTREXTSN' @V60B9BA 00282800
.URPRT ANOP 00283000
AIF (T'&FEATURE EQ 'O').URDVO 00284000
AIF (N'&FEATURE GT 1).ERR8 @V60B9BA 00285000
AIF (N'&FEATURE GT 0 AND '&FTRCOD'(6,3) EQ 'UCS').URDVO 00285100
AIF ('&DEVTYPE' NE '3800').ERR8 @V60B9BA 00285200
AIF (N'&FEATURE GT 0 AND '&FTRCOD'(6,5) NE '4WCGM').ERR8 00286000
.URDVO ANOP 00287000
AIF (N'&CLASS GT 4).ERR9 00288000
&TYPC SETC 'CLASURO' 00289000
&TYPE SETC 'TYP&DEVTYPE' 00290000
&RDVFLG SETC 'RDEVDRAN+RDEVSEP' 00291000
AGO .CKCZ 00292000
.* 00293000
.URDVI ANOP 00294000
AIF (N'&CLASS GT 4).ERR9 00295000
&TYPC SETC 'CLASURI' 00296000
&TYPE SETC 'TYP&DEVTYPE' 00297000
&RDVFLG SETC 'RDEVDRAN+RDEVSEP' 00298000
AIF (N'&FEATURE GT 0).ERR8 00299000
AGO .CKCZ 00300000
.* 00301000
.TAPE ANOP 00302000
&TYPC SETC 'CLASTAPE' 00303000
AIF (&UNVCHST OR &OPREAD OR &WCGMS4).ERR8 @V60B9BA 00304000
AIF ('&DEVTYPE' EQ '2420').TAPE24 00305000
AIF ('&DEVTYPE' EQ '3410' OR '&DEVTYPE' EQ '3411').TAPE341 00306000
AIF ('&DEVTYPE' EQ '3420').TAPE342 00307000
AIF (&TRACK7 AND &DUALDNS).ERR8 00308000
&TYPE SETC 'TYP2401' 00309000
AIF ('&DEVTYPE' EQ '2403').TAPE78 00310000
AIF ('&DEVTYPE' NE '2415').TAPE00 00311000
&TYPE SETC 'TYP2415' 00312000
AGO .TAPE78 00313000
.TAPE00 AIF ('&MODEL' GE '1' AND '&MODEL' LE '3').TAPE78 00314000
AIF ('&MODEL' GE '4' AND '&MODEL' LE '6').TAPE8 00315000
AIF ('&DEVTYPE' NE '2415' AND '&MODEL' EQ '8').TAPE7 00316000
AGO .ERR4 00317000
.TAPE78 AIF (&TRACK7).TAPE7 00318000
AIF (&TRANS OR &CONV).ERR8 00319000
AGO .CKCT 00320000
.TAPE7 ANOP 00321000
AIF (&DUALDNS).ERR8 00322000
AGO .CKCT 00323000
.TAPE8 ANOP 00324000
AIF (&TRACK7 OR &TRANS OR &CONV).ERR8 00325000
AGO .CKCT 00326000
.TAPE342 AIF ('&MODEL' NE '' AND ('&MODEL' LT '3' OR *00327000
'&MODEL' GT '8')).ERR4 00328000
&TYPE SETC 'TYP&DEVTYPE' 00329000
AGO .CKCT 00330000
.TAPE24 AIF ('&MODEL' NE '' AND ('&MODEL' NE '5' AND '&MODEL' NE '7'*00331000
)).ERR4 00332000
AIF (&TRANS OR &CONV OR &TRACK7 OR &DUALDNS).ERR8 00333000
&TYPE SETC 'TYP&DEVTYPE' 00334000
AGO .CKCT 00335000
.TAPE341 AIF ('&MODEL' NE '' AND ('&MODEL' NE '1' AND '&MODEL' NE '2'*00336000
AND '&MODEL' NE '3')).ERR4 00337000
AIF (&TRACK7 AND &DUALDNS).ERR8 @VA04717 00338000
&TYPE SETC 'TYP&DEVTYPE' 00339000
AGO .CKCT 00340000
.PRT3203 AIF ('&MODEL' EQ '4' OR '&MODEL' EQ '').MOD3203 00341000
AIF ('&MODEL' EQ '5').URPRT 00341100
AGO .ERR17 00342000
.MOD3203 AIF ('&CHADDA' EQ '0').URPRT 00343000
AGO .ERR18 00344000
.* 00345000
.DISK ANOP 00346000
&TYPC SETC 'CLASDASD' 00347000
AIF (T'&FEATURE EQ 'O').DISKA 00348000
AIF (K'&FTRCOD LE 1).NOFTR 00348500
AIF ('&FTRCOD'(3,7) EQ 'SYSVIRT').NOFTR @V60B6B8 00349100
AIF ('&FTRCOD'(3,7) EQ 'VIRTUAL').NOFTR @V60B6B8 00349200
AGO .ERR8 @V60B6B8 00349300
.NOFTR ANOP 00349500
AIF (N'&FEATURE GT 1).ERR8 00350000
.DISKA ANOP 00351000
&TYPE SETC 'TYP&DEVTYPE' 00352000
AIF ('&DEVTYPE' EQ '2301').DK2301 00353000
AIF ('&DEVTYPE' EQ '2303').DK2303 00354000
AIF ('&DEVTYPE' EQ '2321').DK2321 00355000
AIF ('&DEVTYPE' EQ '2311').DK2311 00356000
AIF ('&DEVTYPE' EQ '2319').CKCT 00357000
AIF ('&DEVTYPE' EQ '3340').EXTSN 00358000
AIF ('&DEVTYPE' EQ '3350').RPS 00359000
AIF ('&DEVTYPE' EQ '3380').CKDX HRC011DK 00359500
AIF ('&DEVTYPE' NE '3330' AND '&DEVTYPE' NE '3333').DISK23X 00360000
AIF ('&MODEL' EQ '1' OR '&MODEL' EQ '11').RPS 00361000
AIF ('&DEVTYPE' EQ '3330' AND '&MODEL' EQ '2').RPS 00362000
AGO .ERR4 00363000
.DK2301 ANOP 00364000
&DKMODEL SETA 1 00365000
AGO .CKCT 00366000
.DK2303 ANOP 00367000
&DKMODEL SETA 3 00368000
AGO .CKCT 00369000
.DK2321 ANOP 00370000
&DKMODEL SETA 33 00371000
AGO .CKCT 00372000
.DK2311 ANOP 00373000
&DKMODEL SETA 17 00374000
AGO .CKCT 00375000
.DISK23X ANOP 00376000
AIF ('&DEVTYPE' NE '2305').CKCT 00377000
AIF ('&MODEL' GT '2' OR '&MODEL' EQ '').ERR4 00378000
&FTRCOD SETC '&FTRCOD'.'+FTRRPS'.'+FTREXTSN' 00379000
AIF ('&ADDRESS(2)' GT '16').ERR2A 00380000
AIF ('&ADDRESS(2)' GT '8').SET16 00381000
.SET8 ANOP 00382000
&COUNT SETA 8 00383000
AGO .CKCT 00384000
.SET16 ANOP 00385000
&COUNT SETA 16 00386000
AGO .CKCT 00387000
.CKDX ANOP , HRC011DK 00388190
AIF ('&MODEL' EQ '').CKDXOK HRC011DK 00388380
MNOTE 0,'MODEL NOT REQUIRED AND IGNORED.' HRC011DK 00388570
.CKDXOK ANOP , HRC011DK 00388760
&RDVSTA3 SETC 'RDEVCKDX' HRC011DK 00388950
.RPS ANOP HRC011DK 00389140
&FTRCOD SETC '&FTRCOD'.'+FTRRPS' HRC011DK 00389330
.EXTSN ANOP 00390000
&FTRCOD SETC '&FTRCOD'.'+FTREXTSN' 00391000
AGO .CKCT 00392000
.* 00393000
.SRF ANOP 00393100
&TYPC SETC 'CLASSPEC' 00393200
&TYPE SETC 'TYPSRF' 00393300
AGO .CKCT 00393500
.* 00393600
.SPEC ANOP 00394000
AIF (N'&FEATURE GT 0).ERR8 00395000
&TYPC SETC 'CLASSPEC' 00396000
&TYPE SETC 'TYP&DEVTYPE' 00397000
.* 00398000
.CKCT AIF ('&CLASS' NE '').ERR9 00399000
.CKCZ AIF ('&TYPE' EQ 'TYPUNSUP').UNSPADP 00400150
AIF ('&ADAPTER' NE '').ERR6 00400300
.UNSPADP AIF ('&SETADDR' NE '').ERR7 00400450
.CKCX AIF ('&TYPC'(5,3) EQ 'TER' AND N'&FEATURE GT 0).ERR8 00402000
.CKCY AIF ('&ADDRESS(2)' EQ '' OR '&DEVTYPE' EQ '2305').LOOP 00403000
AIF ('&DEVTYPE' EQ '3158').ERR16 @VA02100 00404000
AIF ('&DEVTYPE' EQ '3138' OR '&DEVTYPE' EQ C00405000
'3148').ERR16 00406000
AIF ('&DEVTYPE' EQ '3066').ERR16 @VA02052 00407000
&COUNT SETA &ADDRESS(2) 00408000
AIF (&COUNT GT 256).ERR3 00409000
.LOOP ANOP 00410000
&CHADDR SETA &CHADDA 00411000
&CUADDR SETA &CUADDA 00412000
&RDEVADD SETC '0' 00413000
AIF (&DVADDR LT 8).LOWADD 00414000
&RDEVADD SETC '8' 00415000
.LOWADD ANOP 00416000
&DEC SETA &CUADDA 00417000
DECHEX 00418000
AIF (&RCODE).ERR1 00419000
&RCUADD SETC '&HEX' 00420000
&RDEVCUA SETC 'RCU'.'&ADDRESS(1)'(1,1).'&RCUADD'.'&RDEVADD' 00421000
AIF ('&ALTCU' EQ '').NOALT2 00421050
&DEC SETA &CUADDB 00421100
DECHEX 00421150
AIF (&RCODE).ERR1 00421200
&RCUBDD SETC '&HEX' 00421250
&RDEVBDD SETC '0' 00421300
AIF (&DVADDRB EQ 0).LOWBDD 00421350
&RDEVBDD SETC '8' 00421400
.LOWBDD ANOP 00421450
&RDEVCUB SETC 'RCU'.'&ALTCU'(1,1).'&RCUBDD'.'&RDEVBDD' 00421500
.NOALT2 ANOP 00421550
&DEC SETA &DVADDR 00422000
DECHEX 00423000
AIF (&RCODE).ERR1 00424000
&RDEVADD SETC '&HEX' 00425000
&NAME SETC 'RDV'.'&ADDRESS(1)'(1,1).'&RCUADD'.'&RDEVADD' 00426000
RDVTBL DEF 00427000
AIF ('&ALTCU' EQ '').NOACU 00427100
AIF ('&TYPC' NE 'CLASDASD' AND '&TYPC' NE 'CLASTAPE').ERR19 00427200
&CHADDR SETA &CHADDB 00427300
&CUADDR SETA &CUADDB 00427400
RDVTBL DEF 00427500
.NOACU ANOP 00427600
AIF (&RDVCNT NE 0).N1ST 00428000
ENTRY DMKRIODV 00429000
DMKRIODV DS 0D 00430000
.N1ST ANOP 00431000
&NAME DS 0D 00432000
DC XL2'00&RDEVADD' - RDEVADD 00433000
DC H'0' - RDEVLOCK 00434000
DC AL1(&RDVSTA) - RDEVSTAT 00435100
DC AL1(&RDVFLG) - RDEVFLAG 00436000
DC AL1(&TYPC) - RDEVTYPC 00437000
DC AL1(&TYPE) - RDEVTYPE 00438000
DC A(&NAME) - RDEVFIOB 00439000
DC A(&NAME) - RDEVLIOB 00440000
DC A(&RDEVCUA) - RDEVCUA 00441000
DC A(&RDEVCUB) - RDEVCUB 00442000
AIF (&DUMY AND &DMCT NE 1).EPCHN 00443000
AIF ('&TYPC' EQ 'CLASTERM' AND ('&TYPE' NE 'TYP2700' AND *00444000
'&TYPE' NE 'TYP2955' AND '&TYPE' NE 'TYPSDLC')).RTRM 00445000
AIF ('&TYPC' EQ 'CLASURI' OR '&TYPC' EQ 'CLASURO').SPOL 00446000
AIF (&FEP AND &DMCT NE 0).EPDVC 00447000
DC F'0' - RDEVQUED 00448000
DC F'0' - RDEVOPER 00449000
AGO .CON1 00450000
.EPDVC ANOP 00451000
DC F'0' - RDEVCON 00452000
&HEX SETC 'RDM'.'&ADDRESS(1)'(1,2).'&DMCT' 00453000
DC A(&HEX) RDEVEPDV 00454000
AGO .CON1 00455000
.EPCHN ANOP 00456000
DC F'0' - RDEVQUED 00457000
&INDEX SETA &DMCT-1 00458000
&HEX SETC 'RDM'.'&ADDRESS(1)'(1,2).'&INDEX' 00459000
DC A(&HEX) RDEVEPDV 00460000
AGO .CON1 00461000
.RTRM ANOP 00462000
DC A(0) - RDEVCON 00463000
DC A(0) RDEVAIRA 00464000
AGO .CON1 00465000
.SPOL ANOP 00466000
DC A(0) - RDEVSPL 00467000
AIF ('&TYPC' EQ 'CLASURI').SPOL1 00468000
AIF (N'&CLASS EQ 1).LEN1 00469000
AIF (N'&CLASS EQ 2).LEN2 00470000
AIF (N'&CLASS EQ 3).LEN3 00471000
AIF (N'&CLASS EQ 4).LEN4 00472000
DC CL1'A',XL3'00' - RDEVCLAS 00473000
MNOTE 0,'CLASS DEFAULTED TO A' 00474000
AGO .CON1 00475000
.SPOL1 ANOP 00476000
DC XL4'00' - RDEVCLAS 00477000
AGO .CON1 00478000
.LEN1 ANOP 00479000
DC CL1'&CLASS(1)',XL3'00' - RDEVCLAS 00480000
AGO .CON1 00481000
.LEN2 ANOP 00482000
DC CL2'&CLASS(1)&CLASS(2)',XL2'00' - RDEVCLAS 00483000
AGO .CON1 00484000
.LEN3 ANOP 00485000
DC CL3'&CLASS(1)&CLASS(2)&CLASS(3)',XL1'00' RDEVCLAS 00486000
AGO .CON1 00487000
.LEN4 ANOP 00488000
DC CL4'&CLASS(1)&CLASS(2)&CLASS(3)&CLASS(4)' RDEVCLAS 00489000
.CON1 ANOP 00490000
DC F'0' - RDEVIOCT 00491000
DC A(0) - RDEVAIOB 00492000
AIF ('&TYPE' NE 'TYP3800').CON1A @V60B9BA 00492010
DC A(0) - RDEVDELP @V60B9BA 00492020
DC AL1(22) - RDEVCURP @V60B9BA 00492030
DC AL1(0) - SPARE @V60B9BA 00492040
DC AL1(&DPMSIZE) - RDEVMAXP @V60B9BA 00492050
DC AL1(&FCB) - RDEVFSEP @V60B9BA 00492060
DC CL4'&CHARS' - RDEVXSEP @V60B9BA 00492070
DC XL4'00' - RDEVEXTN @V60B9BA 00492080
DC CL8'&IMAGE' - RDEVIMAG @V60B9BA 00492090
DC CL4' ' - RDEVOVLY @V60B9BA 00492100
DC XL2'00' - RDEVQCNT,RDEVSTA2 @V60B9BA 00492110
AGO .CON2A @V60B9BA 00492120
.CON1A ANOP @V60B9BA 00492130
DC V(DMKSYSVM) - RDEVUSER 00493000
DC H'0' - RDEVATT 00494000
AIF ('&TYPE' EQ 'TYPBSC').RGRAP @V2D3931 00495000
AIF ('&TYPC' EQ 'CLASGRAF').LOCGRAF 00495100
AIF (&FEP).GENFP 00496000
&SZLEN SETA 82 LENGTH OF THE TERMINAL OUTPUT LINE (130) 00500000
AIF ('&TYPC' EQ 'CLASTERM' AND '&TYPE' NE 'TYP2955').GENCON 00501100
DC H'0' RDEVCYL 00501200
DC CL6' ' RDEVSER 00501300
DC H'0' RDEVLNKS 00501400
DC 8X'00' - RDEVTCTL 00504000
AGO .CON2 00505000
.GENCON ANOP 00505100
DC H'0' RDEVCYL 00505200
DC A(0) RESERVED 00505300
DC AL1(&TRMCD) RDEVTMCD 00505400
DC XL3'00' RESERVED 00505500
AGO .TCTL 00505600
.GENFP ANOP 00506000
DC H'0' - RDEVMAX 00507000
DC CL8'&CPNAME ' -RDEVNCP 00508000
DC A(0) - RDEVNICL 00509000
DC A(0) - RDEVNIOB 00510000
AGO .CON2 00511000
.RGRAP ANOP 00512000
DC AL2(&INDEX) RDEVMAX 00513000
DC A(0) RDEVBSC 00514000
DC XL4'05' RDEVPDLY 00515000
DC A(&CLUSTER) RDEVNICL 00516000
DC XL2'00' RESERVED 00517000
DC XL2'&BASE' RDEVBASE 00518000
AGO .CON2 @V2D3931 00519000
.LOCGRAF ANOP 00519050
AIF ('&DEVTYPE' EQ '3278' AND '&MODEL' EQ '5').LG5 HRC073DK 00519060
&SZLEN SETA 50 LENGTH OF THE GRAPHIC OUTPUT LINE (80) 00519100
AGO .SZSET HRC073DK 00519110
.LG5 ANOP HRC073DK 00519120
&SZLEN SETA 84 HEX LENGTH OF GRAPHIC LINE (3278-5) HRC073DK 00519130
.SZSET ANOP HRC073DK 00519140
DC H'0' RDEVCORD 00519150
AIF ('&TYPE' EQ 'TYP3277' OR '&TYPE' EQ 'TYP3278' OR +00519200
'&TYPE' EQ 'TYP3158').GRTB 00519250
DC A(0) RESERVED 00519280
DC AL1(&TRMCD) RDEVTMCD 00519300
DC XL3'00' RESERVED 00519320
AGO .TCTL 00519350
.GRTB ANOP 00519400
DC V(&RNMDLC) RDEVGRTB 00519450
DC AL1(&TRMCD) RDEVTMCD 00519480
DC AL1(0) RESERVED HRC072DK 00519500
DC AL1(&DYNRPQ) RDEVGRIC HRC072DK 00519600
DC AL1(0) RESERVED HRC072DK 00519700
.TCTL ANOP 00520000
DC H'0' RDEVRCNT 00521000
DC X'00' RDEVTFLG 00522000
DC AL1(&RNMDLA) RDEVGRTY 00523000
DC X'&SZLEN' RDEVLLEN 00524000
DC X'00' RDEVATNC 00525000
DC XL2'&BASE' RDEVBASE 00526000
.CON2 ANOP 00527000
DC XL4'00' - RDEVTMAT HRC011DK 00528010
DC XL1'00' - RDEVQCNT HRC011DK 00528020
DC XL1'00' - RDEVSTA2 HRC011DK 00528030
.CON2A ANOP @V60B9BA 00528100
AIF ('&TYPC' EQ 'CLASTERM' AND ('&TYPE' NE 'TYP2700' AND *00529000
'&TYPE' NE 'TYP2955' AND '&TYPE' NE 'TYPBSC' AND *00530000
'&TYPE' NE 'TYPSDLC')).STSAD 00531000
AIF ('&TYPC' EQ 'CLASTAPE').STMODN 00532000
AIF ('&TYPE' NE 'TYP3277' AND '&TYPE' NE 'TYP3278' AND C00532110
'&TYPE' NE 'TYP3158').CONT1 00532150
AIF ('&DEVTYPE' EQ '3277' AND X00532160
'&MODEL' NE '').DEFMDL @VA10011 00532161
AIF ('&MODEL' NE '').STMOD78 00532200
AGO .OKMDL @VA10011 00532210
.DEFMDL ANOP 00532215
MNOTE 0,'MODEL NOT REQUIRED. DEFAULT MODEL 2 USED.' @VA10011 00532220
.OKMDL ANOP 00532225
DC AL1(2) RDEVMDL 00532300
AGO .STFTRC 00532400
.CONT1 ANOP 00532500
AIF ('&TYPE' EQ 'TYP3203' AND '&MODEL' EQ C00533000
'4').STMODN 00534000
AIF ('&TYPE' EQ 'TYP3203' AND '&MODEL' EQ '5' OR '&MODEL' EQC00535500
'4').STMODN 00536000
AIF ('&TYPE' EQ 'TYP3203' AND '&MODEL' EQ '').STMOD4 00536500
AIF ('&TYPE' EQ 'TYP3330' AND '&MODEL' EQ '').STMOD0 00537000
AIF ('&TYPE' EQ 'TYP3333' AND '&MODEL' EQ '').STMOD0 00538000
AIF ('&TYPE' EQ 'TYP3340' AND '&MODEL' EQ '').STMOD0 00539000
AIF ('&TYPE' EQ 'TYP3350' AND '&MODEL' EQ '').STMOD0 00540000
AIF ('&TYPE' EQ 'TYP3380' AND '&MODEL' EQ '').STMOD0 HRC011DK 00540500
AIF ('&TYPE' EQ 'TYP3330' OR '&TYPE' EQ 'TYP2305').STMODN 00541000
AIF ('&TYPE' EQ 'TYP3333').STMODN 00542000
AIF ('&TYPE' EQ 'TYP3380').STMODN HRC011DK 00542500
AIF ('&TYPE' EQ 'TYP2301' OR '&TYPE' EQ 'TYP2303').STMODDK 00543000
AIF ('&TYPE' EQ 'TYP2321' OR '&TYPE' EQ 'TYP2311').STMODDK 00544000
AIF (NOT &FEP).CKMODN 00545000
DC AL1(&RNMDLA) - RDEVMDL 00546000
AGO .STFTRC 00547000
.STMOD4 ANOP 00548000
DC AL1(4) - RDEVMDL (3203 DEFAULT VALUE) 00549000
AGO .STFTRC 00550000
.CKMODN AIF ('&MODEL' EQ '').STMOD0 00551000
MNOTE 0,'MODEL NUMBER IGNORED' 00552000
.STMOD0 DC AL1(0) - RDEVMDL 00553000
AGO .STFTRC 00554000
.STMODDK ANOP 00555000
DC AL1(&DKMODEL) -RDEVMDL 00556000
AGO .STFTRC 00557000
.STMOD78 AIF ('&MODEL' EQ 'DYNAMIC').STRPQ78 HRC072DK 00558000
AIF ('&MODEL' NE '2A').STMODN HRC072DK 00558050
DC X'2A' - RDEVMDL 00558100
AGO .STFTRC 00558200
.STRPQ78 DC AL1(2) RDEVMDL HRC072DK 00558240
AGO .STFTRC HRC072DK 00558250
.STMODN DC AL1(&MODEL) - RDEVMDL 00558300
.STFTRC DC AL1(&FTRCOD) - RDEVFTR 00559000
AGO .CON3 00560000
.STSAD ANOP 00561000
DC X'00' RESERVED 00562000
DC AL1(&SAD) - RDEVSADN 00563000
.CON3 ANOP 00564000
DC A(0) - RDEVIOER 00565000
DC A(0) - RDEVCTRS 00566000
&INCR SETA 1 INCREMENT 00567000
&TOTNUM SETA K'&DEVTYPE 00568000
.NAMELP ANOP 00569000
AIF ('&DEVTYPE'(&INCR,1) LT '0' OR '&DEVTYPE'(&INCR,1) GT X00570000
'9').SETNAME 00571000
&INCR SETA &INCR+1 GET NEXT CHARACTER 00572000
AIF ('&INCR' GT '&TOTNUM').SETNAME 00573000
AGO .NAMELP 00574000
.SETNAME ANOP 00575000
&INCR SETA &INCR-1 TOTAL NUMBER CHARS IN RDEVTYPE 00576000
&DEVNAME SETC '&DEVTYPE'(1,&INCR) 00577000
AIF ('&INCR' NE '0' AND '&INCR' LE '4').VLDNAME 00578000
&DEVNAME SETC '0' SPECIAL DEVICE NAME 00579000
.VLDNAME ANOP 00580000
DC XL2'&DEVNAME' RDEVNAME 00581000
AIF ('&RDVSTA3' NE '').RDVSTA3 HRC011DK 00582110
DC AL1(0) RDEVSTA3 HRC011DK 00582120
AGO .CONTSTA HRC011DK 00582130
.RDVSTA3 ANOP HRC011DK 00582140
DC AL1(&RDVSTA3) RDEVSTA3 HRC011DK 00582150
.CONTSTA ANOP HRC011DK 00582160
DC X'00' RDEVPCNT @VA10487 00582200
DC F'0' RESERVED FOR IBM USE 00583000
SPACE 3 00584000
.* 00585000
AIF ('&DEVTYPE' EQ '1403' OR '&DEVTYPE' EQ '1443').RPRT 00586000
AIF ('&DEVTYPE' EQ '3211').RPRT 00587000
AIF ('&DEVTYPE' EQ '3800').RPRT @V60B9BA 00587100
AIF ('&DEVTYPE' EQ '3203').RPRT 00588000
AIF ('&DEVTYPE' EQ '2540R' OR '&DEVTYPE' EQ '3505').RRDR 00589000
AIF ('&DEVTYPE' EQ '2501').RRDR 00590000
AIF ('&DEVTYPE' EQ '2540P' OR '&DEVTYPE' EQ '3525').RPUN 00591000
AIF ('&DEVTYPE' EQ '2520P').RPUN 00592000
AIF (&FEP).RPCU 00593000
.NEXT ANOP 00594000
&RDVCNT SETA &RDVCNT+1 ADD ONE TO NUMBER OF RDEVBLOK'S 00595000
AIF (&DUMY).CKMDL BRANCH IF DUMMY 370X RDEVBLOK 00596000
&COUNT SETA &COUNT-1 00597000
AIF (&COUNT EQ 0).GEND1 00598000
AIF (&DVADDR EQ 15).NEXTCU 00599000
&DVADDR SETA &DVADDR+1 00600000
AIF (NOT &FEP).LOOP 00601000
&TYPC SETC 'CLASTERM' 00602000
&TYPE SETC 'TYPUNDEF' 00603000
&TRMCD SETC 'RDEVPTTC' 00604000
&RDVFLG SETC 'RDEVPSUP' 00605000
&BASE SETC '&ADDRESS(1)' 00606000
&SAD SETA 4 00607000
&FEP SETB 0 00608000
AGO .LOOP 00609000
.CKMDL ANOP 00610000
&DMCT SETA &DMCT-1 00611000
AIF (&DMCT EQ 0).GEND 00612000
&NAME SETC 'RDM'.'&ADDRESS(1)'(1,2).'&DMCT' 00613000
AGO .N1ST 00614000
.* 00615000
.GEND1 AIF (&DMCT EQ 0).GEND 00616000
&FEP SETB 0 00617000
&DUMY SETB 1 00618000
&RDEVADD SETC 'FFFF' 00619000
&RDEVCUA SETC '0' 00620000
&TRMCD SETC '0' 00621000
&RDVFLG SETC '0' 00622000
&SAD SETA 4 00623000
&TYPC SETC 'CLASTERM' 00624000
&TYPE SETC 'TYPUNDEF' 00625000
&NAME SETC 'RDM'.'&ADDRESS(1)'(1,2).'&DMCT' 00626000
AGO .N1ST 00627000
.* 00628000
.NEXTCU ANOP 00629000
&DVADDR SETA 0 00630000
&CUADDA SETA &CUADDA+1 00631000
AIF (&CUADDA GT 15).ERR1 00632000
AIF ('&ALTCU' EQ '').LOOP 00632200
&DVADDRB SETA 0 00632300
&CUADDB SETA &CUADDB+1 00632400
AGO .LOOP 00633000
.* 00634000
.RPRT AIF (&RPRTCNT EQ 32).ERR10 00635000
&RPRTCNT SETA &RPRTCNT+1 00636000
&RPRNTRS(&RPRTCNT) SETC '&NAME'(4,3) 00637000
AGO .NEXT 00638000
.* 00639000
.RRDR AIF (&RRDRCNT EQ 32).ERR13 00640000
&RRDRCNT SETA &RRDRCNT+1 00641000
&RREADRS(&RRDRCNT) SETC '&NAME'(4,3) 00642000
AGO .NEXT 00643000
.* 00644000
.RPUN AIF (&RPUNCNT EQ 32).ERR11 00645000
&RPUNCNT SETA &RPUNCNT+1 00646000
&RPUNCHS(&RPUNCNT) SETC '&NAME'(4,3) 00647000
AGO .NEXT 00648000
.* 00649000
.RPCU AIF (&RPCCNT EQ 16).ERR14 00650000
&RPCCNT SETA &RPCCNT+1 00651000
&RPCCU(&RPCCNT) SETC '&NAME'(4,3) 00652000
AGO .NEXT 00653000
.ERR1 MNOTE 8,'INVALID DEVICE ADDRESS' 00654000
MEXIT 00655000
.ERR2 MNOTE 8,'INVALID DEVICE TYPE' 00656000
MEXIT 00657000
.ERR2A MNOTE 8,'MORE THAN 16 DEVICES SPECIFIED' 00658000
MEXIT 00659000
.ERR3 MNOTE 8,'MORE THAN 256 DEVICES' 00660000
MEXIT 00661000
.ERR4 MNOTE 8,'MODEL NUMBER INVALID OR NOT SPECIFIED' @VA03813 00662000
MEXIT 00663000
.ERR5 MNOTE 8,'INVALID ALTCU ADDRESS' 00663200
MEXIT 00663400
.ERR6 MNOTE 8,'INVALID ADAPTER TYPE' 00664000
MEXIT 00665000
.ERR7 MNOTE 8,'INVALID SETADDR VALUE' 00666000
MEXIT 00667000
.ERR8 MNOTE 8,'INVALID FEATURE SPECIFIED' 00668000
MEXIT 00669000
.ERR9 MNOTE 8,'INVALID CLASS PARAMETER' 00670000
MEXIT 00671000
.ERR10 MNOTE 0,'MORE THAN 32 PRINTERS' 00672000
AGO .NEXT 00673000
.ERR11 MNOTE 0,'MORE THAN 32 PUNCHES' 00674000
AGO .NEXT 00675000
.ERR12 MNOTE 8,'INVALID PARAMETER COMBINATION' 00676000
MEXIT 00677000
.ERR13 MNOTE 0,'MORE THAN 32 READERS' 00678000
AGO .NEXT 00679000
.ERR14 MNOTE 0,'MORE THAN 16 T/P CONCENTRATORS AND LINES' 00680000
AGO .NEXT 00681000
.ERR15 MNOTE 12,'RDEVICE MACRO OUT OF SEQUENCE' 00682000
MEXIT @V2D3931 00683000
.INVNAM1 MNOTE 8,'INVALID CLUSTER OPERAND' 00684000
MEXIT @VA02100 00685000
.INVNAM2 MNOTE 8,'ADDRESS OPERAND DOES NOT MATCH ANY CLUSTER' 00685100
MEXIT @VA10744 00685200
.ERR16 MNOTE 8,'ONLY ONE 3066 OR 3158 CONSOLE ALLOWED' @VA02052 00686000
MEXIT @VA06261 00686500
.ERR17 MNOTE 8,'3203 PRINTER MODEL NUMBER MUST BE 4 OR 5' 00687000
MEXIT 00688000
.ERR18 MNOTE 0,'3203 MODEL 4 MUST BE CONNECTED TO CHAN 0' 00689000
AGO .URPRT 00690000
MEXIT 00691000
.ERR19 MNOTE 8,'''ALTCU'' IS INVALID FOR DEVICE TYPE ''&DEVTYPE''' 00692000
MEXIT @V60B9BA 00692100
.ERR20 MNOTE 8,'INVALID 3800 IMAGE LIBRARY' @V60B9BA 00692200
MEXIT @V60B9BA 00692300
.ERR21 MNOTE 8,'INVALID ''CHARS'' SPECIFIED FOR 3800' @V60B9BA 00692400
MEXIT @V60B9BA 00692500
.ERR22 MNOTE 8,'INVALID 3800 ''FCB'' - MUST BE 6, 8, OR 12' @V60B9BA 00692600
MEXIT @V60B9BA 00692700
.ERR23 MNOTE 8,'INVALID DELAYED PURGE QUEUE SIZE' @V60B9BA 00692800
.GEND MEND 00693000