TITLE 'ISTRCC22:SEND OUTBOUND MACRO PROCESSOR *00001000 ' 00002000 ISTRCC22 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTRCC22 78.173' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * CRRPTR=ADDR(CRRSPACE); /* GET ADDR CRR */ 00013000 L @11,RPHCRR(,RPHPTR) 0373 00014000 L CRRPTR,CRACRR(,@11) 0373 00015000 LA CRRPTR,CRRSPACE(,CRRPTR) 0373 00016000 * LCPBPTR=CRRLCPB; /* GET ADDR DCLCP */ 00017000 L LCPBPTR,CRRLCPB(,CRRPTR) 0374 00018000 * RPLPTR=CRRARPL; /* GET ADDR RPL */ 00019000 L RPLPTR,CRRARPL(,CRRPTR) 0375 00020000 * FMCBPTR=CRRFMCB; /* GET ADDR FMCB */ 00021000 L FMCBPTR,CRRFMCB(,CRRPTR) 0376 00022000 * LCCWPTR=LCPNXLCW; /* GET ADDR 1ST LCCW */ 00023000 L LCCWPTR,LCPNXLCW(,LCPBPTR) 0377 00024000 * CRRMAS=''B; /* ZERO OUT MODULE AUDIT SWS */ 00025000 XC CRRMAS(8,CRRPTR),CRRMAS(CRRPTR) 0378 00026000 * CRRRM22=ON; /* SET MODULE AUDIT FOR RCC22 */ 00027000 OI CRRRM22(CRRPTR),B'01000000' 0379 00028000 * CRRRC22=ON; /* SET AUDIT TRAIL SWITCH */ 00029000 OI CRRRC22(CRRPTR),B'01000000' 0380 00030000 * IF RPLDATA=ON THEN 0381 00031000 TM RPLDATA+16(RPLPTR),B'10000000' 0381 00032000 BNO @RF00381 0381 00033000 * LCPASYN=OFF; /* CHECK IF CONTROL = DATA ? */ 00034000 NI LCPASYN(LCPBPTR),B'10111111' 0382 00035000 * ELSE /* NOT DATA SO TRANSLATE CTL. */ 00036000 */* *****************************************************************/ 00037000 */* THIS SEGMENT IS USED TO TRANSLATE THE THREE BYTE CONTROL */ 00038000 */* PARAMETER FIELD IN THE RPL INTO A ONE BYTE CONTROL 'RU'-REQUEST*/ 00039000 */* UNIT FORM FOR RECORD TRANSMISSIONS. */ 00040000 */* IT DOES THIS BY SEARCHING A TABLE WITHIN ISTRCC22 WHICH HAS THE*/ 00041000 */* CONTROL BYTE CODE MATCHED WITH THE RPL BIT SETTING IN THE RES- */ 00042000 */* PECTIVE BYTE IN THE RPL CONTROL FIELD. THIS IS DONE BY INDEX- */ 00043000 */* THROUGH AN ARRAY WHICH IS COMPOSED OF THE MASK FOR THE BYTE IN */ 00044000 */* THE RPL, THE CONTROL CODE, THE WITH/AGAINST FLOW MASK, AND THE */ 00045000 */* SYNCH/ASYNCH MASK FOR EACH RESPECTIVE CONTROL CODE IN EACH */ 00046000 */* ELEMENT OF THE ARRAY. */ 00047000 */* THE ARRAY HAS AT PRESENT A DIMENSION OF 10 ELEMENTS AND 8 */ 00048000 */* FIELDS (BYTE). */ 00049000 */* *****************************************************************/ 00050000 * 0383 00051000 * DO; 0383 00052000 B @RC00381 0383 00053000 @RF00381 DS 0H 0384 00054000 * CRRSW1=ON; /* FLAG FOR LOOP CNTRL */ 00055000 OI CRRSW1(CRRPTR),B'01000000' 0384 00056000 * DO INDXREG=ADDR(SRCHTAB) TO(ADDR(SRCHTAB)+(LENGTH(SRCHTAB)*(DIM 00057000 * (SRCHTAB)-1))) BY LENGTH(SRCHTAB) WHILE CRRSW1=ON; 0385 00058000 * 0385 00059000 LA INDXREG,SRCHTAB 0385 00060000 B @DE00385 0385 00061000 @DL00385 TM CRRSW1(CRRPTR),B'01000000' 0385 00062000 BNO @DC00385 0385 00063000 * /***********************************************************/ 00064000 * /* */ 00065000 * /* SEARCH THROUGH THE TABLE MASKING THE RPL CONTROL FIELD */ 00066000 * /* WITH THE TABLE ELEMENT FIELD(RPLMSK) UNTIL THE CORRECT */ 00067000 * /* CONTROL TYPE IS FOUND OR IF NONE IS FOUND-EXIT. */ 00068000 * /* */ 00069000 * /***********************************************************/ 00070000 * 0386 00071000 * IF RPLMSK=(RPLPTR+INDXVAL(CBYTE))->LPRCTFLD THEN 0386 00072000 SLR @11,@11 0386 00073000 IC @11,CBYTE(,INDXREG) 0386 00074000 SLA @11,2 0386 00075000 LR @02,RPLPTR 0386 00076000 AL @02,INDXVAL-4(@11) 0386 00077000 CLC RPLMSK(1,INDXREG),LPRCTFLD(@02) 0386 00078000 BNE @RF00386 0386 00079000 * DO; /* COMPARE RPLFLD WITH TABLE */ 00080000 * IF RPLSRESP=ON THEN /* IF THIS IS A RESPONSE */ 00081000 TM RPLSRESP+16(RPLPTR),B'10000000' 0388 00082000 BNO @RF00388 0388 00083000 * DO; /* SET SYN/ASYN FLAG AS SPEC */ 00084000 * IF SYNCHER1^=0 THEN 0390 00085000 CLI SYNCHER1(INDXREG),0 0390 00086000 BE @RF00390 0390 00087000 * DO; /* IS IN THE SEARCH TABLE */ 00088000 * CRRSW0=ON; 0392 00089000 OI CRRSW0(CRRPTR),B'10000000' 0392 00090000 * LCPASYN=ON; /* SET LCPB HEADER ASY */ 00091000 OI LCPASYN(LCPBPTR),B'01000000' 0393 00092000 * END; 0394 00093000 * ELSE 0395 00094000 * DO; 0395 00095000 B @RC00390 0395 00096000 @RF00390 DS 0H 0396 00097000 * CRRSW0=OFF; 0396 00098000 NI CRRSW0(CRRPTR),B'01111111' 0396 00099000 * LCPASYN=OFF; /* SET LCPB HEADER SYN */ 00100000 NI LCPASYN(LCPBPTR),B'10111111' 0397 00101000 * END; 0398 00102000 * RH1=FLOWMSK1; /* SET FLOW ACCORDINGLY */ 00103000 @RC00390 MVC RH1+4(1,LCCWPTR),FLOWMSK1(INDXREG) 0399 00104000 * END; 0400 00105000 * ELSE /* IF THIS IS A REQUEST */ 00106000 * DO; 0401 00107000 B @RC00388 0401 00108000 @RF00388 DS 0H 0402 00109000 * IF SYNCHER^=0 THEN 0402 00110000 CLI SYNCHER(INDXREG),0 0402 00111000 BE @RF00402 0402 00112000 * DO; /* SET SYN/ASYN FLAG IN CRR */ 00113000 * CRRSW0=ON; /* ACCORDING TO TABLE */ 00114000 OI CRRSW0(CRRPTR),B'10000000' 0404 00115000 * LCPASYN=ON; 0405 00116000 OI LCPASYN(LCPBPTR),B'01000000' 0405 00117000 * END; 0406 00118000 * ELSE 0407 00119000 * DO; 0407 00120000 B @RC00402 0407 00121000 @RF00402 DS 0H 0408 00122000 * CRRSW0=OFF; 0408 00123000 NI CRRSW0(CRRPTR),B'01111111' 0408 00124000 * LCPASYN=OFF; 0409 00125000 NI LCPASYN(LCPBPTR),B'10111111' 0409 00126000 * END; 0410 00127000 * RH1=FLOWMSK; /* AND SET FLOW IND. */ 00128000 @RC00402 MVC RH1+4(1,LCCWPTR),FLOWMSK(INDXREG) 0411 00129000 * END; 0412 00130000 * RC22RU=CTLCDE; /* MOVE CONTROL BYTE TO LCCW */ 00131000 @RC00388 MVC RC22RU(1,LCCWPTR),CTLCDE(INDXREG) 0413 00132000 * CRRSW1=OFF; /* INDICATE CONTROL FOUND */ 00133000 NI CRRSW1(CRRPTR),B'10111111' 0414 00134000 * END; 0415 00135000 * END; 0416 00136000 @RF00386 AL INDXREG,@CF00037 0416 00137000 @DE00385 LA @11,SRCHTAB 0416 00138000 AL @11,@CF03624 0416 00139000 CR INDXREG,@11 0416 00140000 BNH @DL00385 0416 00141000 @DC00385 DS 0H 0417 00142000 * INDXREG=INDXREG-LENGTH(SRCHTAB);/* DECREMENT INDXREG */ 00143000 SL INDXREG,@CF00037 0417 00144000 * IF CRRSW1=ON THEN /* IF NO CONTROL WAS FOUND */ 00145000 TM CRRSW1(CRRPTR),B'01000000' 0418 00146000 BNO @RF00418 0418 00147000 * DO; /* SET ERROR CODES IN THE */ 00148000 * CRRRTNCD=CRRLOGIC; /* MAJOR AND MINOR ERROR */ 00149000 MVI CRRRTNCD(CRRPTR),X'08' 0420 00150000 * CRRFDB2=CRRSDNVC; /* FIELDS IN THE CRR. */ 00151000 MVI CRRFDB2(CRRPTR),X'38' 0421 00152000 * END; 0422 00153000 * END; 0423 00154000 @RF00418 DS 0H 0424 00155000 * IF CRRRTNCD=CRRNOERR THEN /* DID XLATECTL XLATE CONTROL? */ 00156000 @RC00381 CLI CRRRTNCD(CRRPTR),X'00' 0424 00157000 BNE @RF00424 0424 00158000 * DO; /* NO ERROR IN XLATE OR DATA */ 00159000 * RFY 0426 00160000 * ISTNCB BASED(FMCDNCBA); /* @D32CKCF*/ 00161000 * RFY 0427 00162000 * ISTDEVCH BASED(ADDR(NCBDEVCH));/* @D32CKCF*/ 00163000 * IF DEVTCODE>=DEV3277&DEVTCODE<=DEV3275 THEN 0428 00164000 LA @11,36 0428 00165000 AL @11,FMCDNCBA(,FMCBPTR) 0428 00166000 CLI DEVTCODE(@11),X'19' 0428 00167000 BL @RF00428 0428 00168000 CLI DEVTCODE(@11),X'1C' 0428 00169000 BH @RF00428 0428 00170000 * DO; 0429 00171000 * 0429 00172000 */****************************************************************** */ 00173000 */* CHK 3270 */ 00174000 */* CHECK FOR VALID REQUEST OPTIONS FOR 3270 DEVICE */ 00175000 */* */ 00176000 */****************************************************************** */ 00177000 * 0430 00178000 * IF(RPLONLY=ON)& /* @D33SKXW*/ 00179000 * (RPLNFME=OFF|RPLEX=ON)&(RPLDATA=ON)&(RPLSRESP^=ON) THEN 00180000 LA @11,16 0430 00181000 ALR @11,RPLPTR 0430 00182000 TM RPLONLY(@11),B'00010000' 0430 00183000 BNO @RF00430 0430 00184000 TM RPLEX(@11),B'00000100' 0430 00185000 BNZ @GL00003 0430 00186000 TM RPLNFME(@11),B'00000010' 0430 00187000 BO @RF00430 0430 00188000 @GL00003 LA @11,16 0430 00189000 ALR @11,RPLPTR 0430 00190000 TM RPLDATA(@11),B'10000000' 0430 00191000 BNO @RF00430 0430 00192000 TM RPLSRESP(@11),B'10000000' 0430 00193000 BNO @RT00430 0430 00194000 * ; 0431 00195000 * ELSE 0432 00196000 * DO; 0432 00197000 @RF00430 DS 0H 0433 00198000 * CRRRTNCD=CRRLOGIC; 0433 00199000 MVI CRRRTNCD(CRRPTR),X'08' 0433 00200000 * CRRFDB2=CRRSINVR; 0434 00201000 MVI CRRFDB2(CRRPTR),X'3F' 0434 00202000 * END; 0435 00203000 * END; 0436 00204000 * 0436 00205000 */****************************************************************** */ 00206000 */* END CHK 3270 */ 00207000 */****************************************************************** */ 00208000 * 0437 00209000 * ELSE 0437 00210000 * ; 0437 00211000 @RF00428 DS 0H 0438 00212000 * IF CRRRTNCD=CRRNOERR THEN 0438 00213000 @RC00428 CLI CRRRTNCD(CRRPTR),X'00' 0438 00214000 BNE @RF00438 0438 00215000 * DO; 0439 00216000 * IF RPLSRESP=OFF THEN /* IS THIS A REQUEST| RESPONSE */ 00217000 LA @11,16 0440 00218000 ALR @11,RPLPTR 0440 00219000 TM RPLSRESP(@11),B'10000000' 0440 00220000 BNZ @RF00440 0440 00221000 * DO; /* STYPE = REQUEST */ 00222000 * IF RPLDATA=ON THEN /* CHECK IF DATA| CONTROL */ 00223000 TM RPLDATA(@11),B'10000000' 0442 00224000 BNO @RF00442 0442 00225000 */* *****************************************************************/ 00226000 */* THE SENDDATA SEGMENT IS USED FOR PREPARING DATA REQUESTS FOR */ 00227000 */* TRANSMISSION. IT CHECKS THE VALIDITY OF THE REQUESTS, I.E. */ 00228000 */* IF THE RESPONSE IS VALID OR MATCHES THE OUTSTANDING RESPONSE */ 00229000 */* IT ALSO SETS THE UNIQUE LCCW/RH AND LCPB/TH FIELDS FOR DATA */ 00230000 */* TRANSMISSIONS. */ 00231000 */* *****************************************************************/ 00232000 * 0443 00233000 * DO; 0443 00234000 * IF RPLEX=ON|(RPLNFME=ON&RPLRRN=OFF) THEN 0444 00235000 TM RPLEX(@11),B'00000100' 0444 00236000 BO @RT00444 0444 00237000 TM RPLNFME(@11),B'00000010' 0444 00238000 BNO @RF00444 0444 00239000 TM RPLRRN(@11),B'00000001' 0444 00240000 BZ @RT00444 0444 00241000 * GO TO PREPOST;/* @D31KKNL*/ 00242000 * ELSE 0446 00243000 * ; 0446 00244000 @RF00444 DS 0H 0447 00245000 * IF RPLSCHED=ON THEN/* POST = SCHED REQUESTED */ 00246000 TM RPLSCHED+16(RPLPTR),B'10000000' 0447 00247000 BNO @RF00447 0447 00248000 *PREPOST: 0448 00249000 * IF FMCFLGB5=ON THEN/* AND PREV SCHED NOT POSTD */ 00250000 PREPOST TM FMCFLGB5(FMCBPTR),B'00000100' 0448 00251000 BNO @RF00448 0448 00252000 * DO; /* SET ERROR IN CRR. */ 00253000 * CRRRTNCD=CRRLOGIC;/* SET LOGIC ERROR AND */ 00254000 MVI CRRRTNCD(CRRPTR),X'08' 0450 00255000 * CRRFDB2=CRRSDNP;/* PREV SCHED NOT POSTED */ 00256000 MVI CRRFDB2(CRRPTR),X'34' 0451 00257000 * END; 0452 00258000 * ELSE /* PREV SCHED POSTED */ 00259000 * GOTO RTNCD; 0453 00260000 * ELSE /* POST = RESP. */ 00261000 * IF FMCRSPLM^=0&/* RESP LIMIT=0 =>NOLIMIT */ 00262000 * FMCPSTRS>=FMCRSPLM THEN 0454 00263000 B @RC00447 0454 00264000 @RF00447 LH @11,FMCRSPLM(,FMCBPTR) 0454 00265000 N @11,@CF03645 0454 00266000 LTR @11,@11 0454 00267000 BZ @RF00454 0454 00268000 CLC FMCPSTRS(2,FMCBPTR),FMCRSPLM(FMCBPTR) 0454 00269000 BL @RF00454 0454 00270000 * DO; /* RESP. LIMIT EXCEEDED ? */ 00271000 * CRRRTNCD=CRRRLEX;/* THEN SET ERROR FOR THIS*/ 00272000 MVI CRRRTNCD(CRRPTR),X'2C' 0456 00273000 * CRRFDB2=ZBYTE;/* CONDITION. */ 00274000 MVI CRRFDB2(CRRPTR),X'00' 0457 00275000 * END; 0458 00276000 *RTNCD: 0459 00277000 * IF CRRRTNCD=CRRNOERR THEN/* CHECK IF ANY ERRORS */ 00278000 @RF00454 DS 0H 0459 00279000 @RC00447 DS 0H 0459 00280000 RTNCD CLI CRRRTNCD(CRRPTR),X'00' 0459 00281000 BNE @RF00459 0459 00282000 * DO; /* COPY CHAIN VALUE FROM RPL */ 00283000 * CALL LCCWCOMD;/* SET UP LCCWS FOR DATA */ 00284000 BAL @14,LCCWCOMD 0461 00285000 * LCCWPTR=LCPNXLCW;/* REQUEST OR RESPONSES. */ 00286000 L LCCWPTR,LCPNXLCW(,LCPBPTR) 0462 00287000 * RHQS=OFF; /* SET RH FOR REQUEST. */ 00288000 * RHDIRI=OFF; /* SET FLOW TO 'WITH'. PUT DATA 00289000 * LENGTH AND */ 00290000 NI RHQS+4(LCCWPTR),B'01101111' 0464 00291000 * LCCWPTR=ADDR(DCLLCCW2);/* ADDR. IN 2ND LCCW. */ 00292000 LA LCCWPTR,DCLLCCW2(,LCPBPTR) 0465 00293000 * LCCWCNT=RPLRLEN; 0466 00294000 L @11,RPLRLEN(,RPLPTR) 0466 00295000 STH @11,LCCWCNT(,LCCWPTR) 0466 00296000 * LCCWDATA=RPLAREA; 0467 00297000 L @11,RPLAREA(,RPLPTR) 0467 00298000 ST @11,LCCWDATA(,LCCWPTR) 0467 00299000 * CRRSW2=OFF; 0468 00300000 NI CRRSW2(CRRPTR),B'11011111' 0468 00301000 * IF RPLSCHED=ON|RPLEX=ON|(RPLNFME=ON&RPLRRN=OFF) 00302000 * THEN 0469 00303000 LA @11,16 0469 00304000 ALR @11,RPLPTR 0469 00305000 TM RPLSCHED(@11),B'10000100' 0469 00306000 BNZ @RT00469 0469 00307000 TM RPLNFME(@11),B'00000010' 0469 00308000 BNO @RF00469 0469 00309000 TM RPLRRN(@11),B'00000001' 0469 00310000 BNZ @RF00469 0469 00311000 @RT00469 DS 0H 0470 00312000 * DO; 0470 00313000 * LCPDIRPT=ON;/* TURN ON DIRECT POST 0471 00314000 * @D31KKCF*/ 00315000 OI LCPDIRPT(LCPBPTR),B'00100000' 0471 00316000 * CRRDIRPT=ON;/* FOR CHECKING AFTER TPQ TO 00317000 * TOP/ATOP @ZA32152*/ 00318000 OI CRRDIRPT(CRRPTR),B'01000000' 0472 00319000 * LCCWLSI=ON;/* SET BUF SYNCH IN LCCW 0473 00320000 * @XW0847*/ 00321000 OI LCCWLSI(LCCWPTR),B'00000100' 0473 00322000 * END; 0474 00323000 * IF RPLEX=ON|(RPLNFME=ON&RPLRRN=OFF) THEN 0475 00324000 @RF00469 LA @11,16 0475 00325000 ALR @11,RPLPTR 0475 00326000 TM RPLEX(@11),B'00000100' 0475 00327000 BO @RT00475 0475 00328000 TM RPLNFME(@11),B'00000010' 0475 00329000 BNO @RF00475 0475 00330000 TM RPLRRN(@11),B'00000001' 0475 00331000 BZ @RT00475 0475 00332000 * GO TO PREPOST2;/* @D31KKNL*/ 00333000 * ELSE 0477 00334000 * ; 0477 00335000 @RF00475 DS 0H 0478 00336000 * IF RPLSCHED=ON THEN/* IF POST = SCHED. */ 00337000 TM RPLSCHED+16(RPLPTR),B'10000000' 0478 00338000 BNO @RF00478 0478 00339000 * DO; 0479 00340000 *PREPOST2: 0480 00341000 * FMCFLGB5=ON;/* SET PREV. SCHED NOTPOSTD */ 00342000 PREPOST2 OI FMCFLGB5(FMCBPTR),B'00000100' 0480 00343000 * END; 0481 00344000 * ELSE /* POST = RESP. */ 00345000 * FMCPSTRS=FMCPSTRS+1;/* INCRMT OUTSTD 0482 00346000 * RESPONSE */ 00347000 B @RC00478 0482 00348000 @RF00478 LA @11,1 0482 00349000 LH @02,FMCPSTRS(,FMCBPTR) 0482 00350000 N @02,@CF03645 0482 00351000 ALR @11,@02 0482 00352000 STH @11,FMCPSTRS(,FMCBPTR) 0482 00353000 * CALL QTOTOPS;/* QUEUE LCPB TO 'TOP' PAB. */ 00354000 @RC00478 BAL @14,QTOTOPS 0483 00355000 * IF RCDEREG^=NOERROR THEN 0484 00356000 LTR RCDEREG,RCDEREG 0484 00357000 BZ @RF00484 0484 00358000 * DO; /* @ZA25545*/ 00359000 * IF RPLEX=ON|(RPLNFME=ON&RPLRRN=OFF) THEN 00360000 LA @11,16 0486 00361000 ALR @11,RPLPTR 0486 00362000 TM RPLEX(@11),B'00000100' 0486 00363000 BO @RT00486 0486 00364000 TM RPLNFME(@11),B'00000010' 0486 00365000 BNO @RF00486 0486 00366000 TM RPLRRN(@11),B'00000001' 0486 00367000 BZ @RT00486 0486 00368000 * GO TO PREPOST3;/* @ZA25545*/ 00369000 * ELSE 0488 00370000 * ; 0488 00371000 @RF00486 DS 0H 0489 00372000 * IF RPLSCHED=ON THEN/* IF POST = SCHED 0489 00373000 * @ZA25545*/ 00374000 TM RPLSCHED+16(RPLPTR),B'10000000' 0489 00375000 BNO @RF00489 0489 00376000 * DO; 0490 00377000 *PREPOST3: 0491 00378000 * FMCFLGB5=OFF;/* UNDO FLAG @ZA25545*/ 00379000 PREPOST3 NI FMCFLGB5(FMCBPTR),B'11111011' 0491 00380000 * END; 0492 00381000 * ELSE /* POST = RESP. @ZA25545*/ 00382000 * FMCPSTRS=FMCPSTRS-1;/* DECRMT OUTSTD 0493 00383000 * RESPONSE */ 00384000 B @RC00489 0493 00385000 @RF00489 LH @11,FMCPSTRS(,FMCBPTR) 0493 00386000 N @11,@CF03645 0493 00387000 BCTR @11,0 0493 00388000 STH @11,FMCPSTRS(,FMCBPTR) 0493 00389000 * END; /* TPQUE FAILED @ZA25545*/ 00390000 * END; 0495 00391000 * END; /* @ZA25545*/ 00392000 * ELSE /* CONTROL=> SENCTRL SEG. */ 00393000 */* *****************************************************************/ 00394000 */* THE SENDCTRL SEGMENT IS USED FOR PREPARING BOTH TYPES OF DATA */ 00395000 */* FLOW ( DFSYN,DFASY) REQUESTS. IT CHECKS FOR THE DATA FLOW */ 00396000 */* TYPE AND VALIDATES THE REQUEST AS IN SENDDATA. */ 00397000 */* *****************************************************************/ 00398000 * 0497 00399000 * DO; /* @DM13792*/ 00400000 B @RC00442 0497 00401000 @RF00442 DS 0H 0498 00402000 */* THIS ROUTINE IS RESTRUCTURED FOR PTM 3792 & DCR 4069 */ 00403000 * 0498 00404000 * IF FMCRSPLM^=0& /* NOT NO RESP LIMIT */ 00405000 * FMCPSTRS>=FMCRSPLM THEN/* IF OUTSTANDING */ 00406000 LH @11,FMCRSPLM(,FMCBPTR) 0498 00407000 N @11,@CF03645 0498 00408000 LTR @11,@11 0498 00409000 BZ @RF00498 0498 00410000 CLC FMCPSTRS(2,FMCBPTR),FMCRSPLM(FMCBPTR) 0498 00411000 BL @RF00498 0498 00412000 * DO; /* >= RESP LIM. */ 00413000 * CRRRTNCD=CRRRLEX;/* SET MAJOR RTN CD */ 00414000 MVI CRRRTNCD(CRRPTR),X'2C' 0500 00415000 * CRRFDB2=ZBYTE; 0501 00416000 MVI CRRFDB2(CRRPTR),X'00' 0501 00417000 * END; 0502 00418000 * ELSE 0503 00419000 * DO; 0503 00420000 B @RC00498 0503 00421000 @RF00498 DS 0H 0504 00422000 * CALL LCCWCOMC;/* SET UP LCCW */ 00423000 * 0504 00424000 BAL @14,LCCWCOMC 0504 00425000 * /*********************************************/ 00426000 * /* */ 00427000 * /* ON RETURN R10 HAS LCCW@ */ 00428000 * /* */ 00429000 * /*********************************************/ 00430000 * 0505 00431000 * LCCWLSI=OFF;/* NO SYNCH IN LCCW @DM13792*/ 00432000 NI LCCWLSI(LCCWPTR),B'11111011' 0505 00433000 * RHQS=OFF; /* SET RH TO REQ */ 00434000 LA @11,4 0506 00435000 ALR @11,LCCWPTR 0506 00436000 NI RHQS(@11),B'01111111' 0506 00437000 * RHFME=ON; /* @D31KKAX*/ 00438000 OI RHFME(@11),B'10000000' 0507 00439000 * IF CRRSW0=OFF THEN/* DFSYN */ 00440000 TM CRRSW0(CRRPTR),B'10000000' 0508 00441000 BNZ @RF00508 0508 00442000 * CRRSW2=OFF;/* SET TOP IND. */ 00443000 NI CRRSW2(CRRPTR),B'11011111' 0509 00444000 * ELSE 0510 00445000 * DO; /* DFASY */ 00446000 B @RC00508 0510 00447000 @RF00508 DS 0H 0511 00448000 * IF FMCFLGB4=ON THEN 0511 00449000 TM FMCFLGB4(FMCBPTR),B'00001000' 0511 00450000 BNO @RF00511 0511 00451000 * DO; /* CONTROL OUTSTD */ 00452000 * CRRRTNCD=CRRLOGIC;/* @D32CKAX*/ 00453000 MVI CRRRTNCD(CRRPTR),X'08' 0513 00454000 * CRRFDB2=CRRSDNP;/* @D32CKAX*/ 00455000 MVI CRRFDB2(CRRPTR),X'34' 0514 00456000 * END; 0515 00457000 * ELSE 0516 00458000 * CRRSW2=ON;/* SET ATOP IND. */ 00459000 B @RC00511 0516 00460000 @RF00511 OI CRRSW2(CRRPTR),B'00100000' 0516 00461000 * END; 0517 00462000 @RC00511 DS 0H 0518 00463000 * IF CRRRTNCD=ZBYTE THEN/* NO ERROR @DM13792*/ 00464000 @RC00508 CLI CRRRTNCD(CRRPTR),0 0518 00465000 BNE @RF00518 0518 00466000 * DO; 0519 00467000 * IF CRRSW0=ON THEN 0520 00468000 TM CRRSW0(CRRPTR),B'10000000' 0520 00469000 BNO @RF00520 0520 00470000 * FMCFLGB4=ON;/* @ZA25545*/ 00471000 OI FMCFLGB4(FMCBPTR),B'00001000' 0521 00472000 * FMCPSTRS=FMCPSTRS+1;/* INCR RESP OUTS 0522 00473000 * @ZA25545*/ 00474000 @RF00520 LA @11,1 0522 00475000 LH @02,FMCPSTRS(,FMCBPTR) 0522 00476000 N @02,@CF03645 0522 00477000 ALR @11,@02 0522 00478000 STH @11,FMCPSTRS(,FMCBPTR) 0522 00479000 * CALL QTOTOPS;/* QUEUE LCPB */ 00480000 * 0523 00481000 BAL @14,QTOTOPS 0523 00482000 * /*****************************************/ 00483000 * /* */ 00484000 * /* EXPECT QTOTOP RETURN A CODE OF NONZERO*/ 00485000 * /* IF TPQUE FAILS */ 00486000 * /* */ 00487000 * /*****************************************/ 00488000 * 0524 00489000 * IF RCDEREG^=NOERROR THEN/* @ZA25545*/ 00490000 LTR RCDEREG,RCDEREG 0524 00491000 BZ @RF00524 0524 00492000 * DO; /* TPQUE FAILED RESET FLAGS 0525 00493000 * @ZA25545*/ 00494000 * IF CRRSW0=ON THEN 0526 00495000 TM CRRSW0(CRRPTR),B'10000000' 0526 00496000 BNO @RF00526 0526 00497000 * FMCFLGB4=OFF;/* @ZA25545*/ 00498000 NI FMCFLGB4(FMCBPTR),B'11110111' 0527 00499000 * FMCPSTRS=FMCPSTRS-1;/* DECR RESP OUTS 00500000 * @ZA25545*/ 00501000 @RF00526 LH @11,FMCPSTRS(,FMCBPTR) 0528 00502000 N @11,@CF03645 0528 00503000 BCTR @11,0 0528 00504000 STH @11,FMCPSTRS(,FMCBPTR) 0528 00505000 * END; 0529 00506000 * END; 0530 00507000 * END; 0531 00508000 *ENDSENDC: 0532 00509000 * END; /* @D32CKAX*/ 00510000 * END; 0533 00511000 * ELSE /* STYPE ^= REQ => RESP SEG */ 00512000 */* *****************************************************************/ 00513000 */* SENDRESP IS USED FOR PREPARING ALL TYPES OF RESPONSES FOR */ 00514000 */* TRANSMISSION. IT CHECKS IF THE RESPONSE TO BE SENT IS THE */ 00515000 */* CORRECT ONE,WHETHER IT IS TO GO WITH/AGAINST THE */ 00516000 */* DATA FLOW, AND IT SETS UP THE UNIQUE FIELDS IN THE LCCW/RH AND */ 00517000 */* THE LCPB/TH FOR RESPONSES. */ 00518000 */* *****************************************************************/ 00519000 * 0534 00520000 * DO; 0534 00521000 * 0534 00522000 B @RC00440 0534 00523000 @RF00440 DS 0H 0535 00524000 * /*****************************************************/ 00525000 * /* */ 00526000 * /* THE DIRECT POST IS FOR FATH PATH */ 00527000 * /* */ 00528000 * /*****************************************************/ 00529000 * 0535 00530000 * LCPDIRPT=ON; /* TURN ON DIRECT POST @XW0863*/ 00531000 OI LCPDIRPT(LCPBPTR),B'00100000' 0535 00532000 * CRRDIRPT=ON; /* FOR CHECKING AFTER TPQ TO 0536 00533000 * TPIOS @ZA32152*/ 00534000 OI CRRDIRPT(CRRPTR),B'01000000' 0536 00535000 * IF RPLDATA=ON THEN /* CONTROL = DATA? */ 00536000 TM RPLDATA+16(RPLPTR),B'10000000' 0537 00537000 BNO @RF00537 0537 00538000 * DO; /* YES- CHECK SEQ */ 00539000 *SENDLCCW: /* @D31KKNL*/ 00540000 * CALL LCCWCOMD; /* BUILD LCCWS */ 00541000 SENDLCCW BAL @14,LCCWCOMD 0539 00542000 * IF RPLRRN=OFF&RPLNFME=ON THEN 0540 00543000 TM RPLNFME+16(RPLPTR),B'00000010' 0540 00544000 BNO @RF00540 0540 00545000 TM RPLRRN+16(RPLPTR),B'00000001' 0540 00546000 BNZ @RF00540 0540 00547000 * DO; 0541 00548000 * CRRRTNCD=CRRLOGIC;/* @D31KKNL*/ 00549000 MVI CRRRTNCD(CRRPTR),X'08' 0542 00550000 * CRRFDB2=CRRSDEX;/* @D31KKNL*/ 00551000 MVI CRRFDB2(CRRPTR),X'33' 0543 00552000 * GO TO ENDSRESP;/* @D31KKNL*/ 00553000 B ENDSRESP 0544 00554000 * END; 0545 00555000 * ELSE 0546 00556000 * ; 0546 00557000 @RF00540 DS 0H 0547 00558000 * IF RPLEX=ON THEN/* IF EXCEPTION */ 00559000 TM RPLEX+16(RPLPTR),B'00000100' 0547 00560000 BNO @RF00547 0547 00561000 * DO; /* RESP THEN */ 00562000 * LCCWPTR=LCPNXLCW;/* @ IST LCCW */ 00563000 L LCCWPTR,LCPNXLCW(,LCPBPTR) 0549 00564000 * RHSENSE=ON; /* TURN ON SENSE */ 00565000 LA @11,4 0550 00566000 LR @02,LCCWPTR 0550 00567000 ALR @02,@11 0550 00568000 OI RHSENSE(@02),B'00000100' 0550 00569000 * LCCWPTR=ADDR(DCLLCCW2);/* @ 2ND LCCW SET UP 00570000 * SECOND LCCW */ 00571000 LA LCCWPTR,DCLLCCW2(,LCPBPTR) 0551 00572000 * LCCWCNT=FOUR;/* SET COUNT = 4 */ 00573000 STH @11,LCCWCNT(,LCCWPTR) 0552 00574000 * LCCWIDAT=ON;/* IMMED DATA=ON */ 00575000 OI LCCWIDAT(LCCWPTR),B'00001000' 0553 00576000 * IMMDATA1=RPLSSNSO;/* MOVE IMMED */ 00577000 MVC IMMDATA1(2,LCCWPTR),RPLSSNSO(RPLPTR) 0554 00578000 * IMMDATA2=RPLUSNSO;/* DATA FROM RPL */ 00579000 LH @11,RPLUSNSO(,RPLPTR) 0555 00580000 N @11,@CF03645 0555 00581000 STH @11,IMMDATA2(,LCCWPTR) 0555 00582000 * LCCWLSI=ON; /* SET BUF SYNCH */ 00583000 OI LCCWLSI(LCCWPTR),B'00000100' 0556 00584000 * END; 0557 00585000 * ELSE /* NOT EX RESP */ 00586000 * DO; 0558 00587000 B @RC00547 0558 00588000 @RF00547 DS 0H 0559 00589000 * LCCWPTR=LCPNXLCW;/* GET ADDR LCCW 1 */ 00590000 L LCCWPTR,LCPNXLCW(,LCPBPTR) 0559 00591000 * LCCWLSI=ON; /* SET BUF SYNCH */ 00592000 * LCCWCD=OFF; /* NO DATA CHAIN */ 00593000 OI LCCWLSI(LCCWPTR),B'00000100' 0561 00594000 NI LCCWCD(LCCWPTR),B'01111111' 0561 00595000 * END; 0562 00596000 * LCCWPTR=LCPNXLCW;/* GET ADDR 1ST LCCW */ 00597000 @RC00547 L LCCWPTR,LCPNXLCW(,LCPBPTR) 0563 00598000 * RHDIRI=ON; /* SET DIR IN RH */ 00599000 OI RHDIRI+4(LCCWPTR),B'00010000' 0564 00600000 * END; 0565 00601000 * ELSE /* CONTROL ^= DATA */ 00602000 * DO; /* CHECK IF CONTROL */ 00603000 B @RC00537 0566 00604000 @RF00537 DS 0H 0567 00605000 * CALL LCCWCOMC; /* BUILD LCCWS AND */ 00606000 BAL @14,LCCWCOMC 0567 00607000 * IF RHSENSE=ON THEN 0568 00608000 TM RHSENSE+4(LCCWPTR),B'00000100' 0568 00609000 BNO @RF00568 0568 00610000 * DO; /* EX RESP? */ 00611000 * LCCWPTR=ADDR(DCLLCCW2);/* TURN ON LCCW */ 00612000 LA LCCWPTR,DCLLCCW2(,LCPBPTR) 0570 00613000 * LCCWLSI=ON; /* BUF SYNCH IN */ 00614000 OI LCCWLSI(LCCWPTR),B'00000100' 0571 00615000 * END; /* 2ND LCCW */ 00616000 * ELSE 0573 00617000 * DO; 0573 00618000 B @RC00568 0573 00619000 @RF00568 DS 0H 0574 00620000 * LCCWPTR=LCPNXLCW;/* TURN ON LCCW */ 00621000 L LCCWPTR,LCPNXLCW(,LCPBPTR) 0574 00622000 * LCCWLSI=ON; /* BUF SYNCH IN */ 00623000 OI LCCWLSI(LCCWPTR),B'00000100' 0575 00624000 * END; /* 1ST LCCW */ 00625000 * END; 0577 00626000 @RC00568 DS 0H 0578 00627000 * LCPFOSN=RPLSEQNO; /* PUT SEQNO IN LCPB */ 00628000 @RC00537 LH @11,RPLSEQNO+60(,RPLPTR) 0578 00629000 N @11,@CF03645 0578 00630000 STH @11,LCPFOSN(,LCPBPTR) 0578 00631000 * LCCWPTR=LCPNXLCW; /* ADDR 1ST LCCW */ 00632000 L LCCWPTR,LCPNXLCW(,LCPBPTR) 0579 00633000 * RHQS=ON; /* SET RQ|RSP TO RSP */ 00634000 OI RHQS+4(LCCWPTR),B'10000000' 0580 00635000 * CRRSW2=ON; /* INDICATE ATOP PAB */ 00636000 OI CRRSW2(CRRPTR),B'00100000' 0581 00637000 * FMCFLGB5=ON; /* @ZA25545*/ 00638000 OI FMCFLGB5(FMCBPTR),B'00000100' 0582 00639000 * IF RPLDATA=ON|RPLEX=ON THEN 0583 00640000 LA @11,16 0583 00641000 ALR @11,RPLPTR 0583 00642000 TM RPLDATA(@11),B'10000000' 0583 00643000 BO @RT00583 0583 00644000 TM RPLEX(@11),B'00000100' 0583 00645000 BNO @RF00583 0583 00646000 @RT00583 DS 0H 0584 00647000 * DO; /* CONTROL = DATA @ZA25545*/ 00648000 * CRRRVCR1=FMCMODEB;/* SAVE RESP OUTSTANDING 0585 00649000 * @ZA25545*/ 00650000 MVC CRRRVCR1(1,CRRPTR),FMCMODEB(FMCBPTR) 0585 00651000 * FMCRESOT=OFF; /* SET RESP OUTSTANDING OFF 0586 00652000 * @ZA25545*/ 00653000 NI FMCRESOT(FMCBPTR),B'11111011' 0586 00654000 * END; /* CONTROL = DATA @ZA25545*/ 00655000 * CALL QTOTOPS; /* QUEUE TO ATOP PAB */ 00656000 @RF00583 BAL @14,QTOTOPS 0588 00657000 * IF RCDEREG^=NOERROR THEN 0589 00658000 LTR RCDEREG,RCDEREG 0589 00659000 BZ @RF00589 0589 00660000 * DO; /* TPQUE FAILED @ZA25545*/ 00661000 * FMCFLGB5=OFF; /* @ZA25545*/ 00662000 NI FMCFLGB5(FMCBPTR),B'11111011' 0591 00663000 * IF RPLDATA=ON|RPLEX=ON THEN/* CONTROL = DATA 0592 00664000 * @ZA25545*/ 00665000 LA @11,16 0592 00666000 ALR @11,RPLPTR 0592 00667000 TM RPLDATA(@11),B'10000000' 0592 00668000 BO @RT00592 0592 00669000 TM RPLEX(@11),B'00000100' 0592 00670000 BNO @RF00592 0592 00671000 @RT00592 DS 0H 0593 00672000 * FMCMODEB=CRRRVCR1;/* RESTORE FLAGS @ZA25545*/ 00673000 MVC FMCMODEB(1,FMCBPTR),CRRRVCR1(CRRPTR) 0593 00674000 * END; 0594 00675000 @RF00592 DS 0H 0595 00676000 *ENDSRESP: 0595 00677000 * END; 0595 00678000 @RF00589 DS 0H 0595 00679000 ENDSRESP DS 0H 0596 00680000 * END; /* ENDDO FOR SEC GOOD RTN CODE */ 00681000 @RC00440 DS 0H 0597 00682000 * END; /* ENDDO FOR FST GOOD RTN CODE */ 00683000 @RF00438 DS 0H 0598 00684000 */*TPESC */ 00685000 * 0598 00686000 * DO; 0598 00687000 @RF00424 DS 0H 0599 00688000 * DCL 0599 00689000 * GPR15F FIXED(31) REG(15); 0599 00690000 * DCL 0600 00691000 * GPR15P PTR(31) REG(15); 0600 00692000 * 0600 00693000 */* ATBUILD (ISTDYPAB,ISTAVT,ISTATCVT) */ 00694000 * 0601 00695000 */* VTAM ADDRESS VECTOR TABLE */ 0601 00696000 */* REVISIONS 002 03/06/75 */ 00697000 *DCL 1 ISTAVT BDY(WORD) BASED, 0601 00698000 * 2 ISTACVT PTR(31), /* ADDR OF VTAM CVT */ 00699000 * 2 ISTAS49 PTR(31), /* ADDR OF SVC 49 CODE */ 00700000 * 3 ISTAHIP BIT(1), /* HALT IN PROGRESS */ 00701000 * 2 ISTAS53 PTR(31), /* ADDR OF SVC 53 CODE */ 00702000 * 2 ISTAPSTA PTR(31), /* ADDR OF APS TABLE */ 00703000 * 2 AVTASID FIXED(15), /* VTAM ASID */ 00704000 * 2 ISTVTTIK FIXED(15), /* VTAMRP TASK ID */ 00705000 * 2 ISTAPSEX PTR(31), /* ADDR OF APS EXIT */ 00706000 * 2 ISTPHNM CHAR(5), /* PHASE NAME OF TRANSIENT */ 00707000 * 2 ISTX1 CHAR(1), /* TEST FIELD */ 00708000 * 2 ISTARID PTR(15), /* ADDR OF RID */ 00709000 * 2 ISTATRT PTR(15), /* ADDR OF VTAM GATES IN RETAB*/ 00710000 * 2 ISTAGTWT PTR(15), /* ADDR OF GATEWAIT ROUTINE */ 00711000 * 2 ISTVTTP PTR(15), /* ADDR OF CODE TO CHECK FOR */ 00712000 * /* PENDING TIMER INTERRUPT */ 00713000 * 2 ISTAVR01 CHAR(2), /* RESERVED */ 00714000 * 2 ISTPDAVP PTR(31); /* VECTOR FOR PDAIDS SMS TRACE*/ 00715000 * 0602 00716000 */* END OF ATBUILD */ 00717000 * 0602 00718000 * RFY 0602 00719000 * GPR15P RSTD; 0602 00720000 * DO; /* LISATCVT 0603 00721000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00722000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00723000 L GPR15P,ATCLCPTR 0604 00724000 * END; /* LISATCVT */ 00725000 * GPR15P=GPR15P->ATCESC01; 0606 00726000 L GPR15P,ATCESC01(,GPR15P) 0606 00727000 * DCL 0607 00728000 * FMZL0004 BASED(GPR15P) LABEL VALUERANGE(*); 0607 00729000 * CALL FMZL0004; 0608 00730000 BALR @14,@15 0608 00731000 * RESPECIFY 0609 00732000 * GPR15P UNRSTD; 0609 00733000 * END; /* **** END OF TPESC END OF MAIN 00734000 * RTN. */ 00735000 *LCCWCOMC: 0611 00736000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,PARMREG); 0611 00737000 * 0611 00738000 B @PB00002 0611 00739000 LCCWCOMC DS 0H 0612 00740000 * /*****************************************************************/ 00741000 * /* */ 00742000 * /* THIS SUBROUTINE IS USED TO SET UP THE COMMON FIELDS IN THE */ 00743000 * /* FIRST, SECOND, AND THIRD LCCW/RH FOR CONTROL REQUESTS AND */ 00744000 * /* RESPONSES. */ 00745000 * /* */ 00746000 * /*****************************************************************/ 00747000 * 0612 00748000 * LCCWOP=LSEND; /* PUT SEND OP CODE IN LCCW */ 00749000 MVI LCCWOP(LCCWPTR),X'F1' 0612 00750000 * RHSENSE=OFF; /* SET SENSE NOT INCLUDED */ 00751000 NI RHSENSE+4(LCCWPTR),B'11111011' 0613 00752000 * IF RPLSRESP=OFF THEN /* STYPE = REQUEST IN RPL */ 00753000 LA @11,16 0614 00754000 ALR @11,RPLPTR 0614 00755000 TM RPLSRESP(@11),B'10000000' 0614 00756000 BNZ @RF00614 0614 00757000 * IF RPLLUS=ON|RPLSIGNL=ON THEN 0615 00758000 TM RPLLUS(@11),B'00110000' 0615 00759000 BZ @RF00615 0615 00760000 * DO; /* CONT LUS OR SIGNAL @D32CKAX*/ 00761000 * LCCWCNT=THREE; /* SET FIRST LCCW CNT=3 */ 00762000 MVC LCCWCNT(2,LCCWPTR),@CH00134 0617 00763000 * LCCWCD=ON; /* SET CHAIN DATA, NO CHAIN */ 00764000 * LCCWCC=OFF; /* COMMAND AND IMMEDIATE */ 00765000 * LCCWIDAT=ON; /* DATA IN 1ST LCCW */ 00766000 OI LCCWCD(LCCWPTR),B'10001000' 0620 00767000 NI LCCWCC(LCCWPTR),B'10111111' 0620 00768000 * LCCWPTR=ADDR(DCLLCCW2); /* POINT TO 2ND LCCW */ 00769000 LA LCCWPTR,DCLLCCW2(,LCPBPTR) 0621 00770000 * LCCWCD=OFF; /* SET NO CHAIN DATA, NO */ 00771000 * LCCWCC=OFF; /* CHAIN COMMAND,NO IMMEDIATE */ 00772000 * LCCWNTVC=ON; /* TURN ON VALCHECK FLAG */ 00773000 * LCCWIDAT=OFF; /* DATA IN 2ND LCCW */ 00774000 OI LCCWNTVC(LCCWPTR),B'00010000' 0625 00775000 NI LCCWCD(LCCWPTR),B'00110111' 0625 00776000 * LCCWDATA=ADDR(DCLLCCW3); /* @ 3RD LCCW IN 2ND LCCW */ 00777000 LA @02,DCLLCCW3(,LCPBPTR) 0626 00778000 ST @02,LCCWDATA(,LCCWPTR) 0626 00779000 * LCCWCNT=FIVE; /* SET CNT TO 5 IN 2ND LCCW */ 00780000 MVC LCCWCNT(2,LCCWPTR),@CH00122 0627 00781000 * DCLLCCW3(1)=CTLCDE; /* MOVE CTL BYTE TO 3RD LCCW */ 00782000 MVC DCLLCCW3(1,LCPBPTR),CTLCDE(INDXREG) 0628 00783000 * IF RPLLUS=ON THEN /* CONT=LUS @D32CKAX*/ 00784000 TM RPLLUS(@11),B'00100000' 0629 00785000 BNO @RF00629 0629 00786000 * DCLLCCW3(2:5)=RPLOSENS; /* MOVE SENSE TO 3RD LCCW */ 00787000 MVC DCLLCCW3+1(4,LCPBPTR),RPLOSENS(RPLPTR) 0630 00788000 * ELSE 0631 00789000 * DCLLCCW3(2:5)=RPLSIGDA; /* CONT=SIGNAL @D32CKAX*/ 00790000 B @RC00629 0631 00791000 @RF00629 MVC DCLLCCW3+1(4,LCPBPTR),RPLSIGDA(RPLPTR) 0631 00792000 * END; 0632 00793000 * ELSE 0633 00794000 * DO; 0633 00795000 B @RC00615 0633 00796000 @RF00615 DS 0H 0634 00797000 * LCCWCNT=FOUR; /* SET 1ST LCCW COUNT = 4 */ 00798000 MVC LCCWCNT(2,LCCWPTR),@CH00035 0634 00799000 * LCCWCD=OFF; /* SET NO CHAIN DATA, NO */ 00800000 * LCCWCC=OFF; /* CHAIN COMMAND, & IMMEDIATE */ 00801000 * LCCWIDAT=ON; /* DATA IN 1ST LCCW */ 00802000 OI LCCWIDAT(LCCWPTR),B'00001000' 0637 00803000 NI LCCWCD(LCCWPTR),B'00111111' 0637 00804000 * END; 0638 00805000 * ELSE 0639 00806000 * IF RPLEX=ON THEN 0639 00807000 B @RC00614 0639 00808000 @RF00614 TM RPLEX+16(RPLPTR),B'00000100' 0639 00809000 BNO @RF00639 0639 00810000 * DO; /* RESPOND = EX IN RPL? */ 00811000 * LCCWCNT=THREE; /* 1ST LCCW COUNT = THREE */ 00812000 MVC LCCWCNT(2,LCCWPTR),@CH00134 0641 00813000 * LCCWCD=ON; /* SET CHAIN DATA,NO CHAIN */ 00814000 * LCCWCC=OFF; /* COMMAND AND IMMEDIATE */ 00815000 * LCCWIDAT=ON; /* IN 1ST LCCW */ 00816000 OI LCCWCD(LCCWPTR),B'10001000' 0644 00817000 NI LCCWCC(LCCWPTR),B'10111111' 0644 00818000 * RHSENSE=ON; /* SET SENSE INCLUDED */ 00819000 OI RHSENSE+4(LCCWPTR),B'00000100' 0645 00820000 * LCCWPTR=ADDR(DCLLCCW2); /* POINT TO 2ND LCCW */ 00821000 LA LCCWPTR,DCLLCCW2(,LCPBPTR) 0646 00822000 * LCCWCD=OFF; /* SET NO CHAIN DATA, NO */ 00823000 * LCCWCC=OFF; /* CHAIN COMMAND & NO */ 00824000 * LCCWNTVC=ON; /* TURN ON VALCHECK FLAG */ 00825000 * LCCWIDAT=OFF; /* IMMEDIATE DATA IN 2ND LCCW */ 00826000 OI LCCWNTVC(LCCWPTR),B'00010000' 0650 00827000 NI LCCWCD(LCCWPTR),B'00110111' 0650 00828000 * LCCWDATA=ADDR(DCLLCCW3); /* @ 3RD LCCW IN 2ND LCCW */ 00829000 LA @11,DCLLCCW3(,LCPBPTR) 0651 00830000 ST @11,LCCWDATA(,LCCWPTR) 0651 00831000 * LCCWCNT=FIVE; /* SET COUNT = FIVE */ 00832000 MVC LCCWCNT(2,LCCWPTR),@CH00122 0652 00833000 * DCLLCCW3(1:4)=RPLOSENS; /* MOVE RPL SENSE TO 3RD LCCW */ 00834000 MVC DCLLCCW3(4,LCPBPTR),RPLOSENS(RPLPTR) 0653 00835000 * DCLLCCW3(5)=CTLCDE; /* MOVE CTL BYTE TO 3RD LCCW */ 00836000 MVC DCLLCCW3+4(1,LCPBPTR),CTLCDE(INDXREG) 0654 00837000 * END; 0655 00838000 * ELSE 0656 00839000 * DO; 0656 00840000 B @RC00639 0656 00841000 @RF00639 DS 0H 0657 00842000 * LCCWCNT=FOUR; /* SET 1ST LCCW COUNT = 4 */ 00843000 MVC LCCWCNT(2,LCCWPTR),@CH00035 0657 00844000 * LCCWCD=OFF; /* SET NO CHAIN DATA, NO */ 00845000 * LCCWCC=OFF; /* CHAIN COMMAND, & IMMEDIATE */ 00846000 * LCCWIDAT=ON; /* DATA IN 1ST LCCW */ 00847000 OI LCCWIDAT(LCCWPTR),B'00001000' 0660 00848000 NI LCCWCD(LCCWPTR),B'00111111' 0660 00849000 * END; 0661 00850000 * 0661 00851000 * /*****************************************************************/ 00852000 * /* */ 00853000 * /* SET UP FIRST RH BYTE IN 1ST LCCW */ 00854000 * /* */ 00855000 * /*****************************************************************/ 00856000 * 0662 00857000 * LCCWPTR=LCPNXLCW; /* POINT TO FIRST LCCW */ 00858000 @RC00639 DS 0H 0662 00859000 @RC00614 L LCCWPTR,LCPNXLCW(,LCPBPTR) 0662 00860000 * RHTYPE=ON; /* SET RHTYPE = CONTROL */ 00861000 * RHFORMAT=ON; /* SET FORMAT ON */ 00862000 LA @11,4 0664 00863000 ALR @11,LCCWPTR 0664 00864000 OI RHTYPE(@11),B'01001000' 0664 00865000 * RHCHAIN=RHONLY; /* SET CHAIN VALUE TO ONLY RHDIRI 00866000 * SET BY XLATECTL RHTYPE LEFT 0665 00867000 * OFF => CONTROL RHSCI NEVER SET 00868000 * HERE */ 00869000 * 0665 00870000 OI RHCHAIN(@11),B'00000011' 0665 00871000 * /*****************************************************************/ 00872000 * /* */ 00873000 * /* SET UP SECOND RH BYTE */ 00874000 * /* */ 00875000 * /*****************************************************************/ 00876000 * 0666 00877000 * RHPE=OFF; 0666 00878000 NI RHPE(@11),B'10111111' 0666 00879000 * RH2(1:4)='0000'B; /* @DM12589*/ 00880000 NI RH2(@11),B'00001111' 0667 00881000 * IF RPLSRESP=ON THEN 0668 00882000 LA @02,16 0668 00883000 ALR @02,RPLPTR 0668 00884000 TM RPLSRESP(@02),B'10000000' 0668 00885000 BNO @RF00668 0668 00886000 * DO; /* @DM13286*/ 00887000 * IF RPLNFME=OFF THEN 0670 00888000 TM RPLNFME(@02),B'00000010' 0670 00889000 BNZ @RF00670 0670 00890000 * RHFME=ON; /* @DM12589*/ 00891000 OI RHFME(@11),B'10000000' 0671 00892000 * IF RPLRRN=ON THEN 0672 00893000 @RF00670 TM RPLRRN+16(RPLPTR),B'00000001' 0672 00894000 BNO @RF00672 0672 00895000 * RHRRN=ON; /* THE RESPONSE SETTING IN THE */ 00896000 OI RHRRN+4(LCCWPTR),B'00100000' 0673 00897000 * IF RPLEX=ON THEN 0674 00898000 @RF00672 TM RPLEX+16(RPLPTR),B'00000100' 0674 00899000 BNO @RF00674 0674 00900000 * RHEXCEPT=ON; /* RPL ARE COPIED TO THE RH */ 00901000 OI RHEXCEPT+4(LCCWPTR),B'00010000' 0675 00902000 * IF RHFME=OFF&RHRRN=OFF THEN 0676 00903000 @RF00674 LA @11,4 0676 00904000 ALR @11,LCCWPTR 0676 00905000 TM RHFME(@11),B'10100000' 0676 00906000 BNZ @RF00676 0676 00907000 * RHEXCEPT=OFF; /* @D31KKNL*/ 00908000 NI RHEXCEPT(@11),B'11101111' 0677 00909000 * END; /* @DM13286*/ 00910000 * ELSE 0679 00911000 * RHFME=ON; /* @DM13286*/ 00912000 * 0679 00913000 B @RC00668 0679 00914000 @RF00668 OI RHFME+4(LCCWPTR),B'10000000' 0679 00915000 * /*****************************************************************/ 00916000 * /* */ 00917000 * /* COPY THIRD RH BYTE FROM RPL */ 00918000 * /* */ 00919000 * /*****************************************************************/ 00920000 * 0680 00921000 * IF RPLSRESP=ON THEN /* NO CHANGDIR @ZA10990*/ 00922000 @RC00668 LA @11,16 0680 00923000 ALR @11,RPLPTR 0680 00924000 TM RPLSRESP(@11),B'10000000' 0680 00925000 BNO @RF00680 0680 00926000 * RPLRH3=RPLRH3&NCHNGDIR; /* ON RESPONSE @ZA10990*/ 00927000 NI RPLRH3(@11),X'CF' 0681 00928000 * RH3=RPLRH3; 0682 00929000 @RF00680 MVC RH3+4(1,LCCWPTR),RPLRH3+16(RPLPTR) 0682 00930000 * END LCCWCOMC; 0683 00931000 @EL00002 DS 0H 0683 00932000 @EF00002 DS 0H 0683 00933000 @ER00002 BR @14 0683 00934000 *LCCWCOMD: 0684 00935000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,PARMREG); 0684 00936000 * 0684 00937000 LCCWCOMD DS 0H 0685 00938000 */* *****************************************************************/ 00939000 */* THIS SUBROUTINE IS USED TO SET UP THE COMMON FIELDS IN THE */ 00940000 */* FIRST AND SECOND LCCW AND THE RH FIELDS FOR DATA REQUESTS */ 00941000 */* RESPONSES. */ 00942000 */* *****************************************************************/ 00943000 * 0685 00944000 * LCCWOP=LSEND; /* PUT IN SEND OP CODE */ 00945000 MVI LCCWOP(LCCWPTR),X'F1' 0685 00946000 * LCCWCNT=THREE; /* SET COUNT FIELD TO THREE */ 00947000 MVC LCCWCNT(2,LCCWPTR),@CH00134 0686 00948000 * LCCWCD=ON; /* SET DATA CHAIN ON */ 00949000 * LCCWCC=OFF; /* SET CHAIN COMMAND OFF */ 00950000 * LCCWIDAT=ON; /* SET IMMED. DATA FLAG ON */ 00951000 * 0689 00952000 OI LCCWCD(LCCWPTR),B'10001000' 0689 00953000 NI LCCWCC(LCCWPTR),B'10111111' 0689 00954000 * /*****************************************************************/ 00955000 * /* */ 00956000 * /* SET UP FIRST RH BYTE IN 1ST LCCW */ 00957000 * /* */ 00958000 * /*****************************************************************/ 00959000 * 0690 00960000 * RHFORMAT=OFF; /* SET FORMAT OFF */ 00961000 * RHTYPE=OFF; /* SET RHTYPE TO 'DATA' */ 00962000 LA @11,4 0691 00963000 ALR @11,LCCWPTR 0691 00964000 NI RHFORMAT(@11),B'10110111' 0691 00965000 * IF(RPLEX=ON&RPLSRESP=ON) THEN 0692 00966000 LA @02,16 0692 00967000 ALR @02,RPLPTR 0692 00968000 TM RPLEX(@02),B'00000100' 0692 00969000 BNO @RF00692 0692 00970000 TM RPLSRESP(@02),B'10000000' 0692 00971000 BNO @RF00692 0692 00972000 * RHSENSE=ON; /* @DM14944 00973000 * SET SENSE */ 00974000 OI RHSENSE(@11),B'00000100' 0693 00975000 * ELSE 0694 00976000 * RHSENSE=OFF; /* SET OFF SENSE TRANSL. CHAIN TO 00977000 * RH */ 00978000 B @RC00692 0694 00979000 @RF00692 NI RHSENSE+4(LCCWPTR),B'11111011' 0694 00980000 * IF RPLFMHDR=ON THEN 0695 00981000 @RC00692 TM RPLFMHDR(RPLPTR),B'00000001' 0695 00982000 BNO @RF00695 0695 00983000 * RHFORMAT=ON; /* TURN ON FORMATTED BIT */ 00984000 OI RHFORMAT+4(LCCWPTR),B'00001000' 0696 00985000 * IF RPLONLY=ON THEN 0697 00986000 @RF00695 TM RPLONLY+16(RPLPTR),B'00010000' 0697 00987000 BNO @RF00697 0697 00988000 * RHCHAIN=RHONLY; 0698 00989000 OI RHCHAIN+4(LCCWPTR),B'00000011' 0698 00990000 * ELSE 0699 00991000 * IF RPLMIDLE=ON THEN 0699 00992000 B @RC00697 0699 00993000 @RF00697 TM RPLMIDLE+16(RPLPTR),B'01000000' 0699 00994000 BNO @RF00699 0699 00995000 * RHCHAIN=RHMIDLE; 0700 00996000 NI RHCHAIN+4(LCCWPTR),B'11111100' 0700 00997000 * ELSE 0701 00998000 * IF RPLFIRST=ON THEN 0701 00999000 B @RC00699 0701 01000000 @RF00699 TM RPLFIRST+16(RPLPTR),B'10000000' 0701 01001000 BNO @RF00701 0701 01002000 * RHCHAIN=RHFIRST; 0702 01003000 NI RHCHAIN+4(LCCWPTR),B'11111110' 0702 01004000 OI RHCHAIN+4(LCCWPTR),B'00000010' 0702 01005000 * ELSE 0703 01006000 * RHCHAIN=RHLAST; 0703 01007000 * 0703 01008000 B @RC00701 0703 01009000 @RF00701 NI RHCHAIN+4(LCCWPTR),B'11111101' 0703 01010000 OI RHCHAIN+4(LCCWPTR),B'00000001' 0703 01011000 * /*****************************************************************/ 01012000 * /* */ 01013000 * /* SET UP SECOND RH BYTE */ 01014000 * /* */ 01015000 * /*****************************************************************/ 01016000 * 0704 01017000 * RH2(1:4)='0000'B; 0704 01018000 @RC00701 DS 0H 0704 01019000 @RC00699 DS 0H 0704 01020000 @RC00697 LA @11,4 0704 01021000 ALR @11,LCCWPTR 0704 01022000 NI RH2(@11),B'00001111' 0704 01023000 * IF RPLNFME=OFF THEN 0705 01024000 TM RPLNFME+16(RPLPTR),B'00000010' 0705 01025000 BNZ @RF00705 0705 01026000 * RHFME=ON; 0706 01027000 OI RHFME(@11),B'10000000' 0706 01028000 * IF RPLRRN=ON THEN 0707 01029000 @RF00705 TM RPLRRN+16(RPLPTR),B'00000001' 0707 01030000 BNO @RF00707 0707 01031000 * RHRRN=ON; /* THE RESPONSE SETTING IN THE */ 01032000 OI RHRRN+4(LCCWPTR),B'00100000' 0708 01033000 * IF RPLEX=ON THEN 0709 01034000 @RF00707 TM RPLEX+16(RPLPTR),B'00000100' 0709 01035000 BNO @RF00709 0709 01036000 * RHEXCEPT=ON; /* RPL ARE COPIED TO THE RH */ 01037000 OI RHEXCEPT+4(LCCWPTR),B'00010000' 0710 01038000 * IF RHFME=OFF&RHRRN=OFF THEN 0711 01039000 @RF00709 LA @11,4 0711 01040000 ALR @11,LCCWPTR 0711 01041000 TM RHFME(@11),B'10100000' 0711 01042000 BNZ @RF00711 0711 01043000 * RHEXCEPT=OFF; /* @D31KKNL*/ 01044000 NI RHEXCEPT(@11),B'11101111' 0712 01045000 * ELSE 0713 01046000 * ; 0713 01047000 * 0713 01048000 @RF00711 DS 0H 0714 01049000 * /*****************************************************************/ 01050000 * /* */ 01051000 * /* COPY THIRD RH BYTE FROM RPL */ 01052000 * /* */ 01053000 * /*****************************************************************/ 01054000 * 0714 01055000 * IF RPLSRESP=ON THEN /* NO CHANGDIR @ZA10990*/ 01056000 LA @11,16 0714 01057000 ALR @11,RPLPTR 0714 01058000 TM RPLSRESP(@11),B'10000000' 0714 01059000 BNO @RF00714 0714 01060000 * RPLRH3=RPLRH3&NCHNGDIR; /* ON RESPONSE @ZA10990*/ 01061000 NI RPLRH3(@11),X'CF' 0715 01062000 * RH3=RPLRH3; 0716 01063000 * 0716 01064000 @RF00714 LA @11,16 0716 01065000 ALR @11,RPLPTR 0716 01066000 MVC RH3+4(1,LCCWPTR),RPLRH3(@11) 0716 01067000 * /*****************************************************************/ 01068000 * /* */ 01069000 * /* SET UP SECOND LCCW */ 01070000 * /* */ 01071000 * /*****************************************************************/ 01072000 * 0717 01073000 * LCCWPTR=ADDR(DCLLCCW2); /* GO TO SECOND LCCW */ 01074000 LA LCCWPTR,DCLLCCW2(,LCPBPTR) 0717 01075000 * LCCWCD=OFF; /* SET CHAIN IND. OFF */ 01076000 * LCCWCC=OFF; /* SET CHAIN COMMAND OFF */ 01077000 * LCCWIDAT=OFF; /* SET IMMED DATA FLAG OFF */ 01078000 NI LCCWCD(LCCWPTR),B'00110111' 0720 01079000 * IF RPLAUTUS=ON THEN 0721 01080000 TM RPLAUTUS(@11),B'00100000' 0721 01081000 BNO @RF00721 0721 01082000 * LCCWNTVC=ON; /* @ZA08948 01083000 * @ZA29460*/ 01084000 OI LCCWNTVC(LCCWPTR),B'00010000' 0722 01085000 * END LCCWCOMD; 0723 01086000 @EL00003 DS 0H 0723 01087000 @EF00003 DS 0H 0723 01088000 @ER00003 BR @14 0723 01089000 *QTOTOPS: 0724 01090000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,PARMREG); 0724 01091000 * 0724 01092000 QTOTOPS DS 0H 0725 01093000 */* *****************************************************************/ 01094000 */* THIS ROUTINE IS USED TO SET UP THE COMMON LCPB/TH FIELDS FOR */ 01095000 */* REQUESTS AND QUEUE THE LCPB TO THE APPROPRIATE PAB. IF THE */ 01096000 */* REQUEST IS SYNCHRONOUS WITH THE DATA FLOW (CRRSW2 = OFF) THEN */ 01097000 */* THE LCPB IS QUEUED TO THE TOP PAB(FMCPAB3),IF IT IS ASYNCHRON */ 01098000 */* -OUS THEN THE LCPB IS QUEUED TO THE ATOP PAB(FMCPAB5). */ 01099000 */* *****************************************************************/ 01100000 * 0725 01101000 * DCL 0725 01102000 * PABPTR REG(5) PTR(31) RSTD; 0725 01103000 * DCL 0726 01104000 * MAPPAB CHAR(LENGTH(ISTPAB)) BASED(PABPTR); 0726 01105000 * RFY 0727 01106000 * (RTNREG, 0727 01107000 * RCDEREG) RSTD; 0727 01108000 * CRRRTN1=RTNREG; /* SAVE RETURN ADDRESS */ 01109000 ST RTNREG,CRRRTN1(,CRRPTR) 0728 01110000 * IF FMCCONF=ON THEN 0729 01111000 TM FMCCONF(FMCBPTR),B'00000001' 0729 01112000 BNO @RF00729 0729 01113000 * DO; /* IF SSCP INOP @ZA17007*/ 01114000 * CRRRTNCD='1C'X; /* DO NOT TPQUE TOP @ZA17007*/ 01115000 MVI CRRRTNCD(CRRPTR),X'1C' 0731 01116000 * CRRFDB2='02'X; /* SET RPL RET CODE @ZA17007*/ 01117000 MVI CRRFDB2(CRRPTR),X'02' 0732 01118000 * RCDEREG=4; /* NO TPQUE DONE @ZA17007*/ 01119000 LA RCDEREG,4 0733 01120000 * END; /* SSCP INOP @ZA17007*/ 01121000 * ELSE 0735 01122000 * DO; /* NO SSCP INOP @ZA17007*/ 01123000 B @RC00729 0735 01124000 @RF00729 DS 0H 0736 01125000 * IF CRRSW2=OFF THEN /* IS THIS A SYNCH REQ/RESP */ 01126000 TM CRRSW2(CRRPTR),B'00100000' 0736 01127000 BNZ @RF00736 0736 01128000 * PABPTR=ADDR(FMCPAB3); /* SET PTR TO TOP PAB */ 01129000 LA PABPTR,FMCPAB3(,FMCBPTR) 0737 01130000 * ELSE /* ASYN REQ/RESP =>ATOP */ 01131000 * PABPTR=ADDR(FMCPAB5); 0738 01132000 * 0738 01133000 B @RC00736 0738 01134000 @RF00736 LA PABPTR,FMCPAB5(,FMCBPTR) 0738 01135000 */* TPQUE (LCPBPTR,MAPPAB) TRFCHK(RCDEREG)NORM */ 01136000 * 0739 01137000 * DO; 0739 01138000 @RC00736 DS 0H 0740 01139000 * DCL 0740 01140000 * GPR00F FIXED(31) REG(00); 0740 01141000 * DCL 0741 01142000 * GPR00P PTR(31) REG(00); 0741 01143000 * DCL 0742 01144000 * GPR01F FIXED(31) REG(01); 0742 01145000 * DCL 0743 01146000 * GPR01P PTR(31) REG(01); 0743 01147000 * DCL 0744 01148000 * GPR04F FIXED(31) REG(04); 0744 01149000 * DCL 0745 01150000 * GPR04P PTR(31) REG(04); 0745 01151000 * DCL 0746 01152000 * GPR05F FIXED(31) REG(05); 0746 01153000 * DCL 0747 01154000 * GPR05P PTR(31) REG(05); 0747 01155000 * RFY 0748 01156000 * (GPR00P, 0748 01157000 * GPR01P, 0748 01158000 * GPR04P, 0748 01159000 * GPR05P, 0748 01160000 * GPR15P) RSTD; 0748 01161000 * DCL 0749 01162000 * GPR02F FIXED(31) REG(02); 0749 01163000 * DCL 0750 01164000 * GPR02P PTR(31) REG(02); 0750 01165000 * DCL 0751 01166000 * GPR08F FIXED(31) REG(08); 0751 01167000 * DCL 0752 01168000 * GPR08P PTR(31) REG(08); 0752 01169000 * IF ADDR(MAPPAB)->PABINHBT='1'B THEN 0753 01170000 TM PABINHBT(PABPTR),B'00000010' 0753 01171000 BNO @RF00753 0753 01172000 * RCDEREG=4; 0754 01173000 LA RCDEREG,4 0754 01174000 * ELSE 0755 01175000 * DO; 0755 01176000 B @RC00753 0755 01177000 @RF00753 DS 0H 0756 01178000 * GEN REFS(GPR01P) SETS(RPHWORK) 0756 01179000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0756 01180000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01181000 * GPR00P=0; 0757 01182000 SLR GPR00P,GPR00P 0757 01183000 * GPR15P=ADDR(MAPPAB); /* HOLD PAB PTR */ 01184000 LR GPR15P,PABPTR 0758 01185000 * GPR04P=LCPBPTR; /* WORK ELE PTR */ 01186000 LR GPR04P,LCPBPTR 0759 01187000 * GPR05P=GPR15P; /* PASS PAB PTR */ 01188000 LR GPR05P,GPR15P 0760 01189000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0761 01190000 L @11,ATCLCPTR 0761 01191000 L @15,ATCAP37(,@11) 0761 01192000 BALR @14,@15 0761 01193000 * GEN(NOPR 0) 0762 01194000 * NOSETS NOREFS; 0762 01195000 NOPR 0 01196000 * RCDEREG=0; 0763 01197000 SLR RCDEREG,RCDEREG 0763 01198000 * END; 0764 01199000 * RFY 0765 01200000 * (GPR00P, 0765 01201000 * GPR01P, 0765 01202000 * GPR04P, 0765 01203000 * GPR05P, 0765 01204000 * GPR15P) UNRSTD; 0765 01205000 @RC00753 DS 0H 0766 01206000 * END; /* *** END OF TPQUE GENERATION */ 01207000 * IF RCDEREG^=NOERROR THEN /* DID LCPB GET QUEUED ? */ 01208000 LTR RCDEREG,RCDEREG 0767 01209000 BZ @RF00767 0767 01210000 * DO; /* DID NOT GET QUEUED */ 01211000 * CRRRTNCD=CRRLOGIC; /* SET MAJOR RETURN CODE */ 01212000 MVI CRRRTNCD(CRRPTR),X'08' 0769 01213000 * CRRFDB2=CRRSDFR; /* SET MINOR RETURN CODE */ 01214000 MVI CRRFDB2(CRRPTR),X'39' 0770 01215000 * END; 0771 01216000 * END; /* SSCP INOP @ZA17007*/ 01217000 @RF00767 DS 0H 0773 01218000 * RTNREG=CRRRTN1; /* RESTORE RETURN ADDR */ 01219000 @RC00729 L RTNREG,CRRRTN1(,CRRPTR) 0773 01220000 * RFY 0774 01221000 * (RTNREG, 0774 01222000 * RCDEREG) UNRSTD; 0774 01223000 * END QTOTOPS; 0775 01224000 * 0775 01225000 @EL00004 DS 0H 0775 01226000 @EF00004 DS 0H 0775 01227000 @ER00004 BR @14 0775 01228000 @PB00004 DS 0H 0775 01229000 */* TPEPILOG */ 01230000 * 0776 01231000 * GEN(PRINT OFF); 0776 01232000 PRINT OFF 01233000 * DCL 0777 01234000 * ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*);/* RESET ROUTINE */ 01235000 * DCL 0778 01236000 * ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*);/* TPQUE ROUTINE */ 01237000 * GEN(PRINT ON); 0779 01238000 * 0779 01239000 PRINT ON 01240000 */* END OF TPEPILOG */ 01241000 * 0780 01242000 * END ISTRCC22 0780 01243000 * 0780 01244000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01245000 */*%INCLUDE SYSLIB (IFGRPL ) */ 01246000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 01247000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 01248000 */*%INCLUDE SYSLIB (CVT ) */ 01249000 */*%INCLUDE SYSUT5 (XLATECTL) */ 01250000 */*%INCLUDE SYSUT5 (SENDDATA) */ 01251000 */*%INCLUDE SYSUT5 (SENDCTRL) */ 01252000 */*%INCLUDE SYSUT5 (SENDRESP) */ 01253000 * 0780 01254000 * ; 0780 01255000 @DATA DS 0H 01256000 @CH00134 DC H'3' 01257000 @CH00035 DC H'4' 01258000 @CH00122 DC H'5' 01259000 @DATD DSECT 01260000 DS 0F 01261000 ISTRCC22 CSECT 01262000 DS 0F 01263000 @CF00037 DC F'8' 01264000 @CF03624 DC F'80' 01265000 @CF03645 DC XL4'0000FFFF' 01266000 @DATD DSECT 01267000 DS 0D 01268000 @ENDDATD EQU * 01269000 ISTRCC22 CSECT 01270000 NOPR ((@ENDDATD-@DATD)*16) 01271000 DS 0F 01272000 @SIZDATD DC AL1(0) 01273000 DC AL3(@ENDDATD-@DATD) 01274000 DS 0D 01275000 INDXVAL DC AL4(RPLCNTDF+RPLKEYLE) 01276000 DC AL4(RPLCNTDC+RPLKEYLE) 01277000 DC AL4(RPLCNTSC+RPLKEYLE) 01278000 SRCHTAB DS CL8 01279000 ORG SRCHTAB+0 01280000 RPLMSKT DC X'80' 01281000 CTLCDET DC X'00' 01282000 FLOWMSKT DC X'00' 01283000 FLOWMSKR DC X'10' 01284000 SYNCHERT DC AL1(0) 01285000 SYNCHERR DC AL1(0) 01286000 CBYTET DC AL1(1) 01287000 ORG SRCHTAB+8 01288000 ORG SRCHTAB+8 01289000 DC X'40' 01290000 DC X'83' 01291000 DC X'00' 01292000 DC X'10' 01293000 DC AL1(0) 01294000 DC AL1(0) 01295000 DC AL1(1) 01296000 ORG SRCHTAB+16 01297000 ORG SRCHTAB+16 01298000 DC X'20' 01299000 DC X'81' 01300000 DC X'00' 01301000 DC X'10' 01302000 DC AL1(0) 01303000 DC AL1(0) 01304000 DC AL1(1) 01305000 ORG SRCHTAB+24 01306000 ORG SRCHTAB+24 01307000 DC X'10' 01308000 DC X'80' 01309000 DC X'10' 01310000 DC X'00' 01311000 DC AL1(1) 01312000 DC AL1(1) 01313000 DC AL1(1) 01314000 ORG SRCHTAB+32 01315000 ORG SRCHTAB+32 01316000 DC X'08' 01317000 DC X'84' 01318000 DC X'00' 01319000 DC X'10' 01320000 DC AL1(0) 01321000 DC AL1(0) 01322000 DC AL1(1) 01323000 ORG SRCHTAB+40 01324000 ORG SRCHTAB+40 01325000 DC X'04' 01326000 DC X'82' 01327000 DC X'10' 01328000 DC X'00' 01329000 DC AL1(1) 01330000 DC AL1(1) 01331000 DC AL1(1) 01332000 ORG SRCHTAB+48 01333000 ORG SRCHTAB+48 01334000 DC X'80' 01335000 DC X'C8' 01336000 DC X'00' 01337000 DC X'10' 01338000 DC AL1(0) 01339000 DC AL1(0) 01340000 DC AL1(2) 01341000 ORG SRCHTAB+56 01342000 ORG SRCHTAB+56 01343000 DC X'20' 01344000 DC X'04' 01345000 DC X'00' 01346000 DC X'10' 01347000 DC AL1(0) 01348000 DC AL1(0) 01349000 DC AL1(2) 01350000 ORG SRCHTAB+64 01351000 ORG SRCHTAB+64 01352000 DC X'10' 01353000 DC X'C0' 01354000 DC X'00' 01355000 DC X'10' 01356000 DC AL1(1) 01357000 DC AL1(1) 01358000 DC AL1(3) 01359000 ORG SRCHTAB+72 01360000 ORG SRCHTAB+72 01361000 DC X'40' 01362000 DC X'05' 01363000 DC X'00' 01364000 DC X'10' 01365000 DC AL1(0) 01366000 DC AL1(0) 01367000 DC AL1(2) 01368000 ORG SRCHTAB+80 01369000 ORG SRCHTAB+80 01370000 DC X'10' 01371000 DC X'C9' 01372000 DC X'00' 01373000 DC X'10' 01374000 DC AL1(1) 01375000 DC AL1(0) 01376000 DC AL1(2) 01377000 ORG SRCHTAB+88 01378000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01379000 @01 EQU 01 01380000 @02 EQU 02 01381000 @03 EQU 03 01382000 @04 EQU 04 01383000 @05 EQU 05 01384000 @06 EQU 06 01385000 @07 EQU 07 01386000 @08 EQU 08 01387000 @09 EQU 09 01388000 @10 EQU 10 01389000 @11 EQU 11 01390000 @12 EQU 12 01391000 @13 EQU 13 01392000 @14 EQU 14 01393000 @15 EQU 15 01394000 RPHPTR EQU @01 01395000 LCPBPTR EQU @07 01396000 FMCBPTR EQU @09 01397000 CRRPTR EQU @06 01398000 RPLPTR EQU @08 01399000 LCCWPTR EQU @10 01400000 RTNREG EQU @14 01401000 RCDEREG EQU @15 01402000 INDXREG EQU @03 01403000 GPR15P EQU @15 01404000 PABPTR EQU @05 01405000 GPR00P EQU @00 01406000 GPR01P EQU @01 01407000 GPR04P EQU @04 01408000 GPR05P EQU @05 01409000 GPR00F EQU @00 01410000 GPR01F EQU @01 01411000 GPR02F EQU @02 01412000 GPR02P EQU @02 01413000 GPR04F EQU @04 01414000 GPR05F EQU @05 01415000 GPR08F EQU @08 01416000 GPR08P EQU @08 01417000 GPR15F EQU @15 01418000 ATCLCPTR EQU 1032 01419000 IFGRPL EQU 0 01420000 RPLCOMN EQU IFGRPL 01421000 RPLIDWD EQU RPLCOMN 01422000 RPLLEN EQU RPLIDWD+3 01423000 RPLECB EQU RPLCOMN+8 01424000 RPLFDBWD EQU RPLCOMN+12 01425000 RPLFDBK EQU RPLFDBWD+1 01426000 RPLRTNCD EQU RPLFDBK 01427000 RPLCNDCD EQU RPLFDBK+1 01428000 RPLCMPON EQU RPLCNDCD 01429000 RPLFDB2 EQU RPLCMPON 01430000 RPLERRCD EQU RPLCNDCD+1 01431000 RPLFDB3 EQU RPLERRCD 01432000 RPLKEYLE EQU RPLCOMN+16 01433000 RPLAREA EQU RPLCOMN+32 01434000 RPLARG EQU RPLCOMN+36 01435000 RPLOPTCD EQU RPLCOMN+40 01436000 RPLOPT1 EQU RPLOPTCD 01437000 RPLECBSW EQU RPLOPT1 01438000 RPLOPT2 EQU RPLOPTCD+1 01439000 RPLADR EQU RPLOPT2 01440000 RPLOPT3 EQU RPLOPTCD+2 01441000 RPLOPT4 EQU RPLOPTCD+3 01442000 RPLNXTRP EQU RPLCOMN+44 01443000 RPLRLEN EQU RPLCOMN+48 01444000 RPLOPTC2 EQU RPLCOMN+56 01445000 RPLOPT5 EQU RPLOPTC2 01446000 RPLWRTYP EQU RPLOPT5 01447000 RPLOPT6 EQU RPLOPTC2+1 01448000 RPLUNTYP EQU RPLOPT6 01449000 RPLOPT7 EQU RPLOPTC2+2 01450000 RPLCNOPT EQU RPLOPT7 01451000 RPLOPT8 EQU RPLOPTC2+3 01452000 RPLRBAR EQU RPLCOMN+60 01453000 RPLAIXID EQU RPLRBAR+2 01454000 RPLEXTDS EQU RPLCOMN+68 01455000 RPLEXTD1 EQU RPLEXTDS 01456000 RPLVTEXT EQU IFGRPL+76 01457000 RPLFDBK2 EQU RPLVTEXT+12 01458000 RPLSSNSI EQU RPLFDBK2 01459000 RPLDSB EQU RPLSSNSI 01460000 RPLDSB1 EQU RPLDSB 01461000 RPLSSEI EQU RPLDSB1 01462000 RPLDSB2 EQU RPLDSB+1 01463000 RPLUSNSI EQU RPLFDBK2+2 01464000 RPLOPTC3 EQU RPLVTEXT+20 01465000 RPLOPT9 EQU RPLOPTC3 01466000 RPLOPT10 EQU RPLOPTC3+1 01467000 RPLOPT11 EQU RPLOPTC3+2 01468000 RPLOPT12 EQU RPLOPTC3+3 01469000 RPLFMHDR EQU RPLOPT12 01470000 RPLOSENS EQU RPLVTEXT+24 01471000 RPLSSNSO EQU RPLOSENS 01472000 RPLSSEO EQU RPLSSNSO 01473000 RPLUSNSO EQU RPLOSENS+2 01474000 RPLSIGDA EQU RPLVTEXT+32 01475000 RPLOF16 EQU 0 01476000 RPLRH3 EQU RPLOF16 01477000 RPLSRTYP EQU RPLOF16+1 01478000 RPLSTYPE EQU RPLSRTYP 01479000 RPLSRESP EQU RPLSTYPE 01480000 RPLRTYPE EQU RPLSRTYP 01481000 RPLCHN EQU RPLOF16+2 01482000 RPLFIRST EQU RPLCHN 01483000 RPLMIDLE EQU RPLCHN 01484000 RPLONLY EQU RPLCHN 01485000 RPLVTFL1 EQU RPLOF16+3 01486000 RPLAUTUS EQU RPLVTFL1 01487000 RPLVTFL2 EQU RPLOF16+4 01488000 RPLPOSTV EQU RPLVTFL2 01489000 RPLSCHED EQU RPLPOSTV 01490000 RPLRESP EQU RPLVTFL2 01491000 RPLEX EQU RPLRESP 01492000 RPLNFME EQU RPLRESP 01493000 RPLRRN EQU RPLRESP 01494000 RPLCNTRL EQU RPLOF16+5 01495000 RPLCNTDF EQU RPLCNTRL 01496000 RPLDATA EQU RPLCNTDF 01497000 RPLCNTDC EQU RPLCNTRL+1 01498000 RPLLUS EQU RPLCNTDC 01499000 RPLSIGNL EQU RPLCNTDC 01500000 RPLCNTSC EQU RPLCNTRL+2 01501000 RPLOF60 EQU 0 01502000 RPLOBSQ EQU RPLOF60+4 01503000 RPLIBSQ EQU RPLOF60+5 01504000 RPLSEQNO EQU RPLOF60+6 01505000 CVTMAP EQU 0 01506000 CVTDAR EQU CVTMAP+72 01507000 CVTFLGS1 EQU CVTDAR 01508000 CVTDCB EQU CVTMAP+116 01509000 CVTIERLC EQU CVTMAP+144 01510000 CVTOPTA EQU CVTMAP+182 01511000 CVTOPTB EQU CVTMAP+183 01512000 CVTGTF EQU CVTMAP+236 01513000 CVTGTFST EQU CVTGTF 01514000 CVTGTFS EQU CVTGTFST 01515000 CVTSTATE EQU CVTGTFST 01516000 CVTTMODE EQU CVTGTFST 01517000 CVTFORM EQU CVTGTFST 01518000 CVTAQAVT EQU CVTMAP+240 01519000 CVTTCMFG EQU CVTAQAVT 01520000 CVTVOLM2 EQU CVTMAP+244 01521000 CVTTATA EQU CVTVOLM2 01522000 CVTTSKS EQU CVTTATA 01523000 CVTVOLF2 EQU CVTTSKS 01524000 CVTTAT EQU CVTTATA+1 01525000 CVTATER EQU CVTMAP+248 01526000 CVTEXT1 EQU CVTMAP+252 01527000 CVTPURG EQU CVTMAP+260 01528000 CVTQMSG EQU CVTMAP+268 01529000 CVTDMSR EQU CVTMAP+272 01530000 CVTRSV37 EQU CVTDMSR 01531000 CVTDMSRF EQU CVTRSV37 01532000 CVTERPV EQU CVTMAP+316 01533000 CVTINTLA EQU CVTMAP+320 01534000 CVTAPF EQU CVTMAP+324 01535000 CVTEXT2 EQU CVTMAP+328 01536000 CVTHJES EQU CVTMAP+332 01537000 CVTPGSIA EQU CVTMAP+348 01538000 CVTA1F1 EQU CVTMAP+356 01539000 CVTSYSK EQU CVTMAP+357 01540000 CVTVOLM1 EQU CVTMAP+380 01541000 CVTVOLF1 EQU CVTVOLM1 01542000 CVTATMCT EQU CVTMAP+388 01543000 CVTXTNT1 EQU 0 01544000 CVTXTNT2 EQU 0 01545000 CVTDSSV EQU CVTXTNT2 01546000 CVTFLGBT EQU CVTXTNT2+5 01547000 CVTQID EQU CVTXTNT2+24 01548000 CVTSHS EQU CVTXTNT2+40 01549000 CVTRV400 EQU CVTXTNT2+52 01550000 CVTRV409 EQU CVTXTNT2+53 01551000 CVTATCVT EQU CVTXTNT2+64 01552000 CVTRV429 EQU CVTXTNT2+84 01553000 CVTRV438 EQU CVTXTNT2+85 01554000 CVTRV457 EQU CVTXTNT2+112 01555000 CVTRV466 EQU CVTXTNT2+113 01556000 CVTFIX EQU 0 01557000 CVTRELNO EQU CVTFIX+252 01558000 ISTRPH EQU 0 01559000 RPHCNTL EQU ISTRPH 01560000 RPHFLAGS EQU RPHCNTL+2 01561000 RPHAPTYP EQU RPHFLAGS 01562000 RPHFSTLC EQU RPHFLAGS 01563000 RPHFLGB EQU RPHCNTL+3 01564000 RPHRPHA EQU ISTRPH+4 01565000 RPHCVFLG EQU RPHRPHA 01566000 RPHGATE EQU RPHCVFLG 01567000 RPHTSKID EQU ISTRPH+8 01568000 RPHRESMA EQU ISTRPH+16 01569000 RPHWPFLG EQU RPHRESMA 01570000 RPHWEA EQU ISTRPH+24 01571000 RPHCSPA EQU RPHWEA 01572000 RPHSRPRM EQU ISTRPH+28 01573000 RPHCRR EQU ISTRPH+32 01574000 RPHPABQA EQU ISTRPH+36 01575000 RPHWORK EQU ISTRPH+40 01576000 RPHSAVE1 EQU RPHWORK 01577000 RPHSBITS EQU RPHSAVE1+1 01578000 ISTRH EQU 0 01579000 RHFLAGS EQU ISTRH 01580000 RH1 EQU RHFLAGS 01581000 RHQS EQU RH1 01582000 RHTYPE EQU RH1 01583000 RHDIRI EQU RH1 01584000 RHFORMAT EQU RH1 01585000 RHSENSE EQU RH1 01586000 RHCHAIN EQU RH1 01587000 RH2 EQU RHFLAGS+1 01588000 RHFME EQU RH2 01589000 RHPE EQU RH2 01590000 RHRRN EQU RH2 01591000 RHEXCEPT EQU RH2 01592000 RHRETRY EQU RH2 01593000 RHRSVD1 EQU RH2 01594000 RH3 EQU RHFLAGS+2 01595000 ISTLCCW EQU 0 01596000 LCCWOP EQU ISTLCCW 01597000 LCCWRWOP EQU LCCWOP 01598000 LCCWCTL EQU LCCWRWOP 01599000 LCCWFLAG EQU ISTLCCW+1 01600000 LCCWCD EQU LCCWFLAG 01601000 LCCWCC EQU LCCWFLAG 01602000 LCCWNTVC EQU LCCWFLAG 01603000 LCCWIDAT EQU LCCWFLAG 01604000 LCCWLSI EQU LCCWFLAG 01605000 LCCWCNT EQU ISTLCCW+2 01606000 LCCWDATA EQU ISTLCCW+4 01607000 ISTLCPB EQU 0 01608000 LCPREQTG EQU ISTLCPB+2 01609000 LCPFLAGS EQU LCPREQTG 01610000 LCPZF001 EQU LCPFLAGS 01611000 LCPZRT02 EQU LCPZF001 01612000 LCPZF002 EQU LCPFLAGS 01613000 LCPZRT03 EQU LCPZF002 01614000 LCPZF003 EQU LCPFLAGS 01615000 LCPZRT04 EQU LCPZF003 01616000 LCPZF004 EQU LCPFLAGS 01617000 LCPZRT05 EQU LCPZF004 01618000 LCPZRT06 EQU LCPFLAGS 01619000 LCPZRT07 EQU LCPFLAGS 01620000 LCPMNRCD EQU LCPREQTG+1 01621000 LCPZRT08 EQU LCPMNRCD 01622000 LCPZRT09 EQU LCPMNRCD 01623000 LCPCHAIN EQU ISTLCPB+4 01624000 LCPCHAI1 EQU LCPCHAIN 01625000 LCPRUCNT EQU ISTLCPB+8 01626000 LCPFLAG2 EQU ISTLCPB+9 01627000 LCPASYN EQU LCPFLAG2 01628000 LCPTLBPI EQU LCPFLAG2 01629000 LCPFID0 EQU LCPFLAG2 01630000 LCPSEQ EQU ISTLCPB+10 01631000 LCPCID EQU ISTLCPB+16 01632000 LCPNXLCW EQU ISTLCPB+20 01633000 LCPFDBA EQU ISTLCPB+24 01634000 LCPFOSN EQU ISTLCPB+32 01635000 LCPFLG1 EQU ISTLCPB+37 01636000 LCPDIRPT EQU LCPFLG1 01637000 LCPFLCCW EQU ISTLCPB+40 01638000 LCPLCCW EQU ISTLCPB+48 01639000 LCPPABA EQU LCPLCCW+4 01640000 LCPRPHA EQU LCPPABA 01641000 ISTZSAVE EQU 0 01642000 ZSAZSVBC EQU ISTZSAVE 01643000 ZSAZSVMS EQU ZSAZSVBC 01644000 ISTPFCRR EQU 0 01645000 PFCCRR EQU ISTPFCRR 01646000 PFCCRRID EQU PFCCRR 01647000 PFCCRRLN EQU PFCCRR+2 01648000 PFCHDR EQU ISTPFCRR+4 01649000 PFCCRRO EQU PFCHDR 01650000 PFCFRRO EQU PFCHDR+4 01651000 ISTCFCRR EQU 0 01652000 CFCAUDIT EQU ISTCFCRR 01653000 CFCNTRD EQU CFCAUDIT 01654000 CFCCRT EQU CFCAUDIT+1 01655000 ISTZCRR EQU 0 01656000 ZCRCRR EQU ISTZCRR 01657000 ZCRFLGS1 EQU ISTZCRR+12 01658000 ZCRFLGS2 EQU ISTZCRR+13 01659000 ZCRSWFLD EQU ISTZCRR+14 01660000 ZCRENDSH EQU ZCRSWFLD 01661000 ZCRNDLCP EQU ZCRSWFLD 01662000 ZCRRESET EQU ZCRSWFLD 01663000 ZCRFLGS3 EQU ISTZCRR+15 01664000 ZCRGENSW EQU ISTZCRR+16 01665000 ZCRPFLGS EQU ISTZCRR+17 01666000 ZCRIBPR EQU ISTZCRR+18 01667000 ZCRSCPSW EQU ISTZCRR+19 01668000 ZCRPARMS EQU ISTZCRR+24 01669000 ZCRFBPTR EQU ZCRPARMS 01670000 ZCRDFRDA EQU ZCRPARMS+10 01671000 ZCRPCOD1 EQU ZCRPARMS+12 01672000 ZCRPLSBF EQU ZCRPCOD1 01673000 ZCRPCOD2 EQU ZCRPARMS+13 01674000 ZCRSVRTN EQU ISTZCRR+56 01675000 ZCRWKARA EQU ISTZCRR+156 01676000 ZCRCIDSV EQU ISTZCRR+192 01677000 ZCRAUDIT EQU ISTZCRR+440 01678000 ZCRENTER EQU ZCRAUDIT+5 01679000 ZCRLCPB EQU ISTZCRR+480 01680000 ZCRRHRU EQU ZCRLCPB 01681000 ISTASCRR EQU 0 01682000 ASCFLAGS EQU ISTASCRR+16 01683000 ASCFLG1 EQU ASCFLAGS 01684000 ASCFLG2 EQU ASCFLAGS+2 01685000 ASCFLG3 EQU ASCFLAGS+4 01686000 ASCUSRGS EQU ISTASCRR+28 01687000 ISTAPCRR EQU 0 01688000 APCATFLG EQU ISTAPCRR+16 01689000 APCRFLG EQU ISTAPCRR+18 01690000 APCSAVE EQU ISTAPCRR+44 01691000 APCCOMF EQU ISTAPCRR+116 01692000 APCCOMF1 EQU APCCOMF 01693000 APC31FLG EQU ISTAPCRR+132 01694000 APC52FLG EQU ISTAPCRR+133 01695000 APC53FLG EQU ISTAPCRR+134 01696000 APC54FLG EQU ISTAPCRR+135 01697000 APC57FLG EQU ISTAPCRR+136 01698000 ISTCRA EQU 0 01699000 CRABASIC EQU ISTCRA 01700000 CRAHDR EQU CRABASIC 01701000 CRACRR EQU CRAHDR 01702000 CRALKACT EQU CRABASIC+8 01703000 CRASVC EQU ISTCRA+848 01704000 CRABUFA EQU CRASVC+68 01705000 ISTDEVCH EQU 0 01706000 DEVSHCH EQU ISTDEVCH 01707000 DEVCHAR EQU DEVSHCH 01708000 DEVTCODE EQU ISTDEVCH+1 01709000 DEVFLAGS EQU ISTDEVCH+3 01710000 DEVFCCTL EQU DEVFLAGS 01711000 DEVCHAR3 EQU DEVFLAGS 01712000 ISTLOK EQU 0 01713000 LOKCHN EQU ISTLOK+1 01714000 LOKCHNG EQU LOKCHN 01715000 @NM00045 EQU LOKCHNG+2 01716000 ISTPAB EQU 0 01717000 PABWQCHN EQU ISTPAB 01718000 PABWEQA EQU PABWQCHN 01719000 PABCHAIN EQU PABWQCHN+4 01720000 PABRPHFG EQU ISTPAB+12 01721000 PABFLAGS EQU PABRPHFG 01722000 PABERLCK EQU PABFLAGS 01723000 PABERRLK EQU PABERLCK 01724000 PABINHBT EQU PABFLAGS 01725000 ISTNCB EQU 0 01726000 NCBFLAGS EQU ISTNCB+24 01727000 NCBFRAS EQU NCBFLAGS+1 01728000 NCBFTRIO EQU NCBFRAS 01729000 NCBFLAG1 EQU NCBFLAGS+2 01730000 NCBDEVCH EQU ISTNCB+36 01731000 ISTDNCB EQU 0 01732000 DNCOS EQU ISTDNCB+56 01733000 DNCZFLGS EQU DNCOS 01734000 DNCBSCED EQU DNCOS+2 01735000 ISTDCCRR EQU 0 01736000 CRRSPACE EQU ISTDCCRR+12 01737000 CRRSAREA EQU 0 01738000 CRRMAS EQU CRRSAREA+148 01739000 CRRMAS1 EQU CRRMAS 01740000 CRRMAS2 EQU CRRMAS+1 01741000 CRRMAS3 EQU CRRMAS+2 01742000 CRRMAS4 EQU CRRMAS+3 01743000 CRRRMAS1 EQU CRRMAS+4 01744000 CRRRM22 EQU CRRRMAS1 01745000 CRRRMAS2 EQU CRRMAS+5 01746000 CRRRMAS3 EQU CRRMAS+6 01747000 CRRSMAS EQU CRRRMAS3 01748000 CRRATS EQU CRRSAREA+156 01749000 CRRATS1 EQU CRRATS 01750000 CRRATS2 EQU CRRATS+1 01751000 CRRATS3 EQU CRRATS+2 01752000 CRRATS4 EQU CRRATS+3 01753000 CRRRATS1 EQU CRRATS+4 01754000 CRRRC22 EQU CRRRATS1 01755000 CRRRATS2 EQU CRRATS+5 01756000 CRRRATS3 EQU CRRATS+6 01757000 CRRSATS EQU CRRRATS3 01758000 CRRFLGS1 EQU CRRSAREA+164 01759000 CRRFLGS2 EQU CRRSAREA+165 01760000 CRRFLGS3 EQU CRRSAREA+166 01761000 CRRFLGS4 EQU CRRSAREA+167 01762000 CRRFLGS EQU CRRSAREA+168 01763000 CRRSW0 EQU CRRFLGS 01764000 CRRSW1 EQU CRRFLGS 01765000 CRRSW2 EQU CRRFLGS 01766000 CRRRFLG1 EQU CRRSAREA+169 01767000 CRRRTYPE EQU CRRRFLG1 01768000 CRRFDBK1 EQU CRRSAREA+170 01769000 CRRRTNCD EQU CRRFDBK1 01770000 CRRFDB2 EQU CRRFDBK1+1 01771000 CRRFDB3 EQU CRRFDBK1+2 01772000 CRRFDBK2 EQU CRRSAREA+176 01773000 CRRDSB EQU CRRFDBK2 01774000 CRRESR EQU CRRFDBK2+2 01775000 CRRFMCB EQU CRRSAREA+184 01776000 CRRLCPB EQU CRRSAREA+192 01777000 CRRTRBUF EQU CRRSAREA+204 01778000 CRRARPL EQU CRRTRBUF+4 01779000 CRRATCVT EQU CRRSAREA+216 01780000 CRRRTN1 EQU CRRSAREA+224 01781000 CRRBFLGS EQU CRRSAREA+280 01782000 CRRDIRPT EQU CRRBFLGS 01783000 CRRRVCR1 EQU CRRSAREA+291 01784000 ISTDCLCP EQU 0 01785000 DCLLCCW2 EQU ISTDCLCP+56 01786000 DCLLCCW3 EQU ISTDCLCP+64 01787000 DCLRTYPE EQU ISTDCLCP+76 01788000 DCLRFLG EQU DCLRTYPE+1 01789000 DCLFLAG1 EQU ISTDCLCP+78 01790000 ISTPROCD EQU 0 01791000 PROPROC EQU ISTPROCD 01792000 PROPROC1 EQU PROPROC 01793000 PROPROC2 EQU PROPROC+1 01794000 PROPROC3 EQU PROPROC+2 01795000 PROPROC4 EQU PROPROC+3 01796000 PROPROCS EQU 0 01797000 PROSETMS EQU PROPROCS+1 01798000 PROSETM2 EQU PROSETMS 01799000 PROSETM3 EQU PROSETMS+1 01800000 PROSETM4 EQU PROSETMS+2 01801000 ISTFMCB EQU 0 01802000 FMCDNCBA EQU ISTFMCB+16 01803000 FMCSTAT EQU ISTFMCB+28 01804000 FMCSTAT1 EQU ISTFMCB+29 01805000 FMCCMDFL EQU ISTFMCB+31 01806000 FMCCMPS1 EQU ISTFMCB+36 01807000 FMCPAB3 EQU ISTFMCB+96 01808000 FMCPAB5 EQU ISTFMCB+128 01809000 FMCSIPA EQU ISTFMCB+148 01810000 FMCNXOSQ EQU ISTFMCB+152 01811000 FMCNXCFM EQU FMCNXOSQ 01812000 FMCNXOSC EQU FMCNXOSQ+2 01813000 FMCSSTAT EQU ISTFMCB+159 01814000 FMCCONF EQU FMCSSTAT 01815000 FMCPACE EQU ISTFMCB+160 01816000 FMCPACEN EQU FMCPACE 01817000 FMCPACEM EQU FMCPACE+1 01818000 FMCPACPC EQU FMCPACE+2 01819000 FMCCVAL EQU FMCPACE+3 01820000 FMCOBCE EQU FMCCVAL 01821000 FMCCLEXT EQU ISTFMCB+164 01822000 FMCRPLA EQU FMCCLEXT 01823000 FMCFBA EQU FMCCLEXT+4 01824000 FMCCMPS2 EQU FMCCLEXT+16 01825000 FMCFLGA EQU FMCCMPS2 01826000 FMCFLGCL EQU FMCCMPS2+1 01827000 FMCFLGB4 EQU FMCFLGCL 01828000 FMCFLGB5 EQU FMCFLGCL 01829000 FMCPSCMD EQU FMCCMPS2+2 01830000 FMCPSTAT EQU FMCCMPS2+3 01831000 FMCSTAT2 EQU ISTFMCB+186 01832000 FMCMODEB EQU ISTFMCB+189 01833000 FMCRESOT EQU FMCMODEB 01834000 FMCCLSEQ EQU ISTFMCB+190 01835000 FMCRRESP EQU ISTFMCB+195 01836000 FMCPSTRS EQU ISTFMCB+196 01837000 FMCRSPLM EQU ISTFMCB+198 01838000 FMCSSEGQ EQU ISTFMCB+200 01839000 FMCFBAS EQU ISTFMCB+216 01840000 FMCZV002 EQU FMCFBAS 01841000 FMCSNCTL EQU ISTFMCB+224 01842000 FMCSCFLG EQU FMCSNCTL 01843000 FMCVS1 EQU ISTFMCB+232 01844000 FMCZFLAG EQU FMCVS1 01845000 FMCZF006 EQU FMCZFLAG 01846000 FMCLBXM EQU FMCVS1+12 01847000 FMCSHEAQ EQU FMCLBXM 01848000 FMCLCPBQ EQU FMCVS1+16 01849000 FMCLCPAQ EQU FMCVS1+20 01850000 FMCSEQ1 EQU FMCVS1+34 01851000 FMCZFLG2 EQU FMCVS1+35 01852000 FMCCVFLG EQU FMCVS1+44 01853000 FMCFLAG EQU 0 01854000 FMCFLGB EQU FMCFLAG 01855000 ISTDYPAB EQU 0 01856000 ISTATCVT EQU 0 01857000 ATCCOM EQU ISTATCVT 01858000 ATCSTAT EQU ATCCOM 01859000 ATCSTAT1 EQU ATCSTAT 01860000 ATCSTFLG EQU ATCSTAT+1 01861000 ATCPOFLG EQU ATCSTAT+2 01862000 ATCSTAT4 EQU ATCSTAT+3 01863000 ATCIOTRC EQU ATCCOM+140 01864000 ATCTHTRC EQU ATCIOTRC 01865000 ATCESC01 EQU ISTATCVT+288 01866000 ATCCSMR EQU ISTATCVT+296 01867000 ATCSHRFG EQU ISTATCVT+316 01868000 ATCHPGM EQU ISTATCVT+384 01869000 ATCVLCNT EQU ISTATCVT+772 01870000 ATCRNO EQU ISTATCVT+788 01871000 ATCSOPD EQU ISTATCVT+792 01872000 ATCSIPD EQU ISTATCVT+800 01873000 ATCSECST EQU ISTATCVT+812 01874000 ATCSTAT2 EQU ISTATCVT+818 01875000 ATCVTBAM EQU ISTATCVT+908 01876000 @NM00068 EQU ATCVTBAM+3 01877000 ATCAOSM EQU ISTATCVT+912 01878000 ATCGSRBQ EQU ATCAOSM+4 01879000 ATCGSRBG EQU ATCGSRBQ 01880000 ATCAP34 EQU ATCAOSM+32 01881000 ATCICAPP EQU ATCAOSM+100 01882000 ATCLDAPP EQU ATCAOSM+120 01883000 ATCDAPVT EQU ATCAOSM+140 01884000 ATCAP37 EQU ATCAOSM+264 01885000 ATCCRA EQU ATCAOSM+280 01886000 ATCCRACN EQU ATCCRA+4 01887000 ATCSRB EQU ATCAOSM+288 01888000 ATCSRBCN EQU ATCSRB+4 01889000 ATCCRPL EQU ATCAOSM+296 01890000 ATCRPLCN EQU ATCCRPL+4 01891000 ATCSQAFR EQU ATCAOSM+304 01892000 ATCORTBC EQU ATCSQAFR+4 01893000 ATCORSRB EQU ATCORTBC 01894000 @NM00070 EQU ATCAOSM+332 01895000 ATCVTFLG EQU ATCAOSM+392 01896000 ATCZFLAG EQU ATCAOSM+588 01897000 LPRCTFLD EQU 0 01898000 TABENTRY EQU 0 01899000 RPLMSK EQU TABENTRY 01900000 CTLCDE EQU TABENTRY+1 01901000 FLOWMSK EQU TABENTRY+2 01902000 FLOWMSK1 EQU TABENTRY+3 01903000 SYNCHER EQU TABENTRY+4 01904000 SYNCHER1 EQU TABENTRY+5 01905000 CBYTE EQU TABENTRY+6 01906000 ISTAVT EQU 0 01907000 ISTAS49 EQU ISTAVT+4 01908000 FMZL0004 EQU 0 01909000 MAPPAB EQU 0 01910000 ISTAPC37 EQU 0 01911000 ISTAPC34 EQU 0 01912000 ISTRPL EQU 0 01913000 CVTS01 EQU CVTPGSIA 01914000 CVTLPDIA EQU CVTS01+12 01915000 CVTDIRST EQU CVTLPDIA 01916000 CVTSLIDA EQU CVTS01+24 01917000 CVTCTLFG EQU CVTS01+50 01918000 CVTRV210 EQU CVTS01+424 01919000 CVTRV219 EQU CVTS01+425 01920000 CVTRV228 EQU CVTS01+426 01921000 CVTRV237 EQU CVTS01+427 01922000 CVTMFRTR EQU CVTS01+452 01923000 CVTRV262 EQU CVTS01+468 01924000 CVTRV271 EQU CVTS01+469 01925000 CVTRV280 EQU CVTS01+470 01926000 CVTRV289 EQU CVTS01+471 01927000 CVTGSDA EQU CVTS01+600 01928000 LCPZTIE EQU LCPCID 01929000 LCPZSNAM EQU LCPZTIE+8 01930000 RC22RU EQU LCCWDATA+3 01931000 IMMEDIAT EQU LCCWDATA 01932000 IMMDATA1 EQU IMMEDIAT 01933000 IMMDATA2 EQU IMMEDIAT+2 01934000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01935000 LCPZTRV4 EQU LCPZSNAM+4 01936000 LCPZTRV1 EQU LCPZSNAM 01937000 LCPZSNA EQU LCPZTIE+4 01938000 LCPZFMCA EQU LCPZTIE 01939000 CVTRV628 EQU CVTS01+728 01940000 CVTRV627 EQU CVTS01+724 01941000 CVTRV626 EQU CVTS01+720 01942000 CVTRV625 EQU CVTS01+716 01943000 CVTRV624 EQU CVTS01+712 01944000 CVTRV623 EQU CVTS01+708 01945000 CVTRV622 EQU CVTS01+704 01946000 CVTRV621 EQU CVTS01+700 01947000 CVTRV620 EQU CVTS01+696 01948000 CVTRV619 EQU CVTS01+692 01949000 CVTRV618 EQU CVTS01+688 01950000 CVTRV617 EQU CVTS01+684 01951000 CVTRV616 EQU CVTS01+680 01952000 CVTRV615 EQU CVTS01+676 01953000 CVTRV614 EQU CVTS01+672 01954000 CVTRV613 EQU CVTS01+668 01955000 CVTTCASP EQU CVTS01+664 01956000 CVT0PT03 EQU CVTS01+660 01957000 CVT0PT0E EQU CVTS01+656 01958000 CVTIRM EQU CVTS01+652 01959000 CVTCGK EQU CVTS01+648 01960000 CVTRV607 EQU CVTS01+644 01961000 CVTRV606 EQU CVTS01+640 01962000 CVTRV605 EQU CVTS01+636 01963000 CVTRV604 EQU CVTS01+632 01964000 CVTEFF02 EQU CVTS01+628 01965000 CVTCBBR EQU CVTS01+624 01966000 CVTSSCR EQU CVTS01+620 01967000 CVTEVENT EQU CVTS01+616 01968000 CVTCRCA EQU CVTS01+612 01969000 CVTTPIO EQU CVTS01+608 01970000 CVTADV EQU CVTS01+604 01971000 CVTGSDAB EQU CVTGSDA 01972000 CVTQV3 EQU CVTS01+596 01973000 CVTQV2 EQU CVTS01+592 01974000 CVTQV1 EQU CVTS01+588 01975000 CVTRPT EQU CVTS01+584 01976000 CVTSSRB EQU CVTS01+580 01977000 CVTCSDRL EQU CVTS01+576 01978000 CVTEXP1 EQU CVTS01+572 01979000 CVTRMPMT EQU CVTS01+568 01980000 CVTRMPTT EQU CVTS01+564 01981000 CVTVPSA EQU CVTS01+560 01982000 CVTVSTOP EQU CVTS01+556 01983000 CVTGTFR8 EQU CVTS01+552 01984000 CVTQUIT EQU CVTS01+548 01985000 CVTVACR EQU CVTS01+544 01986000 CVTWTCB EQU CVTS01+540 01987000 CVTSTPRS EQU CVTS01+536 01988000 CVT0PT02 EQU CVTS01+532 01989000 CVTDARCM EQU CVTS01+528 01990000 CVTIRECM EQU CVTS01+524 01991000 CVTJRECM EQU CVTS01+520 01992000 CVTVEMS0 EQU CVTS01+516 01993000 CVTSPFRR EQU CVTS01+512 01994000 CVTRLSTG EQU CVTS01+508 01995000 CVT0TC0A EQU CVTS01+504 01996000 CVTGMBR EQU CVTS01+500 01997000 CVTLFRM EQU CVTS01+496 01998000 CVTRMBR EQU CVTS01+492 01999000 CVTVIOP EQU CVTS01+488 02000000 CVTRV307 EQU CVTS01+486 02001000 CVTRV306 EQU CVTS01+484 02002000 CVTRV305 EQU CVTS01+482 02003000 CVTRV304 EQU CVTS01+480 02004000 CVTRV303 EQU CVTS01+478 02005000 CVTRV302 EQU CVTS01+476 02006000 CVTTRCA EQU CVTS01+472 02007000 CVTRV297 EQU CVTRV289 02008000 CVTRV296 EQU CVTRV289 02009000 CVTRV295 EQU CVTRV289 02010000 CVTRV294 EQU CVTRV289 02011000 CVTRV293 EQU CVTRV289 02012000 CVTRV292 EQU CVTRV289 02013000 CVTRV291 EQU CVTRV289 02014000 CVTRV290 EQU CVTRV289 02015000 CVTRV288 EQU CVTRV280 02016000 CVTRV287 EQU CVTRV280 02017000 CVTRV286 EQU CVTRV280 02018000 CVTRV285 EQU CVTRV280 02019000 CVTRV284 EQU CVTRV280 02020000 CVTRV283 EQU CVTRV280 02021000 CVTRV282 EQU CVTRV280 02022000 CVTRV281 EQU CVTRV280 02023000 CVTRV279 EQU CVTRV271 02024000 CVTRV278 EQU CVTRV271 02025000 CVTRV277 EQU CVTRV271 02026000 CVTRV276 EQU CVTRV271 02027000 CVTRV275 EQU CVTRV271 02028000 CVTRV274 EQU CVTRV271 02029000 CVTRV273 EQU CVTRV271 02030000 CVTRV272 EQU CVTRV271 02031000 CVTRV270 EQU CVTRV262 02032000 CVTRV269 EQU CVTRV262 02033000 CVTRV268 EQU CVTRV262 02034000 CVTRV267 EQU CVTRV262 02035000 CVTRV266 EQU CVTRV262 02036000 CVTRV265 EQU CVTRV262 02037000 CVTRV264 EQU CVTRV262 02038000 CVTRV263 EQU CVTRV262 02039000 CVTVFP EQU CVTS01+464 02040000 CVTVSI EQU CVTS01+460 02041000 CVTVPSIB EQU CVTS01+456 02042000 CVTMFACT EQU CVTMFRTR 02043000 CVTMFCTL EQU CVTS01+448 02044000 CVTPVBP EQU CVTS01+444 02045000 CVTPWI EQU CVTS01+440 02046000 CVTRV254 EQU CVTS01+438 02047000 CVTRV253 EQU CVTS01+436 02048000 CVTRV252 EQU CVTS01+434 02049000 CVTRV251 EQU CVTS01+433 02050000 CVTRV250 EQU CVTS01+432 02051000 CVTRV249 EQU CVTS01+431 02052000 CVTRV248 EQU CVTS01+430 02053000 CVTRV247 EQU CVTS01+429 02054000 CVTRV246 EQU CVTS01+428 02055000 CVTRV245 EQU CVTRV237 02056000 CVTRV244 EQU CVTRV237 02057000 CVTRV243 EQU CVTRV237 02058000 CVTRV242 EQU CVTRV237 02059000 CVTRV241 EQU CVTRV237 02060000 CVTRV240 EQU CVTRV237 02061000 CVTRV239 EQU CVTRV237 02062000 CVTRV238 EQU CVTRV237 02063000 CVTRV236 EQU CVTRV228 02064000 CVTRV235 EQU CVTRV228 02065000 CVTRV234 EQU CVTRV228 02066000 CVTRV233 EQU CVTRV228 02067000 CVTRV232 EQU CVTRV228 02068000 CVTRV231 EQU CVTRV228 02069000 CVTRV230 EQU CVTRV228 02070000 CVTRV229 EQU CVTRV228 02071000 CVTRV227 EQU CVTRV219 02072000 CVTRV226 EQU CVTRV219 02073000 CVTRV225 EQU CVTRV219 02074000 CVTRV224 EQU CVTRV219 02075000 CVTRV223 EQU CVTRV219 02076000 CVTRV222 EQU CVTRV219 02077000 CVTRV221 EQU CVTRV219 02078000 CVTRV220 EQU CVTRV219 02079000 CVTRV218 EQU CVTRV210 02080000 CVTRV217 EQU CVTRV210 02081000 CVTRV216 EQU CVTRV210 02082000 CVTRV215 EQU CVTRV210 02083000 CVTRV214 EQU CVTRV210 02084000 CVTRV213 EQU CVTRV210 02085000 CVTRV212 EQU CVTRV210 02086000 CVTRV211 EQU CVTRV210 02087000 CVTLCCAT EQU CVTS01+420 02088000 CVTPCCAT EQU CVTS01+416 02089000 CVTIPCRP EQU CVTS01+412 02090000 CVTIPCRI EQU CVTS01+408 02091000 CVTIPCDS EQU CVTS01+404 02092000 CVTAIDVT EQU CVTS01+400 02093000 CVTSSAP EQU CVTS01+396 02094000 CVTEHCIR EQU CVTS01+392 02095000 CVTEHDEF EQU CVTS01+388 02096000 CVTDAIR EQU CVTS01+384 02097000 CVTPERFM EQU CVTS01+380 02098000 CVT044R2 EQU CVTS01+376 02099000 CVTFETCH EQU CVTS01+372 02100000 CVTRSTWD EQU CVTS01+368 02101000 CVTSPOST EQU CVTS01+364 02102000 CVTIOBP EQU CVTS01+360 02103000 CVTASMVT EQU CVTS01+356 02104000 CVTRECRQ EQU CVTS01+352 02105000 CVTWSAC EQU CVTS01+348 02106000 CVTRV149 EQU CVTS01+344 02107000 CVTWSAL EQU CVTS01+340 02108000 CVTSPSA EQU CVTS01+336 02109000 CVTGLMN EQU CVTS01+332 02110000 CVTVEAC0 EQU CVTS01+328 02111000 CVT062R1 EQU CVTS01+324 02112000 CVTRPOST EQU CVTS01+320 02113000 CVTDQIQE EQU CVTS01+316 02114000 CVTCSD EQU CVTS01+312 02115000 CVTLKRMA EQU CVTS01+308 02116000 CVTRSPIE EQU CVTS01+304 02117000 CVTRENQ EQU CVTS01+300 02118000 CVTLQCB EQU CVTS01+296 02119000 CVTFQCB EQU CVTS01+292 02120000 CVTQCS01 EQU CVTS01+288 02121000 CVTAPFT EQU CVTS01+284 02122000 CVTPARRL EQU CVTS01+280 02123000 CVTVWAIT EQU CVTS01+276 02124000 CVTGSPL EQU CVTS01+272 02125000 CVTLSMQ EQU CVTS01+268 02126000 CVTGSMQ EQU CVTS01+264 02127000 CVTEXPRO EQU CVTS01+260 02128000 CVTOPCTP EQU CVTS01+256 02129000 CVTSIC EQU CVTS01+252 02130000 CVTTPIOS EQU CVTS01+248 02131000 CVTRTMS EQU CVTS01+244 02132000 CVTSDBF EQU CVTS01+240 02133000 CVTSCBP EQU CVTS01+236 02134000 CVTSDMP EQU CVTS01+232 02135000 CVTSV60 EQU CVTS01+228 02136000 CVTRTMCT EQU CVTS01+224 02137000 CVTASCBL EQU CVTS01+220 02138000 CVTASCBH EQU CVTS01+216 02139000 CVTGDA EQU CVTS01+212 02140000 CVTASVT EQU CVTS01+208 02141000 CVTVVMDI EQU CVTS01+204 02142000 CVTAQTOP EQU CVTS01+200 02143000 CVTIOSCS EQU CVTS01+196 02144000 CVTSDRM EQU CVTS01+192 02145000 CVTOPTE EQU CVTS01+188 02146000 CVTSTXU EQU CVTS01+184 02147000 CVTQUIS EQU CVTS01+180 02148000 CVTPARS EQU CVTS01+176 02149000 CVTS1EE EQU CVTS01+172 02150000 CVTFRAS EQU CVTS01+168 02151000 CVTQSAS EQU CVTS01+164 02152000 CVTCRAS EQU CVTS01+160 02153000 CVTCRMN EQU CVTS01+156 02154000 CVTDELCP EQU CVTS01+152 02155000 CVTFRECL EQU CVTS01+148 02156000 CVTGETCL EQU CVTS01+144 02157000 CVTBLDCP EQU CVTS01+140 02158000 CVTAUTHL EQU CVTS01+136 02159000 CVTSCAN EQU CVTS01+132 02160000 CVTRV144 EQU CVTS01+130 02161000 CVTMAXMP EQU CVTS01+128 02162000 CVTSTCK EQU CVTS01+124 02163000 CVTRV139 EQU CVTS01+123 02164000 CVTDSSAC EQU CVTS01+122 02165000 CVTRV513 EQU CVTS01+121 02166000 CVTIOSPL EQU CVTS01+120 02167000 CVTPTGT EQU CVTS01+116 02168000 CVTCSPIE EQU CVTS01+112 02169000 CVTSMFEX EQU CVTS01+108 02170000 CVTOLT0A EQU CVTS01+104 02171000 CVTSRBRT EQU CVTS01+100 02172000 CVTPUTL EQU CVTS01+96 02173000 CVTASCRL EQU CVTS01+92 02174000 CVTASCRF EQU CVTS01+88 02175000 CVTRV326 EQU CVTS01+84 02176000 CVTRV325 EQU CVTS01+80 02177000 CVTRV324 EQU CVTS01+76 02178000 CVT0VL01 EQU CVTS01+72 02179000 CVTSHRVM EQU CVTS01+68 02180000 CVTRV332 EQU CVTS01+64 02181000 CVTTAS EQU CVTS01+60 02182000 CVTRSCN EQU CVTS01+56 02183000 CVTTRAC2 EQU CVTS01+54 02184000 CVTTRACE EQU CVTS01+52 02185000 CVTAPG EQU CVTS01+51 02186000 CVTSDTRC EQU CVTCTLFG 02187000 CVTGTRCE EQU CVTCTLFG 02188000 CVTNOMP EQU CVTCTLFG 02189000 CVTRSV79 EQU CVTCTLFG 02190000 CVTDSTAT EQU CVTCTLFG 02191000 CVTRSV78 EQU CVTCTLFG 02192000 CVTRV333 EQU CVTCTLFG 02193000 CVTRV323 EQU CVTCTLFG 02194000 CVTSPVLK EQU CVTS01+49 02195000 CVTRSV77 EQU CVTS01+48 02196000 CVTRV331 EQU CVTS01+44 02197000 CVTRV330 EQU CVTS01+40 02198000 CVTRV329 EQU CVTS01+36 02199000 CVTRV328 EQU CVTS01+32 02200000 CVTRV322 EQU CVTS01+28 02201000 CVTSLID EQU CVTSLIDA+1 02202000 CVTSYLK EQU CVTSLIDA 02203000 CVTRV321 EQU CVTS01+20 02204000 CVTRV320 EQU CVTS01+16 02205000 CVTLPDIR EQU CVTLPDIA+1 02206000 CVTRSV69 EQU CVTDIRST 02207000 CVTRSV68 EQU CVTDIRST 02208000 CVTRSV67 EQU CVTDIRST 02209000 CVTRSV66 EQU CVTDIRST 02210000 CVTRSV65 EQU CVTDIRST 02211000 CVTRSV64 EQU CVTDIRST 02212000 CVTRSV63 EQU CVTDIRST 02213000 CVTDICOM EQU CVTDIRST 02214000 CVTPVTP EQU CVTS01+8 02215000 CVTLPDSR EQU CVTS01+4 02216000 CVTGETL EQU CVTS01 02217000 ISTPDAVP EQU ISTAVT+40 02218000 ISTAVR01 EQU ISTAVT+38 02219000 ISTVTTP EQU ISTAVT+36 02220000 ISTAGTWT EQU ISTAVT+34 02221000 ISTATRT EQU ISTAVT+32 02222000 ISTARID EQU ISTAVT+30 02223000 ISTX1 EQU ISTAVT+29 02224000 ISTPHNM EQU ISTAVT+24 02225000 ISTAPSEX EQU ISTAVT+20 02226000 ISTVTTIK EQU ISTAVT+18 02227000 AVTASID EQU ISTAVT+16 02228000 ISTAPSTA EQU ISTAVT+12 02229000 ISTAS53 EQU ISTAVT+8 02230000 ISTAHIP EQU ISTAS49 02231000 ISTACVT EQU ISTAVT 02232000 ATCAOS EQU ISTATCVT+1584 02233000 ATCPOPAB EQU ATCAOSM+640 02234000 ATCVIOPM EQU ATCAOSM+636 02235000 ATCTPMMI EQU ATCAOSM+632 02236000 ATCTPMPB EQU ATCAOSM+600 02237000 ATCRSV88 EQU ATCAOSM+596 02238000 ATCRPLCT EQU ATCAOSM+594 02239000 ATCCRACT EQU ATCAOSM+592 02240000 ATCSRBCT EQU ATCAOSM+590 02241000 ATCRSV75 EQU ATCAOSM+589 02242000 ATCRSV66 EQU ATCZFLAG 02243000 ATCZF001 EQU ATCZFLAG 02244000 ATCTPCP1 EQU ATCAOSM+584 02245000 ATCTPCP0 EQU ATCAOSM+580 02246000 ATCAICTN EQU ATCAOSM+576 02247000 ATCZR01 EQU ATCAOSM+572 02248000 ATCMPLTA EQU ATCAOSM+568 02249000 ATCASCB EQU ATCAOSM+564 02250000 ATCAP86 EQU ATCAOSM+560 02251000 ATCAP85 EQU ATCAOSM+556 02252000 ATCAP84 EQU ATCAOSM+552 02253000 ATCAP83 EQU ATCAOSM+548 02254000 ATCAP82 EQU ATCAOSM+544 02255000 ATCAP69 EQU ATCAOSM+540 02256000 ATCAP66 EQU ATCAOSM+536 02257000 ATCAP62 EQU ATCAOSM+532 02258000 ATCAPC59 EQU ATCAOSM+528 02259000 ATCAP56 EQU ATCAOSM+524 02260000 ATCAP55 EQU ATCAOSM+520 02261000 ATCRCFY0 EQU ATCAOSM+516 02262000 ATCAP41 EQU ATCAOSM+512 02263000 ATCAPC25 EQU ATCAOSM+508 02264000 ATCAP23 EQU ATCAOSM+504 02265000 ATCTPSPB EQU ATCAOSM+472 02266000 ATCTRMPB EQU ATCAOSM+440 02267000 ATCAPBE EQU ATCAOSM+436 02268000 ATCPSTA EQU ATCAOSM+432 02269000 ATCSMABF EQU ATCAOSM+428 02270000 ATCSMAPR EQU ATCAOSM+424 02271000 ATCTPWQA EQU ATCAOSM+420 02272000 ATCSMAID EQU ATCAOSM+416 02273000 ATCSMARA EQU ATCAOSM+412 02274000 ATCCACXA EQU ATCAOSM+408 02275000 ATCZLAAB EQU ATCAOSM+404 02276000 ATCATA10 EQU ATCAOSM+400 02277000 ATCHLTCB EQU ATCAOSM+396 02278000 @NM00073 EQU ATCVTFLG 02279000 ATCVTACT EQU ATCVTFLG 02280000 ATCRPT40 EQU ATCAOSM+388 02281000 ATCRPT39 EQU ATCAOSM+384 02282000 ATCRPT38 EQU ATCAOSM+380 02283000 ATCRPT37 EQU ATCAOSM+376 02284000 ATCRPT36 EQU ATCAOSM+372 02285000 ATCRPT35 EQU ATCAOSM+368 02286000 ATCRPT34 EQU ATCAOSM+364 02287000 ATCRPT33 EQU ATCAOSM+360 02288000 ATCRPT32 EQU ATCAOSM+356 02289000 ATCRPT31 EQU ATCAOSM+352 02290000 ATCRPT30 EQU ATCAOSM+348 02291000 ATCOCWCB EQU ATCAOSM+344 02292000 ATCOCWOB EQU ATCAOSM+340 02293000 ATCRPT27 EQU ATCAOSM+336 02294000 @NM00072 EQU ATCAOSM+333 02295000 @NM00071 EQU @NM00070 02296000 ATCSNUF EQU @NM00070 02297000 ATCOPKL EQU @NM00070 02298000 ATCABEN EQU @NM00070 02299000 ATCAIWT EQU ATCAOSM+328 02300000 ATCINFDD EQU ATCAOSM+324 02301000 ATCORFMG EQU ATCAOSM+320 02302000 ATCORFRL EQU ATCAOSM+316 02303000 ATCOROBT EQU ATCAOSM+312 02304000 ATCORQG EQU ATCORSRB 02305000 ATCORTBF EQU ATCSQAFR 02306000 ATCRPLAC EQU ATCRPLCN+2 02307000 ATCRPLRC EQU ATCRPLCN 02308000 ATCCRPLQ EQU ATCCRPL 02309000 ATCSRBAC EQU ATCSRBCN+2 02310000 ATCSRBRC EQU ATCSRBCN 02311000 ATCSRBQ EQU ATCSRB 02312000 ATCCRAAC EQU ATCCRACN+2 02313000 ATCCRARC EQU ATCCRACN 02314000 ATCCRAQ EQU ATCCRA 02315000 ATCRPT12 EQU ATCAOSM+276 02316000 ATCDMAPP EQU ATCAOSM+272 02317000 ATCAP38 EQU ATCAOSM+268 02318000 ATCZDFJ0 EQU ATCAOSM+260 02319000 ATCAP51 EQU ATCAOSM+256 02320000 ATCZPAB2 EQU ATCAOSM+224 02321000 ATCZPAB1 EQU ATCAOSM+192 02322000 ATCZLFVT EQU ATCAOSM+188 02323000 ATCZLPVT EQU ATCAOSM+184 02324000 ATCZDVTX EQU ATCAOSM+180 02325000 ATCZDVTA EQU ATCAOSM+176 02326000 ATCZDVT9 EQU ATCAOSM+172 02327000 ATCZDVT8 EQU ATCAOSM+168 02328000 ATCZDVT7 EQU ATCAOSM+164 02329000 ATCRSV56 EQU ATCDAPVT+22 02330000 ATCDAPDG EQU ATCDAPVT+20 02331000 ATCDXCEA EQU ATCDAPVT+16 02332000 ATCDCEA EQU ATCDAPVT+12 02333000 ATCDPCIA EQU ATCDAPVT+8 02334000 ATCDSIOA EQU ATCDAPVT+4 02335000 ATCDEOEA EQU ATCDAPVT 02336000 ATCZLAEA EQU ATCLDAPP+16 02337000 ATCZLCEA EQU ATCLDAPP+12 02338000 ATCRSV17 EQU ATCLDAPP+8 02339000 ATCSMFRR EQU ATCLDAPP+4 02340000 ATCCDTID EQU ATCLDAPP 02341000 ATCZAEA EQU ATCICAPP+16 02342000 ATCZCEA EQU ATCICAPP+12 02343000 ATCCDTCB EQU ATCICAPP+8 02344000 ATCZSIOA EQU ATCICAPP+4 02345000 ATCCDRPH EQU ATCICAPP 02346000 ATCAP65 EQU ATCAOSM+96 02347000 ATCZDVT6 EQU ATCAOSM+92 02348000 ATCZDVT4 EQU ATCAOSM+88 02349000 ATCZDVT3 EQU ATCAOSM+84 02350000 ATCZDVT1 EQU ATCAOSM+80 02351000 ATCICNCB EQU ATCAOSM+76 02352000 ATCZPSVT EQU ATCAOSM+72 02353000 ATCZFSVT EQU ATCAOSM+68 02354000 ATCAP64 EQU ATCAOSM+64 02355000 ATCAP63 EQU ATCAOSM+60 02356000 ATCAP61 EQU ATCAOSM+56 02357000 ATCAP58 EQU ATCAOSM+52 02358000 ATCAP57 EQU ATCAOSM+48 02359000 ATCAP54 EQU ATCAOSM+44 02360000 ATCAP53 EQU ATCAOSM+40 02361000 ATCAP52 EQU ATCAOSM+36 02362000 ATCAP32 EQU ATCAOSM+28 02363000 ATCAP31 EQU ATCAOSM+24 02364000 ATCAP12 EQU ATCAOSM+20 02365000 ATCAP11 EQU ATCAOSM+16 02366000 ATCCMTCB EQU ATCAOSM+12 02367000 ATCPRPH EQU ATCAOSM+8 02368000 ATCGSRBF EQU ATCGSRBG 02369000 ATCSRBRT EQU ATCAOSM 02370000 @NM00069 EQU @NM00068 02371000 ATCVTMAB EQU @NM00068 02372000 @NM00067 EQU ATCVTBAM 02373000 ATCVDLOK EQU ISTATCVT+904 02374000 ATCVFPAB EQU ISTATCVT+872 02375000 ATCVDPAB EQU ISTATCVT+840 02376000 ATCIOECB EQU ISTATCVT+836 02377000 ATCINCW3 EQU ISTATCVT+832 02378000 ATCMODTB EQU ISTATCVT+828 02379000 ATCUSSPT EQU ISTATCVT+824 02380000 ATCSRTAB EQU ISTATCVT+820 02381000 @NM00066 EQU ISTATCVT+819 02382000 @NM00065 EQU ATCSTAT2 02383000 ATCTRSMS EQU ATCSTAT2 02384000 ATCTRLOK EQU ATCSTAT2 02385000 ATCTRPSS EQU ATCSTAT2 02386000 ATCTRESC EQU ATCSTAT2 02387000 ATCTRAPI EQU ATCSTAT2 02388000 ATCNMCTR EQU ISTATCVT+816 02389000 ATCSEC51 EQU ATCSECST 02390000 ATCSEC40 EQU ATCSIPD+8 02391000 ATCSEC30 EQU ATCSIPD+4 02392000 ATCSEC21 EQU ATCSIPD 02393000 ATCSEC10 EQU ATCSOPD+4 02394000 ATCSEC01 EQU ATCSOPD 02395000 ATCPOIA EQU ATCRNO+1 02396000 @NM00064 EQU ATCRNO 02397000 ATCPODVT EQU ISTATCVT+784 02398000 ATCS49XL EQU ISTATCVT+780 02399000 ATCS49XI EQU ISTATCVT+776 02400000 ATCLCLCT EQU ATCVLCNT+2 02401000 ATCRNCNT EQU ATCVLCNT 02402000 ATCCFEAD EQU ISTATCVT+768 02403000 ATCPTR00 EQU ISTATCVT+736 02404000 ATCRSV10 EQU ISTATCVT+704 02405000 ATCTACB EQU ISTATCVT+700 02406000 ATCVTINM EQU ISTATCVT+696 02407000 ATCTCLIM EQU ISTATCVT+692 02408000 ATCTCLOM EQU ISTATCVT+688 02409000 ATCVTIPB EQU ISTATCVT+656 02410000 ATCTCIPB EQU ISTATCVT+624 02411000 ATCTIPAB EQU ISTATCVT+592 02412000 ATCOCCCB EQU ISTATCVT+588 02413000 ATCOCCOB EQU ISTATCVT+584 02414000 ATCCDLAD EQU ISTATCVT+580 02415000 ATCCCLAD EQU ISTATCVT+576 02416000 ATCDLRPB EQU ISTATCVT+544 02417000 ATCPGPAB EQU ISTATCVT+512 02418000 ATCVPAB1 EQU ISTATCVT+480 02419000 ATCRSV97 EQU ISTATCVT+476 02420000 ATCRDTLK EQU ISTATCVT+472 02421000 ATCVOCLK EQU ISTATCVT+468 02422000 ATCCDFDN EQU ISTATCVT+464 02423000 ATCCDFIN EQU ISTATCVT+460 02424000 ATCDVTLK EQU ISTATCVT+456 02425000 ATCAP36 EQU ISTATCVT+452 02426000 ATCAP35 EQU ISTATCVT+448 02427000 ATCAP33 EQU ISTATCVT+444 02428000 ATCRSV99 EQU ISTATCVT+440 02429000 ATCONFIG EQU ISTATCVT+432 02430000 ATCNODDS EQU ISTATCVT+428 02431000 ATCNODEL EQU ISTATCVT+420 02432000 ATCRSV69 EQU ISTATCVT+416 02433000 ATCAPCR5 EQU ISTATCVT+412 02434000 ATCLDECB EQU ISTATCVT+408 02435000 ATCLDNCS EQU ISTATCVT+404 02436000 ATCCDPTR EQU ISTATCVT+400 02437000 ATCADEL EQU ISTATCVT+396 02438000 ATCTODVT EQU ISTATCVT+392 02439000 ATCDEBCH EQU ISTATCVT+388 02440000 ATCHBSIZ EQU ATCHPGM+2 02441000 ATCHBFNO EQU ATCHPGM 02442000 ATCCRME EQU ISTATCVT+380 02443000 ATCRVCHS EQU ISTATCVT+372 02444000 ATCECTLP EQU ISTATCVT+368 02445000 ATCZDVTB EQU ISTATCVT+364 02446000 ATCECPRT EQU ISTATCVT+360 02447000 ATCVTLOD EQU ISTATCVT+356 02448000 ATCTRPAB EQU ISTATCVT+352 02449000 ATCMSGM EQU ISTATCVT+348 02450000 ATCMSGP EQU ISTATCVT+344 02451000 ATCEPT EQU ISTATCVT+340 02452000 ATCDVT EQU ISTATCVT+336 02453000 ATCTRCPT EQU ISTATCVT+332 02454000 ATCDVLOD EQU ISTATCVT+328 02455000 ATCALERT EQU ISTATCVT+324 02456000 ATCEPA EQU ISTATCVT+320 02457000 ATCSAF EQU ISTATCVT+318 02458000 ATCXRANG EQU ISTATCVT+317 02459000 ATCLAST EQU ATCSHRFG 02460000 ATCSHRTN EQU ISTATCVT+308 02461000 ATCUEP EQU ISTATCVT+304 02462000 ATCOCRT EQU ISTATCVT+300 02463000 ATCCSMA EQU ATCCSMR 02464000 ATCESC02 EQU ISTATCVT+292 02465000 ATCCDFND EQU ISTATCVT+284 02466000 ATCCDDEL EQU ISTATCVT+280 02467000 ATCCDADD EQU ISTATCVT+276 02468000 ATCMNT EQU ISTATCVT+272 02469000 ATCRSV16 EQU ISTATCVT+270 02470000 ATCMAXID EQU ISTATCVT+269 02471000 ATCMSGSP EQU ATCCOM+268 02472000 ATCCIDM EQU ATCCOM+266 02473000 ATCACTRM EQU ATCCOM+264 02474000 ATCNERAP EQU ATCCOM+260 02475000 ATCNESAL EQU ATCCOM+256 02476000 ATCRCC65 EQU ATCCOM+252 02477000 ATCRCC26 EQU ATCCOM+248 02478000 ATCRCC63 EQU ATCCOM+244 02479000 ATCRSV11 EQU ATCCOM+242 02480000 ATCVTMID EQU ATCCOM+240 02481000 ATCAPOST EQU ATCCOM+236 02482000 ATCNERFN EQU ATCCOM+232 02483000 ATCNERNE EQU ATCCOM+228 02484000 ATCNERCV EQU ATCCOM+224 02485000 ATCNERST EQU ATCCOM+220 02486000 ATCDCC61 EQU ATCCOM+216 02487000 ATCDCC60 EQU ATCCOM+212 02488000 ATCSRTDF EQU ATCCOM+208 02489000 ATCSRTAD EQU ATCCOM+204 02490000 ATCFIRA EQU ATCCOM+200 02491000 ATCSMBQ EQU ATCCOM+196 02492000 ATCSMRC EQU ATCCOM+192 02493000 ATCSMRS EQU ATCCOM+188 02494000 ATCSMQU EQU ATCCOM+184 02495000 ATCSMRQ EQU ATCCOM+180 02496000 ATCACDA EQU ATCCOM+176 02497000 ATCSTMA EQU ATCCOM+172 02498000 ATCFRSTR EQU ATCCOM+168 02499000 ATCGTSTR EQU ATCCOM+164 02500000 ATCREADA EQU ATCCOM+160 02501000 ATCALOAD EQU ATCCOM+156 02502000 ATCBLDLA EQU ATCCOM+152 02503000 ATCFBRPH EQU ATCCOM+148 02504000 ATCBFTRC EQU ATCCOM+144 02505000 ATCTPBUF EQU ATCTHTRC 02506000 ATCREMOV EQU ATCCOM+136 02507000 ATCADD EQU ATCCOM+132 02508000 ATCBPDA EQU ATCCOM+128 02509000 ATCDVTPT EQU ATCCOM+124 02510000 ATCFEPT EQU ATCCOM+120 02511000 ATCFDVT EQU ATCCOM+116 02512000 ATCCONFT EQU ATCCOM+112 02513000 ATCPTCHA EQU ATCCOM+108 02514000 ATCAUTHA EQU ATCCOM+104 02515000 ATCACCTA EQU ATCCOM+100 02516000 ATCRDTH EQU ATCCOM+96 02517000 ATCFRSCH EQU ATCCOM+92 02518000 ATCFSB EQU ATCCOM+88 02519000 ATCHLTMS EQU ATCCOM+84 02520000 ATCECPRM EQU ATCCOM+80 02521000 ATCECNET EQU ATCCOM+76 02522000 ATCECOPC EQU ATCCOM+72 02523000 ATCVPARM EQU ATCCOM+68 02524000 ATCECVRQ EQU ATCCOM+64 02525000 ATCECSES EQU ATCCOM+60 02526000 ATCOCHA EQU ATCCOM+56 02527000 ATCDSPLQ EQU ATCCOM+52 02528000 ATCECDSP EQU ATCCOM+48 02529000 ATCVARYQ EQU ATCCOM+44 02530000 ATCECVRY EQU ATCCOM+40 02531000 ATCHALTQ EQU ATCCOM+36 02532000 ATCECHLT EQU ATCCOM+32 02533000 ATCMODQ EQU ATCCOM+28 02534000 ATCECMOD EQU ATCCOM+24 02535000 ATCASCHD EQU ATCCOM+20 02536000 ATCSRT EQU ATCCOM+16 02537000 ATCRDT EQU ATCCOM+12 02538000 ATCDCFRR EQU ATCCOM+8 02539000 ATCAPI EQU ATCCOM+4 02540000 ATCRSV04 EQU ATCSTAT4 02541000 ATCVTTRC EQU ATCSTAT4 02542000 ATCNCSD EQU ATCSTAT4 02543000 ATCMTST EQU ATCSTAT4 02544000 ATCTPRT EQU ATCSTAT4 02545000 ATCPRTAT EQU ATCSTAT4 02546000 @NM00063 EQU ATCPOFLG 02547000 ATCPOUNS EQU ATCPOFLG 02548000 ATCHSDMF EQU ATCSTFLG 02549000 @NM00062 EQU ATCSTAT1 02550000 ATCMDHLT EQU ATCSTAT1 02551000 ATCINHLT EQU ATCSTAT1 02552000 ATCNETSL EQU ATCSTAT1 02553000 ATCQKHLT EQU ATCSTAT1 02554000 ATCSNHLT EQU ATCSTAT1 02555000 ATCACTIV EQU ATCSTAT1 02556000 ATCSTART EQU ATCSTAT1 02557000 DYPPAB EQU ISTDYPAB+16 02558000 DYPRSV01 EQU ISTDYPAB+12 02559000 DYPTSKID EQU ISTDYPAB+8 02560000 DYPCHAIN EQU ISTDYPAB+4 02561000 DYPFLGS EQU ISTDYPAB+2 02562000 DYPLNGTH EQU ISTDYPAB+1 02563000 DYPTYPE EQU ISTDYPAB 02564000 FMCFLRSV EQU FMCFLGB 02565000 FMCFLGA8 EQU FMCFLGB 02566000 FMCCLRPH EQU FMCVS1+45 02567000 FMCRSV0X EQU FMCCVFLG 02568000 FMCFRRPH EQU FMCCVFLG 02569000 FMCOWRPH EQU FMCCVFLG 02570000 FMCCDRPH EQU FMCCVFLG 02571000 FMCPSRPH EQU FMCCVFLG 02572000 FMCVYRPH EQU FMCCVFLG 02573000 FMCZV004 EQU FMCVS1+40 02574000 FMCLOCK2 EQU FMCVS1+36 02575000 @NM00061 EQU FMCZFLG2 02576000 FMCZF027 EQU FMCZFLG2 02577000 FMCZF026 EQU FMCZFLG2 02578000 FMCSEQ1B EQU FMCSEQ1 02579000 FMCSEQ1T EQU FMCSEQ1 02580000 FMCZX006 EQU FMCVS1+33 02581000 FMCZX005 EQU FMCVS1+32 02582000 FMCZX004 EQU FMCVS1+31 02583000 FMCZX003 EQU FMCVS1+30 02584000 FMCZX002 EQU FMCVS1+29 02585000 FMCZX001 EQU FMCVS1+28 02586000 FMCZV001 EQU FMCVS1+24 02587000 FMCAWATQ EQU FMCLCPAQ+1 02588000 @NM00060 EQU FMCLCPAQ 02589000 FMCLCPB2 EQU FMCLCPBQ+1 02590000 FMCLCPB1 EQU FMCLCPBQ 02591000 FMCASCDQ EQU FMCSHEAQ+1 02592000 @NM00059 EQU FMCSHEAQ 02593000 FMCSHEDQ EQU FMCVS1+8 02594000 FMCZFCSQ EQU FMCVS1+6 02595000 FMCZH001 EQU FMCVS1+4 02596000 FMCZF025 EQU FMCZFLAG+3 02597000 FMCZF024 EQU FMCZFLAG+3 02598000 FMCZF023 EQU FMCZFLAG+3 02599000 FMCZF022 EQU FMCZFLAG+3 02600000 FMCZF021 EQU FMCZFLAG+3 02601000 FMCZF020 EQU FMCZFLAG+3 02602000 FMCZF019 EQU FMCZFLAG+3 02603000 FMCZF018 EQU FMCZFLAG+3 02604000 FMCZF017 EQU FMCZFLAG+2 02605000 FMCZF016 EQU FMCZFLAG+2 02606000 FMCZF015 EQU FMCZFLAG+2 02607000 FMCZF014 EQU FMCZFLAG+2 02608000 FMCZF013 EQU FMCZFLAG+2 02609000 FMCZF012 EQU FMCZFLAG+2 02610000 FMCZF011 EQU FMCZFLAG+2 02611000 FMCZF010 EQU FMCZFLAG+2 02612000 FMCZF00F EQU FMCZFLAG+1 02613000 FMCZF00E EQU FMCZFLAG+1 02614000 FMCZF00D EQU FMCZFLAG+1 02615000 FMCZF00C EQU FMCZFLAG+1 02616000 FMCZF00B EQU FMCZFLAG+1 02617000 FMCRSV10 EQU FMCZFLAG+1 02618000 FMCZF009 EQU FMCZFLAG+1 02619000 FMCZFD06 EQU FMCZF006+1 02620000 FMCZFC06 EQU FMCZF006 02621000 FMCZFB06 EQU FMCZF006 02622000 FMCZFA06 EQU FMCZF006 02623000 FMCZF005 EQU FMCZFLAG 02624000 FMCZF004 EQU FMCZFLAG 02625000 FMCZF003 EQU FMCZFLAG 02626000 FMCZF002 EQU FMCZFLAG 02627000 FMCZF001 EQU FMCZFLAG 02628000 FMCFRESA EQU ISTFMCB+228 02629000 FMCSCSQN EQU FMCSNCTL+2 02630000 FMCSCCTL EQU FMCSNCTL+1 02631000 FMCSTCTL EQU FMCSCFLG 02632000 FMCSCCLO EQU FMCSCFLG 02633000 FMCAPRO EQU FMCSCFLG 02634000 FMCLURO EQU FMCSCFLG 02635000 FMCOBSAC EQU FMCSCFLG 02636000 FMCIBSAC EQU FMCSCFLG 02637000 FMCFBRE EQU ISTFMCB+220 02638000 FMCFBXM EQU FMCZV002 02639000 FMCASEGQ EQU ISTFMCB+212 02640000 FMCRDTPT EQU ISTFMCB+208 02641000 FMCLOCK EQU ISTFMCB+204 02642000 FMCSEGD EQU FMCSSEGQ 02643000 @NM00058 EQU FMCRRESP 02644000 FMCTSLHA EQU FMCRRESP 02645000 FMCFRRN EQU FMCRRESP 02646000 FMCFME EQU FMCRRESP 02647000 FMCFEX EQU FMCRRESP 02648000 FMCFPE EQU FMCRRESP 02649000 FMCCTLB EQU ISTFMCB+194 02650000 FMCBSQNO EQU FMCCLSEQ+2 02651000 FMCTSQNO EQU FMCCLSEQ 02652000 FMCOBPRG EQU FMCMODEB 02653000 FMCIBPRG EQU FMCMODEB 02654000 FMCRSTSR EQU FMCMODEB 02655000 FMCLUQ EQU FMCMODEB 02656000 FMCAPQ EQU FMCMODEB 02657000 FMCCLEAR EQU FMCMODEB 02658000 FMCHOLD EQU FMCMODEB 02659000 FMCIPSEQ EQU ISTFMCB+188 02660000 FMCLUSTR EQU ISTFMCB+187 02661000 FMCCDPIP EQU FMCSTAT2 02662000 FMCPSPIP EQU FMCSTAT2 02663000 FMCSEQI EQU FMCSTAT2 02664000 FMCCPIP EQU FMCSTAT2 02665000 FMCALIPR EQU FMCSTAT2 02666000 FMCIAIO EQU FMCSTAT2 02667000 FMCZF00A EQU FMCSTAT2 02668000 FMCVPIP EQU FMCSTAT2 02669000 FMCBHSET EQU ISTFMCB+185 02670000 FMCPRMRC EQU FMCCLEXT+20 02671000 FMCRSV89 EQU FMCPSTAT 02672000 FMCPCLSD EQU FMCPSTAT 02673000 FMCDDOCD EQU FMCPSTAT 02674000 FMCIDVFD EQU FMCPSTAT 02675000 FMCELKST EQU FMCPSTAT 02676000 FMCRSV88 EQU FMCPSCMD 02677000 FMCRDBLK EQU FMCPSCMD 02678000 FMCDSEOC EQU FMCPSCMD 02679000 FMCPURGE EQU FMCPSCMD 02680000 FMCRESTI EQU FMCPSCMD 02681000 FMCCNTCT EQU FMCPSCMD 02682000 FMCINVT EQU FMCPSCMD 02683000 FMCFLGB7 EQU FMCFLGCL 02684000 FMCFLGB6 EQU FMCFLGCL 02685000 FMCFLGB3 EQU FMCFLGCL 02686000 FMCFLGB2 EQU FMCFLGCL 02687000 FMCFLGB1 EQU FMCFLGCL 02688000 FMCFLGB0 EQU FMCFLGCL 02689000 FMCFLGA7 EQU FMCFLGA 02690000 FMCFLGA6 EQU FMCFLGA 02691000 FMCFLGA5 EQU FMCFLGA 02692000 FMCFLGA4 EQU FMCFLGA 02693000 FMCFLGA3 EQU FMCFLGA 02694000 FMCFLGA2 EQU FMCFLGA 02695000 FMCFLGA1 EQU FMCFLGA 02696000 FMCFLGA0 EQU FMCFLGA 02697000 FMCDCLOK EQU FMCCLEXT+12 02698000 FMCRAFM EQU FMCCLEXT+8 02699000 FMCFBPTR EQU FMCFBA+1 02700000 FMCFBRSV EQU FMCFBA 02701000 FMCRPLPT EQU FMCRPLA+1 02702000 FMCRPLRS EQU FMCRPLA 02703000 FMCPRCLS EQU FMCCVAL 02704000 FMCIBCE EQU FMCCVAL 02705000 FMCONLY EQU FMCOBCE 02706000 FMCLAST EQU FMCOBCE 02707000 FMCMIDLE EQU FMCOBCE 02708000 FMCFIRST EQU FMCOBCE 02709000 FMCCPCNT EQU FMCPACPC 02710000 FMCMPCNT EQU FMCPACEM 02711000 FMCNPCNT EQU FMCPACEN 02712000 FMCPURCH EQU FMCSSTAT 02713000 FMCNSALU EQU FMCSSTAT 02714000 FMCBIP EQU FMCSSTAT 02715000 FMCSDTR EQU FMCSSTAT 02716000 FMCUIPI EQU FMCSSTAT 02717000 FMCCIPI EQU FMCSSTAT 02718000 FMCSNBI EQU FMCSSTAT 02719000 FMCRVD01 EQU ISTFMCB+158 02720000 FMCISSN EQU ISTFMCB+156 02721000 FMCOASN EQU FMCNXOSC 02722000 FMCOSSN EQU FMCNXCFM 02723000 FMCSIP EQU FMCSIPA 02724000 FMCEXLST EQU ISTFMCB+144 02725000 FMCPAB4 EQU ISTFMCB+112 02726000 FMCPAB2 EQU ISTFMCB+80 02727000 FMCPAB1 EQU ISTFMCB+64 02728000 FMCFASYA EQU ISTFMCB+60 02729000 FMCMODE EQU ISTFMCB+52 02730000 FMCPROCD EQU ISTFMCB+48 02731000 FMCVWT EQU ISTFMCB+44 02732000 FMCRPLH EQU ISTFMCB+40 02733000 FMCBUFNB EQU FMCCMPS1+2 02734000 FMCBUFLM EQU FMCCMPS1 02735000 FMCDEBA EQU ISTFMCB+32 02736000 @NM00057 EQU FMCCMDFL 02737000 FMCSNA EQU FMCCMDFL 02738000 FMCVSNA EQU FMCCMDFL 02739000 FMCCMDR EQU FMCCMDFL 02740000 @NM00056 EQU ISTFMCB+30 02741000 @NM00055 EQU FMCSTAT1 02742000 FMCLTCLS EQU FMCSTAT1 02743000 FMCHPURG EQU FMCSTAT1 02744000 FMCVSP2 EQU FMCSTAT1 02745000 FMCVSP1 EQU FMCSTAT 02746000 FMCLTEAS EQU FMCSTAT 02747000 FMCZF007 EQU FMCSTAT 02748000 FMCDEDSC EQU FMCSTAT 02749000 FMCDEVOF EQU FMCSTAT 02750000 FMCDAPT EQU FMCSTAT 02751000 FMCPRMTE EQU FMCSTAT 02752000 FMCPRMTR EQU FMCSTAT 02753000 FMCUSFLD EQU ISTFMCB+24 02754000 FMCFMCBA EQU ISTFMCB+20 02755000 FMCDVTA EQU ISTFMCB+12 02756000 FMCTSKID EQU ISTFMCB+8 02757000 FMCNXTCB EQU ISTFMCB+4 02758000 FMCSAF EQU ISTFMCB+2 02759000 FMCLNGTH EQU ISTFMCB+1 02760000 FMCTYPE EQU ISTFMCB 02761000 PROSRDEF EQU PROSETM4 02762000 PRORSV47 EQU PROSETM4 02763000 PROSCON EQU PROSETM4 02764000 PRORSV46 EQU PROSETM3 02765000 PROSMONT EQU PROSETM3 02766000 PRORSV45 EQU PROSETM3 02767000 PROSNTO EQU PROSETM3 02768000 PRORSV44 EQU PROSETM3 02769000 PROCPUID EQU PROSETM3 02770000 PRORSV43 EQU PROSETM2 02771000 PROSNTFL EQU PROSETM2 02772000 PRORSV42 EQU PROSETM2 02773000 PRORSV41 EQU PROPROCS 02774000 PROMODC EQU PROPROC4 02775000 PROMODT EQU PROPROC4 02776000 PROMODM EQU PROPROC4 02777000 PROMODB EQU PROPROC4 02778000 PRORSV14 EQU PROPROC4 02779000 PRORSV13 EQU PROPROC4 02780000 PRORSV12 EQU PROPROC4 02781000 PROEIB EQU PROPROC4 02782000 PROMONT3 EQU PROPROC3 02783000 PROMONT2 EQU PROPROC3 02784000 PROMONIT EQU PROPROC3 02785000 PROSUBLK EQU PROPROC3 02786000 PRONTO EQU PROPROC3 02787000 PROLGIN EQU PROPROC3 02788000 PROERPI EQU PROPROC3 02789000 PRORSV07 EQU PROPROC3 02790000 PROCFTX EQU PROPROC2 02791000 PROEMLC EQU PROPROC2 02792000 PRONTFL EQU PROPROC2 02793000 PRORSV05 EQU PROPROC2 02794000 PRORSV04 EQU PROPROC2 02795000 PROLGOT EQU PROPROC2 02796000 PROERPO EQU PROPROC2 02797000 PRORSV03 EQU PROPROC2 02798000 PRORPLC EQU PROPROC1 02799000 PROCS EQU PROPROC1 02800000 PROCA EQU PROPROC1 02801000 PRORESPX EQU PROPROC1 02802000 PRODFASY EQU PROPROC1 02803000 PROXPOPT EQU PROPROC1 02804000 PROTRUNC EQU PROPROC1 02805000 PROASYIP EQU PROPROC1 02806000 DCLECHAR EQU ISTDCLCP+98 02807000 DCLIOLEN EQU ISTDCLCP+96 02808000 DCLBTLEN EQU ISTDCLCP+92 02809000 DCLCLDOA EQU ISTDCLCP+88 02810000 DCLIOBUF EQU ISTDCLCP+84 02811000 DCLLDO1 EQU ISTDCLCP+80 02812000 DCLRSV03 EQU ISTDCLCP+79 02813000 DCLRSV02 EQU DCLFLAG1 02814000 DCLRPLS EQU DCLFLAG1 02815000 DCLBTEIS EQU DCLFLAG1 02816000 DCLNODE EQU DCLFLAG1 02817000 DCLRSV04 EQU DCLFLAG1 02818000 DCLSRESW EQU DCLFLAG1 02819000 DCLBNSP EQU DCLRFLG 02820000 DCLCONV EQU DCLRFLG 02821000 DCLRSV01 EQU DCLRFLG 02822000 DCLRQTP EQU DCLRTYPE 02823000 DCLRPLA EQU ISTDCLCP+72 02824000 DCLLCPB EQU ISTDCLCP 02825000 CRRRVPT5 EQU CRRSAREA+316 02826000 CRRRVPT4 EQU CRRSAREA+312 02827000 CRRRVPT3 EQU CRRSAREA+308 02828000 CRRRVPT2 EQU CRRSAREA+304 02829000 CRRRVPT1 EQU CRRSAREA+300 02830000 CRRRVCR2 EQU CRRSAREA+292 02831000 CRRXFNCD EQU CRRSAREA+290 02832000 CRRLDOCT EQU CRRSAREA+288 02833000 CRRBTLEN EQU CRRSAREA+284 02834000 CRRBLEN EQU CRRSAREA+282 02835000 CRRBRTCD EQU CRRSAREA+281 02836000 @NM00054 EQU CRRBFLGS 02837000 CRRBFLG1 EQU CRRBFLGS 02838000 CRRBLDAD EQU CRRSAREA+276 02839000 CRRBARAD EQU CRRSAREA+272 02840000 CRRRTN12 EQU CRRSAREA+268 02841000 CRRRTN11 EQU CRRSAREA+264 02842000 CRRRTN10 EQU CRRSAREA+260 02843000 CRRRTN9 EQU CRRSAREA+256 02844000 CRRRTN8 EQU CRRSAREA+252 02845000 CRRRTN7 EQU CRRSAREA+248 02846000 CRRRTN6 EQU CRRSAREA+244 02847000 CRRRTN5 EQU CRRSAREA+240 02848000 CRRRTN4 EQU CRRSAREA+236 02849000 CRRRTN3 EQU CRRSAREA+232 02850000 CRRRTN2 EQU CRRSAREA+228 02851000 CRRRES1 EQU CRRSAREA+222 02852000 CRRLCNT EQU CRRSAREA+220 02853000 CRRVALCK EQU CRRSAREA+212 02854000 CRRBIND EQU CRRTRBUF+3 02855000 CRRTRRES EQU CRRTRBUF 02856000 CRRCLDO EQU CRRSAREA+200 02857000 CRRUECB EQU CRRSAREA+196 02858000 CRRCMDAD EQU CRRSAREA+188 02859000 CRRCLCCW EQU CRRSAREA+180 02860000 CRRESR2 EQU CRRESR+1 02861000 CRRESR1 EQU CRRESR 02862000 CRRDSB2 EQU CRRDSB+1 02863000 CRRDSB1 EQU CRRDSB 02864000 CRRDTACT EQU CRRSAREA+174 02865000 CRRRSV99 EQU CRRSAREA+173 02866000 CRRRDSOH EQU CRRFDB3 02867000 CRRRLG EQU CRRFDB3 02868000 CRRLGFRC EQU CRRFDB3 02869000 CRRRDEOT EQU CRRFDB3 02870000 CRRRDEOM EQU CRRFDB3 02871000 CRRRDEOB EQU CRRFDB3 02872000 CRRUNUSD EQU CRRFDB3 02873000 CRRUINPT EQU CRRFDB3 02874000 CRRSTSAV EQU CRRFDB2 02875000 CRRCUERR EQU CRRFDB2 02876000 CRRDLGFL EQU CRRFDB2 02877000 CRRIOERR EQU CRRFDB2 02878000 CRRDVUNS EQU CRRFDB2 02879000 CRRATND EQU CRRFDB2 02880000 CRRRVID EQU CRRFDB2 02881000 CRRERLK EQU CRRFDB2 02882000 CRRNSNA EQU CRRRTYPE 02883000 CRRDFSYN EQU CRRRTYPE 02884000 CRRRESP EQU CRRRTYPE 02885000 CRRDFASY EQU CRRRTYPE 02886000 CRRDBLCK EQU CRRRFLG1 02887000 CRRRPSBD EQU CRRRFLG1 02888000 CRRRPLOQ EQU CRRRFLG1 02889000 CRRRPLS EQU CRRRFLG1 02890000 CRRSW7 EQU CRRFLGS 02891000 CRRSW6 EQU CRRFLGS 02892000 CRRSW5 EQU CRRFLGS 02893000 CRRSW4 EQU CRRFLGS 02894000 CRRSW3 EQU CRRFLGS 02895000 CRRRSV04 EQU CRRFLGS4 02896000 CRRFMCLK EQU CRRFLGS4 02897000 CRRDLCCW EQU CRRFLGS3 02898000 CRRRESET EQU CRRFLGS3 02899000 CRRSUBBK EQU CRRFLGS3 02900000 CRRRSV08 EQU CRRFLGS3 02901000 CRRDEBQ EQU CRRFLGS3 02902000 CRRSTSPR EQU CRRFLGS3 02903000 CRRDREQ EQU CRRFLGS3 02904000 CRRDFDBK EQU CRRFLGS3 02905000 CRRDFSB EQU CRRFLGS2 02906000 CRRDPROC EQU CRRFLGS2 02907000 CRREXTS EQU CRRFLGS2 02908000 CRRELSRI EQU CRRFLGS2 02909000 CRRPOST EQU CRRFLGS2 02910000 CRRENDLW EQU CRRFLGS2 02911000 CRRPRGIP EQU CRRFLGS2 02912000 CRRDEXP EQU CRRFLGS2 02913000 CRRSOLRQ EQU CRRFLGS1 02914000 CRRREQP EQU CRRFLGS1 02915000 CRRCPROC EQU CRRFLGS1 02916000 CRRFINI EQU CRRFLGS1 02917000 CRRPREIO EQU CRRFLGS1 02918000 CRRINIO EQU CRRFLGS1 02919000 CRRFLDOS EQU CRRFLGS1 02920000 CRRDOCUR EQU CRRFLGS1 02921000 CRRRATS4 EQU CRRATS+7 02922000 @NM00053 EQU CRRSATS 02923000 CRRASC51 EQU CRRSATS 02924000 CRRASC40 EQU CRRSATS 02925000 CRRASC30 EQU CRRSATS 02926000 CRRASC21 EQU CRRSATS 02927000 CRRASC10 EQU CRRSATS 02928000 CRRASC01 EQU CRRSATS 02929000 @NM00052 EQU CRRRATS2 02930000 CRRPLIC EQU CRRRATS2 02931000 CRRRC81 EQU CRRRATS2 02932000 CRRRC80 EQU CRRRATS2 02933000 CRRRC65 EQU CRRRATS2 02934000 CRRRC63 EQU CRRRATS2 02935000 CRRRC55 EQU CRRRATS2 02936000 CRRRC54 EQU CRRRATS2 02937000 CRRRC53 EQU CRRRATS1 02938000 CRRRC52 EQU CRRRATS1 02939000 CRRRC51 EQU CRRRATS1 02940000 CRRRC30 EQU CRRRATS1 02941000 CRRRC26 EQU CRRRATS1 02942000 CRRRC23 EQU CRRRATS1 02943000 CRRRC21 EQU CRRRATS1 02944000 @NM00051 EQU CRRATS4 02945000 CRRC3X EQU CRRATS4 02946000 CRRC85 EQU CRRATS4 02947000 CRRC83 EQU CRRATS4 02948000 CRRC82 EQU CRRATS4 02949000 CRRC61 EQU CRRATS4 02950000 CRRC60 EQU CRRATS4 02951000 CRRC81 EQU CRRATS3 02952000 CRRC80 EQU CRRATS3 02953000 CRRC75 EQU CRRATS3 02954000 CRRC51 EQU CRRATS3 02955000 CRRC50 EQU CRRATS3 02956000 CRRC42 EQU CRRATS3 02957000 CRRC41 EQU CRRATS3 02958000 CRRC40 EQU CRRATS3 02959000 CRRC32 EQU CRRATS2 02960000 CRRC31 EQU CRRATS2 02961000 CRRC30 EQU CRRATS2 02962000 CRRC25 EQU CRRATS2 02963000 CRRC24 EQU CRRATS2 02964000 CRRC23 EQU CRRATS2 02965000 CRRC22 EQU CRRATS2 02966000 CRRC21 EQU CRRATS2 02967000 CRRC20 EQU CRRATS1 02968000 CRRC13 EQU CRRATS1 02969000 CRRC12 EQU CRRATS1 02970000 CRRC11 EQU CRRATS1 02971000 CRRC10 EQU CRRATS1 02972000 CRRC02 EQU CRRATS1 02973000 CRRC01 EQU CRRATS1 02974000 CRRC00 EQU CRRATS1 02975000 CRRRMAS4 EQU CRRMAS+7 02976000 @NM00050 EQU CRRSMAS 02977000 CRRMSC51 EQU CRRSMAS 02978000 CRRMSC40 EQU CRRSMAS 02979000 CRRMSC30 EQU CRRSMAS 02980000 CRRMSC21 EQU CRRSMAS 02981000 CRRMSC10 EQU CRRSMAS 02982000 CRRMSC01 EQU CRRSMAS 02983000 @NM00049 EQU CRRRMAS2 02984000 CRRRM81 EQU CRRRMAS2 02985000 CRRRM80 EQU CRRRMAS2 02986000 CRRRM65 EQU CRRRMAS2 02987000 CRRRM63 EQU CRRRMAS2 02988000 CRRRM55 EQU CRRRMAS2 02989000 CRRRM54 EQU CRRRMAS2 02990000 CRRRM53 EQU CRRRMAS1 02991000 CRRRM52 EQU CRRRMAS1 02992000 CRRRM51 EQU CRRRMAS1 02993000 CRRRM30 EQU CRRRMAS1 02994000 CRRRM26 EQU CRRRMAS1 02995000 CRRRM23 EQU CRRRMAS1 02996000 CRRRM21 EQU CRRRMAS1 02997000 @NM00048 EQU CRRMAS4 02998000 CRRM3X EQU CRRMAS4 02999000 CRRM85 EQU CRRMAS4 03000000 CRRM83 EQU CRRMAS4 03001000 CRRM82 EQU CRRMAS4 03002000 CRRM61 EQU CRRMAS4 03003000 CRRM60 EQU CRRMAS4 03004000 CRRM81 EQU CRRMAS3 03005000 CRRM80 EQU CRRMAS3 03006000 CRRM75 EQU CRRMAS3 03007000 CRRM51 EQU CRRMAS3 03008000 CRRM50 EQU CRRMAS3 03009000 CRRM42 EQU CRRMAS3 03010000 CRRM41 EQU CRRMAS3 03011000 CRRM40 EQU CRRMAS3 03012000 CRRM32 EQU CRRMAS2 03013000 CRRM31 EQU CRRMAS2 03014000 CRRM30 EQU CRRMAS2 03015000 CRRM25 EQU CRRMAS2 03016000 CRRM24 EQU CRRMAS2 03017000 CRRM23 EQU CRRMAS2 03018000 CRRM22 EQU CRRMAS2 03019000 CRRM21 EQU CRRMAS2 03020000 CRRM20 EQU CRRMAS1 03021000 CRRM13 EQU CRRMAS1 03022000 CRRM12 EQU CRRMAS1 03023000 CRRM11 EQU CRRMAS1 03024000 CRRM10 EQU CRRMAS1 03025000 CRRM02 EQU CRRMAS1 03026000 CRRM01 EQU CRRMAS1 03027000 CRRM00 EQU CRRMAS1 03028000 CRRFSB EQU CRRSAREA+144 03029000 CRRSAVE1 EQU CRRSAREA+72 03030000 CRRSAVE EQU CRRSAREA 03031000 CRRRSV22 EQU ISTDCCRR+4 03032000 CRRCRR EQU ISTDCCRR 03033000 DNCZC001 EQU DNCOS+40 03034000 DNCLOCK EQU DNCOS+36 03035000 DNCZV005 EQU DNCOS+32 03036000 DNCZV004 EQU DNCOS+28 03037000 DNCZV003 EQU DNCOS+24 03038000 DNCZV002 EQU DNCOS+21 03039000 DNCZX001 EQU DNCOS+20 03040000 DNCZV001 EQU DNCOS+17 03041000 DNCZX003 EQU DNCOS+16 03042000 DNCZV000 EQU DNCOS+12 03043000 DNCSESCQ EQU DNCOS+8 03044000 DNCSESIQ EQU DNCOS+4 03045000 DNCACIP EQU DNCBSCED+1 03046000 DNCLICP EQU DNCBSCED 03047000 DNCZF008 EQU DNCZFLGS+1 03048000 DNCZPSRD EQU DNCZFLGS+1 03049000 DNCPSOL EQU DNCZFLGS+1 03050000 DNCZF007 EQU DNCZFLGS+1 03051000 DNCZF006 EQU DNCZFLGS+1 03052000 DNCZF005 EQU DNCZFLGS+1 03053000 DNCZF004 EQU DNCZFLGS+1 03054000 DNCZF003 EQU DNCZFLGS 03055000 DNCZF002 EQU DNCZFLGS 03056000 DNCZRSCH EQU DNCZFLGS 03057000 DNCDISC EQU DNCZFLGS 03058000 DNCCONT EQU DNCZFLGS 03059000 DNCINVIT EQU DNCZFLGS 03060000 DNCSESS EQU DNCZFLGS 03061000 DNCZF001 EQU DNCZFLGS 03062000 DNCMODE EQU ISTDNCB+49 03063000 DNCBHSET EQU ISTDNCB+48 03064000 DNCNCB EQU ISTDNCB 03065000 NCBRSV01 EQU ISTNCB+46 03066000 NCBSWDAF EQU ISTNCB+44 03067000 NCBFMCBP EQU ISTNCB+32 03068000 NCBLTRC EQU ISTNCB+30 03069000 NCBRVPT1 EQU ISTNCB+28 03070000 NCBNMLLN EQU NCBFLAGS+3 03071000 @NM00047 EQU NCBFLAG1 03072000 NCBFORCE EQU NCBFLAG1 03073000 NCBTTF EQU NCBFLAG1 03074000 NCBRSYNC EQU NCBFLAG1 03075000 NCBRSTRT EQU NCBFLAG1 03076000 NCBCONF EQU NCBFLAG1 03077000 NCBSNAI EQU NCBFLAG1 03078000 NCBFLTIO EQU NCBFTRIO 03079000 NCBCSTAT EQU NCBFLAGS 03080000 NCBNCSL EQU ISTNCB+22 03081000 NCBNCBA EQU ISTNCB+20 03082000 NCBFMCBA EQU ISTNCB+16 03083000 NCBNSNA EQU ISTNCB+12 03084000 NCBTSKID EQU ISTNCB+8 03085000 NCBRDTE EQU ISTNCB+4 03086000 NCBDAF EQU ISTNCB+2 03087000 NCBLNGTH EQU ISTNCB+1 03088000 NCBTYPE EQU ISTNCB 03089000 PABRPHA EQU PABRPHFG+1 03090000 PABNODQ EQU PABFLAGS 03091000 PABERLOK EQU PABERRLK 03092000 PABSSN EQU PABFLAGS 03093000 PABDYNAM EQU PABFLAGS 03094000 PABNORPR EQU PABFLAGS 03095000 PABPRIOR EQU PABFLAGS 03096000 PABAPYP EQU PABFLAGS 03097000 PABDVTA EQU ISTPAB+9 03098000 PABOFFST EQU ISTPAB+8 03099000 PABCHNGP EQU PABCHAIN+1 03100000 PABRSV02 EQU PABCHAIN 03101000 PABDELAY EQU PABCHAIN 03102000 PABRUNNG EQU PABCHAIN 03103000 PABRESET EQU PABCHAIN 03104000 PABUNCON EQU PABCHAIN 03105000 PABCDP EQU PABCHAIN 03106000 PABRESCH EQU PABCHAIN 03107000 PABCHNG EQU PABCHAIN 03108000 PABWEQP EQU PABWEQA+1 03109000 PABRSV01 EQU PABWEQA 03110000 PABWEQG EQU PABWEQA 03111000 LOKXCL EQU @NM00045 03112000 LOKPRY EQU @NM00045 03113000 @NM00046 EQU @NM00045 03114000 @NM00044 EQU LOKCHNG 03115000 LOKCT EQU ISTLOK 03116000 DEVRSV03 EQU ISTDEVCH+5 03117000 DEVPHYSA EQU ISTDEVCH+4 03118000 DEVCSLPN EQU DEVCHAR3 03119000 DEVCSTCL EQU DEVCHAR3 03120000 DEVCCHEK EQU DEVCHAR3 03121000 DEVCATTN EQU DEVCHAR3 03122000 DEVCSWL EQU DEVFCCTL 03123000 DEVCRVB EQU DEVFCCTL 03124000 DEVCSSL EQU DEVFCCTL 03125000 DEVCBSC EQU DEVFCCTL 03126000 DEVMCODE EQU ISTDEVCH+2 03127000 DEVCHAR2 EQU DEVTCODE 03128000 DEVRSV01 EQU DEVCHAR 03129000 DEVCCTL EQU DEVCHAR 03130000 DEVNNSPT EQU DEVCHAR 03131000 DEVSPS EQU DEVCHAR 03132000 DEVSUBND EQU DEVCHAR 03133000 DEVCONVR EQU DEVCHAR 03134000 DEVOTPUT EQU DEVCHAR 03135000 DEVINPUT EQU DEVCHAR 03136000 CRACHAIN EQU ISTCRA+928 03137000 CRARSV02 EQU ISTCRA+924 03138000 CRARSV01 EQU ISTCRA+920 03139000 CRABFTBA EQU CRABUFA 03140000 CRAMASK EQU CRASVC+64 03141000 CRAHSIZ EQU CRASVC+60 03142000 CRAASCRR EQU CRASVC 03143000 CRAPROCR EQU ISTCRA+312 03144000 CRAPSS EQU ISTCRA+160 03145000 CRARPH EQU ISTCRA+52 03146000 CRALAPTR EQU CRABASIC+48 03147000 CRAL9PTR EQU CRABASIC+44 03148000 CRAL8PTR EQU CRABASIC+40 03149000 CRAL7PTR EQU CRABASIC+36 03150000 CRAL6PTR EQU CRABASIC+32 03151000 CRAL5PTR EQU CRABASIC+28 03152000 CRAL4PTR EQU CRABASIC+24 03153000 CRAL3PTR EQU CRABASIC+20 03154000 CRAL2PTR EQU CRABASIC+16 03155000 CRAL1PTR EQU CRABASIC+12 03156000 CRALEV01 EQU CRALKACT+3 03157000 CRALEV02 EQU CRALKACT+3 03158000 CRALEV03 EQU CRALKACT+3 03159000 CRALEV04 EQU CRALKACT+3 03160000 CRALEV05 EQU CRALKACT+3 03161000 CRALEV06 EQU CRALKACT+3 03162000 CRALEV07 EQU CRALKACT+3 03163000 CRALEV08 EQU CRALKACT+3 03164000 CRALEV09 EQU CRALKACT+2 03165000 CRALEV10 EQU CRALKACT+2 03166000 CRALEV11 EQU CRALKACT+2 03167000 CRALEV12 EQU CRALKACT+2 03168000 CRALEV13 EQU CRALKACT+2 03169000 CRALEV14 EQU CRALKACT+2 03170000 CRALEV15 EQU CRALKACT+2 03171000 CRALEV16 EQU CRALKACT+2 03172000 CRALEV17 EQU CRALKACT+1 03173000 CRALEV18 EQU CRALKACT+1 03174000 CRALEV19 EQU CRALKACT+1 03175000 CRALEV20 EQU CRALKACT+1 03176000 CRALEV21 EQU CRALKACT+1 03177000 CRALEV22 EQU CRALKACT+1 03178000 CRALEV23 EQU CRALKACT+1 03179000 CRALEV24 EQU CRALKACT+1 03180000 CRALEV25 EQU CRALKACT 03181000 CRALEV26 EQU CRALKACT 03182000 CRALEV27 EQU CRALKACT 03183000 CRALEV28 EQU CRALKACT 03184000 CRALEV29 EQU CRALKACT 03185000 CRALEV30 EQU CRALKACT 03186000 CRALEV31 EQU CRALKACT 03187000 CRALEV32 EQU CRALKACT 03188000 CRAFRR EQU CRAHDR+4 03189000 @NM00043 EQU ISTAPCRR+137 03190000 @NM00042 EQU APC57FLG 03191000 APCNREL EQU APC57FLG 03192000 APCRECRA EQU APC57FLG 03193000 @NM00041 EQU APC54FLG 03194000 APCRLST EQU APC54FLG 03195000 APCPR153 EQU APC53FLG 03196000 @NM00040 EQU APC52FLG 03197000 APCWKF EQU APC52FLG 03198000 APCNWF EQU APC52FLG 03199000 APCRDQ EQU APC52FLG 03200000 APCQENQ EQU APC52FLG 03201000 APCSMSR EQU APC52FLG 03202000 APCCKRQ EQU APC52FLG 03203000 @NM00039 EQU APC31FLG 03204000 APCSORT EQU APC31FLG 03205000 APCRESCH EQU APC31FLG 03206000 APCTPXIT EQU APC31FLG 03207000 APCSWTWD EQU ISTAPCRR+128 03208000 APCSAV2 EQU ISTAPCRR+124 03209000 APCSAV1 EQU ISTAPCRR+120 03210000 APCRETCD EQU APCCOMF+2 03211000 @NM00038 EQU APCCOMF1+1 03212000 APCZLBER EQU APCCOMF1 03213000 APCEXIT EQU APCCOMF1 03214000 APCRELR EQU APCCOMF1 03215000 APCIRB2 EQU APCCOMF1 03216000 APCIRB1 EQU APCCOMF1 03217000 APCSMCR EQU APCCOMF1 03218000 APCUETSK EQU APCCOMF1 03219000 APCSSTSK EQU APCCOMF1 03220000 APCESTAL EQU APCSAVE 03221000 APCFRRPM EQU ISTAPCRR+40 03222000 APCQWFO EQU ISTAPCRR+36 03223000 APCPABSV EQU ISTAPCRR+32 03224000 APCRTRN EQU ISTAPCRR+28 03225000 APCTCBA EQU ISTAPCRR+24 03226000 APCPSTA EQU ISTAPCRR+20 03227000 @NM00037 EQU APCRFLG+1 03228000 APC31R EQU APCRFLG 03229000 APC58R EQU APCRFLG 03230000 APC57R EQU APCRFLG 03231000 APC56R EQU APCRFLG 03232000 APC54R EQU APCRFLG 03233000 APC53R EQU APCRFLG 03234000 APC52R EQU APCRFLG 03235000 APC51R EQU APCRFLG 03236000 @NM00036 EQU APCATFLG+1 03237000 APC31E EQU APCATFLG 03238000 APC58E EQU APCATFLG 03239000 APC57E EQU APCATFLG 03240000 APC56E EQU APCATFLG 03241000 APC54E EQU APCATFLG 03242000 APC53E EQU APCATFLG 03243000 APC52E EQU APCATFLG 03244000 APC51E EQU APCATFLG 03245000 APCHDRSV EQU ISTAPCRR 03246000 ASCPSREG EQU ISTASCRR+44 03247000 ASCUSR01 EQU ASCUSRGS+12 03248000 ASCUSR00 EQU ASCUSRGS+8 03249000 ASCUSR15 EQU ASCUSRGS+4 03250000 ASCUSR14 EQU ASCUSRGS 03251000 ASCETRYA EQU ISTASCRR+24 03252000 ASCKEY EQU ISTASCRR+23 03253000 ASCAUDIT EQU ASCFLG3 03254000 ASCFBDUD EQU ASCFLG3 03255000 ASCLLKF EQU ASCFLG3 03256000 ASCKEYF EQU ASCFLG3 03257000 ASCFBDAL EQU ASCFLG3 03258000 ASCFSRGT EQU ASCFLG3 03259000 ASCICR EQU ASCFLG2 03260000 ASCFSRIC EQU ASCFLG2 03261000 ASCFBDIC EQU ASCFLG2 03262000 ASCFBAIC EQU ASCFLG2 03263000 ASCPASTR EQU ASCFLG1 03264000 ASCFSR EQU ASCFLG1 03265000 ASCFBD EQU ASCFLG1 03266000 ASCFBA EQU ASCFLG1 03267000 ASCPFCRR EQU ISTASCRR 03268000 ZCRRU EQU ZCRRHRU+3 03269000 ZCRRH EQU ZCRRHRU 03270000 ZCRWORDA EQU ISTZCRR+477 03271000 ZCRCMNRC EQU ISTZCRR+476 03272000 ZCRRSV97 EQU ZCRENTER+18 03273000 ZCREIC2B EQU ZCRENTER+18 03274000 ZCREAC2B EQU ZCRENTER+18 03275000 ZCRELCAB EQU ZCRENTER+18 03276000 ZCREDCMF EQU ZCRENTER+18 03277000 ZCREBCIF EQU ZCRENTER+18 03278000 ZCREICSG EQU ZCRENTER+18 03279000 ZCREDCK0 EQU ZCRENTER+18 03280000 ZCRECFY0 EQU ZCRENTER+17 03281000 ZCREKCCB EQU ZCRENTER+17 03282000 ZCREDCNB EQU ZCRENTER+17 03283000 ZCREICOE EQU ZCRENTER+17 03284000 ZCREBCNB EQU ZCRENTER+17 03285000 ZCREBC0L EQU ZCRENTER+17 03286000 ZCREBCAL EQU ZCRENTER+17 03287000 ZCREDCQR EQU ZCRENTER+17 03288000 ZCREDCPR EQU ZCRENTER+16 03289000 ZCREBCSB EQU ZCRENTER+16 03290000 ZCREAC1R EQU ZCRENTER+16 03291000 ZCRECCCI EQU ZCRENTER+16 03292000 ZCRECCAI EQU ZCRENTER+16 03293000 ZCRECCBI EQU ZCRENTER+16 03294000 ZCREBCAR EQU ZCRENTER+16 03295000 ZCREBCDR EQU ZCRENTER+16 03296000 ZCREBCBR EQU ZCRENTER+15 03297000 ZCREDCXR EQU ZCRENTER+15 03298000 ZCREDCWB EQU ZCRENTER+15 03299000 ZCREDCWR EQU ZCRENTER+15 03300000 ZCREKCCN EQU ZCRENTER+15 03301000 ZCREKCBN EQU ZCRENTER+15 03302000 ZCREKCBB EQU ZCRENTER+15 03303000 ZCREJC0B EQU ZCRENTER+15 03304000 ZCREJCDB EQU ZCRENTER+14 03305000 ZCREJCCB EQU ZCRENTER+14 03306000 ZCREJCBB EQU ZCRENTER+14 03307000 ZCREJCAB EQU ZCRENTER+14 03308000 ZCREIC1B EQU ZCRENTER+14 03309000 ZCREIC0B EQU ZCRENTER+14 03310000 ZCREICX0 EQU ZCRENTER+14 03311000 ZCREICWB EQU ZCRENTER+14 03312000 ZCREICVB EQU ZCRENTER+13 03313000 ZCREICUB EQU ZCRENTER+13 03314000 ZCREICTB EQU ZCRENTER+13 03315000 ZCREICSC EQU ZCRENTER+13 03316000 ZCREICSB EQU ZCRENTER+13 03317000 ZCREICRB EQU ZCRENTER+13 03318000 ZCREICQB EQU ZCRENTER+13 03319000 ZCREICQA EQU ZCRENTER+13 03320000 ZCREICOB EQU ZCRENTER+12 03321000 ZCREICOA EQU ZCRENTER+12 03322000 ZCREICNB EQU ZCRENTER+12 03323000 ZCREICNA EQU ZCRENTER+12 03324000 ZCREICMB EQU ZCRENTER+12 03325000 ZCREICLB EQU ZCRENTER+12 03326000 ZCREICKG EQU ZCRENTER+12 03327000 ZCREICKE EQU ZCRENTER+12 03328000 ZCREICKB EQU ZCRENTER+11 03329000 ZCREICJB EQU ZCRENTER+11 03330000 ZCREICID EQU ZCRENTER+11 03331000 ZCREICIB EQU ZCRENTER+11 03332000 ZCREICHB EQU ZCRENTER+11 03333000 ZCREICGB EQU ZCRENTER+11 03334000 ZCREICEB EQU ZCRENTER+11 03335000 ZCREICDB EQU ZCRENTER+11 03336000 ZCREICCI EQU ZCRENTER+10 03337000 ZCREICCB EQU ZCRENTER+10 03338000 ZCREICBI EQU ZCRENTER+10 03339000 ZCREICBB EQU ZCRENTER+10 03340000 ZCREICAB EQU ZCRENTER+10 03341000 ZCREICAA EQU ZCRENTER+10 03342000 ZCREHCAN EQU ZCRENTER+10 03343000 ZCREGC0B EQU ZCRENTER+10 03344000 ZCREGC0A EQU ZCRENTER+9 03345000 ZCREGCLA EQU ZCRENTER+9 03346000 ZCREGCEB EQU ZCRENTER+9 03347000 ZCREGCDB EQU ZCRENTER+9 03348000 @NM00035 EQU ZCRENTER+9 03349000 ZCREGCBB EQU ZCRENTER+9 03350000 ZCREGCAB EQU ZCRENTER+9 03351000 ZCREFCEB EQU ZCRENTER+9 03352000 ZCREFCEA EQU ZCRENTER+8 03353000 ZCREECTA EQU ZCRENTER+8 03354000 ZCREECEA EQU ZCRENTER+8 03355000 ZCREECDA EQU ZCRENTER+8 03356000 ZCREECCB EQU ZCRENTER+8 03357000 ZCREECCA EQU ZCRENTER+8 03358000 ZCREECBB EQU ZCRENTER+8 03359000 ZCREECBA EQU ZCRENTER+8 03360000 ZCREDCMB EQU ZCRENTER+7 03361000 ZCREDCL0 EQU ZCRENTER+7 03362000 ZCREDCKB EQU ZCRENTER+7 03363000 ZCREDCKA EQU ZCRENTER+7 03364000 ZCREDCJ0 EQU ZCRENTER+7 03365000 ZCREDCI0 EQU ZCRENTER+7 03366000 ZCREDCH0 EQU ZCRENTER+7 03367000 ZCREDCF0 EQU ZCRENTER+7 03368000 ZCREDCE0 EQU ZCRENTER+6 03369000 ZCREDCD0 EQU ZCRENTER+6 03370000 ZCREDCC0 EQU ZCRENTER+6 03371000 ZCREDCB0 EQU ZCRENTER+6 03372000 ZCREDCA0 EQU ZCRENTER+6 03373000 ZCRECC2B EQU ZCRENTER+6 03374000 ZCRECC1B EQU ZCRENTER+6 03375000 ZCRECC1A EQU ZCRENTER+6 03376000 ZCRECC0B EQU ZCRENTER+5 03377000 ZCRECC0A EQU ZCRENTER+5 03378000 ZCREBC0B EQU ZCRENTER+5 03379000 ZCREBC0A EQU ZCRENTER+5 03380000 ZCREBCZ0 EQU ZCRENTER+5 03381000 ZCREBCY0 EQU ZCRENTER+5 03382000 ZCREBCX0 EQU ZCRENTER+5 03383000 ZCREBCXA EQU ZCRENTER+5 03384000 ZCREBCSC EQU ZCRENTER+4 03385000 ZCREBCRB EQU ZCRENTER+4 03386000 ZCREBCRA EQU ZCRENTER+4 03387000 ZCREBCQB EQU ZCRENTER+4 03388000 ZCREBCPB EQU ZCRENTER+4 03389000 ZCREBCOB EQU ZCRENTER+4 03390000 ZCREBCNE EQU ZCRENTER+4 03391000 ZCREBCND EQU ZCRENTER+4 03392000 ZCREBCMB EQU ZCRENTER+3 03393000 ZCREBCLB EQU ZCRENTER+3 03394000 ZCREBCLA EQU ZCRENTER+3 03395000 ZCREBCKB EQU ZCRENTER+3 03396000 ZCREBCKA EQU ZCRENTER+3 03397000 ZCREBCJB EQU ZCRENTER+3 03398000 ZCREBCJA EQU ZCRENTER+3 03399000 ZCREBCID EQU ZCRENTER+3 03400000 ZCREBCIB EQU ZCRENTER+2 03401000 ZCREBCIA EQU ZCRENTER+2 03402000 ZCREBCHB EQU ZCRENTER+2 03403000 ZCREBCHA EQU ZCRENTER+2 03404000 ZCREBCGB EQU ZCRENTER+2 03405000 ZCREBCGA EQU ZCRENTER+2 03406000 ZCREBCFB EQU ZCRENTER+2 03407000 ZCREBCFA EQU ZCRENTER+2 03408000 ZCREBCEB EQU ZCRENTER+1 03409000 ZCREBCDI EQU ZCRENTER+1 03410000 ZCREBCCB EQU ZCRENTER+1 03411000 ZCREBCBI EQU ZCRENTER+1 03412000 ZCREBCBB EQU ZCRENTER+1 03413000 ZCREBCBA EQU ZCRENTER+1 03414000 ZCREBCAM EQU ZCRENTER+1 03415000 ZCREBCAI EQU ZCRENTER+1 03416000 ZCREBCAG EQU ZCRENTER 03417000 ZCREBCAE EQU ZCRENTER 03418000 ZCREBCAB EQU ZCRENTER 03419000 ZCREBCAA EQU ZCRENTER 03420000 ZCREAC1B EQU ZCRENTER 03421000 ZCREAC0B EQU ZCRENTER 03422000 ZCREAC0A EQU ZCRENTER 03423000 ZCREAC1A EQU ZCRENTER 03424000 ZCRTNAME EQU ZCRAUDIT+1 03425000 ZCRTID EQU ZCRAUDIT 03426000 ZCRREMIC EQU ISTZCRR+436 03427000 ZCRSAVEZ EQU ISTZCRR+196 03428000 ZCRDAFSV EQU ZCRCIDSV+2 03429000 ZCRSAFSV EQU ZCRCIDSV 03430000 ZCRR13SV EQU ISTZCRR+188 03431000 ZCRR2SV EQU ISTZCRR+184 03432000 ZCROPCDE EQU ISTZCRR+183 03433000 ZCRPRMTC EQU ISTZCRR+182 03434000 ZCRRCDSV EQU ISTZCRR+181 03435000 ZCRAWQSW EQU ISTZCRR+180 03436000 ZCRTOPQ EQU ISTZCRR+180 03437000 ZCRLSTFB EQU ISTZCRR+180 03438000 ZCRXSCHD EQU ISTZCRR+180 03439000 ZCRNXTEL EQU ISTZCRR+180 03440000 ZCRSCANQ EQU ISTZCRR+180 03441000 ZCRMOREL EQU ISTZCRR+180 03442000 ZCRFBPRC EQU ISTZCRR+180 03443000 ZCRFSBSV EQU ISTZCRR+176 03444000 ZCRSVWK5 EQU ZCRWKARA+16 03445000 ZCRSVWK4 EQU ZCRWKARA+12 03446000 ZCRSVWK3 EQU ZCRWKARA+8 03447000 ZCRSVWK2 EQU ZCRWKARA+4 03448000 ZCRSVWK1 EQU ZCRWKARA 03449000 ZCRSVF25 EQU ZCRSVRTN+96 03450000 ZCRSVF24 EQU ZCRSVRTN+92 03451000 ZCRSVF23 EQU ZCRSVRTN+88 03452000 ZCRSVF22 EQU ZCRSVRTN+84 03453000 ZCRSVF21 EQU ZCRSVRTN+80 03454000 ZCRSVF20 EQU ZCRSVRTN+76 03455000 ZCRSVF19 EQU ZCRSVRTN+72 03456000 ZCRSVF18 EQU ZCRSVRTN+68 03457000 ZCRSVF17 EQU ZCRSVRTN+64 03458000 ZCRSVF16 EQU ZCRSVRTN+60 03459000 ZCRSVF15 EQU ZCRSVRTN+56 03460000 ZCRSVF14 EQU ZCRSVRTN+52 03461000 ZCRSVF13 EQU ZCRSVRTN+48 03462000 ZCRSVF12 EQU ZCRSVRTN+44 03463000 ZCRSVF11 EQU ZCRSVRTN+40 03464000 ZCRSVF10 EQU ZCRSVRTN+36 03465000 ZCRSVF9 EQU ZCRSVRTN+32 03466000 ZCRSVF8 EQU ZCRSVRTN+28 03467000 ZCRSVF7 EQU ZCRSVRTN+24 03468000 ZCRSVF6 EQU ZCRSVRTN+20 03469000 ZCRSVF5 EQU ZCRSVRTN+16 03470000 ZCRSVF4 EQU ZCRSVRTN+12 03471000 ZCRSVF3 EQU ZCRSVRTN+8 03472000 ZCRSVF2 EQU ZCRSVRTN+4 03473000 ZCRSVF1 EQU ZCRSVRTN 03474000 ZCRPVZB EQU ISTZCRR+52 03475000 ZCRZLB EQU ISTZCRR+48 03476000 ZCRBFPTR EQU ISTZCRR+44 03477000 ZCRCCWA EQU ISTZCRR+40 03478000 ZCRPSW EQU ZCRPARMS+15 03479000 ZCRPCHAR EQU ZCRPARMS+14 03480000 ZCRPRES2 EQU ZCRPCOD2 03481000 ZCRPMFGF EQU ZCRPCOD2 03482000 ZCRPFHDR EQU ZCRPCOD2 03483000 ZCRPPG2 EQU ZCRPCOD2 03484000 ZCRPRES EQU ZCRPCOD1 03485000 ZCRPCFTX EQU ZCRPCOD1 03486000 ZCRPBUF EQU ZCRPCOD1 03487000 ZCRPLSCB EQU ZCRPCOD1 03488000 ZCRPLSBQ EQU ZCRPLSBF 03489000 ZCRPFSB EQU ZCRPCOD1 03490000 ZCRPLNG EQU ZCRPCOD1 03491000 ZCRPPG EQU ZCRPCOD1 03492000 ZCRDTODA EQU ZCRDFRDA 03493000 ZCRMLNG EQU ZCRPARMS+8 03494000 ZCRTBPTR EQU ZCRPARMS+4 03495000 ZCRCBPTR EQU ZCRFBPTR 03496000 ZCRCRLCP EQU ISTZCRR+20 03497000 ZCRMDATA EQU ZCRSCPSW 03498000 ZCRSKIPT EQU ZCRSCPSW 03499000 ZCRFSBWE EQU ZCRSCPSW 03500000 ZCRPRCMP EQU ZCRSCPSW 03501000 ZCRLREQ EQU ZCRSCPSW 03502000 ZCRRJLCP EQU ZCRSCPSW 03503000 ZCRTPINV EQU ZCRSCPSW 03504000 ZCRTPEX EQU ZCRSCPSW 03505000 @NM00034 EQU ZCRIBPR 03506000 ZCR3270R EQU ZCRIBPR 03507000 ZCR3270 EQU ZCRIBPR 03508000 ZCRLCPFD EQU ZCRIBPR 03509000 ZCRLCPFR EQU ZCRIBPR 03510000 ZCRRELK EQU ZCRIBPR 03511000 ZCRERR EQU ZCRIBPR 03512000 ZCRNOBUF EQU ZCRIBPR 03513000 @NM00033 EQU ZCRPFLGS 03514000 ZCRQAHED EQU ZCRPFLGS 03515000 ZCRF1RES EQU ZCRGENSW 03516000 ZCRBRIS EQU ZCRGENSW 03517000 ZCRCLRBD EQU ZCRGENSW 03518000 ZCREXRES EQU ZCRGENSW 03519000 ZCRLCSYN EQU ZCRGENSW 03520000 ZCRRT06 EQU ZCRGENSW 03521000 ZCRTSW2 EQU ZCRGENSW 03522000 ZCRTSW1 EQU ZCRGENSW 03523000 ZCRINLCP EQU ZCRFLGS3 03524000 ZCRWRPTR EQU ZCRFLGS3 03525000 ZCRNOFRE EQU ZCRFLGS3 03526000 ZCREDRIV EQU ZCRFLGS3 03527000 ZCRDISC EQU ZCRFLGS3 03528000 ZCRTPDIS EQU ZCRFLGS3 03529000 ZCRTPCON EQU ZCRFLGS3 03530000 ZCRTIC EQU ZCRFLGS3 03531000 ZCRCNLXL EQU ZCRRESET 03532000 ZCRENDAN EQU ZCRSWFLD 03533000 ZCRENDXL EQU ZCRSWFLD 03534000 ZCRENDX EQU ZCRSWFLD 03535000 ZCROB1 EQU ZCRNDLCP 03536000 ZCRENDPR EQU ZCRSWFLD 03537000 ZCREXTYP EQU ZCRSWFLD 03538000 ZCRSLCP EQU ZCRENDSH 03539000 ZCRIF0E3 EQU ZCRFLGS2 03540000 ZCRIF0E2 EQU ZCRFLGS2 03541000 ZCRIF0E1 EQU ZCRFLGS2 03542000 ZCROB EQU ZCRFLGS2 03543000 ZCRFMSED EQU ZCRFLGS2 03544000 ZCRSHEDI EQU ZCRFLGS2 03545000 ZCRLOCAL EQU ZCRFLGS2 03546000 ZCRFEXIT EQU ZCRFLGS1 03547000 ZCRUNSOL EQU ZCRFLGS1 03548000 ZCRENDLP EQU ZCRFLGS1 03549000 ZCRNRMEX EQU ZCRFLGS1 03550000 ZCRWAIT EQU ZCRFLGS1 03551000 ZCRDEQSW EQU ZCRFLGS1 03552000 ZCRQUESW EQU ZCRFLGS1 03553000 ZCREXSW EQU ZCRFLGS1 03554000 ZCRFRRA EQU ISTZCRR+8 03555000 ZCRCHAIN EQU ISTZCRR+4 03556000 ZCRFLAG EQU ZCRCRR+3 03557000 ZCRLEN EQU ZCRCRR+1 03558000 ZCRID EQU ZCRCRR 03559000 CCFRSVD1 EQU CFCCRT 03560000 CCFCR2 EQU CFCCRT 03561000 CCFCRP EQU CFCCRT 03562000 CCFCR1 EQU CFCCRT 03563000 CCFCS2 EQU CFCCRT 03564000 CCFCS1 EQU CFCCRT 03565000 NCFRSVD EQU CFCNTRD 03566000 NCFCR2 EQU CFCNTRD 03567000 NCFCRP EQU CFCNTRD 03568000 NCFCR1 EQU CFCNTRD 03569000 NCFCS2 EQU CFCNTRD 03570000 NCFCS1 EQU CFCNTRD 03571000 PFCRSV01 EQU ISTPFCRR+13 03572000 PFCFTA EQU ISTPFCRR+12 03573000 CRRFRR EQU PFCFRRO 03574000 CRRCHAIN EQU PFCCRRO 03575000 CRRLEN EQU PFCCRRLN 03576000 PFCRSV10 EQU PFCCRR+1 03577000 CRRID EQU PFCCRRID 03578000 ZSAZTRAC EQU ISTZSAVE+36 03579000 ZSAZSVVR EQU ISTZSAVE+12 03580000 ZSAZSVRR EQU ISTZSAVE+8 03581000 ZSAZSVFC EQU ISTZSAVE+4 03582000 ZSAZACTV EQU ZSAZSVMS 03583000 LCPFTYPE EQU LCPRPHA 03584000 LCPRSTQH EQU LCPLCCW 03585000 LCPCLREP EQU ISTLCPB+44 03586000 LCPUBFSB EQU LCPFLCCW 03587000 LCPRSV77 EQU ISTLCPB+39 03588000 LCPLCCWC EQU ISTLCPB+38 03589000 LCPRSV78 EQU LCPFLG1 03590000 LCPTRANS EQU LCPFLG1 03591000 LCPSTLB EQU LCPFLG1 03592000 LCPREDRV EQU LCPFLG1 03593000 LCPINTER EQU LCPFLG1 03594000 LCPRESET EQU LCPFLG1 03595000 LCPSTYPE EQU ISTLCPB+36 03596000 LCPFSNCH EQU ISTLCPB+34 03597000 LCPTLBAD EQU ISTLCPB+28 03598000 LCPFDB2 EQU LCPFDBA+1 03599000 LCPFDB1 EQU LCPFDBA 03600000 LCPDAF EQU LCPCID+2 03601000 LCPSAF EQU LCPCID 03602000 LCPLCCW1 EQU ISTLCPB+12 03603000 LCPRRCNT EQU LCPSEQ+1 03604000 LCPRRCCT EQU LCPSEQ 03605000 LCPATOP EQU LCPFLAG2 03606000 LCPFREE EQU LCPFLAG2 03607000 LCPDSTAT EQU LCPFLAG2 03608000 LCPEXRES EQU LCPFID0 03609000 LCPZRIMM EQU LCPTLBPI 03610000 LCPRSTRT EQU LCPFLAG2 03611000 LCPPRFLG EQU LCPFLAG2 03612000 LCPZMIRC EQU LCPRUCNT 03613000 LCPCHAI2 EQU LCPCHAIN+1 03614000 LCPCHNG EQU LCPCHAI1 03615000 LCPZRT0B EQU LCPMNRCD 03616000 LCPZRT0A EQU LCPMNRCD 03617000 LCPZRTL9 EQU LCPZRT09 03618000 LCPZRTL8 EQU LCPZRT08 03619000 LCPZRTL7 EQU LCPZRT07 03620000 LCPZRTL6 EQU LCPZRT06 03621000 LCPZRTL5 EQU LCPZRT05 03622000 LCPZRTL4 EQU LCPZRT04 03623000 LCPZRTL3 EQU LCPZRT03 03624000 LCPZRTL2 EQU LCPZRT02 03625000 LCPZRT01 EQU LCPFLAGS 03626000 LCPZRT00 EQU LCPFLAGS 03627000 LCPLNGTH EQU ISTLCPB+1 03628000 LCPTYPE EQU ISTLCPB 03629000 LCCWACI EQU LCCWFLAG 03630000 LCCWRFI EQU LCCWFLAG 03631000 LCCWPER EQU LCCWLSI 03632000 LCCWCKPT EQU LCCWFLAG 03633000 LCCWTYPE EQU LCCWCTL 03634000 LCCWMODE EQU LCCWCTL 03635000 LCCWSOP EQU LCCWRWOP 03636000 @NM00032 EQU LCCWRWOP 03637000 LCCWSD EQU LCCWOP 03638000 LCCWSI EQU LCCWOP 03639000 RHRSVD5 EQU RH3 03640000 RHRSVD4 EQU RH3 03641000 RHLOG EQU RH3 03642000 RHRSVD3 EQU RH3 03643000 RHRCDIR EQU RH3 03644000 RHCDIR EQU RH3 03645000 RHEB EQU RH3 03646000 RHBB EQU RH3 03647000 RHPACE EQU RH2 03648000 RHRSVD2 EQU RH2 03649000 RHINOP EQU RHRSVD1 03650000 RHBUSY EQU RHRETRY 03651000 RHSCI EQU RH1 03652000 RPHNEXPO EQU ISTRPH+104 03653000 RPHSAV16 EQU RPHWORK+60 03654000 RPHSAV15 EQU RPHWORK+56 03655000 RPHSAV14 EQU RPHWORK+52 03656000 RPHSAV13 EQU RPHWORK+48 03657000 RPHSAV12 EQU RPHWORK+44 03658000 RPHSAV11 EQU RPHWORK+40 03659000 RPHSAV10 EQU RPHWORK+36 03660000 RPHSAVE9 EQU RPHWORK+32 03661000 RPHSAVE8 EQU RPHWORK+28 03662000 RPHSAVE7 EQU RPHWORK+24 03663000 RPHSAVE6 EQU RPHWORK+20 03664000 RPHSAVE5 EQU RPHWORK+16 03665000 RPHSAVE4 EQU RPHWORK+12 03666000 RPHSAVE3 EQU RPHWORK+8 03667000 RPHSAVE2 EQU RPHWORK+4 03668000 RPHSHALF EQU RPHSAVE1+2 03669000 RPHSBIT8 EQU RPHSBITS 03670000 RPHSBIT7 EQU RPHSBITS 03671000 RPHSBIT6 EQU RPHSBITS 03672000 RPHSBIT5 EQU RPHSBITS 03673000 RPHSBIT4 EQU RPHSBITS 03674000 RPHSBIT3 EQU RPHSBITS 03675000 RPHSBIT2 EQU RPHSBITS 03676000 RPHSBIT1 EQU RPHSBITS 03677000 RPHSBYTE EQU RPHSAVE1 03678000 RPHPABQP EQU RPHPABQA+1 03679000 RPHPABFG EQU RPHPABQA 03680000 RPHSRP34 EQU RPHSRPRM+2 03681000 RPHSRP12 EQU RPHSRPRM 03682000 RPHWEGT EQU RPHCSPA 03683000 RPHMAJCB EQU ISTRPH+21 03684000 RPHPABOF EQU ISTRPH+20 03685000 RPHRESUM EQU RPHRESMA+1 03686000 RPHRSV01 EQU RPHWPFLG 03687000 RPHPURGE EQU RPHWPFLG 03688000 RPHPT EQU RPHWPFLG 03689000 RPHWT EQU RPHWPFLG 03690000 RPHRSKEY EQU RPHWPFLG 03691000 RPHDVTA EQU ISTRPH+12 03692000 RPHTIK EQU RPHTSKID+3 03693000 @NM00031 EQU RPHTSKID 03694000 RPHRPHAP EQU RPHRPHA+1 03695000 @NM00030 EQU RPHCVFLG 03696000 RPHFRRPH EQU RPHCVFLG 03697000 RPHOWRPH EQU RPHCVFLG 03698000 RPHCDRPH EQU RPHCVFLG 03699000 RPHPSRPH EQU RPHCVFLG 03700000 RPHVYRPH EQU RPHGATE 03701000 @NM00029 EQU RPHFLGB 03702000 RPHRLCRA EQU RPHFLGB 03703000 RPHNRSAV EQU RPHFLGB 03704000 RPHPGCMP EQU RPHFLGB 03705000 RPHFBAPS EQU RPHFLGB 03706000 RPHBSSP EQU RPHFLGB 03707000 RPHLOCK EQU RPHFLGB 03708000 RPHFNFLG EQU RPHFSTLC 03709000 RPHMLTCP EQU RPHFLAGS 03710000 RPHSMCLR EQU RPHFLAGS 03711000 RPHSMTYP EQU RPHFLAGS 03712000 RPHSMQ EQU RPHFLAGS 03713000 RPHAUTEX EQU RPHAPTYP 03714000 RPHSPGIN EQU RPHFLAGS 03715000 RPHOGIND EQU RPHFLAGS 03716000 RPHLNGTH EQU RPHCNTL+1 03717000 RPHTYPE EQU RPHCNTL 03718000 CVTLEVL EQU CVTRELNO+2 03719000 CVTNUMB EQU CVTRELNO 03720000 CVTMDL EQU CVTFIX+250 03721000 @NM00028 EQU CVTFIX+248 03722000 @NM00027 EQU CVTFIX 03723000 CVTRV482 EQU CVTXTNT2+128 03724000 CVTRV481 EQU CVTXTNT2+124 03725000 CVTRV480 EQU CVTXTNT2+120 03726000 CVTRV479 EQU CVTXTNT2+118 03727000 CVTRV478 EQU CVTXTNT2+117 03728000 CVTRV477 EQU CVTXTNT2+116 03729000 CVTRV476 EQU CVTXTNT2+115 03730000 CVTRV475 EQU CVTXTNT2+114 03731000 CVTRV474 EQU CVTRV466 03732000 CVTRV473 EQU CVTRV466 03733000 CVTRV472 EQU CVTRV466 03734000 CVTRV471 EQU CVTRV466 03735000 CVTRV470 EQU CVTRV466 03736000 CVTRV469 EQU CVTRV466 03737000 CVTRV468 EQU CVTRV466 03738000 CVTRV467 EQU CVTRV466 03739000 CVTRV465 EQU CVTRV457 03740000 CVTRV464 EQU CVTRV457 03741000 CVTRV463 EQU CVTRV457 03742000 CVTRV462 EQU CVTRV457 03743000 CVTRV461 EQU CVTRV457 03744000 CVTRV460 EQU CVTRV457 03745000 CVTRV459 EQU CVTRV457 03746000 CVTRV458 EQU CVTRV457 03747000 CVTRV456 EQU CVTXTNT2+108 03748000 CVTRV455 EQU CVTXTNT2+104 03749000 CVTRV454 EQU CVTXTNT2+100 03750000 CVTRV453 EQU CVTXTNT2+96 03751000 CVTRV452 EQU CVTXTNT2+94 03752000 CVTRV451 EQU CVTXTNT2+92 03753000 CVTRV450 EQU CVTXTNT2+90 03754000 CVTRV449 EQU CVTXTNT2+88 03755000 CVTRV448 EQU CVTXTNT2+87 03756000 CVTRV447 EQU CVTXTNT2+86 03757000 CVTRV446 EQU CVTRV438 03758000 CVTRV445 EQU CVTRV438 03759000 CVTRV444 EQU CVTRV438 03760000 CVTRV443 EQU CVTRV438 03761000 CVTRV442 EQU CVTRV438 03762000 CVTRV441 EQU CVTRV438 03763000 CVTRV440 EQU CVTRV438 03764000 CVTRV439 EQU CVTRV438 03765000 CVTRV437 EQU CVTRV429 03766000 CVTRV436 EQU CVTRV429 03767000 CVTRV435 EQU CVTRV429 03768000 CVTRV434 EQU CVTRV429 03769000 CVTRV433 EQU CVTRV429 03770000 CVTRV432 EQU CVTRV429 03771000 CVTRV431 EQU CVTRV429 03772000 CVTRV430 EQU CVTRV429 03773000 CVTRV428 EQU CVTXTNT2+80 03774000 CVTRV427 EQU CVTXTNT2+76 03775000 CVTRV426 EQU CVTXTNT2+72 03776000 CVTRV425 EQU CVTXTNT2+68 03777000 CVTATACT EQU CVTATCVT 03778000 CVTRV423 EQU CVTXTNT2+62 03779000 CVTRV422 EQU CVTXTNT2+60 03780000 CVTRV421 EQU CVTXTNT2+58 03781000 CVTRV420 EQU CVTXTNT2+56 03782000 CVTRV419 EQU CVTXTNT2+55 03783000 CVTRV418 EQU CVTXTNT2+54 03784000 CVTRV417 EQU CVTRV409 03785000 CVTRV416 EQU CVTRV409 03786000 CVTRV415 EQU CVTRV409 03787000 CVTRV414 EQU CVTRV409 03788000 CVTRV413 EQU CVTRV409 03789000 CVTRV412 EQU CVTRV409 03790000 CVTRV411 EQU CVTRV409 03791000 CVTRV410 EQU CVTRV409 03792000 CVTRV408 EQU CVTRV400 03793000 CVTRV407 EQU CVTRV400 03794000 CVTRV406 EQU CVTRV400 03795000 CVTRV405 EQU CVTRV400 03796000 CVTRV404 EQU CVTRV400 03797000 CVTRV403 EQU CVTRV400 03798000 CVTRV402 EQU CVTRV400 03799000 CVTRV401 EQU CVTRV400 03800000 CVTICB EQU CVTXTNT2+48 03801000 CVTSKTA EQU CVTXTNT2+44 03802000 CVTSHSB EQU CVTSHS 03803000 CVTRSV98 EQU CVTXTNT2+36 03804000 CVTRSV97 EQU CVTXTNT2+34 03805000 CVTRSV96 EQU CVTXTNT2+32 03806000 CVTOLTEP EQU CVTXTNT2+28 03807000 CVTQIDA EQU CVTQID+1 03808000 CVTRSV95 EQU CVTQID 03809000 CVTRSV94 EQU CVTXTNT2+20 03810000 CVTRSV93 EQU CVTXTNT2+16 03811000 CVTRSV92 EQU CVTXTNT2+12 03812000 CVTDEBVR EQU CVTXTNT2+8 03813000 CVTRSV91 EQU CVTXTNT2+6 03814000 CVTRSV9H EQU CVTFLGBT 03815000 CVTRSV9G EQU CVTFLGBT 03816000 CVTRSV9F EQU CVTFLGBT 03817000 CVTRSV9E EQU CVTFLGBT 03818000 CVTRSV9D EQU CVTFLGBT 03819000 CVTRSV9C EQU CVTFLGBT 03820000 CVTVME EQU CVTFLGBT 03821000 CVTNPE EQU CVTFLGBT 03822000 CVTNUCLS EQU CVTXTNT2+4 03823000 CVTDSSVA EQU CVTDSSV+1 03824000 CVTRSV89 EQU CVTDSSV 03825000 CVTRSV88 EQU CVTXTNT1+8 03826000 CVTRSV87 EQU CVTXTNT1+4 03827000 CVTFACHN EQU CVTXTNT1 03828000 CVTRV488 EQU CVTMAP+412 03829000 CVTRV487 EQU CVTMAP+408 03830000 CVTRV486 EQU CVTMAP+404 03831000 CVTRV485 EQU CVTMAP+400 03832000 CVTACTAP EQU CVTMAP+396 03833000 CVTAUTH EQU CVTMAP+392 03834000 CVTATMCA EQU CVTATMCT+1 03835000 CVTATMST EQU CVTATMCT 03836000 CVTRSV61 EQU CVTMAP+384 03837000 CVTVOLT1 EQU CVTVOLM1+1 03838000 CVTVOLI1 EQU CVTVOLF1 03839000 CVTSTOA EQU CVTMAP+376 03840000 CVTRSV58 EQU CVTMAP+374 03841000 CVTRSV57 EQU CVTMAP+372 03842000 CVTDDCE EQU CVTMAP+368 03843000 CVTPNWFR EQU CVTMAP+364 03844000 CVTSMF EQU CVTMAP+360 03845000 CVTSULK EQU CVTMAP+358 03846000 CVTSLKO EQU CVTSYSK 03847000 CVTSLKP EQU CVTSYSK 03848000 CVTSLKQ EQU CVTSYSK 03849000 CVTSLKR EQU CVTSYSK 03850000 CVTRSV56 EQU CVTSYSK 03851000 CVTRSV55 EQU CVTSYSK 03852000 CVTRSV54 EQU CVTSYSK 03853000 CVTRSV53 EQU CVTSYSK 03854000 CVTRSV52 EQU CVTA1F1 03855000 CVTRSV51 EQU CVTA1F1 03856000 CVTRSV50 EQU CVTA1F1 03857000 CVTRSV49 EQU CVTA1F1 03858000 CVTRSV48 EQU CVTA1F1 03859000 CVTRSV47 EQU CVTA1F1 03860000 CVTSRSW EQU CVTA1F1 03861000 CVTPFSW EQU CVTA1F1 03862000 CVTPCVT EQU CVTMAP+352 03863000 CVTRSV46 EQU CVTMAP+344 03864000 CVTRSV45 EQU CVTMAP+340 03865000 CVTRSV44 EQU CVTMAP+338 03866000 CVTRSV43 EQU CVTMAP+336 03867000 CVTHJESA EQU CVTHJES+1 03868000 CVTRSV42 EQU CVTHJES 03869000 CVTEXT2A EQU CVTEXT2+1 03870000 CVTRSV41 EQU CVTEXT2 03871000 CVTAPFA EQU CVTAPF+1 03872000 CVTRSV40 EQU CVTAPF 03873000 CVTRV518 EQU CVTINTLA 03874000 CVTRV517 EQU CVTERPV 03875000 CVTEORM EQU CVTMAP+312 03876000 CVTMCHPR EQU CVTMAP+308 03877000 CVTTZ EQU CVTMAP+304 03878000 CVTJEPS EQU CVTMAP+300 03879000 CVTJESCT EQU CVTMAP+296 03880000 CVTMODE EQU CVTMAP+292 03881000 CVTPTRV EQU CVTMAP+288 03882000 CVTREAL EQU CVTMAP+284 03883000 CVTRSV39 EQU CVTMAP+280 03884000 CVTRSV38 EQU CVTMAP+276 03885000 CVTDMSRA EQU CVTDMSR+1 03886000 CVTRV634 EQU CVTDMSRF 03887000 CVTRV633 EQU CVTDMSRF 03888000 CVTRV632 EQU CVTDMSRF 03889000 CVTRV631 EQU CVTDMSRF 03890000 CVTRV630 EQU CVTDMSRF 03891000 CVTRV629 EQU CVTDMSRF 03892000 CVTUDUMP EQU CVTDMSRF 03893000 CVTSDUMP EQU CVTDMSRF 03894000 CVTQMSGA EQU CVTQMSG+1 03895000 CVTRSV36 EQU CVTQMSG 03896000 CVTAMFF EQU CVTMAP+264 03897000 CVTPURGA EQU CVTPURG+1 03898000 CVTRSV35 EQU CVTPURG 03899000 CVTCBSP EQU CVTMAP+256 03900000 CVTATERA EQU CVTATER+1 03901000 CVTSYST EQU CVTATER 03902000 CVTVOLT2 EQU CVTTAT 03903000 CVTVOLI2 EQU CVTVOLF2 03904000 CVTAQAVB EQU CVTAQAVT+1 03905000 CVTRSV34 EQU CVTTCMFG 03906000 CVTRSV33 EQU CVTTCMFG 03907000 CVTRSV32 EQU CVTTCMFG 03908000 CVTRSV31 EQU CVTTCMFG 03909000 CVTRSV30 EQU CVTTCMFG 03910000 CVTRSV29 EQU CVTTCMFG 03911000 CVTRSV28 EQU CVTTCMFG 03912000 CVTTCRDY EQU CVTTCMFG 03913000 CVTGTFA EQU CVTGTF+1 03914000 CVTRSV27 EQU CVTGTFST 03915000 CVTRNIO EQU CVTGTFST 03916000 CVTUSR EQU CVTGTFST 03917000 CVTRV318 EQU CVTFORM 03918000 CVTRV317 EQU CVTTMODE 03919000 CVTRV316 EQU CVTSTATE 03920000 CVTRV315 EQU CVTGTFS 03921000 CVTGTFAV EQU CVTGTFS 03922000 CVT0SCR1 EQU CVTMAP+232 03923000 CVTRV515 EQU CVTMAP+228 03924000 CVTRMS EQU CVTMAP+224 03925000 CVTPATCH EQU CVTMAP+220 03926000 CVTTSCE EQU CVTMAP+216 03927000 CVTLNKSC EQU CVTMAP+214 03928000 CVTQABST EQU CVTMAP+212 03929000 CVTMDLDS EQU CVTMAP+208 03930000 CVTUSER EQU CVTMAP+204 03931000 CVTABEND EQU CVTMAP+200 03932000 CVTSMCA EQU CVTMAP+196 03933000 CVTRSV18 EQU CVTMAP+192 03934000 CVTQLPAQ EQU CVTMAP+188 03935000 CVTQCDSR EQU CVTMAP+184 03936000 CVTRSV17 EQU CVTOPTB 03937000 CVTRSV16 EQU CVTOPTB 03938000 CVTFP EQU CVTOPTB 03939000 CVTAPTHR EQU CVTOPTB 03940000 CVTNLOG EQU CVTOPTB 03941000 CVTTOD EQU CVTOPTB 03942000 CVTCTIMS EQU CVTOPTB 03943000 CVTPROT EQU CVTOPTB 03944000 CVTXPFP EQU CVTOPTA 03945000 CVTASCII EQU CVTOPTA 03946000 CVTRSV13 EQU CVTOPTA 03947000 CVTRSV12 EQU CVTOPTA 03948000 CVTNIP EQU CVTOPTA 03949000 CVTDDR EQU CVTOPTA 03950000 CVTAPR EQU CVTOPTA 03951000 CVTCCH EQU CVTOPTA 03952000 CVTSNCTR EQU CVTMAP+180 03953000 CVTQMWR EQU CVTMAP+176 03954000 CVTQOCR EQU CVTMAP+172 03955000 CVT1EF00 EQU CVTMAP+168 03956000 CVTMZ00 EQU CVTMAP+164 03957000 CVTHEAD EQU CVTMAP+160 03958000 CVTRSV11 EQU CVTMAP+156 03959000 CVT0PT01 EQU CVTMAP+152 03960000 CVTMSER EQU CVTMAP+148 03961000 CVTRV516 EQU CVTIERLC 03962000 CVTILCH EQU CVTMAP+140 03963000 CVT0DS EQU CVTMAP+136 03964000 CVTFBOSV EQU CVTMAP+132 03965000 CVTNUCB EQU CVTMAP+128 03966000 CVTIXAVL EQU CVTMAP+124 03967000 CVTIOQET EQU CVTMAP+120 03968000 CVTDCBA EQU CVTMAP+117 03969000 CVTMVS2 EQU CVTDCB 03970000 CVT6DAT EQU CVTDCB 03971000 CVT4MPS EQU CVTDCB 03972000 CVTRSV09 EQU CVTDCB 03973000 CVT4MS1 EQU CVTDCB 03974000 CVT2SPS EQU CVTDCB 03975000 CVT1SSS EQU CVTDCB 03976000 CVTRSV08 EQU CVTDCB 03977000 CVTSTB EQU CVTMAP+112 03978000 CVTQTD00 EQU CVTMAP+108 03979000 CVTQTE00 EQU CVTMAP+104 03980000 CVTCUCB EQU CVTMAP+100 03981000 CVTSJQ EQU CVTMAP+96 03982000 CVTPBLDL EQU CVTMAP+92 03983000 CVTTPC EQU CVTMAP+88 03984000 CVTSVDCB EQU CVTMAP+84 03985000 CVTBRET EQU CVTMAP+82 03986000 CVTEXIT EQU CVTMAP+80 03987000 CVT0FN00 EQU CVTMAP+76 03988000 CVTDARA EQU CVTDAR+1 03989000 CVTRSV07 EQU CVTFLGS1 03990000 CVTRSV06 EQU CVTFLGS1 03991000 CVTRSV05 EQU CVTFLGS1 03992000 CVTRSV04 EQU CVTFLGS1 03993000 CVTRSV03 EQU CVTFLGS1 03994000 CVTRSV02 EQU CVTFLGS1 03995000 CVTRSV01 EQU CVTFLGS1 03996000 CVTDMPLK EQU CVTFLGS1 03997000 CVTXITP EQU CVTMAP+68 03998000 CVTZDTAB EQU CVTMAP+64 03999000 CVTMSLT EQU CVTMAP+60 04000000 CVTDATE EQU CVTMAP+56 04001000 CVTBTERM EQU CVTMAP+52 04002000 CVTSYSAD EQU CVTMAP+48 04003000 CVTXTLER EQU CVTMAP+44 04004000 CVTILK2 EQU CVTMAP+40 04005000 CVTILK1 EQU CVTMAP+36 04006000 CVTPRLTV EQU CVTMAP+32 04007000 CVTPCNVT EQU CVTMAP+28 04008000 CVT0VL00 EQU CVTMAP+24 04009000 CVTXAPG EQU CVTMAP+20 04010000 CVTBUF EQU CVTMAP+16 04011000 CVTJOB EQU CVTMAP+12 04012000 CVTLINK EQU CVTMAP+8 04013000 CVT0EF00 EQU CVTMAP+4 04014000 CVTTCBP EQU CVTMAP 04015000 CVT EQU CVTMAP 04016000 @NM00026 EQU RPLIBSQ 04017000 RPLIINV EQU RPLIBSQ 04018000 RPLINEG EQU RPLIBSQ 04019000 RPLIPOS EQU RPLIBSQ 04020000 RPLIIGN EQU RPLIBSQ 04021000 RPLIRSET EQU RPLIBSQ 04022000 RPLITST EQU RPLIBSQ 04023000 RPLISET EQU RPLIBSQ 04024000 @NM00025 EQU RPLOBSQ 04025000 RPLOINV EQU RPLOBSQ 04026000 RPLONEG EQU RPLOBSQ 04027000 RPLOPOS EQU RPLOBSQ 04028000 RPLOIGN EQU RPLOBSQ 04029000 RPLORSET EQU RPLOBSQ 04030000 RPLOTST EQU RPLOBSQ 04031000 RPLOSET EQU RPLOBSQ 04032000 RPLIBSQV EQU RPLOF60+2 04033000 RPLOBSQV EQU RPLOF60 04034000 @NM00024 EQU RPLCNTSC 04035000 RPLRSHUT EQU RPLCNTSC 04036000 RPLRQR EQU RPLCNTSC 04037000 RPLSHUTC EQU RPLCNTSC 04038000 RPLSHUTD EQU RPLCNTSC 04039000 RPLSTSN EQU RPLCNTSC 04040000 RPLCLEAR EQU RPLCNTSC 04041000 RPLSDT EQU RPLCNTSC 04042000 @NM00023 EQU RPLCNTDC 04043000 RPLRTR EQU RPLCNTDC 04044000 RPLBID EQU RPLCNTDC 04045000 @NM00022 EQU RPLCNTDF 04046000 RPLQI EQU RPLCNTDF 04047000 RPLRELQ EQU RPLCNTDF 04048000 RPLCHASE EQU RPLCNTDF 04049000 RPLQEC EQU RPLCNTDF 04050000 RPLQC EQU RPLCNTDF 04051000 RPLCNCEL EQU RPLCNTDF 04052000 @NM00021 EQU RPLRESP 04053000 @NM00020 EQU RPLPOSTV 04054000 @NM00019 EQU RPLVTFL1 04055000 RPLVTUSE EQU RPLVTFL1 04056000 @NM00018 EQU RPLVTFL1 04057000 @NM00017 EQU RPLCHN 04058000 RPLLAST EQU RPLCHN 04059000 @NM00016 EQU RPLRTYPE 04060000 RPLDFASY EQU RPLRTYPE 04061000 RPLNFSYN EQU RPLRTYPE 04062000 RPLRRESP EQU RPLRTYPE 04063000 @NM00015 EQU RPLSTYPE 04064000 @NM00014 EQU RPLRH3 04065000 RPLCSI EQU RPLRH3 04066000 RPLCHREQ EQU RPLRH3 04067000 RPLCMD EQU RPLRH3 04068000 RPLEB EQU RPLRH3 04069000 RPLBB EQU RPLRH3 04070000 RPLSAV13 EQU RPLVTEXT+28 04071000 RPLSSMO EQU RPLSSNSO+1 04072000 @NM00013 EQU RPLSSEO 04073000 RPLRRO EQU RPLSSEO 04074000 RPLFIO EQU RPLSSEO 04075000 RPLSTATO EQU RPLSSEO 04076000 RPLCPMO EQU RPLSSEO 04077000 @NM00012 EQU RPLSSEO 04078000 @NM00011 EQU RPLOPT12 04079000 @NM00010 EQU RPLOPT12 04080000 @NM00009 EQU RPLOPT12 04081000 RPLNIBTK EQU RPLOPT12 04082000 RPLTRUNC EQU RPLOPT12 04083000 RPLKEEP EQU RPLOPT12 04084000 @NM00008 EQU RPLOPT12 04085000 RPLRSVE8 EQU RPLOPT11 04086000 RPLRSVE7 EQU RPLOPT11 04087000 RPLRSVE6 EQU RPLOPT11 04088000 RPLRSVE5 EQU RPLOPT11 04089000 RPLRSVE4 EQU RPLOPT11 04090000 RPLSTOP EQU RPLOPT11 04091000 RPLSTART EQU RPLOPT11 04092000 RPLQUIES EQU RPLOPT11 04093000 RPLRSVI6 EQU RPLOPT10 04094000 RPLRSVI5 EQU RPLOPT10 04095000 RPLRSVI4 EQU RPLOPT10 04096000 RPLRSVI3 EQU RPLOPT10 04097000 RPLRSVI2 EQU RPLOPT10 04098000 RPLSPARM EQU RPLOPT10 04099000 RPLDSPLY EQU RPLOPT10 04100000 RPLBSCID EQU RPLOPT10 04101000 RPLTOPL EQU RPLOPT9 04102000 RPLCIDE EQU RPLOPT9 04103000 RPLRNNM EQU RPLOPT9 04104000 RPLAPPST EQU RPLOPT9 04105000 RPLCOUNT EQU RPLOPT9 04106000 RPLTERMS EQU RPLOPT9 04107000 RPLDEVCH EQU RPLOPT9 04108000 RPLLOGON EQU RPLOPT9 04109000 RPLUSFLD EQU RPLVTEXT+16 04110000 RPLESR2 EQU RPLUSNSI+1 04111000 RPLESR1 EQU RPLUSNSI 04112000 RPLSSMI EQU RPLDSB2 04113000 @NM00007 EQU RPLSSEI 04114000 RPLRRI EQU RPLSSEI 04115000 RPLFII EQU RPLSSEI 04116000 RPLSTATI EQU RPLSSEI 04117000 RPLCPMI EQU RPLSSEI 04118000 RPLPATHI EQU RPLSSEI 04119000 RPLARCLN EQU RPLVTEXT+8 04120000 RPLAARLN EQU RPLVTEXT+4 04121000 RPLAAREA EQU RPLVTEXT 04122000 RPLERMSA EQU RPLCOMN+72 04123000 RPLEMLEN EQU RPLCOMN+70 04124000 RPLACTIV EQU RPLCOMN+69 04125000 RPLBRANC EQU RPLEXTD1 04126000 RPLNIB EQU RPLEXTD1 04127000 @NM00006 EQU RPLEXTD1 04128000 RPLEXIT EQU RPLEXTD1 04129000 RPLNEXIT EQU RPLEXTD1 04130000 RPLEXSCH EQU RPLEXTD1 04131000 RPLDDDD EQU RPLRBAR+4 04132000 @NM00005 EQU RPLRBAR+3 04133000 @NM00004 EQU RPLAIXID 04134000 RPLAXPKP EQU RPLAIXID 04135000 RPLAIXPC EQU RPLRBAR 04136000 RPLRSV88 EQU RPLOPT8 04137000 RPLUNCON EQU RPLOPT8 04138000 RPLACTV EQU RPLOPT8 04139000 RPLSESS EQU RPLOPT8 04140000 RPLPEND EQU RPLOPT8 04141000 RPLODPRM EQU RPLOPT8 04142000 RPLODACP EQU RPLOPT8 04143000 RPLODACQ EQU RPLOPT8 04144000 RPLRSV78 EQU RPLOPT7 04145000 RPLTCRNO EQU RPLOPT7 04146000 RPLRLSOP EQU RPLOPT7 04147000 RPLTPOST EQU RPLOPT7 04148000 RPLQOPT EQU RPLOPT7 04149000 RPLCNIMM EQU RPLCNOPT 04150000 RPLCNANY EQU RPLCNOPT 04151000 RPLCNALL EQU RPLCNOPT 04152000 RPLRSV68 EQU RPLOPT6 04153000 RPLRSV67 EQU RPLOPT6 04154000 RPLLOCK EQU RPLOPT6 04155000 RPLNCOND EQU RPLOPT6 04156000 RPLCOND EQU RPLOPT6 04157000 RPLEOT EQU RPLUNTYP 04158000 RPLEOM EQU RPLUNTYP 04159000 RPLEOB EQU RPLUNTYP 04160000 RPLWROPT EQU RPLOPT5 04161000 RPLNODE EQU RPLOPT5 04162000 RPLERACE EQU RPLWRTYP 04163000 RPLEAU EQU RPLWRTYP 04164000 RPLNERAS EQU RPLWRTYP 04165000 RPLPSOPT EQU RPLOPT5 04166000 @NM00003 EQU RPLOPT5 04167000 RPLDLGIN EQU RPLOPT5 04168000 RPLBUFL EQU RPLCOMN+52 04169000 RPLCHAIN EQU RPLNXTRP 04170000 RPLBOP EQU RPLOPT4 04171000 @NM00002 EQU RPLOPT4 04172000 RPLMKFRM EQU RPLOPT4 04173000 RPLENDTR EQU RPLOPT4 04174000 RPLALIGN EQU RPLOPT3 04175000 RPLFMT EQU RPLOPT3 04176000 RPLFLD EQU RPLOPT3 04177000 RPLVFY EQU RPLOPT3 04178000 RPLBLK EQU RPLOPT3 04179000 RPLSFORM EQU RPLOPT3 04180000 RPLEODS EQU RPLOPT3 04181000 RPLNSP EQU RPLOPT2 04182000 RPLUPD EQU RPLOPT2 04183000 @NM00001 EQU RPLOPT2 04184000 RPLLRD EQU RPLOPT2 04185000 RPLBWD EQU RPLOPT2 04186000 RPLCNV EQU RPLOPT2 04187000 RPLADD EQU RPLADR 04188000 RPLKEY EQU RPLOPT2 04189000 RPLECBIN EQU RPLECBSW 04190000 RPLGEN EQU RPLOPT1 04191000 RPLKGE EQU RPLOPT1 04192000 RPLASY EQU RPLOPT1 04193000 RPLSKP EQU RPLOPT1 04194000 RPLSEQ EQU RPLOPT1 04195000 RPLDIR EQU RPLOPT1 04196000 RPLLOC EQU RPLOPT1 04197000 RPLDAF EQU RPLARG+2 04198000 RPLSAF EQU RPLARG 04199000 RPLTCBPT EQU RPLCOMN+28 04200000 RPLDACB EQU RPLCOMN+24 04201000 RPLCCHAR EQU RPLCOMN+20 04202000 RPLSTRID EQU RPLCOMN+18 04203000 RPLKEYL EQU RPLKEYLE 04204000 RPLRDSOH EQU RPLFDB3 04205000 RPLRLG EQU RPLFDB3 04206000 RPLLGFRC EQU RPLFDB3 04207000 RPLREOT EQU RPLFDB3 04208000 RPLREOM EQU RPLFDB3 04209000 RPLREOB EQU RPLFDB3 04210000 RPLSV32 EQU RPLFDB3 04211000 RPLUINPT EQU RPLFDB3 04212000 RPLSTSAV EQU RPLFDB2 04213000 RPLCUERR EQU RPLFDB2 04214000 RPLDLGFL EQU RPLFDB2 04215000 RPLIOERR EQU RPLFDB2 04216000 RPLDVUNS EQU RPLFDB2 04217000 RPLATND EQU RPLFDB2 04218000 RPLRVID EQU RPLFDB2 04219000 RPLERLK EQU RPLFDB2 04220000 RPLERREG EQU RPLRTNCD 04221000 RPLSTAT EQU RPLFDBWD 04222000 RPLPOST EQU RPLECB 04223000 RPLWAIT EQU RPLECB 04224000 RPLPLHPT EQU RPLCOMN+4 04225000 RPLLEN2 EQU RPLLEN 04226000 RPLREQ EQU RPLIDWD+2 04227000 RPLSTYP EQU RPLIDWD+1 04228000 RPLID EQU RPLIDWD 04229000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04230000 @RT00430 EQU @RC00428 04231000 @RT00444 EQU PREPOST 04232000 @RF00448 EQU RTNCD 04233000 @RT00475 EQU PREPOST2 04234000 @RT00486 EQU PREPOST3 04235000 @RC00442 EQU @RC00440 04236000 @RC00498 EQU @RC00440 04237000 ENDSENDC EQU @RC00440 04238000 @RF00518 EQU @RC00440 04239000 @RF00524 EQU @RC00440 04240000 @RC00615 EQU @RC00614 04241000 @RF00676 EQU @RC00668 04242000 @RF00721 EQU @EL00003 04243000 @PB00003 EQU @PB00004 04244000 @RF00459 EQU @RC00442 04245000 @RF00484 EQU @RC00442 04246000 @RC00489 EQU @RC00442 04247000 @RC00629 EQU @RC00615 04248000 @PB00002 EQU @PB00003 04249000 @ENDDATA EQU * 04250000 END ISTRCC22,(C'PLS2024',0603,78173) 04251000