Retro1.org codex

User Tools

Site Tools

Trace: • RDEVICE Source
ibm:vm370-lib:macro:rdevice.macro_src

Table of Contents

RDEVICE Source

References

Source Listing

RDEVICE.MACRO.txt 
  1.          MACRO                                                          00001000
  2.          RDEVICE  &ADDRESS=,&DEVTYPE=,&MODEL=,&FEATURE=,&ALTCU=,       *00002000
  3.                &CLASS=,&ADAPTER=,&SETADDR=,&BASEADD=0,                 *00003000
  4.                &MAXDIAL=,&CPNAME=,&CPTYPE=EP,&CLUSTER=0,               *00004000
  5.                &IMAGE=IMAG3800,&CHARS=GF10,&FCB=6,&DPMSIZE=1   @V60B9BA 00004100
  6. .*  THIS MACRO GENERATES A REAL DEVICE BLOCK                            00005000
  7.          GBLA  &CHADDR,&CUADDR,&DVADDR,&DVADDRB,&DEC                    00006000
  8.          GBLA  &RDVCNT,&RPRTCNT,&RPUNCNT,&RRDRCNT                       00007000
  9.          GBLA  &RCUCNT,&RCHCNT,&RPCCNT,&RPCLST(16),&DIAL75(16)          00008000
  10.          GBLC  &RPCCU(16)                                      @V2D3931 00009000
  11.          GBLB  &RCODE                                                   00010000
  12.          GBLC  &RPRNTRS(32),&RPUNCHS(32),&RREADRS(32)                   00011000
  13.          GBLC  &HEX,&NAME                                               00012000
  14.          LCLA  &RNMDLA                                                  00013000
  15.          LCLA  &COUNT,&INDEX,&SAD,&DMCT,&SZLEN                          00014000
  16.          LCLA  &DKMODEL                                                 00015000
  17.          LCLA  &CHADDA,&CHADDB,&CUADDA,&CUADDB,&INCR,&TOTNUM            00016000
  18.          LCLB  &TRACK7,&DUALDNS,&TRANS,&CONV,&UNVCHST,&OPREAD           00017000
  19.          LCLB  &WCGMS4                                         @V60B9BA 00017100
  20.          LCLB  &FEP,&DUMY,&VIRT                                         00018000
  21.          LCLC  &RDVFLG,&FTRCOD,&BASE                                    00019000
  22.          LCLC  &RDVSTA                                                  00019100
  23.          LCLC  &RDVSTA3                                        HRC011DK 00019500
  24.          LCLC  &RNMDLC                                                  00020000
  25.          LCLC  &RDEVADD,&RDEVBDD,&RDEVCUA,&RDEVCUB,&TYPC,&TYPE,&TRMCD   00021000
  26.          LCLC  &RCUADD,&RCUBDD,&DEVNAME,&DUMMY                          00022000
  27.          LCLC  &DYNRPQ                                         HRC072DK 00022500
  28. .*                                                                      00023000
  29. .*       CHECK FOR VALID MACRO SEQUENCE IN 'DMKRIO'                     00024000
  30. .*                                                                      00025000
  31.          AIF   (&RCUCNT NE 0 OR &RCHCNT NE 0).ERR15                     00026000
  32. .*       VALIDATE ADDRESS, DEVTYPE OPERANDS                             00027000
  33.          AIF   ('&ADDRESS'(1,1) NE '(' AND K'&ADDRESS GT 3).ERR1        00028000
  34.          AIF   ('&ADDRESS'(1,1) EQ '(' AND K'&ADDRESS GT 9).ERR1        00029000
  35.          AIF   (T'&DEVTYPE EQ 'O').ERR2                                 00030000
  36. .* CHECK FOR INVALID CLUSTER OPERAND                                    00031000
  37.          AIF   ('&CLUSTER' NE '0' AND                                  *00032000
  38.                '&ADAPTER' NE 'BSCA').INVNAM1                   @VA03687 00033000
  39. .*                                                                      00034000
  40. .*       DECOMPOSE ADDRESS INTO CHANNEL, CONTROL UNIT, DEVICE ADDRS     00035000
  41. .*                                                                      00036000
  42.          AIF   (K'&ADDRESS(1) NE 3).ERR1                                00037000
  43. &HEX     SETC  '&ADDRESS(1)'(1,1)                                       00038000
  44.          HEXDEC                                                         00039000
  45.          AIF   (&RCODE).ERR1                                            00040000
  46. &CHADDA  SETA  &DEC                                                     00041000
  47. &HEX     SETC  '&ADDRESS(1)'(2,1)                                       00042000
  48.          HEXDEC                                                         00043000
  49.          AIF   (&RCODE).ERR1                                            00044000
  50. &CUADDA  SETA  &DEC                                                     00045000
  51. &HEX     SETC  '&ADDRESS(1)'(3,1)                                       00046000
  52.          HEXDEC                                                         00047000
  53.          AIF   (&RCODE).ERR1                                            00048000
  54. &DVADDR  SETA  &DEC                                                     00049000
  55. &RDEVADD SETC  '0'                                                      00050000
  56.          AIF   (&DVADDR LT 8).LOWA                                      00051000
  57. &RDEVADD SETC  '8'                                                      00052000
  58. .LOWA    ANOP                                                           00053000
  59. &RDEVCUA SETC  'RCU'.'&ADDRESS(1)'(1,2).'&RDEVADD'                      00054000
  60. &RDEVCUB SETC  '0'                                                      00054100
  61.          AIF   ('&ALTCU' EQ '').NOALT                                   00054200
  62.          AIF   (K'&ALTCU  NE 3).ERR5                                    00054300
  63. &HEX     SETC  '&ALTCU'(1,1)                                            00054400
  64.          HEXDEC                                                         00054500
  65.          AIF   (&RCODE).ERR5                                            00054600
  66. &CHADDB  SETA  &DEC                                                     00054700
  67. &HEX     SETC  '&ALTCU'(2,1)                                            00054800
  68.          HEXDEC                                                         00054900
  69.          AIF   (&RCODE).ERR5                                            00055000
  70. &CUADDB  SETA  &DEC                                                     00055100
  71. &HEX     SETC  '&ALTCU'(3,1)                                            00055300
  72.          HEXDEC                                                         00055400
  73.          AIF   (&RCODE).ERR5                                            00055500
  74. &DVADDRB SETA  &DEC                                                     00055600
  75.          AIF   (&DVADDRB NE 0 AND &DVADDRB NE 8).ERR5                   00055650
  76. .NOALT   ANOP                                                           00055700
  77. .*                                                                      00056000
  78. .*       DECODE THE FEATURE PARAMETER                                   00057000
  79. .*                                                                      00058000
  80. &INDEX   SETA  0                                                        00059000
  81. &FTRCOD  SETC  '0'                                                      00060000
  82. &DMCT    SETA  0                                                        00061000
  83.          AIF   (T'&FEATURE EQ 'O').CKDT NO FEATURE GIVEN                00062000
  84. .FEAT    ANOP                                                           00063000
  85. &INDEX   SETA  &INDEX+1                                                 00064000
  86.          AIF   (&INDEX GT N'&FEATURE).CKDT                              00065000
  87.          AIF   ('&FEATURE(&INDEX)' EQ '7-TRACK').TRK7                   00066000
  88.          AIF   ('&FEATURE(&INDEX)' EQ 'DUALDENS').DUAL                  00067000
  89.          AIF   ('&FEATURE(&INDEX)' EQ 'TRANS').TRAN                     00068000
  90.          AIF   ('&FEATURE(&INDEX)' EQ 'CONV').CONV                      00069000
  91.          AIF   ('&FEATURE(&INDEX)' EQ '2CHANSW').CHAN                   00070000
  92.          AIF   ('&FEATURE(&INDEX)' EQ '4CHANSW').CHAN                   00071000
  93.          AIF   ('&FEATURE(&INDEX)' EQ 'UNVCHSET').UNVS                  00072000
  94.          AIF   ('&FEATURE(&INDEX)' EQ 'OPRDR').OPRDR                    00073000
  95.          AIF   ('&FEATURE(&INDEX)' EQ '4WCGMS').WCGM4          @V60B9BA 00073100
  96.          AIF   ('&FEATURE(&INDEX)' EQ 'VIRTUAL').VIRT1         @V60B6B8 00073500
  97.          AIF   ('&FEATURE(&INDEX)' EQ 'SYSVIRT').VIRT2         @V60B6B8 00073510
  98.          AGO   .ERR8                                                    00074000
  99. .TRK7    ANOP                                                           00075000
  100. &TRACK7  SETB  1                                                        00076000
  101. &FTRCOD  SETC  '&FTRCOD'.'+FTR7TRK'                                     00077000
  102.          AGO   .FEAT                                                    00078000
  103. .DUAL    ANOP                                                           00079000
  104. &DUALDNS SETB  1                                                        00080000
  105. &FTRCOD  SETC  '&FTRCOD'.'+FTRDLDNS'                                    00081000
  106.          AGO   .FEAT                                                    00082000
  107. .TRAN    ANOP                                                           00083000
  108. &TRANS   SETB  1                                                        00084000
  109. &FTRCOD  SETC  '&FTRCOD'.'+FTRTRANS'                                    00085000
  110.          AGO   .FEAT                                                    00086000
  111. .CONV    ANOP                                                           00087000
  112. &CONV    SETB  1                                                        00088000
  113. &FTRCOD  SETC  '&FTRCOD'.'+FTRDCONV'                                    00089000
  114.          AGO   .FEAT                                                    00090000
  115. .CHAN    ANOP                                                           00091000
  116.          MNOTE 0,'''&FEATURE(&INDEX)'' FEATURE IGNORED'                 00092000
  117.          AGO   .FEAT                                                    00092250
  118. .VIRT1   ANOP                                                           00092500
  119.          AIF   ('&DEVTYPE' NE '3330').ERR8                              00092750
  120. &VIRT    SETB  1                                                        00093000
  121. &FTRCOD  SETC  '&FTRCOD'.'+VIRTUAL'                            @V60B6B8 00093250
  122.          AGO   .FEAT                                                    00093500
  123. .VIRT2   ANOP                                                           00093501
  124.          AIF   ('&DEVTYPE' NE '3330').ERR8                     @V60B6B8 00093502
  125. &VIRT    SETB  1                                               @V60B6B8 00093503
  126. &FTRCOD  SETC  '&FTRCOD'.'+SYSVIRT'                            @V60B6B8 00093504
  127.          AGO   .FEAT                                           @V60B6B8 00093505
  128. .UNVS    ANOP                                                           00095000
  129. &UNVCHST SETB  1                                                        00096000
  130. &FTRCOD  SETC  '&FTRCOD'.'+FTRUCS'                                      00097000
  131.          AGO   .FEAT                                                    00098000
  132. .WCGM4   ANOP                                                  @V60B9BA 00098100
  133. &WCGMS4  SETB  1                                               @V60B9BA 00098200
  134. &FTRCOD  SETC  '&FTRCOD'.'+FTR4WCGM'                           @V60B9BA 00098300
  135.          AGO   .FEAT                                           @V60B9BA 00098400
  136. .OPRDR   ANOP                                                           00099000
  137.          AIF   ('&DEVTYPE' EQ '3158').ERR8                     @VA02100 00100000
  138. &OPREAD  SETB  1                                                        00101000
  139. &FTRCOD  SETC  '&FTRCOD'.'+FTROPRDR'                                    00102000
  140.          AIF   ('&DEVTYPE' NE '3277' OR '&DEVTYPE' NE '3278').ERR8      00103000
  141.          AGO   .FEAT                                                    00104000
  142. .*                                                                      00105000
  143. .*       VALIDATE AND SEPARATE OUT THE VARIOUS DEVICE TYPES             00106000
  144. .*                                                                      00107000
  145. .CKDT    ANOP                                                           00108000
  146. &COUNT   SETA  1                                                        00109000
  147. &RDVFLG  SETC  '0'                                                      00110000
  148. &RDVSTA  SETC  'RDEVDISA'                                               00110100
  149. &TYPC    SETC  'CLASTERM'                                               00111000
  150. &BASE    SETC  '&BASEADD'                                               00112000
  151. .*                                                                      00113000
  152.          AIF   ('&BASEADD' NE '0' AND '&DEVTYPE' NE '3705' AND         *00114000
  153.                '&DEVTYPE' NE '3704').ERR12                              00115000
  154. .*                                                                      00116000
  155.          AIF   ('&DEVTYPE' EQ '1052' OR '&DEVTYPE' EQ '3210').CONS      00117000
  156.          AIF   ('&DEVTYPE' EQ '3215' OR '&DEVTYPE' EQ '2150').CONS      00118000
  157. .*                                                                      00119000
  158.          AIF   ('&DEVTYPE' EQ '2701' OR '&DEVTYPE' EQ '2955').SAD1      00120000
  159.          AIF   ('&DEVTYPE' EQ '2702').SAD2                              00121000
  160.          AIF   ('&DEVTYPE' EQ '2703' OR '&DEVTYPE' EQ 'ICA').SAD3       00122000
  161.          AIF   ('&DEVTYPE' EQ '3704' OR '&DEVTYPE' EQ '3705').PCCU      00123000
  162. .*                                                                      00124000
  163.          AIF   ('&DEVTYPE' EQ '2260' OR '&DEVTYPE' EQ '2265').GRAF      00125000
  164.          AIF   ('&DEVTYPE' EQ '1053' OR '&DEVTYPE' EQ '2250').GRAF      00126000
  165.          AIF   ('&DEVTYPE' EQ '3277' OR '&DEVTYPE' EQ '3284').GRAF      00127000
  166.          AIF   ('&DEVTYPE' EQ '3278' OR '&DEVTYPE' EQ '3287').GRAF      00127500
  167.          AIF   ('&DEVTYPE' EQ '3286' OR '&DEVTYPE' EQ '3066').GRAF      00128000
  168.          AIF   ('&DEVTYPE' EQ '3158' OR '&DEVTYPE' EQ '3288').GRAF      00129000
  169.          AIF   ('&DEVTYPE' EQ '3138' OR '&DEVTYPE' EQ '3148').GRAF      00131000
  170.          AIF   ('&DEVTYPE' EQ '3036').GRAF                              00131100
  171. .*                                                                      00132000
  172.          AIF   ('&DEVTYPE' EQ '1403' OR '&DEVTYPE' EQ '1443').URPRT     00133000
  173.          AIF   ('&DEVTYPE' EQ '3211' OR '&DEVTYPE' EQ '1018').URPRT     00134000
  174.          AIF   ('&DEVTYPE' EQ '3800').PRT3800                  @V60B9BA 00134100
  175.          AIF   ('&DEVTYPE' EQ '3203').PRT3203                           00135000
  176.          AIF   ('&DEVTYPE' EQ '2540P' OR '&DEVTYPE' EQ '1442P').URPUN   00136000
  177.          AIF   ('&DEVTYPE' EQ '2520P' OR '&DEVTYPE' EQ '3525').URPUN    00137000
  178. .*                                                                      00138000
  179.          AIF   ('&DEVTYPE' EQ '2540R' OR '&DEVTYPE' EQ '2520R').URDVI   00139000
  180.          AIF   ('&DEVTYPE' EQ '3505' OR '&DEVTYPE' EQ '1442R').URDVI    00140000
  181.          AIF   ('&DEVTYPE' EQ '2495' OR '&DEVTYPE' EQ '2671').URDVI     00141000
  182.          AIF   ('&DEVTYPE' EQ '1017' OR '&DEVTYPE' EQ '2501').URDVI     00142000
  183. .*                                                                      00143000
  184.          AIF   ('&DEVTYPE' EQ '2401' OR '&DEVTYPE' EQ '2402').TAPE      00144000
  185.          AIF   ('&DEVTYPE' EQ '2403' OR '&DEVTYPE' EQ '2404').TAPE      00145000
  186.          AIF   ('&DEVTYPE' EQ '2420' OR '&DEVTYPE' EQ '3420').TAPE      00146000
  187.          AIF   ('&DEVTYPE' EQ '3410' OR '&DEVTYPE' EQ '3411').TAPE      00147000
  188.          AIF   ('&DEVTYPE' EQ '2415').TAPE                              00148000
  189. .*                                                                      00149000
  190.          AIF   ('&DEVTYPE' EQ '2311' OR '&DEVTYPE' EQ '2314').DISK      00150000
  191.          AIF   ('&DEVTYPE' EQ '2321' OR '&DEVTYPE' EQ '3330').DISK      00151000
  192.          AIF   ('&DEVTYPE' EQ '2301' OR '&DEVTYPE' EQ '2303').DISK      00152000
  193.          AIF   ('&DEVTYPE' EQ '2305' OR '&DEVTYPE' EQ '2319').DISK      00153000
  194.          AIF   ('&DEVTYPE' EQ '3333' OR '&DEVTYPE' EQ '3340').DISK      00154000
  195.          AIF   ('&DEVTYPE' EQ '3350').DISK                              00155000
  196.          AIF   ('&DEVTYPE' EQ '3380').DISK                     HRC011DK 00155500
  197. .*                                                                      00156000
  198.          AIF   ('&DEVTYPE' EQ 'CTCA').SPEC                              00157000
  199.          AIF   ('&DEVTYPE' EQ '3851').SPEC                              00157500
  200.          AIF   ('&DEVTYPE' EQ '7443').SRF                               00157700
  201.          MNOTE 4,'UNSUPPORTED DEVICE TYPE'                              00158000
  202. &TYPC    SETC  'CLASSPEC'                                               00159000
  203. &TYPE    SETC  'TYPUNSUP'                                               00160000
  204.          AIF   ('&CLASS' EQ '').CKCZ                                    00161000
  205. &FTRCOD  SETC  'CLAS'.'&CLASS'     DEVICE SUB-CLASS                     00162000
  206.          AIF   ('&CLASS' EQ 'DASD' OR '&CLASS' EQ 'TAPE').CKCZ          00163000
  207.          AIF   ('&CLASS' EQ 'TERM' OR '&CLASS' EQ 'GRAF').CKCZ          00164000
  208.          AIF   ('&CLASS' EQ 'URI' OR '&CLASS' EQ 'URO').CKCZ            00165000
  209.          AGO   .ERR9          INVALID CLASS PARAMETER                   00166000
  210. .*                                                                      00167000
  211. .SAD1    AIF   ('&SETADDR' NE '').ERR7                                  00168000
  212.          AGO   .SAD4                                                    00169000
  213. .SAD2    AIF   ('&SETADDR' EQ '' OR '&SETADDR' GT '3').ERR7             00170000
  214. .SAD5    AIF   ('&SETADDR' LT '0' OR '&SETADDR' GT '4').ERR7            00171000
  215. &SAD     SETA  &SETADDR                                                 00172000
  216.          AGO   .TPDV                                                    00173000
  217. .SAD3    AIF   ('&SETADDR' NE '').SAD5                                  00174000
  218. .SAD4    ANOP                                                           00175000
  219. &SAD     SETA  4                                                        00176000
  220.          AIF   ('&DEVTYPE' EQ '2955').CONS                              00177000
  221. .TPDV    AIF   ('&ADAPTER' EQ 'BSCA').COMM                              00178000
  222.          AIF   ('&ADAPTER' EQ 'IBM1').UNDEF                             00179000
  223.          AIF   ('&ADAPTER' EQ 'SDLC').SDLC                     @V67CDF1 00179500
  224.          AIF   ('&ADAPTER' EQ 'TELE2').TTY                              00180000
  225.          AGO   .ERR6                                                    00181000
  226. .SDLC    ANOP                                                  @V67CDF1 00181100
  227.          AIF   ('&DEVTYPE' NE 'ICA').ERR6                      @V67CDF1 00181200
  228. &TYPE    SETC  'TYPSDLC'                                       @V67CDF1 00181300
  229. &TRMCD   SETC  '0'                                             @V67CDF1 00181400
  230.          AGO   .CKCX                                           @V67CDF1 00181500
  231. .CONS    ANOP                                                           00182000
  232. &TYPE    SETC  'TYP&DEVTYPE'                                            00183000
  233. &TRMCD   SETC  '00'                                                     00184000
  234.          AGO   .CKCX                                                    00185000
  235. .UNDEF   ANOP                                                           00186000
  236. &TYPE    SETC  'TYPUNDEF'                                               00187000
  237. &TRMCD   SETC  'RDEVPTTC'                                               00188000
  238. &RDVFLG  SETC  'RDEVPSUP'                                               00189000
  239.          AGO   .CKCX                                                    00190000
  240. .*                                                                      00191000
  241. .TTY     ANOP                                                           00192000
  242. &TYPE    SETC  'TYPTTY'                                                 00193000
  243. &TRMCD   SETC  'RDEVUSC8'                                               00194000
  244.          AGO   .CKCX                                                    00195000
  245. .*                                                                      00196000
  246. .COMM    ANOP                                                           00197000
  247. &TYPE    SETC  'TYP2700'      CLASTERM, TYP2700 = BSC LINE     @V2D3931 00198000
  248. &TRMCD   SETC  '0'            TERMINAL CODE = EBCDIC           @V2D3931 00199000
  249. &INDEX   SETA  0                                               @V2D3931 00200000
  250.          AIF   ('&CLUSTER' EQ '0').CKCX                        @V2D3931 00201000
  251. &TYPE    SETC  'TYPBSC'       CLASTERM, TYPBSC = 3270 REMOTE   @V2D3931 00202000
  252. .FINDT   ANOP                                                           00203000
  253. &INDEX   SETA  &INDEX+1                                        @V2D3931 00204000
  254.          AIF   ('&RPCCU(&INDEX)' EQ '&ADDRESS').FOUND          @V2D3931 00205000
  255.          AIF   (&INDEX LT &RPCCNT).FINDT                       @V2D3931 00206000
  256.          AGO   .INVNAM2       ADDRESS DOES NOT MATCH CLUSTER   @VA10744 00207100
  257. .FOUND   ANOP                                                           00208000
  258.          AIF   (&DIAL75(&INDEX) EQ 0).DIAL                              00209000
  259. &FTRCOD  SETC  '&FTRCOD'.'+FTRDIAL'                                     00210000
  260. .DIAL    ANOP                                                           00211000
  261. &INDEX   SETA  &RPCLST(&INDEX) NUMBER OF RESOURCES             @V2D3931 00212000
  262. &INDEX   SETA  &INDEX-1                                        @V2D3931 00213000
  263.          AGO   .CKCX                                                    00214000
  264. .* NOTE MODEL 5 IS RNMDLA 16                                            00215490
  265. .GRAF    ANOP                                                           00216000
  266. &TYPC    SETC  'CLASGRAF'                                               00217000
  267. &TRMCD   SETC  '00'                                                     00217100
  268. &DYNRPQ  SETC  '0'                                             HRC072DK 00217200
  269.          AIF   ('&DEVTYPE' EQ '3138' OR '&DEVTYPE' EQ                  C00218000
  270.                '3148').DEV158                                           00219000
  271.          AIF   ('&DEVTYPE' EQ '3036').DEV158                            00219100
  272. &TYPE    SETC  'TYP&DEVTYPE'                                            00220000
  273.          AGO   .NOT158                                                  00221000
  274. .DEV158  ANOP                                                           00222000
  275. &TYPE    SETC  'TYP3158'                                                00223000
  276. &RNMDLC  SETC  'DMKGRTB'                                                00223025
  277.          AGO   .GRTY0                                                   00223050
  278. .NOT158  ANOP                                                           00224000
  279. &RNMDLC  SETC  'DMKGRTB'                                                00224100
  280.          AIF   ('&DEVTYPE' NE '3278').GRTY0                             00224200
  281.          AIF   ('&MODEL' EQ 'DYNAMIC').RPQ3278                 HRC072DK 00224220
  282.          AIF   ('&MODEL' NE '5').NOT785                        HRC073DK 00224240
  283. &RNMDLA  SETA  16                                                       00224250
  284. &RNMDLC  SETC  'DMKGRXTB'                                      HRC073DK 00224260
  285.          AGO   .GRTY0                                          HRC073DK 00224270
  286. .NOT785  ANOP                                                  HRC073DK 00224280
  287.          AIF   ('&MODEL' NE '2A').NOT782A                      HRC101DK 00224340
  288. &RNMDLA  SETA  12                                                       00224400
  289. &RNMDLC  SETC  'DMKGRWTB'                                               00224500
  290.          AGO   .GRTY0                                          HRC101DK 00224610
  291. .NOT782A ANOP                                                  HRC101DK 00224620
  292.          AIF   ('&MODEL' NE '3').NOT783                        HRC101DK 00224630
  293. &RNMDLA  SETA  4                                               HRC101DK 00224640
  294. &RNMDLC  SETC  'DMKGRUTB'                                      HRC101DK 00224650
  295.          AGO   .GRTY0                                          HRC101DK 00224660
  296. .NOT783  ANOP                                                  HRC101DK 00224670
  297.          AIF   ('&MODEL' NE '4').NOT784                        HRC101DK 00224680
  298. &RNMDLA  SETA  8                                               HRC101DK 00224690
  299. &RNMDLC  SETC  'DMKGRVTB'                                      HRC101DK 00224700
  300.          AGO   .GRTY0                                          HRC101DK 00224710
  301. .NOT784  ANOP                                                  HRC101DK 00224720
  302.          AIF   ('&MODEL' NE '2').ERR4                          HRC101DK 00224730
  303.          AGO   .GRTY0                                          HRC072DK 00224800
  304. .RPQ3278 ANOP                                                  HRC072DK 00224810
  305. &DYNRPQ  SETC  'RDEVERPQ'     Flag bit in RDEVGRIC             HRC072DK 00224820
  306. .*                                                             HRC072DK 00224830
  307. .GRTY0   ANOP                                                  HRC072DK 00224840
  308. &SAD     SETA  0                                                        00225000
  309.          AIF   (T'&FEATURE EQ 'O').CKCT                                 00226000
  310.          AIF   (N'&FEATURE GT 0 AND '&FTRCOD'(6,5) NE 'OPRDR').ERR8     00227000
  311.          AIF   (N'&FEATURE GT 1).ERR8                                   00228000
  312.          AGO   .CKCT                                                    00229000
  313. .*                                                                      00230000
  314. .PCCU    AIF   ('&ADAPTER' EQ 'TYPE1' OR '&ADAPTER' EQ 'TYPE2').BASE    00231000
  315.          AIF   ('&ADAPTER' EQ 'TYPE3' OR '&ADAPTER' EQ 'TYPE4').BASE    00232000
  316.          AIF   ('&CPNAME' NE '' OR '&MAXDIAL' NE '').ERR12              00233000
  317.          AIF   ('&CPTYPE' NE 'EP' AND '&CPTYPE' NE 'PEP').ERR12         00234000
  318.          AGO   .SAD3                                                    00235000
  319. .BASE    ANOP                                                           00236000
  320. &TYPC    SETC  'CLASSPEC'     DEVICE CLASS                              00237000
  321. &TYPE    SETC  'TYP&DEVTYPE'  DEVICE TYPE                               00238000
  322. &FEP     SETB  1                                                        00239000
  323. &FTRCOD  SETC  'FTRTYP'.'&ADAPTER'(5,1)                                 00240000
  324. .CK37X   AIF   (('&CPTYPE' EQ 'EP' OR '&CPTYPE' EQ 'PEP') AND          *00241000
  325.                ('&ADAPTER' NE 'TYPE1' AND '&ADAPTER' NE 'TYPE4')).ERR12 00242000
  326.          AIF   ('&DEVTYPE' EQ '3704' AND '&ADAPTER' NE 'TYPE1').ERR12   00243000
  327.          AIF   ('&FEATURE' NE '').ERR8                                  00244000
  328.          AIF   ('&SETADDR' NE '').ERR7                                  00245000
  329.          AIF   ('&CLASS' NE '').ERR9                                    00246000
  330.          AIF   ('&MODEL' EQ '' OR K'&MODEL GT 2).ERR4                   00247000
  331.          AIF   (K'&MODEL EQ 2).MDLLET                                   00248000
  332. &RNMDLC  SETC  '&MODEL'(1,1)                                            00249000
  333.          AGO   .SETMDL2                                                 00250000
  334. .MDLLET  AIF   ('&MODEL'(1,1) LT 'A' OR '&MODEL'(1,1) GT 'H').ERR4      00251000
  335.          AIF   ('&MODEL'(1,1) NE 'A' AND '&DEVTYPE' EQ '3704').ERR4     00252000
  336. &RNMDLC  SETC  '&MODEL'(2,1)                                            00253000
  337.          AIF   ('&MODEL'(1,1) EQ 'A' AND '&RNMDLC' LE '2').SETMDL2      00254000
  338.          AIF   ('&MODEL'(1,1) EQ 'A' AND '&DEVTYPE' EQ '3705').ERR4     00255000
  339.          AIF   ('&MODEL'(1,1) EQ 'A' AND '&RNMDLC' LE '4').SETMDL2      00256000
  340.          AIF   ('&MODEL'(1,1) EQ 'B' AND '&RNMDLC' LE '4').SETMDL2      00257000
  341.          AIF   ('&MODEL'(1,1) EQ 'C' AND '&RNMDLC' LE '6').SETMDL2      00258000
  342.          AIF   ('&MODEL'(1,1) GE 'D' AND '&MODEL'(1,1) LE 'H').SETMDL2  00259000
  343.          AGO   .ERR4                                                    00260000
  344.          AIF   ('&MODEL'(1,1) LT 'B' AND '&RNMDLC' GT '2').ERR4         00261000
  345. .SETMDL2 AIF   ('&RNMDLC' LT '1' OR '&RNMDLC' GT '8').ERR4              00262000
  346.          AIF   ('&RNMDLC' GT '4' AND '&DEVTYPE' EQ '3704').ERR4         00263000
  347. &RNMDLA  SETA  &RNMDLC                                                  00264000
  348.          AIF   ('&DEVTYPE' EQ '3704').MDLCK                             00265000
  349. &RNMDLA  SETA  &RNMDLA*2                                                00266000
  350.          AIF   (K'&MODEL EQ 2 AND '&MODEL'(1,1) GT 'D').MDLCK           00267000
  351. &RNMDLA  SETA  &RNMDLA-1                                                00268000
  352. .MDLCK   AIF   (K'&MODEL EQ 2).MDLDONE                                  00269000
  353.          MNOTE 0,'MODEL SHOULD BE EXPRESSED AS 2 CHARACTERS'            00270000
  354. .MDLDONE ANOP                                                           00271000
  355.          AIF   ('&CPTYPE' EQ 'NCP' AND N'&ADDRESS NE 1).ERR12           00272000
  356.          AIF   ('&CPTYPE' NE 'PEP' AND '&MAXDIAL' NE '').ERR12          00273000
  357.          AIF   ('&CPNAME' EQ '').MAXD                                   00274000
  358. &RDVFLG  SETC  'RDEVAUTO'                                               00275000
  359. .MAXD    AIF   ('&CPTYPE' NE 'PEP' OR '&MAXDIAL' EQ '').CKCY            00276000
  360. &DMCT    SETA  &MAXDIAL                                                 00277000
  361.          AGO   .CKCY                                                    00278000
  362. .*                                                                      00279000
  363. .URPUN   ANOP                                                           00280000
  364.          AIF   (N'&FEATURE GT 0).ERR8                                   00281000
  365.          AGO   .URDVO                                                   00282000
  366. .PRT3800 ANOP                                                  @V60B9BA 00282100
  367.          AIF   (K'&IMAGE LT 1 OR K'&IMAGE GT 8).ERR20          @V60B9BA 00282200
  368.          AIF   (T'&IMAGE EQ 'N').ERR20                         @V60B9BA 00282300
  369.          AIF   (K'&CHARS LT 1 OR K'&CHARS GT 4).ERR21          @V60B9BA 00282400
  370.          AIF   ('&FCB'NE'6' AND '&FCB'NE'8' AND '&FCB'NE'12').ERR22     00282500
  371.          AIF   (T'&DPMSIZE NE 'N').ERR23                       @V60B9BA 00282600
  372.          AIF   (&DPMSIZE LT 1 OR &DPMSIZE GT 9).ERR23          @V60B9BA 00282700
  373. &FTRCOD  SETC  '&FTRCOD'.'+FTREXTSN'                           @V60B9BA 00282800
  374. .URPRT   ANOP                                                           00283000
  375.          AIF   (T'&FEATURE EQ 'O').URDVO                                00284000
  376.          AIF   (N'&FEATURE GT 1).ERR8                          @V60B9BA 00285000
  377.          AIF   (N'&FEATURE GT 0 AND '&FTRCOD'(6,3) EQ 'UCS').URDVO      00285100
  378.          AIF   ('&DEVTYPE' NE '3800').ERR8                     @V60B9BA 00285200
  379.          AIF   (N'&FEATURE GT 0 AND '&FTRCOD'(6,5) NE '4WCGM').ERR8     00286000
  380. .URDVO   ANOP                                                           00287000
  381.          AIF   (N'&CLASS GT 4).ERR9                                     00288000
  382. &TYPC    SETC  'CLASURO'                                                00289000
  383. &TYPE    SETC  'TYP&DEVTYPE'                                            00290000
  384. &RDVFLG  SETC  'RDEVDRAN+RDEVSEP'                                       00291000
  385.          AGO   .CKCZ                                                    00292000
  386. .*                                                                      00293000
  387. .URDVI   ANOP                                                           00294000
  388.          AIF   (N'&CLASS GT 4).ERR9                                     00295000
  389. &TYPC    SETC  'CLASURI'                                                00296000
  390. &TYPE    SETC  'TYP&DEVTYPE'                                            00297000
  391. &RDVFLG  SETC  'RDEVDRAN+RDEVSEP'                                       00298000
  392.          AIF   (N'&FEATURE GT 0).ERR8                                   00299000
  393.          AGO   .CKCZ                                                    00300000
  394. .*                                                                      00301000
  395. .TAPE    ANOP                                                           00302000
  396. &TYPC    SETC  'CLASTAPE'                                               00303000
  397.          AIF   (&UNVCHST OR &OPREAD OR &WCGMS4).ERR8           @V60B9BA 00304000
  398.          AIF   ('&DEVTYPE' EQ '2420').TAPE24                            00305000
  399.          AIF   ('&DEVTYPE' EQ '3410' OR '&DEVTYPE' EQ '3411').TAPE341   00306000
  400.          AIF   ('&DEVTYPE' EQ '3420').TAPE342                           00307000
  401.          AIF   (&TRACK7 AND &DUALDNS).ERR8                              00308000
  402. &TYPE    SETC  'TYP2401'                                                00309000
  403.          AIF   ('&DEVTYPE' EQ '2403').TAPE78                            00310000
  404.          AIF   ('&DEVTYPE' NE '2415').TAPE00                            00311000
  405. &TYPE    SETC  'TYP2415'                                                00312000
  406.          AGO   .TAPE78                                                  00313000
  407. .TAPE00  AIF   ('&MODEL' GE '1' AND '&MODEL' LE '3').TAPE78             00314000
  408.          AIF   ('&MODEL' GE '4' AND '&MODEL' LE '6').TAPE8              00315000
  409.          AIF   ('&DEVTYPE' NE '2415' AND '&MODEL' EQ '8').TAPE7         00316000
  410.          AGO   .ERR4                                                    00317000
  411. .TAPE78  AIF   (&TRACK7).TAPE7                                          00318000
  412.          AIF   (&TRANS OR &CONV).ERR8                                   00319000
  413.          AGO   .CKCT                                                    00320000
  414. .TAPE7   ANOP                                                           00321000
  415.          AIF   (&DUALDNS).ERR8                                          00322000
  416.          AGO   .CKCT                                                    00323000
  417. .TAPE8   ANOP                                                           00324000
  418.          AIF   (&TRACK7 OR &TRANS OR &CONV).ERR8                        00325000
  419.          AGO   .CKCT                                                    00326000
  420. .TAPE342 AIF   ('&MODEL' NE '' AND ('&MODEL' LT '3' OR                 *00327000
  421.                '&MODEL' GT '8')).ERR4                                   00328000
  422. &TYPE    SETC  'TYP&DEVTYPE'                                            00329000
  423.          AGO   .CKCT                                                    00330000
  424. .TAPE24  AIF   ('&MODEL' NE '' AND ('&MODEL' NE '5' AND '&MODEL' NE '7'*00331000
  425.                )).ERR4                                                  00332000
  426.          AIF   (&TRANS OR &CONV OR &TRACK7 OR &DUALDNS).ERR8            00333000
  427. &TYPE    SETC  'TYP&DEVTYPE'                                            00334000
  428.          AGO   .CKCT                                                    00335000
  429. .TAPE341 AIF   ('&MODEL' NE '' AND ('&MODEL' NE '1' AND '&MODEL' NE '2'*00336000
  430.                 AND '&MODEL' NE '3')).ERR4                              00337000
  431.          AIF   (&TRACK7 AND &DUALDNS).ERR8                     @VA04717 00338000
  432. &TYPE    SETC  'TYP&DEVTYPE'                                            00339000
  433.          AGO   .CKCT                                                    00340000
  434. .PRT3203 AIF   ('&MODEL' EQ '4' OR '&MODEL' EQ '').MOD3203              00341000
  435.          AIF   ('&MODEL' EQ '5').URPRT                                  00341100
  436.          AGO   .ERR17                                                   00342000
  437. .MOD3203 AIF   ('&CHADDA' EQ '0').URPRT                                 00343000
  438.          AGO   .ERR18                                                   00344000
  439. .*                                                                      00345000
  440. .DISK    ANOP                                                           00346000
  441. &TYPC    SETC  'CLASDASD'                                               00347000
  442.          AIF   (T'&FEATURE EQ 'O').DISKA                                00348000
  443.          AIF   (K'&FTRCOD LE 1).NOFTR                                   00348500
  444.          AIF   ('&FTRCOD'(3,7) EQ 'SYSVIRT').NOFTR             @V60B6B8 00349100
  445.          AIF   ('&FTRCOD'(3,7) EQ 'VIRTUAL').NOFTR             @V60B6B8 00349200
  446.          AGO   .ERR8                                           @V60B6B8 00349300
  447. .NOFTR   ANOP                                                           00349500
  448.          AIF   (N'&FEATURE GT 1).ERR8                                   00350000
  449. .DISKA   ANOP                                                           00351000
  450. &TYPE    SETC  'TYP&DEVTYPE'                                            00352000
  451.          AIF   ('&DEVTYPE' EQ '2301').DK2301                            00353000
  452.          AIF   ('&DEVTYPE' EQ '2303').DK2303                            00354000
  453.          AIF   ('&DEVTYPE' EQ '2321').DK2321                            00355000
  454.          AIF   ('&DEVTYPE' EQ '2311').DK2311                            00356000
  455.          AIF   ('&DEVTYPE' EQ '2319').CKCT                              00357000
  456.          AIF   ('&DEVTYPE' EQ '3340').EXTSN                             00358000
  457.          AIF   ('&DEVTYPE' EQ '3350').RPS                               00359000
  458.          AIF   ('&DEVTYPE' EQ '3380').CKDX                     HRC011DK 00359500
  459.          AIF   ('&DEVTYPE' NE '3330' AND '&DEVTYPE' NE '3333').DISK23X  00360000
  460.          AIF   ('&MODEL' EQ '1' OR '&MODEL' EQ '11').RPS                00361000
  461.          AIF   ('&DEVTYPE' EQ '3330' AND '&MODEL' EQ '2').RPS           00362000
  462.          AGO   .ERR4                                                    00363000
  463. .DK2301  ANOP                                                           00364000
  464. &DKMODEL SETA  1                                                        00365000
  465.          AGO   .CKCT                                                    00366000
  466. .DK2303  ANOP                                                           00367000
  467. &DKMODEL SETA  3                                                        00368000
  468.          AGO   .CKCT                                                    00369000
  469. .DK2321  ANOP                                                           00370000
  470. &DKMODEL SETA  33                                                       00371000
  471.          AGO   .CKCT                                                    00372000
  472. .DK2311  ANOP                                                           00373000
  473. &DKMODEL SETA  17                                                       00374000
  474.          AGO   .CKCT                                                    00375000
  475. .DISK23X ANOP                                                           00376000
  476.          AIF   ('&DEVTYPE' NE '2305').CKCT                              00377000
  477.          AIF   ('&MODEL' GT '2' OR '&MODEL' EQ '').ERR4                 00378000
  478. &FTRCOD  SETC  '&FTRCOD'.'+FTRRPS'.'+FTREXTSN'                          00379000
  479.          AIF   ('&ADDRESS(2)' GT '16').ERR2A                            00380000
  480.          AIF   ('&ADDRESS(2)' GT '8').SET16                             00381000
  481. .SET8    ANOP                                                           00382000
  482. &COUNT   SETA  8                                                        00383000
  483.          AGO   .CKCT                                                    00384000
  484. .SET16   ANOP                                                           00385000
  485. &COUNT   SETA  16                                                       00386000
  486.          AGO   .CKCT                                                    00387000
  487. .CKDX    ANOP  ,                                               HRC011DK 00388190
  488.          AIF   ('&MODEL' EQ '').CKDXOK                         HRC011DK 00388380
  489.          MNOTE 0,'MODEL NOT REQUIRED AND IGNORED.'             HRC011DK 00388570
  490. .CKDXOK  ANOP  ,                                               HRC011DK 00388760
  491. &RDVSTA3 SETC  'RDEVCKDX'                                      HRC011DK 00388950
  492. .RPS     ANOP                                                  HRC011DK 00389140
  493. &FTRCOD  SETC  '&FTRCOD'.'+FTRRPS'                             HRC011DK 00389330
  494. .EXTSN   ANOP                                                           00390000
  495. &FTRCOD  SETC  '&FTRCOD'.'+FTREXTSN'                                    00391000
  496.          AGO   .CKCT                                                    00392000
  497. .*                                                                      00393000
  498. .SRF     ANOP                                                           00393100
  499. &TYPC    SETC  'CLASSPEC'                                               00393200
  500. &TYPE    SETC  'TYPSRF'                                                 00393300
  501.          AGO   .CKCT                                                    00393500
  502. .*                                                                      00393600
  503. .SPEC    ANOP                                                           00394000
  504.          AIF   (N'&FEATURE GT 0).ERR8                                   00395000
  505. &TYPC    SETC  'CLASSPEC'                                               00396000
  506. &TYPE    SETC  'TYP&DEVTYPE'                                            00397000
  507. .*                                                                      00398000
  508. .CKCT    AIF   ('&CLASS' NE '').ERR9                                    00399000
  509. .CKCZ    AIF   ('&TYPE' EQ 'TYPUNSUP').UNSPADP                          00400150
  510.          AIF   ('&ADAPTER' NE '').ERR6                                  00400300
  511. .UNSPADP AIF   ('&SETADDR' NE '').ERR7                                  00400450
  512. .CKCX    AIF   ('&TYPC'(5,3) EQ 'TER' AND N'&FEATURE GT 0).ERR8         00402000
  513. .CKCY    AIF   ('&ADDRESS(2)' EQ '' OR '&DEVTYPE' EQ '2305').LOOP       00403000
  514.          AIF   ('&DEVTYPE' EQ '3158').ERR16                    @VA02100 00404000
  515.          AIF   ('&DEVTYPE' EQ '3138' OR '&DEVTYPE' EQ                  C00405000
  516.                '3148').ERR16                                            00406000
  517.          AIF   ('&DEVTYPE' EQ '3066').ERR16                    @VA02052 00407000
  518. &COUNT   SETA  &ADDRESS(2)                                              00408000
  519.          AIF   (&COUNT GT 256).ERR3                                     00409000
  520. .LOOP    ANOP                                                           00410000
  521. &CHADDR  SETA  &CHADDA                                                  00411000
  522. &CUADDR  SETA  &CUADDA                                                  00412000
  523. &RDEVADD SETC  '0'                                                      00413000
  524.          AIF   (&DVADDR LT 8).LOWADD                                    00414000
  525. &RDEVADD SETC  '8'                                                      00415000
  526. .LOWADD  ANOP                                                           00416000
  527. &DEC     SETA  &CUADDA                                                  00417000
  528.          DECHEX                                                         00418000
  529.          AIF   (&RCODE).ERR1                                            00419000
  530. &RCUADD  SETC  '&HEX'                                                   00420000
  531. &RDEVCUA SETC  'RCU'.'&ADDRESS(1)'(1,1).'&RCUADD'.'&RDEVADD'            00421000
  532.          AIF   ('&ALTCU' EQ '').NOALT2                                  00421050
  533. &DEC     SETA  &CUADDB                                                  00421100
  534.          DECHEX                                                         00421150
  535.          AIF   (&RCODE).ERR1                                            00421200
  536. &RCUBDD  SETC  '&HEX'                                                   00421250
  537. &RDEVBDD SETC  '0'                                                      00421300
  538.          AIF   (&DVADDRB EQ 0).LOWBDD                                   00421350
  539. &RDEVBDD SETC  '8'                                                      00421400
  540. .LOWBDD  ANOP                                                           00421450
  541. &RDEVCUB SETC  'RCU'.'&ALTCU'(1,1).'&RCUBDD'.'&RDEVBDD'                 00421500
  542. .NOALT2  ANOP                                                           00421550
  543. &DEC     SETA  &DVADDR                                                  00422000
  544.          DECHEX                                                         00423000
  545.          AIF   (&RCODE).ERR1                                            00424000
  546. &RDEVADD SETC  '&HEX'                                                   00425000
  547. &NAME    SETC  'RDV'.'&ADDRESS(1)'(1,1).'&RCUADD'.'&RDEVADD'            00426000
  548.          RDVTBL DEF                                                     00427000
  549.          AIF   ('&ALTCU' EQ '').NOACU                                   00427100
  550.          AIF   ('&TYPC' NE 'CLASDASD' AND '&TYPC' NE 'CLASTAPE').ERR19  00427200
  551. &CHADDR  SETA  &CHADDB                                                  00427300
  552. &CUADDR  SETA  &CUADDB                                                  00427400
  553.          RDVTBL DEF                                                     00427500
  554. .NOACU   ANOP                                                           00427600
  555.          AIF   (&RDVCNT NE 0).N1ST                                      00428000
  556.          ENTRY DMKRIODV                                                 00429000
  557. DMKRIODV DS    0D                                                       00430000
  558. .N1ST    ANOP                                                           00431000
  559. &NAME    DS    0D                                                       00432000
  560.          DC    XL2'00&RDEVADD' -   RDEVADD                              00433000
  561.          DC    H'0' -         RDEVLOCK                                  00434000
  562.          DC    AL1(&RDVSTA) -    RDEVSTAT                               00435100
  563.          DC    AL1(&RDVFLG) -      RDEVFLAG                             00436000
  564.          DC    AL1(&TYPC) -   RDEVTYPC                                  00437000
  565.          DC    AL1(&TYPE) -   RDEVTYPE                                  00438000
  566.          DC    A(&NAME) -     RDEVFIOB                                  00439000
  567.          DC    A(&NAME) -     RDEVLIOB                                  00440000
  568.          DC    A(&RDEVCUA) -  RDEVCUA                                   00441000
  569.          DC    A(&RDEVCUB) -  RDEVCUB                                   00442000
  570.          AIF   (&DUMY AND &DMCT NE 1).EPCHN                             00443000
  571.          AIF   ('&TYPC' EQ 'CLASTERM' AND ('&TYPE' NE 'TYP2700' AND    *00444000
  572.                '&TYPE' NE 'TYP2955' AND '&TYPE' NE 'TYPSDLC')).RTRM     00445000
  573.          AIF   ('&TYPC' EQ 'CLASURI' OR '&TYPC' EQ 'CLASURO').SPOL      00446000
  574.          AIF   (&FEP AND &DMCT NE 0).EPDVC                              00447000
  575.          DC    F'0' -         RDEVQUED                                  00448000
  576.          DC    F'0' -         RDEVOPER                                  00449000
  577.          AGO   .CON1                                                    00450000
  578. .EPDVC   ANOP                                                           00451000
  579.          DC    F'0' -         RDEVCON                                   00452000
  580. &HEX     SETC  'RDM'.'&ADDRESS(1)'(1,2).'&DMCT'                         00453000
  581.          DC    A(&HEX)        RDEVEPDV                                  00454000
  582.          AGO   .CON1                                                    00455000
  583. .EPCHN   ANOP                                                           00456000
  584.          DC    F'0' -         RDEVQUED                                  00457000
  585. &INDEX   SETA  &DMCT-1                                                  00458000
  586. &HEX     SETC  'RDM'.'&ADDRESS(1)'(1,2).'&INDEX'                        00459000
  587.          DC    A(&HEX)        RDEVEPDV                                  00460000
  588.          AGO   .CON1                                                    00461000
  589. .RTRM    ANOP                                                           00462000
  590.          DC    A(0) -         RDEVCON                                   00463000
  591.          DC    A(0)           RDEVAIRA                                  00464000
  592.          AGO   .CON1                                                    00465000
  593. .SPOL    ANOP                                                           00466000
  594.          DC    A(0) -         RDEVSPL                                   00467000
  595.          AIF   ('&TYPC' EQ 'CLASURI').SPOL1                             00468000
  596.          AIF   (N'&CLASS EQ 1).LEN1                                     00469000
  597.          AIF   (N'&CLASS EQ 2).LEN2                                     00470000
  598.          AIF   (N'&CLASS EQ 3).LEN3                                     00471000
  599.          AIF   (N'&CLASS EQ 4).LEN4                                     00472000
  600.          DC    CL1'A',XL3'00' -    RDEVCLAS                             00473000
  601.          MNOTE 0,'CLASS DEFAULTED TO A'                                 00474000
  602.          AGO   .CON1                                                    00475000
  603. .SPOL1   ANOP                                                           00476000
  604.          DC    XL4'00' -      RDEVCLAS                                  00477000
  605.          AGO   .CON1                                                    00478000
  606. .LEN1    ANOP                                                           00479000
  607.          DC    CL1'&CLASS(1)',XL3'00' - RDEVCLAS                        00480000
  608.          AGO   .CON1                                                    00481000
  609. .LEN2    ANOP                                                           00482000
  610.          DC    CL2'&CLASS(1)&CLASS(2)',XL2'00' -  RDEVCLAS              00483000
  611.          AGO   .CON1                                                    00484000
  612. .LEN3    ANOP                                                           00485000
  613.          DC    CL3'&CLASS(1)&CLASS(2)&CLASS(3)',XL1'00' RDEVCLAS        00486000
  614.          AGO   .CON1                                                    00487000
  615. .LEN4    ANOP                                                           00488000
  616.          DC    CL4'&CLASS(1)&CLASS(2)&CLASS(3)&CLASS(4)' RDEVCLAS       00489000
  617. .CON1    ANOP                                                           00490000
  618.          DC    F'0' -         RDEVIOCT                                  00491000
  619.          DC    A(0) -         RDEVAIOB                                  00492000
  620.          AIF   ('&TYPE' NE 'TYP3800').CON1A                    @V60B9BA 00492010
  621.          DC    A(0) -         RDEVDELP                         @V60B9BA 00492020
  622.          DC    AL1(22) -      RDEVCURP                         @V60B9BA 00492030
  623.          DC    AL1(0) -       SPARE                            @V60B9BA 00492040
  624.          DC    AL1(&DPMSIZE) - RDEVMAXP                        @V60B9BA 00492050
  625.          DC    AL1(&FCB) -    RDEVFSEP                         @V60B9BA 00492060
  626.          DC    CL4'&CHARS' -  RDEVXSEP                         @V60B9BA 00492070
  627.          DC    XL4'00' -      RDEVEXTN                         @V60B9BA 00492080
  628.          DC    CL8'&IMAGE' -  RDEVIMAG                         @V60B9BA 00492090
  629.          DC    CL4'    ' -    RDEVOVLY                         @V60B9BA 00492100
  630.          DC    XL2'00' -      RDEVQCNT,RDEVSTA2                @V60B9BA 00492110
  631.          AGO   .CON2A                                          @V60B9BA 00492120
  632. .CON1A   ANOP                                                  @V60B9BA 00492130
  633.          DC    V(DMKSYSVM) -  RDEVUSER                                  00493000
  634.          DC    H'0' -         RDEVATT                                   00494000
  635.          AIF   ('&TYPE' EQ 'TYPBSC').RGRAP                     @V2D3931 00495000
  636.          AIF   ('&TYPC' EQ 'CLASGRAF').LOCGRAF                          00495100
  637.          AIF   (&FEP).GENFP                                             00496000
  638. &SZLEN   SETA  82    LENGTH OF THE TERMINAL OUTPUT LINE (130)           00500000
  639.          AIF   ('&TYPC' EQ 'CLASTERM' AND '&TYPE' NE 'TYP2955').GENCON  00501100
  640.          DC    H'0'           RDEVCYL                                   00501200
  641.          DC    CL6' '         RDEVSER                                   00501300
  642.          DC    H'0'           RDEVLNKS                                  00501400
  643.          DC    8X'00' -       RDEVTCTL                                  00504000
  644.          AGO   .CON2                                                    00505000
  645. .GENCON  ANOP                                                           00505100
  646.          DC    H'0'           RDEVCYL                                   00505200
  647.          DC    A(0)           RESERVED                                  00505300
  648.          DC    AL1(&TRMCD)    RDEVTMCD                                  00505400
  649.          DC    XL3'00'        RESERVED                                  00505500
  650.          AGO   .TCTL                                                    00505600
  651. .GENFP   ANOP                                                           00506000
  652.          DC    H'0' -         RDEVMAX                                   00507000
  653.          DC    CL8'&CPNAME ' -RDEVNCP                                   00508000
  654.          DC    A(0) -         RDEVNICL                                  00509000
  655.          DC    A(0) -         RDEVNIOB                                  00510000
  656.          AGO   .CON2                                                    00511000
  657. .RGRAP   ANOP                                                           00512000
  658.          DC    AL2(&INDEX)    RDEVMAX                                   00513000
  659.          DC    A(0)           RDEVBSC                                   00514000
  660.          DC    XL4'05'        RDEVPDLY                                  00515000
  661.          DC    A(&CLUSTER)    RDEVNICL                                  00516000
  662.          DC    XL2'00'        RESERVED                                  00517000
  663.          DC    XL2'&BASE'     RDEVBASE                                  00518000
  664.          AGO   .CON2                                           @V2D3931 00519000
  665. .LOCGRAF ANOP                                                           00519050
  666.          AIF   ('&DEVTYPE' EQ '3278' AND '&MODEL' EQ '5').LG5  HRC073DK 00519060
  667. &SZLEN   SETA  50    LENGTH OF THE GRAPHIC OUTPUT LINE (80)             00519100
  668.          AGO   .SZSET                                          HRC073DK 00519110
  669. .LG5     ANOP                                                  HRC073DK 00519120
  670. &SZLEN   SETA  84     HEX LENGTH OF GRAPHIC LINE (3278-5)      HRC073DK 00519130
  671. .SZSET   ANOP                                                  HRC073DK 00519140
  672.          DC    H'0'           RDEVCORD                                  00519150
  673.          AIF   ('&TYPE' EQ 'TYP3277' OR '&TYPE' EQ 'TYP3278' OR        +00519200
  674.                 '&TYPE' EQ 'TYP3158').GRTB                              00519250
  675.          DC    A(0)           RESERVED                                  00519280
  676.          DC    AL1(&TRMCD)    RDEVTMCD                                  00519300
  677.          DC    XL3'00'        RESERVED                                  00519320
  678.          AGO   .TCTL                                                    00519350
  679. .GRTB    ANOP                                                           00519400
  680.          DC    V(&RNMDLC)     RDEVGRTB                                  00519450
  681.          DC    AL1(&TRMCD)    RDEVTMCD                                  00519480
  682.          DC    AL1(0)         RESERVED                         HRC072DK 00519500
  683.          DC    AL1(&DYNRPQ)   RDEVGRIC                         HRC072DK 00519600
  684.          DC    AL1(0)         RESERVED                         HRC072DK 00519700
  685. .TCTL    ANOP                                                           00520000
  686.          DC    H'0'           RDEVRCNT                                  00521000
  687.          DC    X'00'          RDEVTFLG                                  00522000
  688.          DC    AL1(&RNMDLA)   RDEVGRTY                                  00523000
  689.          DC    X'&SZLEN'      RDEVLLEN                                  00524000
  690.          DC    X'00'          RDEVATNC                                  00525000
  691.          DC    XL2'&BASE'     RDEVBASE                                  00526000
  692. .CON2    ANOP                                                           00527000
  693.          DC    XL4'00' -      RDEVTMAT                         HRC011DK 00528010
  694.          DC    XL1'00' -      RDEVQCNT                         HRC011DK 00528020
  695.          DC    XL1'00' -      RDEVSTA2                         HRC011DK 00528030
  696. .CON2A   ANOP                                                  @V60B9BA 00528100
  697.          AIF   ('&TYPC' EQ 'CLASTERM' AND ('&TYPE' NE 'TYP2700' AND    *00529000
  698.                '&TYPE' NE 'TYP2955' AND '&TYPE' NE 'TYPBSC' AND        *00530000
  699.                '&TYPE' NE 'TYPSDLC')).STSAD                             00531000
  700.          AIF   ('&TYPC' EQ 'CLASTAPE').STMODN                           00532000
  701.          AIF   ('&TYPE' NE 'TYP3277' AND '&TYPE' NE 'TYP3278' AND      C00532110
  702.                '&TYPE' NE 'TYP3158').CONT1                              00532150
  703.          AIF   ('&DEVTYPE' EQ '3277' AND                               X00532160
  704.                '&MODEL' NE '').DEFMDL                          @VA10011 00532161
  705.          AIF   ('&MODEL' NE '').STMOD78                                 00532200
  706.          AGO   .OKMDL                                          @VA10011 00532210
  707. .DEFMDL  ANOP                                                           00532215
  708.          MNOTE 0,'MODEL NOT REQUIRED. DEFAULT MODEL 2 USED.'   @VA10011 00532220
  709. .OKMDL   ANOP                                                           00532225
  710.          DC    AL1(2)         RDEVMDL                                   00532300
  711.          AGO   .STFTRC                                                  00532400
  712. .CONT1   ANOP                                                           00532500
  713.          AIF   ('&TYPE' EQ 'TYP3203' AND '&MODEL' EQ                   C00533000
  714.                '4').STMODN                                              00534000
  715.          AIF   ('&TYPE' EQ 'TYP3203' AND '&MODEL' EQ '5' OR '&MODEL' EQC00535500
  716.                '4').STMODN                                              00536000
  717.          AIF   ('&TYPE' EQ 'TYP3203' AND '&MODEL' EQ '').STMOD4         00536500
  718.          AIF   ('&TYPE' EQ 'TYP3330' AND '&MODEL' EQ '').STMOD0         00537000
  719.          AIF   ('&TYPE' EQ 'TYP3333' AND '&MODEL' EQ '').STMOD0         00538000
  720.          AIF   ('&TYPE' EQ 'TYP3340' AND '&MODEL' EQ '').STMOD0         00539000
  721.          AIF   ('&TYPE' EQ 'TYP3350' AND '&MODEL' EQ '').STMOD0         00540000
  722.          AIF  ('&TYPE' EQ 'TYP3380' AND '&MODEL' EQ '').STMOD0 HRC011DK 00540500
  723.          AIF   ('&TYPE' EQ 'TYP3330' OR '&TYPE' EQ 'TYP2305').STMODN    00541000
  724.          AIF   ('&TYPE' EQ 'TYP3333').STMODN                            00542000
  725.          AIF   ('&TYPE' EQ 'TYP3380').STMODN                   HRC011DK 00542500
  726.          AIF   ('&TYPE' EQ 'TYP2301' OR '&TYPE' EQ 'TYP2303').STMODDK   00543000
  727.          AIF   ('&TYPE' EQ 'TYP2321' OR '&TYPE' EQ 'TYP2311').STMODDK   00544000
  728.          AIF   (NOT &FEP).CKMODN                                        00545000
  729.          DC    AL1(&RNMDLA) - RDEVMDL                                   00546000
  730.          AGO   .STFTRC                                                  00547000
  731. .STMOD4  ANOP                                                           00548000
  732.          DC    AL1(4)      -  RDEVMDL (3203 DEFAULT VALUE)              00549000
  733.          AGO   .STFTRC                                                  00550000
  734. .CKMODN  AIF   ('&MODEL' EQ '').STMOD0                                  00551000
  735.          MNOTE 0,'MODEL NUMBER IGNORED'                                 00552000
  736. .STMOD0  DC    AL1(0) -       RDEVMDL                                   00553000
  737.          AGO   .STFTRC                                                  00554000
  738. .STMODDK ANOP                                                           00555000
  739.          DC    AL1(&DKMODEL) -RDEVMDL                                   00556000
  740.          AGO   .STFTRC                                                  00557000
  741. .STMOD78 AIF   ('&MODEL' EQ 'DYNAMIC').STRPQ78                 HRC072DK 00558000
  742.          AIF   ('&MODEL' NE '2A').STMODN                       HRC072DK 00558050
  743.          DC    X'2A'        - RDEVMDL                                   00558100
  744.          AGO   .STFTRC                                                  00558200
  745. .STRPQ78 DC    AL1(2)         RDEVMDL                          HRC072DK 00558240
  746.          AGO   .STFTRC                                         HRC072DK 00558250
  747. .STMODN  DC    AL1(&MODEL) -  RDEVMDL                                   00558300
  748. .STFTRC  DC    AL1(&FTRCOD) - RDEVFTR                                   00559000
  749.          AGO   .CON3                                                    00560000
  750. .STSAD   ANOP                                                           00561000
  751.          DC    X'00'          RESERVED                                  00562000
  752.          DC    AL1(&SAD) -    RDEVSADN                                  00563000
  753. .CON3    ANOP                                                           00564000
  754.          DC    A(0) -         RDEVIOER                                  00565000
  755.          DC    A(0) -         RDEVCTRS                                  00566000
  756. &INCR    SETA  1              INCREMENT                                 00567000
  757. &TOTNUM  SETA  K'&DEVTYPE                                               00568000
  758. .NAMELP  ANOP                                                           00569000
  759.          AIF   ('&DEVTYPE'(&INCR,1) LT '0' OR '&DEVTYPE'(&INCR,1) GT   X00570000
  760.                '9').SETNAME                                             00571000
  761. &INCR    SETA  &INCR+1        GET NEXT CHARACTER                        00572000
  762.          AIF   ('&INCR' GT '&TOTNUM').SETNAME                           00573000
  763.          AGO   .NAMELP                                                  00574000
  764. .SETNAME ANOP                                                           00575000
  765. &INCR    SETA  &INCR-1        TOTAL NUMBER CHARS IN RDEVTYPE            00576000
  766. &DEVNAME SETC  '&DEVTYPE'(1,&INCR)                                      00577000
  767.          AIF   ('&INCR' NE '0' AND '&INCR' LE '4').VLDNAME              00578000
  768. &DEVNAME SETC  '0'            SPECIAL DEVICE NAME                       00579000
  769. .VLDNAME ANOP                                                           00580000
  770.          DC    XL2'&DEVNAME'  RDEVNAME                                  00581000
  771.          AIF   ('&RDVSTA3' NE '').RDVSTA3                      HRC011DK 00582110
  772.          DC    AL1(0)         RDEVSTA3                         HRC011DK 00582120
  773.          AGO   .CONTSTA                                        HRC011DK 00582130
  774. .RDVSTA3 ANOP                                                  HRC011DK 00582140
  775.          DC    AL1(&RDVSTA3)  RDEVSTA3                         HRC011DK 00582150
  776. .CONTSTA ANOP                                                  HRC011DK 00582160
  777.          DC    X'00'          RDEVPCNT                         @VA10487 00582200
  778.          DC    F'0'           RESERVED FOR IBM USE                      00583000
  779.          SPACE 3                                                        00584000
  780. .*                                                                      00585000
  781.          AIF   ('&DEVTYPE' EQ '1403' OR '&DEVTYPE' EQ '1443').RPRT      00586000
  782.          AIF   ('&DEVTYPE' EQ '3211').RPRT                              00587000
  783.          AIF   ('&DEVTYPE' EQ '3800').RPRT                     @V60B9BA 00587100
  784.          AIF   ('&DEVTYPE' EQ '3203').RPRT                              00588000
  785.          AIF   ('&DEVTYPE' EQ '2540R' OR '&DEVTYPE' EQ '3505').RRDR     00589000
  786.          AIF   ('&DEVTYPE' EQ '2501').RRDR                              00590000
  787.          AIF   ('&DEVTYPE' EQ '2540P' OR '&DEVTYPE' EQ '3525').RPUN     00591000
  788.          AIF   ('&DEVTYPE' EQ '2520P').RPUN                             00592000
  789.          AIF   (&FEP).RPCU                                              00593000
  790. .NEXT    ANOP                                                           00594000
  791. &RDVCNT  SETA  &RDVCNT+1      ADD ONE TO NUMBER OF RDEVBLOK'S           00595000
  792.          AIF   (&DUMY).CKMDL  BRANCH IF DUMMY 370X RDEVBLOK             00596000
  793. &COUNT   SETA  &COUNT-1                                                 00597000
  794.          AIF   (&COUNT EQ 0).GEND1                                      00598000
  795.          AIF   (&DVADDR EQ 15).NEXTCU                                   00599000
  796. &DVADDR  SETA  &DVADDR+1                                                00600000
  797.          AIF   (NOT &FEP).LOOP                                          00601000
  798. &TYPC    SETC  'CLASTERM'                                               00602000
  799. &TYPE    SETC  'TYPUNDEF'                                               00603000
  800. &TRMCD   SETC  'RDEVPTTC'                                               00604000
  801. &RDVFLG  SETC  'RDEVPSUP'                                               00605000
  802. &BASE    SETC  '&ADDRESS(1)'                                            00606000
  803. &SAD     SETA  4                                                        00607000
  804. &FEP     SETB  0                                                        00608000
  805.          AGO   .LOOP                                                    00609000
  806. .CKMDL   ANOP                                                           00610000
  807. &DMCT    SETA  &DMCT-1                                                  00611000
  808.          AIF   (&DMCT EQ 0).GEND                                        00612000
  809. &NAME    SETC  'RDM'.'&ADDRESS(1)'(1,2).'&DMCT'                         00613000
  810.          AGO   .N1ST                                                    00614000
  811. .*                                                                      00615000
  812. .GEND1   AIF   (&DMCT EQ 0).GEND                                        00616000
  813. &FEP     SETB  0                                                        00617000
  814. &DUMY    SETB  1                                                        00618000
  815. &RDEVADD SETC  'FFFF'                                                   00619000
  816. &RDEVCUA SETC  '0'                                                      00620000
  817. &TRMCD   SETC  '0'                                                      00621000
  818. &RDVFLG  SETC  '0'                                                      00622000
  819. &SAD     SETA  4                                                        00623000
  820. &TYPC    SETC  'CLASTERM'                                               00624000
  821. &TYPE    SETC  'TYPUNDEF'                                               00625000
  822. &NAME    SETC  'RDM'.'&ADDRESS(1)'(1,2).'&DMCT'                         00626000
  823.          AGO   .N1ST                                                    00627000
  824. .*                                                                      00628000
  825. .NEXTCU  ANOP                                                           00629000
  826. &DVADDR  SETA  0                                                        00630000
  827. &CUADDA  SETA  &CUADDA+1                                                00631000
  828.          AIF   (&CUADDA GT 15).ERR1                                     00632000
  829.          AIF   ('&ALTCU' EQ '').LOOP                                    00632200
  830. &DVADDRB SETA  0                                                        00632300
  831. &CUADDB  SETA  &CUADDB+1                                                00632400
  832.          AGO   .LOOP                                                    00633000
  833. .*                                                                      00634000
  834. .RPRT    AIF   (&RPRTCNT EQ 32).ERR10                                   00635000
  835. &RPRTCNT SETA  &RPRTCNT+1                                               00636000
  836. &RPRNTRS(&RPRTCNT) SETC '&NAME'(4,3)                                    00637000
  837.          AGO   .NEXT                                                    00638000
  838. .*                                                                      00639000
  839. .RRDR    AIF   (&RRDRCNT EQ 32).ERR13                                   00640000
  840. &RRDRCNT SETA  &RRDRCNT+1                                               00641000
  841. &RREADRS(&RRDRCNT) SETC '&NAME'(4,3)                                    00642000
  842.          AGO   .NEXT                                                    00643000
  843. .*                                                                      00644000
  844. .RPUN    AIF   (&RPUNCNT EQ 32).ERR11                                   00645000
  845. &RPUNCNT SETA  &RPUNCNT+1                                               00646000
  846. &RPUNCHS(&RPUNCNT) SETC '&NAME'(4,3)                                    00647000
  847.          AGO   .NEXT                                                    00648000
  848. .*                                                                      00649000
  849. .RPCU    AIF   (&RPCCNT EQ 16).ERR14                                    00650000
  850. &RPCCNT  SETA  &RPCCNT+1                                                00651000
  851. &RPCCU(&RPCCNT)  SETC  '&NAME'(4,3)                                     00652000
  852.          AGO   .NEXT                                                    00653000
  853. .ERR1    MNOTE 8,'INVALID DEVICE ADDRESS'                               00654000
  854.          MEXIT                                                          00655000
  855. .ERR2    MNOTE 8,'INVALID DEVICE TYPE'                                  00656000
  856.          MEXIT                                                          00657000
  857. .ERR2A   MNOTE 8,'MORE THAN 16 DEVICES SPECIFIED'                       00658000
  858.          MEXIT                                                          00659000
  859. .ERR3    MNOTE 8,'MORE THAN 256 DEVICES'                                00660000
  860.          MEXIT                                                          00661000
  861. .ERR4    MNOTE 8,'MODEL NUMBER INVALID OR NOT SPECIFIED'       @VA03813 00662000
  862.          MEXIT                                                          00663000
  863. .ERR5    MNOTE 8,'INVALID ALTCU ADDRESS'                                00663200
  864.          MEXIT                                                          00663400
  865. .ERR6    MNOTE 8,'INVALID ADAPTER TYPE'                                 00664000
  866.          MEXIT                                                          00665000
  867. .ERR7    MNOTE 8,'INVALID SETADDR VALUE'                                00666000
  868.          MEXIT                                                          00667000
  869. .ERR8    MNOTE 8,'INVALID FEATURE SPECIFIED'                            00668000
  870.          MEXIT                                                          00669000
  871. .ERR9    MNOTE 8,'INVALID CLASS PARAMETER'                              00670000
  872.          MEXIT                                                          00671000
  873. .ERR10   MNOTE 0,'MORE THAN 32 PRINTERS'                                00672000
  874.          AGO   .NEXT                                                    00673000
  875. .ERR11   MNOTE 0,'MORE THAN 32 PUNCHES'                                 00674000
  876.          AGO   .NEXT                                                    00675000
  877. .ERR12   MNOTE 8,'INVALID PARAMETER COMBINATION'                        00676000
  878.          MEXIT                                                          00677000
  879. .ERR13   MNOTE 0,'MORE THAN 32 READERS'                                 00678000
  880.          AGO   .NEXT                                                    00679000
  881. .ERR14   MNOTE 0,'MORE THAN 16 T/P CONCENTRATORS AND LINES'             00680000
  882.          AGO   .NEXT                                                    00681000
  883. .ERR15   MNOTE 12,'RDEVICE MACRO OUT OF SEQUENCE'                       00682000
  884.          MEXIT                                                 @V2D3931 00683000
  885. .INVNAM1 MNOTE 8,'INVALID CLUSTER OPERAND'                              00684000
  886.          MEXIT                                                 @VA02100 00685000
  887. .INVNAM2    MNOTE 8,'ADDRESS OPERAND DOES NOT MATCH ANY CLUSTER'        00685100
  888.           MEXIT                                                @VA10744 00685200
  889. .ERR16   MNOTE 8,'ONLY ONE 3066 OR 3158 CONSOLE ALLOWED'       @VA02052 00686000
  890.          MEXIT                                                 @VA06261 00686500
  891. .ERR17   MNOTE 8,'3203 PRINTER MODEL NUMBER MUST BE 4 OR 5'             00687000
  892.          MEXIT                                                          00688000
  893. .ERR18   MNOTE 0,'3203 MODEL 4 MUST BE CONNECTED TO CHAN 0'             00689000
  894.          AGO   .URPRT                                                   00690000
  895.          MEXIT                                                          00691000
  896. .ERR19   MNOTE 8,'''ALTCU'' IS INVALID FOR DEVICE TYPE ''&DEVTYPE'''    00692000
  897.          MEXIT                                                 @V60B9BA 00692100
  898. .ERR20   MNOTE 8,'INVALID 3800 IMAGE LIBRARY'                  @V60B9BA 00692200
  899.          MEXIT                                                 @V60B9BA 00692300
  900. .ERR21   MNOTE 8,'INVALID ''CHARS'' SPECIFIED FOR 3800'        @V60B9BA 00692400
  901.          MEXIT                                                 @V60B9BA 00692500
  902. .ERR22   MNOTE 8,'INVALID 3800 ''FCB'' - MUST BE 6, 8, OR 12'  @V60B9BA 00692600
  903.          MEXIT                                                 @V60B9BA 00692700
  904. .ERR23   MNOTE 8,'INVALID DELAYED PURGE QUEUE SIZE'            @V60B9BA 00692800
  905. .GEND    MEND                                                           00693000
ibm/vm370-lib/macro/rdevice.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator