COMK TITLE 'BLSRCOMK--IPCS COMCHECK SUBCOMMAND *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPGW */ 00004000 */*------------------------------------------------------------------*/ 00005000 BLSRCOMK CSECT , 0002 00006000 @MAINENT DS 0H 0002 00007000 USING *,@15 0002 00008000 B @PROLOG 0002 00009000 DC AL1(16) 0002 00010000 DC C'BLSRCOMK 78.057' 0002 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0002 00013000 BALR @12,0 0002 00014000 @PSTART DS 0H 0002 00015000 USING @PSTART,@12 0002 00016000 L @00,@SIZDATD 0002 00017000 BLSUALLR R,LV=(0) 00018000 LR @11,@01 0002 00019000 USING @DATD,@11 0002 00020000 ST @13,@SA00001+4 0002 00021000 LM @00,@01,20(@13) 0002 00022000 ST @11,8(,@13) 0002 00023000 LR @13,@11 0002 00024000 * RETC=0; /* RETURN CODE */ 00025000 SLR RETC,RETC 0217 00026000 * RF=0; /* RETURN CODE */ 00027000 SLR RF,RF 0218 00028000 * IN81L=12; /* SEGMENT LENGTH */ 00029000 LA @14,12 0219 00030000 STH @14,IN81L 0219 00031000 * IN82L=12; /* SEGMENT LENGTH */ 00032000 STH @14,IN82L 0220 00033000 * BUFP=ADDR(BUF); /* BUFFER ADDRESS */ 00034000 LA @14,BUF 0221 00035000 LR BUFP,@14 0221 00036000 * CQEPTR=ADDR(BUF); /* BASE CQE PTR SEPARATELY, AS IT 00037000 * MOVES DOWN THE BUFFER DURING 00038000 * PROCESSING */ 00039000 LR CQEPTR,@14 0222 00040000 * 0223 00041000 * /*****************************************************************/ 00042000 * /* */ 00043000 * /* CALL IKJPARS AND INSPECT OPERANDS */ 00044000 * /* */ 00045000 * /*****************************************************************/ 00046000 * 0223 00047000 * DO; /* BLSRPARS ROUTING FLAG MF(E,PX)*/ 00048000 * DO; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00049000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00050000 * TE,PX)ROUTING FLAG */ 00051000 * DO; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00052000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00053000 * ROUTING */ 00054000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00055000 ST R9,@AL00001 0226 00056000 L @14,PCPTR 0226 00057000 ST @14,@AL00001+4 0226 00058000 LA @14,PDAPTR 0226 00059000 ST @14,@AL00001+8 0226 00060000 L @10,ZZ2BVTP(,R9) 0226 00061000 L @15,BVTPARIP(,@10) 0226 00062000 LA @01,@AL00001 0226 00063000 BALR @14,@15 0226 00064000 * RESPECIFY 0227 00065000 * (GPR15F) RESTRICTED; 0227 00066000 * IF GPR15F^=ZZZFLAGI THEN 0228 00067000 * 0228 00068000 LTR GPR15F,GPR15F 0228 00069000 BZ @RF00228 0228 00070000 * /*********************************************************/ 00071000 * /* */ 00072000 * /* UNABLE TO PARSE */ 00073000 * /* */ 00074000 * /*********************************************************/ 00075000 * 0229 00076000 * DO; /* UNABLE TO PARSE */ 00077000 * RETC=GPR15F; /* RETURN CODE */ 00078000 LR RETC,GPR15F 0230 00079000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00080000 B EXITNORL 0231 00081000 * END; 0232 00082000 * RESPECIFY 0233 00083000 * (GPR15F) UNRESTRICTED; 0233 00084000 @RF00228 DS 0H 0234 00085000 * RESPECIFY 0234 00086000 * (PDRPTR) RESTRICTED; 0234 00087000 * PDRPTR=PDAPTR; /* ->PDL */ 00088000 L PDRPTR,PDAPTR 0235 00089000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0236 00090000 USING PD,PDRPTR 00091000 * IF PXTEST=PXTEST1 THEN 0237 00092000 CLC PXTEST(2),@CH00043 0237 00093000 BNE @RF00237 0237 00094000 * ZZ2AFX=ZZZ1; /* TEST */ 00095000 OI ZZ2AFX(R9),B'10000000' 0238 00096000 * ELSE 0239 00097000 * IF PXTEST=PXTEST0 THEN 0239 00098000 B @RC00237 0239 00099000 @RF00237 CLC PXTEST(2),@CH00068 0239 00100000 BNE @RF00239 0239 00101000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00102000 NI ZZ2AFX(R9),B'01111111' 0240 00103000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00104000 @RF00239 DS 0H 0241 00105000 @RC00237 ST R9,@AL00001 0241 00106000 ST PDRPTR,@AL00001+4 0241 00107000 LA @14,PXRO 0241 00108000 ST @14,@AL00001+8 0241 00109000 L @08,ZZ2BVTP(,R9) 0241 00110000 L @15,BVTPARUP(,@08) 0241 00111000 LA @01,@AL00001 0241 00112000 BALR @14,@15 0241 00113000 * RESPECIFY 0242 00114000 * (GPR15F) RESTRICTED; 0242 00115000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00116000 CR RETC,GPR15F 0243 00117000 BNL *+6 00118000 LR RETC,GPR15F 0243 00119000 * RESPECIFY 0244 00120000 * (GPR15F) UNRESTRICTED; 0244 00121000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00122000 C RETC,@CF00051 0245 00123000 BH @RT00245 0245 00124000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00125000 * END; /* BLSUPARS CSECT(PC)DSECT(PD)EXI 00126000 * T(EXITRLSA,)MF(EXECUTE,PX)FLAG 00127000 * ROUTING */ 00128000 * END; /* BLSRPARD CSECT()DSECT(PD)EQUAT 00129000 * E(ESAU)EXIT(EXITRLSA,)MF(EXECU 00130000 * TE,PX)ROUTING FLAG */ 00131000 * END; /* BLSRPARS ROUTING FLAG MF(E,PX)*/ 00132000 * 0250 00133000 * /*****************************************************************/ 00134000 * /* */ 00135000 * /* GET UCM */ 00136000 * /* */ 00137000 * /*****************************************************************/ 00138000 * 0250 00139000 * ESAUSYM='UCM'; /* SYMBOL */ 00140000 MVI ESAUSYM+3,C' ' 0250 00141000 MVC ESAUSYM+4(27),ESAUSYM+3 0250 00142000 MVC ESAUSYM(3),@CC02058 0250 00143000 * ESAUDT=DTUCM; /* DATA TYPE */ 00144000 MVC ESAUDT(34),DTUCM 0251 00145000 * CALL BLSRESGU(ZZ2,ESAU); /* FIND DUMPED UCM */ 00146000 ST R9,@AL00001 0252 00147000 LA @14,ESAU 0252 00148000 ST @14,@AL00001+4 0252 00149000 L @08,ZZ2RVTP(,R9) 0252 00150000 L @15,RVTESGUP(,@08) 0252 00151000 LA @01,@AL00001 0252 00152000 BALR @14,@15 0252 00153000 * IF RF>ZZZFLAGE THEN 0253 00154000 C RF,@CF00051 0253 00155000 BH @RT00253 0253 00156000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00157000 * ESAUD=DESCR; /* STORAGE ATTRIBUTES */ 00158000 MVC ESAUD(60),DESCR 0255 00159000 * ESAUDLE=LENGTH(UCMCTID)+ADDR(UCMCTID)-ADDR(UCM);/* LENGTH TO 0256 00160000 * INCLUDE ENOUGH OF THE UCM TO 00161000 * GET THE FIELDS NEEDED */ 00162000 LA @14,UCMCTID(,BUFP) 0256 00163000 AL @14,@CF00068 0256 00164000 SLR @14,BUFP 0256 00165000 ST @14,ESAUDLE 0256 00166000 * CALL BLSRACC(ZZ2,ESAU,BUF); /* RETRIEVE UCM IMAGE */ 00167000 ST R9,@AL00001 0257 00168000 LA @14,ESAU 0257 00169000 ST @14,@AL00001+4 0257 00170000 LA @14,BUF 0257 00171000 ST @14,@AL00001+8 0257 00172000 L @08,ZZ2RVTP(,R9) 0257 00173000 L @15,RVTRACCP(,@08) 0257 00174000 LA @01,@AL00001 0257 00175000 BALR @14,@15 0257 00176000 * RETC=MAX(RETC,RF); /* SET RETURN CODE */ 00177000 CR RETC,RF 0258 00178000 BNL *+6 00179000 LR RETC,RF 0258 00180000 * IF ESAUFSM='1'B THEN 0259 00181000 TM ESAUFSM,B'00100000' 0259 00182000 BO @RT00259 0259 00183000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00184000 * ADRWQEF=UCMWTOQ; /* PTR TO FIRST WQE */ 00185000 L @14,UCMWTOQ(,BUFP) 0261 00186000 ST @14,ADRWQEF 0261 00187000 * ADRWQEL=UCMWQEND; /* PTR TO LAST WQE */ 00188000 L ADRWQEL,UCMWQEND(,BUFP) 0262 00189000 * ADROREF=UCMRPYQ; /* ADDRESS OF FIRST ORE */ 00190000 L @14,UCMRPYQ(,BUFP) 0263 00191000 ST @14,ADROREF 0263 00192000 * ADRUCMEF=UCMVEA; /* ADDR OF FIRST UCM ENTRY */ 00193000 L @14,UCMVEA(,BUFP) 0264 00194000 ST @14,ADRUCMEF 0264 00195000 * ADRUCMEL=UCMVEL; /* ADDR OF LAST UCM ENTRY */ 00196000 L @14,UCMVEL(,BUFP) 0265 00197000 ST @14,ADRUCMEL 0265 00198000 * UCMESZ=UCMVEZ; /* LENGTH OF A UCM ENTRY */ 00199000 L @14,UCMVEZ(,BUFP) 0266 00200000 ST @14,UCMESZ 0266 00201000 * WQEBUFLM=UCMWQLM; /* WQE BUFFER LIMIT */ 00202000 LH WQEBUFLM,UCMWQLM(,BUFP) 0267 00203000 * ORECNT=UCMRQNR; /* CURRENT ORE COUNT */ 00204000 LH ORECNT,UCMRQNR(,BUFP) 0268 00205000 * WQECNT=UCMWQNR; /* CURRENT WQE COUNT */ 00206000 LH WQECNT,UCMWQNR(,BUFP) 0269 00207000 * CONASID=UCMCTID; /* ASID OF COMMTASK */ 00208000 LH @14,UCMCTID(,BUFP) 0270 00209000 ST @14,CONASID 0270 00210000 * IN81L=12; /* SET LENGTH */ 00211000 MVC IN81L(2),@CH00032 0271 00212000 * IN81O=ADDR(M006T2)-ADDR(M006T); /* SET OFFSET */ 00213000 MVC IN81O(2),@CH00714 0272 00214000 * DO; /* BLRCNVUC(WQECNT) FROM(UNSIGNED 00215000 * BINARY)TO(CHARACTER)SET(IN81T1 00216000 * )REMARK(CONVERT WQE 0273 00217000 * COUNT)PATTERN */ 00218000 * 0273 00219000 * /***************************************************************/ 00220000 * /* */ 00221000 * /* CONVERT WQE COUNT */ 00222000 * /* */ 00223000 * /***************************************************************/ 00224000 * 0274 00225000 * CVD(WQECNT,PACKED); /* UNSIGNED BINARY=>PACKED 0274 00226000 * DECIMAL */ 00227000 CVD WQECNT,PACKED 0274 00228000 * ZONED='40404040402020202020202020202120'X;/* ED PATTERN */ 00229000 MVC ZONED(16),@CB02298 0275 00230000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00231000 ED ZONED+4(12),PACKED+2 0276 00232000 * IN81T1=ZONED(17-LENGTH(IN81T1):16);/* EBCDIC RESULT */ 00233000 MVC IN81T1(8),ZONED+8 0277 00234000 * END; /* BLRCNVUC(WQECNT) FROM(UNSIGNED 00235000 * BINARY)TO(CHARACTER)SET(IN81T1 00236000 * )REMARK(CONVERT WQE 0278 00237000 * COUNT)PATTERN */ 00238000 * CALL BLSUMPK1(ZZ2,IN81); /* COMPRESS BLANKS */ 00239000 ST R9,@AL00001 0279 00240000 LA @14,IN81 0279 00241000 ST @14,@AL00001+4 0279 00242000 L @06,ZZ2BVTP(,R9) 0279 00243000 L @15,BVTMPK1P(,@06) 0279 00244000 LA @01,@AL00001 0279 00245000 BALR @14,@15 0279 00246000 * IN82L=12; /* SET LENGTH */ 00247000 MVC IN82L(2),@CH00032 0280 00248000 * IN82O=ADDR(M006T3)-ADDR(M006T); /* SET OFFSET */ 00249000 MVC IN82O(2),@CH02328 0281 00250000 * DO; /* BLRCNVUC(WQEBUFLM) 0282 00251000 * FROM(UNSIGNED BINARY)TO(CHARAC 00252000 * TER)SET(IN82T1)REMARK(CONVERT 00253000 * WQE LIMIT)PATTERN */ 00254000 * 0282 00255000 * /***************************************************************/ 00256000 * /* */ 00257000 * /* CONVERT WQE LIMIT */ 00258000 * /* */ 00259000 * /***************************************************************/ 00260000 * 0283 00261000 * CVD(WQEBUFLM,PACKED); /* UNSIGNED BINARY=>PACKED 0283 00262000 * DECIMAL */ 00263000 CVD WQEBUFLM,PACKED 0283 00264000 * ZONED='40404040402020202020202020202120'X;/* ED PATTERN */ 00265000 MVC ZONED(16),@CB02298 0284 00266000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00267000 ED ZONED+4(12),PACKED+2 0285 00268000 * IN82T1=ZONED(17-LENGTH(IN82T1):16);/* EBCDIC RESULT */ 00269000 MVC IN82T1(8),ZONED+8 0286 00270000 * END; /* BLRCNVUC(WQEBUFLM) 0287 00271000 * FROM(UNSIGNED BINARY)TO(CHARAC 00272000 * TER)SET(IN82T1)REMARK(CONVERT 00273000 * WQE LIMIT)PATTERN */ 00274000 * CALL BLSUMPK1(ZZ2,IN82); /* COMPRESS BLANKS */ 00275000 ST R9,@AL00001 0288 00276000 LA @14,IN82 0288 00277000 ST @14,@AL00001+4 0288 00278000 L @04,ZZ2BVTP(,R9) 0288 00279000 L @15,BVTMPK1P(,@04) 0288 00280000 LA @01,@AL00001 0288 00281000 BALR @14,@15 0288 00282000 * OLDN=3; /* 3 SEGMENTS */ 00283000 MVC OLDN(4),@CF00153 0289 00284000 * OLDP(1)=ADDR(M006); /* SEGMENT 1 */ 00285000 LA @14,M006 0290 00286000 ST @14,OLDP 0290 00287000 * OLDP(2)=ADDR(IN81); /* SEGMENT */ 00288000 LA @14,IN81 0291 00289000 ST @14,OLDP+4 0291 00290000 * OLDP(3)=ADDR(IN82); /* SEGMENT */ 00291000 LA @14,IN82 0292 00292000 ST @14,OLDP+8 0292 00293000 * CALL BLSUPUTO(ZZ2,OLD); /* TRANSMIT MESSAGE */ 00294000 * 0293 00295000 ST R9,@AL00001 0293 00296000 LA @14,OLD 0293 00297000 ST @14,@AL00001+4 0293 00298000 L @04,ZZ2BVTP(,R9) 0293 00299000 L @15,BVTPUTOP(,@04) 0293 00300000 LA @01,@AL00001 0293 00301000 BALR @14,@15 0293 00302000 * /*****************************************************************/ 00303000 * /* */ 00304000 * /* IF WQES PRESENT, COUNT THEM */ 00305000 * /* */ 00306000 * /*****************************************************************/ 00307000 * 0294 00308000 * CTRWQE=0; /* COUNTER FOR WQES */ 00309000 SLR CTRWQE,CTRWQE 0294 00310000 * CURWQE=ADRWQEF; /* SAVE WQE PTR */ 00311000 L CURWQE,ADRWQEF 0295 00312000 * ESAUFSM='0'B; /* INITIALIZE SKIP INDICATOR */ 00313000 NI ESAUFSM,B'11011111' 0296 00314000 * DO WHILE(CURWQE^=0&WQECNT^=0&ESAUFSM='0'B);/* SEARCH WQES */ 00315000 B @DE00297 0297 00316000 @DL00297 DS 0H 0298 00317000 * ESAUSYM=''; /* NO SYMBOL */ 00318000 MVI ESAUSYM,C' ' 0298 00319000 MVC ESAUSYM+1(30),ESAUSYM 0298 00320000 * ESAUAS2=CONASID; /* ASID */ 00321000 L @14,CONASID 0299 00322000 ST @14,ESAUAS2 0299 00323000 * ESAUDTD='WQE'; /* NAME */ 00324000 MVI ESAUDTD+3,C' ' 0300 00325000 MVC ESAUDTD+4(27),ESAUDTD+3 0300 00326000 MVC ESAUDTD(3),@CC02303 0300 00327000 * ESAUDLE=LENGTH(WQE); /* LENGTH */ 00328000 MVC ESAUDLE(4),@CF00427 0301 00329000 * ESAULAD=CURWQE; /* LOGICAL ADDRESS */ 00330000 ST CURWQE,ESAULAD 0302 00331000 * CALL BLSRACC(ZZ2,ESAU,BUF); /* RETRIEVE WQE IMAGE */ 00332000 ST R9,@AL00001 0303 00333000 LA @14,ESAU 0303 00334000 ST @14,@AL00001+4 0303 00335000 LA @14,BUF 0303 00336000 ST @14,@AL00001+8 0303 00337000 L @04,ZZ2RVTP(,R9) 0303 00338000 L @15,RVTRACCP(,@04) 0303 00339000 LA @01,@AL00001 0303 00340000 BALR @14,@15 0303 00341000 * RETC=MAX(RETC,RF); /* SET RETURN CODE */ 00342000 CR RETC,RF 0304 00343000 BNL *+6 00344000 LR RETC,RF 0304 00345000 * IF ESAUFSM='0'B THEN 0305 00346000 * 0305 00347000 TM ESAUFSM,B'00100000' 0305 00348000 BNZ @RF00305 0305 00349000 * /*************************************************************/ 00350000 * /* */ 00351000 * /* WQE IMAGE RETRIEVED */ 00352000 * /* */ 00353000 * /*************************************************************/ 00354000 * 0306 00355000 * DO; /* WQE IMAGE RETRIEVED */ 00356000 * CURWQE=WQELKPA; /* SAVE WQE ADDRESS */ 00357000 L CURWQE,WQELKPA-1(,BUFP) 0307 00358000 LA CURWQE,0(,CURWQE) 0307 00359000 * CTRWQE=CTRWQE+1; /* INCREMENT CTR IF GOOD WQE */ 00360000 AL CTRWQE,@CF00043 0308 00361000 * END; 0309 00362000 * END; 0310 00363000 @RF00305 DS 0H 0310 00364000 @DE00297 SLR @14,@14 0310 00365000 CR CURWQE,@14 0310 00366000 BE @DC00297 0310 00367000 CR WQECNT,@14 0310 00368000 BE @DC00297 0310 00369000 TM ESAUFSM,B'00100000' 0310 00370000 BZ @DL00297 0310 00371000 @DC00297 DS 0H 0311 00372000 * IF ESAUFSM='0'B THEN 0311 00373000 * 0311 00374000 TM ESAUFSM,B'00100000' 0311 00375000 BNZ @RF00311 0311 00376000 * /***************************************************************/ 00377000 * /* */ 00378000 * /* FULL WQE CHAIN AVAILABLE */ 00379000 * /* */ 00380000 * /***************************************************************/ 00381000 * 0312 00382000 * DO; /* FULL WQE CHAIN AVAILABLE */ 00383000 * DO; /* BLRCNVUC(CTRWQE) FROM(UNSIGNED 00384000 * BINARY)TO(CHARACTER)SET(IN81T1 00385000 * )PATTERN */ 00386000 * CVD(CTRWQE,PACKED); /* UNSIGNED BINARY=>PACKED 0314 00387000 * DECIMAL */ 00388000 CVD CTRWQE,PACKED 0314 00389000 * ZONED='40404040402020202020202020202120'X;/* ED PATTERN */ 00390000 MVC ZONED(16),@CB02298 0315 00391000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED DECIMAL=>EBCDIC */ 00392000 ED ZONED+4(12),PACKED+2 0316 00393000 * IN81T1=ZONED(17-LENGTH(IN81T1):16);/* EBCDIC RESULT */ 00394000 MVC IN81T1(8),ZONED+8 0317 00395000 * END; /* BLRCNVUC(CTRWQE) FROM(UNSIGNED 00396000 * BINARY)TO(CHARACTER)SET(IN81T1 00397000 * )PATTERN */ 00398000 * IN81O=ADDR(M007T2)-ADDR(M007T);/* OFFSET */ 00399000 MVC IN81O(2),@CH02327 0319 00400000 * IN81L=12; /* SET LENGTH */ 00401000 MVC IN81L(2),@CH00032 0320 00402000 * CALL BLSUMPK1(ZZ2,IN81); /* SQUEEZE BLANKS */ 00403000 ST R9,@AL00001 0321 00404000 LA @14,IN81 0321 00405000 ST @14,@AL00001+4 0321 00406000 L @08,ZZ2BVTP(,R9) 0321 00407000 L @15,BVTMPK1P(,@08) 0321 00408000 LA @01,@AL00001 0321 00409000 BALR @14,@15 0321 00410000 * OLDN=2; /* 2 SEGMENTS */ 00411000 MVC OLDN(4),@CF00068 0322 00412000 * OLDP(1)=ADDR(M007); /* 1ST SEGMENT */ 00413000 LA @14,M007 0323 00414000 ST @14,OLDP 0323 00415000 * OLDP(2)=ADDR(IN81); /* SEGMENT */ 00416000 LA @14,IN81 0324 00417000 ST @14,OLDP+4 0324 00418000 * CALL BLSUPUTO(ZZ2,OLD); /* TRANSMIT MESSAGE */ 00419000 ST R9,@AL00001 0325 00420000 LA @14,OLD 0325 00421000 ST @14,@AL00001+4 0325 00422000 L @08,ZZ2BVTP(,R9) 0325 00423000 L @15,BVTPUTOP(,@08) 0325 00424000 LA @01,@AL00001 0325 00425000 BALR @14,@15 0325 00426000 * END; 0326 00427000 * 0327 00428000 * /*****************************************************************/ 00429000 * /* */ 00430000 * /* EXAMINE UCM ENTRIES */ 00431000 * /* */ 00432000 * /*****************************************************************/ 00433000 * 0327 00434000 * DO WHILE(ADRUCMEF<=ADRUCMEL); /* INSPECT ALL UCMES */ 00435000 @RF00311 B @DE00327 0327 00436000 @DL00327 DS 0H 0328 00437000 * CTRWQE=0; /* ZERO WQE COUNTER */ 00438000 SLR CTRWQE,CTRWQE 0328 00439000 * ESAULAD=ADRUCMEF; /* LOGICAL ADDRESS */ 00440000 L @14,ADRUCMEF 0329 00441000 ST @14,ESAULAD 0329 00442000 * ESAUDLE=LENGTH(UCMLIST); /* LENGTH */ 00443000 MVC ESAUDLE(4),@CF01334 0330 00444000 * ESAUDTD='UCMENTRY'; /* DICTIONARY NAME */ 00445000 MVI ESAUDTD+8,C' ' 0331 00446000 MVC ESAUDTD+9(22),ESAUDTD+8 0331 00447000 MVC ESAUDTD(8),@CC02304 0331 00448000 * CALL BLSRACC(ZZ2,ESAU,BUF); /* RETRIEVE UCM ENTRY */ 00449000 ST R9,@AL00001 0332 00450000 LA @14,ESAU 0332 00451000 ST @14,@AL00001+4 0332 00452000 LA @14,BUF 0332 00453000 ST @14,@AL00001+8 0332 00454000 L @08,ZZ2RVTP(,R9) 0332 00455000 L @15,RVTRACCP(,@08) 0332 00456000 LA @01,@AL00001 0332 00457000 BALR @14,@15 0332 00458000 * RETC=MAX(RETC,RF); /* SET RETURN CODE */ 00459000 CR RETC,RF 0333 00460000 BNL *+6 00461000 LR RETC,RF 0333 00462000 * IF ESAUFSM='0'B THEN 0334 00463000 * 0334 00464000 TM ESAUFSM,B'00100000' 0334 00465000 BNZ @RF00334 0334 00466000 * /*************************************************************/ 00467000 * /* */ 00468000 * /* UCM ENTRY RETRIEVED */ 00469000 * /* */ 00470000 * /*************************************************************/ 00471000 * 0335 00472000 * DO; /* UCM ENTRY RETRIEVED */ 00473000 * NUCMUCB=UCMUCB; /* ADDR OF UCB */ 00474000 L @14,UCMUCB(,BUFP) 0336 00475000 ST @14,NUCMUCB 0336 00476000 * NUCMOUTQ=UCMOUTQ; /* ADDR OF OUTPUT Q */ 00477000 L NUCMOUTQ,UCMOUTQ(,BUFP) 0337 00478000 * IF UCMSTS^='00'X THEN 0338 00479000 * 0338 00480000 CLI UCMSTS(BUFP),X'00' 0338 00481000 BE @RF00338 0338 00482000 * /*********************************************************/ 00483000 * /* */ 00484000 * /* UCM STATUS BYTE NONZERO */ 00485000 * /* */ 00486000 * /*********************************************************/ 00487000 * 0339 00488000 * DO; /* UCM STATUS BYTE NONZERO */ 00489000 * IN81T1=''; /* BLANK OUT BYTE HOLDER */ 00490000 MVI IN81T1,C' ' 0340 00491000 MVC IN81T1+1(7),IN81T1 0340 00492000 * DO; /* BLRCNVBC(UCMSTS) FROM(BIT)TO(C 00493000 * HARACTER)SET(IN81T1(1:2))TR(ZZ 00494000 * 1TRHEX) */ 00495000 * UNPK(IN81T1(1:1),UCMSTS);/* BIT=>ZONED HEXADECIMAL */ 00496000 UNPK IN81T1(1),UCMSTS(1,BUFP) 0342 00497000 * IN81T1(2:2)=UCMSTS(LENGTH(UCMSTS)-7:LENGTH(UCMSTS)); 00498000 MVC IN81T1+1(1),UCMSTS(BUFP) 0343 00499000 * /* FINAL ZONED HEXADECIMAL DIGIT */ 00500000 * TR(IN81T1(1:2),ZZ1TRHEX);/* ZONED HEXADECIMAL=>EBCDIC*/ 00501000 L @14,ZZ2ZZ1P(,R9) 0344 00502000 TR IN81T1(2),ZZ1TRHEX(@14) 0344 00503000 * END; /* BLRCNVBC(UCMSTS) FROM(BIT)TO(C 00504000 * HARACTER)SET(IN81T1(1:2))TR(ZZ 00505000 * 1TRHEX) */ 00506000 * OLDN=2; /* 2 SEGMENTS */ 00507000 MVC OLDN(4),@CF00068 0346 00508000 * OLDP(1)=ADDR(M008); /* 1ST SEGMENT */ 00509000 LA @14,M008 0347 00510000 ST @14,OLDP 0347 00511000 * OLDP(2)=ADDR(IN81); /* SEGMENT */ 00512000 LA @14,IN81 0348 00513000 ST @14,OLDP+4 0348 00514000 * IN81L=6; /* SEGMENT LENGTH */ 00515000 MVC IN81L(2),@CH00212 0349 00516000 * IN81O=ADDR(M008T2)-ADDR(M008T);/* OFFSET */ 00517000 MVC IN81O(2),@CH02329 0350 00518000 * CALL BLSUPUTO(ZZ2,OLD);/* TRANSMIT MESSAGE */ 00519000 ST R9,@AL00001 0351 00520000 LA @14,OLD 0351 00521000 ST @14,@AL00001+4 0351 00522000 L @08,ZZ2BVTP(,R9) 0351 00523000 L @15,BVTPUTOP(,@08) 0351 00524000 LA @01,@AL00001 0351 00525000 BALR @14,@15 0351 00526000 * END; 0352 00527000 * NCQEWQEA=0; /* INITIALIZE CQE WQE POINTER */ 00528000 * 0353 00529000 @RF00338 SLR NCQEWQEA,NCQEWQEA 0353 00530000 * /***********************************************************/ 00531000 * /* */ 00532000 * /* PROCESS CQE CHAIN */ 00533000 * /* */ 00534000 * /***********************************************************/ 00535000 * 0354 00536000 * DO WHILE(NUCMOUTQ^=0&ESAUFSM='0'B);/* PROCESS CQE CHAIN */ 00537000 B @DE00354 0354 00538000 @DL00354 DS 0H 0355 00539000 * ESAULAD=NUCMOUTQ; /* LOGICAL ADDRESS */ 00540000 ST NUCMOUTQ,ESAULAD 0355 00541000 * ESAUDLE=LENGTH(CQE); /* LENGTH */ 00542000 MVC ESAUDLE(4),@CF00214 0356 00543000 * ESAUDTD='CQE'; /* DICTIONARY NAME */ 00544000 MVI ESAUDTD+3,C' ' 0357 00545000 MVC ESAUDTD+4(27),ESAUDTD+3 0357 00546000 MVC ESAUDTD(3),@CC02307 0357 00547000 * CALL BLSRACC(ZZ2,ESAU,BUF);/* RETRIEVE CQE IMAGE */ 00548000 ST R9,@AL00001 0358 00549000 LA @14,ESAU 0358 00550000 ST @14,@AL00001+4 0358 00551000 LA @14,BUF 0358 00552000 ST @14,@AL00001+8 0358 00553000 L @04,ZZ2RVTP(,R9) 0358 00554000 L @15,RVTRACCP(,@04) 0358 00555000 LA @01,@AL00001 0358 00556000 BALR @14,@15 0358 00557000 * RETC=MAX(RETC,RF); /* SET RETURN CODE */ 00558000 CR RETC,RF 0359 00559000 BNL *+6 00560000 LR RETC,RF 0359 00561000 * IF ESAUFSM='0'B THEN 0360 00562000 * 0360 00563000 TM ESAUFSM,B'00100000' 0360 00564000 BNZ @RF00360 0360 00565000 * /*******************************************************/ 00566000 * /* */ 00567000 * /* CQE IMAGE RETRIEVED */ 00568000 * /* */ 00569000 * /*******************************************************/ 00570000 * 0361 00571000 * DO; /* CQE IMAGE RETRIEVED */ 00572000 * FLAGOUT='0'B; /* INTIALIZE EXIT INDICATOR */ 00573000 * 0362 00574000 NI FLAGOUT,B'01111111' 0362 00575000 * /*****************************************************/ 00576000 * /* */ 00577000 * /* EXAMINE CQES */ 00578000 * /* */ 00579000 * /*****************************************************/ 00580000 * 0363 00581000 * DO J1=1 TO 6 WHILE(FLAGOUT='0'B);/* EXAMINE CQES */ 00582000 LA J1,1 0363 00583000 @DL00363 TM FLAGOUT,B'10000000' 0363 00584000 BNZ @DC00363 0363 00585000 * IF CQEEOB='11'B THEN 0364 00586000 TM CQEEOB(CQEPTR),B'11000000' 0364 00587000 BNO @RF00364 0364 00588000 * DO; /* IF PTR TO NEXT CQE */ 00589000 * FLAGOUT='1'B; /* EXIT FLAG */ 00590000 OI FLAGOUT,B'10000000' 0366 00591000 * NCQEWQEA=CQEWQEA;/* SAVE PTR TO NEXT CQE */ 00592000 L NCQEWQEA,CQEWQEA-1(,CQEPTR) 0367 00593000 LA NCQEWQEA,0(,NCQEWQEA) 0367 00594000 * END; 0368 00595000 * ELSE 0369 00596000 * DO; 0369 00597000 B @RC00364 0369 00598000 @RF00364 DS 0H 0370 00599000 * IF CQEWQE^=0 THEN 0370 00600000 L @14,CQEWQE(,CQEPTR) 0370 00601000 LTR @14,@14 0370 00602000 BZ @RF00370 0370 00603000 * CTRWQE=CTRWQE+1;/* INCREMENT WQE CTR */ 00604000 AL CTRWQE,@CF00043 0371 00605000 * CQEPTR=CQEPTR+LENGTH(CQEWQE);/* POINT TO NEXT 00606000 * ENTRY */ 00607000 @RF00370 AL CQEPTR,@CF00040 0372 00608000 * J1=J1-1; /* DEC COUNTER */ 00609000 BCTR J1,0 0373 00610000 * END; 0374 00611000 * END; 0375 00612000 @RC00364 AL J1,@CF00043 0375 00613000 C J1,@CF00212 0375 00614000 BNH @DL00363 0375 00615000 @DC00363 DS 0H 0376 00616000 * CQEPTR=BUFP; /* RESTORE PTR TO BEG OF BLOCK */ 00617000 LR CQEPTR,BUFP 0376 00618000 * NUCMOUTQ=NCQEWQEA; /* POINT TO NEXT CQE */ 00619000 LR NUCMOUTQ,NCQEWQEA 0377 00620000 * END; 0378 00621000 * END; 0379 00622000 @RF00360 DS 0H 0379 00623000 @DE00354 LTR NUCMOUTQ,NUCMOUTQ 0379 00624000 BZ @DC00354 0379 00625000 TM ESAUFSM,B'00100000' 0379 00626000 BZ @DL00354 0379 00627000 @DC00354 DS 0H 0380 00628000 * IF CTRWQE^=0 THEN /* SOME WQES FOUND */ 00629000 * 0380 00630000 LTR CTRWQE,CTRWQE 0380 00631000 BZ @RF00380 0380 00632000 * /*********************************************************/ 00633000 * /* */ 00634000 * /* WQE(S) EXIST */ 00635000 * /* */ 00636000 * /*********************************************************/ 00637000 * 0381 00638000 * DO; /* WQE(S) EXIST */ 00639000 * ESAULAD=NUCMUCB; /* LOGICAL ADDRESS */ 00640000 L @14,NUCMUCB 0382 00641000 ST @14,ESAULAD 0382 00642000 * ESAUDLE=LENGTH(UCBNAME)+ADDR(UCBNAME)-ADDR(UCBOB);/* 0383 00643000 * LENGTH */ 00644000 LA @14,UCBNAME(,BUFP) 0383 00645000 AL @14,@CF00153 0383 00646000 SLR @14,BUFP 0383 00647000 ST @14,ESAUDLE 0383 00648000 * ESAUDTD='UCB'; /* DICTIONARY NAME */ 00649000 MVI ESAUDTD+3,C' ' 0384 00650000 MVC ESAUDTD+4(27),ESAUDTD+3 0384 00651000 MVC ESAUDTD(3),@CC02309 0384 00652000 * CALL BLSRACC(ZZ2,ESAU,BUF);/* RETRIEVE UCB IMAGE */ 00653000 ST R9,@AL00001 0385 00654000 LA @14,ESAU 0385 00655000 ST @14,@AL00001+4 0385 00656000 LA @14,BUF 0385 00657000 ST @14,@AL00001+8 0385 00658000 L @08,ZZ2RVTP(,R9) 0385 00659000 L @15,RVTRACCP(,@08) 0385 00660000 LA @01,@AL00001 0385 00661000 BALR @14,@15 0385 00662000 * RETC=MAX(RETC,RF); /* SET RETURN CODE */ 00663000 CR RETC,RF 0386 00664000 BNL *+6 00665000 LR RETC,RF 0386 00666000 * IF ESAUFSM='0'B THEN 0387 00667000 TM ESAUFSM,B'00100000' 0387 00668000 BNZ @RF00387 0387 00669000 * DO; /* UCB IMAGE RETRIEVED */ 00670000 * DO; /* BLRCNVUC(CTRWQE) FROM(UNSIGNED 00671000 * BINARY)TO(CHARACTER)SET(IN81T1 00672000 * )PATTERN REMARK(CONVERT WQE 0389 00673000 * COUNTER) */ 00674000 * 0389 00675000 * /*************************************************/ 00676000 * /* */ 00677000 * /* CONVERT WQE COUNTER */ 00678000 * /* */ 00679000 * /*************************************************/ 00680000 * 0390 00681000 * CVD(CTRWQE,PACKED);/* UNSIGNED BINARY=>PACKED 0390 00682000 * DECIMAL */ 00683000 CVD CTRWQE,PACKED 0390 00684000 * ZONED='40404040402020202020202020202120'X;/* ED 00685000 * PATTERN */ 00686000 MVC ZONED(16),@CB02298 0391 00687000 * ED(ZONED(5:16),PACKED(17:64));/* PACKED 0392 00688000 * DECIMAL=>EBCDIC */ 00689000 ED ZONED+4(12),PACKED+2 0392 00690000 * IN81T1=ZONED(17-LENGTH(IN81T1):16);/* EBCDIC 0393 00691000 * RESULT */ 00692000 MVC IN81T1(8),ZONED+8 0393 00693000 * END; /* BLRCNVUC(CTRWQE) FROM(UNSIGNED 00694000 * BINARY)TO(CHARACTER)SET(IN81T1 00695000 * )PATTERN REMARK(CONVERT WQE 0394 00696000 * COUNTER) */ 00697000 * IN81O=ADDR(M009T2)-ADDR(M009T);/* OFFSET */ 00698000 MVC IN81O(2),@CH02327 0395 00699000 * IN81L=12; /* SET LENGTH */ 00700000 MVC IN81L(2),@CH00032 0396 00701000 * CALL BLSUMPK1(ZZ2,IN81);/* SQUEEZE BLANKS */ 00702000 ST R9,@AL00001 0397 00703000 LA @14,IN81 0397 00704000 ST @14,@AL00001+4 0397 00705000 L @08,ZZ2BVTP(,R9) 0397 00706000 L @15,BVTMPK1P(,@08) 0397 00707000 LA @01,@AL00001 0397 00708000 BALR @14,@15 0397 00709000 * IN82T1=''; /* BLANK TEXT OF SEGMENT */ 00710000 MVI IN82T1,C' ' 0398 00711000 MVC IN82T1+1(7),IN82T1 0398 00712000 * IN82T1(1:3)=UCBNAME;/* MOVE UCB NAME */ 00713000 MVC IN82T1(3),UCBNAME(BUFP) 0399 00714000 * IN82L=12; /* SET LENGTH */ 00715000 MVC IN82L(2),@CH00032 0400 00716000 * CALL BLSUMPK1(ZZ2,IN82);/* SQUEEZE BLANKS */ 00717000 ST R9,@AL00001 0401 00718000 LA @14,IN82 0401 00719000 ST @14,@AL00001+4 0401 00720000 L @08,ZZ2BVTP(,R9) 0401 00721000 L @15,BVTMPK1P(,@08) 0401 00722000 LA @01,@AL00001 0401 00723000 BALR @14,@15 0401 00724000 * IN82O=ADDR(M009T3)-ADDR(M009T);/* OFFSET */ 00725000 MVC IN82O(2),@CH02330 0402 00726000 * OLDN=3; /* 3 SEGMENTS */ 00727000 MVC OLDN(4),@CF00153 0403 00728000 * OLDP(1)=ADDR(M009);/* 1ST SEGMENT */ 00729000 LA @14,M009 0404 00730000 ST @14,OLDP 0404 00731000 * OLDP(2)=ADDR(IN81);/* SEGMENT */ 00732000 LA @14,IN81 0405 00733000 ST @14,OLDP+4 0405 00734000 * OLDP(3)=ADDR(IN82);/* SEGMENT */ 00735000 LA @14,IN82 0406 00736000 ST @14,OLDP+8 0406 00737000 * CALL BLSUPUTO(ZZ2,OLD);/* TRANSMIT MESSAGE */ 00738000 ST R9,@AL00001 0407 00739000 LA @14,OLD 0407 00740000 ST @14,@AL00001+4 0407 00741000 L @08,ZZ2BVTP(,R9) 0407 00742000 L @15,BVTPUTOP(,@08) 0407 00743000 LA @01,@AL00001 0407 00744000 BALR @14,@15 0407 00745000 * END; 0408 00746000 * END; 0409 00747000 @RF00387 DS 0H 0410 00748000 * ADRUCMEF=ADRUCMEF+UCMESZ; /* ELSE INCREMENT TO NEXT ENTRY */ 00749000 @RF00380 L @14,ADRUCMEF 0410 00750000 AL @14,UCMESZ 0410 00751000 ST @14,ADRUCMEF 0410 00752000 * END; 0411 00753000 * END; 0412 00754000 @RF00334 DS 0H 0412 00755000 @DE00327 CLC ADRUCMEF(4),ADRUCMEL 0412 00756000 BNH @DL00327 0412 00757000 * 0413 00758000 * /*****************************************************************/ 00759000 * /* */ 00760000 * /* SCAN ORES FOR ANY OUTSTANDING REPLIES */ 00761000 * /* */ 00762000 * /*****************************************************************/ 00763000 * 0413 00764000 * ESAUFSM='0'B; /* INITIALIZE SKIP INDICATOR */ 00765000 NI ESAUFSM,B'11011111' 0413 00766000 * DO WHILE(ADROREF^=0&ESAUFSM='0'B);/* SCAN ORES */ 00767000 B @DE00414 0414 00768000 @DL00414 DS 0H 0415 00769000 * ESAULAD=ADROREF; /* LOGICAL ADDRESS */ 00770000 L @14,ADROREF 0415 00771000 ST @14,ESAULAD 0415 00772000 * ESAUDLE=LENGTH(OREF); /* LENGTH */ 00773000 MVC ESAUDLE(4),@CF00062 0416 00774000 * ESAUDTD='ORE'; /* DICTIONARY NAME */ 00775000 MVI ESAUDTD+3,C' ' 0417 00776000 MVC ESAUDTD+4(27),ESAUDTD+3 0417 00777000 MVC ESAUDTD(3),@CC02310 0417 00778000 * CALL BLSRACC(ZZ2,ESAU,BUF); /* GET ORE IMAGE */ 00779000 ST R9,@AL00001 0418 00780000 LA @14,ESAU 0418 00781000 ST @14,@AL00001+4 0418 00782000 LA @14,BUF 0418 00783000 ST @14,@AL00001+8 0418 00784000 L @08,ZZ2RVTP(,R9) 0418 00785000 L @15,RVTRACCP(,@08) 0418 00786000 LA @01,@AL00001 0418 00787000 BALR @14,@15 0418 00788000 * RETC=MAX(RETC,RF); /* SET RETURN CODE */ 00789000 CR RETC,RF 0419 00790000 BNL *+6 00791000 LR RETC,RF 0419 00792000 * IF ESAUFSM='0'B THEN 0420 00793000 * 0420 00794000 TM ESAUFSM,B'00100000' 0420 00795000 BNZ @RF00420 0420 00796000 * /*************************************************************/ 00797000 * /* */ 00798000 * /* ORE IMAGE RETRIEVED */ 00799000 * /* */ 00800000 * /*************************************************************/ 00801000 * 0421 00802000 * DO; /* ORE IMAGE RETRIEVED */ 00803000 * ADROREF=ORELKP; /* ADDR OF NEXT ORE */ 00804000 L @14,ORELKP(,BUFP) 0422 00805000 ST @14,ADROREF 0422 00806000 * IN81T1=''; /* BLANK TEXT OF SEGMENT */ 00807000 MVI IN81T1,C' ' 0423 00808000 MVC IN81T1+1(7),IN81T1 0423 00809000 * IN81T1(1:2)=OREID; /* REPLY ID */ 00810000 MVC IN81T1(2),OREID(BUFP) 0424 00811000 * OLDN=2; /* 2 SEGMENTS */ 00812000 MVC OLDN(4),@CF00068 0425 00813000 * OLDP(1)=ADDR(M010); /* 1ST SEGMENT */ 00814000 LA @14,M010 0426 00815000 ST @14,OLDP 0426 00816000 * OLDP(2)=ADDR(IN81); /* INSERT */ 00817000 LA @14,IN81 0427 00818000 ST @14,OLDP+4 0427 00819000 * IN81O=ADDR(M010T2)-ADDR(M010T);/* OFFSET */ 00820000 MVC IN81O(2),@CH01640 0428 00821000 * CALL BLSUPUTO(ZZ2,OLD); /* TRANSMIT MESSAGE */ 00822000 ST R9,@AL00001 0429 00823000 LA @14,OLD 0429 00824000 ST @14,@AL00001+4 0429 00825000 L @08,ZZ2BVTP(,R9) 0429 00826000 L @15,BVTPUTOP(,@08) 0429 00827000 LA @01,@AL00001 0429 00828000 BALR @14,@15 0429 00829000 * IF OREWQE^=0 THEN 0430 00830000 * 0430 00831000 L @14,OREWQE(,BUFP) 0430 00832000 LTR @14,@14 0430 00833000 BZ @RF00430 0430 00834000 * /*********************************************************/ 00835000 * /* */ 00836000 * /* WQE ADDRESSED */ 00837000 * /* */ 00838000 * /*********************************************************/ 00839000 * 0431 00840000 * DO; /* WQE ADDRESSED */ 00841000 * ESAULAD=OREWQE; /* LOGICAL ADDRESS */ 00842000 ST @14,ESAULAD 0432 00843000 * ESAUDLE=LENGTH(WQE); /* LENGTH */ 00844000 MVC ESAUDLE(4),@CF00427 0433 00845000 * ESAUDTD='WQE'; /* DICTIONARY NAME */ 00846000 MVI ESAUDTD+3,C' ' 0434 00847000 MVC ESAUDTD+4(27),ESAUDTD+3 0434 00848000 MVC ESAUDTD(3),@CC02303 0434 00849000 * CALL BLSRACC(ZZ2,ESAU,BUF);/* RETRIEVE WQE IMAGE */ 00850000 ST R9,@AL00001 0435 00851000 LA @14,ESAU 0435 00852000 ST @14,@AL00001+4 0435 00853000 LA @14,BUF 0435 00854000 ST @14,@AL00001+8 0435 00855000 L @08,ZZ2RVTP(,R9) 0435 00856000 L @15,RVTRACCP(,@08) 0435 00857000 LA @01,@AL00001 0435 00858000 BALR @14,@15 0435 00859000 * RETC=MAX(RETC,RF); /* SET RETURN CODE */ 00860000 CR RETC,RF 0436 00861000 BNL *+6 00862000 LR RETC,RF 0436 00863000 * IF ESAUFSM='0'B THEN 0437 00864000 * 0437 00865000 TM ESAUFSM,B'00100000' 0437 00866000 BNZ @RF00437 0437 00867000 * /*****************************************************/ 00868000 * /* */ 00869000 * /* RETRIEVE WQE IMAGE */ 00870000 * /* */ 00871000 * /*****************************************************/ 00872000 * 0438 00873000 * DO; /* RETRIEVE WQE IMAGE */ 00874000 * WTDTT1=''; /* BLANK MESSAGE BUFFER */ 00875000 MVI WTDTT1,C' ' 0439 00876000 MVC WTDTT1+1(195),WTDTT1 0439 00877000 * WTDTT1(3:10)=WQETS;/* MOVE TIME STAMP */ 00878000 MVC WTDTT1+2(8),WQETS(BUFP) 0440 00879000 * WTDTT1(12:19)=WQEJOBNM;/* MOVE JOB NAME */ 00880000 MVC WTDTT1+11(8),WQEJOBNM(BUFP) 0441 00881000 * WTDTT1(21:148)=WQETXT;/* MOVE TEXT */ 00882000 MVC WTDTT1+20(128),WQETXT(BUFP) 0442 00883000 * OLDN=1; /* 1 SEGMENT */ 00884000 MVC OLDN(4),@CF00043 0443 00885000 * OLDP(1)=ADDR(WTDT);/* POINT TO THE ONE SEGMENT */ 00886000 LA @14,WTDT 0444 00887000 ST @14,OLDP 0444 00888000 * WTDTL=WQENBR+24; /* LENGTH OF MESSAGE */ 00889000 L @14,WQENBR(,BUFP) 0445 00890000 LA @14,24(,@14) 0445 00891000 STH @14,WTDTL 0445 00892000 * WTDTO=0; /* OFFSET */ 00893000 SLR @14,@14 0446 00894000 STH @14,WTDTO 0446 00895000 * CALL BLSUPUTO(ZZ2,OLD);/* TRANSMIT MESSAGE */ 00896000 ST R9,@AL00001 0447 00897000 LA @14,OLD 0447 00898000 ST @14,@AL00001+4 0447 00899000 L @08,ZZ2BVTP(,R9) 0447 00900000 L @15,BVTPUTOP(,@08) 0447 00901000 LA @01,@AL00001 0447 00902000 BALR @14,@15 0447 00903000 * END; 0448 00904000 * END; 0449 00905000 * END; 0450 00906000 * ELSE 0451 00907000 * ESAUFSM='1'B; /* SKIP THIS PROCESSING */ 00908000 B @RC00420 0451 00909000 @RF00420 OI ESAUFSM,B'00100000' 0451 00910000 * END; 0452 00911000 @RC00420 DS 0H 0452 00912000 @DE00414 L @14,ADROREF 0452 00913000 LTR @14,@14 0452 00914000 BZ @DC00414 0452 00915000 TM ESAUFSM,B'00100000' 0452 00916000 BZ @DL00414 0452 00917000 @DC00414 DS 0H 0453 00918000 * RF=0; /* INDICATE SUCCESS */ 00919000 SLR RF,RF 0453 00920000 * 0454 00921000 * /*****************************************************************/ 00922000 * /* */ 00923000 * /* PROGRAM EXIT */ 00924000 * /* */ 00925000 * /*****************************************************************/ 00926000 * 0454 00927000 *EXITRLSA: 0454 00928000 * RETC=MIN(MAX(RF,RETC),ZZZFLAGT);/* SET MAX RETURN CODE */ 00929000 EXITRLSA LR @14,RETC 0454 00930000 CR @14,RF 0454 00931000 BNL *+6 00932000 LR @14,RF 0454 00933000 LA @08,16 0454 00934000 CR @14,@08 0454 00935000 BNH *+6 00936000 LR @14,@08 0454 00937000 LR RETC,@14 0454 00938000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(E,PD) */ 00939000 B @DE00455 0455 00940000 @DL00455 DS 0H 0456 00941000 * PDRPTR=PDAPTR; 0456 00942000 L PDRPTR,PDAPTR 0456 00943000 * PDAPTR=PDXP; 0457 00944000 L @14,PDXP-1(,PDRPTR) 0457 00945000 LA @14,0(,@14) 0457 00946000 ST @14,PDAPTR 0457 00947000 * DO; /* FREEMAIN(R) 0458 00948000 * LV(PDL)SP(1)A(PDDSECT) */ 00949000 * RESPECIFY 0459 00950000 * (GPR01F, 0459 00951000 * GPR00F) RESTRICTED; 0459 00952000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00953000 L GPR00F,PDL-1(,PDRPTR) 0460 00954000 ICM GPR00F,8,@CB02056 0460 00955000 * GPR01F=1; /* SP IN REG 1 */ 00956000 LA GPR01F,1 0461 00957000 * GEN(SLL GPR01F,24) 0462 00958000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0462 00959000 SLL GPR01F,24 00960000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00961000 OR GPR00F,GPR01F 0463 00962000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00963000 LR GPR01F,PDRPTR 0464 00964000 * SVC(10); /* R-FORM OF GETMAIN */ 00965000 SVC 10 0465 00966000 * RESPECIFY 0466 00967000 * (GPR01F, 0466 00968000 * GPR00F) UNRESTRICTED; 0466 00969000 * END; /* FREEMAIN(R) 0467 00970000 * LV(PDL)SP(1)A(PDDSECT) */ 00971000 * END; /* BLRRLSA MF(E,PD) */ 00972000 @DE00455 L @14,PDAPTR 0468 00973000 LTR @14,@14 0468 00974000 BNZ @DL00455 0468 00975000 *EXITNORL: 0469 00976000 * RETURN CODE(RETC); 0469 00977000 EXITNORL L @13,4(,@13) 0469 00978000 L @00,@SIZDATD 0469 00979000 LR @01,@11 0469 00980000 BLSUFRER R,LV=(0),A=(1) 00981000 LR @15,@05 0469 00982000 L @14,12(,@13) 0469 00983000 LM @00,@12,20(@13) 0469 00984000 BR @14 0469 00985000 * 0470 00986000 */*BLSRPEND--DEBUGGING MODULE */ 00987000 */*BLSUPEND--MVS IPCS MODULE */ 00988000 * 0470 00989000 * DECLARE /* DATA FOR AHB MACROS */ 00990000 * PACKED BIT(64) BOUNDARY(DWORD),/* DATA CONVERSION WORK AREA */ 00991000 * ZONED CHARACTER(16) BOUNDARY(DWORD);/* DATA CONVERSION WORK 0470 00992000 * AREA */ 00993000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00994000 * GPR00F FIXED(31) REG(0), 0471 00995000 * GPR01F FIXED(31) REG(1), 0471 00996000 * GPR15F FIXED(31) REG(15); 0471 00997000 * DECLARE /* COMMON VARIABLES */ 00998000 * I256C CHAR(256) BASED, 0472 00999000 * I031F FIXED(31) BASED, 0472 01000000 * I031P PTR(31) BASED, 0472 01001000 * I015F FIXED(15) BASED, 0472 01002000 * I015P PTR(15) BASED, 0472 01003000 * I008P PTR(8) BASED, 0472 01004000 * I001C CHAR(1) BASED; 0472 01005000 * GENERATE NODEFS NOREFS DATA; 0473 01006000 * END BLSRCOMK /* BLRPEND(BLSRCOMK) */ 01007000 * 0474 01008000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01009000 */*%INCLUDE SYSLIB (BLSRZZZ ) */ 01010000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01011000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01012000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01013000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01014000 */*%INCLUDE SYSLIB (IKJECT ) */ 01015000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01016000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01017000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01018000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01019000 */*%INCLUDE SYSLIB (BLSRSERV) */ 01020000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01021000 */*%INCLUDE SYSLIB (IEECUCM ) */ 01022000 */*%INCLUDE SYSLIB (IHAWQE ) */ 01023000 */*%INCLUDE SYSLIB (IHACTM ) */ 01024000 */*%INCLUDE SYSLIB (IHAORE ) */ 01025000 * 0474 01026000 * ; 0474 01027000 @EL00001 L @13,4(,@13) 0474 01028000 @EF00001 L @00,@SIZDATD 0474 01029000 LR @01,@11 0474 01030000 BLSUFRER R,LV=(0),A=(1) 01031000 @ER00001 LM @14,@12,12(@13) 0474 01032000 BR @14 0474 01033000 @DATA DS 0H 01034000 @CH02327 DC H'9' 01035000 @CH00032 DC H'12' 01036000 @CH01640 DC H'28' 01037000 @CH02330 DC H'33' 01038000 @CH02329 DC H'39' 01039000 @CH00714 DC H'48' 01040000 @CH02328 DC H'69' 01041000 @DATD DSECT 01042000 DS 0F 01043000 @SA00001 DS 18F 01044000 @AL00001 DS 3A 01045000 BLSRCOMK CSECT 01046000 DS 0F 01047000 @CF00043 DC F'1' 01048000 @CH00043 EQU @CF00043+2 01049000 @CF00068 DC F'2' 01050000 @CH00068 EQU @CF00068+2 01051000 @CF00153 DC F'3' 01052000 @CF00040 DC F'4' 01053000 @CF00212 DC F'6' 01054000 @CH00212 EQU @CF00212+2 01055000 @CF00051 DC F'8' 01056000 @CF00214 DC F'24' 01057000 @CF00062 DC F'32' 01058000 @CF01334 DC F'72' 01059000 @CF00427 DC F'192' 01060000 @DATD DSECT 01061000 DS 0D 01062000 PDAPTR DS A 01063000 ADRWQEF DS A 01064000 ADROREF DS A 01065000 ADRUCMEF DS A 01066000 ADRUCMEL DS A 01067000 NUCMUCB DS A 01068000 UCMESZ DS F 01069000 CONASID DS F 01070000 ESAU DS CL694 01071000 ORG ESAU 01072000 ESAURID DS CL2 01073000 @NM00092 DS BL6 01074000 @NM00093 DS CL8 01075000 @NM00094 DS BL8 01076000 ESAURDX DS FL4 01077000 ESAUSYM DS CL31 01078000 ESAUELK DS 0C 01079000 ESAURV1 DS CL1 01080000 ESAUAS DS CL16 01081000 ORG ESAUAS 01082000 ESAUAS0 DS 0C 01083000 ESAUAST DS CL2 01084000 @NM00095 DS BL2 01085000 ESAUAS1 DS FL4 01086000 ESAUAS2 DS FL4 01087000 @NM00096 DS BL4 01088000 ESAUAS9 DS 0C 01089000 ORG ESAU+76 01090000 ESAULAD DS AL4 01091000 ESAUD DS CL60 01092000 ORG ESAUD 01093000 ESAUD00 DS 0C 01094000 ESAUDOF DS FL4 01095000 ESAUDLE DS FL4 01096000 ESAUDOB DS FL1 01097000 ESAUDLB DS FL1 01098000 ESAUDT DS CL34 01099000 ORG ESAUDT 01100000 ESAUDT0 DS 0C 01101000 ESAUDTY DS CL1 01102000 @NM00097 DS BL1 01103000 ESAUDTD DS CL31 01104000 ESAUDTE DS CL1 01105000 ESAUDT9 DS 0C 01106000 ORG ESAUD+44 01107000 ESAUDIM DS FL4 01108000 ESAUDIL DS FL4 01109000 ESAUDF DS BL4 01110000 ORG ESAUDF 01111000 ESAUDFA DS BL1 01112000 @NM00098 EQU ESAUDF+0 01113000 ORG ESAUD+56 01114000 @NM00099 DS BL4 01115000 ESAUD99 DS 0C 01116000 ORG ESAU+140 01117000 ESAUMAD DS AL4 01118000 @NM00100 DS BL16 01119000 ESAUKEY DS BL1 01120000 ESAUF DS BL3 01121000 ORG ESAUF 01122000 ESAUFS DS BL1 01123000 ORG ESAUFS 01124000 ESAUFSC DS BL1 01125000 ESAUFS2 EQU ESAUFS+0 01126000 ESAUFSM EQU ESAUFS+0 01127000 ESAUFSA EQU ESAUFS+0 01128000 ESAUFSP EQU ESAUFS+0 01129000 ESAUFSR EQU ESAUFS+0 01130000 ESAUFSX EQU ESAUFS+0 01131000 ESAUFSS EQU ESAUFS+0 01132000 ORG ESAUF+1 01133000 ESAUFC DS BL1 01134000 ORG ESAUFC 01135000 ESAUFCD DS BL1 01136000 @NM00101 EQU ESAUFC+0 01137000 ORG ESAUF+2 01138000 @NM00102 DS BL1 01139000 ORG ESAU+164 01140000 ESAUABS DS FL4 01141000 @NM00103 DS BL12 01142000 ESAUR DS CL514 01143000 ORG ESAUR 01144000 ESAURL DS FL2 01145000 ESAURT DS CL512 01146000 ORG ESAURT 01147000 ESAURT1 DS CL512 01148000 ORG ESAU+694 01149000 ESAU999 DS 0C 01150000 ORG ESAU+694 01151000 DS CL2 01152000 OLD DS CL16 01153000 ORG OLD 01154000 OLDN DS FL4 01155000 OLDP DS 3A 01156000 ORG OLD+16 01157000 WTDT DS CL200 01158000 ORG WTDT 01159000 WTDTL DS FL2 01160000 WTDTO DS FL2 01161000 WTDTT DS CL196 01162000 ORG WTDTT 01163000 WTDTT1 DS CL196 01164000 ORG WTDT+200 01165000 IN81 DS CL12 01166000 ORG IN81 01167000 IN81L DS FL2 01168000 IN81O DS FL2 01169000 IN81T DS CL8 01170000 ORG IN81T 01171000 IN81T1 DS CL8 01172000 ORG IN81+12 01173000 IN82 DS CL12 01174000 ORG IN82 01175000 IN82L DS FL2 01176000 IN82O DS FL2 01177000 IN82T DS CL8 01178000 ORG IN82T 01179000 IN82T1 DS CL8 01180000 ORG IN82+12 01181000 FLAG DS CL1 01182000 ORG FLAG 01183000 FLAGOUT DS BL1 01184000 @NM00105 EQU FLAG+0 01185000 ORG FLAG+1 01186000 DS CL7 01187000 BUF DS CL300 01188000 DS CL4 01189000 PACKED DS BL8 01190000 ZONED DS CL16 01191000 BLSRCOMK CSECT 01192000 DS 0F 01193000 @SIZDATD DC AL1(0) 01194000 DC AL3(@ENDDATD-@DATD) 01195000 DS 0D 01196000 PCPTR DC AL4(PC) 01197000 @CC02304 DC C'UCMENTRY' 01198000 @CC02058 EQU @CC02304 01199000 @CC02303 DC C'WQE' 01200000 @CC02307 DC C'CQE' 01201000 @CC02309 DC C'UCB' 01202000 @CC02310 DC C'ORE' 01203000 @CB02298 DC X'40404040402020202020202020202120' 01204000 @CB02056 DC X'00' 01205000 DS CL1 01206000 DTUCM DS CL34 01207000 ORG DTUCM 01208000 DTUCM0 DS 0C 01209000 DTUCMY DC CL1'M' 01210000 @NM00088 DC X'00' 01211000 DTUCMD DC CL31'UCM' 01212000 DTUCME DC CL1' ' 01213000 DTUCM9 DS 0C 01214000 ORG DTUCM+34 01215000 DESCR DS CL60 01216000 ORG DESCR 01217000 DESCR00 DS 0C 01218000 DESCROF DC F'0' 01219000 DESCRLE DC A(4) 01220000 DESCROB DC AL1(0) 01221000 DESCRLB DC AL1(0) 01222000 DESCRT DS CL34 01223000 ORG DESCRT 01224000 DESCRT0 DS 0C 01225000 DESCRTY DC CL1'U' 01226000 @NM00089 DC X'00' 01227000 DESCRTD DC CL31' ' 01228000 DESCRTE DC CL1' ' 01229000 DESCRT9 DS 0C 01230000 ORG DESCR+44 01231000 DESCRIM DC A(0) 01232000 DESCRIL DC F'0' 01233000 DESCRF DC X'00000000' 01234000 ORG DESCRF 01235000 DESCRFA DS BL1 01236000 @NM00090 EQU DESCRF+0 01237000 ORG DESCR+56 01238000 @NM00091 DC X'00' 01239000 DC XL3'0' 01240000 DESCR99 DS 0C 01241000 ORG DESCR+60 01242000 M006 DS CL73 01243000 ORG M006 01244000 M006L DC AL2(73) 01245000 M006O DC AL2(0) 01246000 M006T DS CL69 01247000 ORG M006T 01248000 M006T1 DC CL48'BLS18006I NUMBER OF MESSAGES QUEUED (UCMWQNR) IS' 01249000 M006T2 DC CL21'. LIMIT (UCMWQLM) IS' 01250000 M006T3 DS 0C 01251000 ORG M006+73 01252000 DS CL1 01253000 M007 DS CL41 01254000 ORG M007 01255000 M007L DC AL2(41) 01256000 M007O DC AL2(0) 01257000 M007T DS CL37 01258000 ORG M007T 01259000 M007T1 DC CL9'BLS18007I' 01260000 M007T2 DC CL28' MAJOR WQES CHAINED FROM UCM' 01261000 ORG M007+41 01262000 DS CL1 01263000 M008 DS CL66 01264000 ORG M008 01265000 M008L DC AL2(66) 01266000 M008O DC AL2(0) 01267000 M008T DS CL62 01268000 ORG M008T 01269000 M008T1 DC CL39'BLS18008I UCMSTS STATUS FLAG BYTE IS X''' 01270000 M008T2 DC CL23''' FOR FOLLOWING CONSOLE' 01271000 ORG M008+66 01272000 M009 DS CL37 01273000 ORG M009 01274000 M009L DC AL2(37) 01275000 M009O DC AL2(0) 01276000 M009T DS CL33 01277000 ORG M009T 01278000 M009T1 DC CL9'BLS18009I' 01279000 M009T2 DC CL24' WQES FOUND FOR CONSOLE ' 01280000 M009T3 DS 0C 01281000 ORG M009+37 01282000 DS CL1 01283000 M010 DS CL32 01284000 ORG M010 01285000 M010L DC AL2(32) 01286000 M010O DC AL2(0) 01287000 M010T DS CL28 01288000 ORG M010T 01289000 M010T1 DC CL28'BLS18010I OUTSTANDING REPLY ' 01290000 M010T2 DS 0C 01291000 ORG M010+32 01292000 PXRO DC AL2(PXPRINT-PD) 01293000 DC AL2(PXTERM-PD) 01294000 DC AL2(PXDFLG-PD) 01295000 DC AL2(PXDFLV-PD) 01296000 @DATD DSECT 01297000 SPACE 2 01298000 *********************************************************************** 01299000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01300000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01301000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01302000 *********************************************************************** 01303000 SPACE 01304000 BLSRCOMK CSECT 01305000 ORG 01306000 DS 0D 01307000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSRCOMK+19)/20+7)/8)CL8'BLSRCOMK' 01308000 @DATD DSECT 01309000 DS 0H 01310000 @DATD DSECT 01311000 SPACE 2 01312000 *********************************************************************** 01313000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 01314000 *********************************************************************** 01315000 SPACE 01316000 BLSRCOMK CSECT 01317000 PC IKJPARM DSECT=PD 01318000 @DATD DSECT 01319000 BLSRCOMK CSECT 01320000 PXPRINT IKJKEYWD 01321000 @DATD DSECT 01322000 BLSRCOMK CSECT 01323000 IKJNAME 'PRINT' 01324000 @DATD DSECT 01325000 BLSRCOMK CSECT 01326000 IKJNAME 'NOPRINT' 01327000 @DATD DSECT 01328000 BLSRCOMK CSECT 01329000 PXTERM IKJKEYWD 01330000 @DATD DSECT 01331000 BLSRCOMK CSECT 01332000 IKJNAME 'TERMINAL' 01333000 @DATD DSECT 01334000 BLSRCOMK CSECT 01335000 IKJNAME 'NOTERMINAL' 01336000 @DATD DSECT 01337000 BLSRCOMK CSECT 01338000 PXDFLG IKJKEYWD 01339000 @DATD DSECT 01340000 BLSRCOMK CSECT 01341000 IKJNAME 'FLAG',SUBFLD=PXSUBFM 01342000 @DATD DSECT 01343000 BLSRCOMK CSECT 01344000 PXTEST IKJKEYWD 01345000 @DATD DSECT 01346000 BLSRCOMK CSECT 01347000 IKJNAME 'TEST' 01348000 @DATD DSECT 01349000 BLSRCOMK CSECT 01350000 IKJNAME 'NOTEST' 01351000 @DATD DSECT 01352000 BLSRCOMK CSECT 01353000 SPACE 01354000 PXSUBFM IKJSUBF 01355000 @DATD DSECT 01356000 BLSRCOMK CSECT 01357000 PXDFLV IKJKEYWD 01358000 @DATD DSECT 01359000 BLSRCOMK CSECT 01360000 IKJNAME 'INFORMATIONAL' 01361000 @DATD DSECT 01362000 BLSRCOMK CSECT 01363000 IKJNAME 'WARNING' 01364000 @DATD DSECT 01365000 BLSRCOMK CSECT 01366000 IKJNAME 'ERROR' 01367000 @DATD DSECT 01368000 BLSRCOMK CSECT 01369000 IKJNAME 'SERIOUS',ALIAS=('SEVERE') 01370000 @DATD DSECT 01371000 BLSRCOMK CSECT 01372000 IKJNAME 'TERMINATING' 01373000 @DATD DSECT 01374000 PD DSECT 01375000 PD99 DS 0C 01376000 BLSRCOMK CSECT 01377000 IKJENDP 01378000 SPACE 2 01379000 *********************************************************************** 01380000 * IKJENDP--END SYNTAX DESCRIPTION * 01381000 *********************************************************************** 01382000 SPACE 01383000 @DATD DSECT 01384000 SPACE 2 01385000 *********************************************************************** 01386000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01387000 *********************************************************************** 01388000 SPACE 01389000 DS 0D 01390000 @DATD DSECT 01391000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01392000 @ENDDATD EQU * 01393000 BLSRCOMK CSECT 01394000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01395000 @01 EQU 01 01396000 @02 EQU 02 01397000 @03 EQU 03 01398000 @04 EQU 04 01399000 @05 EQU 05 01400000 @06 EQU 06 01401000 @07 EQU 07 01402000 @08 EQU 08 01403000 @09 EQU 09 01404000 @10 EQU 10 01405000 @11 EQU 11 01406000 @12 EQU 12 01407000 @13 EQU 13 01408000 @14 EQU 14 01409000 @15 EQU 15 01410000 CTRWQE EQU @06 01411000 J1 EQU @03 01412000 WQECNT EQU @08 01413000 ORECNT EQU @06 01414000 WQEBUFLM EQU @03 01415000 RETC EQU @05 01416000 CURWQE EQU @03 01417000 ADRWQEL EQU @03 01418000 NCQEWQEA EQU @08 01419000 NUCMOUTQ EQU @03 01420000 CQEPTR EQU @07 01421000 BUFP EQU @02 01422000 R9 EQU @09 01423000 R0 EQU @00 01424000 R1 EQU @01 01425000 R2 EQU @02 01426000 R3 EQU @03 01427000 R4 EQU @04 01428000 R5 EQU @05 01429000 RB EQU @11 01430000 RD EQU @13 01431000 RE EQU @14 01432000 RF EQU @15 01433000 PDRPTR EQU @10 01434000 GPR15F EQU @15 01435000 GPR01F EQU @01 01436000 GPR00F EQU @00 01437000 RA EQU @10 01438000 RC EQU @12 01439000 R6 EQU @06 01440000 R7 EQU @07 01441000 R8 EQU @08 01442000 ZZ1 EQU 0 01443000 ZZ1ATTN EQU ZZ1+360 01444000 ZZ1EVE EQU ZZ1ATTN+4 01445000 ZZ1F EQU ZZ1+368 01446000 ZZ1TRHEX EQU ZZ1+568 01447000 ZZ1N EQU ZZ1+1116 01448000 ZZ2 EQU 0 01449000 ZZ2AMD EQU ZZ2 01450000 @NM00013 EQU ZZ2AMD+7 01451000 ZZ2PRT EQU ZZ2+138 01452000 ZZ2PRTT EQU ZZ2PRT+4 01453000 ZZ2PRTT1 EQU ZZ2PRTT+1 01454000 ZZ2A EQU ZZ2+272 01455000 ZZ2AF EQU ZZ2A+16 01456000 ZZ2AFX EQU ZZ2AF+5 01457000 ZZ2APID EQU ZZ2A+64 01458000 ZZ2AD EQU ZZ2A+74 01459000 ZZ2ADD EQU ZZ2AD 01460000 ZZ2ADDT EQU ZZ2ADD+2 01461000 ZZ2ADM EQU ZZ2AD+46 01462000 ZZ2ADMT EQU ZZ2ADM+2 01463000 ZZ2ADP EQU ZZ2AD+56 01464000 ZZ2ADPT EQU ZZ2ADP+2 01465000 ZZ2AZZ6P EQU ZZ2A+140 01466000 ZZ2AQAS EQU ZZ2A+144 01467000 ZZ2AQD EQU ZZ2A+160 01468000 ZZ2AQDT EQU ZZ2AQD+10 01469000 ZZ2AQDF EQU ZZ2AQD+52 01470000 ZZ2STG EQU ZZ2+960 01471000 ZZ2ALLOP EQU ZZ2+992 01472000 ZZ2FREEP EQU ZZ2+996 01473000 ZZ2FF19P EQU ZZ2+1000 01474000 ZZ2FRE1P EQU ZZ2+1004 01475000 ZZ2FF18P EQU ZZ2+1008 01476000 ZZ2DYNAP EQU ZZ2+1012 01477000 ZZ2ZZ2CP EQU ZZ2+1016 01478000 ZZ2ZZ2DP EQU ZZ2+1020 01479000 ZZ2STAIP EQU ZZ2+1024 01480000 ZZ2FF02P EQU ZZ2+1028 01481000 ZZ2GETLP EQU ZZ2+1032 01482000 ZZ2PARSP EQU ZZ2+1036 01483000 ZZ2PTGTP EQU ZZ2+1040 01484000 ZZ2PUTLP EQU ZZ2+1044 01485000 ZZ2SCANP EQU ZZ2+1048 01486000 ZZ2STCKP EQU ZZ2+1052 01487000 ZZ2TRMOP EQU ZZ2+1064 01488000 ZZ2TRMVP EQU ZZ2+1068 01489000 ZZ2PUTNP EQU ZZ2+1084 01490000 ZZ2TRMNP EQU ZZ2+1088 01491000 ZZ2ZZ1P EQU ZZ2+1264 01492000 ZZ2BVTP EQU ZZ2+1280 01493000 ZZ2RVTP EQU ZZ2+1284 01494000 ZZ2CPPL EQU ZZ2+1292 01495000 ZZ2CPPLC EQU ZZ2CPPL 01496000 ZZ2ITR EQU ZZ2+2840 01497000 ZZ2ITRE EQU ZZ2ITR+16 01498000 ZZ2ITSE EQU ZZ2+2864 01499000 ZZ2ES EQU ZZ2+2872 01500000 ZZ2AMDX EQU ZZ2+7160 01501000 ZZ2AXO EQU ZZ2+7934 01502000 ZZ2AXOT EQU ZZ2AXO+2 01503000 CMD EQU 0 01504000 CMDT EQU CMD+4 01505000 PSCB EQU 0 01506000 PSCBATR1 EQU PSCB+16 01507000 ECT EQU 0 01508000 ECTSWS EQU ECT+28 01509000 ECTSWS2 EQU ECT+40 01510000 ECTSWS21 EQU ECTSWS2 01511000 UPT EQU 0 01512000 UPTSWS EQU UPT+12 01513000 SA EQU 0 01514000 SA1 EQU SA 01515000 SAR EQU SA+12 01516000 SAR1 EQU SAR+12 01517000 BLSUMPK1 EQU 0 01518000 BLSUPARI EQU 0 01519000 BLSUPARU EQU 0 01520000 BLSUPUTO EQU 0 01521000 BVT EQU 0 01522000 BVTPUTLP EQU BVT+4 01523000 BVTPUTOP EQU BVT+12 01524000 BVTPUTTP EQU BVT+16 01525000 BVTPUTVP EQU BVT+20 01526000 BVTPUTAP EQU BVT+24 01527000 BVTPRTTP EQU BVT+28 01528000 BVTPRTAP EQU BVT+32 01529000 BVTPUTDP EQU BVT+36 01530000 BVTMONP EQU BVT+40 01531000 BVTMON2P EQU BVT+44 01532000 BVTVSARP EQU BVT+48 01533000 BVTVSENP EQU BVT+64 01534000 BVTVSERP EQU BVT+68 01535000 BVTVSGEP EQU BVT+72 01536000 BVTVSGUP EQU BVT+76 01537000 BVTVSPOP EQU BVT+80 01538000 BVTVSPUP EQU BVT+84 01539000 BVTMPKNP EQU BVT+104 01540000 BVTMONLP EQU BVT+108 01541000 BVTPUTCP EQU BVT+132 01542000 BVTMPK1P EQU BVT+136 01543000 BVTZZ2RP EQU BVT+140 01544000 BVTPGMRP EQU BVT+144 01545000 BVTMONAP EQU BVT+148 01546000 BVTBLDDP EQU BVT+152 01547000 BVTBLDLP EQU BVT+156 01548000 BVTPGMCP EQU BVT+160 01549000 BVTPGMDP EQU BVT+164 01550000 BVTPGMLP EQU BVT+168 01551000 BVTMONCP EQU BVT+180 01552000 BVTMONDP EQU BVT+184 01553000 BVTMONTP EQU BVT+188 01554000 BVTPARIP EQU BVT+192 01555000 BVTPARUP EQU BVT+196 01556000 BVTPRTNP EQU BVT+204 01557000 BVTVSCRP EQU BVT+208 01558000 BVTVSMRP EQU BVT+212 01559000 BVTMONXP EQU BVT+216 01560000 BVTTRMAP EQU BVT+228 01561000 ZZ6 EQU 0 01562000 ZZ6D EQU ZZ6+128 01563000 ZZ6DD EQU ZZ6D+8 01564000 ZZ6DDT EQU ZZ6DD+4 01565000 ZZ6DQA EQU ZZ6D+68 01566000 ZZ6DF EQU ZZ6D+92 01567000 ZZ6B EQU ZZ6+768 01568000 BLSRACC EQU 0 01569000 BLSRESGU EQU 0 01570000 RVT EQU 0 01571000 RVTADDRP EQU RVT 01572000 RVTT01P EQU RVT+4 01573000 RVTTAP EQU RVT+8 01574000 RVTTBP EQU RVT+12 01575000 RVTTCP EQU RVT+16 01576000 RVTTFP EQU RVT+24 01577000 RVTTYP EQU RVT+40 01578000 RVTT02P EQU RVT+48 01579000 RVTT03P EQU RVT+52 01580000 RVTT04P EQU RVT+56 01581000 RVTACCLP EQU RVT+60 01582000 RVTRACCP EQU RVT+64 01583000 RVTTLP EQU RVT+68 01584000 RVTTMP EQU RVT+72 01585000 RVTTUP EQU RVT+80 01586000 RVTESGEP EQU RVT+84 01587000 RVTESGUP EQU RVT+88 01588000 RVTESARP EQU RVT+92 01589000 RVTRAARP EQU RVT+96 01590000 RVTRAGEP EQU RVT+100 01591000 RVTADDPP EQU RVT+104 01592000 RVTACCQP EQU RVT+108 01593000 RVTSAGUP EQU RVT+124 01594000 RVTSAGEP EQU RVT+128 01595000 RVTESCKP EQU RVT+132 01596000 RVTMSGAP EQU RVT+136 01597000 RVTMSGDP EQU RVT+140 01598000 RVTADDTP EQU RVT+160 01599000 RVTADDUP EQU RVT+164 01600000 RVTADD1P EQU RVT+176 01601000 RVTADD2P EQU RVT+180 01602000 RVTRSAGP EQU RVT+184 01603000 RVTMSGBP EQU RVT+188 01604000 RVTADDSP EQU RVT+192 01605000 RVTADD3P EQU RVT+196 01606000 RVTT05P EQU RVT+200 01607000 RVTPADSP EQU RVT+204 01608000 RVTTRP EQU RVT+228 01609000 RVTADD4P EQU RVT+232 01610000 RVTSAPCP EQU RVT+236 01611000 RVTSAARP EQU RVT+240 01612000 RVTSAGNP EQU RVT+244 01613000 RVTT06P EQU RVT+248 01614000 RVTSAGCP EQU RVT+252 01615000 RVTSAGQP EQU RVT+256 01616000 RVTESGCP EQU RVT+260 01617000 RVTESGQP EQU RVT+264 01618000 RVTDUCKP EQU RVT+276 01619000 RVTDUCCP EQU RVT+280 01620000 UCB EQU 0 01621000 UCBOB EQU 0 01622000 UCBJBNR EQU UCBOB 01623000 UCBFL5 EQU UCBOB+1 01624000 UCBAF EQU UCBFL5 01625000 UCBSTAT EQU UCBOB+3 01626000 UCBCHAN EQU UCBOB+4 01627000 UCBSFLS EQU UCBOB+6 01628000 UCBFLA EQU UCBSFLS 01629000 UCBFL1 EQU UCBFLA 01630000 UCBBSY EQU UCBFL1 01631000 UCBNRY EQU UCBFL1 01632000 UCBPST EQU UCBFL1 01633000 UCBCUB EQU UCBFL1 01634000 UCBFLB EQU UCBSFLS+1 01635000 UCBCHM EQU UCBOB+8 01636000 UCBCHM1 EQU UCBCHM 01637000 UCBPTH0 EQU UCBCHM1 01638000 UCBPTH1 EQU UCBCHM1 01639000 UCBWGT EQU UCBOB+12 01640000 UCBNAME EQU UCBOB+13 01641000 UCBTYP EQU UCBOB+16 01642000 UCBTBYT1 EQU UCBTYP 01643000 UCB1FEA5 EQU UCBTBYT1 01644000 UCB1FEA6 EQU UCBTBYT1 01645000 UCBTBYT2 EQU UCBTYP+1 01646000 UCB2OPT2 EQU UCBTBYT2 01647000 UCBDUDN1 EQU UCB2OPT2 01648000 UCB2OPT3 EQU UCBTBYT2 01649000 UCBDUDN2 EQU UCB2OPT3 01650000 UCB2OPT4 EQU UCBTBYT2 01651000 UCBRWTAU EQU UCB2OPT4 01652000 UCB2OPT6 EQU UCBTBYT2 01653000 UCB2OPT7 EQU UCBTBYT2 01654000 UCBTBYT3 EQU UCBTYP+2 01655000 UCBDVCLS EQU UCBTBYT3 01656000 UCBTBYT4 EQU UCBTYP+3 01657000 UCBEXTPT EQU UCBOB+20 01658000 UCBFLC EQU UCBEXTPT 01659000 UCBDEV EQU UCBOB+24 01660000 UCBCMEXT EQU 0 01661000 UCBATI EQU UCBCMEXT+3 01662000 @NM00080 EQU UCBATI 01663000 UCBFLP1 EQU UCBCMEXT+5 01664000 UCBMT EQU 0 01665000 UCBOCR EQU 0 01666000 UCB3540X EQU 0 01667000 UCBDKBYT EQU UCB3540X+6 01668000 UCB3800X EQU 0 01669000 UCBOPTNS EQU UCB3800X 01670000 UCBACTIV EQU UCB3800X+3 01671000 UCBMDRBF EQU UCB3800X+36 01672000 UCBUCS EQU 0 01673000 UCBUCSOP EQU UCBUCS+4 01674000 UCBFCBOP EQU UCBUCS+5 01675000 UCM2EXT EQU 0 01676000 UCM2STA EQU UCM2EXT+8 01677000 UCM2SFLG EQU UCM2STA 01678000 UCMPRFX EQU 0 01679000 UCMSAVE0 EQU UCMPRFX+4 01680000 UCMSFLGS EQU UCMPRFX+84 01681000 UCMSFLG1 EQU UCMSFLGS 01682000 UCMSFLG2 EQU UCMSFLGS+1 01683000 UCMXSA EQU UCMPRFX+104 01684000 UCMSDS1 EQU UCMPRFX+156 01685000 UCM EQU 0 01686000 UCMDECB EQU UCM+12 01687000 UCMWTOQ EQU UCM+24 01688000 UCMRPYQ EQU UCM+28 01689000 UCMRPYI EQU UCM+32 01690000 UCMWQLM EQU UCM+46 01691000 UCMRQNR EQU UCM+56 01692000 UCMWQNR EQU UCM+58 01693000 UCMWQEND EQU UCM+60 01694000 UCMPXB EQU UCM+68 01695000 UCMMODE EQU UCMPXB 01696000 UCMVDATA EQU UCM+72 01697000 UCMVEA EQU UCMVDATA 01698000 UCMVEZ EQU UCMVDATA+4 01699000 UCMVEL EQU UCMVDATA+8 01700000 UCMCTID EQU UCM+250 01701000 UCMRSV42 EQU UCM+300 01702000 UCMRSV51 EQU UCM+301 01703000 UCMEIL EQU 0 01704000 UCMRECBA EQU UCMEIL+24 01705000 UCMEXIT EQU 0 01706000 UCMLIST EQU 0 01707000 UCMUCB EQU UCMLIST+12 01708000 UCMSTS EQU UCMLIST+24 01709000 UCMATR EQU UCMLIST+25 01710000 UCMXA EQU UCMLIST+26 01711000 UCMOUTQ EQU UCMLIST+36 01712000 UCMAUTH EQU UCMLIST+40 01713000 UCMAUTHA EQU UCMAUTH 01714000 UCMDISP EQU UCMLIST+42 01715000 UCMDISP1 EQU UCMDISP 01716000 UCMDISP2 EQU UCMDISP+1 01717000 UCMMSG EQU UCMLIST+60 01718000 UCMMSG1 EQU UCMMSG 01719000 UCMDEVC EQU UCMLIST+63 01720000 UCMRCT EQU UCMLIST+68 01721000 UCMSDS5 EQU UCMRCT 01722000 UCMFEXTA EQU 0 01723000 UCMFMGFS EQU UCMFEXTA+8 01724000 UCMFFLG1 EQU UCMFMGFS 01725000 UCMPEXTA EQU 0 01726000 UCMPDM1 EQU UCMPEXTA+4 01727000 WQE EQU 0 01728000 WQELKP EQU WQE 01729000 WQELKPA EQU WQELKP+1 01730000 WQENBR EQU WQE+4 01731000 WQETS EQU WQE+13 01732000 WQEJOBNM EQU WQE+22 01733000 WQETXT EQU WQE+31 01734000 WQEXA EQU WQE+160 01735000 WQEAVAIL EQU WQE+163 01736000 WQEMCSF EQU WQE+172 01737000 WQEMCSF1 EQU WQEMCSF 01738000 WQEMCSF2 EQU WQEMCSF+1 01739000 WQEMSGTP EQU WQE+174 01740000 WQEMSGT1 EQU WQEMSGTP 01741000 WQEROUT EQU WQE+176 01742000 WQEROUT1 EQU WQEROUT 01743000 WQEROUT2 EQU WQEROUT+1 01744000 WQEDESCD EQU WQE+184 01745000 WQEDC1 EQU WQEDESCD 01746000 WQEDC2 EQU WQEDESCD+1 01747000 WMJM EQU 0 01748000 WMJMEXT EQU WMJM 01749000 WMJMEXTA EQU WMJMEXT+1 01750000 WMJMMLW EQU WMJM+4 01751000 WMJMTS EQU WMJM+13 01752000 WMJMSER EQU WMJM+122 01753000 WMJMSER1 EQU WMJMSER 01754000 WMJMLTYP EQU WMJM+134 01755000 WMJMLTY1 EQU WMJMLTYP 01756000 WMJMECBF EQU WMJM+148 01757000 WMJMDSP EQU WMJM+160 01758000 WMJMBUF EQU WMJM+163 01759000 WMJMCS EQU WMJM+172 01760000 WMJMCS1 EQU WMJMCS 01761000 WMJMCS2 EQU WMJMCS+1 01762000 WMJMMT EQU WMJM+174 01763000 WMJMMT1 EQU WMJMMT 01764000 WMJMRTC EQU WMJM+176 01765000 WMJMRCT1 EQU WMJMRTC 01766000 WMJMRCT2 EQU WMJMRTC+1 01767000 WMJMDEC EQU WMJM+184 01768000 WMJMDEC1 EQU WMJMDEC 01769000 WMJMDEC2 EQU WMJMDEC+1 01770000 WMNM EQU 0 01771000 WMNMEXT EQU WMNM 01772000 WMNMML1 EQU WMNM+4 01773000 WMNMLT1 EQU WMNM+5 01774000 WMNMST1 EQU WMNM+84 01775000 WMNMML2 EQU WMNM+100 01776000 WMNMLT2 EQU WMNM+101 01777000 WMNMST2 EQU WMNM+180 01778000 CQE EQU 0 01779000 CQEWQE EQU CQE 01780000 CQEFLAG EQU CQEWQE 01781000 CQEEOB EQU CQEFLAG 01782000 CQEWQEA EQU CQEWQE+1 01783000 OREF EQU 0 01784000 ORELKP EQU OREF 01785000 OREID EQU OREF+4 01786000 OREXA EQU OREF+6 01787000 OREXC EQU OREF+7 01788000 ORETCB EQU OREF+8 01789000 OREWQE EQU OREF+12 01790000 ORERPY EQU OREF+16 01791000 OREECB EQU OREF+20 01792000 PCCSECT EQU 0 01793000 PDDSECT EQU 0 01794000 PDXP EQU PDDSECT+1 01795000 PDL EQU PDDSECT+5 01796000 BLSRACCL EQU 0 01797000 BLSRACCQ EQU 0 01798000 BLSRADDP EQU 0 01799000 BLSRADDR EQU 0 01800000 BLSRADDS EQU 0 01801000 BLSRADDT EQU 0 01802000 BLSRADDU EQU 0 01803000 BLSRADD1 EQU 0 01804000 BLSRADD2 EQU 0 01805000 BLSRADD3 EQU 0 01806000 BLSRADD4 EQU 0 01807000 BLSRDUCC EQU 0 01808000 BLSRDUCK EQU 0 01809000 BLSRESAR EQU 0 01810000 BLSRESCK EQU 0 01811000 BLSRESGC EQU 0 01812000 BLSRESGE EQU 0 01813000 BLSRESGQ EQU 0 01814000 BLSRMSGA EQU 0 01815000 BLSRMSGB EQU 0 01816000 BLSRMSGD EQU 0 01817000 BLSRPADS EQU 0 01818000 BLSRRAAR EQU 0 01819000 BLSRRAGE EQU 0 01820000 BLSRSAAR EQU 0 01821000 BLSRSAG EQU 0 01822000 BLSRSAGC EQU 0 01823000 BLSRSAGE EQU 0 01824000 BLSRSAGN EQU 0 01825000 BLSRSAGQ EQU 0 01826000 BLSRSAGU EQU 0 01827000 BLSRSAPC EQU 0 01828000 BLSTA EQU 0 01829000 BLSTB EQU 0 01830000 BLSTC EQU 0 01831000 BLSTF EQU 0 01832000 BLSTL EQU 0 01833000 BLSTM EQU 0 01834000 BLSTR EQU 0 01835000 BLSTU EQU 0 01836000 BLSTY EQU 0 01837000 BLST01 EQU 0 01838000 BLST02 EQU 0 01839000 BLST03 EQU 0 01840000 BLST04 EQU 0 01841000 BLST05 EQU 0 01842000 BLST06 EQU 0 01843000 BLSUALLO EQU 0 01844000 BLSUBLDD EQU 0 01845000 BLSUBLDL EQU 0 01846000 BLSUDYNA EQU 0 01847000 BLSUFREE EQU 0 01848000 BLSUFRE1 EQU 0 01849000 BLSUMON EQU 0 01850000 BLSUMONA EQU 0 01851000 BLSUMONC EQU 0 01852000 BLSUMOND EQU 0 01853000 BLSUMONL EQU 0 01854000 BLSUMONT EQU 0 01855000 BLSUMONX EQU 0 01856000 BLSUMON2 EQU 0 01857000 BLSUMPKN EQU 0 01858000 BLSUPGMC EQU 0 01859000 BLSUPGMD EQU 0 01860000 BLSUPGML EQU 0 01861000 BLSUPGMR EQU 0 01862000 BLSUPRTA EQU 0 01863000 BLSUPRTN EQU 0 01864000 BLSUPRTT EQU 0 01865000 BLSUPUTA EQU 0 01866000 BLSUPUTC EQU 0 01867000 BLSUPUTD EQU 0 01868000 BLSUPUTL EQU 0 01869000 BLSUPUTN EQU 0 01870000 BLSUPUTT EQU 0 01871000 BLSUPUTV EQU 0 01872000 BLSUSTAI EQU 0 01873000 BLSUTRMA EQU 0 01874000 BLSUTRMN EQU 0 01875000 BLSUTRMO EQU 0 01876000 BLSUTRMV EQU 0 01877000 BLSUVSAR EQU 0 01878000 BLSUVSCR EQU 0 01879000 BLSUVSEN EQU 0 01880000 BLSUVSER EQU 0 01881000 BLSUVSGE EQU 0 01882000 BLSUVSGU EQU 0 01883000 BLSUVSMR EQU 0 01884000 BLSUVSPO EQU 0 01885000 BLSUVSPU EQU 0 01886000 BLSUZZ2C EQU 0 01887000 BLSUZZ2D EQU 0 01888000 BLSUZZ2R EQU 0 01889000 IKJEFF02 EQU 0 01890000 IKJEFF18 EQU 0 01891000 IKJEFF19 EQU 0 01892000 IKJGETL EQU 0 01893000 IKJPARS EQU 0 01894000 IKJPTGT EQU 0 01895000 IKJPUTL EQU 0 01896000 IKJSCAN EQU 0 01897000 IKJSTCK EQU 0 01898000 I001C EQU 0 01899000 I008P EQU 0 01900000 I015F EQU 0 01901000 I015P EQU 0 01902000 I031F EQU 0 01903000 I031P EQU 0 01904000 I256C EQU 0 01905000 UCBBGN EQU 0 01906000 UCMPRFXP EQU 0 01907000 UCM2PTR EQU 0 01908000 CPPL EQU ZZ2CPPL 01909000 CPPLUPT EQU CPPL+4 01910000 CPPLPSCB EQU CPPL+8 01911000 CPPLECT EQU CPPL+12 01912000 UCBOBS01 EQU UCBDEV 01913000 UCBSTAB EQU UCBOBS01+10 01914000 UCBBSVL EQU UCBSTAB 01915000 UCBPRSRS EQU UCBSTAB 01916000 UCBDMCT EQU UCBOBS01+11 01917000 UCBFL4 EQU UCBOBS01+13 01918000 UCBOBS02 EQU UCBDEV 01919000 UCBTFL1 EQU UCBOBS02+19 01920000 UCBXTN EQU UCBOBS02+20 01921000 UCBVOPT EQU UCBXTN 01922000 UCBOBS03 EQU UCBDEV 01923000 UCBXTADR EQU UCBOBS03 01924000 UCBOBS04 EQU UCBDEV 01925000 UCBBTA EQU UCBOBS04+12 01926000 UCBOBS06 EQU UCBDEV 01927000 UCBAOF EQU UCBOBS06 01928000 UCBAOF1 EQU UCBAOF 01929000 UCBAOF2 EQU UCBAOF+1 01930000 @NM00079 EQU UCBOBS06+3 01931000 UCBIRB EQU UCBOBS06+4 01932000 UCBGRAF EQU UCBIRB 01933000 UCBLDNCA EQU UCBOBS06+8 01934000 UCBRDYQ EQU UCBLDNCA 01935000 UCBIRLN EQU UCBRDYQ 01936000 UCBLDNCB EQU UCBRDYQ+1 01937000 UCBCTLNK EQU UCBOBS06+12 01938000 UCBOBS07 EQU UCBDEV 01939000 UCBOBS08 EQU UCBDEV 01940000 UCBCTCAD EQU UCBOBS08 01941000 UCBCTCF1 EQU UCBOBS08+4 01942000 UCBOBS09 EQU UCBDEV 01943000 UCMIECBA EQU UCMRECBA+4 01944000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01945000 UCMIECBP EQU UCMIECBA+1 01946000 UCMIECBF EQU UCMIECBA 01947000 UCBRV066 EQU UCBOBS09+4 01948000 UCBIOSBA EQU UCBOBS09 01949000 UCBRV042 EQU UCBOBS08+5 01950000 UCBRV082 EQU UCBCTCF1 01951000 UCBRV081 EQU UCBCTCF1 01952000 UCBRV080 EQU UCBCTCF1 01953000 UCBRV079 EQU UCBCTCF1 01954000 UCBRV078 EQU UCBCTCF1 01955000 UCBRV077 EQU UCBCTCF1 01956000 UCBRV076 EQU UCBCTCF1 01957000 UCBCTC80 EQU UCBCTCF1 01958000 UCBCTCAL EQU UCBCTCAD 01959000 UCBICNCB EQU UCBOBS07+4 01960000 UCBRV040 EQU UCBOBS07 01961000 UCBCTLNA EQU UCBCTLNK+1 01962000 UCBRLN EQU UCBCTLNK 01963000 UCBRDYQA EQU UCBLDNCB 01964000 UCBINRLN EQU UCBIRLN 01965000 UCBIRBA EQU UCBIRB+1 01966000 UCBRV039 EQU UCBGRAF 01967000 UCBDWNR EQU UCBGRAF 01968000 UCBRPND EQU UCBGRAF 01969000 UCBUPM EQU UCBGRAF 01970000 UCBBTAM EQU UCBGRAF 01971000 UCBDRNO EQU UCBGRAF 01972000 UCBDRO EQU UCBGRAF 01973000 UCBOIP EQU UCBGRAF 01974000 UCBATRCD EQU @NM00079 01975000 UCBSKPFG EQU @NM00079 01976000 UCBRIPND EQU @NM00079 01977000 UCBRTIAC EQU @NM00079 01978000 UCBRSV79 EQU @NM00079 01979000 UCBRSV78 EQU @NM00079 01980000 UCBRSV77 EQU @NM00079 01981000 UCBOLTEP EQU @NM00079 01982000 UCBATNCT EQU UCBOBS06+2 01983000 UCBRSV76 EQU UCBAOF2 01984000 UCBRSV75 EQU UCBAOF2 01985000 UCBRSV74 EQU UCBAOF2 01986000 UCBRSV73 EQU UCBAOF2 01987000 UCBRSV72 EQU UCBAOF2 01988000 UCBRSV71 EQU UCBAOF2 01989000 UCBRSV70 EQU UCBAOF2 01990000 UCBRSV69 EQU UCBAOF2 01991000 UCBRSV68 EQU UCBAOF1 01992000 UCBRSV67 EQU UCBAOF1 01993000 UCBRSV66 EQU UCBAOF1 01994000 UCBRSV65 EQU UCBAOF1 01995000 UCBRSV64 EQU UCBAOF1 01996000 UCBOFNL EQU UCBAOF1 01997000 UCBOFSP EQU UCBAOF1 01998000 UCBOFMCR EQU UCBAOF1 01999000 UCBBTB EQU UCBBTA+1 02000000 UCBDI EQU UCBBTA 02001000 UCBSNS EQU UCBOBS04+8 02002000 UCBTEB EQU UCBOBS04+4 02003000 UCBGCB EQU UCBOBS04+3 02004000 UCBOPEN EQU UCBOBS04+2 02005000 UCBSTART EQU UCBOBS04 02006000 UCBXTNB EQU UCBXTN+1 02007000 UCBRSV22 EQU UCBVOPT 02008000 UCBRSV21 EQU UCBVOPT 02009000 UCBRSV20 EQU UCBVOPT 02010000 UCBESVE EQU UCBVOPT 02011000 UCBERPC EQU UCBVOPT 02012000 UCBESVC EQU UCBVOPT 02013000 UCBEVA EQU UCBVOPT 02014000 UCBESV EQU UCBVOPT 02015000 UCBRV009 EQU UCBTFL1 02016000 UCBRV008 EQU UCBTFL1 02017000 UCBRV007 EQU UCBTFL1 02018000 UCBRV006 EQU UCBTFL1 02019000 UCBRV005 EQU UCBTFL1 02020000 UCBDQDSP EQU UCBTFL1 02021000 UCBNSLTP EQU UCBTFL1 02022000 UCBNLTP EQU UCBTFL1 02023000 UCBRES1B EQU UCBOBS02+18 02024000 UCBFSER EQU UCBOBS02+12 02025000 @NM00078 EQU UCBOBS02+4 02026000 UCBFSEQ EQU UCBOBS02+2 02027000 UCBFSCT EQU UCBOBS02 02028000 UCBNEXP EQU UCBOBS01+20 02029000 UCBBASE EQU UCBOBS01+16 02030000 UCBRES1A EQU UCBOBS01+15 02031000 UCBUSER EQU UCBOBS01+14 02032000 UCBFL47 EQU UCBFL4 02033000 UCBFL46 EQU UCBFL4 02034000 UCBFL45 EQU UCBFL4 02035000 UCBRV065 EQU UCBFL4 02036000 UCBDSS EQU UCBFL4 02037000 UCBRESVP EQU UCBFL4 02038000 UCBWDAV EQU UCBFL4 02039000 UCBDAVV EQU UCBFL4 02040000 UCBSQC EQU UCBOBS01+12 02041000 UCBDATP EQU UCBOBS01+12 02042000 UCBDMC EQU UCBDMCT 02043000 UCBMOUNT EQU UCBDMCT 02044000 UCBBNUL EQU UCBSTAB 02045000 UCBSHAR EQU UCBSTAB 02046000 UCBBSTR EQU UCBSTAB 02047000 UCBBPUB EQU UCBSTAB 02048000 UCBBPRV EQU UCBSTAB 02049000 UCBBALB EQU UCBPRSRS 02050000 UCBPGFL EQU UCBSTAB 02051000 UCBDVSHR EQU UCBBSVL 02052000 UCBVOLI EQU UCBOBS01+4 02053000 UCBVTOC EQU UCBOBS01 02054000 CPPLCBUF EQU CPPL 02055000 PDSP EQU PDDSECT+4 02056000 @NM00104 EQU PDDSECT 02057000 OREOPBUF EQU OREF+28 02058000 ORERSV11 EQU OREF+26 02059000 OREASID EQU OREF+24 02060000 OREM EQU OREF+24 02061000 OREECBA EQU OREECB+1 02062000 ORETJID2 EQU OREECB 02063000 ORERPYA EQU ORERPY+1 02064000 ORELNTH EQU ORERPY 02065000 ORETCBA EQU ORETCB+1 02066000 ORETJID1 EQU ORETCB 02067000 ORERSV10 EQU OREXC 02068000 ORERSV09 EQU OREXC 02069000 ORERSV08 EQU OREXC 02070000 OREBUFE EQU OREXC 02071000 OREBUFD EQU OREXC 02072000 OREBUFC EQU OREXC 02073000 OREBUFB EQU OREXC 02074000 OREBUFA EQU OREXC 02075000 ORERSV06 EQU OREXA 02076000 ORERSV05 EQU OREXA 02077000 ORERSV04 EQU OREXA 02078000 ORERSV03 EQU OREXA 02079000 ORESUSP EQU OREXA 02080000 ORESWAP EQU OREXA 02081000 OREKEY0 EQU OREXA 02082000 ORERSV01 EQU OREXA 02083000 CQEENDA EQU CQE+21 02084000 CQEEND EQU CQE+20 02085000 @NM00087 EQU CQE+4 02086000 CQEENTR EQU CQEFLAG 02087000 CQEAVAIL EQU CQEFLAG 02088000 CQEMAJOR EQU CQEFLAG 02089000 CQEMLQHC EQU CQEFLAG 02090000 CQEATTOP EQU CQEFLAG 02091000 @NM00086 EQU CQEFLAG 02092000 @NM00085 EQU CQEEOB 02093000 CQEEOQ EQU CQEEOB 02094000 WQERSVC7 EQU WMNM+184 02095000 WQERSVC6 EQU WMNM+181 02096000 WQERSVC5 EQU WMNMST2 02097000 WQERSVC4 EQU WMNMST2 02098000 WQERSVC3 EQU WMNMST2 02099000 WQERSVC2 EQU WMNMST2 02100000 WQERSVC1 EQU WMNMST2 02101000 WQERSVB9 EQU WMNMST2 02102000 WQERSVB8 EQU WMNMST2 02103000 WMNMTPD2 EQU WMNMST2 02104000 WMNMTXT2 EQU WMNM+108 02105000 WMNMHCT2 EQU WMNM+104 02106000 WMNMTL2 EQU WMNM+103 02107000 WQERSV74 EQU WMNM+102 02108000 WQERSV73 EQU WMNMLT2 02109000 WQERSV72 EQU WMNMLT2 02110000 WQERSV71 EQU WMNMLT2 02111000 WQERSV70 EQU WMNMLT2 02112000 WMNMLT2D EQU WMNMLT2 02113000 WMNMLT2C EQU WMNMLT2 02114000 WMNMLT2B EQU WMNMLT2 02115000 WMNMLT2A EQU WMNMLT2 02116000 WMNMML2H EQU WMNMML2 02117000 WMNMML2G EQU WMNMML2 02118000 WQERSV69 EQU WMNMML2 02119000 WMNMML2E EQU WMNMML2 02120000 WMNMML2D EQU WMNMML2 02121000 WMNMML2C EQU WMNMML2 02122000 WMNMML2B EQU WMNMML2 02123000 WQERSV68 EQU WMNMML2 02124000 WMNMNX2 EQU WMNM+97 02125000 WMNMUC2 EQU WMNM+96 02126000 WQERSVB7 EQU WMNM+88 02127000 WQERSVB6 EQU WMNM+85 02128000 WQERSVB5 EQU WMNMST1 02129000 WQERSVB4 EQU WMNMST1 02130000 WQERSVB3 EQU WMNMST1 02131000 WQERSVB2 EQU WMNMST1 02132000 WQERSVB1 EQU WMNMST1 02133000 WQERSVA9 EQU WMNMST1 02134000 WQERSVA8 EQU WMNMST1 02135000 WMNMTPD1 EQU WMNMST1 02136000 WMNMTXT1 EQU WMNM+12 02137000 WMNMHCT1 EQU WMNM+8 02138000 WMNMTL1 EQU WMNM+7 02139000 WQERSV67 EQU WMNM+6 02140000 WQERSV66 EQU WMNMLT1 02141000 WQERSV65 EQU WMNMLT1 02142000 WQERSV64 EQU WMNMLT1 02143000 WQERSV63 EQU WMNMLT1 02144000 WMNMLT1D EQU WMNMLT1 02145000 WMNMLT1C EQU WMNMLT1 02146000 WMNMLT1B EQU WMNMLT1 02147000 WMNMLT1A EQU WMNMLT1 02148000 WMNMML1H EQU WMNMML1 02149000 WMNMML1G EQU WMNMML1 02150000 WMNMML1F EQU WMNMML1 02151000 WMNMML1E EQU WMNMML1 02152000 WMNMML1D EQU WMNMML1 02153000 WMNMML1C EQU WMNMML1 02154000 WMNMML1B EQU WMNMML1 02155000 WQERSV62 EQU WMNMML1 02156000 WMNMNX1 EQU WMNMEXT+1 02157000 WMNMUC1 EQU WMNMEXT 02158000 WMJMJTCB EQU WMJM+188 02159000 WMJMDEC4 EQU WMJMDEC+3 02160000 WMJMDEC3 EQU WMJMDEC+2 02161000 WQERSV61 EQU WMJMDEC2 02162000 WQERSV60 EQU WMJMDEC2 02163000 WQERSV59 EQU WMJMDEC2 02164000 WQERSV58 EQU WMJMDEC2 02165000 WQERSV57 EQU WMJMDEC2 02166000 WQERSV56 EQU WMJMDEC2 02167000 WMJMDECJ EQU WMJMDEC2 02168000 WMJMDECI EQU WMJMDEC2 02169000 WMJMDECH EQU WMJMDEC1 02170000 WMJMDECG EQU WMJMDEC1 02171000 WMJMDECF EQU WMJMDEC1 02172000 WMJMDECE EQU WMJMDEC1 02173000 WMJMDECD EQU WMJMDEC1 02174000 WMJMDECC EQU WMJMDEC1 02175000 WMJMDECB EQU WMJMDEC1 02176000 WMJMDECA EQU WMJMDEC1 02177000 WQERSV54 EQU WMJM+181 02178000 WMJMUID EQU WMJM+180 02179000 WMJMRCT4 EQU WMJMRTC+3 02180000 WMJMRCT3 EQU WMJMRTC+2 02181000 WQERSV53 EQU WMJMRCT2 02182000 WMJMRCTO EQU WMJMRCT2 02183000 WMJMRCTN EQU WMJMRCT2 02184000 WMJMRCTM EQU WMJMRCT2 02185000 WMJMRCTL EQU WMJMRCT2 02186000 WMJMRCTK EQU WMJMRCT2 02187000 WMJMRCTJ EQU WMJMRCT2 02188000 WMJMRCTI EQU WMJMRCT2 02189000 WMJMRCTH EQU WMJMRCT1 02190000 WMJMRCTG EQU WMJMRCT1 02191000 WMJMRCTF EQU WMJMRCT1 02192000 WMJMRCTE EQU WMJMRCT1 02193000 WMJMRCTD EQU WMJMRCT1 02194000 WMJMRCTC EQU WMJMRCT1 02195000 WMJMRCTB EQU WMJMRCT1 02196000 WMJMRCTA EQU WMJMRCT1 02197000 WMJMMT2 EQU WMJMMT+1 02198000 WQERSV52 EQU WMJMMT1 02199000 WQERSV51 EQU WMJMMT1 02200000 WMJMMT1F EQU WMJMMT1 02201000 WQERSV50 EQU WMJMMT1 02202000 WMJMMT1D EQU WMJMMT1 02203000 WQERSVA6 EQU WMJMMT1 02204000 WMJMMT1B EQU WMJMMT1 02205000 WMJMMT1A EQU WMJMMT1 02206000 WQERSV11 EQU WMJMCS2 02207000 WQERSV49 EQU WMJMCS2 02208000 WMJMCS2F EQU WMJMCS2 02209000 WQERSV48 EQU WMJMCS2 02210000 WQERSV47 EQU WMJMCS2 02211000 WQERSV46 EQU WMJMCS2 02212000 WMJMCS2B EQU WMJMCS2 02213000 WMJMCS2A EQU WMJMCS2 02214000 WMJMCS1H EQU WMJMCS1 02215000 WMJMCS1G EQU WMJMCS1 02216000 WMJMCS1F EQU WMJMCS1 02217000 WMJMCS1E EQU WMJMCS1 02218000 WMJMCS1D EQU WMJMCS1 02219000 WMJMCS1C EQU WMJMCS1 02220000 WMJMCS1B EQU WMJMCS1 02221000 WMJMCS1A EQU WMJMCS1 02222000 WMJMSEQ EQU WMJM+169 02223000 WMJMRTCT EQU WMJM+168 02224000 WMJMTCB EQU WMJM+164 02225000 WQERSV45 EQU WMJMBUF 02226000 WMJMBUFG EQU WMJMBUF 02227000 WMJMBUFF EQU WMJMBUF 02228000 WMJMBUFE EQU WMJMBUF 02229000 WMJMBUFD EQU WMJMBUF 02230000 WMJMBUFC EQU WMJMBUF 02231000 WMJMBUFB EQU WMJMBUF 02232000 WMJMBUFA EQU WMJMBUF 02233000 WMJMASID EQU WMJM+161 02234000 WMJMDSPH EQU WMJMDSP 02235000 WMJMDSPG EQU WMJMDSP 02236000 WMJMDSPF EQU WMJMDSP 02237000 WMJMDSPE EQU WMJMDSP 02238000 WMJMDSPD EQU WMJMDSP 02239000 WMJMDSPC EQU WMJMDSP 02240000 WMJMDSPB EQU WMJMDSP 02241000 WMJMDSPA EQU WMJMDSP 02242000 WQERSVA5 EQU WMJM+156 02243000 WQERSVA4 EQU WMJM+152 02244000 WQERSVD8 EQU WMJM+149 02245000 WQERSVD7 EQU WMJMECBF 02246000 WQERSVD6 EQU WMJMECBF 02247000 WQERSVD5 EQU WMJMECBF 02248000 WQERSVD4 EQU WMJMECBF 02249000 WQERSVD3 EQU WMJMECBF 02250000 WQERSVD2 EQU WMJMECBF 02251000 WMJMMAJD EQU WMJMECBF 02252000 WMJMWAIT EQU WMJMECBF 02253000 WMJMMSGN EQU WMJM+144 02254000 WMJMAECB EQU WMJM+140 02255000 WMJMMIN EQU WMJM+136 02256000 WMJMLTY2 EQU WMJMLTYP+1 02257000 WQERSV38 EQU WMJMLTY1 02258000 WQERSV37 EQU WMJMLTY1 02259000 WQERSV36 EQU WMJMLTY1 02260000 WQERSV35 EQU WMJMLTY1 02261000 WMJMLTYD EQU WMJMLTY1 02262000 WMJMLTYC EQU WMJMLTY1 02263000 WMJMLTYB EQU WMJMLTY1 02264000 WMJMLTYA EQU WMJMLTY1 02265000 WQERSV34 EQU WMJM+132 02266000 WMJMCONS EQU WMJM+124 02267000 WMJMSER2 EQU WMJMSER+1 02268000 WQERSV33 EQU WMJMSER1 02269000 WQERSV32 EQU WMJMSER1 02270000 WQERSV31 EQU WMJMSER1 02271000 WMJMSERE EQU WMJMSER1 02272000 WMJMSERD EQU WMJMSER1 02273000 WMJMSERC EQU WMJMSER1 02274000 WMJMSERB EQU WMJMSER1 02275000 WMJMSERA EQU WMJMSER1 02276000 WQERSV30 EQU WMJM+120 02277000 WQERSV29 EQU WMJM+116 02278000 WMJMRESA EQU WMJM+108 02279000 WNJNPAD3 EQU WMJM+107 02280000 WMJMHCID EQU WMJM+103 02281000 WMJMTXT EQU WMJM+31 02282000 WMJMPAD2 EQU WMJM+30 02283000 WMJMJBNM EQU WMJM+22 02284000 WMJMPAD1 EQU WMJM+21 02285000 WMJMTSSS EQU WMJMTS+6 02286000 WMJMTSP2 EQU WMJMTS+5 02287000 WMJMTSMM EQU WMJMTS+3 02288000 WMJMTSP1 EQU WMJMTS+2 02289000 WMJMTSHH EQU WMJMTS 02290000 WMJMPAD EQU WMJM+12 02291000 WMJMRR EQU WMJM+8 02292000 WMJMTXTL EQU WMJM+6 02293000 WMJMAREA EQU WMJM+5 02294000 WMJMMLWH EQU WMJMMLW 02295000 WMJMMLWG EQU WMJMMLW 02296000 WMJMMLWF EQU WMJMMLW 02297000 WMJMMLWE EQU WMJMMLW 02298000 WMJMMLWD EQU WMJMMLW 02299000 WMJMMLWC EQU WMJMMLW 02300000 WMJMMLWB EQU WMJMMLW 02301000 WMJMMLWA EQU WMJMMLW 02302000 WMJMNXT EQU WMJMEXTA 02303000 WMJMUC EQU WMJMEXT 02304000 WQEJSTCB EQU WQE+188 02305000 WQERSV26 EQU WQE+186 02306000 WQERSV25 EQU WQEDC2 02307000 WQERSV24 EQU WQEDC2 02308000 WQERSV23 EQU WQEDC2 02309000 WQERSV22 EQU WQEDC2 02310000 WQERSV21 EQU WQEDC2 02311000 WQERSV20 EQU WQEDC2 02312000 WQEDCJ EQU WQEDC2 02313000 WQEDCI EQU WQEDC2 02314000 WQEDCH EQU WQEDC1 02315000 WQEDCG EQU WQEDC1 02316000 WQEDCF EQU WQEDC1 02317000 WQEDCE EQU WQEDC1 02318000 WQEDCD EQU WQEDC1 02319000 WQEDCC EQU WQEDC1 02320000 WQEDCB EQU WQEDC1 02321000 WQEDCA EQU WQEDC1 02322000 WQERPYID EQU WQE+182 02323000 WQERSV18 EQU WQE+181 02324000 WQEUCMID EQU WQE+180 02325000 WQERSV17 EQU WQE+178 02326000 WQERSV16 EQU WQEROUT2 02327000 WQEROUTO EQU WQEROUT2 02328000 WQEROUTN EQU WQEROUT2 02329000 WQEROUTM EQU WQEROUT2 02330000 WQEROUTL EQU WQEROUT2 02331000 WQEROUTK EQU WQEROUT2 02332000 WQEROUTJ EQU WQEROUT2 02333000 WQEROUTI EQU WQEROUT2 02334000 WQEROUTH EQU WQEROUT1 02335000 WQEROUTG EQU WQEROUT1 02336000 WQEROUTF EQU WQEROUT1 02337000 WQEROUTE EQU WQEROUT1 02338000 WQEROUTD EQU WQEROUT1 02339000 WQEROUTC EQU WQEROUT1 02340000 WQEROUTB EQU WQEROUT1 02341000 WQEROUTA EQU WQEROUT1 02342000 WQERSV15 EQU WQEMSGT1 02343000 WQERSV14 EQU WQEMSGT1 02344000 WQEMSGTF EQU WQEMSGT1 02345000 WQERSV13 EQU WQEMSGT1 02346000 WQEMSGTD EQU WQEMSGT1 02347000 WQEMSGTC EQU WQEMSGT1 02348000 WQEMSGTB EQU WQEMSGT1 02349000 WQEMSGTA EQU WQEMSGT1 02350000 WQEMCSP EQU WQEMCSF2 02351000 WQEMCSO EQU WQEMCSF2 02352000 WQEMCSN EQU WQEMCSF2 02353000 WQERSV10 EQU WQEMCSF2 02354000 WQERSV09 EQU WQEMCSF2 02355000 WQERSV08 EQU WQEMCSF2 02356000 WQEMCSJ EQU WQEMCSF2 02357000 WQEMCSI EQU WQEMCSF2 02358000 WQEMCSH EQU WQEMCSF1 02359000 WQEMCSG EQU WQEMCSF1 02360000 WQEMCSFF EQU WQEMCSF1 02361000 WQEMCSE EQU WQEMCSF1 02362000 WQEMCSD EQU WQEMCSF1 02363000 WQEMCSC EQU WQEMCSF1 02364000 WQEMCSB EQU WQEMCSF1 02365000 WQEMCSA EQU WQEMCSF1 02366000 WQESEQN EQU WQE+169 02367000 WQERTCT EQU WQE+168 02368000 WQETCB EQU WQE+164 02369000 WQERSV07 EQU WQEAVAIL 02370000 WQERSV06 EQU WQEAVAIL 02371000 WQEBUFF EQU WQEAVAIL 02372000 WQEBUFE EQU WQEAVAIL 02373000 WQEBUFD EQU WQEAVAIL 02374000 WQEBUFC EQU WQEAVAIL 02375000 WQEBUFB EQU WQEAVAIL 02376000 WQEBUFA EQU WQEAVAIL 02377000 WQEASID EQU WQE+161 02378000 WQEAUTH EQU WQEXA 02379000 WQESUSP EQU WQEXA 02380000 WQEDOM EQU WQEXA 02381000 WQEWTOR EQU WQEXA 02382000 WQEQDFHC EQU WQEXA 02383000 WQEORE EQU WQEXA 02384000 WQEQFHC EQU WQEXA 02385000 WQEPURGE EQU WQEXA 02386000 WQEPAD3 EQU WQE+159 02387000 WQETXTL EQU WQETXT+127 02388000 @NM00084 EQU WQETXT 02389000 WQEPAD2 EQU WQE+30 02390000 WQEPAD1 EQU WQE+21 02391000 WQETSSS EQU WQETS+6 02392000 WQEPER2 EQU WQETS+5 02393000 WQETSMM EQU WQETS+3 02394000 WQEPER1 EQU WQETS+2 02395000 WQETSHH EQU WQETS 02396000 WQEPAD EQU WQE+12 02397000 WQERR EQU WQE+8 02398000 WQEUSE EQU WQELKP 02399000 UCMPRSV2 EQU UCMPEXTA+20 02400000 UCMPRSV1 EQU UCMPDM1+8 02401000 UCMPNMCC EQU UCMPDM1+4 02402000 UCMPWQE EQU UCMPDM1 02403000 UCMPUCMP EQU UCMPEXTA 02404000 UCMFRSV3 EQU UCMFEXTA+20 02405000 UCMF80WQ EQU UCMFEXTA+18 02406000 UCMF60WQ EQU UCMFEXTA+16 02407000 UCMFRSV2 EQU UCMFMGFS+4 02408000 UCMFRSV1 EQU UCMFMGFS+2 02409000 UCMFFLG2 EQU UCMFMGFS+1 02410000 UCMFBR07 EQU UCMFFLG1 02411000 UCMFBR06 EQU UCMFFLG1 02412000 UCMFBR05 EQU UCMFFLG1 02413000 UCMFBR04 EQU UCMFFLG1 02414000 UCMFBR03 EQU UCMFFLG1 02415000 UCMFMSGN EQU UCMFFLG1 02416000 UCMFMSGA EQU UCMFFLG1 02417000 UCMFMSGE EQU UCMFFLG1 02418000 UCMFPPTR EQU UCMFEXTA+4 02419000 UCMFUCMF EQU UCMFEXTA 02420000 UCMRCTA EQU UCMRCT+1 02421000 UCMRSV31 EQU UCMSDS5 02422000 UCMSDS5G EQU UCMSDS5 02423000 UCMSDS5F EQU UCMSDS5 02424000 UCMRSV30 EQU UCMSDS5 02425000 UCMRSV29 EQU UCMSDS5 02426000 UCMSDS5C EQU UCMSDS5 02427000 UCMSDS5B EQU UCMSDS5 02428000 UCMSDS5A EQU UCMSDS5 02429000 UCMMLAST EQU UCMLIST+64 02430000 UCMVHRSN EQU UCMDEVC 02431000 UCMDEVG EQU UCMDEVC 02432000 UCMDEVF EQU UCMDEVC 02433000 UCMDEVE EQU UCMDEVC 02434000 UCMDEVD EQU UCMDEVC 02435000 UCMDEVCC EQU UCMDEVC 02436000 UCMDEVB EQU UCMDEVC 02437000 UCMDEVA EQU UCMDEVC 02438000 UCMXOR EQU UCMLIST+62 02439000 UCMMSG2 EQU UCMMSG+1 02440000 UCMRSV27 EQU UCMMSG1 02441000 UCMRSV26 EQU UCMMSG1 02442000 UCMMSGF EQU UCMMSG1 02443000 UCMMSGE EQU UCMMSG1 02444000 UCMMSGD EQU UCMMSG1 02445000 UCMMSGC EQU UCMMSG1 02446000 UCMMSGB EQU UCMMSG1 02447000 UCMMSGA EQU UCMMSG1 02448000 UCMCOMPC EQU UCMLIST+56 02449000 UCMWLAST EQU UCMLIST+52 02450000 UCMOAOEN EQU UCMLIST+48 02451000 UCMALTEN EQU UCMLIST+44 02452000 UCMRV007 EQU UCMDISP2 02453000 UCMRV006 EQU UCMDISP2 02454000 UCMRV005 EQU UCMDISP2 02455000 UCMRV004 EQU UCMDISP2 02456000 UCMRV003 EQU UCMDISP2 02457000 UCMDISPK EQU UCMDISP2 02458000 UCMDISPJ EQU UCMDISP2 02459000 UCMDISPI EQU UCMDISP2 02460000 UCMDISPH EQU UCMDISP1 02461000 UCMDISPG EQU UCMDISP1 02462000 UCMDISPF EQU UCMDISP1 02463000 UCMDISPE EQU UCMDISP1 02464000 UCMDISPD EQU UCMDISP1 02465000 UCMDISPC EQU UCMDISP1 02466000 UCMDISPB EQU UCMDISP1 02467000 UCMDISPA EQU UCMDISP1 02468000 UCMAUTHB EQU UCMAUTH+1 02469000 UCMRSV23 EQU UCMAUTHA 02470000 UCMRSV22 EQU UCMAUTHA 02471000 UCMRSV21 EQU UCMAUTHA 02472000 UCMRSV20 EQU UCMAUTHA 02473000 UCMRSV19 EQU UCMAUTHA 02474000 UCMAUTH3 EQU UCMAUTHA 02475000 UCMAUTH2 EQU UCMAUTHA 02476000 UCMAUTH1 EQU UCMAUTHA 02477000 UCMRSV18 EQU UCMLIST+34 02478000 UCMRTCD EQU UCMLIST+32 02479000 UCMXB EQU UCMLIST+28 02480000 @NM00083 EQU UCMXA+1 02481000 UCMID EQU UCMXA 02482000 UCMRSV17 EQU UCMATR 02483000 UCMRSV16 EQU UCMATR 02484000 UCMAT04 EQU UCMATR 02485000 UCMLF EQU UCMATR 02486000 UCMUF EQU UCMATR 02487000 UCMXF EQU UCMATR 02488000 UCMIF EQU UCMATR 02489000 UCMOF EQU UCMATR 02490000 UCMTC EQU UCMSTS 02491000 UCMTD EQU UCMSTS 02492000 UCMTB EQU UCMSTS 02493000 UCMTA EQU UCMSTS 02494000 UCMCF EQU UCMSTS 02495000 UCMBF EQU UCMSTS 02496000 UCMPF EQU UCMSTS 02497000 UCMAF EQU UCMSTS 02498000 UCMNAME EQU UCMLIST+16 02499000 UCMDCB EQU UCMLIST+8 02500000 UCMSBR EQU UCMLIST+4 02501000 UCMECB EQU UCMLIST 02502000 UCMTPSAV EQU UCMEXIT+208 02503000 UCMXTSAV EQU UCMEXIT+136 02504000 UCMDESCD EQU UCMEXIT+132 02505000 UCMROUTC EQU UCMEXIT+128 02506000 UCMMSTXT EQU UCMEXIT 02507000 UCMDECBA EQU UCMEIL+20 02508000 UCMOECBA EQU UCMEIL+16 02509000 UCMAECBA EQU UCMEIL+12 02510000 UCMXECBA EQU UCMEIL+8 02511000 UCMNIPTR EQU UCMEIL+4 02512000 UCMRSV15 EQU UCMEIL+3 02513000 UCMRTCT EQU UCMEIL+2 02514000 UCMRPYL EQU UCMEIL+1 02515000 @NM00082 EQU UCMEIL 02516000 UCMRSV60 EQU UCM+302 02517000 UCMRSV59 EQU UCMRSV51 02518000 UCMRSV58 EQU UCMRSV51 02519000 UCMRSV57 EQU UCMRSV51 02520000 UCMRSV56 EQU UCMRSV51 02521000 UCMRSV55 EQU UCMRSV51 02522000 UCMRSV54 EQU UCMRSV51 02523000 UCMRSV53 EQU UCMRSV51 02524000 UCMRSV52 EQU UCMRSV51 02525000 UCMRSV50 EQU UCMRSV42 02526000 UCMRSV49 EQU UCMRSV42 02527000 UCMRSV48 EQU UCMRSV42 02528000 UCMRSV47 EQU UCMRSV42 02529000 UCMRSV46 EQU UCMRSV42 02530000 UCMRSV45 EQU UCMRSV42 02531000 UCMRSV44 EQU UCMRSV42 02532000 UCMRSV43 EQU UCMRSV42 02533000 UCMJES3T EQU UCM+296 02534000 UCMWAKUP EQU UCM+292 02535000 UCMFRRAD EQU UCM+288 02536000 UCMSWCH EQU UCM+284 02537000 UCMASCB EQU UCM+280 02538000 UCMWQECP EQU UCM+276 02539000 UCMORECP EQU UCM+272 02540000 UCMOECBT EQU UCM+268 02541000 UCMOECBH EQU UCM+264 02542000 UCMWECBT EQU UCM+260 02543000 UCMWECBH EQU UCM+256 02544000 UCMMBEND EQU UCM+252 02545000 UCMRSV61 EQU UCM+248 02546000 UCMRP2AD EQU UCM+244 02547000 UCMCRAAD EQU UCM+240 02548000 UCMWQLM1 EQU UCM+238 02549000 UCMRV001 EQU UCM+237 02550000 UCMRQLM1 EQU UCM+236 02551000 UCMMBPTR EQU UCM+232 02552000 UCMMQNXT EQU UCM+228 02553000 UCMMQEND EQU UCM+224 02554000 UCMMQPTR EQU UCM+220 02555000 UCMTRECB EQU UCM+216 02556000 UCMMNECB EQU UCM+212 02557000 UCMMNTR EQU UCM+208 02558000 UCMR9SV EQU UCM+204 02559000 UCMSAVE4 EQU UCM+140 02560000 UCMSAVE3 EQU UCM+84 02561000 UCMINCR EQU UCM+71 02562000 UCMMODEL EQU UCM+70 02563000 UCMCORE EQU UCM+69 02564000 UCMFIX EQU UCMMODE 02565000 UCMMCS EQU UCMMODE 02566000 UCMOGCE EQU UCMMODE 02567000 UCMAMFA EQU UCMMODE 02568000 UCMRSV14 EQU UCMMODE 02569000 UCMTPUTA EQU UCMMODE 02570000 UCMNOCON EQU UCMMODE 02571000 UCMRSV11 EQU UCMMODE 02572000 UCMPXA EQU UCM+64 02573000 UCMWQECB EQU UCM+52 02574000 UCMRQECB EQU UCM+48 02575000 UCMRQLM EQU UCM+45 02576000 @NM00081 EQU UCMRPYI 02577000 UCMLSTP EQU UCM+20 02578000 UCMARECB EQU UCM+16 02579000 UCMLECB EQU UCMDECB 02580000 UCMOECB EQU UCM+8 02581000 UCMAECB EQU UCM+4 02582000 UCMXECB EQU UCM 02583000 UCMGMCNT EQU UCMPRFX+158 02584000 UCMSDS2 EQU UCMPRFX+157 02585000 UCMRSV09 EQU UCMSDS1 02586000 UCMRSV08 EQU UCMSDS1 02587000 UCMRSV07 EQU UCMSDS1 02588000 UCMRSV06 EQU UCMSDS1 02589000 UCMRSV05 EQU UCMSDS1 02590000 UCMRSV04 EQU UCMSDS1 02591000 UCMSDS1B EQU UCMSDS1 02592000 UCMSDS1A EQU UCMSDS1 02593000 UCMDTINT EQU UCMPRFX+152 02594000 UCMLOGAD EQU UCMPRFX+148 02595000 UCMNPECB EQU UCMPRFX+144 02596000 UCMTPPTR EQU UCMPRFX+140 02597000 UCMDOMRT EQU UCMPRFX+136 02598000 UCMRUTCK EQU UCMPRFX+132 02599000 UCMQRTN EQU UCMPRFX+128 02600000 UCM6WD EQU UCMXSA+20 02601000 UCM5WD EQU UCMXSA+16 02602000 UCM4WD EQU UCMXSA+12 02603000 UCM3WD EQU UCMXSA+8 02604000 UCM2WD EQU UCMXSA+4 02605000 UCM1WD EQU UCMXSA 02606000 UCMRSV03 EQU UCMPRFX+102 02607000 UCMHRDRT EQU UCMPRFX+100 02608000 UCMUEXIT EQU UCMPRFX+97 02609000 UCMXCT EQU UCMPRFX+96 02610000 UCMHCUCM EQU UCMPRFX+92 02611000 UCMCMID EQU UCMPRFX+88 02612000 UCMOWTOR EQU UCMPRFX+86 02613000 UCMRSV02 EQU UCMSFLG2 02614000 UCMSYSO EQU UCMSFLG2 02615000 UCMSYSN EQU UCMSFLG2 02616000 UCMSYSM EQU UCMSFLG2 02617000 UCMSYSL EQU UCMSFLG2 02618000 UCMSYSK EQU UCMSFLG2 02619000 UCMSYSJ EQU UCMSFLG2 02620000 UCMSYSI EQU UCMSFLG2 02621000 UCMRSV35 EQU UCMSFLG1 02622000 UCMSYSG EQU UCMSFLG1 02623000 UCMSYSF EQU UCMSFLG1 02624000 UCMSYSE EQU UCMSFLG1 02625000 UCMSYSD EQU UCMSFLG1 02626000 UCMSYSC EQU UCMSFLG1 02627000 UCMSYSB EQU UCMSFLG1 02628000 UCMRSV01 EQU UCMSFLG1 02629000 UCMWTOX EQU UCMPRFX+80 02630000 UCMDOME EQU UCMPRFX+76 02631000 UCMSVR0 EQU UCMSAVE0+68 02632000 UCMSVQ0 EQU UCMSAVE0+64 02633000 UCMSVP0 EQU UCMSAVE0+60 02634000 UCMSVO0 EQU UCMSAVE0+56 02635000 UCMSVN0 EQU UCMSAVE0+52 02636000 UCMSVM0 EQU UCMSAVE0+48 02637000 UCMSVL0 EQU UCMSAVE0+44 02638000 UCMSVK0 EQU UCMSAVE0+40 02639000 UCMSVJ0 EQU UCMSAVE0+36 02640000 UCMSVI0 EQU UCMSAVE0+32 02641000 UCMSVH0 EQU UCMSAVE0+28 02642000 UCMSVG0 EQU UCMSAVE0+24 02643000 UCMSVF0 EQU UCMSAVE0+20 02644000 UCMSVE0 EQU UCMSAVE0+16 02645000 UCMSVD0 EQU UCMSAVE0+12 02646000 UCMSVC0 EQU UCMSAVE0+8 02647000 UCMSVB0 EQU UCMSAVE0+4 02648000 UCMSVA0 EQU UCMSAVE0 02649000 UCMMCENT EQU UCMPRFX 02650000 UCM2FEXT EQU UCM2EXT+12 02651000 UCM2STAA EQU UCM2STA+1 02652000 UCMRV008 EQU UCM2SFLG 02653000 UCMRSV34 EQU UCM2SFLG 02654000 UCMRSV33 EQU UCM2SFLG 02655000 UCM2WTOI EQU UCM2SFLG 02656000 UCM2DSTR EQU UCM2SFLG 02657000 UCM2DTAK EQU UCM2SFLG 02658000 UCM2SENT EQU UCM2SFLG 02659000 UCM2SDWA EQU UCM2SFLG 02660000 UCM2PST EQU UCM2EXT+4 02661000 UCM2RID EQU UCM2EXT+2 02662000 UCM2WID EQU UCM2EXT 02663000 UCBERADR EQU UCBUCS+12 02664000 UCBFCBID EQU UCBUCS+8 02665000 UCBERCNT EQU UCBUCS+7 02666000 UCBRSV51 EQU UCBUCS+6 02667000 UCBFCBPE EQU UCBFCBOP 02668000 UCBRSV49 EQU UCBFCBOP 02669000 UCBRSV48 EQU UCBFCBOP 02670000 UCBRSV47 EQU UCBFCBOP 02671000 UCBRSV46 EQU UCBFCBOP 02672000 UCBRSV45 EQU UCBFCBOP 02673000 UCBRSV44 EQU UCBFCBOP 02674000 UCBFCBO1 EQU UCBFCBOP 02675000 UCBUCSPE EQU UCBUCSOP 02676000 UCBRSV43 EQU UCBUCSOP 02677000 UCBRSV42 EQU UCBUCSOP 02678000 UCBRSV41 EQU UCBUCSOP 02679000 UCBRSV40 EQU UCBUCSOP 02680000 UCBRSV39 EQU UCBUCSOP 02681000 UCBUCSO2 EQU UCBUCSOP 02682000 UCBUCSO1 EQU UCBUCSOP 02683000 UCBUCSID EQU UCBUCS 02684000 UCBMDRBA EQU UCBMDRBF+1 02685000 UCBRV075 EQU UCBMDRBF 02686000 UCBRV074 EQU UCB3800X+32 02687000 UCBIMAGE EQU UCB3800X+28 02688000 UCBFCBNM EQU UCB3800X+24 02689000 UCBCHAR4 EQU UCB3800X+20 02690000 UCBCHAR3 EQU UCB3800X+16 02691000 UCBCHAR2 EQU UCB3800X+12 02692000 UCBCHAR1 EQU UCB3800X+8 02693000 UCBCGMID EQU UCB3800X+4 02694000 UCBBRSTA EQU UCBACTIV 02695000 UCBRV063 EQU UCBACTIV 02696000 UCBRV062 EQU UCBACTIV 02697000 UCBRV061 EQU UCBACTIV 02698000 UCBRV060 EQU UCBACTIV 02699000 UCBRV059 EQU UCBACTIV 02700000 UCBRV058 EQU UCBACTIV 02701000 UCBRV057 EQU UCBACTIV 02702000 UCBRV050 EQU UCB3800X+2 02703000 UCBCGMNO EQU UCB3800X+1 02704000 UCBRV083 EQU UCBOPTNS 02705000 UCBBRSTR EQU UCBOPTNS 02706000 UCBRV056 EQU UCBOPTNS 02707000 UCBRV055 EQU UCBOPTNS 02708000 UCBRV054 EQU UCBOPTNS 02709000 UCBRV053 EQU UCBOPTNS 02710000 UCBRV052 EQU UCBOPTNS 02711000 UCBRV051 EQU UCBOPTNS 02712000 UCBRV073 EQU UCB3540X+7 02713000 UCBRV072 EQU UCBDKBYT 02714000 UCBRV071 EQU UCBDKBYT 02715000 UCBRV070 EQU UCBDKBYT 02716000 UCBRV069 EQU UCBDKBYT 02717000 UCBRV068 EQU UCBDKBYT 02718000 UCBRV067 EQU UCBDKBYT 02719000 UCBVLVER EQU UCBDKBYT 02720000 UCBDKAMX EQU UCBDKBYT 02721000 UCBVLSER EQU UCB3540X 02722000 UCBRDATA EQU UCBOCR+4 02723000 UCBFRID EQU UCBOCR 02724000 UCBCLN EQU UCBMT+14 02725000 UCBERG EQU UCBMT+12 02726000 UCBMS EQU UCBMT+11 02727000 UCBNB EQU UCBMT+10 02728000 UCBPW EQU UCBMT+9 02729000 UCBPR EQU UCBMT+8 02730000 UCBSIO EQU UCBMT+6 02731000 UCBTW EQU UCBMT+5 02732000 UCBTR EQU UCBMT+4 02733000 UCBTWT EQU UCBMT+3 02734000 UCBTRT EQU UCBMT+2 02735000 UCBCTD EQU UCBMT 02736000 UCBWTOID EQU UCBCMEXT+17 02737000 UCBRV043 EQU UCBCMEXT+16 02738000 UCBASID EQU UCBCMEXT+14 02739000 UCBMFCNT EQU UCBCMEXT+12 02740000 UCBPMSK EQU UCBCMEXT+10 02741000 UCBCCWOF EQU UCBCMEXT+8 02742000 UCBRV041 EQU UCBCMEXT+6 02743000 UCBRV036 EQU UCBFLP1 02744000 UCBRV035 EQU UCBFLP1 02745000 UCBERLOG EQU UCBFLP1 02746000 UCBRV033 EQU UCBFLP1 02747000 UCBINHIO EQU UCBFLP1 02748000 UCBNSWAP EQU UCBFLP1 02749000 UCBSHRUP EQU UCBFLP1 02750000 UCBNSRCH EQU UCBFLP1 02751000 UCBSNSCT EQU UCBCMEXT+4 02752000 UCBHPDV EQU @NM00080 02753000 UCBHALI EQU @NM00080 02754000 UCBRSV09 EQU @NM00080 02755000 UCBRSV08 EQU @NM00080 02756000 UCBRSV07 EQU @NM00080 02757000 UCBRSV06 EQU @NM00080 02758000 UCBRSV05 EQU @NM00080 02759000 UCBRSV04 EQU @NM00080 02760000 UCBDTI EQU UCBCMEXT+2 02761000 UCBSTI EQU UCBCMEXT+1 02762000 UCBETI EQU UCBCMEXT 02763000 UCBEXTP EQU UCBEXTPT+1 02764000 UCBDDRSW EQU UCBFLC 02765000 UCBTICBT EQU UCBFLC 02766000 UCBIVRR EQU UCBFLC 02767000 UCBIVRS EQU UCBFLC 02768000 UCBITF EQU UCBFLC 02769000 UCBUDE EQU UCBFLC 02770000 UCBWAA EQU UCBFLC 02771000 UCBATTP EQU UCBFLC 02772000 UCBUNTYP EQU UCBTBYT4 02773000 UCBRSV11 EQU UCBDVCLS 02774000 UCBRSV10 EQU UCBDVCLS 02775000 UCB3CHAR EQU UCBDVCLS 02776000 UCB3UREC EQU UCBDVCLS 02777000 UCB3DISP EQU UCBDVCLS 02778000 UCB3DACC EQU UCBDVCLS 02779000 UCB3COMM EQU UCBDVCLS 02780000 UCB3TAPE EQU UCBDVCLS 02781000 UCBDVPWR EQU UCB2OPT7 02782000 UCBVLPWR EQU UCB2OPT6 02783000 UCB2OPT5 EQU UCBTBYT2 02784000 UCBRVDEV EQU UCBRWTAU 02785000 UCBRPS EQU UCBDUDN2 02786000 UCBRR EQU UCBDUDN1 02787000 UCB2OPT1 EQU UCBTBYT2 02788000 UCB2OPT0 EQU UCBTBYT2 02789000 UCB1FEA7 EQU UCBTBYT1 02790000 UCBD6250 EQU UCB1FEA6 02791000 UCBD1600 EQU UCB1FEA5 02792000 UCB1FEA4 EQU UCBTBYT1 02793000 UCB1FEA3 EQU UCBTBYT1 02794000 UCB1FEA2 EQU UCBTBYT1 02795000 UCB1FEA1 EQU UCBTBYT1 02796000 UCB1FEA0 EQU UCBTBYT1 02797000 UCBRV029 EQU UCBWGT 02798000 UCBVHRSN EQU UCBWGT 02799000 UCBVORSN EQU UCBWGT 02800000 UCBMTPXP EQU UCBWGT 02801000 UCBREW EQU UCBWGT 02802000 UCBPUB EQU UCBWGT 02803000 UCBOUT EQU UCBWGT 02804000 UCBIN EQU UCBWGT 02805000 UCBCPU EQU UCBOB+11 02806000 UCBLCI EQU UCBOB+10 02807000 UCBCNT EQU UCBOB+9 02808000 UCBRV017 EQU UCBCHM1 02809000 UCBRV016 EQU UCBCHM1 02810000 UCBRV015 EQU UCBCHM1 02811000 UCBRV014 EQU UCBCHM1 02812000 UCBSPB EQU UCBPTH1 02813000 UCBPPB EQU UCBPTH1 02814000 UCBSPA EQU UCBPTH0 02815000 UCBPPA EQU UCBPTH0 02816000 UCBSIGP EQU UCBFLB 02817000 UCBVALPH EQU UCBFLB 02818000 UCBCRHSN EQU UCBFLB 02819000 UCBCRHRV EQU UCBFLB 02820000 UCBRESVH EQU UCBFLB 02821000 UCBSPST EQU UCBFLB 02822000 UCBASNS EQU UCBFLB 02823000 UCBIORST EQU UCBFLB 02824000 UCBQISCE EQU UCBFL1 02825000 UCBACTV EQU UCBFL1 02826000 UCBSAP EQU UCBFL1 02827000 UCBNOTRC EQU UCBCUB 02828000 UCBPSNS EQU UCBFL1 02829000 UCBUSING EQU UCBPST 02830000 UCBNOTRD EQU UCBNRY 02831000 UCBBUSYD EQU UCBBSY 02832000 UCBUA EQU UCBCHAN+1 02833000 UCBCHA EQU UCBCHAN 02834000 UCBDADI EQU UCBSTAT 02835000 UCBSYSR EQU UCBSTAT 02836000 UCBPRES EQU UCBSTAT 02837000 UCBALOC EQU UCBSTAT 02838000 UCBUNLD EQU UCBSTAT 02839000 UCBRESV EQU UCBSTAT 02840000 UCBCHGS EQU UCBSTAT 02841000 UCBONLI EQU UCBSTAT 02842000 UCBID EQU UCBOB+2 02843000 UCBALTPH EQU UCBFL5 02844000 UCBALTCU EQU UCBFL5 02845000 UCBNALOC EQU UCBFL5 02846000 UCBENVRD EQU UCBFL5 02847000 UCBVSDR EQU UCBFL5 02848000 UCBSASK EQU UCBFL5 02849000 UCBAMV EQU UCBAF 02850000 UCBDCC EQU UCBFL5 02851000 UCBMONT EQU UCBJBNR 02852000 UCBRV011 EQU UCBJBNR 02853000 UCBMMSGP EQU UCBJBNR 02854000 UCBOLDSM EQU UCBJBNR 02855000 UCBRV003 EQU UCBJBNR 02856000 UCBDUC EQU UCBJBNR 02857000 UCBJES3 EQU UCBJBNR 02858000 UCBVRDEV EQU UCBJBNR 02859000 UCBCMSEG EQU UCBOB 02860000 UCBPFXND EQU UCB+512 02861000 UCBIOQ EQU UCB+508 02862000 UCBLOCK EQU UCB+504 02863000 UCBPXST EQU UCB+504 02864000 @NM00077 EQU UCB 02865000 RVT99999 EQU RVT+384 02866000 RVT0096P EQU RVT+380 02867000 RVT0095P EQU RVT+376 02868000 RVT0094P EQU RVT+372 02869000 RVT0093P EQU RVT+368 02870000 RVT0092P EQU RVT+364 02871000 RVT0091P EQU RVT+360 02872000 RVT0090P EQU RVT+356 02873000 RVT0089P EQU RVT+352 02874000 RVT0088P EQU RVT+348 02875000 RVT0087P EQU RVT+344 02876000 RVT0086P EQU RVT+340 02877000 RVT0085P EQU RVT+336 02878000 RVT0084P EQU RVT+332 02879000 RVT0083P EQU RVT+328 02880000 RVT0082P EQU RVT+324 02881000 RVT0081P EQU RVT+320 02882000 RVT0080P EQU RVT+316 02883000 RVT0079P EQU RVT+312 02884000 RVT0078P EQU RVT+308 02885000 RVT0077P EQU RVT+304 02886000 RVT0076P EQU RVT+300 02887000 RVT0075P EQU RVT+296 02888000 RVT0074P EQU RVT+292 02889000 RVT0073P EQU RVT+288 02890000 RVT0072P EQU RVT+284 02891000 RVTDTUTP EQU RVT+272 02892000 RVTDTMTP EQU RVT+268 02893000 RVT0057P EQU RVT+224 02894000 RVT0056P EQU RVT+220 02895000 RVT0055P EQU RVT+216 02896000 RVT0054P EQU RVT+212 02897000 RVT0053P EQU RVT+208 02898000 RVT0044P EQU RVT+172 02899000 RVT0043P EQU RVT+168 02900000 RVT0040P EQU RVT+156 02901000 RVT0039P EQU RVT+152 02902000 RVT0038P EQU RVT+148 02903000 RVT0037P EQU RVT+144 02904000 RVT0031P EQU RVT+120 02905000 RVT0030P EQU RVT+116 02906000 RVT0029P EQU RVT+112 02907000 RVT0020P EQU RVT+76 02908000 RVT0012P EQU RVT+44 02909000 RVT0010P EQU RVT+36 02910000 RVT0009P EQU RVT+32 02911000 RVT0008P EQU RVT+28 02912000 RVT0006P EQU RVT+20 02913000 ZZ69999 EQU ZZ6+1792 02914000 ZZ6BRB EQU ZZ6B+12 02915000 ZZ6BRC EQU ZZ6B+8 02916000 @NM00076 EQU ZZ6B+6 02917000 ZZ6BFL EQU ZZ6B+4 02918000 ZZ6BDA EQU ZZ6B 02919000 @NM00075 EQU ZZ6+540 02920000 ZZ6BUFI EQU ZZ6+536 02921000 ZZ6BUFP EQU ZZ6+532 02922000 ZZ6FILE EQU ZZ6+524 02923000 ZZ6BUFB EQU ZZ6+520 02924000 ZZ6BUFL EQU ZZ6+518 02925000 ZZ6BUFN EQU ZZ6+516 02926000 ZZ6ZZ6P EQU ZZ6+512 02927000 @NM00074 EQU ZZ6+256 02928000 ZZ6D999 EQU ZZ6D+128 02929000 @NM00073 EQU ZZ6D+116 02930000 ZZ6DCAP EQU ZZ6D+112 02931000 ZZ6DPRP EQU ZZ6D+108 02932000 ZZ6DDA2 EQU ZZ6D+104 02933000 ZZ6DDA1 EQU ZZ6D+100 02934000 @NM00072 EQU ZZ6DF 02935000 ZZ6DFSU EQU ZZ6DF 02936000 ZZ6DFST EQU ZZ6DF 02937000 ZZ6DFAB EQU ZZ6DF 02938000 ZZ6DFMP EQU ZZ6DF 02939000 ZZ6DFDU EQU ZZ6DF 02940000 ZZ6DFBS EQU ZZ6DF 02941000 ZZ6DQ2 EQU ZZ6D+88 02942000 ZZ6DQ1 EQU ZZ6D+84 02943000 ZZ6DQA9 EQU ZZ6DQA+16 02944000 @NM00071 EQU ZZ6DQA+12 02945000 ZZ6DQA2 EQU ZZ6DQA+8 02946000 ZZ6DQA1 EQU ZZ6DQA+4 02947000 @NM00070 EQU ZZ6DQA+2 02948000 ZZ6DQAT EQU ZZ6DQA 02949000 ZZ6DQA0 EQU ZZ6DQA 02950000 ZZ6DRDX EQU ZZ6D+64 02951000 ZZ6DELK EQU ZZ6D+64 02952000 ZZ6DMEM EQU ZZ6D+56 02953000 ZZ6DDT1 EQU ZZ6DDT 02954000 ZZ6DDO EQU ZZ6DD+2 02955000 ZZ6DDL EQU ZZ6DD 02956000 @NM00069 EQU ZZ6D+2 02957000 ZZ6DRID EQU ZZ6D 02958000 ZZ6RDCB EQU ZZ6 02959000 ZZ60000 EQU ZZ6 02960000 BVT99999 EQU BVT+256 02961000 BVT0064P EQU BVT+252 02962000 BVT0063P EQU BVT+248 02963000 BVT0062P EQU BVT+244 02964000 BVT0061P EQU BVT+240 02965000 BVT0060P EQU BVT+236 02966000 BVT0059P EQU BVT+232 02967000 BVT0057P EQU BVT+224 02968000 BVT0056P EQU BVT+220 02969000 BVTSTBLP EQU BVT+200 02970000 BVT0045P EQU BVT+176 02971000 BVT0044P EQU BVT+172 02972000 BVT0033P EQU BVT+128 02973000 BVT0032P EQU BVT+124 02974000 BVT0031P EQU BVT+120 02975000 BVT0030P EQU BVT+116 02976000 BVT0029P EQU BVT+112 02977000 BVT0026P EQU BVT+100 02978000 BVT0025P EQU BVT+96 02979000 BVT0024P EQU BVT+92 02980000 BVT0023P EQU BVT+88 02981000 BVT0016P EQU BVT+60 02982000 BVT0015P EQU BVT+56 02983000 BVT0014P EQU BVT+52 02984000 BVT0003P EQU BVT+8 02985000 BVT0001P EQU BVT 02986000 SA99 EQU SA+72 02987000 SARC EQU SAR+56 02988000 SARB EQU SAR+52 02989000 SARA EQU SAR+48 02990000 SAR9 EQU SAR+44 02991000 SAR8 EQU SAR+40 02992000 SAR7 EQU SAR+36 02993000 SAR6 EQU SAR+32 02994000 SAR5 EQU SAR+28 02995000 SAR4 EQU SAR+24 02996000 SAR3 EQU SAR+20 02997000 SAR2 EQU SAR+16 02998000 SAR0 EQU SAR+8 02999000 SARF EQU SAR+4 03000000 SARE EQU SAR 03001000 SAFWD EQU SA+8 03002000 SABAK EQU SA+4 03003000 SA1L EQU SA1+1 03004000 SA1P EQU SA1 03005000 UPTPREFL EQU UPT+23 03006000 UPTPREFX EQU UPT+16 03007000 @NM00068 EQU UPT+15 03008000 UPTLDEL EQU UPT+14 03009000 UPTCDEL EQU UPT+13 03010000 UPTWTP EQU UPTSWS 03011000 UPTMODE EQU UPTSWS 03012000 UPTALD EQU UPTSWS 03013000 UPTPAUS EQU UPTSWS 03014000 UPTNCOM EQU UPTSWS 03015000 UPTMID EQU UPTSWS 03016000 UPTNPRM EQU UPTSWS 03017000 UPTRCVR EQU UPTSWS 03018000 UPTUSER EQU UPT+2 03019000 @NM00067 EQU UPT 03020000 @NM00066 EQU ECT+52 03021000 @NM00065 EQU ECT+48 03022000 @NM00064 EQU ECT+44 03023000 @NM00063 EQU ECTSWS2+1 03024000 @NM00062 EQU ECTSWS21 03025000 ECTTABND EQU ECTSWS21 03026000 ECTDEFCS EQU ECTSWS21 03027000 ECTBKPB EQU ECT+36 03028000 ECTUSER EQU ECT+32 03029000 ECTDDNUM EQU ECT+29 03030000 ECTATTN EQU ECTSWS 03031000 ECTBKGRD EQU ECTSWS 03032000 ECTNNOT EQU ECTSWS 03033000 ECTNMAL EQU ECTSWS 03034000 ECTLOGF EQU ECTSWS 03035000 ECTATRM EQU ECTSWS 03036000 @NM00061 EQU ECTSWS 03037000 ECTNOPD EQU ECTSWS 03038000 ECTSCMD EQU ECT+20 03039000 ECTPCMD EQU ECT+12 03040000 ECTSMSG EQU ECT+9 03041000 ECTMSGF EQU ECT+8 03042000 ECTIOWA EQU ECT+4 03043000 ECTRTCD EQU ECT+1 03044000 ECTRCDF EQU ECT 03045000 PSCBU EQU PSCB+64 03046000 PSCBRSZ EQU PSCB+60 03047000 PSCBLINE EQU PSCB+59 03048000 PSCBCHAR EQU PSCB+58 03049000 PSCBUPTL EQU PSCB+56 03050000 PSCBUPT EQU PSCB+52 03051000 PSCBRLGB EQU PSCB+48 03052000 PSCBDEST EQU PSCB+40 03053000 @NM00060 EQU PSCB+36 03054000 @NM00059 EQU PSCB+32 03055000 @NM00058 EQU PSCB+28 03056000 PSCBLTI2 EQU PSCB+24 03057000 PSCBLTIM EQU PSCB+20 03058000 PSCBATR2 EQU PSCB+18 03059000 @NM00057 EQU PSCBATR1 03060000 @NM00056 EQU PSCBATR1 03061000 @NM00055 EQU PSCBATR1 03062000 PSCBATTN EQU PSCBATR1 03063000 PSCBVMNT EQU PSCBATR1 03064000 PSCBJCL EQU PSCBATR1 03065000 PSCBACCT EQU PSCBATR1 03066000 PSCBCTRL EQU PSCBATR1 03067000 PSCBGPNM EQU PSCB+8 03068000 PSCBUSRL EQU PSCB+7 03069000 PSCBUSER EQU PSCB 03070000 CMDT1 EQU CMDT 03071000 CMDO EQU CMD+2 03072000 CMDL EQU CMD 03073000 ZZ299999 EQU ZZ2+8192 03074000 ZZ2AXOT1 EQU ZZ2AXOT 03075000 ZZ2AXOL EQU ZZ2AXO 03076000 @NM00054 EQU ZZ2+7288 03077000 @NM00053 EQU ZZ2AMDX+4 03078000 ZZ2AMDXC EQU ZZ2AMDX 03079000 ZZ2HSD EQU ZZ2+3056 03080000 @NM00052 EQU ZZ2ES 03081000 @NM00051 EQU ZZ2+2868 03082000 ZZ2ITSEC EQU ZZ2ITSE+1 03083000 @NM00050 EQU ZZ2ITSE 03084000 ZZ2ITSEP EQU ZZ2ITSE 03085000 ZZ2ITSEW EQU ZZ2ITSE 03086000 @NM00049 EQU ZZ2ITR+20 03087000 ZZ2ITREC EQU ZZ2ITRE+1 03088000 @NM00048 EQU ZZ2ITRE 03089000 ZZ2ITREP EQU ZZ2ITRE 03090000 ZZ2ITREW EQU ZZ2ITRE 03091000 @NM00047 EQU ZZ2ITR+9 03092000 ZZ2ITRRC EQU ZZ2ITR+8 03093000 ZZ2ITR2P EQU ZZ2ITR+4 03094000 ZZ2ITRPP EQU ZZ2ITR 03095000 @NM00046 EQU ZZ2+1544 03096000 ZZ2PGM EQU ZZ2+1536 03097000 @NM00045 EQU ZZ2+1526 03098000 ZZ2CW EQU ZZ2+1524 03099000 @NM00044 EQU ZZ2+1504 03100000 @NM00043 EQU ZZ2+1352 03101000 ZZ2FFSYP EQU ZZ2+1348 03102000 ZZ2SASYP EQU ZZ2+1344 03103000 ZZ2RDSYP EQU ZZ2+1340 03104000 ZZ2RASYP EQU ZZ2+1336 03105000 ZZ2PHSYP EQU ZZ2+1332 03106000 ZZ2ESSYP EQU ZZ2+1328 03107000 ZZ200SYP EQU ZZ2+1324 03108000 ZZ2SCWP EQU ZZ2+1320 03109000 ZZ2TTLP EQU ZZ2+1316 03110000 ZZ2LOADP EQU ZZ2+1312 03111000 ZZ2VRESP EQU ZZ2+1308 03112000 ZZ2CPPLE EQU ZZ2CPPL+12 03113000 ZZ2CPPLP EQU ZZ2CPPL+8 03114000 ZZ2CPPLU EQU ZZ2CPPL+4 03115000 ZZ2VRSAP EQU ZZ2+1288 03116000 ZZ2DVTP EQU ZZ2+1276 03117000 @NM00042 EQU ZZ2+1272 03118000 @NM00041 EQU ZZ2+1268 03119000 ZZ2RPLP EQU ZZ2+1260 03120000 ZZ2TCBP EQU ZZ2+1256 03121000 @NM00040 EQU ZZ2+1252 03122000 ZZ2ZZ2P EQU ZZ2+1248 03123000 @NM00039 EQU ZZ2+1112 03124000 ZZ2FPDRP EQU ZZ2+1108 03125000 ZZ2FDSDP EQU ZZ2+1104 03126000 ZZ2APDRP EQU ZZ2+1100 03127000 ZZ2ADSDP EQU ZZ2+1096 03128000 ZZ2ENQ0P EQU ZZ2+1092 03129000 @NM00038 EQU ZZ2+1080 03130000 ZZ2MSG0P EQU ZZ2+1076 03131000 ZZ2FT25P EQU ZZ2+1072 03132000 ZZ2MSGSP EQU ZZ2+1060 03133000 ZZ2ALOCP EQU ZZ2+1056 03134000 @NM00037 EQU ZZ2+976 03135000 ZZ2TOD EQU ZZ2+968 03136000 ZZ2STGN EQU ZZ2STG+4 03137000 ZZ2STGP EQU ZZ2STG 03138000 @NM00036 EQU ZZ2+952 03139000 ZZ2SCMDE EQU ZZ2+944 03140000 ZZ2SCMDN EQU ZZ2+936 03141000 ZZ2IDENT EQU ZZ2+928 03142000 ZZ2A9999 EQU ZZ2A+656 03143000 @NM00035 EQU ZZ2A+224 03144000 @NM00034 EQU ZZ2A+220 03145000 ZZ2AQD99 EQU ZZ2AQD+60 03146000 @NM00033 EQU ZZ2AQD+56 03147000 @NM00032 EQU ZZ2AQDF 03148000 ZZ2AQDFA EQU ZZ2AQDF 03149000 ZZ2AQDIL EQU ZZ2AQD+48 03150000 ZZ2AQDIM EQU ZZ2AQD+44 03151000 ZZ2AQDT9 EQU ZZ2AQDT+34 03152000 ZZ2AQDTE EQU ZZ2AQDT+33 03153000 ZZ2AQDTD EQU ZZ2AQDT+2 03154000 @NM00031 EQU ZZ2AQDT+1 03155000 ZZ2AQDTY EQU ZZ2AQDT 03156000 ZZ2AQDT0 EQU ZZ2AQDT 03157000 ZZ2AQDLB EQU ZZ2AQD+9 03158000 ZZ2AQDOB EQU ZZ2AQD+8 03159000 ZZ2AQDLE EQU ZZ2AQD+4 03160000 ZZ2AQDOF EQU ZZ2AQD 03161000 ZZ2AQD00 EQU ZZ2AQD 03162000 ZZ2AQAS9 EQU ZZ2AQAS+16 03163000 @NM00030 EQU ZZ2AQAS+12 03164000 ZZ2AQAS2 EQU ZZ2AQAS+8 03165000 ZZ2AQAS1 EQU ZZ2AQAS+4 03166000 @NM00029 EQU ZZ2AQAS+2 03167000 ZZ2AQAST EQU ZZ2AQAS 03168000 ZZ2AQAS0 EQU ZZ2AQAS 03169000 ZZ2ADPTA EQU ZZ2ADPT 03170000 ZZ2ADPL EQU ZZ2ADP 03171000 ZZ2ADMTA EQU ZZ2ADMT 03172000 ZZ2ADML EQU ZZ2ADM 03173000 ZZ2ADDTA EQU ZZ2ADDT 03174000 ZZ2ADDL EQU ZZ2ADD 03175000 @NM00028 EQU ZZ2A+72 03176000 ZZ2APIDB EQU ZZ2APID+3 03177000 ZZ2APIDA EQU ZZ2APID 03178000 @NM00027 EQU ZZ2A+24 03179000 @NM00026 EQU ZZ2AF+5 03180000 @NM00025 EQU ZZ2AF+3 03181000 ZZ2AFS EQU ZZ2AF+2 03182000 ZZ2AFD EQU ZZ2AF+2 03183000 ZZ2AFQ EQU ZZ2AF+2 03184000 ZZ2AF$ EQU ZZ2AF+2 03185000 @NM00024 EQU ZZ2AF+2 03186000 ZZ2AFM EQU ZZ2AF+2 03187000 @NM00023 EQU ZZ2AF+2 03188000 @NM00022 EQU ZZ2AF+1 03189000 ZZ2AFV EQU ZZ2AF+1 03190000 @NM00021 EQU ZZ2AF+1 03191000 ZZ2AFC EQU ZZ2AF+1 03192000 @NM00020 EQU ZZ2AF 03193000 ZZ2AFFS EQU ZZ2AF 03194000 ZZ2AFT EQU ZZ2AF 03195000 ZZ2AFP EQU ZZ2AF 03196000 @NM00019 EQU ZZ2A+8 03197000 ZZ2ALINE EQU ZZ2A+4 03198000 @NM00018 EQU ZZ2A+3 03199000 ZZ2ASE EQU ZZ2A+2 03200000 ZZ2ACH EQU ZZ2A 03201000 @NM00017 EQU ZZ2+264 03202000 @NM00016 EQU ZZ2+263 03203000 ZZ2PRTT0 EQU ZZ2PRTT 03204000 ZZ2PRTO EQU ZZ2PRT+2 03205000 ZZ2PRTL EQU ZZ2PRT 03206000 @NM00015 EQU ZZ2AMD+56 03207000 ZZ2AMDXP EQU ZZ2AMD+52 03208000 ZZ2AMDD EQU ZZ2AMD+48 03209000 ZZ2AMDL EQU ZZ2AMD+44 03210000 ZZ2AMDU EQU ZZ2AMD+28 03211000 ZZ2AMDF EQU ZZ2AMD+24 03212000 ZZ2AMDS EQU ZZ2AMD+20 03213000 ZZ2AMDC EQU ZZ2AMD+16 03214000 ZZ2AMDP EQU ZZ2AMD+12 03215000 ZZ2AMDB EQU ZZ2AMD+8 03216000 @NM00014 EQU @NM00013 03217000 ZZ2AMD2 EQU @NM00013 03218000 ZZ2AMD1 EQU @NM00013 03219000 ZZ2AMD0 EQU ZZ2AMD+6 03220000 ZZ2AMDA EQU ZZ2AMD+4 03221000 ZZ2AMDT EQU ZZ2AMD 03222000 ZZ199999 EQU ZZ1+3072 03223000 @NM00012 EQU ZZ1+2160 03224000 ZZ1TRTAS EQU ZZ1+1904 03225000 ZZ1TRUPC EQU ZZ1+1648 03226000 ZZ1TRCTX EQU ZZ1+1392 03227000 ZZ1NASID EQU ZZ1N+274 03228000 ZZ1NSTRL EQU ZZ1N+272 03229000 ZZ1NOFF EQU ZZ1N+268 03230000 ZZ1NBDY EQU ZZ1N+264 03231000 ZZ1NADE EQU ZZ1N+260 03232000 ZZ1NADB EQU ZZ1N+256 03233000 ZZ1NSTR EQU ZZ1N 03234000 @NM00011 EQU ZZ1+1080 03235000 ZZ1TREBC EQU ZZ1+824 03236000 @NM00010 EQU ZZ1+377 03237000 ZZ1USTAE EQU ZZ1+376 03238000 @NM00009 EQU ZZ1F+1 03239000 @NM00008 EQU ZZ1F 03240000 ZZ1FM EQU ZZ1F 03241000 ZZ1FX EQU ZZ1F 03242000 ZZ1FU EQU ZZ1F 03243000 ZZ1EVEC EQU ZZ1EVE+1 03244000 @NM00007 EQU ZZ1EVE 03245000 ZZ1EVEP EQU ZZ1EVE 03246000 ZZ1EVEW EQU ZZ1EVE 03247000 ZZ1ACMP EQU ZZ1ATTN 03248000 @NM00006 EQU ZZ1+144 03249000 ZZ1FPP EQU ZZ1+140 03250000 ZZ1ZZ6P EQU ZZ1+136 03251000 @NM00005 EQU ZZ1+84 03252000 ZZ1PLINE EQU ZZ1+80 03253000 ZZ1PGSZ EQU ZZ1+76 03254000 ZZ1PCNT EQU ZZ1+72 03255000 @NM00004 EQU ZZ1+68 03256000 ZZ1TPAGE EQU ZZ1+64 03257000 ZZ1TLINE EQU ZZ1+60 03258000 @NM00003 EQU ZZ1+48 03259000 ZZ1DSDP EQU ZZ1+44 03260000 ZZ1PDRP EQU ZZ1+40 03261000 ZZ1ZZ2P EQU ZZ1+36 03262000 ZZ1327WP EQU ZZ1+32 03263000 ZZ1ACBP EQU ZZ1+28 03264000 @NM00002 EQU ZZ1+24 03265000 ZZ1PDCBP EQU ZZ1+20 03266000 ZZ1BLRBL EQU ZZ1+16 03267000 @NM00001 EQU ZZ1+12 03268000 ZZ1PNULL EQU ZZ1+8 03269000 ZZ1NULL EQU ZZ1+4 03270000 ZZ1IDE EQU ZZ1 03271000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03272000 @RT00245 EQU EXITRLSA 03273000 @RT00253 EQU EXITRLSA 03274000 @RT00259 EQU EXITRLSA 03275000 @RF00430 EQU @RC00420 03276000 @RF00437 EQU @RC00420 03277000 @ENDDATA EQU * 03278000 END BLSRCOMK,(C'PLS1523',0701,78057) 03279000