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