TITLE ' /* ABNORMAL END APPENDAGE *00001000 ' 00002000 IGG019P2 CSECT 00003000 USING IGG019P2,REG15 00004000 */* ESTABLISH ADDRESSABILITY TO THE VOLIB, GDT AND THE ACTION KEY */ 00005000 * VOLIBPTR = IOBSTPTR - (LENGTH (CBECB) + LENGTH (CBVOLIB)); 0258 00006000 LR VOLIBPTR,IOBSTPTR 0258 00007000 SH VOLIBPTR,@CH01718 0258 00008000 */* ESTABLISH ADDRESSABILITY TO THE APPENDAGE INFORMATION */ 00009000 * APIPTR = ADDR(CBAPINFO); 0259 00010000 LA APIPTR,CBAPINFO(,VOLIBPTR) 0259 00011000 */* SAVE THE REGISTERS IN THE REGISTER SAVE AREA */ 00012000 * RESPECIFY (REG9) RSTD; 0260 00013000 * REG9 = 0; 0261 00014000 SLR REG9,REG9 0261 00015000 * STM (REG0,REG15,APSAVE); 0262 00016000 STM REG0,REG15,APSAVE(APIPTR) 0262 00017000 * RESPECIFY (REG9) UNRSTD; 0263 00018000 */* INDICATE INITIALLY THAT NO RETURN WAS REQUESTED */ 00019000 * RETCRIT = NORET; 0264 00020000 SLR RETCRIT,RETCRIT 0264 00021000 */* INREMENT COUNTER THAT INDICATES NUMBER OF CALLS TO THIS PROGRAM */ 00022000 * APABNC = APABNC + 1; 0265 00023000 LA @14,1 0265 00024000 L @09,APABNC(,APIPTR) 0265 00025000 ALR @09,@14 0265 00026000 ST @09,APABNC(,APIPTR) 0265 00027000 */* DO-FOR ALL THE ERROR RECOVERY ACTION KEYS */ 00028000 * DO I = 1 TO INSETREC; 0266 00029000 LR I,@14 0266 00030000 @DL00266 DS 0H 0267 00031000 */* IF THE INVOCATION WAS DUE TO AN ERROR RECOVERY ACTION KEY */ 00032000 * IF APAKEY = RECVECT (I) 0267 00033000 */* THEN */ 00034000 * THEN DO; 0267 00035000 LR @14,I 0267 00036000 SLA @14,2 0267 00037000 L @09,APAKEY(,APIPTR) 0267 00038000 C @09,RECVECT-4(@14) 0267 00039000 BNE @RF00267 0267 00040000 */* SET FLAG NOT TO BYPASS SYSTEM ERROR RECOVERY */ 00041000 * DCBIFIOE = ERRSYNO; 0269 00042000 NI DCBIFIOE+40(DCBPTR),B'11110011' 0269 00043000 */* INDICATE A NORMAL RETURN CRITERIA */ 00044000 * RETCRIT = NORMAL; 0270 00045000 LA RETCRIT,1 0270 00046000 */* END-THEN */ 00047000 * END; 0271 00048000 */* END-FOR */ 00049000 * END; 0272 00050000 @RF00267 AH I,@CH00155 0272 00051000 CH I,@CH00034 0272 00052000 BNH @DL00266 0272 00053000 */* IF A RETURN WAS NOT REQUESTED */ 00054000 * IF RETCRIT = NORET 0273 00055000 */* THEN */ 00056000 * THEN DO; 0273 00057000 LTR RETCRIT,RETCRIT 0273 00058000 BNZ @RF00273 0273 00059000 */* IF THERE WAS AN EQUIPMENT CHECK */ 00060000 * IF IOBS0B3 = ON 0275 00061000 */* THEN */ 00062000 * THEN DO; 0275 00063000 TM IOBS0B3(IOBSTPTR),B'00010000' 0275 00064000 BNO @RF00275 0275 00065000 */* SET FIELD TO BYPASS SYSTEM ERROR RECOVERY */ 00066000 * DCBIFIOE = ERRSYYES; 0277 00067000 OI DCBIFIOE+40(DCBPTR),B'00001100' 0277 00068000 */* INDICATE NORMAL RETURN CRITERIA */ 00069000 * RETCRIT = NORMAL; 0278 00070000 LA RETCRIT,1 0278 00071000 */* END-THEN */ 00072000 * END; 0279 00073000 */* END-THEN */ 00074000 * END; 0280 00075000 @RF00275 DS 0H 0281 00076000 */* IF A RETURN WAS NOT REQUESTED */ 00077000 * IF RETCRIT = NORET 0281 00078000 */* THEN */ 00079000 * THEN 0281 00080000 @RF00273 LTR RETCRIT,RETCRIT 0281 00081000 BNZ @RF00281 0281 00082000 * HALOOP: 0282 00083000 * DO; 0282 00084000 HALOOP DS 0H 0283 00085000 */* DO-FOR ALL THE ACTION KEYS THAT INVOLVE HOME-ADDRESS */ 00086000 * DO I = 1 TO INSETHA; 0283 00087000 LA I,1 0283 00088000 @DL00283 DS 0H 0284 00089000 */* IF ACTION KEY INVOLVES THE HOME-ADDRESS */ 00090000 * IF APAKEY = HAVECT (I) 0284 00091000 */* THEN */ 00092000 * THEN DO; 0284 00093000 LR @14,I 0284 00094000 SLA @14,2 0284 00095000 L @09,APAKEY(,APIPTR) 0284 00096000 C @09,HAVECT-4(@14) 0284 00097000 BNE @RF00284 0284 00098000 */* SET FIELD TO BYPASS SYSTEM ERROR RECOVERY ACTIONS */ 00099000 * DCBIFIOE = ERRSYYES; 0286 00100000 OI DCBIFIOE+40(DCBPTR),B'00001100' 0286 00101000 */* INDICATE NORMAL RETURN CRITERIA */ 00102000 * RETCRIT = NORMAL; 0287 00103000 LA RETCRIT,1 0287 00104000 */* END-THEN */ 00105000 * END; 0288 00106000 */* END-FOR */ 00107000 * END; 0289 00108000 @RF00284 AH I,@CH00155 0289 00109000 CH I,@CH00175 0289 00110000 BNH @DL00283 0289 00111000 */* END-THEN */ 00112000 * END HALOOP; 0290 00113000 */* IF A RETURN WAS NOT REQUESTED */ 00114000 * IF RETCRIT = NORET 0291 00115000 */* THEN */ 00116000 * THEN 0291 00117000 @RF00281 LTR RETCRIT,RETCRIT 0291 00118000 BNZ @RF00291 0291 00119000 * RZLOOP: 0292 00120000 * DO; 0292 00121000 RZLOOP DS 0H 0293 00122000 */* DO-FOR ALL THE ACTION KEYS THAT INVOLVE THE STANDARD-LENGTH */ 00123000 * DO I = 1 TO INSETRZ; 0293 00124000 LA I,1 0293 00125000 @DL00293 DS 0H 0294 00126000 */* IF ACTION KEY INVOLVES THE STANDARD-LENGTH RECORD-ZERO */ 00127000 * IF APAKEY = RZVECT (I) 0294 00128000 */* THEN */ 00129000 * THEN DO; 0294 00130000 LR @14,I 0294 00131000 SLA @14,2 0294 00132000 L @09,APAKEY(,APIPTR) 0294 00133000 C @09,RZVECT-4(@14) 0294 00134000 BNE @RF00294 0294 00135000 */* SET FIELD TO BYPASS SYSTEM ERROR RECOVERY ACTIONS */ 00136000 * DCBIFIOE = ERRSYYES; 0296 00137000 OI DCBIFIOE+40(DCBPTR),B'00001100' 0296 00138000 */* INDICATE A NORMAL RETURN CRITERIA */ 00139000 * RETCRIT = NORMAL; 0297 00140000 LA RETCRIT,1 0297 00141000 */* END-THEN */ 00142000 * END; 0298 00143000 */* END-FOR */ 00144000 * END; 0299 00145000 @RF00294 AH I,@CH00155 0299 00146000 CH I,@CH00034 0299 00147000 BNH @DL00293 0299 00148000 */* END-THEN */ 00149000 * END RZLOOP; 0300 00150000 */* IF A RETURN WAS NOT REQUESTED */ 00151000 * IF RETCRIT = NORET 0301 00152000 */* THEN */ 00153000 * THEN 0301 00154000 @RF00291 LTR RETCRIT,RETCRIT 0301 00155000 BNZ @RF00301 0301 00156000 * RZMLOOP: 0302 00157000 * DO; 0302 00158000 RZMLOOP DS 0H 0303 00159000 */* DO-FOR ALL THE ACTIONS THAT INVOLVE THE MAXIMUM-LENGTH R0 */ 00160000 * DO I = 1 TO INSETRZM; 0303 00161000 LA I,1 0303 00162000 @DL00303 DS 0H 0304 00163000 */* IF ACTION KEY INVOLVES MAXIMUM-LENGTH RECORD-ZERO */ 00164000 * IF APAKEY = RZMVECT (I) 0304 00165000 */* THEN */ 00166000 * THEN DO; 0304 00167000 LR @14,I 0304 00168000 SLA @14,2 0304 00169000 L @09,APAKEY(,APIPTR) 0304 00170000 C @09,RZMVECT-4(@14) 0304 00171000 BNE @RF00304 0304 00172000 */* SET FIELD TO BYPASS SYSTEM ERROR RECOVERY ACTIONS */ 00173000 * DCBIFIOE = ERRSYYES; 0306 00174000 OI DCBIFIOE+40(DCBPTR),B'00001100' 0306 00175000 */* INDICATE A NORMAL RETURN CRITERIA */ 00176000 * RETCRIT = NORMAL; 0307 00177000 LA RETCRIT,1 0307 00178000 */* END-THEN */ 00179000 * END; 0308 00180000 */* END-FOR */ 00181000 * END; 0309 00182000 @RF00304 AH I,@CH00155 0309 00183000 CH I,@CH00106 0309 00184000 BNH @DL00303 0309 00185000 */* END-THEN */ 00186000 * END RZMLOOP; 0310 00187000 */* IF A RETURN WAS NOT REQUESTED */ 00188000 * IF RETCRIT = NORET 0311 00189000 */* THEN */ 00190000 * THEN DO; 0311 00191000 @RF00301 LTR RETCRIT,RETCRIT 0311 00192000 BNZ @RF00311 0311 00193000 */* SET FIELD TO INITIATE SYTEM ERROR RECOVERY ACTIONS */ 00194000 * DCBIFIOE = ERRSYNO; 0313 00195000 NI DCBIFIOE+40(DCBPTR),B'11110011' 0313 00196000 */* INDICATE A NORMAL RETURN CRITERIA */ 00197000 * RETCRIT = NORMAL; 0314 00198000 LA RETCRIT,1 0314 00199000 */* END-THEN */ 00200000 * END; 0315 00201000 */* RESTORE REGISTERS FROM THE REGISTER SAVE AREA */ 00202000 */* RETURN ACCORDING TO THE RETURN CRITERIA SET UP -- DEPENDING ON */ 00203000 */* WHETHER A NORMAL COMPLETION IS REQUIRED OR THE CHANNEL PROGRAM */ 00204000 */* IS TO BE SKIPPED ETC.... */ 00205000 * IF RETCRIT = NORMAL 0316 00206000 * THEN DO; 0316 00207000 @RF00311 CH RETCRIT,@CH00155 0316 00208000 BNE @RF00316 0316 00209000 * GEN; 0318 00210000 LM REG0,REG15,APSAVE(APIPTR) 00211000 BR REG14 00212000 * END; 0319 00213000 * IF RETCRIT = SKIP 0320 00214000 * THEN DO; 0320 00215000 @RF00316 CH RETCRIT,@CH00106 0320 00216000 BNE @RF00320 0320 00217000 * GEN; 0322 00218000 LM REG0,REG15,APSAVE(APIPTR) 00219000 B 4(REG14) 00220000 * END; 0323 00221000 * IF RETCRIT = REEXCP 0324 00222000 * THEN DO; 0324 00223000 @RF00320 CH RETCRIT,@CH00126 0324 00224000 BNE @RF00324 0324 00225000 * GEN; 0326 00226000 LM REG0,REG15,APSAVE(APIPTR) 00227000 B 8(REG14) 00228000 * END; 0327 00229000 * IF RETCRIT = BYPASS 0328 00230000 * THEN DO; 0328 00231000 @RF00324 CH RETCRIT,@CH00034 0328 00232000 BNE @RF00328 0328 00233000 * GEN; 0330 00234000 LM REG0,REG15,APSAVE(APIPTR) 00235000 B 12(REG14) 00236000 * END; 0331 00237000 */* END-PROCEDURE ABNORMAL_END_APPENDAGE */ 00238000 * END IGG019P2 0332 00239000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00240000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00241000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00242000 */*%INCLUDE SYSLIB (DMSDF10 ) * 00243000 */*%INCLUDE SYSLIB (IHADCBDF) * 00244000 */*%INCLUDE SYSLIB (IHADCB ) * 00245000 */*%INCLUDE SYSLIB (IEZDEB ) * 00246000 */*%INCLUDE SYSLIB (IEZIOB ) * 00247000 */*%INCLUDE SYSLIB (IEFUCBOB) * 00248000 *; 0332 00249000 @RF00328 DS 0H 0332 00250000 @DATA DS 0H 00251000 @CH00155 DC H'1' 00252000 @CH00106 DC H'2' 00253000 @CH00126 DC H'3' 00254000 @CH00034 DC H'4' 00255000 @CH00175 DC H'7' 00256000 @CH01718 DC H'44' 00257000 @DATD DSECT 00258000 DS 0F 00259000 @SA00001 DS 18F 00260000 @ZTEMPS DS C 00261000 @ZTEMPND EQU * 00262000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00263000 IGG019P2 CSECT 00264000 DS 0F 00265000 @DATD DSECT 00266000 DS 0D 00267000 LISTSCAN DS A 00268000 IOCSPTR DS A 00269000 OPNPTR DS A 00270000 DDSTRU DS A 00271000 FSADDR DS A 00272000 DMPINDEX DS A 00273000 DATAPTR DS A 00274000 DEBDAPTR DS A 00275000 DEBEXPTR DS A 00276000 DEBSBPTR DS A 00277000 IOBPRPTR DS A 00278000 LISTPTR DS A 00279000 SETRC DS H 00280000 TESTRC DS H 00281000 LISTLN DS FL1 00282000 DS CL3 00283000 GDTTBL DS CL192 00284000 ORG GDTTBL 00285000 GDTHDR DS CL4 00286000 GDTPRM DS AL4 00287000 GDTTR1 DS AL4 00288000 GDTTR2 DS AL4 00289000 GDTDBH DS AL4 00290000 GDTSTH DS AL4 00291000 GDTRIH DS AL4 00292000 GDTTPH DS AL4 00293000 GDTSAH DS AL4 00294000 GDTIOH DS AL4 00295000 GDTDVH DS AL4 00296000 GDTDIN DS AL4 00297000 GDTDOP DS AL4 00298000 GDTDBG DS AL4 00299000 GDTDVO DS AL4 00300000 GDTPRT DS AL4 00301000 GDTESS DS AL4 00302000 GDTESA DS AL4 00303000 GDTRST DS AL4 00304000 GDTRES DS AL4 00305000 GDTCAL DS AL4 00306000 GDTGSP DS AL4 00307000 GDTFSP DS AL4 00308000 GDTGPL DS AL4 00309000 GDTFPL DS AL4 00310000 GDTLOD DS AL4 00311000 GDTDEL DS AL4 00312000 GDTPRL DS AL4 00313000 GDTEPL DS AL4 00314000 GDTTIM DS AL4 00315000 GDTIIO DS AL4 00316000 GDTTIO DS AL4 00317000 GDTRIP DS AL4 00318000 GDTTOH DS AL4 00319000 GDTOPN DS AL4 00320000 GDTCLS DS AL4 00321000 GDTGET DS AL4 00322000 GDTPUT DS AL4 00323000 GDTABT DS AL4 00324000 GDTABH DS AL4 00325000 GDTSNP DS AL4 00326000 GDTSPR DS AL4 00327000 GDTWTO DS AL4 00328000 GDTSCR DS AL4 00329000 GDTVCK DS AL4 00330000 GDTDVC DS AL4 00331000 GDTCVR DS AL4 00332000 GDTSTE DS AL4 00333000 ORG GDTTBL+192 00334000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00335000 @ENDDATD EQU * 00336000 IGG019P2 CSECT 00337000 DS 0F 00338000 @SIZDATD DC AL1(0) 00339000 DC AL3(@ENDDATD-@DATD) 00340000 DS 0D 00341000 MODID DC CL4'DV05' 00342000 HAVECT DC F'1' 00343000 DC F'3' 00344000 DC F'4' 00345000 DC F'13' 00346000 DC F'5' 00347000 DC F'6' 00348000 DC F'17' 00349000 RZVECT DC F'2' 00350000 DC F'14' 00351000 DC F'8' 00352000 DC F'18' 00353000 RZMVECT DC F'7' 00354000 DC F'16' 00355000 RECVECT DC F'31' 00356000 DC F'32' 00357000 DC F'21' 00358000 DC F'34' 00359000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00360000 @01 EQU 01 00361000 @02 EQU 02 00362000 @03 EQU 03 00363000 @04 EQU 04 00364000 @05 EQU 05 00365000 @06 EQU 06 00366000 @07 EQU 07 00367000 @08 EQU 08 00368000 @09 EQU 09 00369000 @10 EQU 10 00370000 @11 EQU 11 00371000 @12 EQU 12 00372000 @13 EQU 13 00373000 @14 EQU 14 00374000 @15 EQU 15 00375000 REG0 EQU @00 00376000 REG1 EQU @01 00377000 REG9 EQU @09 00378000 REG15 EQU @15 00379000 VOLIBPTR EQU @11 00380000 APIPTR EQU @12 00381000 DCBPTR EQU @04 00382000 DEBPTR EQU @03 00383000 IOBSTPTR EQU @02 00384000 UCBPTR EQU @07 00385000 RETCRIT EQU @10 00386000 I EQU @13 00387000 REG10 EQU @10 00388000 REG11 EQU @11 00389000 REG12 EQU @12 00390000 REG13 EQU @13 00391000 REG14 EQU @14 00392000 REG2 EQU @02 00393000 REG3 EQU @03 00394000 REG4 EQU @04 00395000 REG5 EQU @05 00396000 REG6 EQU @06 00397000 REG7 EQU @07 00398000 REG8 EQU @08 00399000 RTNREG EQU @15 00400000 TRACE1 EQU 0 00401000 OLDERID1 EQU TRACE1 00402000 TRACE2 EQU 0 00403000 STAEPARM EQU 0 00404000 STAEPFX EQU STAEPARM 00405000 IOCSTR EQU 0 00406000 IOCDSO EQU IOCSTR+13 00407000 IOCRFM EQU IOCSTR+14 00408000 IOCMAC EQU IOCSTR+15 00409000 IOCMSG EQU IOCSTR+16 00410000 OPNAGL EQU 0 00411000 OPNOPT EQU OPNAGL 00412000 OPNRFM EQU OPNAGL+1 00413000 OPNTYP EQU OPNAGL+2 00414000 OPNMOD EQU OPNAGL+3 00415000 UVOLLIST EQU 0 00416000 UVOLENT EQU UVOLLIST+2 00417000 DARGLIST EQU 0 00418000 DARGSTID EQU DARGLIST+8 00419000 DARGARY EQU DARGLIST+20 00420000 DARGINS EQU DARGARY 00421000 DARGINL EQU DARGARY+2 00422000 FMTLIST EQU 0 00423000 FMTFLGS EQU FMTLIST 00424000 FMTSPF EQU FMTLIST+2 00425000 FMTRFNO EQU FMTSPF 00426000 FMTILEN EQU FMTRFNO 00427000 FMTIOFF EQU FMTLIST+4 00428000 FMTTRBC EQU FMTIOFF 00429000 FMTSTO EQU FMTTRBC 00430000 FMTOCOL EQU FMTLIST+6 00431000 FMTCNVF EQU FMTLIST+10 00432000 DMPITM EQU 0 00433000 DMPARY EQU 0 00434000 VOLIB EQU 0 00435000 VLUCBDT EQU VOLIB+28 00436000 APINFO EQU 0 00437000 APABNC EQU APINFO 00438000 APAKEY EQU APINFO+4 00439000 APSAVE EQU APINFO+28 00440000 CNTBLKS EQU 0 00441000 CBVOLIB EQU CNTBLKS 00442000 CBECB EQU CNTBLKS+40 00443000 CBAPINFO EQU CNTBLKS+180 00444000 DEVSENSE EQU 0 00445000 BYTE0 EQU DEVSENSE 00446000 BYTE1 EQU DEVSENSE+1 00447000 BYTE2 EQU DEVSENSE+2 00448000 SEN3344 EQU BYTE2 00449000 IHADCB EQU 0 00450000 IHADCS00 EQU 0 00451000 DCBFDAD EQU IHADCS00+5 00452000 IHADCS01 EQU 0 00453000 DCBDVTBL EQU IHADCS01 00454000 IHADCS24 EQU 0 00455000 DCBOFLGS EQU IHADCS24+8 00456000 DCBOFLWR EQU DCBOFLGS 00457000 DCBIFLG EQU IHADCS24+9 00458000 DCBIBPCT EQU DCBIFLG 00459000 DCBMACR EQU IHADCS24+10 00460000 DCBMACR1 EQU DCBMACR 00461000 DCBMRFE EQU DCBMACR1 00462000 DCBMRGET EQU DCBMRFE 00463000 DCBMRAPG EQU DCBMACR1 00464000 DCBMRRD EQU DCBMRAPG 00465000 DCBMRCI EQU DCBMACR1 00466000 DCBMRMVG EQU DCBMRCI 00467000 DCBMRLCG EQU DCBMACR1 00468000 DCBMRABC EQU DCBMACR1 00469000 DCBMRPT1 EQU DCBMRABC 00470000 DCBMRSBG EQU DCBMRPT1 00471000 DCBMRCRL EQU DCBMACR1 00472000 DCBMRCHK EQU DCBMRCRL 00473000 DCBMRRDX EQU DCBMRCHK 00474000 DCBMRDMG EQU DCBMACR1 00475000 DCBMACR2 EQU DCBMACR+1 00476000 DCBMRPUT EQU DCBMACR2 00477000 DCBMRWRT EQU DCBMACR2 00478000 DCBMRMVP EQU DCBMACR2 00479000 DCBMR5WD EQU DCBMACR2 00480000 DCBMRLDM EQU DCBMR5WD 00481000 DCBMRLCP EQU DCBMRLDM 00482000 DCBMR4WD EQU DCBMACR2 00483000 DCBMRPT2 EQU DCBMR4WD 00484000 DCBMRTMD EQU DCBMRPT2 00485000 DCBMR3WD EQU DCBMACR2 00486000 DCBMRCTL EQU DCBMR3WD 00487000 DCBMRSTK EQU DCBMRCTL 00488000 DCBMR1WD EQU DCBMACR2 00489000 DCBMRSWA EQU DCBMR1WD 00490000 DCBMRDMD EQU DCBMRSWA 00491000 IHADCS25 EQU 0 00492000 DCBMACRF EQU IHADCS25+2 00493000 DCBMACF1 EQU DCBMACRF 00494000 DCBMFFE EQU DCBMACF1 00495000 DCBMFGET EQU DCBMFFE 00496000 DCBMFAPG EQU DCBMACF1 00497000 DCBMFRD EQU DCBMFAPG 00498000 DCBMFCI EQU DCBMACF1 00499000 DCBMFMVG EQU DCBMFCI 00500000 DCBMFLCG EQU DCBMACF1 00501000 DCBMFABC EQU DCBMACF1 00502000 DCBMFPT1 EQU DCBMFABC 00503000 DCBMFSBG EQU DCBMFPT1 00504000 DCBMFCRL EQU DCBMACF1 00505000 DCBMFCHK EQU DCBMFCRL 00506000 DCBMFDMG EQU DCBMACF1 00507000 DCBMACF2 EQU DCBMACRF+1 00508000 DCBMFPUT EQU DCBMACF2 00509000 DCBMFWRT EQU DCBMACF2 00510000 DCBMFMVP EQU DCBMACF2 00511000 DCBMF5WD EQU DCBMACF2 00512000 DCBMFLDM EQU DCBMF5WD 00513000 DCBMFLCP EQU DCBMFLDM 00514000 DCBMF4WD EQU DCBMACF2 00515000 DCBMFPT2 EQU DCBMF4WD 00516000 DCBMFTMD EQU DCBMFPT2 00517000 DCBMF3WD EQU DCBMACF2 00518000 DCBMFCTL EQU DCBMF3WD 00519000 DCBMFSTK EQU DCBMFCTL 00520000 DCBMF1WD EQU DCBMACF2 00521000 DCBMFSWA EQU DCBMF1WD 00522000 DCBMFDMD EQU DCBMFSWA 00523000 DCBDEBAD EQU IHADCS25+4 00524000 DCBIFLGS EQU DCBDEBAD 00525000 DCBIFPCT EQU DCBIFLGS 00526000 DCBIFIOE EQU DCBIFLGS 00527000 IHADCS28 EQU 0 00528000 DCBOPTCD EQU IHADCS28 00529000 DCBOPTZ EQU DCBOPTCD 00530000 IHADCS44 EQU 0 00531000 DEBBASIC EQU 0 00532000 DEBTCBAD EQU DEBBASIC 00533000 DEBDEBAD EQU DEBBASIC+4 00534000 DEBIRBAD EQU DEBBASIC+8 00535000 DEBOFLGS EQU DEBIRBAD 00536000 DEBOPATB EQU DEBBASIC+12 00537000 DEBFLGS1 EQU DEBBASIC+14 00538000 DEBUSRPG EQU DEBBASIC+16 00539000 DEBRRQ EQU DEBBASIC+20 00540000 DEBECBAD EQU DEBRRQ 00541000 DEBDCBAD EQU DEBBASIC+24 00542000 DEBPROTG EQU DEBDCBAD 00543000 DEBAPPAD EQU DEBBASIC+28 00544000 DEBBASND EQU DEBBASIC+32 00545000 DEBDASD EQU 0 00546000 DEBUCBAD EQU DEBDASD 00547000 DEBACSMD EQU 0 00548000 DEBVOLSQ EQU DEBACSMD 00549000 DEBVOLBT EQU DEBVOLSQ 00550000 DEBDSNM EQU DEBACSMD+4 00551000 DEBUTSAA EQU DEBDSNM 00552000 DEBACS01 EQU 0 00553000 DEBDSNAM EQU DEBACS01 00554000 DEBACS02 EQU 0 00555000 DEBDBLK EQU DEBACS02 00556000 DEBACS03 EQU 0 00557000 DEBACS04 EQU 0 00558000 DEBTBFRA EQU DEBACS04 00559000 DEBTCCWA EQU DEBACS04+4 00560000 DEBACS05 EQU 0 00561000 DEBFUCBA EQU DEBACS05 00562000 DEBLUCBA EQU DEBACS05+4 00563000 DEBACS06 EQU 0 00564000 DEBACS07 EQU 0 00565000 DEBACS08 EQU 0 00566000 DEBSUBNM EQU 0 00567000 DEB EQU 0 00568000 DEBAVT EQU DEB 00569000 DEBEOEA EQU DEBAVT 00570000 DEBEOEAB EQU DEBEOEA 00571000 DEBSIOA EQU DEBAVT+4 00572000 DEBSIOAB EQU DEBSIOA 00573000 DEBPCIA EQU DEBAVT+8 00574000 DEBPCIAB EQU DEBPCIA 00575000 DEBCEA EQU DEBAVT+12 00576000 DEBCEAB EQU DEBCEA 00577000 DEBXCEA EQU DEBAVT+16 00578000 DEBXCEAB EQU DEBXCEA 00579000 DEBPREFX EQU DEB+20 00580000 DEBXTNP EQU DEBPREFX+8 00581000 DEBXTN EQU 0 00582000 DEBXFLG1 EQU DEBXTN+2 00583000 IOBPREFX EQU 0 00584000 IOBCFLG1 EQU IOBPREFX 00585000 IOBSTDRD EQU 0 00586000 IOBFLAG1 EQU IOBSTDRD 00587000 IOBCYCCK EQU IOBFLAG1 00588000 IOBRSTRT EQU IOBFLAG1 00589000 IOBFLAG2 EQU IOBSTDRD+1 00590000 IOBPURGE EQU IOBFLAG2 00591000 IOBRDHA0 EQU IOBFLAG2 00592000 IOBSENS0 EQU IOBSTDRD+2 00593000 IOBS0B3 EQU IOBSENS0 00594000 IOBS0B7 EQU IOBSENS0 00595000 IOBSENS1 EQU IOBSTDRD+3 00596000 IOBECBPT EQU IOBSTDRD+4 00597000 IOBFLAG3 EQU IOBSTDRD+8 00598000 IOBFL3 EQU IOBFLAG3 00599000 IOBCNC EQU IOBFL3 00600000 IOBICL EQU IOBFL3 00601000 IOBCSW EQU IOBSTDRD+9 00602000 IOBIOCSW EQU IOBCSW 00603000 IOBSTBYT EQU IOBIOCSW+3 00604000 IOBUSTAT EQU IOBSTBYT 00605000 IOBCSTAT EQU IOBSTBYT+1 00606000 IOBSTART EQU IOBSTDRD+16 00607000 IOBDCBPT EQU IOBSTDRD+20 00608000 IOBFLAG4 EQU IOBDCBPT 00609000 IOBRESTR EQU IOBSTDRD+24 00610000 IOBINCAM EQU IOBSTDRD+28 00611000 IOBBTAMF EQU IOBINCAM 00612000 UCB EQU 0 00613000 UCBOB EQU 0 00614000 UCBJBNR EQU UCBOB 00615000 UCBFL5 EQU UCBOB+1 00616000 UCBAF EQU UCBFL5 00617000 UCBSTAT EQU UCBOB+3 00618000 UCBCHAN EQU UCBOB+4 00619000 UCBSFLS EQU UCBOB+6 00620000 UCBFLA EQU UCBSFLS 00621000 UCBFL1 EQU UCBFLA 00622000 UCBBSY EQU UCBFL1 00623000 UCBNRY EQU UCBFL1 00624000 UCBPST EQU UCBFL1 00625000 UCBCUB EQU UCBFL1 00626000 UCBFLB EQU UCBSFLS+1 00627000 UCBCHM EQU UCBOB+8 00628000 UCBCHM1 EQU UCBCHM 00629000 UCBPTH0 EQU UCBCHM1 00630000 UCBPTH1 EQU UCBCHM1 00631000 UCBWGT EQU UCBOB+12 00632000 UCBTYP EQU UCBOB+16 00633000 UCBTBYT1 EQU UCBTYP 00634000 UCB1FEA5 EQU UCBTBYT1 00635000 UCB1FEA6 EQU UCBTBYT1 00636000 UCBTBYT2 EQU UCBTYP+1 00637000 UCB2OPT2 EQU UCBTBYT2 00638000 UCBDUDN1 EQU UCB2OPT2 00639000 UCB2OPT3 EQU UCBTBYT2 00640000 UCBDUDN2 EQU UCB2OPT3 00641000 UCB2OPT4 EQU UCBTBYT2 00642000 UCBRWTAU EQU UCB2OPT4 00643000 UCB2OPT6 EQU UCBTBYT2 00644000 UCB2OPT7 EQU UCBTBYT2 00645000 UCBTBYT3 EQU UCBTYP+2 00646000 UCBDVCLS EQU UCBTBYT3 00647000 UCBTBYT4 EQU UCBTYP+3 00648000 UCBEXTPT EQU UCBOB+20 00649000 UCBFLC EQU UCBEXTPT 00650000 UCBDEV EQU UCBOB+24 00651000 UCBCMEXT EQU 0 00652000 UCBATI EQU UCBCMEXT+3 00653000 @NM00043 EQU UCBATI 00654000 UCBFLP1 EQU UCBCMEXT+5 00655000 UCBMT EQU 0 00656000 UCBOCR EQU 0 00657000 UCB3540X EQU 0 00658000 UCBDKBYT EQU UCB3540X+6 00659000 UCB3800X EQU 0 00660000 UCBOPTNS EQU UCB3800X 00661000 UCBACTIV EQU UCB3800X+3 00662000 UCBMDRBF EQU UCB3800X+36 00663000 UCBUCS EQU 0 00664000 UCBUCSOP EQU UCBUCS+4 00665000 UCBFCBOP EQU UCBUCS+5 00666000 DMPTRM EQU 0 00667000 ICKDB010 EQU 0 00668000 ICKDVCL0 EQU 0 00669000 ICKDVIN0 EQU 0 00670000 ICKDVON0 EQU 0 00671000 ICKDVOP0 EQU 0 00672000 ICKIOCL0 EQU 0 00673000 ICKIOGT0 EQU 0 00674000 ICKIOIT0 EQU 0 00675000 ICKIOOP0 EQU 0 00676000 ICKIOPT0 EQU 0 00677000 ICKIOTM0 EQU 0 00678000 ICKSACL0 EQU 0 00679000 ICKSADE0 EQU 0 00680000 ICKSAEP0 EQU 0 00681000 ICKSAFP0 EQU 0 00682000 ICKSAFS0 EQU 0 00683000 ICKSAGP0 EQU 0 00684000 ICKSAGS0 EQU 0 00685000 ICKSALD0 EQU 0 00686000 ICKSAPR0 EQU 0 00687000 ICKSASC0 EQU 0 00688000 ICKSASN0 EQU 0 00689000 ICKSAST0 EQU 0 00690000 ICKSATI0 EQU 0 00691000 ICKSAVC0 EQU 0 00692000 ICKSAWO0 EQU 0 00693000 ICKTPEA0 EQU 0 00694000 ICKTPES0 EQU 0 00695000 ICKTPPR0 EQU 0 00696000 ICKTPRE0 EQU 0 00697000 ICKTPRS0 EQU 0 00698000 LISTTEST EQU 0 00699000 NEWERID1 EQU 5 00700000 NEWERID2 EQU 5 00701000 UCBBGN EQU 0 00702000 DEBBAS02 EQU DEBBASND 00703000 DEBDDS1 EQU DEBBAS02 00704000 DEBSUCBA EQU DEBDDS1 00705000 DEBDEVED EQU DEBDDS1+4 00706000 DEBRDCB EQU DEBDDS1+4 00707000 DEBPDCB EQU DEBDDS1+8 00708000 DEBWDCB EQU DEBDDS1+12 00709000 DEBACS09 EQU DEBDEVED 00710000 DEBASC09 EQU DEBACS09 00711000 DEBEAMFG EQU DEBASC09+3 00712000 DEBDSID EQU DEBASC09+4 00713000 DEBEOD EQU DEBASC09+12 00714000 DEBBOE EQU DEBEOD 00715000 DEBEODRV EQU DEBBOE 00716000 DEBEODTT EQU DEBBOE+1 00717000 DEBEOD0 EQU DEBBOE+2 00718000 DEBEODSS EQU DEBBOE+3 00719000 DEBBAS01 EQU DEBBASND 00720000 DEBISAM EQU DEBBAS01 00721000 DEBFIEAD EQU DEBISAM 00722000 DEBFPEAD EQU DEBISAM+4 00723000 DEBFOEAD EQU DEBISAM+8 00724000 DEBEXPT EQU DEBISAM+12 00725000 DEBRPSID EQU DEBEXPT 00726000 IOBORG01 EQU IOBPREFX+8 00727000 IOBNIOBA EQU IOBORG01 00728000 IOBNFLG1 EQU IOBNIOBA 00729000 IOBPRTOV EQU IOBNFLG1 00730000 IOBORG02 EQU IOBPREFX+8 00731000 IOBDQADA EQU IOBORG02 00732000 IOBDEQIN EQU IOBDQADA 00733000 IOBORG03 EQU IOBPREFX+12 00734000 IOBORG04 EQU IOBINCAM 00735000 IOBORG12 EQU IOBINCAM 00736000 IOBFL4 EQU IOBORG12 00737000 IOBEXTEN EQU IOBSTDRD+32 00738000 IOBSEEK EQU IOBEXTEN 00739000 IOBBB EQU IOBSEEK+1 00740000 IOBCC EQU IOBSEEK+3 00741000 IOBHH EQU IOBSEEK+5 00742000 IOBORG05 EQU IOBEXTEN 00743000 IOBORG06 EQU IOBEXTEN 00744000 IOBNXTPT EQU IOBORG06+4 00745000 IOBSTATA EQU IOBNXTPT 00746000 IOBORG07 EQU IOBEXTEN+8 00747000 W1IEXTEN EQU IOBORG07 00748000 IOBORG08 EQU IOBEXTEN+8 00749000 IOBINDCT EQU IOBORG08+4 00750000 IOBUNSQR EQU IOBORG08+5 00751000 IOBFCHAD EQU IOBORG08+8 00752000 IOBORG09 EQU IOBEXTEN+8 00753000 IOBDPLAD EQU IOBORG09+4 00754000 IOBDTYPE EQU IOBORG09+8 00755000 IOBDTYP2 EQU IOBORG09+9 00756000 IOBDSTAT EQU IOBORG09+10 00757000 IOBSTAT1 EQU IOBDSTAT 00758000 IOBORG10 EQU IOBEXTEN+8 00759000 IOBSEEK2 EQU IOBORG10 00760000 IOBORG11 EQU IOBEXTEN 00761000 IOBERCT EQU IOBORG11 00762000 IOBUCBXV EQU IOBERCT 00763000 IOBNAME EQU IOBORG11+4 00764000 IOBORG13 EQU IOBEXTEN 00765000 IOBSKADR EQU IOBORG13 00766000 UCBOBS01 EQU UCBDEV 00767000 UCBSTAB EQU UCBOBS01+10 00768000 UCBBSVL EQU UCBSTAB 00769000 UCBPRSRS EQU UCBSTAB 00770000 UCBDMCT EQU UCBOBS01+11 00771000 UCBFL4 EQU UCBOBS01+13 00772000 UCBOBS02 EQU UCBDEV 00773000 UCBTFL1 EQU UCBOBS02+19 00774000 UCBXTN EQU UCBOBS02+20 00775000 UCBVOPT EQU UCBXTN 00776000 UCBOBS03 EQU UCBDEV 00777000 UCBXTADR EQU UCBOBS03 00778000 UCBOBS04 EQU UCBDEV 00779000 UCBBTA EQU UCBOBS04+12 00780000 UCBOBS06 EQU UCBDEV 00781000 UCBAOF EQU UCBOBS06 00782000 UCBAOF1 EQU UCBAOF 00783000 UCBAOF2 EQU UCBAOF+1 00784000 @NM00042 EQU UCBOBS06+3 00785000 UCBIRB EQU UCBOBS06+4 00786000 UCBGRAF EQU UCBIRB 00787000 UCBLDNCA EQU UCBOBS06+8 00788000 UCBRDYQ EQU UCBLDNCA 00789000 UCBIRLN EQU UCBRDYQ 00790000 UCBLDNCB EQU UCBRDYQ+1 00791000 UCBCTLNK EQU UCBOBS06+12 00792000 UCBOBS07 EQU UCBDEV 00793000 UCBOBS08 EQU UCBDEV 00794000 UCBCTCAD EQU UCBOBS08 00795000 UCBCTCF1 EQU UCBOBS08+4 00796000 UCBOBS09 EQU UCBDEV 00797000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00798000 UCBRV066 EQU UCBOBS09+4 00799000 UCBIOSBA EQU UCBOBS09 00800000 UCBRV042 EQU UCBOBS08+5 00801000 UCBRV082 EQU UCBCTCF1 00802000 UCBRV081 EQU UCBCTCF1 00803000 UCBRV080 EQU UCBCTCF1 00804000 UCBRV079 EQU UCBCTCF1 00805000 UCBRV078 EQU UCBCTCF1 00806000 UCBRV077 EQU UCBCTCF1 00807000 UCBRV076 EQU UCBCTCF1 00808000 UCBCTC80 EQU UCBCTCF1 00809000 UCBCTCAL EQU UCBCTCAD 00810000 UCBICNCB EQU UCBOBS07+4 00811000 UCBRV040 EQU UCBOBS07 00812000 UCBCTLNA EQU UCBCTLNK+1 00813000 UCBRLN EQU UCBCTLNK 00814000 UCBRDYQA EQU UCBLDNCB 00815000 UCBINRLN EQU UCBIRLN 00816000 UCBIRBA EQU UCBIRB+1 00817000 UCBRV039 EQU UCBGRAF 00818000 UCBDWNR EQU UCBGRAF 00819000 UCBRPND EQU UCBGRAF 00820000 UCBUPM EQU UCBGRAF 00821000 UCBBTAM EQU UCBGRAF 00822000 UCBDRNO EQU UCBGRAF 00823000 UCBDRO EQU UCBGRAF 00824000 UCBOIP EQU UCBGRAF 00825000 UCBATRCD EQU @NM00042 00826000 UCBSKPFG EQU @NM00042 00827000 UCBRIPND EQU @NM00042 00828000 UCBRTIAC EQU @NM00042 00829000 UCBRSV79 EQU @NM00042 00830000 UCBRSV78 EQU @NM00042 00831000 UCBRSV77 EQU @NM00042 00832000 UCBOLTEP EQU @NM00042 00833000 UCBATNCT EQU UCBOBS06+2 00834000 UCBRSV76 EQU UCBAOF2 00835000 UCBRSV75 EQU UCBAOF2 00836000 UCBRSV74 EQU UCBAOF2 00837000 UCBRSV73 EQU UCBAOF2 00838000 UCBRSV72 EQU UCBAOF2 00839000 UCBRSV71 EQU UCBAOF2 00840000 UCBRSV70 EQU UCBAOF2 00841000 UCBRSV69 EQU UCBAOF2 00842000 UCBRSV68 EQU UCBAOF1 00843000 UCBRSV67 EQU UCBAOF1 00844000 UCBRSV66 EQU UCBAOF1 00845000 UCBRSV65 EQU UCBAOF1 00846000 UCBRSV64 EQU UCBAOF1 00847000 UCBOFNL EQU UCBAOF1 00848000 UCBOFSP EQU UCBAOF1 00849000 UCBOFMCR EQU UCBAOF1 00850000 UCBBTB EQU UCBBTA+1 00851000 UCBDI EQU UCBBTA 00852000 UCBSNS EQU UCBOBS04+8 00853000 UCBTEB EQU UCBOBS04+4 00854000 UCBGCB EQU UCBOBS04+3 00855000 UCBOPEN EQU UCBOBS04+2 00856000 UCBSTART EQU UCBOBS04 00857000 UCBXTNB EQU UCBXTN+1 00858000 UCBRSV22 EQU UCBVOPT 00859000 UCBRSV21 EQU UCBVOPT 00860000 UCBRSV20 EQU UCBVOPT 00861000 UCBESVE EQU UCBVOPT 00862000 UCBERPC EQU UCBVOPT 00863000 UCBESVC EQU UCBVOPT 00864000 UCBEVA EQU UCBVOPT 00865000 UCBESV EQU UCBVOPT 00866000 UCBRV009 EQU UCBTFL1 00867000 UCBRV008 EQU UCBTFL1 00868000 UCBRV007 EQU UCBTFL1 00869000 UCBRV006 EQU UCBTFL1 00870000 UCBRV005 EQU UCBTFL1 00871000 UCBDQDSP EQU UCBTFL1 00872000 UCBNSLTP EQU UCBTFL1 00873000 UCBNLTP EQU UCBTFL1 00874000 UCBRES1B EQU UCBOBS02+18 00875000 UCBFSER EQU UCBOBS02+12 00876000 @NM00041 EQU UCBOBS02+4 00877000 UCBFSEQ EQU UCBOBS02+2 00878000 UCBFSCT EQU UCBOBS02 00879000 UCBNEXP EQU UCBOBS01+20 00880000 UCBBASE EQU UCBOBS01+16 00881000 UCBRES1A EQU UCBOBS01+15 00882000 UCBUSER EQU UCBOBS01+14 00883000 UCBFL47 EQU UCBFL4 00884000 UCBFL46 EQU UCBFL4 00885000 UCBFL45 EQU UCBFL4 00886000 UCBRV065 EQU UCBFL4 00887000 UCBDSS EQU UCBFL4 00888000 UCBRESVP EQU UCBFL4 00889000 UCBWDAV EQU UCBFL4 00890000 UCBDAVV EQU UCBFL4 00891000 UCBSQC EQU UCBOBS01+12 00892000 UCBDATP EQU UCBOBS01+12 00893000 UCBDMC EQU UCBDMCT 00894000 UCBMOUNT EQU UCBDMCT 00895000 UCBBNUL EQU UCBSTAB 00896000 UCBSHAR EQU UCBSTAB 00897000 UCBBSTR EQU UCBSTAB 00898000 UCBBPUB EQU UCBSTAB 00899000 UCBBPRV EQU UCBSTAB 00900000 UCBBALB EQU UCBPRSRS 00901000 UCBPGFL EQU UCBSTAB 00902000 UCBDVSHR EQU UCBBSVL 00903000 UCBVOLI EQU UCBOBS01+4 00904000 UCBVTOC EQU UCBOBS01 00905000 IOBSKSS EQU IOBSKADR+3 00906000 IOBSK0 EQU IOBSKADR+2 00907000 IOBSKTT EQU IOBSKADR+1 00908000 IOBSKRV EQU IOBSKADR 00909000 IOBCSWSV EQU IOBORG11+17 00910000 IOBSENSV EQU IOBORG11+16 00911000 IOBRCD EQU IOBORG11+12 00912000 IOBMDREC EQU IOBORG11+8 00913000 IOBNAMEA EQU IOBNAME+1 00914000 IOBNAMSZ EQU IOBNAME 00915000 IOBERCTA EQU IOBERCT+1 00916000 IOBRTYPE EQU IOBUCBXV 00917000 IOBRDCHP EQU IOBORG10+20 00918000 IOBNEXTA EQU IOBORG10+16 00919000 IOBREADA EQU IOBORG10+12 00920000 IOBBUFC EQU IOBORG10+8 00921000 IOBSK2R EQU IOBSEEK2+7 00922000 IOBSK2HH EQU IOBSEEK2+5 00923000 IOBSK2CC EQU IOBSEEK2+3 00924000 IOBSK2BB EQU IOBSEEK2+1 00925000 IOBSK2M EQU IOBSEEK2 00926000 IOBCHNPR EQU IOBORG09+40 00927000 IOBDNCRF EQU IOBORG09+32 00928000 IOBRSV35 EQU IOBORG09+24 00929000 IOBDQPTR EQU IOBORG09+20 00930000 IOBRSV34 EQU IOBORG09+18 00931000 IOBDBYTN EQU IOBORG09+16 00932000 IOBDCPND EQU IOBORG09+12 00933000 IOBSTAT2 EQU IOBDSTAT+1 00934000 IOBSIORT EQU IOBSTAT1 00935000 IOBADDVU EQU IOBSTAT1 00936000 IOBBUFF EQU IOBSTAT1 00937000 IOBENQUE EQU IOBSTAT1 00938000 IOBPASS2 EQU IOBSTAT1 00939000 IOBSYNCH EQU IOBSTAT1 00940000 IOBNEWVL EQU IOBSTAT1 00941000 IOBABNRM EQU IOBSTAT1 00942000 IOBRELEX EQU IOBDTYP2 00943000 IOBADDTY EQU IOBDTYP2 00944000 IOBTYPE EQU IOBDTYP2 00945000 IOBRQUST EQU IOBDTYP2 00946000 IOBSUFFX EQU IOBDTYP2 00947000 IOBSBLKL EQU IOBDTYP2 00948000 IOBSKEY EQU IOBDTYP2 00949000 IOBRELBL EQU IOBDTYPE 00950000 IOBRDEXC EQU IOBDTYPE 00951000 IOBDYNBF EQU IOBDTYPE 00952000 IOBACTAD EQU IOBDTYPE 00953000 IOBFDBCK EQU IOBDTYPE 00954000 IOBEXTSC EQU IOBDTYPE 00955000 IOBOVFLO EQU IOBDTYPE 00956000 IOBVERFY EQU IOBDTYPE 00957000 IOBDPLB EQU IOBDPLAD+1 00958000 IOBDAYLI EQU IOBDPLAD 00959000 IOBDIOBS EQU IOBORG09+2 00960000 IOBDBYTR EQU IOBORG09 00961000 IOBBCHAD EQU IOBORG08+12 00962000 IOBFCHNB EQU IOBFCHAD+1 00963000 IOBCOUNT EQU IOBFCHAD 00964000 IOBASYN EQU IOBORG08+7 00965000 IOBAPP EQU IOBORG08+6 00966000 IOBRSV32 EQU IOBUNSQR 00967000 IOBRSV31 EQU IOBUNSQR 00968000 IOBRSV30 EQU IOBUNSQR 00969000 IOBKNRWR EQU IOBUNSQR 00970000 IOBKNWR EQU IOBUNSQR 00971000 IOBNTAV2 EQU IOBUNSQR 00972000 IOBNTAV1 EQU IOBUNSQR 00973000 IOBCPBSY EQU IOBUNSQR 00974000 IOBCHNNL EQU IOBINDCT 00975000 IOBRSV29 EQU IOBINDCT 00976000 IOBRSV28 EQU IOBINDCT 00977000 IOBRSV27 EQU IOBINDCT 00978000 IOBKEYAD EQU IOBINDCT 00979000 IOBOVPTR EQU IOBINDCT 00980000 IOBUNSCH EQU IOBINDCT 00981000 IOBDEQCP EQU IOBINDCT 00982000 IOBCCWAD EQU IOBORG08 00983000 W1OEXTEN EQU W1IEXTEN 00984000 IOBCCW EQU IOBORG06+8 00985000 IOBNXTPB EQU IOBNXTPT+1 00986000 IOBRSV26 EQU IOBSTATA 00987000 IOBRSV25 EQU IOBSTATA 00988000 IOBRSV24 EQU IOBSTATA 00989000 IOBRSV23 EQU IOBSTATA 00990000 IOBRSV22 EQU IOBSTATA 00991000 IOBRSV21 EQU IOBSTATA 00992000 IOBRSV20 EQU IOBSTATA 00993000 IOBAVLFL EQU IOBSTATA 00994000 IOBRSV37 EQU IOBORG06+1 00995000 IOBUCBXG EQU IOBORG06 00996000 IOBCPA EQU IOBORG05+32 00997000 IOBERINF EQU IOBORG05+16 00998000 IOBERCCW EQU IOBORG05+8 00999000 IOBSNDPT EQU IOBORG05+7 01000000 IOBRCVPT EQU IOBORG05+6 01001000 IOBWORK EQU IOBORG05+1 01002000 IOBUCBX EQU IOBORG05 01003000 IOBR EQU IOBSEEK+7 01004000 IOBHH2 EQU IOBHH+1 01005000 IOBHH1 EQU IOBHH 01006000 IOBCC2 EQU IOBCC+1 01007000 IOBCC1 EQU IOBCC 01008000 IOBBB2 EQU IOBBB+1 01009000 IOBBB1 EQU IOBBB 01010000 IOBM EQU IOBSEEK 01011000 IOBRSV46 EQU IOBFL4 01012000 IOBRSV47 EQU IOBFL4 01013000 IOBENT EQU IOBFL4 01014000 IOBEQP EQU IOBFL4 01015000 IOBBUS EQU IOBFL4 01016000 IOBDCK EQU IOBFL4 01017000 IOBREJ EQU IOBFL4 01018000 IOBOVR EQU IOBFL4 01019000 IOBCRILC EQU IOBORG04+1 01020000 IOBCRDCC EQU IOBORG04 01021000 IOBGQECB EQU IOBORG03 01022000 IOBSWAP EQU IOBORG02+4 01023000 IOBDQADB EQU IOBDQADA+1 01024000 IOBRSV13 EQU IOBDEQIN 01025000 IOBRSV12 EQU IOBDEQIN 01026000 IOBRSV11 EQU IOBDEQIN 01027000 IOBRSV10 EQU IOBDEQIN 01028000 IOBRSV09 EQU IOBDEQIN 01029000 IOBRSV08 EQU IOBDEQIN 01030000 IOBRSV07 EQU IOBDEQIN 01031000 IOBDEQ EQU IOBDEQIN 01032000 IOBNECB EQU IOBORG01+4 01033000 IOBNIOBB EQU IOBNIOBA+1 01034000 IOBFIRST EQU IOBNFLG1 01035000 IOBUPERR EQU IOBNFLG1 01036000 IOBSPAN EQU IOBNFLG1 01037000 IOBBKSPC EQU IOBNFLG1 01038000 IOBUPDAT EQU IOBNFLG1 01039000 IOBREAD EQU IOBNFLG1 01040000 IOBWRITE EQU IOBNFLG1 01041000 IOBSEGMT EQU IOBPRTOV 01042000 DEBEXPTA EQU DEBEXPT+1 01043000 DEBRSV12 EQU DEBRPSID 01044000 DEBRSV11 EQU DEBRPSID 01045000 DEBRSV10 EQU DEBRPSID 01046000 DEBRSV09 EQU DEBRPSID 01047000 DEBRPSAP EQU DEBRPSID 01048000 DEBRPSO EQU DEBRPSID 01049000 DEBRPSI EQU DEBRPSID 01050000 DEBRPSP EQU DEBRPSID 01051000 DEBFOEB EQU DEBFOEAD+1 01052000 DEBNOEE EQU DEBFOEAD 01053000 DEBFPEB EQU DEBFPEAD+1 01054000 DEBNPEE EQU DEBFPEAD 01055000 DEBFIEB EQU DEBFIEAD+1 01056000 DEBNIEE EQU DEBFIEAD 01057000 DEBBOESS EQU DEBEODSS 01058000 DEBBOE0 EQU DEBEOD0 01059000 DEBBOETT EQU DEBEODTT 01060000 DEBBOERV EQU DEBEODRV 01061000 DEBRV008 EQU DEBDSID+7 01062000 DEBWTPTI EQU DEBDSID+6 01063000 DEBEXDTE EQU DEBDSID 01064000 DEBRV007 EQU DEBEAMFG 01065000 DEBRV006 EQU DEBEAMFG 01066000 DEBRV005 EQU DEBEAMFG 01067000 DEBRV004 EQU DEBEAMFG 01068000 DEBSECVL EQU DEBEAMFG 01069000 DEBVAMSG EQU DEBEAMFG 01070000 DEBDSOPN EQU DEBEAMFG 01071000 DEBMULTI EQU DEBEAMFG 01072000 DEBVSEQU EQU DEBASC09+2 01073000 DEBDSSQL EQU DEBASC09+1 01074000 DEBVOLAC EQU DEBASC09 01075000 DEBWDCBA EQU DEBWDCB+1 01076000 DEBRSV08 EQU DEBWDCB 01077000 DEBPDCBA EQU DEBPDCB+1 01078000 DEBRSV07 EQU DEBPDCB 01079000 DEBRDCBA EQU DEBRDCB+1 01080000 DEBRSV06 EQU DEBRDCB 01081000 DEBSUCBB EQU DEBSUCBA+1 01082000 DEBSDVM EQU DEBSUCBA 01083000 UCBERADR EQU UCBUCS+12 01084000 UCBFCBID EQU UCBUCS+8 01085000 UCBERCNT EQU UCBUCS+7 01086000 UCBRSV51 EQU UCBUCS+6 01087000 UCBFCBPE EQU UCBFCBOP 01088000 UCBRSV49 EQU UCBFCBOP 01089000 UCBRSV48 EQU UCBFCBOP 01090000 UCBRSV47 EQU UCBFCBOP 01091000 UCBRSV46 EQU UCBFCBOP 01092000 UCBRSV45 EQU UCBFCBOP 01093000 UCBRSV44 EQU UCBFCBOP 01094000 UCBFCBO1 EQU UCBFCBOP 01095000 UCBUCSPE EQU UCBUCSOP 01096000 UCBRSV43 EQU UCBUCSOP 01097000 UCBRSV42 EQU UCBUCSOP 01098000 UCBRSV41 EQU UCBUCSOP 01099000 UCBRSV40 EQU UCBUCSOP 01100000 UCBRSV39 EQU UCBUCSOP 01101000 UCBUCSO2 EQU UCBUCSOP 01102000 UCBUCSO1 EQU UCBUCSOP 01103000 UCBUCSID EQU UCBUCS 01104000 UCBMDRBA EQU UCBMDRBF+1 01105000 UCBRV075 EQU UCBMDRBF 01106000 UCBRV074 EQU UCB3800X+32 01107000 UCBIMAGE EQU UCB3800X+28 01108000 UCBFCBNM EQU UCB3800X+24 01109000 UCBCHAR4 EQU UCB3800X+20 01110000 UCBCHAR3 EQU UCB3800X+16 01111000 UCBCHAR2 EQU UCB3800X+12 01112000 UCBCHAR1 EQU UCB3800X+8 01113000 UCBCGMID EQU UCB3800X+4 01114000 UCBBRSTA EQU UCBACTIV 01115000 UCBRV063 EQU UCBACTIV 01116000 UCBRV062 EQU UCBACTIV 01117000 UCBRV061 EQU UCBACTIV 01118000 UCBRV060 EQU UCBACTIV 01119000 UCBRV059 EQU UCBACTIV 01120000 UCBRV058 EQU UCBACTIV 01121000 UCBRV057 EQU UCBACTIV 01122000 UCBRV050 EQU UCB3800X+2 01123000 UCBCGMNO EQU UCB3800X+1 01124000 UCBRV083 EQU UCBOPTNS 01125000 UCBBRSTR EQU UCBOPTNS 01126000 UCBRV056 EQU UCBOPTNS 01127000 UCBRV055 EQU UCBOPTNS 01128000 UCBRV054 EQU UCBOPTNS 01129000 UCBRV053 EQU UCBOPTNS 01130000 UCBRV052 EQU UCBOPTNS 01131000 UCBRV051 EQU UCBOPTNS 01132000 UCBRV073 EQU UCB3540X+7 01133000 UCBRV072 EQU UCBDKBYT 01134000 UCBRV071 EQU UCBDKBYT 01135000 UCBRV070 EQU UCBDKBYT 01136000 UCBRV069 EQU UCBDKBYT 01137000 UCBRV068 EQU UCBDKBYT 01138000 UCBRV067 EQU UCBDKBYT 01139000 UCBVLVER EQU UCBDKBYT 01140000 UCBDKAMX EQU UCBDKBYT 01141000 UCBVLSER EQU UCB3540X 01142000 UCBRDATA EQU UCBOCR+4 01143000 UCBFRID EQU UCBOCR 01144000 UCBCLN EQU UCBMT+14 01145000 UCBERG EQU UCBMT+12 01146000 UCBMS EQU UCBMT+11 01147000 UCBNB EQU UCBMT+10 01148000 UCBPW EQU UCBMT+9 01149000 UCBPR EQU UCBMT+8 01150000 UCBSIO EQU UCBMT+6 01151000 UCBTW EQU UCBMT+5 01152000 UCBTR EQU UCBMT+4 01153000 UCBTWT EQU UCBMT+3 01154000 UCBTRT EQU UCBMT+2 01155000 UCBCTD EQU UCBMT 01156000 UCBWTOID EQU UCBCMEXT+17 01157000 UCBRV043 EQU UCBCMEXT+16 01158000 UCBASID EQU UCBCMEXT+14 01159000 UCBMFCNT EQU UCBCMEXT+12 01160000 UCBPMSK EQU UCBCMEXT+10 01161000 UCBCCWOF EQU UCBCMEXT+8 01162000 UCBRV041 EQU UCBCMEXT+6 01163000 UCBRV036 EQU UCBFLP1 01164000 UCBRV035 EQU UCBFLP1 01165000 UCBERLOG EQU UCBFLP1 01166000 UCBRV033 EQU UCBFLP1 01167000 UCBINHIO EQU UCBFLP1 01168000 UCBNSWAP EQU UCBFLP1 01169000 UCBSHRUP EQU UCBFLP1 01170000 UCBNSRCH EQU UCBFLP1 01171000 UCBSNSCT EQU UCBCMEXT+4 01172000 UCBHPDV EQU @NM00043 01173000 UCBHALI EQU @NM00043 01174000 UCBRSV09 EQU @NM00043 01175000 UCBRSV08 EQU @NM00043 01176000 UCBRSV07 EQU @NM00043 01177000 UCBRSV06 EQU @NM00043 01178000 UCBRSV05 EQU @NM00043 01179000 UCBRSV04 EQU @NM00043 01180000 UCBDTI EQU UCBCMEXT+2 01181000 UCBSTI EQU UCBCMEXT+1 01182000 UCBETI EQU UCBCMEXT 01183000 UCBEXTP EQU UCBEXTPT+1 01184000 UCBDDRSW EQU UCBFLC 01185000 UCBTICBT EQU UCBFLC 01186000 UCBIVRR EQU UCBFLC 01187000 UCBIVRS EQU UCBFLC 01188000 UCBITF EQU UCBFLC 01189000 UCBUDE EQU UCBFLC 01190000 UCBWAA EQU UCBFLC 01191000 UCBATTP EQU UCBFLC 01192000 UCBUNTYP EQU UCBTBYT4 01193000 UCBRSV11 EQU UCBDVCLS 01194000 UCBRSV10 EQU UCBDVCLS 01195000 UCB3CHAR EQU UCBDVCLS 01196000 UCB3UREC EQU UCBDVCLS 01197000 UCB3DISP EQU UCBDVCLS 01198000 UCB3DACC EQU UCBDVCLS 01199000 UCB3COMM EQU UCBDVCLS 01200000 UCB3TAPE EQU UCBDVCLS 01201000 UCBDVPWR EQU UCB2OPT7 01202000 UCBVLPWR EQU UCB2OPT6 01203000 UCB2OPT5 EQU UCBTBYT2 01204000 UCBRVDEV EQU UCBRWTAU 01205000 UCBRPS EQU UCBDUDN2 01206000 UCBRR EQU UCBDUDN1 01207000 UCB2OPT1 EQU UCBTBYT2 01208000 UCB2OPT0 EQU UCBTBYT2 01209000 UCB1FEA7 EQU UCBTBYT1 01210000 UCBD6250 EQU UCB1FEA6 01211000 UCBD1600 EQU UCB1FEA5 01212000 UCB1FEA4 EQU UCBTBYT1 01213000 UCB1FEA3 EQU UCBTBYT1 01214000 UCB1FEA2 EQU UCBTBYT1 01215000 UCB1FEA1 EQU UCBTBYT1 01216000 UCB1FEA0 EQU UCBTBYT1 01217000 UCBNAME EQU UCBOB+13 01218000 UCBRV029 EQU UCBWGT 01219000 UCBVHRSN EQU UCBWGT 01220000 UCBVORSN EQU UCBWGT 01221000 UCBMTPXP EQU UCBWGT 01222000 UCBREW EQU UCBWGT 01223000 UCBPUB EQU UCBWGT 01224000 UCBOUT EQU UCBWGT 01225000 UCBIN EQU UCBWGT 01226000 UCBCPU EQU UCBOB+11 01227000 UCBLCI EQU UCBOB+10 01228000 UCBCNT EQU UCBOB+9 01229000 UCBRV017 EQU UCBCHM1 01230000 UCBRV016 EQU UCBCHM1 01231000 UCBRV015 EQU UCBCHM1 01232000 UCBRV014 EQU UCBCHM1 01233000 UCBSPB EQU UCBPTH1 01234000 UCBPPB EQU UCBPTH1 01235000 UCBSPA EQU UCBPTH0 01236000 UCBPPA EQU UCBPTH0 01237000 UCBSIGP EQU UCBFLB 01238000 UCBVALPH EQU UCBFLB 01239000 UCBCRHSN EQU UCBFLB 01240000 UCBCRHRV EQU UCBFLB 01241000 UCBRESVH EQU UCBFLB 01242000 UCBSPST EQU UCBFLB 01243000 UCBASNS EQU UCBFLB 01244000 UCBIORST EQU UCBFLB 01245000 UCBQISCE EQU UCBFL1 01246000 UCBACTV EQU UCBFL1 01247000 UCBSAP EQU UCBFL1 01248000 UCBNOTRC EQU UCBCUB 01249000 UCBPSNS EQU UCBFL1 01250000 UCBUSING EQU UCBPST 01251000 UCBNOTRD EQU UCBNRY 01252000 UCBBUSYD EQU UCBBSY 01253000 UCBUA EQU UCBCHAN+1 01254000 UCBCHA EQU UCBCHAN 01255000 UCBDADI EQU UCBSTAT 01256000 UCBSYSR EQU UCBSTAT 01257000 UCBPRES EQU UCBSTAT 01258000 UCBALOC EQU UCBSTAT 01259000 UCBUNLD EQU UCBSTAT 01260000 UCBRESV EQU UCBSTAT 01261000 UCBCHGS EQU UCBSTAT 01262000 UCBONLI EQU UCBSTAT 01263000 UCBID EQU UCBOB+2 01264000 UCBALTPH EQU UCBFL5 01265000 UCBALTCU EQU UCBFL5 01266000 UCBNALOC EQU UCBFL5 01267000 UCBENVRD EQU UCBFL5 01268000 UCBVSDR EQU UCBFL5 01269000 UCBSASK EQU UCBFL5 01270000 UCBAMV EQU UCBAF 01271000 UCBDCC EQU UCBFL5 01272000 UCBMONT EQU UCBJBNR 01273000 UCBRV011 EQU UCBJBNR 01274000 UCBMMSGP EQU UCBJBNR 01275000 UCBOLDSM EQU UCBJBNR 01276000 UCBRV003 EQU UCBJBNR 01277000 UCBDUC EQU UCBJBNR 01278000 UCBJES3 EQU UCBJBNR 01279000 UCBVRDEV EQU UCBJBNR 01280000 UCBCMSEG EQU UCBOB 01281000 UCBPFXND EQU UCB+512 01282000 UCBIOQ EQU UCB+508 01283000 UCBLOCK EQU UCB+504 01284000 UCBPXST EQU UCB+504 01285000 @NM00040 EQU UCB 01286000 IOBERRCT EQU IOBSTDRD+30 01287000 IOBRSV19 EQU IOBINCAM+1 01288000 IOBOLTST EQU IOBBTAMF 01289000 IOBRFTMG EQU IOBBTAMF 01290000 IOBRSV17 EQU IOBBTAMF 01291000 IOBRSV16 EQU IOBBTAMF 01292000 IOBRSV15 EQU IOBBTAMF 01293000 IOBRSV14 EQU IOBBTAMF 01294000 IOBINUSE EQU IOBBTAMF 01295000 IOBPRMER EQU IOBBTAMF 01296000 IOBRSTRB EQU IOBRESTR+1 01297000 IOBREPOS EQU IOBRESTR 01298000 IOBDCBPB EQU IOBDCBPT+1 01299000 IOBRSV44 EQU IOBFLAG4 01300000 IOBJES3I EQU IOBFLAG4 01301000 IOBRSV42 EQU IOBFLAG4 01302000 IOBRSV41 EQU IOBFLAG4 01303000 IOBRSV40 EQU IOBFLAG4 01304000 IOBPMERR EQU IOBFLAG4 01305000 IOBCC3WE EQU IOBFLAG4 01306000 IOBGDPOL EQU IOBFLAG4 01307000 IOBSTRTB EQU IOBSTART+1 01308000 IOBSIOCC EQU IOBSTART 01309000 IOBCSB7 EQU IOBCSTAT 01310000 IOBCSB6 EQU IOBCSTAT 01311000 IOBCSB5 EQU IOBCSTAT 01312000 IOBCSB4 EQU IOBCSTAT 01313000 IOBCSB3 EQU IOBCSTAT 01314000 IOBCSB2 EQU IOBCSTAT 01315000 IOBCSB1 EQU IOBCSTAT 01316000 IOBCSB0 EQU IOBCSTAT 01317000 IOBUSB7 EQU IOBUSTAT 01318000 IOBUSB6 EQU IOBUSTAT 01319000 IOBUSB5 EQU IOBUSTAT 01320000 IOBUSB4 EQU IOBUSTAT 01321000 IOBUSB3 EQU IOBUSTAT 01322000 IOBUSB2 EQU IOBUSTAT 01323000 IOBUSB1 EQU IOBUSTAT 01324000 IOBUSB0 EQU IOBUSTAT 01325000 IOBCMDA EQU IOBIOCSW 01326000 IOBLOG EQU IOBFL3 01327000 IOBJAM EQU IOBICL 01328000 IOBMSG EQU IOBFL3 01329000 IOBSDR EQU IOBCNC 01330000 IOBACU EQU IOBFL3 01331000 IOBCDC EQU IOBFL3 01332000 IOBICC EQU IOBFL3 01333000 IOBCCC EQU IOBFL3 01334000 IOBECBPB EQU IOBECBPT+1 01335000 IOBECBCC EQU IOBECBPT 01336000 IOBS1B7 EQU IOBSENS1 01337000 IOBS1B6 EQU IOBSENS1 01338000 IOBS1B5 EQU IOBSENS1 01339000 IOBS1B4 EQU IOBSENS1 01340000 IOBS1B3 EQU IOBSENS1 01341000 IOBS1B2 EQU IOBSENS1 01342000 IOBS1B1 EQU IOBSENS1 01343000 IOBS1B0 EQU IOBSENS1 01344000 IOBSNSC9 EQU IOBS0B7 01345000 IOBS0B6 EQU IOBSENS0 01346000 IOBS0B5 EQU IOBSENS0 01347000 IOBS0B4 EQU IOBSENS0 01348000 IOBS0B2 EQU IOBSENS0 01349000 IOBS0B1 EQU IOBSENS0 01350000 IOBS0B0 EQU IOBSENS0 01351000 IOBPNCH EQU IOBFLAG2 01352000 IOBSTATO EQU IOBFLAG2 01353000 IOBSKUPD EQU IOBFLAG2 01354000 IOBALTTR EQU IOBFLAG2 01355000 IOBRRT2 EQU IOBRDHA0 01356000 IOBRRT3 EQU IOBPURGE 01357000 IOBSENSE EQU IOBFLAG2 01358000 IOBHALT EQU IOBFLAG2 01359000 IOBSPSVC EQU IOBRSTRT 01360000 IOBUNREL EQU IOBFLAG1 01361000 IOBIOERR EQU IOBFLAG1 01362000 IOBFCREX EQU IOBCYCCK 01363000 IOBRPSTN EQU IOBFLAG1 01364000 IOBERRTN EQU IOBFLAG1 01365000 IOBCMDCH EQU IOBFLAG1 01366000 IOBDATCH EQU IOBFLAG1 01367000 IOBCNOPA EQU IOBPREFX+12 01368000 IOBCICB EQU IOBPREFX+8 01369000 IOBCECB EQU IOBPREFX+4 01370000 IOBCONOP EQU IOBPREFX+3 01371000 IOBCINOP EQU IOBPREFX+2 01372000 IOBRSV05 EQU IOBPREFX+1 01373000 IOBPCI EQU IOBCFLG1 01374000 IOBRSTCH EQU IOBCFLG1 01375000 IOBABAPP EQU IOBCFLG1 01376000 IOBPTST EQU IOBCFLG1 01377000 IOBRSV04 EQU IOBCFLG1 01378000 IOBRSV03 EQU IOBCFLG1 01379000 IOBRSV02 EQU IOBCFLG1 01380000 IOBRSV01 EQU IOBCFLG1 01381000 DEBXRV40 EQU DEBXTN+28 01382000 DEBXOPNJ EQU DEBXTN+24 01383000 DEBXXARG EQU DEBXTN+20 01384000 DEBXMCF2 EQU DEBXTN+19 01385000 DEBXMCF1 EQU DEBXTN+18 01386000 DEBXDSO2 EQU DEBXTN+17 01387000 DEBXDSO1 EQU DEBXTN+16 01388000 DEBXDBPR EQU DEBXTN+12 01389000 DEBXDCBM EQU DEBXTN+8 01390000 DEBXDSAB EQU DEBXTN+4 01391000 DEBXRV48 EQU DEBXTN+3 01392000 DEBXRV47 EQU DEBXFLG1 01393000 DEBXRV46 EQU DEBXFLG1 01394000 DEBXRV45 EQU DEBXFLG1 01395000 DEBXRV44 EQU DEBXFLG1 01396000 DEBXRV43 EQU DEBXFLG1 01397000 DEBXDSSI EQU DEBXFLG1 01398000 DEBXTSKC EQU DEBXFLG1 01399000 DEBXCDCB EQU DEBXFLG1 01400000 DEBXLNGH EQU DEBXTN 01401000 DEBTBLOF EQU DEBPREFX+14 01402000 DEBAMTYP EQU DEBPREFX+13 01403000 DEBLNGTH EQU DEBPREFX+12 01404000 DEBDCBMK EQU DEBXTNP 01405000 DEBDSCBA EQU DEBPREFX+1 01406000 DEBWKARA EQU DEBPREFX 01407000 DEBXCEAD EQU DEBXCEA+1 01408000 DEBXCENP EQU DEBXCEAB 01409000 DEBRSV35 EQU DEBXCEAB 01410000 DEBRSV34 EQU DEBXCEAB 01411000 DEBRSV33 EQU DEBXCEAB 01412000 DEBRSV32 EQU DEBXCEAB 01413000 DEBCEAD EQU DEBCEA+1 01414000 DEBCENP EQU DEBCEAB 01415000 DEBRSV31 EQU DEBCEAB 01416000 DEBRSV30 EQU DEBCEAB 01417000 DEBRSV29 EQU DEBCEAB 01418000 DEBRSV28 EQU DEBCEAB 01419000 DEBPCIAD EQU DEBPCIA+1 01420000 DEBPCINP EQU DEBPCIAB 01421000 DEBRSV27 EQU DEBPCIAB 01422000 DEBRSV26 EQU DEBPCIAB 01423000 DEBRSV25 EQU DEBPCIAB 01424000 DEBRSV24 EQU DEBPCIAB 01425000 DEBSIOAD EQU DEBSIOA+1 01426000 DEBSIONP EQU DEBSIOAB 01427000 DEBFIX EQU DEBSIOAB 01428000 DEBIOVR EQU DEBSIOAB 01429000 DEBSIOX EQU DEBSIOAB 01430000 DEBPGFX EQU DEBSIOAB 01431000 DEBEOEAD EQU DEBEOEA+1 01432000 DEBEOENP EQU DEBEOEAB 01433000 DEBRSV22 EQU DEBEOEAB 01434000 DEBRSV21 EQU DEBEOEAB 01435000 DEBRSV20 EQU DEBEOEAB 01436000 DEBRSV19 EQU DEBEOEAB 01437000 DEBSUBID EQU DEBSUBNM 01438000 DEBSIOA2 EQU DEBACS08+24 01439000 DEBRPSIO EQU DEBACS08+20 01440000 DEBFREED EQU DEBACS08+16 01441000 @NM00039 EQU DEBACS08+12 01442000 @NM00038 EQU DEBACS08+8 01443000 DEBDISAD EQU DEBACS08+4 01444000 @NM00037 EQU DEBACS08 01445000 DEBRPSST EQU DEBACS07+64 01446000 DEBARECK EQU DEBACS07+60 01447000 DEBAREWT EQU DEBACS07+56 01448000 DEBACHK EQU DEBACS07+52 01449000 DEBAWRIT EQU DEBACS07+48 01450000 DEBASETL EQU DEBACS07+44 01451000 DEBAREAD EQU DEBACS07+40 01452000 DEBCRECK EQU DEBACS07+36 01453000 DEBCREWT EQU DEBACS07+32 01454000 DEBCCHK EQU DEBACS07+28 01455000 DEBCWRIT EQU DEBACS07+24 01456000 DEBCSETL EQU DEBACS07+20 01457000 DEBCREAD EQU DEBACS07+16 01458000 DEBWKPT5 EQU DEBACS07+12 01459000 DEBWKPT4 EQU DEBACS07+8 01460000 DEBGET EQU DEBACS07+4 01461000 @NM00036 EQU DEBACS07 01462000 DEBPUT EQU DEBACS06+4 01463000 DEBDCBFA EQU DEBACS06 01464000 DEBLUCBB EQU DEBLUCBA+1 01465000 DEBRSV18 EQU DEBLUCBA 01466000 DEBFUCBB EQU DEBFUCBA+1 01467000 DEBRSV17 EQU DEBFUCBA 01468000 DEBTCCWB EQU DEBTCCWA+1 01469000 DEBRSV16 EQU DEBTCCWA 01470000 DEBTBFRB EQU DEBTBFRA+1 01471000 DEBRSV15 EQU DEBTBFRA 01472000 DEBDBPEF EQU DEBACS03+8 01473000 DEBDBPP EQU DEBACS03+4 01474000 DEBDTPP EQU DEBACS03 01475000 DEBDBPE EQU DEBDBLK+1 01476000 DEBDBPT EQU DEBDBLK 01477000 DEBEXTNM EQU DEBDSNAM 01478000 DEBLRECL EQU DEBACSMD+14 01479000 DEBBLKSI EQU DEBACSMD+12 01480000 DEBRSV14 EQU DEBDSNM+4 01481000 DEBUTSAB EQU DEBUTSAA+1 01482000 DEBRSV13 EQU DEBUTSAA 01483000 DEBVOLNM EQU DEBACSMD+2 01484000 DEBVLSEQ EQU DEBVOLSQ+1 01485000 DEBRSV42 EQU DEBVOLBT 01486000 DEBRSV41 EQU DEBVOLBT 01487000 DEBRSV40 EQU DEBVOLBT 01488000 DEBRSV39 EQU DEBVOLBT 01489000 DEBRSV38 EQU DEBVOLBT 01490000 DEBRSV37 EQU DEBVOLBT 01491000 DEBRSV36 EQU DEBVOLBT 01492000 DEBEXFUL EQU DEBVOLBT 01493000 DEBNMTRK EQU DEBDASD+14 01494000 DEBENDHH EQU DEBDASD+12 01495000 DEBENDCC EQU DEBDASD+10 01496000 DEBSTRHH EQU DEBDASD+8 01497000 DEBSTRCC EQU DEBDASD+6 01498000 DEBBINUM EQU DEBDASD+4 01499000 DEBUCBA EQU DEBUCBAD+1 01500000 DEBDVMOD EQU DEBUCBAD 01501000 DEBAPPB EQU DEBAPPAD+1 01502000 DEBEXSCL EQU DEBAPPAD 01503000 DEBDCBB EQU DEBDCBAD+1 01504000 DEBDEBID EQU DEBPROTG 01505000 DEBECBB EQU DEBECBAD+1 01506000 DEBPRIOR EQU DEBECBAD 01507000 DEBUSRPB EQU DEBUSRPG+1 01508000 DEBNMEXT EQU DEBUSRPG 01509000 DEBRSV05 EQU DEBBASIC+15 01510000 DEBXTNIN EQU DEBFLGS1 01511000 DEBAPFIN EQU DEBFLGS1 01512000 DEBF1CEV EQU DEBFLGS1 01513000 DEBCINDI EQU DEBFLGS1 01514000 DEBRSV02 EQU DEBFLGS1 01515000 DEBRSIOA EQU DEBFLGS1 01516000 DEBEOFDF EQU DEBFLGS1 01517000 DEBPWCKD EQU DEBFLGS1 01518000 DEBQSCNT EQU DEBBASIC+13 01519000 DEBACCS EQU DEBOPATB 01520000 DEBPOSIT EQU DEBOPATB 01521000 DEBZERO EQU DEBOPATB 01522000 DEBABEND EQU DEBOPATB 01523000 DEBIRBB EQU DEBIRBAD+1 01524000 DEBRERR EQU DEBOFLGS 01525000 DEBLABEL EQU DEBOFLGS 01526000 DEBSPLIT EQU DEBOFLGS 01527000 DEBDCB EQU DEBOFLGS 01528000 DEBRLSE EQU DEBOFLGS 01529000 DEBEOF EQU DEBOFLGS 01530000 DEBDISP EQU DEBOFLGS 01531000 DEBDEBB EQU DEBDEBAD+1 01532000 DEBAMLNG EQU DEBDEBAD 01533000 DEBTCBB EQU DEBTCBAD+1 01534000 DEBNMSUB EQU DEBTCBAD 01535000 @NM00035 EQU IHADCS44+10 01536000 DCBXENDA EQU IHADCS44+8 01537000 DCBCENDA EQU IHADCS44+6 01538000 DCBSIOA EQU IHADCS44+4 01539000 DCBPCIA EQU IHADCS44+2 01540000 DCBEOEA EQU IHADCS44 01541000 @NM00034 EQU IHADCS28+1 01542000 @NM00033 EQU DCBOPTCD 01543000 DCBSRCHD EQU DCBOPTZ 01544000 @NM00032 EQU DCBOPTCD 01545000 DCBDEBA EQU DCBDEBAD+1 01546000 @NM00031 EQU DCBIFLGS 01547000 DCBCH12 EQU DCBIFPCT 01548000 DCBCH9 EQU DCBIFPCT 01549000 DCBIFEC EQU DCBIFLGS 01550000 DCBMFSTI EQU DCBMFDMD 01551000 DCBMFAWR EQU DCBMFSTK 01552000 DCBMFUIP EQU DCBMFTMD 01553000 DCBMFIDW EQU DCBMFLCP 01554000 DCBMFWRK EQU DCBMFMVP 01555000 DCBMFRDQ EQU DCBMFWRT 01556000 DCBMFGTQ EQU DCBMFPUT 01557000 DCBMFSTL EQU DCBMACF2 01558000 DCBMFCK EQU DCBMFDMG 01559000 DCBMFRDX EQU DCBMFCHK 01560000 DCBMFDBF EQU DCBMFSBG 01561000 DCBMFRDI EQU DCBMFLCG 01562000 DCBMFRDK EQU DCBMFMVG 01563000 DCBMFWRQ EQU DCBMFRD 01564000 DCBMFPTQ EQU DCBMFGET 01565000 DCBMFECP EQU DCBMACF1 01566000 DCBTIOT EQU IHADCS25 01567000 DCBMRSTI EQU DCBMRDMD 01568000 DCBMRAWR EQU DCBMRSTK 01569000 DCBMRUIP EQU DCBMRTMD 01570000 DCBMRIDW EQU DCBMRLCP 01571000 DCBMRWRK EQU DCBMRMVP 01572000 DCBMRRDQ EQU DCBMRWRT 01573000 DCBMRGTQ EQU DCBMRPUT 01574000 DCBMRSTL EQU DCBMACR2 01575000 DCBMRCK EQU DCBMRDMG 01576000 DCBPGFXA EQU DCBMRRDX 01577000 DCBMRDBF EQU DCBMRSBG 01578000 DCBMRRDI EQU DCBMRLCG 01579000 DCBMRRDK EQU DCBMRMVG 01580000 DCBMRWRQ EQU DCBMRRD 01581000 DCBMRPTQ EQU DCBMRGET 01582000 DCBMRECP EQU DCBMACR1 01583000 @NM00030 EQU DCBIFLG 01584000 DCBIBIOE EQU DCBIFLG 01585000 DCBICH12 EQU DCBIBPCT 01586000 DCBICH9 EQU DCBIBPCT 01587000 DCBIBEC EQU DCBIFLG 01588000 DCBOFIOF EQU DCBOFLGS 01589000 DCBOFUEX EQU DCBOFLGS 01590000 DCBOFTM EQU DCBOFLGS 01591000 DCBOFPPC EQU DCBOFLGS 01592000 DCBOFOPN EQU DCBOFLGS 01593000 DCBOFEOV EQU DCBOFLGS 01594000 DCBOFLRB EQU DCBOFLGS 01595000 DCBOFIOD EQU DCBOFLWR 01596000 DCBDDNAM EQU IHADCS24 01597000 DCBTRBAL EQU IHADCS01+6 01598000 @NM00029 EQU IHADCS01+5 01599000 @NM00028 EQU IHADCS01+4 01600000 DCBDVTBA EQU DCBDVTBL+1 01601000 @NM00027 EQU DCBDVTBL 01602000 DCBKEYCN EQU IHADCS00+4 01603000 DCBRELAD EQU IHADCS00 01604000 @NM00026 EQU IHADCB 01605000 SENMB35 EQU BYTE2 01606000 SENMB70 EQU BYTE2 01607000 @NM00025 EQU BYTE2 01608000 SENEMUL EQU SEN3344 01609000 @NM00024 EQU BYTE2 01610000 SENCERR EQU BYTE2 01611000 SENRPSPR EQU BYTE2 01612000 @NM00023 EQU BYTE1 01613000 SENRFND EQU BYTE1 01614000 @NM00022 EQU BYTE1 01615000 SENPERR EQU BYTE1 01616000 SENSEEKC EQU BYTE0 01617000 SENTRKCK EQU BYTE0 01618000 @NM00021 EQU BYTE0 01619000 SENDATCK EQU BYTE0 01620000 SENEQCK EQU BYTE0 01621000 @NM00020 EQU BYTE0 01622000 CBDCB EQU CNTBLKS+84 01623000 CBIOB EQU CNTBLKS+44 01624000 APOVFLO EQU APINFO+92 01625000 APTRKCT EQU APINFO+24 01626000 APLASTA EQU APINFO+20 01627000 APASSOC EQU APINFO+16 01628000 APTRACK EQU APINFO+12 01629000 APANXT EQU APINFO+8 01630000 @NM00019 EQU VOLIB+38 01631000 VLNUMBER EQU VOLIB+37 01632000 VLNTYP EQU VOLIB+36 01633000 VLSTATE EQU VOLIB+35 01634000 VLFINIT EQU VOLIB+34 01635000 VLPRVOL EQU VOLIB+33 01636000 VLDEVIND EQU VOLIB+32 01637000 VLDEVTYP EQU VLUCBDT+3 01638000 @NM00018 EQU VLUCBDT 01639000 VLDNMCUU EQU VOLIB+20 01640000 VLIOBPTR EQU VOLIB+16 01641000 VLMAPL EQU VOLIB+12 01642000 VLMAPF EQU VOLIB+8 01643000 VLBPTR EQU VOLIB+4 01644000 VLFPTR EQU VOLIB 01645000 @NM00017 EQU DMPARY+15 01646000 DMPARYTP EQU DMPARY+14 01647000 DMPARYEX EQU DMPARY+12 01648000 DMPARYIC EQU DMPARY+10 01649000 DMPARYSZ EQU DMPARY+8 01650000 DMPARYNM EQU DMPARY 01651000 @NM00016 EQU DMPITM+15 01652000 DMPITMTP EQU DMPITM+14 01653000 DMPITMLN EQU DMPITM+12 01654000 DMPITMPT EQU DMPITM+8 01655000 DMPITMNM EQU DMPITM 01656000 @NM00015 EQU FMTCNVF+1 01657000 FMTBS EQU FMTCNVF+1 01658000 FMTSS EQU FMTCNVF+1 01659000 FMTAL EQU FMTCNVF+1 01660000 FMTZS EQU FMTCNVF+1 01661000 @NM00014 EQU FMTCNVF 01662000 FMTPU EQU FMTCNVF 01663000 FMTBD EQU FMTCNVF 01664000 FMTBHD EQU FMTCNVF 01665000 FMTBHA EQU FMTCNVF 01666000 FMTBH EQU FMTCNVF 01667000 FMTOLEN EQU FMTLIST+8 01668000 FMTRIO EQU FMTOCOL 01669000 FMTSPT EQU FMTSTO 01670000 FMTSTL EQU FMTILEN 01671000 @NM00013 EQU FMTFLGS+1 01672000 FMTHDF EQU FMTFLGS 01673000 FMTDFF EQU FMTFLGS 01674000 FMTSTF EQU FMTFLGS 01675000 FMTREPF EQU FMTFLGS 01676000 FMTBDF EQU FMTFLGS 01677000 FMTIDF EQU FMTFLGS 01678000 FMTSCF EQU FMTFLGS 01679000 FMTEOLF EQU FMTFLGS 01680000 DARGDTM EQU DARGARY+4 01681000 DARGPCT EQU DARGINL 01682000 DARGREP EQU DARGINS 01683000 @NM00012 EQU DARGLIST+19 01684000 DARGIND EQU DARGLIST+18 01685000 DARGRETL EQU DARGLIST+16 01686000 DARGCNT EQU DARGLIST+14 01687000 DARGILP EQU DARGLIST+12 01688000 DARGSENT EQU DARGSTID+3 01689000 DARGSMOD EQU DARGSTID 01690000 DARGRETP EQU DARGLIST+4 01691000 DARGDBP EQU DARGLIST 01692000 UVOLVOL EQU UVOLENT+4 01693000 UVOLDEV EQU UVOLENT 01694000 UVOLCNT EQU UVOLLIST 01695000 OPNRSVD EQU OPNAGL+28 01696000 OPNVOL EQU OPNAGL+24 01697000 OPNBLK EQU OPNAGL+20 01698000 OPNREC EQU OPNAGL+16 01699000 OPNDSN EQU OPNAGL+12 01700000 OPNDDN EQU OPNAGL+8 01701000 OPNIOC EQU OPNAGL+4 01702000 @NM00011 EQU OPNMOD 01703000 OPNMODRC EQU OPNMOD 01704000 OPNMODAC EQU OPNMOD 01705000 @NM00010 EQU OPNTYP 01706000 OPNTYPSO EQU OPNTYP 01707000 OPNTYPSI EQU OPNTYP 01708000 @NM00009 EQU OPNRFM 01709000 OPNRFMBK EQU OPNRFM 01710000 OPNRFMSF EQU OPNRFM 01711000 OPNRFMUN EQU OPNRFM 01712000 OPNRFMVR EQU OPNRFM 01713000 OPNRFMFX EQU OPNRFM 01714000 @NM00008 EQU OPNOPT 01715000 OPNOPTJM EQU OPNOPT 01716000 OPNOPTKS EQU OPNOPT 01717000 OPNOPTBK EQU OPNOPT 01718000 OPNOPTUP EQU OPNOPT 01719000 OPNOPTOT EQU OPNOPT 01720000 OPNOPTIN EQU OPNOPT 01721000 IOCEXT EQU IOCSTR+36 01722000 IOCRRN EQU IOCSTR+32 01723000 @NM00007 EQU IOCSTR+30 01724000 IOCPNM EQU IOCSTR+28 01725000 IOCCBP EQU IOCSTR+24 01726000 IOCDSN EQU IOCSTR+20 01727000 @NM00006 EQU IOCSTR+17 01728000 @NM00005 EQU IOCMSG 01729000 IOCMSGOP EQU IOCMSG 01730000 IOCMACPA EQU IOCMAC 01731000 @NM00004 EQU IOCMAC 01732000 IOCMACBK EQU IOCMAC 01733000 IOCMACUP EQU IOCMAC 01734000 IOCMACOT EQU IOCMAC 01735000 IOCMACIN EQU IOCMAC 01736000 @NM00003 EQU IOCRFM 01737000 IOCRFMBK EQU IOCRFM 01738000 IOCRFMSF EQU IOCRFM 01739000 IOCRFMUN EQU IOCRFM 01740000 IOCRFMVR EQU IOCRFM 01741000 IOCRFMFX EQU IOCRFM 01742000 @NM00002 EQU IOCDSO 01743000 IOCDSOPS EQU IOCDSO 01744000 IOCKYL EQU IOCSTR+12 01745000 IOCTRN EQU IOCSTR+8 01746000 IOCDLN EQU IOCSTR+4 01747000 IOCDAD EQU IOCSTR 01748000 STAEWORK EQU STAEPARM+32 01749000 STARPTR EQU STAEPFX+28 01750000 STASPTR EQU STAEPFX+24 01751000 STALEN EQU STAEPFX+20 01752000 STAID EQU STAEPFX+16 01753000 STAEPA EQU STAEPFX+12 01754000 STAGDT EQU STAEPFX+8 01755000 STABPTR EQU STAEPFX+4 01756000 STAFPTR EQU STAEPFX 01757000 NEWID2 EQU TRACE2+95 01758000 OLDERID2 EQU TRACE2 01759000 NEWID1 EQU TRACE1+95 01760000 CALLID EQU OLDERID1+90 01761000 @NM00001 EQU OLDERID1 01762000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01763000 @ENDDATA EQU * 01764000 END IGG019P2,(C'PLS1707',0701,78192) 01765000