TITLE 'IGG019LT - 3886 CNTRL MODULE *00001000 ' 00002000 IGG019LT CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * 0039 00005000 STM REG14,REG8,TWENTY(REG13) SAVE USER REGS 00006000 BALR REG5,ZARO SET UP BASE REG 00007000 CNTRL1 DS 0H 00008000 USING CNTRL1,REG5 00009000 * /*****************************************************************/ 00010000 * /* */ 00011000 * /* INITIALIZE REGISTERS */ 00012000 * /* */ 00013000 * /*****************************************************************/ 00014000 * 0040 00015000 * PARMRG=REG0; /* ADDR OF PARAMETER LIST */ 00016000 LR PARMRG,REG0 0040 00017000 * DCBRG=REG1; /* ADDR OF DCB */ 00018000 LR DCBRG,REG1 0041 00019000 * IOBSTPTR=DCBIOBA+EIGHT; /* ADDR OF IOB */ 00020000 SLR IOBSTPTR,IOBSTPTR 0042 00021000 ICM IOBSTPTR,3,EIGHT 0042 00022000 AL IOBSTPTR,DCBIOBA+52(,DCBRG) 0042 00023000 * REG1=ADDR(IEC042I); /* ADDR OF MESSAGE */ 00024000 * 0043 00025000 L @08,IOBSTART(,IOBSTPTR) 0043 00026000 LA REG1,IEC042I(,@08) 0043 00027000 * /*****************************************************************/ 00028000 * /* */ 00029000 * /* TEST FOR EJECT AND TIMING MARK CHECK */ 00030000 * /* */ 00031000 * /*****************************************************************/ 00032000 * 0044 00033000 * SCANSTOR=SCANCCW; /* SAVE SCAN CCW */ 00034000 MVC SCANSTOR(8,@08),SCANCCW(@08) 0044 00035000 * IF CODE=STK THEN 0045 00036000 CLI CODE(PARMRG),X'04' 0045 00037000 BNE @RF00045 0045 00038000 * DO; /* TEST FOR EJECT CODE */ 00039000 * IF ADDR1^=ZERO THEN /* TEST FOR TIMING MARK CK */ 00040000 SLR @04,@04 0047 00041000 L @08,ADDR1(,PARMRG) 0047 00042000 CR @08,@04 0047 00043000 BE @RF00047 0047 00044000 * IF ADDR1>ZERO THEN 0048 00045000 CR @08,@04 0048 00046000 BNH @RF00048 0048 00047000 * DO; /* TEST FOR AN ADDR */ 00048000 * WKAREA1=ADDR1->DIGTAREA;/* MOVE DIGIT TO WORK AREA */ 00049000 MVC WKAREA1(1,PARMRG),DIGTAREA(@08) 0050 00050000 * IF WKAREA1>THIRTY3 THEN 0051 00051000 CLI WKAREA1(PARMRG),33 0051 00052000 BNH @RF00051 0051 00053000 * DO; /* VALID NUMBER? */ 00054000 * WKREG=WKAREA1; /* INVALID NUMBER IN REG */ 00055000 SLR WKREG,WKREG 0053 00056000 IC WKREG,WKAREA1(,PARMRG) 0053 00057000 * IEC042I=MESSAGE; /* PUT MSG IN IOB WORK AREA */ 00058000 L @08,IOBSTART(,IOBSTPTR) 0054 00059000 MVC IEC042I(67,@08),MESSAGE 0054 00060000 * GEN REFS(WKREG,DWORD) 0055 00061000 * (CVD WKREG,DWORD+THRTY2(IOBSTPTR)); 0055 00062000 CVD WKREG,DWORD+THRTY2(IOBSTPTR) 00063000 * GEN REFS(UNPKNO,PAKED) 0056 00064000 *(UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR)); 0056 00065000 UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR) 00066000 * GEN REFS(UNPKNO,SGNMASK) 0057 00067000 * (OI UNPKNO+THRTY5(IOBSTPTR),FZERO); 0057 00068000 OI UNPKNO+THRTY5(IOBSTPTR),FZERO 00069000 * XXXNO=UNPKNO; /* INVALID NUMBER IN MSG OF 0058 00070000 * TIMING MARKS */ 00071000 L @08,IOBSTART(,IOBSTPTR) 0058 00072000 MVI XXXNO+4(@08),C' ' 0058 00073000 MVC XXXNO+5(3,@08),XXXNO+4(@08) 0058 00074000 MVC XXXNO(4,@08),UNPKNO(@08) 0058 00075000 * YYYYTXT=NOTMMKS; /* MOVE IN MSG TEXT */ 00076000 MVC YYYYTXT(12,@08),@CC00780 0059 00077000 * GENERATE; 0060 00078000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00079000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MESSAGE AREA */ 00080000 L @08,IOBSTART(,IOBSTPTR) 0061 00081000 XC IEC042I(67,@08),IEC042I(@08) 0061 00082000 * END; 0062 00083000 * ELSE 0063 00084000 * DO; 0063 00085000 B @RC00051 0063 00086000 @RF00051 DS 0H 0064 00087000 * WKAREA1=ADDR1->DIGTAREA;/* MOVE DIGIT TO WORK AREA */ 00088000 L @08,ADDR1(,PARMRG) 0064 00089000 MVC WKAREA1(1,PARMRG),DIGTAREA(@08) 0064 00090000 * TMCK=BIN1; /* ENABLE TIMING MARK CK */ 00091000 OI TMCK(PARMRG),B'10000000' 0065 00092000 * END; 0066 00093000 * END; 0067 00094000 * ELSE 0068 00095000 * DO; 0068 00096000 B @RC00048 0068 00097000 @RF00048 DS 0H 0069 00098000 * WKREG=ABS(ADDR1); /* MOVE DIGIT TO REG */ 00099000 L WKREG,ADDR1(,PARMRG) 0069 00100000 LPR WKREG,WKREG 0069 00101000 * WKAREA1=WKREG; /* MOVE DIGIT TO WORKAREA */ 00102000 STC WKREG,WKAREA1(,PARMRG) 0070 00103000 * IF WKAREA1>THIRTY3 THEN 0071 00104000 CLI WKAREA1(PARMRG),33 0071 00105000 BNH @RF00071 0071 00106000 * DO; /* VALID NUMBER */ 00107000 * WKREG=WKAREA1; /* INVALID NUMBER IN REG */ 00108000 SLR @08,@08 0073 00109000 IC @08,WKAREA1(,PARMRG) 0073 00110000 LR WKREG,@08 0073 00111000 * IEC042I=MESSAGE; /* PUT MSG IN IOB WORK AREA */ 00112000 L @08,IOBSTART(,IOBSTPTR) 0074 00113000 MVC IEC042I(67,@08),MESSAGE 0074 00114000 * GEN REFS(WKREG,DWORD) 0075 00115000 * (CVD WKREG,DWORD+THRTY2(IOBSTPTR)); 0075 00116000 CVD WKREG,DWORD+THRTY2(IOBSTPTR) 00117000 * GEN REFS(UNPKNO,PAKED) 0076 00118000 *(UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR)); 0076 00119000 UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR) 00120000 * GEN REFS(UNPKNO,SGNMASK) 0077 00121000 * (OI UNPKNO+THRTY5(IOBSTPTR),FZERO); 0077 00122000 OI UNPKNO+THRTY5(IOBSTPTR),FZERO 00123000 * XXXNO=UNPKNO; /* INVALID NUMBER IN MSG */ 00124000 L @08,IOBSTART(,IOBSTPTR) 0078 00125000 MVI XXXNO+4(@08),C' ' 0078 00126000 MVC XXXNO+5(3,@08),XXXNO+4(@08) 0078 00127000 MVC XXXNO(4,@08),UNPKNO(@08) 0078 00128000 * YYYYTXT=NOTMMKS; /* MOVE IN MSG TEST */ 00129000 MVC YYYYTXT(12,@08),@CC00780 0079 00130000 * GENERATE; 0080 00131000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00132000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MSG AREA */ 00133000 L @08,IOBSTART(,IOBSTPTR) 0081 00134000 XC IEC042I(67,@08),IEC042I(@08) 0081 00135000 * END; 0082 00136000 * ELSE 0083 00137000 * ; 0083 00138000 @RF00071 DS 0H 0084 00139000 * TMCK=BIN1; /* ENABLE TIMING MK CHECK */ 00140000 OI TMCK(PARMRG),B'10000000' 0084 00141000 * END; 0085 00142000 * ELSE 0086 00143000 * ; 0086 00144000 @RF00047 DS 0H 0087 00145000 * IF STACK=TWO THEN 0087 00146000 @RC00047 CLI STACK(PARMRG),2 0087 00147000 BNE @RF00087 0087 00148000 * DO; /* TEST FOR STACKER TWO */ 00149000 * STKBIT=BIN1; /* INDICATE STACKER 2 */ 00150000 OI STKBIT(PARMRG),B'01000000' 0089 00151000 * CMDCDSTR=EJECT; /* CCW OPCODE EQUAL EJECT */ 00152000 L @08,IOBSTART(,IOBSTPTR) 0090 00153000 MVI CMDCDSTR(@08),X'63' 0090 00154000 * SCCWCONT=ONE; /* CCW BYTE COUNT EQ ONE */ 00155000 MVC SCCWCONT(2,@08),@CH00041 0091 00156000 * DCBLNNUM=ZERO; /* SET DCB LINE NO TO ZERO */ 00157000 LA @08,4 0092 00158000 ALR @08,DCBRG 0092 00159000 MVI DCBLNNUM(@08),X'00' 0092 00160000 * DCBEOPFG=OFF; /* TURN OFF EOP FLAG */ 00161000 NI DCBEOPFG(@08),B'01111111' 0093 00162000 * END; 0094 00163000 * ELSE 0095 00164000 * DO; 0095 00165000 B @RC00087 0095 00166000 @RF00087 DS 0H 0096 00167000 * STKBIT=OFF; /* INDICATE STACKER 1 */ 00168000 NI STKBIT(PARMRG),B'10111111' 0096 00169000 * CMDCDSTR=EJECT; /* CCW OPCODE EQUAL EJECT */ 00170000 L @08,IOBSTART(,IOBSTPTR) 0097 00171000 MVI CMDCDSTR(@08),X'63' 0097 00172000 * SCCWCONT=ONE; /* CCW BYTE COUNT EQ ONE */ 00173000 MVC SCCWCONT(2,@08),@CH00041 0098 00174000 * DCBLNNUM=ZERO; /* SET DCB LINE NO TO ZERO */ 00175000 LA @08,4 0099 00176000 ALR @08,DCBRG 0099 00177000 MVI DCBLNNUM(@08),X'00' 0099 00178000 * DCBEOPFG=OFF; /* TURN OFF EOP FLAG */ 00179000 NI DCBEOPFG(@08),B'01111111' 0100 00180000 * END; 0101 00181000 * END; 0102 00182000 * ELSE 0103 00183000 * ; 0103 00184000 @RF00045 DS 0H 0104 00185000 * 0104 00186000 * /*****************************************************************/ 00187000 * /* */ 00188000 * /* TEST FOR MARK LINE */ 00189000 * /* */ 00190000 * /*****************************************************************/ 00191000 * 0104 00192000 *MARKLINE: /* LABEL FOR MARK LINE FUNCTN */ 00193000 * IF CODE=MKLINE THEN 0104 00194000 @RC00045 DS 0H 0104 00195000 MARKLINE CLI CODE(PARMRG),X'08' 0104 00196000 BNE @RF00104 0104 00197000 * DO; /* TEST FOR MARK LINE CODE */ 00198000 * CMDCDSTR=LNMARK; /* CCW OPCODE - LINE MARK */ 00199000 L @08,IOBSTART(,IOBSTPTR) 0106 00200000 MVI CMDCDSTR(@08),X'51' 0106 00201000 * SCCWCONT=TWO; /* CCW BYTE COUNT - TWO */ 00202000 MVC SCCWCONT(2,@08),@CH00095 0107 00203000 * IF ADDR1>ZERO THEN 0108 00204000 L @04,ADDR1(,PARMRG) 0108 00205000 LTR @04,@04 0108 00206000 BNP @RF00108 0108 00207000 * DO; /* TEST FOR AN ADDR */ 00208000 * WKAREA1=ADDR1->DIGTAREA;/* MOVE DIGIT TO WORK AREA */ 00209000 MVC WKAREA1(1,PARMRG),DIGTAREA(@04) 0110 00210000 * IF WKAREA1>FIFTEEN THEN 0111 00211000 CLI WKAREA1(PARMRG),15 0111 00212000 BNH @RF00111 0111 00213000 * DO; /* VALID NUMBER? */ 00214000 * WKREG=WKAREA1; /* INVALID NUMBER IN REG */ 00215000 SLR WKREG,WKREG 0113 00216000 IC WKREG,WKAREA1(,PARMRG) 0113 00217000 * IEC042I=MESSAGE; /* PUT MSG IN IOB WORK AREA */ 00218000 MVC IEC042I(67,@08),MESSAGE 0114 00219000 * GEN REFS(WKREG,DWORD)(CVD WKREG,DWORD+THRTY2(IOBSTPTR)) 00220000 * ; 0115 00221000 CVD WKREG,DWORD+THRTY2(IOBSTPTR) 00222000 * GEN REFS(UNPKNO,PAKED) 0116 00223000 *(UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR)); 0116 00224000 UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR) 00225000 * GEN REFS(UNPKNO,SGNMASK) 0117 00226000 * (OI UNPKNO+THRTY5(IOBSTPTR),FZERO); 0117 00227000 OI UNPKNO+THRTY5(IOBSTPTR),FZERO 00228000 * XXXNO=UNPKNO; /* INVALID NUMBER IN MSG LINE 0118 00229000 * CODE */ 00230000 L @08,IOBSTART(,IOBSTPTR) 0118 00231000 MVI XXXNO+4(@08),C' ' 0118 00232000 MVC XXXNO+5(3,@08),XXXNO+4(@08) 0118 00233000 MVC XXXNO(4,@08),UNPKNO(@08) 0118 00234000 * YYYYTXT=LNMKCD; /* MOVE IN MSG TEXT */ 00235000 MVC YYYYTXT(12,@08),@CC00783 0119 00236000 * GENERATE; 0120 00237000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00238000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MSG AREA */ 00239000 L @08,IOBSTART(,IOBSTPTR) 0121 00240000 XC IEC042I(67,@08),IEC042I(@08) 0121 00241000 * END; 0122 00242000 * ELSE 0123 00243000 * WKAREA1=ADDR1->DIGTAREA;/* MOVE DIGIT TO WORK AREA */ 00244000 B @RC00111 0123 00245000 @RF00111 L @08,ADDR1(,PARMRG) 0123 00246000 MVC WKAREA1(1,PARMRG),DIGTAREA(@08) 0123 00247000 * END; 0124 00248000 * ELSE 0125 00249000 * DO; 0125 00250000 B @RC00108 0125 00251000 @RF00108 DS 0H 0126 00252000 * WKREG=ABS(ADDR1); /* MOVE DIGIT TO REG */ 00253000 L WKREG,ADDR1(,PARMRG) 0126 00254000 LPR WKREG,WKREG 0126 00255000 * WKAREA1=WKREG; /* MOVE DIGIT TO WORKAREA */ 00256000 STC WKREG,WKAREA1(,PARMRG) 0127 00257000 * IF WKAREA1>FIFTEEN THEN 0128 00258000 CLI WKAREA1(PARMRG),15 0128 00259000 BNH @RF00128 0128 00260000 * DO; /* VALID NUMBER */ 00261000 * WKREG=WKAREA1; /* INVALID NUMBER IN REG */ 00262000 SLR @08,@08 0130 00263000 IC @08,WKAREA1(,PARMRG) 0130 00264000 LR WKREG,@08 0130 00265000 * IEC042I=MESSAGE; /* PUT MSG IN IOB WORK AREA */ 00266000 L @08,IOBSTART(,IOBSTPTR) 0131 00267000 MVC IEC042I(67,@08),MESSAGE 0131 00268000 * GEN REFS(WKREG,DWORD)(CVD WKREG,DWORD+THRTY2(IOBSTPTR)) 00269000 * ; 0132 00270000 CVD WKREG,DWORD+THRTY2(IOBSTPTR) 00271000 * GEN REFS(UNPKNO,PAKED) 0133 00272000 *(UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR)); 0133 00273000 UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR) 00274000 * GEN REFS(UNPKNO,SGNMASK) 0134 00275000 * (OI UNPKNO+THRTY5(IOBSTPTR),FZERO); 0134 00276000 OI UNPKNO+THRTY5(IOBSTPTR),FZERO 00277000 * XXXNO=UNPKNO; /* INVALID NUMBER IN MSG */ 00278000 L @08,IOBSTART(,IOBSTPTR) 0135 00279000 MVI XXXNO+4(@08),C' ' 0135 00280000 MVC XXXNO+5(3,@08),XXXNO+4(@08) 0135 00281000 MVC XXXNO(4,@08),UNPKNO(@08) 0135 00282000 * YYYYTXT=LNMKCD; /* MOVE IN MSG TEST */ 00283000 MVC YYYYTXT(12,@08),@CC00783 0136 00284000 * GENERATE; 0137 00285000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00286000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MSG AREA */ 00287000 L @08,IOBSTART(,IOBSTPTR) 0138 00288000 XC IEC042I(67,@08),IEC042I(@08) 0138 00289000 * END; 0139 00290000 * END; 0140 00291000 @RF00128 DS 0H 0141 00292000 * IF ADDR2^=ZERO THEN 0141 00293000 @RC00108 SLR @08,@08 0141 00294000 L @04,ADDR2(,PARMRG) 0141 00295000 CR @04,@08 0141 00296000 BE @RF00141 0141 00297000 * DO; /* TEST IF LINE NUMBER */ 00298000 * IF ADDR2>ZERO THEN 0143 00299000 CR @04,@08 0143 00300000 BNH @RF00143 0143 00301000 * DO; /* TEST FOR AN ADDRESS */ 00302000 * WKAREA2=ADDR2->DGETAREA; 0145 00303000 MVC WKAREA2(1,PARMRG),DGETAREA(@04) 0145 00304000 * IF WKAREA2>THIRTY3 THEN 0146 00305000 CLI WKAREA2(PARMRG),33 0146 00306000 BNH @RF00146 0146 00307000 * DO; /* VALID NUMBER? */ 00308000 * WKREG=WKAREA2; 0148 00309000 SLR WKREG,WKREG 0148 00310000 IC WKREG,WKAREA2(,PARMRG) 0148 00311000 * IEC042I=MESSAGE;/* PUT MSG IN IOB WORK AREA */ 00312000 L @08,IOBSTART(,IOBSTPTR) 0149 00313000 MVC IEC042I(67,@08),MESSAGE 0149 00314000 * GEN REFS(WKREG,DWORD) 0150 00315000 * (CVD WKREG,DWORD+THRTY2(IOBSTPTR)); 0150 00316000 CVD WKREG,DWORD+THRTY2(IOBSTPTR) 00317000 * GEN REFS(UNPKNO,PAKED) 0151 00318000 *(UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR)); 0151 00319000 UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR) 00320000 * GEN REFS(UNPKNO,SGNMASK) 0152 00321000 * (OI UNPKNO+THRTY5(IOBSTPTR),FZERO); 0152 00322000 OI UNPKNO+THRTY5(IOBSTPTR),FZERO 00323000 * XXXNO=UNPKNO; /* INVALID NUMBER IN MSG MARK 0153 00324000 * NUMBER */ 00325000 L @08,IOBSTART(,IOBSTPTR) 0153 00326000 MVI XXXNO+4(@08),C' ' 0153 00327000 MVC XXXNO+5(3,@08),XXXNO+4(@08) 0153 00328000 MVC XXXNO(4,@08),UNPKNO(@08) 0153 00329000 * YYYYTXT=LNMKNO; /* MOVE IN MSG TEST */ 00330000 MVC YYYYTXT(12,@08),@CC00786 0154 00331000 * GENERATE; 0155 00332000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00333000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MSG AREA */ 00334000 L @08,IOBSTART(,IOBSTPTR) 0156 00335000 XC IEC042I(67,@08),IEC042I(@08) 0156 00336000 * END; 0157 00337000 * ELSE 0158 00338000 * WKAREA2=ADDR2->DGETAREA;/* MOVE DIGIT TO WORK AREA */ 00339000 B @RC00146 0158 00340000 @RF00146 L @08,ADDR2(,PARMRG) 0158 00341000 MVC WKAREA2(1,PARMRG),DGETAREA(@08) 0158 00342000 * END; 0159 00343000 * ELSE 0160 00344000 * DO; 0160 00345000 B @RC00143 0160 00346000 @RF00143 DS 0H 0161 00347000 * WKREG=ABS(ADDR2); /* MOVE DIGIT TO REG */ 00348000 L WKREG,ADDR2(,PARMRG) 0161 00349000 LPR WKREG,WKREG 0161 00350000 * WKAREA2=WKREG; /* MOVE DIGIT TO WORKAREA */ 00351000 STC WKREG,WKAREA2(,PARMRG) 0162 00352000 * IF WKAREA2>THIRTY3 THEN 0163 00353000 CLI WKAREA2(PARMRG),33 0163 00354000 BNH @RF00163 0163 00355000 * DO; /* VALID NUMBER */ 00356000 * WKREG=WKAREA2; /* INVALID NUMBER IN REG */ 00357000 SLR @08,@08 0165 00358000 IC @08,WKAREA2(,PARMRG) 0165 00359000 LR WKREG,@08 0165 00360000 * IEC042I=MESSAGE;/* PUT MSG IN IOB WORK AREA */ 00361000 L @08,IOBSTART(,IOBSTPTR) 0166 00362000 MVC IEC042I(67,@08),MESSAGE 0166 00363000 * GEN REFS(WKREG,DWORD) 0167 00364000 * (CVD WKREG,DWORD+THRTY2(IOBSTPTR)); 0167 00365000 CVD WKREG,DWORD+THRTY2(IOBSTPTR) 00366000 * GEN REFS(UNPKNO,PAKED) 0168 00367000 *(UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR)); 0168 00368000 UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR) 00369000 * GEN REFS(UNPKNO,SGNMASK) 0169 00370000 * (OI UNPKNO+THRTY5(IOBSTPTR),FZERO); 0169 00371000 OI UNPKNO+THRTY5(IOBSTPTR),FZERO 00372000 * XXXNO=UNPKNO; /* INVALID NUMBER IN MSG */ 00373000 L @08,IOBSTART(,IOBSTPTR) 0170 00374000 MVI XXXNO+4(@08),C' ' 0170 00375000 MVC XXXNO+5(3,@08),XXXNO+4(@08) 0170 00376000 MVC XXXNO(4,@08),UNPKNO(@08) 0170 00377000 * YYYYTXT=LNMKNO; /* MOVE IN MSG TEST */ 00378000 MVC YYYYTXT(12,@08),@CC00786 0171 00379000 * GENERATE; 0172 00380000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00381000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MSG AREA */ 00382000 L @08,IOBSTART(,IOBSTPTR) 0173 00383000 XC IEC042I(67,@08),IEC042I(@08) 0173 00384000 * END; 0174 00385000 * END; 0175 00386000 * END; 0176 00387000 * ELSE 0177 00388000 * WKAREA2=DCBLNNUM; /* MOVE DIGIT TO WORK AREA */ 00389000 B @RC00141 0177 00390000 @RF00141 MVC WKAREA2(1,PARMRG),DCBLNNUM+4(DCBRG) 0177 00391000 * END; 0178 00392000 * ELSE 0179 00393000 * ; 0179 00394000 @RF00104 DS 0H 0180 00395000 * 0180 00396000 * /*****************************************************************/ 00397000 * /* */ 00398000 * /* TEST FOR PAGE MARK */ 00399000 * /* */ 00400000 * /*****************************************************************/ 00401000 * 0180 00402000 *PAGEMARK: /* LABEL FOR PAGE MARK FUNCTN */ 00403000 * IF CODE=PGMARK THEN 0180 00404000 @RC00104 DS 0H 0180 00405000 PAGEMARK CLI CODE(PARMRG),X'0C' 0180 00406000 BNE @RF00180 0180 00407000 * DO; /* TEST FOR PAGE MARK CODE */ 00408000 * SCCWCONT=ONE; /* CCW BYTE COUNT - ONE */ 00409000 L @08,IOBSTART(,IOBSTPTR) 0182 00410000 MVC SCCWCONT(2,@08),@CH00041 0182 00411000 * CMDCDSTR=PAGEMK; /* CCW OPCODE - PAGE MARK */ 00412000 MVI CMDCDSTR(@08),X'55' 0183 00413000 * IF ADDR1>ZERO THEN 0184 00414000 L @04,ADDR1(,PARMRG) 0184 00415000 LTR @04,@04 0184 00416000 BNP @RF00184 0184 00417000 * DO; /* TEST FOR AN ADDR */ 00418000 * WKAREA1=ADDR1->DIGTAREA;/* MOVE DIGIT TO WORK AREA */ 00419000 MVC WKAREA1(1,PARMRG),DIGTAREA(@04) 0186 00420000 * IF WKAREA1>FIFTEEN THEN 0187 00421000 CLI WKAREA1(PARMRG),15 0187 00422000 BNH @RF00187 0187 00423000 * DO; /* VALID NUMBER? */ 00424000 * WKREG=WKAREA1; /* INVALID NUMBER IN REG */ 00425000 SLR WKREG,WKREG 0189 00426000 IC WKREG,WKAREA1(,PARMRG) 0189 00427000 * IEC042I=MESSAGE; /* PUT MSG IN IOB WORK AREA */ 00428000 MVC IEC042I(67,@08),MESSAGE 0190 00429000 * GEN REFS(WKREG,DWORD)(CVD WKREG,DWORD+THRTY2(IOBSTPTR)) 00430000 * ; 0191 00431000 CVD WKREG,DWORD+THRTY2(IOBSTPTR) 00432000 * GEN REFS(UNPKNO,PAKED) 0192 00433000 *(UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR)); 0192 00434000 UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR) 00435000 * GEN REFS(UNPKNO,SGNMASK) 0193 00436000 * (OI UNPKNO+THRTY5(IOBSTPTR),FZERO); 0193 00437000 OI UNPKNO+THRTY5(IOBSTPTR),FZERO 00438000 * XXXNO=UNPKNO; /* INVALID NUMBER IN MSG MARK 0194 00439000 * CODE */ 00440000 L @08,IOBSTART(,IOBSTPTR) 0194 00441000 MVI XXXNO+4(@08),C' ' 0194 00442000 MVC XXXNO+5(3,@08),XXXNO+4(@08) 0194 00443000 MVC XXXNO(4,@08),UNPKNO(@08) 0194 00444000 * YYYYTXT=DOCCD; /* MOVE IN MSG TEXT */ 00445000 MVC YYYYTXT(12,@08),@CC00789 0195 00446000 * GENERATE; 0196 00447000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00448000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MSG AREA */ 00449000 L @08,IOBSTART(,IOBSTPTR) 0197 00450000 XC IEC042I(67,@08),IEC042I(@08) 0197 00451000 * END; 0198 00452000 * ELSE 0199 00453000 * WKAREA1=ADDR1->DIGTAREA;/* MOVE DIGIT TO WORK AREA */ 00454000 B @RC00187 0199 00455000 @RF00187 L @08,ADDR1(,PARMRG) 0199 00456000 MVC WKAREA1(1,PARMRG),DIGTAREA(@08) 0199 00457000 * END; 0200 00458000 * ELSE 0201 00459000 * DO; 0201 00460000 B @RC00184 0201 00461000 @RF00184 DS 0H 0202 00462000 * WKREG=ABS(ADDR1); /* MOVE DIGIT TO REG */ 00463000 L WKREG,ADDR1(,PARMRG) 0202 00464000 LPR WKREG,WKREG 0202 00465000 * WKAREA1=WKREG; /* MOVE DIGIT TO WORKAREA */ 00466000 STC WKREG,WKAREA1(,PARMRG) 0203 00467000 * IF WKAREA1>FIFTEEN THEN 0204 00468000 CLI WKAREA1(PARMRG),15 0204 00469000 BNH @RF00204 0204 00470000 * DO; /* VALID NUMBER */ 00471000 * WKREG=WKAREA1; /* INVALID NUMBER IN REG */ 00472000 SLR @08,@08 0206 00473000 IC @08,WKAREA1(,PARMRG) 0206 00474000 LR WKREG,@08 0206 00475000 * IEC042I=MESSAGE; /* PUT MSG IN IOB WORK AREA */ 00476000 L @08,IOBSTART(,IOBSTPTR) 0207 00477000 MVC IEC042I(67,@08),MESSAGE 0207 00478000 * GEN REFS(WKREG,DWORD)(CVD WKREG,DWORD+THRTY2(IOBSTPTR)) 00479000 * ; 0208 00480000 CVD WKREG,DWORD+THRTY2(IOBSTPTR) 00481000 * GEN REFS(UNPKNO,PAKED) 0209 00482000 *(UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR)); 0209 00483000 UNPK UNPKNO+THRTY2(FOR,IOBSTPTR),PAKED+THRTY2(TO,IOBSTPTR) 00484000 * GEN REFS(UNPKNO,SGNMASK) 0210 00485000 * (OI UNPKNO+THRTY5(IOBSTPTR),FZERO); 0210 00486000 OI UNPKNO+THRTY5(IOBSTPTR),FZERO 00487000 * XXXNO=UNPKNO; /* INVALID NUMBER IN MSG */ 00488000 L @08,IOBSTART(,IOBSTPTR) 0211 00489000 MVI XXXNO+4(@08),C' ' 0211 00490000 MVC XXXNO+5(3,@08),XXXNO+4(@08) 0211 00491000 MVC XXXNO(4,@08),UNPKNO(@08) 0211 00492000 * YYYYTXT=DOCCD; /* MOVE IN MSG TEST */ 00493000 MVC YYYYTXT(12,@08),@CC00789 0212 00494000 * GENERATE; 0213 00495000 WTO MF=(E,(1)) ISSUE WRITE TO PROGRAMMER 00496000 * IEC042I=IEC042I&&IEC042I;/* ZERO OUT MSG AREA */ 00497000 L @08,IOBSTART(,IOBSTPTR) 0214 00498000 XC IEC042I(67,@08),IEC042I(@08) 0214 00499000 * END; 0215 00500000 * END; 0216 00501000 * END; 0217 00502000 * ELSE 0218 00503000 * ; /* NOT PAGE MARK 0218 00504000 * */ 00505000 @RF00180 DS 0H 0219 00506000 * 0219 00507000 * /*****************************************************************/ 00508000 * /* */ 00509000 * /* BUILD EJECT CCW'S AND I/O */ 00510000 * /* */ 00511000 * /*****************************************************************/ 00512000 * 0219 00513000 * IF CODE=STK THEN 0219 00514000 @RC00180 CLI CODE(PARMRG),X'04' 0219 00515000 BNE @RF00219 0219 00516000 * DO; /* TEST FOR EJECT CODE */ 00517000 * NOOPCCW=SCANCCW; /* MOVE EJECT CCW TO TOP */ 00518000 L @08,IOBSTART(,IOBSTPTR) 0221 00519000 MVC NOOPCCW(8,@08),SCANCCW(@08) 0221 00520000 * NDATADDR=ADDR(WKAREA1); /* ADDR OF DATA IN CCW */ 00521000 LA @04,WKAREA1(,PARMRG) 0222 00522000 ST @04,NDATADDR(,@08) 0222 00523000 * NCMDCODE=CMDCDSTR; /* STORE COMMAND CODE */ 00524000 MVC NCMDCODE(1,@08),CMDCDSTR(@08) 0223 00525000 * CMDCDSTR=CMDCDSTR&&CMDCDSTR;/* ZERO OUT COMMAND CODE */ 00526000 XC CMDCDSTR(1,@08),CMDCDSTR(@08) 0224 00527000 * NCMCHAIN=BIN1; /* COMMAND CHAINING ON */ 00528000 OI NCMCHAIN(@08),B'01000000' 0225 00529000 * SDATADDR=ONE; /* RESTORE */ 00530000 LA @04,1 0226 00531000 ST @04,SDATADDR(,@08) 0226 00532000 * SCMDCODE=NOOP; /* NOOP */ 00533000 MVI SCMDCODE(@08),X'03' 0227 00534000 * SCMCHAIN=OFF; /* CHANNEL */ 00535000 NI SCMCHAIN(@08),B'10111111' 0228 00536000 * SCCWCONT=ONE; /* PROGRAM */ 00537000 STH @04,SCCWCONT(,@08) 0229 00538000 * IOBSTR=IOBECBPT; /* SAVE IOB ECB */ 00539000 MVC IOBSTR(4,@08),IOBECBPT(IOBSTPTR) 0230 00540000 * IOBECBPT=DCBIOBA+FOUR; /* ADDR OF CONTROL ECB */ 00541000 LA @08,4 0231 00542000 AL @08,DCBIOBA+52(,DCBRG) 0231 00543000 ST @08,IOBECBPT(,IOBSTPTR) 0231 00544000 * GENERATE; 0232 00545000 EXCP (IOBSTPTR) INITIATE I/O 00546000 L R15,IOBECBPT(,IOBSTPTR) 00547000 WAIT ECB=(R15) 00548000 * IF IOBECBCC=FRTY1| /* TEST FOR I/O ERROR */ 00549000 * IOBECBCC=FRTY4 THEN 0233 00550000 CLI IOBECBCC(IOBSTPTR),X'41' 0233 00551000 BE @RT00233 0233 00552000 CLI IOBECBCC(IOBSTPTR),X'44' 0233 00553000 BNE @RF00233 0233 00554000 @RT00233 DS 0H 0234 00555000 * DO; 0234 00556000 * REG1=DCBRG; /* PUT DCB ADDR IN REG 1 */ 00557000 LR REG1,DCBRG 0235 00558000 * GENERATE; 0236 00559000 LA ZARO,ZARO(SX) UPDATE IOB POINTER 00560000 LA WKREG,ATE UPDATE IOB POINTER 00561000 SR REG0,WKREG UPDATE IOB POINTER 00562000 STM REG0,REG1,SXTY4(REG13) SAVE REGISTERS 00563000 EOV ZARO(REG1) SVC 55 TO EOV ROUTINE 00564000 BALR REG14,R15 GO TO SYNAD 00565000 LA FIFTN,ZARO(FIFTN) 00566000 ST R15,FIFT6(REG13) STORE ADDR FROM SYNAD 00567000 LM REG0,REG1,SXTY4(REG13) STORE REGS 0 AND 1 00568000 EOV ZARO(REG1) SVC 55 TO EOV ROUTINE 00569000 * IF WKREG^=ZERO&WKREG^=DCBSYNA THEN 0237 00570000 LTR WKREG,WKREG 0237 00571000 BZ @RF00237 0237 00572000 SLR @08,@08 0237 00573000 ICM @08,7,DCBSYNA+52(DCBRG) 0237 00574000 CR WKREG,@08 0237 00575000 BE @RF00237 0237 00576000 * REG14=WKREG; 0238 00577000 LR REG14,WKREG 0238 00578000 * ELSE 0239 00579000 * DO; 0239 00580000 B @RC00237 0239 00581000 @RF00237 DS 0H 0240 00582000 * GENERATE; 0240 00583000 L REG14,TWENTY(REG13,ZARO) 00584000 * END; 0241 00585000 * IOBECBPT=IOBSTR; /* RESTORE IOB ECB */ 00586000 @RC00237 L @08,IOBSTART(,IOBSTPTR) 0242 00587000 MVC IOBECBPT(4,IOBSTPTR),IOBSTR(@08) 0242 00588000 * NDATADDR=ONE; /* RESTORE */ 00589000 LA @04,1 0243 00590000 ST @04,NDATADDR(,@08) 0243 00591000 * NCMDCODE=NOOP; /* NOOP */ 00592000 MVI NCMDCODE(@08),X'03' 0244 00593000 * NCMCHAIN=BIN1; /* CHANNEL */ 00594000 OI NCMCHAIN(@08),B'01000000' 0245 00595000 * NCCWCONT=ONE; /* PROGRAM */ 00596000 STH @04,NCCWCONT(,@08) 0246 00597000 * SCANCCW=SCANSTOR; /* RESTORE SCAN CCW */ 00598000 MVC SCANCCW(8,@08),SCANSTOR(@08) 0247 00599000 * END; 0248 00600000 * ELSE 0249 00601000 * DO; 0249 00602000 B @RC00233 0249 00603000 @RF00233 DS 0H 0250 00604000 * IOBECBPT=IOBSTR; /* RESTORE IOB ECB */ 00605000 L @08,IOBSTART(,IOBSTPTR) 0250 00606000 MVC IOBECBPT(4,IOBSTPTR),IOBSTR(@08) 0250 00607000 * NDATADDR=ONE; /* RESTORE */ 00608000 LA @04,1 0251 00609000 ST @04,NDATADDR(,@08) 0251 00610000 * NCMDCODE=NOOP; /* NOOP */ 00611000 MVI NCMDCODE(@08),X'03' 0252 00612000 * NCMCHAIN=BIN1; /* CHANNEL */ 00613000 OI NCMCHAIN(@08),B'01000000' 0253 00614000 * NCCWCONT=ONE; /* PROGRAM */ 00615000 STH @04,NCCWCONT(,@08) 0254 00616000 * SCANCCW=SCANSTOR; /* RESTORE SCAN CCW */ 00617000 MVC SCANCCW(8,@08),SCANSTOR(@08) 0255 00618000 * GENERATE; 0256 00619000 L REG14,TWENTY(REG13,ZARO) 00620000 * END; 0257 00621000 * END; 0258 00622000 * 0259 00623000 * /*****************************************************************/ 00624000 * /* */ 00625000 * /* BUILD LINE MARK OR PAGE MARK CCW AND I/O */ 00626000 * /* */ 00627000 * /*****************************************************************/ 00628000 * 0259 00629000 * ELSE 0259 00630000 * DO; 0259 00631000 B @RC00219 0259 00632000 @RF00219 DS 0H 0260 00633000 * SDATADDR=ADDR(WKAREA1); /* ADDR OF DATA IN CCW */ 00634000 L @08,IOBSTART(,IOBSTPTR) 0260 00635000 LA @04,WKAREA1(,PARMRG) 0260 00636000 ST @04,SDATADDR(,@08) 0260 00637000 * SCMDCODE=CMDCDSTR; /* STORE COMMAND CODE */ 00638000 MVC SCMDCODE(1,@08),CMDCDSTR(@08) 0261 00639000 * CMDCDSTR=CMDCDSTR&&CMDCDSTR;/* ZERO OUT COMMAND CODE */ 00640000 XC CMDCDSTR(1,@08),CMDCDSTR(@08) 0262 00641000 * SCMCHAIN=OFF; /* COMMAND CHAINING OFF */ 00642000 NI SCMCHAIN(@08),B'10111111' 0263 00643000 * IOBSTR=IOBECBPT; /* SAVE IOB ECB */ 00644000 MVC IOBSTR(4,@08),IOBECBPT(IOBSTPTR) 0264 00645000 * IOBECBPT=DCBIOBA+FOUR; /* ADDR OF CONTROL ECB */ 00646000 LA @04,4 0265 00647000 AL @04,DCBIOBA+52(,DCBRG) 0265 00648000 ST @04,IOBECBPT(,IOBSTPTR) 0265 00649000 * IOBSTART=IOBSTART+EIGHT; /* UPDATE CCW POINTER */ 00650000 SLR @04,@04 0266 00651000 ICM @04,3,EIGHT 0266 00652000 ALR @08,@04 0266 00653000 ST @08,IOBSTART(,IOBSTPTR) 0266 00654000 *EXECCWS: /* PERFORM FUNCTION ON DEVICE */ 00655000 * GENERATE; 0267 00656000 EXECCWS DS 0H 0267 00657000 EXCP (IOBSTPTR) 00658000 L R15,IOBECBPT(,IOBSTPTR) 00659000 WAIT ECB=(R15) 00660000 * IOBSTART=IOBSTART-EIGHT; /* UPDATE CCW POINTER */ 00661000 L @08,IOBSTART(,IOBSTPTR) 0268 00662000 SLR @04,@04 0268 00663000 ICM @04,3,EIGHT 0268 00664000 SLR @08,@04 0268 00665000 ST @08,IOBSTART(,IOBSTPTR) 0268 00666000 * IF IOBECBCC=FRTY1|IOBECBCC=FRTY4 THEN 0269 00667000 CLI IOBECBCC(IOBSTPTR),X'41' 0269 00668000 BE @RT00269 0269 00669000 CLI IOBECBCC(IOBSTPTR),X'44' 0269 00670000 BNE @RF00269 0269 00671000 @RT00269 DS 0H 0270 00672000 * DO; /* ERROR? */ 00673000 * REG1=DCBRG; /* PUT DCB ADDR IN REG 1 */ 00674000 LR REG1,DCBRG 0271 00675000 * GENERATE; 0272 00676000 LA ZARO,ZARO(SX) UPDATE IOB POINTER 00677000 LA WKREG,ATE UPDATE IOB POINTER 00678000 SR REG0,WKREG UPDATE IOB POINTER 00679000 STM REG0,REG1,SXTY4(REG13) SAVE REGISTERS 00680000 EOV ZARO(REG1) SVC 55 TO EOV ROUTINE 00681000 BALR REG14,R15 GO TO SYNAD 00682000 LA FIFTN,ZARO(FIFTN) 00683000 ST R15,FIFT6(REG13) STORE ADDR FROM SYNAD 00684000 LM REG0,REG1,SXTY4(REG13) STORE REGS 0 AND 1 00685000 EOV ZARO(REG1) SVC 55 TO EOV ROUTINE 00686000 * IF WKREG^=ZERO&WKREG^=DCBSYNA THEN 0273 00687000 LTR WKREG,WKREG 0273 00688000 BZ @RF00273 0273 00689000 SLR @08,@08 0273 00690000 ICM @08,7,DCBSYNA+52(DCBRG) 0273 00691000 CR WKREG,@08 0273 00692000 BE @RF00273 0273 00693000 * REG14=WKREG; 0274 00694000 LR REG14,WKREG 0274 00695000 * ELSE 0275 00696000 * DO; 0275 00697000 B @RC00273 0275 00698000 @RF00273 DS 0H 0276 00699000 * GENERATE; 0276 00700000 L REG14,TWENTY(REG13,ZARO) 00701000 * END; 0277 00702000 * IOBECBPT=IOBSTR; /* RESTORE IOB ECB */ 00703000 @RC00273 L @08,IOBSTART(,IOBSTPTR) 0278 00704000 MVC IOBECBPT(4,IOBSTPTR),IOBSTR(@08) 0278 00705000 * NDATADDR=ONE; /* RESTORE */ 00706000 LA @04,1 0279 00707000 ST @04,NDATADDR(,@08) 0279 00708000 * NCMDCODE=NOOP; /* NOOP */ 00709000 MVI NCMDCODE(@08),X'03' 0280 00710000 * NCMCHAIN=BIN1; /* CHANNEL */ 00711000 OI NCMCHAIN(@08),B'01000000' 0281 00712000 * NCCWCONT=ONE; /* PROGRAM */ 00713000 STH @04,NCCWCONT(,@08) 0282 00714000 * SCANCCW=SCANSTOR; /* RESTORE SCAN CCW */ 00715000 MVC SCANCCW(8,@08),SCANSTOR(@08) 0283 00716000 * END; 0284 00717000 * ELSE 0285 00718000 * DO; 0285 00719000 B @RC00269 0285 00720000 @RF00269 DS 0H 0286 00721000 * SCANCCW=SCANSTOR; /* RESTORE SCAN CCW */ 00722000 L @08,IOBSTART(,IOBSTPTR) 0286 00723000 MVC SCANCCW(8,@08),SCANSTOR(@08) 0286 00724000 * IOBECBPT=IOBSTR; /* RESTORE IOB ECB */ 00725000 MVC IOBECBPT(4,IOBSTPTR),IOBSTR(@08) 0287 00726000 * GENERATE; 0288 00727000 L REG14,TWENTY(REG13,ZARO) 00728000 * END; 0289 00729000 * END; 0290 00730000 @RC00269 DS 0H 0291 00731000 * GENERATE; 0291 00732000 @RC00219 DS 0H 0291 00733000 LM R15,REG8,TWNTY4(REG13) 00734000 * END IGG019LT 0292 00735000 * 0292 00736000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00737000 */*%INCLUDE SYSUT5 (TOPSGMT ) */ 00738000 */*%INCLUDE SYSUT5 (PROLOG ) */ 00739000 */*%INCLUDE SYSUT5 (DECLARE1) */ 00740000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00741000 */*%INCLUDE SYSLIB (IHADCB ) */ 00742000 */*%INCLUDE SYSLIB (IEZIOB ) */ 00743000 */*%INCLUDE SYSUT5 (DECLARE2) */ 00744000 */*%INCLUDE SYSUT5 (DECLARE3) */ 00745000 */*%INCLUDE SYSUT5 (DECLARE4) */ 00746000 */*%INCLUDE SYSUT5 (EJECT ) */ 00747000 */*%INCLUDE SYSUT5 (MKLINE ) */ 00748000 */*%INCLUDE SYSUT5 (PGMARK ) */ 00749000 */*%INCLUDE SYSUT5 (EJECTCCW) */ 00750000 */*%INCLUDE SYSUT5 (OTHERCCW) */ 00751000 * 0292 00752000 * ; 0292 00753000 @EL00001 DS 0H 0292 00754000 @EF00001 DS 0H 0292 00755000 @ER00001 BR @14 0292 00756000 @DATA DS 0H 00757000 @CH00041 DC H'1' 00758000 @CH00095 DC H'2' 00759000 DS 0F 00760000 DS 0F 00761000 DS 0D 00762000 EIGHT DC AL2(8) 00763000 TWNTY DC AL1(20) 00764000 @CC00780 DC C'NUM TIME MKS' 00765000 @CC00783 DC C'LINE MK CODE' 00766000 @CC00786 DC C'LINE MK NO ' 00767000 @CC00789 DC C'DOC CODE ' 00768000 MTAREA DS CL100 00769000 DS CL1 00770000 WKAREA DS CL8 00771000 IGG019LT CSECT 00772000 MESSAGE WTO 'IEC042I INVALID DATA - XXXXXXXX SPECIFIED FOR YYYYYYYYX00773000 YYYY',MF=L,ROUTCDE=11 00774000 IGG019LT CSECT 00775000 FZERO EQU X'F0' CONSTANT EQUATE 00776000 ZARO EQU 0 CONSTANT EQUATE 00777000 TO EQU 2 CONSTANT EQUATE 00778000 FOR EQU 4 CONSTANT EQUATE 00779000 SX EQU 6 CONSTANT EQUATE 00780000 ATE EQU 8 CONSTANT EQUATE 00781000 FIFTN EQU 15 CONSTANT EQUATE 00782000 TWENTY EQU 20 CONSTANT EQUATE 00783000 TWNTY4 EQU 24 CONSTANT EQUATE 00784000 THRTY2 EQU 32 CONSTANT EQUATE 00785000 THRTY5 EQU 35 CONSTANT EQUATE 00786000 FIFT6 EQU 56 CONSTANT EQUATE 00787000 SXTY4 EQU 64 CONSTANT EQUATE 00788000 IGG019LT CSECT 00789000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00790000 @01 EQU 01 00791000 @02 EQU 02 00792000 @03 EQU 03 00793000 @04 EQU 04 00794000 @05 EQU 05 00795000 @06 EQU 06 00796000 @07 EQU 07 00797000 @08 EQU 08 00798000 @09 EQU 09 00799000 @10 EQU 10 00800000 @11 EQU 11 00801000 @12 EQU 12 00802000 @13 EQU 13 00803000 @14 EQU 14 00804000 @15 EQU 15 00805000 DCBRG EQU @03 00806000 IOBSTPTR EQU @06 00807000 PARMRG EQU @02 00808000 REG0 EQU @00 00809000 REG1 EQU @01 00810000 REG5 EQU @05 00811000 WKREG EQU @07 00812000 REG9 EQU @09 00813000 REG10 EQU @10 00814000 REG11 EQU @11 00815000 REG12 EQU @12 00816000 REG13 EQU @13 00817000 REG14 EQU @14 00818000 R15 EQU @15 00819000 REG8 EQU @08 00820000 IHADCB EQU 0 00821000 IHADCS07 EQU 0 00822000 DCBWTOID EQU IHADCS07 00823000 IHADCS08 EQU 0 00824000 DCBERRCN EQU IHADCS08 00825000 DCBLNNUM EQU DCBERRCN 00826000 DCBERRCA EQU DCBERRCN+1 00827000 DCBORFLG EQU DCBERRCA+1 00828000 DCBEOPFG EQU DCBORFLG 00829000 DCBDSPLY EQU IHADCS08+4 00830000 DCBFRID EQU DCBDSPLY 00831000 DCBRESCN EQU IHADCS08+8 00832000 DCBRDLNE EQU DCBRESCN 00833000 DCBFRTBA EQU DCBRDLNE 00834000 DCBRESCA EQU DCBFRTBA+1 00835000 DCBORBYT EQU IHADCS08+12 00836000 DCBEIB EQU IHADCS08+14 00837000 IHADCS11 EQU 0 00838000 DCBRELB EQU IHADCS11 00839000 DCBREL EQU DCBRELB+1 00840000 DCBBUFCB EQU IHADCS11+4 00841000 DCBDSORG EQU IHADCS11+10 00842000 DCBDSRG1 EQU DCBDSORG 00843000 DCBDSRG2 EQU DCBDSORG+1 00844000 DCBIOBAD EQU IHADCS11+12 00845000 DCBODEB EQU DCBIOBAD 00846000 DCBLNP EQU DCBODEB 00847000 DCBQSLM EQU DCBLNP 00848000 DCBIOBAA EQU DCBODEB+1 00849000 IHADCS50 EQU 0 00850000 DCBSVCXL EQU IHADCS50 00851000 DCBEODAD EQU IHADCS50+4 00852000 DCBBFALN EQU DCBEODAD 00853000 DCBHIARC EQU DCBBFALN 00854000 DCBBFTEK EQU DCBHIARC 00855000 DCBBFT EQU DCBBFTEK 00856000 DCBEXLST EQU IHADCS50+8 00857000 DCBRECFM EQU DCBEXLST 00858000 DCBRECLA EQU DCBRECFM 00859000 IHADCS24 EQU 0 00860000 DCBOFLGS EQU IHADCS24+8 00861000 DCBOFLWR EQU DCBOFLGS 00862000 DCBIFLG EQU IHADCS24+9 00863000 DCBMACR EQU IHADCS24+10 00864000 DCBMACR1 EQU DCBMACR 00865000 DCBMRFE EQU DCBMACR1 00866000 DCBMRGET EQU DCBMRFE 00867000 DCBMRAPG EQU DCBMACR1 00868000 DCBMRRD EQU DCBMRAPG 00869000 DCBMRCI EQU DCBMACR1 00870000 DCBMRMVG EQU DCBMRCI 00871000 DCBMRLCG EQU DCBMACR1 00872000 DCBMRABC EQU DCBMACR1 00873000 DCBMRPT1 EQU DCBMRABC 00874000 DCBMRSBG EQU DCBMRPT1 00875000 DCBMRCRL EQU DCBMACR1 00876000 DCBMRCHK EQU DCBMRCRL 00877000 DCBMRRDX EQU DCBMRCHK 00878000 DCBMRDMG EQU DCBMACR1 00879000 DCBMACR2 EQU DCBMACR+1 00880000 DCBMRPUT EQU DCBMACR2 00881000 DCBMRWRT EQU DCBMACR2 00882000 DCBMRMVP EQU DCBMACR2 00883000 DCBMR5WD EQU DCBMACR2 00884000 DCBMRLDM EQU DCBMR5WD 00885000 DCBMRLCP EQU DCBMRLDM 00886000 DCBMR4WD EQU DCBMACR2 00887000 DCBMRPT2 EQU DCBMR4WD 00888000 DCBMRTMD EQU DCBMRPT2 00889000 DCBMR3WD EQU DCBMACR2 00890000 DCBMRCTL EQU DCBMR3WD 00891000 DCBMRSTK EQU DCBMRCTL 00892000 DCBMR1WD EQU DCBMACR2 00893000 DCBMRSWA EQU DCBMR1WD 00894000 DCBMRDMD EQU DCBMRSWA 00895000 IHADCS25 EQU 0 00896000 DCBMACRF EQU IHADCS25+2 00897000 DCBMACF1 EQU DCBMACRF 00898000 DCBMFFE EQU DCBMACF1 00899000 DCBMFGET EQU DCBMFFE 00900000 DCBMFAPG EQU DCBMACF1 00901000 DCBMFRD EQU DCBMFAPG 00902000 DCBMFCI EQU DCBMACF1 00903000 DCBMFMVG EQU DCBMFCI 00904000 DCBMFLCG EQU DCBMACF1 00905000 DCBMFABC EQU DCBMACF1 00906000 DCBMFPT1 EQU DCBMFABC 00907000 DCBMFSBG EQU DCBMFPT1 00908000 DCBMFCRL EQU DCBMACF1 00909000 DCBMFCHK EQU DCBMFCRL 00910000 DCBMFDMG EQU DCBMACF1 00911000 DCBMACF2 EQU DCBMACRF+1 00912000 DCBMFPUT EQU DCBMACF2 00913000 DCBMFWRT EQU DCBMACF2 00914000 DCBMFMVP EQU DCBMACF2 00915000 DCBMF5WD EQU DCBMACF2 00916000 DCBMFLDM EQU DCBMF5WD 00917000 DCBMFLCP EQU DCBMFLDM 00918000 DCBMF4WD EQU DCBMACF2 00919000 DCBMFPT2 EQU DCBMF4WD 00920000 DCBMFTMD EQU DCBMFPT2 00921000 DCBMF3WD EQU DCBMACF2 00922000 DCBMFCTL EQU DCBMF3WD 00923000 DCBMFSTK EQU DCBMFCTL 00924000 DCBMF1WD EQU DCBMACF2 00925000 DCBMFSWA EQU DCBMF1WD 00926000 DCBMFDMD EQU DCBMFSWA 00927000 DCBDEBAD EQU IHADCS25+4 00928000 DCBIFLGS EQU DCBDEBAD 00929000 IHADCS26 EQU 0 00930000 DCBWRITE EQU IHADCS26 00931000 DCBREAD EQU DCBWRITE 00932000 DCBWRITA EQU DCBREAD+1 00933000 IHADCS27 EQU 0 00934000 DCBGET EQU IHADCS27 00935000 DCBPUT EQU DCBGET 00936000 DCBGETA EQU DCBPUT+1 00937000 IHADCS36 EQU 0 00938000 DCBGERR EQU IHADCS36 00939000 DCBPERR EQU DCBGERR 00940000 DCBCHECK EQU DCBPERR 00941000 DCBOPTCD EQU DCBCHECK 00942000 DCBOPTH EQU DCBOPTCD 00943000 DCBOPTO EQU DCBOPTH 00944000 DCBOPTZ EQU DCBOPTCD 00945000 DCBGERRA EQU DCBCHECK+1 00946000 DCBPERRA EQU DCBGERRA 00947000 DCBSYNAD EQU IHADCS36+4 00948000 DCBSYNA EQU DCBSYNAD+1 00949000 DCBCIND1 EQU IHADCS36+8 00950000 DCBCIND2 EQU IHADCS36+9 00951000 DCBIOBA EQU IHADCS36+16 00952000 DCBCICB EQU DCBIOBA 00953000 IHADCS52 EQU 0 00954000 DCBDIRCT EQU IHADCS52 00955000 DCBQSWS EQU DCBDIRCT 00956000 DCBUSASI EQU DCBQSWS 00957000 DCBQADFS EQU DCBUSASI 00958000 DCBBUFOF EQU DCBDIRCT+1 00959000 IHADCS37 EQU 0 00960000 DCBFLAG1 EQU IHADCS37 00961000 IHADCS38 EQU 0 00962000 DCBEOBR EQU IHADCS38 00963000 DCBPOINT EQU IHADCS38+12 00964000 DCBCNTRL EQU DCBPOINT 00965000 IHADCS40 EQU 0 00966000 DCBEOBAD EQU IHADCS40 00967000 DCBCCCW EQU IHADCS40+4 00968000 DCBRECAD EQU DCBCCCW 00969000 DCBRECBT EQU DCBRECAD 00970000 DCBRCREL EQU DCBRECBT 00971000 @NM00031 EQU IHADCS40+12 00972000 DCBEROPT EQU @NM00031 00973000 IOBPREFX EQU 0 00974000 IOBCFLG1 EQU IOBPREFX 00975000 IOBSTDRD EQU 0 00976000 IOBFLAG1 EQU IOBSTDRD 00977000 IOBCYCCK EQU IOBFLAG1 00978000 IOBRSTRT EQU IOBFLAG1 00979000 IOBFLAG2 EQU IOBSTDRD+1 00980000 IOBPURGE EQU IOBFLAG2 00981000 IOBRDHA0 EQU IOBFLAG2 00982000 IOBSENS0 EQU IOBSTDRD+2 00983000 IOBS0B7 EQU IOBSENS0 00984000 IOBSENS1 EQU IOBSTDRD+3 00985000 IOBECBPT EQU IOBSTDRD+4 00986000 IOBECBCC EQU IOBECBPT 00987000 IOBFLAG3 EQU IOBSTDRD+8 00988000 IOBFL3 EQU IOBFLAG3 00989000 IOBCSW EQU IOBSTDRD+9 00990000 IOBIOCSW EQU IOBCSW 00991000 IOBSTART EQU IOBSTDRD+16 00992000 IOBDCBPT EQU IOBSTDRD+20 00993000 IOBFLAG4 EQU IOBDCBPT 00994000 IOBRESTR EQU IOBSTDRD+24 00995000 IOBINCAM EQU IOBSTDRD+28 00996000 IOBBTAMF EQU IOBINCAM 00997000 CCWS EQU 0 00998000 NOOPCCW EQU CCWS 00999000 NDATADDR EQU NOOPCCW 01000000 NCMDCODE EQU NDATADDR 01001000 NCMCHAIN EQU NOOPCCW+4 01002000 NCCWCONT EQU NOOPCCW+6 01003000 SCANCCW EQU CCWS+8 01004000 SDATADDR EQU SCANCCW 01005000 SCMDCODE EQU SDATADDR 01006000 SCMCHAIN EQU SCANCCW+4 01007000 SCCWCONT EQU SCANCCW+6 01008000 DATAREA EQU CCWS+24 01009000 IEC042I EQU DATAREA+4 01010000 XXXNO EQU IEC042I+28 01011000 YYYYTXT EQU IEC042I+51 01012000 SCANSTOR EQU DATAREA+71 01013000 IOBSTR EQU DATAREA+79 01014000 CMDCDSTR EQU DATAREA+83 01015000 DWORD EQU DATAREA+84 01016000 UNPKNO EQU DWORD 01017000 SGNMASK EQU UNPKNO+3 01018000 PAKED EQU DWORD+6 01019000 CTLPARMS EQU 0 01020000 CODE EQU CTLPARMS 01021000 WKAREA1 EQU CTLPARMS+1 01022000 TMCK EQU WKAREA1 01023000 STKBIT EQU WKAREA1 01024000 WKAREA2 EQU CTLPARMS+2 01025000 STACK EQU CTLPARMS+3 01026000 ADDR1 EQU CTLPARMS+4 01027000 ADDR2 EQU CTLPARMS+8 01028000 DGETAREA EQU 0 01029000 DIGTAREA EQU 0 01030000 IOBORG01 EQU IOBPREFX+8 01031000 IOBNIOBA EQU IOBORG01 01032000 IOBNFLG1 EQU IOBNIOBA 01033000 IOBORG02 EQU IOBPREFX+8 01034000 IOBDQADA EQU IOBORG02 01035000 IOBDEQIN EQU IOBDQADA 01036000 IOBORG03 EQU IOBPREFX+12 01037000 IOBORG04 EQU IOBINCAM 01038000 IOBORG12 EQU IOBINCAM 01039000 IOBFL4 EQU IOBORG12 01040000 IOBEXTEN EQU IOBSTDRD+32 01041000 IOBSEEK EQU IOBEXTEN 01042000 IOBBB EQU IOBSEEK+1 01043000 IOBCC EQU IOBSEEK+3 01044000 IOBHH EQU IOBSEEK+5 01045000 IOBORG05 EQU IOBEXTEN 01046000 IOBORG06 EQU IOBEXTEN 01047000 IOBNXTPT EQU IOBORG06+4 01048000 IOBSTATA EQU IOBNXTPT 01049000 IOBORG07 EQU IOBEXTEN+8 01050000 W1IEXTEN EQU IOBORG07 01051000 IOBORG08 EQU IOBEXTEN+8 01052000 IOBINDCT EQU IOBORG08+4 01053000 IOBUNSQR EQU IOBORG08+5 01054000 IOBFCHAD EQU IOBORG08+8 01055000 IOBORG09 EQU IOBEXTEN+8 01056000 IOBDPLAD EQU IOBORG09+4 01057000 IOBDTYPE EQU IOBORG09+8 01058000 IOBDTYP2 EQU IOBORG09+9 01059000 IOBDSTAT EQU IOBORG09+10 01060000 IOBSTAT1 EQU IOBDSTAT 01061000 IOBORG10 EQU IOBEXTEN+8 01062000 IOBSEEK2 EQU IOBORG10 01063000 IOBORG11 EQU IOBEXTEN 01064000 IOBERCT EQU IOBORG11 01065000 IOBUCBXV EQU IOBERCT 01066000 IOBNAME EQU IOBORG11+4 01067000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01068000 IOBCSWSV EQU IOBORG11+17 01069000 IOBSENSV EQU IOBORG11+16 01070000 IOBRCD EQU IOBORG11+12 01071000 IOBMDREC EQU IOBORG11+8 01072000 IOBNAMEA EQU IOBNAME+1 01073000 IOBNAMSZ EQU IOBNAME 01074000 IOBERCTA EQU IOBERCT+1 01075000 IOBRTYPE EQU IOBUCBXV 01076000 IOBRDCHP EQU IOBORG10+20 01077000 IOBNEXTA EQU IOBORG10+16 01078000 IOBREADA EQU IOBORG10+12 01079000 IOBBUFC EQU IOBORG10+8 01080000 IOBSK2R EQU IOBSEEK2+7 01081000 IOBSK2HH EQU IOBSEEK2+5 01082000 IOBSK2CC EQU IOBSEEK2+3 01083000 IOBSK2BB EQU IOBSEEK2+1 01084000 IOBSK2M EQU IOBSEEK2 01085000 IOBCHNPR EQU IOBORG09+40 01086000 IOBDNCRF EQU IOBORG09+32 01087000 IOBRSV35 EQU IOBORG09+24 01088000 IOBDQPTR EQU IOBORG09+20 01089000 IOBRSV34 EQU IOBORG09+18 01090000 IOBDBYTN EQU IOBORG09+16 01091000 IOBDCPND EQU IOBORG09+12 01092000 IOBSTAT2 EQU IOBDSTAT+1 01093000 IOBSIORT EQU IOBSTAT1 01094000 IOBADDVU EQU IOBSTAT1 01095000 IOBBUFF EQU IOBSTAT1 01096000 IOBENQUE EQU IOBSTAT1 01097000 IOBPASS2 EQU IOBSTAT1 01098000 IOBSYNCH EQU IOBSTAT1 01099000 IOBNEWVL EQU IOBSTAT1 01100000 IOBABNRM EQU IOBSTAT1 01101000 IOBRELEX EQU IOBDTYP2 01102000 IOBADDTY EQU IOBDTYP2 01103000 IOBTYPE EQU IOBDTYP2 01104000 IOBRQUST EQU IOBDTYP2 01105000 IOBSUFFX EQU IOBDTYP2 01106000 IOBSBLKL EQU IOBDTYP2 01107000 IOBSKEY EQU IOBDTYP2 01108000 IOBRELBL EQU IOBDTYPE 01109000 IOBRDEXC EQU IOBDTYPE 01110000 IOBDYNBF EQU IOBDTYPE 01111000 IOBACTAD EQU IOBDTYPE 01112000 IOBFDBCK EQU IOBDTYPE 01113000 IOBEXTSC EQU IOBDTYPE 01114000 IOBOVFLO EQU IOBDTYPE 01115000 IOBVERFY EQU IOBDTYPE 01116000 IOBDPLB EQU IOBDPLAD+1 01117000 IOBDAYLI EQU IOBDPLAD 01118000 IOBDIOBS EQU IOBORG09+2 01119000 IOBDBYTR EQU IOBORG09 01120000 IOBBCHAD EQU IOBORG08+12 01121000 IOBFCHNB EQU IOBFCHAD+1 01122000 IOBCOUNT EQU IOBFCHAD 01123000 IOBASYN EQU IOBORG08+7 01124000 IOBAPP EQU IOBORG08+6 01125000 IOBRSV32 EQU IOBUNSQR 01126000 IOBRSV31 EQU IOBUNSQR 01127000 IOBRSV30 EQU IOBUNSQR 01128000 IOBKNRWR EQU IOBUNSQR 01129000 IOBKNWR EQU IOBUNSQR 01130000 IOBNTAV2 EQU IOBUNSQR 01131000 IOBNTAV1 EQU IOBUNSQR 01132000 IOBCPBSY EQU IOBUNSQR 01133000 IOBCHNNL EQU IOBINDCT 01134000 IOBRSV29 EQU IOBINDCT 01135000 IOBRSV28 EQU IOBINDCT 01136000 IOBRSV27 EQU IOBINDCT 01137000 IOBKEYAD EQU IOBINDCT 01138000 IOBOVPTR EQU IOBINDCT 01139000 IOBUNSCH EQU IOBINDCT 01140000 IOBDEQCP EQU IOBINDCT 01141000 IOBCCWAD EQU IOBORG08 01142000 W1OEXTEN EQU W1IEXTEN 01143000 IOBCCW EQU IOBORG06+8 01144000 IOBNXTPB EQU IOBNXTPT+1 01145000 IOBRSV26 EQU IOBSTATA 01146000 IOBRSV25 EQU IOBSTATA 01147000 IOBRSV24 EQU IOBSTATA 01148000 IOBRSV23 EQU IOBSTATA 01149000 IOBRSV22 EQU IOBSTATA 01150000 IOBRSV21 EQU IOBSTATA 01151000 IOBRSV20 EQU IOBSTATA 01152000 IOBAVLFL EQU IOBSTATA 01153000 IOBRSV37 EQU IOBORG06+1 01154000 IOBUCBXG EQU IOBORG06 01155000 IOBCPA EQU IOBORG05+32 01156000 IOBERINF EQU IOBORG05+16 01157000 IOBERCCW EQU IOBORG05+8 01158000 IOBSNDPT EQU IOBORG05+7 01159000 IOBRCVPT EQU IOBORG05+6 01160000 IOBWORK EQU IOBORG05+1 01161000 IOBUCBX EQU IOBORG05 01162000 IOBR EQU IOBSEEK+7 01163000 IOBHH2 EQU IOBHH+1 01164000 IOBHH1 EQU IOBHH 01165000 IOBCC2 EQU IOBCC+1 01166000 IOBCC1 EQU IOBCC 01167000 IOBBB2 EQU IOBBB+1 01168000 IOBBB1 EQU IOBBB 01169000 IOBM EQU IOBSEEK 01170000 IOBRSV46 EQU IOBFL4 01171000 IOBRSV47 EQU IOBFL4 01172000 IOBENT EQU IOBFL4 01173000 IOBEQP EQU IOBFL4 01174000 IOBBUS EQU IOBFL4 01175000 IOBDCK EQU IOBFL4 01176000 IOBREJ EQU IOBFL4 01177000 IOBOVR EQU IOBFL4 01178000 IOBCRILC EQU IOBORG04+1 01179000 IOBCRDCC EQU IOBORG04 01180000 IOBGQECB EQU IOBORG03 01181000 IOBSWAP EQU IOBORG02+4 01182000 IOBDQADB EQU IOBDQADA+1 01183000 IOBRSV13 EQU IOBDEQIN 01184000 IOBRSV12 EQU IOBDEQIN 01185000 IOBRSV11 EQU IOBDEQIN 01186000 IOBRSV10 EQU IOBDEQIN 01187000 IOBRSV09 EQU IOBDEQIN 01188000 IOBRSV08 EQU IOBDEQIN 01189000 IOBRSV07 EQU IOBDEQIN 01190000 IOBDEQ EQU IOBDEQIN 01191000 IOBNECB EQU IOBORG01+4 01192000 IOBNIOBB EQU IOBNIOBA+1 01193000 IOBFIRST EQU IOBNFLG1 01194000 IOBUPERR EQU IOBNFLG1 01195000 IOBSPAN EQU IOBNFLG1 01196000 IOBBKSPC EQU IOBNFLG1 01197000 IOBUPDAT EQU IOBNFLG1 01198000 IOBREAD EQU IOBNFLG1 01199000 IOBWRITE EQU IOBNFLG1 01200000 IOBPRTOV EQU IOBNFLG1 01201000 @NM00048 EQU WKAREA1 01202000 @NM00047 EQU DWORD+4 01203000 @NM00046 EQU UNPKNO 01204000 @NM00045 EQU IEC042I+63 01205000 @NM00044 EQU IEC042I+36 01206000 @NM00043 EQU IEC042I+4 01207000 @NM00042 EQU IEC042I 01208000 @NM00041 EQU DATAREA 01209000 READCCW EQU CCWS+16 01210000 @NM00040 EQU SCANCCW+5 01211000 SZEROES EQU SCANCCW+4 01212000 @NM00039 EQU SCANCCW+4 01213000 @NM00038 EQU SCANCCW+4 01214000 SADDR EQU SDATADDR+1 01215000 @NM00037 EQU NOOPCCW+5 01216000 NZEROES EQU NOOPCCW+4 01217000 @NM00036 EQU NOOPCCW+4 01218000 @NM00035 EQU NOOPCCW+4 01219000 NADDR EQU NDATADDR+1 01220000 IOBERRCT EQU IOBSTDRD+30 01221000 IOBRSV19 EQU IOBINCAM+1 01222000 IOBOLTST EQU IOBBTAMF 01223000 IOBRFTMG EQU IOBBTAMF 01224000 IOBRSV17 EQU IOBBTAMF 01225000 IOBRSV16 EQU IOBBTAMF 01226000 IOBRSV15 EQU IOBBTAMF 01227000 IOBRSV14 EQU IOBBTAMF 01228000 IOBINUSE EQU IOBBTAMF 01229000 IOBPRMER EQU IOBBTAMF 01230000 IOBRSTRB EQU IOBRESTR+1 01231000 IOBREPOS EQU IOBRESTR 01232000 IOBDCBPB EQU IOBDCBPT+1 01233000 IOBRSV44 EQU IOBFLAG4 01234000 IOBRSV43 EQU IOBFLAG4 01235000 IOBRSV42 EQU IOBFLAG4 01236000 IOBRSV41 EQU IOBFLAG4 01237000 IOBRSV40 EQU IOBFLAG4 01238000 IOBRSV39 EQU IOBFLAG4 01239000 IOBRSV38 EQU IOBFLAG4 01240000 IOBGDPOL EQU IOBFLAG4 01241000 IOBSTRTB EQU IOBSTART+1 01242000 IOBSIOCC EQU IOBSTART 01243000 IOBSTBYT EQU IOBIOCSW+3 01244000 IOBCMDA EQU IOBIOCSW 01245000 IOBLOG EQU IOBFL3 01246000 IOBICL EQU IOBFL3 01247000 IOBMSG EQU IOBFL3 01248000 IOBCNC EQU IOBFL3 01249000 IOBACU EQU IOBFL3 01250000 IOBCDC EQU IOBFL3 01251000 IOBICC EQU IOBFL3 01252000 IOBCCC EQU IOBFL3 01253000 IOBECBPB EQU IOBECBPT+1 01254000 IOBS1B7 EQU IOBSENS1 01255000 IOBS1B6 EQU IOBSENS1 01256000 IOBS1B5 EQU IOBSENS1 01257000 IOBS1B4 EQU IOBSENS1 01258000 IOBS1B3 EQU IOBSENS1 01259000 IOBS1B2 EQU IOBSENS1 01260000 IOBS1B1 EQU IOBSENS1 01261000 IOBS1B0 EQU IOBSENS1 01262000 IOBSNSC9 EQU IOBS0B7 01263000 IOBS0B6 EQU IOBSENS0 01264000 IOBS0B5 EQU IOBSENS0 01265000 IOBS0B4 EQU IOBSENS0 01266000 IOBS0B3 EQU IOBSENS0 01267000 IOBS0B2 EQU IOBSENS0 01268000 IOBS0B1 EQU IOBSENS0 01269000 IOBS0B0 EQU IOBSENS0 01270000 IOBPNCH EQU IOBFLAG2 01271000 IOBSTATO EQU IOBFLAG2 01272000 IOBSKUPD EQU IOBFLAG2 01273000 IOBALTTR EQU IOBFLAG2 01274000 IOBRRT2 EQU IOBRDHA0 01275000 IOBRRT3 EQU IOBPURGE 01276000 IOBSENSE EQU IOBFLAG2 01277000 IOBHALT EQU IOBFLAG2 01278000 IOBSPSVC EQU IOBRSTRT 01279000 IOBUNREL EQU IOBFLAG1 01280000 IOBIOERR EQU IOBFLAG1 01281000 IOBFCREX EQU IOBCYCCK 01282000 IOBRPSTN EQU IOBFLAG1 01283000 IOBERRTN EQU IOBFLAG1 01284000 IOBCMDCH EQU IOBFLAG1 01285000 IOBDATCH EQU IOBFLAG1 01286000 IOBCNOPA EQU IOBPREFX+12 01287000 IOBCICB EQU IOBPREFX+8 01288000 IOBCECB EQU IOBPREFX+4 01289000 IOBCONOP EQU IOBPREFX+3 01290000 IOBCINOP EQU IOBPREFX+2 01291000 IOBRSV05 EQU IOBPREFX+1 01292000 IOBPCI EQU IOBCFLG1 01293000 IOBRSTCH EQU IOBCFLG1 01294000 IOBABAPP EQU IOBCFLG1 01295000 IOBPTST EQU IOBCFLG1 01296000 IOBRSV04 EQU IOBCFLG1 01297000 IOBRSV03 EQU IOBCFLG1 01298000 IOBRSV02 EQU IOBCFLG1 01299000 IOBRSV01 EQU IOBCFLG1 01300000 DCBEOB EQU IHADCS40+20 01301000 DCBPRECL EQU IHADCS40+18 01302000 @NM00034 EQU IHADCS40+16 01303000 @NM00033 EQU @NM00031+1 01304000 @NM00032 EQU DCBEROPT 01305000 DCBERABE EQU DCBEROPT 01306000 DCBERSKP EQU DCBEROPT 01307000 DCBERACC EQU DCBEROPT 01308000 @NM00030 EQU IHADCS40+10 01309000 @NM00029 EQU IHADCS40+9 01310000 @NM00028 EQU IHADCS40+8 01311000 DCBRECA EQU DCBRECAD+1 01312000 @NM00027 EQU DCBRECBT 01313000 DCBRCFGT EQU DCBRCREL 01314000 DCBRCTRU EQU DCBRCREL 01315000 DCBLCCW EQU DCBEOBAD 01316000 DCBNOTE EQU DCBCNTRL 01317000 DCBLRECL EQU IHADCS38+10 01318000 @NM00026 EQU IHADCS38+8 01319000 DCBEOBW EQU IHADCS38+4 01320000 DCBEOBRA EQU DCBEOBR+1 01321000 DCBNCP EQU DCBEOBR 01322000 @NM00025 EQU DCBFLAG1 01323000 DCBSTFLS EQU DCBFLAG1 01324000 DCBSTQCK EQU DCBFLAG1 01325000 DCBDIRCQ EQU DCBBUFOF 01326000 DCBQSTRU EQU DCBUSASI 01327000 @NM00024 EQU DCBUSASI 01328000 DCBQADF3 EQU DCBQADFS 01329000 DCBQADF2 EQU DCBQADFS 01330000 DCBQADF1 EQU DCBQADFS 01331000 DCBBLBP EQU DCBUSASI 01332000 @NM00023 EQU DCBUSASI 01333000 DCBCICBA EQU DCBCICB+1 01334000 @NM00022 EQU DCBCICB 01335000 DCBOFFSW EQU IHADCS36+15 01336000 DCBOFFSR EQU IHADCS36+14 01337000 DCBWCPL EQU IHADCS36+13 01338000 DCBWCPO EQU IHADCS36+12 01339000 DCBBLKSI EQU IHADCS36+10 01340000 DCBCNQSM EQU DCBCIND2 01341000 DCBCNFEO EQU DCBCIND2 01342000 DCBCNCHS EQU DCBCIND2 01343000 DCBCNBFP EQU DCBCIND2 01344000 DCBCNIOE EQU DCBCIND2 01345000 DCBCNCLO EQU DCBCIND2 01346000 DCBCNWRO EQU DCBCIND2 01347000 DCBCNSTO EQU DCBCIND2 01348000 DCBCNEXB EQU DCBCIND1 01349000 @NM00021 EQU DCBCIND1 01350000 DCBCNBRM EQU DCBCIND1 01351000 @NM00020 EQU DCBCIND1 01352000 DCBCNEVA EQU DCBCIND1 01353000 DCBCNEVB EQU DCBCIND1 01354000 DCBCNSRD EQU DCBCIND1 01355000 DCBCNTOV EQU DCBCIND1 01356000 DCBIOBL EQU DCBSYNAD 01357000 DCBCHCKA EQU DCBPERRA 01358000 @NM00019 EQU DCBOPTCD 01359000 DCBOPTT EQU DCBOPTCD 01360000 DCBSRCHD EQU DCBOPTZ 01361000 DCBOPTQ EQU DCBOPTCD 01362000 DCBBCKPT EQU DCBOPTO 01363000 DCBOPTC EQU DCBOPTCD 01364000 DCBOPTU EQU DCBOPTCD 01365000 DCBOPTW EQU DCBOPTCD 01366000 DCBPUTA EQU DCBGETA 01367000 @NM00018 EQU DCBPUT 01368000 DCBREADA EQU DCBWRITA 01369000 @NM00017 EQU DCBREAD 01370000 DCBDEBA EQU DCBDEBAD+1 01371000 @NM00016 EQU DCBIFLGS 01372000 DCBIFIOE EQU DCBIFLGS 01373000 DCBIFPCT EQU DCBIFLGS 01374000 DCBIFEC EQU DCBIFLGS 01375000 DCBMFSTI EQU DCBMFDMD 01376000 DCBMFAWR EQU DCBMFSTK 01377000 DCBMFUIP EQU DCBMFTMD 01378000 DCBMFIDW EQU DCBMFLCP 01379000 DCBMFWRK EQU DCBMFMVP 01380000 DCBMFRDQ EQU DCBMFWRT 01381000 DCBMFGTQ EQU DCBMFPUT 01382000 DCBMFSTL EQU DCBMACF2 01383000 DCBMFCK EQU DCBMFDMG 01384000 DCBMFRDX EQU DCBMFCHK 01385000 DCBMFDBF EQU DCBMFSBG 01386000 DCBMFRDI EQU DCBMFLCG 01387000 DCBMFRDK EQU DCBMFMVG 01388000 DCBMFWRQ EQU DCBMFRD 01389000 DCBMFPTQ EQU DCBMFGET 01390000 DCBMFECP EQU DCBMACF1 01391000 DCBTIOT EQU IHADCS25 01392000 DCBMRSTI EQU DCBMRDMD 01393000 DCBMRAWR EQU DCBMRSTK 01394000 DCBMRUIP EQU DCBMRTMD 01395000 DCBMRIDW EQU DCBMRLCP 01396000 DCBMRWRK EQU DCBMRMVP 01397000 DCBMRRDQ EQU DCBMRWRT 01398000 DCBMRGTQ EQU DCBMRPUT 01399000 DCBMRSTL EQU DCBMACR2 01400000 DCBMRCK EQU DCBMRDMG 01401000 DCBPGFXA EQU DCBMRRDX 01402000 DCBMRDBF EQU DCBMRSBG 01403000 DCBMRRDI EQU DCBMRLCG 01404000 DCBMRRDK EQU DCBMRMVG 01405000 DCBMRWRQ EQU DCBMRRD 01406000 DCBMRPTQ EQU DCBMRGET 01407000 DCBMRECP EQU DCBMACR1 01408000 @NM00015 EQU DCBIFLG 01409000 DCBIBIOE EQU DCBIFLG 01410000 DCBIBPCT EQU DCBIFLG 01411000 DCBIBEC EQU DCBIFLG 01412000 DCBOFIOF EQU DCBOFLGS 01413000 DCBOFUEX EQU DCBOFLGS 01414000 DCBOFTM EQU DCBOFLGS 01415000 DCBOFPPC EQU DCBOFLGS 01416000 DCBOFOPN EQU DCBOFLGS 01417000 DCBOFEOV EQU DCBOFLGS 01418000 DCBOFLRB EQU DCBOFLGS 01419000 DCBOFIOD EQU DCBOFLWR 01420000 DCBDDNAM EQU IHADCS24 01421000 DCBEXLSA EQU DCBEXLST+1 01422000 DCBRECKL EQU DCBRECFM 01423000 DCBRECCC EQU DCBRECFM 01424000 DCBRECSB EQU DCBRECFM 01425000 DCBRECBR EQU DCBRECFM 01426000 DCBRECTO EQU DCBRECLA 01427000 DCBRECL EQU DCBRECLA 01428000 DCBEODA EQU DCBEODAD+1 01429000 DCBBFA EQU DCBBFTEK 01430000 DCBH0 EQU DCBBFTEK 01431000 DCBBFTKD EQU DCBBFTEK 01432000 DCBBFTE EQU DCBBFT 01433000 DCBBFTKR EQU DCBBFT 01434000 DCBBFTS EQU DCBBFT 01435000 DCBH1 EQU DCBBFTEK 01436000 DCBSVCXA EQU DCBSVCXL+1 01437000 @NM00014 EQU DCBSVCXL 01438000 DCBODEBA EQU DCBIOBAA 01439000 @NM00013 EQU DCBQSLM 01440000 DCBUPDBT EQU DCBQSLM 01441000 DCBUPDCM EQU DCBQSLM 01442000 DCB1DVDS EQU DCBQSLM 01443000 @NM00012 EQU DCBDSRG2 01444000 DCBDSGTR EQU DCBDSRG2 01445000 DCBACBM EQU DCBDSRG2 01446000 @NM00011 EQU DCBDSRG2 01447000 DCBDSGTQ EQU DCBDSRG2 01448000 DCBDSGTX EQU DCBDSRG2 01449000 DCBDSGGS EQU DCBDSRG2 01450000 DCBDSGU EQU DCBDSRG1 01451000 DCBDSGPO EQU DCBDSRG1 01452000 DCBDSGMQ EQU DCBDSRG1 01453000 DCBDSGCQ EQU DCBDSRG1 01454000 DCBDSGCX EQU DCBDSRG1 01455000 DCBDSGDA EQU DCBDSRG1 01456000 DCBDSGPS EQU DCBDSRG1 01457000 DCBDSGIS EQU DCBDSRG1 01458000 DCBBUFL EQU IHADCS11+8 01459000 DCBBUFCA EQU DCBBUFCB+1 01460000 DCBBUFNO EQU DCBBUFCB 01461000 DCBDEVT EQU DCBREL 01462000 DCBKEYLE EQU DCBRELB 01463000 @NM00010 EQU IHADCS08+15 01464000 DCBORDCK EQU DCBEIB 01465000 DCBORHPR EQU DCBEIB 01466000 DCBORWLR EQU DCBEIB 01467000 DCBORECK EQU DCBEIB 01468000 DCBORERR EQU DCBEIB 01469000 DCBORREJ EQU DCBEIB 01470000 DCBORNRM EQU DCBEIB 01471000 @NM00009 EQU DCBEIB 01472000 @NM00008 EQU IHADCS08+13 01473000 @NM00007 EQU DCBORBYT 01474000 DCBORBFP EQU DCBORBYT 01475000 DCBOREOF EQU DCBORBYT 01476000 DCBORSYN EQU DCBORBYT 01477000 DCBRDLNA EQU DCBRESCA 01478000 @NM00006 EQU DCBFRTBA 01479000 DCBDSPLA EQU DCBFRID+1 01480000 @NM00005 EQU DCBFRID 01481000 @NM00004 EQU DCBERRCA+2 01482000 @NM00003 EQU DCBORFLG 01483000 DCBLFMAT EQU DCBERRCA 01484000 DCBWTOIA EQU DCBWTOID+1 01485000 @NM00002 EQU DCBWTOID 01486000 @NM00001 EQU IHADCB 01487000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01488000 @RC00048 EQU @RC00047 01489000 @RC00087 EQU @RC00045 01490000 @RC00111 EQU @RC00108 01491000 @RC00141 EQU @RC00104 01492000 @RC00184 EQU @RC00180 01493000 @RF00204 EQU @RC00180 01494000 @RC00233 EQU @RC00219 01495000 @RC00051 EQU @RC00048 01496000 @RC00143 EQU @RC00141 01497000 @RF00163 EQU @RC00141 01498000 @RC00187 EQU @RC00184 01499000 @RC00146 EQU @RC00143 01500000 @ENDDATA EQU * 01501000 END IGG019LT,(C'PL/S-II',0503,74050) 01502000