SVTM TITLE 'ISTCSCMR - CONNECTION SERVICES MASTER ROUTER *00001000 ' 00002000 ISEQ 73,80 00003000 PRINT OFF 00004000 PRINT ON 00005000 * /***********************************************************/ 00006000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO SETUP */ 00007000 * /* THE ENTRY ENVIRONMENT NECESSARY WHEN THE MASTER */ 00008000 * /* ROUTER RECEIVES CONTROL FROM A FUNCTION THAT IS */ 00009000 * /* EXTERNAL TO THE CONNECTION SERVICES */ 00010000 * /* SUB-FUNCTION OF OPEN/CLOSE. THE MASTER ROUTER */ 00011000 * /* RECEIVES CONTROL TO ROUTE AN ACCEPT, ACQUIRE, */ 00012000 * /* SIMLOGON, CANCEL, LOGON, PASS OR RELEASE */ 00013000 * /* REQUEST TO THE PROPER FUNCTION PROCESSOR. */ 00014000 * /***********************************************************/ 00015000 *MSTREENV:DO; /*BGN OF MSTREENV LOGIC SEGMENT */ 00016000 * 03S0451 00017000 MSTREENV DS 0H 03S0452 00018000 * GEN REFS(ENTRYREG,ISTCSCMR, 03S0452 00019000 * WAIT,POST,QUEUE,SEARCHQ, 03S0452 00020000 * TCONNECT,ACONNECT,GETSTORE,LOGON0,TPQ, 03S0452 00021000 * FREESTOR,DOACCT) 03S0452 00022000 * FLOWS(EXTCALL); /*@XM07935*/ 00023000 * 03S0452 00024000 ISTCSCMR CSECT , OS/VS2 ENTRY POINT NAME @XM07935 00025000 @MAINENT DS 0H @XM8798 00026000 ENTRY WAIT,POST,QUEUE,SEARCHQ,TCONNECT,ACONNECT 00027000 ENTRY GETSTORE,LOGON0,TPQ,FREESTOR,DOACCT 00028000 USING ISTCSCMR,ENTRYREG PROVIDE ADDRESSABILITY 00029000 B EXTCALL BYPASS ID & VECTOR TABLE 00030000 * GEN(DC AL1(16),CL16'ISTCSCMR 77.089'); 03S0453 00031000 DC AL1(16),CL16'ISTCSCMR 77.089' 00032000 * GEN(DC AL3(00)); /* 00033000 *X04BHYY*/ 03S0454 00034000 DC AL3(00) 00035000 * GEN REFS(BASEREG,ENTRYREG,ISTCSCAC,ISTCSCAQ, 03S0455 00036000 * ISTSCCCL,ISTCSCLG,ISTCSCMR,ISTCSCPS,ISTCSCRL); 00037000 CSVECTOR DS 0H START OF VECTOR TABLE @D32CKMP 00038000 CVSACQ DC V(ISTCSCAQ) ACQUIRE/SIMLOGON PROCESSOR 00039000 CSVREL DC V(ISTCSCRL) RELEASE PROCESSOR 00040000 CSVACC DC V(ISTCSCAC) ACCEPT PROCESSOR 00041000 CSVLOG DC V(ISTCSCLG) LOGON PROCESSOR 00042000 CSVPASS DC V(ISTCSCPS) PASS PROCESSOR 00043000 DC A(0) 00044000 CSVCANC DC V(ISTCSCCL) CANCEL PROCESSOR 00045000 CSVWAITA DC A(WAIT) WAIT SUBROUTINE 00046000 CSVPOSTA DC A(POST) POST SUBROUTINE 00047000 CSVQUEU DC A(QUEUE) QUEUE SUBROUTINE 00048000 CSVSEAR DC A(SEARCHQ) SEARCH QUEUE SUBROUTINE 00049000 CSVTCON DC A(TCONNECT) CONNECT TRML SUBROUTINE 00050000 CSVACON DC A(ACONNECT) CONNECT APPL SUBROUTINE 00051000 DC A(0) 00052000 DC A(0) 00053000 CSVGETS DC A(GETSTORE) GET CE/UECB SUBROUTINE 00054000 CSVLOG0 DC A(LOGON0) COMPLETE LOGON SUBROUTINE 00055000 CSVTPQA DC A(TPQ) TPQ UECB ON OWN PAB SUB 00056000 CSVFREES DC A(FREESTOR) FREE CE/UECB SUBROUTINE 00057000 CSVDOACC DC A(DOACCT) CALL ACCT RTN SUBROUTINE 00058000 USING ISTCSCMR,BASEREG ESTABLISH NEW BASE 00059000 DROP ENTRYREG DROP PREVIOUS BASE 00060000 *EXTCALL:; 03S0456 00061000 EXTCALL DS 0H 03S0457 00062000 * GEN SETS(SAVE114) 03S0457 00063000 * REFS(RETR,ATCVTPTR,SAVEPTR); 03S0457 00064000 * 03S0457 00065000 STM RETR,BASEREG,SAVE114(SAVEPTR) SAVE CALL REGS @XM01122 00066000 * BASEREG=ENTRYREG; /*ESTABLISH BASE REG */ 00067000 * 03S0458 00068000 LR BASEREG,ENTRYREG 03S0458 00069000 * /***********************************************************/ 00070000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00071000 * /* THE LISATCVT MACRO TO LOCATE THE PAGEABLE */ 00072000 * /* PORTION OF THE VTAM COMMUNICATION VECTOR TABLE */ 00073000 * /* AND RETURN ITS ADDRESS IN ATCVTPTR FOR THE */ 00074000 * /* MAINLINE FUNCTION. */ 00075000 * /***********************************************************/ 00076000 *FINDCVT :DO; /*BGN OF FINDCVT LOGIC SEGMENT */ 00077000 * 04S0459 00078000 * 04S0459 00079000 FINDCVT DS 0H 04S0460 00080000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(ATCVTPTR)) */ 04S0460 00081000 * ATCVTPTR = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S0461 00082000 L ATCVTPTR,ATCLCPTR 04S0461 00083000 * END; /*LISATCVT*/ 04S0462 00084000 * 04S0462 00085000 * END FINDCVT; /*END OF FINDCVT LOGIC SEGMENT */ 00086000 * CNSTFLDA=CNSTFLDA&&CNSTFLDA;/*CLEAR CRR HIST FLG */ 00087000 L @14,RPHCRR(,RPHPTR) 03S0464 00088000 L @14,CRACRR(,@14) 03S0464 00089000 XC CNSTFLDA(3,@14),CNSTFLDA(@14) 03S0464 00090000 * /***********************************************************/ 00091000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00092000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 00093000 * /* RECOVERY RECORD TO INDICATE THAT THE MAIN LOGIC */ 00094000 * /* OF ISTCSCMR HAS BEEN ENTERED. */ 00095000 * /***********************************************************/ 00096000 *FLGMRIN :DO; /*BGN OF FLGMRIN LOGIC SEGMENT */ 00097000 * 04S0465 00098000 * 04S0465 00099000 FLGMRIN DS 0H 04S0466 00100000 * DO; /* SETCRR FNID(CNSMRIN)TYPE(ENTRY) */ 04S0466 00101000 * CRACRR->CNSTFLDB = ''B; /*CLEAR CURRENT TRACE FIELD*/ 00102000 L @14,RPHCRR(,RPHPTR) 04S0467 00103000 L @14,CRACRR(,@14) 04S0467 00104000 XC CNSTFLDB(3,@14),CNSTFLDB(@14) 04S0467 00105000 * CRACRR->CNSMRINA='1'B; /*SET HISTORY FLAG*/ 04S0468 00106000 OI CNSMRINA(@14),B'10000000' 04S0468 00107000 * CRACRR->CNSMRINB='1'B; /*SET CURRENT FLAG*/ 04S0469 00108000 OI CNSMRINB(@14),B'10000000' 04S0469 00109000 * END; /*SETCRR*/ 04S0470 00110000 * 04S0470 00111000 * END FLGMRIN; /*END OF FLGMRIN LOGIC SEGMENT */ 00112000 * CSPPTR =RPHCSPA; /*ACCESS INPUT PARMS */ 00113000 L CSPPTR,RPHCSPA(,RPHPTR) 03S0472 00114000 * CSPCC =0; /*CLEAR RETURN CODE @D32CKMP*/ 00115000 * 03S0473 00116000 SLR @14,@14 03S0473 00117000 STH @14,CSPCC(,CSPPTR) 03S0473 00118000 * END MSTREENV; /*END OF MSTREENV LOGIC SEGMENT */ 00119000 * 02S0475 00120000 * 02S0475 00121000 * DO; /* BLOCK MAIN */ /*START MAIN LOGIC 00122000 * */ 02S0475 00123000 * /***********************************************************/ 00124000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO CHECK, */ 00125000 * /* ACCORDING TO THE FUNCTION REQUESTED, THE */ 00126000 * /* APPROPRIATE RDT ENTRY POINTERS PASSED. EACH */ 00127000 * /* RDTE SPECIFIED MUST BE ON THE APPROPRIATE TYPE */ 00128000 * /* FOR THE FUNCTION. */ 00129000 * /***********************************************************/ 00130000 *CHECPARM:DO; /*BGN OF CHECPARM LOGIC SEGMENT */ 00131000 * 03S0476 00132000 * 03S0476 00133000 CHECPARM DS 0H 03S0477 00134000 * DO; /* BLOCK */ /*BGN OF LOGIC BLOCK SG 00135000 * */ 03S0477 00136000 * RRET =GOOD; /*SETUP GOOD RET CODE */ 00137000 SLR RRET,RRET 03S0478 00138000 * CHECPFLG=MASKFLAG(CSPIDX)&&CSPOPT; /* GET PARM */ 00139000 LA @14,124 03S0479 00140000 ALR @14,SAVEPTR 03S0479 00141000 LH @05,CSPIDX(,CSPPTR) 03S0479 00142000 ALR @05,@05 03S0479 00143000 LA @04,MASKFLAG-2(@05) 03S0479 00144000 MVC CHECPFLG(2,@14),0(@04) 03S0479 00145000 XC CHECPFLG(2,@14),CSPOPT(CSPPTR) 03S0479 00146000 * IF CPFSRSC=BITOF /*IF SINGLE RSCE RQST */ 00147000 * THEN 03S0480 00148000 TM CPFSRSC(@14),B'10000000' 03S0480 00149000 BNZ @RF00480 03S0480 00150000 * CSPNO=1; /*SETUP CSP LIST COUNT */ 00151000 MVC CSPNO(2,CSPPTR),@CH00038 03S0481 00152000 * ELSE; /*MULT RQST - ALRDY SET */ 00153000 @RF00480 DS 0H 03S0483 00154000 * /*******************************************************/ 00155000 * /* CHECK FOR ACCEPT ANY REQUEST FOR ZD1 3702 */ 00156000 * /*******************************************************/ 00157000 * IF CSPIDX=CSPIACPT & /*IF ACCEPT @DM13702*/ 00158000 * CSPRSC=BITON /*ANY REQUEST @DM13702*/ 00159000 * THEN /*@DM13702*/ 00160000 CLC CSPIDX(2,CSPPTR),@CH00069 03S0483 00161000 BNE @RF00483 03S0483 00162000 TM CSPRSC(CSPPTR),B'10000000' 03S0483 00163000 BNO @RF00483 03S0483 00164000 * RRET=GOOD; /*SET GOOD RC @DM13702*/ 00165000 SLR RRET,RRET 03S0484 00166000 * ELSE /*@DM13702*/ 00167000 * DO; /*@DM13702*/ 00168000 B @RC00483 03S0485 00169000 @RF00483 DS 0H 03S0486 00170000 * WORK=CSPRSCE; /*POINT AT RSCE LIST */ 00171000 L WORK,CSPRSCE(,CSPPTR) 03S0486 00172000 * RFY 03S0487 00173000 * (RALLOC1 03S0487 00174000 * ,LISTCT ) RSTD; 03S0487 00175000 * DO LISTCT=1 TO CSPNO WHILE(RRET=GOOD);/*FOR 03S0488 00176000 * ALL LIST ENTRIES */ 00177000 LA LISTCT,1 03S0488 00178000 B @DE00488 03S0488 00179000 @DL00488 CH RRET,@CH00619 03S0488 00180000 BNE @DC00488 03S0488 00181000 * RALLOC1=-(WORK->CSLRDTE); 03S0489 00182000 L RALLOC1,CSLRDTE(,WORK) 03S0489 00183000 LCR RALLOC1,RALLOC1 03S0489 00184000 * /*GET TRML ITEM TO CHK @D32CKMP*/ 00185000 * CALL CHECRDTE; /*CHECK TRML ITEM */ 00186000 BAL @14,CHECRDTE 03S0490 00187000 * WORK=WORK+LENGTH(ISTCSL); 03S0491 00188000 AH WORK,@CH00440 03S0491 00189000 * /*GET NEXT LIST ENTRY @D32CKMP*/ 00190000 * END; /*LIST DONE OR ERROR */ 00191000 AH LISTCT,@CH00038 03S0492 00192000 @DE00488 CH LISTCT,CSPNO(,CSPPTR) 03S0492 00193000 BNH @DL00488 03S0492 00194000 @DC00488 DS 0H 03S0493 00195000 * RFY 03S0493 00196000 * LISTCT UNRSTD; 03S0493 00197000 * END; /*@DM13702*/ 00198000 * 03S0494 00199000 * /*******************************************************/ 00200000 * /* LEAVE IF THE PREVIOUS PARAMETERS WERE NOT */ 00201000 * /* VALID OR DESTINATION VALIDATION IS NOT */ 00202000 * /* REQUIRED. */ 00203000 * /*******************************************************/ 00204000 * 03S0495 00205000 */* LEAVE(BLOCK) ON(RRET^=GOOD|CPFDEST=BITON) */ 03S0495 00206000 * IF (RRET^=GOOD|CPFDEST=BITON) THEN 03S0495 00207000 @RC00483 CH RRET,@CH00619 03S0495 00208000 BNE @RT00495 03S0495 00209000 TM CPFDEST+124(SAVEPTR),B'00100000' 03S0495 00210000 BO @RT00495 03S0495 00211000 * GOTO #BC00017; 03S0496 00212000 * 03S0496 00213000 * RALLOC1=CSPDEST; /*GET APPL DEST ITEM */ 00214000 L RALLOC1,CSPDEST(,CSPPTR) 03S0497 00215000 * CALL CHECRDTE; /*CHECK DEST ITEM */ 00216000 * 03S0498 00217000 BAL @14,CHECRDTE 03S0498 00218000 * /*******************************************************/ 00219000 * /* LEAVE IF THE PREVIOUS PARAMETERS WERE NOT */ 00220000 * /* VALID OR SOURCE VALIDATION IS NOT REQUIRED. */ 00221000 * /*******************************************************/ 00222000 * 03S0499 00223000 */* LEAVE(BLOCK) ON(RRET^=GOOD|CPFSRC=BITON|CSPNOREL=BITON) * 00224000 * 03S0499 00225000 * IF (RRET^=GOOD|CPFSRC=BITON|CSPNOREL=BITON) THEN 03S0499 00226000 CH RRET,@CH00619 03S0499 00227000 BNE @RT00499 03S0499 00228000 TM CPFSRC+124(SAVEPTR),B'00000001' 03S0499 00229000 BO @RT00499 03S0499 00230000 TM CSPNOREL(CSPPTR),B'00100000' 03S0499 00231000 BO @RT00499 03S0499 00232000 * GOTO #BC00017; 03S0500 00233000 * 03S0500 00234000 * RALLOC1=CSPSRC; /*GET APPL SOURCE ITEM */ 00235000 L RALLOC1,CSPSRC(,CSPPTR) 03S0501 00236000 * CALL CHECRDTE; /*CHECK SOURCE ITEM */ 00237000 * 03S0502 00238000 BAL @14,CHECRDTE 03S0502 00239000 * END; /* END(BLOCK) */ 03S0503 00240000 *#BC00017:; /*END OF LOGIC BLOCK SG */ 03S0504 00241000 * 03S0504 00242000 #BC00017 DS 0H 03S0505 00243000 * END CHECPARM; /*END OF CHECPARM LOGIC SEGMENT */ 00244000 * 02S0506 00245000 */* LEAVE(MAIN) ON(RRET^=0)ANDDO */ 02S0506 00246000 * IF (RRET^=0) THEN 02S0506 00247000 CH RRET,@CH00619 02S0506 00248000 BE @RF00506 02S0506 00249000 * DO;/*FOR NVLD PARMS */ 02S0507 00250000 * CSPCC=INVALID; /*SET COND CODE AND */ 00251000 * 02S0508 00252000 MVC CSPCC(2,CSPPTR),@CH00075 02S0508 00253000 * GOTO #BCM0016; /* END(LEAVE) */ 02S0509 00254000 B #BCM0016 02S0509 00255000 * END; /*EXIT MAIN LOGIC */ 00256000 * IF ATCAUTHA^=0 /*IF AUTHX SUPPLIED */ 00257000 * THEN 02S0511 00258000 @RF00506 ICM @14,15,ATCAUTHA(ATCVTPTR) 02S0511 00259000 BZ @RF00511 02S0511 00260000 * /***********************************************************/ 00261000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00262000 * /* THE INSTALLATION SUPPLIED AUTHORIZATION EXIT */ 00263000 * /* ROUTINE, IF PRESENT, TO DETERMINE WHETHER THE */ 00264000 * /* REQUESTOR IS AUTHORIZED TO ISSUE THE REQUEST OR */ 00265000 * /* NOT. */ 00266000 * /***********************************************************/ 00267000 *CHECAUTH:DO; /*BGN OF CHECAUTH LOGIC SEGMENT */ 00268000 * 03S0512 00269000 CHECAUTH DS 0H 03S0513 00270000 * /***********************************************************/ 00271000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00272000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 00273000 * /* RECOVERY RECORD TO INDICATE THAT THE AUTHORIZA- */ 00274000 * /* TION EXIT FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 00275000 * /***********************************************************/ 00276000 *FLGAUIN :DO; /*BGN OF FLGAUIN LOGIC SEGMENT */ 00277000 * 04S0513 00278000 * 04S0513 00279000 FLGAUIN DS 0H 04S0514 00280000 * DO; /* SETCRR FNID(CNSAUTH)TYPE(SENTRY) */ 04S0514 00281000 * CRACRR->CNSAUTHA='1'B; /*SET HISTORY FLAG*/ 04S0515 00282000 L @14,RPHCRR(,RPHPTR) 04S0515 00283000 L @14,CRACRR(,@14) 04S0515 00284000 OI CNSAUTHA(@14),B'01000000' 04S0515 00285000 * CRACRR->CNSAUTHB='1'B; /*SET CURRENT FLAG*/ 04S0516 00286000 OI CNSAUTHB(@14),B'01000000' 04S0516 00287000 * END; /*SETCRR*/ 04S0517 00288000 * 04S0517 00289000 * END FLGAUIN; /*END OF FLGAUIN LOGIC SEGMENT */ 00290000 * WK2=RPHPTR; /*SAVE RPH POINTER */ 00291000 ST RPHPTR,WK2+124(,SAVEPTR) 03S0519 00292000 * RPHCSPA=CSPRSCE; /* SAVE ORIGINAL CSPRSCE DURING 00293000 * CALL TO AUTH RTN @ZA10947*/ 00294000 L @14,CSPRSCE(,CSPPTR) 03S0520 00295000 ST @14,RPHCSPA(,RPHPTR) 03S0520 00296000 * PARMPTR=CSPPTR; /* REG 1 EQ PARM LIST @ZA10947*/ 00297000 LR PARMPTR,CSPPTR 03S0521 00298000 * IF CSPRSC='1'B /* GROUP LIST @ZA10947*/ 00299000 * THEN /* YES @ZA10947*/ 00300000 TM CSPRSC(CSPPTR),B'10000000' 03S0522 00301000 BNO @RF00522 03S0522 00302000 * CSPRSCE=CSPRSCE+(CSPNO*LENGTH(ISTCSL)); 03S0523 00303000 LH @02,CSPNO(,CSPPTR) 03S0523 00304000 MH @02,@CH00440 03S0523 00305000 ALR @14,@02 03S0523 00306000 ST @14,CSPRSCE(,CSPPTR) 03S0523 00307000 * /*GET CONTIG AUTH LIST @D32CKMP*/ 00308000 * ELSE /* SINGLE LIST (1 CSL) @ZA10947*/ 00309000 * CSPRSCE=CSPRSCE->CSLRDTE; /* THIS WILL POINT DIRECTLY TO 00310000 * THE RDTE NAME @ZA10947*/ 00311000 B @RC00522 03S0524 00312000 @RF00522 L @14,CSPRSCE(,CSPPTR) 03S0524 00313000 L @14,CSLRDTE(,@14) 03S0524 00314000 ST @14,CSPRSCE(,CSPPTR) 03S0524 00315000 * ENTRYREG=ATCAUTHA; /*POINT AT AUTH ROUTINE */ 00316000 @RC00522 L ENTRYREG,ATCAUTHA(,ATCVTPTR) 03S0525 00317000 * SAVEPTR=SAVEPTR+LNGTHSAV;/*GET NEW SAVE AREA PTR */ 00318000 AH SAVEPTR,@CH03523 03S0526 00319000 * CALL MNTRN; /*CHECK AUTHORIZATION */ 00320000 BALR @14,@15 03S0527 00321000 * SAVEPTR=SAVEPTR-LNGTHSAV;/*GET OLD SAVE AREA PTR */ 00322000 SH SAVEPTR,@CH03523 03S0528 00323000 * RPHPTR=WK2; /*RESTORE RPH POINTER */ 00324000 L RPHPTR,WK2+124(,SAVEPTR) 03S0529 00325000 * CSPRSCE=RPHCSPA; /* RESTORE CSPRSCE @ZA10947*/ 00326000 MVC CSPRSCE(4,CSPPTR),RPHCSPA(RPHPTR) 03S0530 00327000 * RPHCSPA=CSPPTR; /* RESTORE RPH CSP ADDR @ZA10947*/ 00328000 ST CSPPTR,RPHCSPA(,RPHPTR) 03S0531 00329000 * IF RRET ^= 0 /* AUTH OR NOT? @ZA18910*/ 00330000 * THEN CSPCC = UNAUTH; /* NOT AUTH. @ZA18910*/ 00331000 CH RRET,@CH00619 03S0532 00332000 BE @RF00532 03S0532 00333000 MVC CSPCC(2,CSPPTR),@CH00040 03S0533 00334000 * ELSE; /* @ZA18910*/ 00335000 @RF00532 DS 0H 03S0535 00336000 * /***********************************************************/ 00337000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00338000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 00339000 * /* RECOVERY RECORD TO INDICATE THAT THE AUTHORIZA- */ 00340000 * /* TION EXIT FUNCTION OF ISTCSCMR IS BEING EXITED. */ 00341000 * /***********************************************************/ 00342000 *FLGAUOUT:DO; /*BGN OF FLGAUOUT LOGIC SEGMENT */ 00343000 * 04S0535 00344000 * 04S0535 00345000 FLGAUOUT DS 0H 04S0536 00346000 * DO; /* SETCRR FNID(CNSAUTH)TYPE(SEXIT) */ 04S0536 00347000 * CRACRR->CNSAUTHB='0'B; /*TURN OFF CURRENT FLAG*/ 04S0537 00348000 L @14,RPHCRR(,RPHPTR) 04S0537 00349000 L @14,CRACRR(,@14) 04S0537 00350000 NI CNSAUTHB(@14),B'10111111' 04S0537 00351000 * END; /*SETCRR*/ 04S0538 00352000 * 04S0538 00353000 * END FLGAUOUT; /*END OF FLGAUOUT LOGIC SEGMENT */ 00354000 * 03S0540 00355000 * END CHECAUTH; /*END OF CHECAUTH LOGIC SEGMENT */ 00356000 * ELSE; /*SKIP AUTH CHECK */ 00357000 * 02S0541 00358000 @RF00511 DS 0H 02S0542 00359000 */* LEAVE(MAIN) ON(CSPCC^=0) */ 02S0542 00360000 * IF (CSPCC^=0) THEN 02S0542 00361000 ICM @14,3,CSPCC(CSPPTR) 02S0542 00362000 BNZ @RT00542 02S0542 00363000 * GOTO #BCM0016; /*UNAUTH-EXIT MAIN */ 02S0543 00364000 * /***********************************************************/ 00365000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00366000 * /* THE APPROPRIATE EXTERNAL CONNECTION SERVICES */ 00367000 * /* PROCESSOR TO CONTINUE PROCESSING THE REQUEST. */ 00368000 * /***********************************************************/ 00369000 *CALLFUNC:DO; /*BGN OF CALLFUNC LOGIC SEGMENT */ 00370000 * 03S0544 00371000 CALLFUNC DS 0H 03S0545 00372000 * ENTRYREG=BASEREG+4*(CSPIDX+5); /*@D32CKMP*/ 00373000 LA ENTRYREG,5 03S0545 00374000 AH ENTRYREG,CSPIDX(,CSPPTR) 03S0545 00375000 SLA ENTRYREG,2 03S0545 00376000 ALR ENTRYREG,BASEREG 03S0545 00377000 * /*DERIVE EXTERNAL */ 00378000 * ENTRYREG=ENTRYREG->ADDRESS; 03S0546 00379000 L ENTRYREG,ADDRESS(,ENTRYREG) 03S0546 00380000 * /*ROUTINE ADDRESS */ 00381000 *FNCALL: 03S0547 00382000 * CALL MXTRN; /*CALL FUNCTION */ 00383000 * 03S0547 00384000 FNCALL BALR @14,@15 03S0547 00385000 * END CALLFUNC; /*END OF CALLFUNC LOGIC SEGMENT */ 00386000 * 02S0549 00387000 * END; /* END(MAIN) */ 02S0549 00388000 *#BCM0016:; /*FINIS MAIN LOGIC */ 02S0550 00389000 * 02S0550 00390000 #BCM0016 DS 0H 02S0551 00391000 * /***********************************************************/ 00392000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO SET UP */ 00393000 * /* THE EXIT ENVIRONMENT NECESSARY WHEN THE MASTER */ 00394000 * /* ROUTER RELINQUISHES CONTROL TO ITS CALLER. */ 00395000 * /***********************************************************/ 00396000 *MSTRXENV:DO; /*BGN OF MSTRXENV LOGIC SEGMENT */ 00397000 * 03S0551 00398000 MSTRXENV DS 0H 03S0552 00399000 * /***********************************************************/ 00400000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00401000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 00402000 * /* RECOVERY RECORD TO INDICATE THAT THE MAIN LOGIC */ 00403000 * /* OF ISTCSCMR IS BEING EXITED. */ 00404000 * /***********************************************************/ 00405000 *FLGMROUT:DO; /*BGN OF FLGMROUT LOGIC SEGMENT */ 00406000 * 04S0552 00407000 * 04S0552 00408000 FLGMROUT DS 0H 04S0553 00409000 * DO; /* SETCRR FNID(CNSMRIN)TYPE(EXIT) */ 04S0553 00410000 * CRACRR->CNSTFLDB = ''B; /*CLEAR CURRENT TRACE FIELD*/ 00411000 L @14,RPHCRR(,RPHPTR) 04S0554 00412000 L @14,CRACRR(,@14) 04S0554 00413000 XC CNSTFLDB(3,@14),CNSTFLDB(@14) 04S0554 00414000 * END; /*SETCRR*/ 04S0555 00415000 * 04S0555 00416000 * END FLGMROUT; /*END OF FLGMROUT LOGIC SEGMENT */ 00417000 * GEN REFS(SAVE114,SAVEPTR); 03S0557 00418000 * 03S0557 00419000 LM RETR,BASEREG,SAVE114(SAVEPTR) REST CALLER RG @XM01122 00420000 * END MSTRXENV; /*END OF MSTRXENV LOGIC SEGMENT */ 00421000 * RETURN; /*RETURN TO CALLER */ 00422000 @EL00001 DS 0H 02S0559 00423000 @EF00001 DS 0H 02S0559 00424000 @ER00001 BR @14 02S0559 00425000 * GEN (EJECT); 03S0560 00426000 EJECT 00427000 * /***********************************************************/ 00428000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO CHECK */ 00429000 * /* THE EXPECTED RDTE TYPE AGAINST THE ACTUAL RDTE */ 00430000 * /* TYPE - IF THE RDTE ADDRESS IS COMPLIMENTED, IT */ 00431000 * /* SHOULD BE A TERMINAL TYPE RDTE. */ 00432000 * /***********************************************************/ 00433000 *CHECRDTE:PROC OPTIONS(NOSAVE); 03S0561 00434000 * 03S0561 00435000 B @PB00002 03S0561 00436000 CHECRDTE DS 0H 03S0562 00437000 * RFY 03S0562 00438000 * (RALLOC 03S0562 00439000 * ,RALLOC1 03S0562 00440000 * ,RETR 03S0562 00441000 * ,RRET ) RSTD; /*RESTRICT WORK REGS */ 00442000 * IF RALLOC1<0 /*IF TRML RDT XPCTD */ 00443000 * THEN /* */ 00444000 LTR RALLOC1,RALLOC1 03S0563 00445000 BNM @RF00563 03S0563 00446000 * DO; /* */ 00447000 * RALLOC=-RALLOC1; /*RECOMPLIMENT PTR */ 00448000 LCR @02,RALLOC1 03S0565 00449000 LR RALLOC,@02 03S0565 00450000 * IF RALLOC->RPRENTRY=RPRENTTR | /*FOR TRML */ 00451000 * RALLOC->RPRENTRY=RPRENTLC | /*OR LOCAL */ 00452000 * RALLOC->RPRENTRY=RPRENTCL | /*OR CLUSTER */ 00453000 * RALLOC->RPRENTRY=RPRENTCM | /*OR COMPONENT */ 00454000 * RALLOC->RPRENTRY=RPRENTLU | /*OR LU @D31KKMP*/ 00455000 * RALLOC->RPRENTRY=RPRENTUT /*OR UTRML */ 00456000 * THEN /*FOR ANY TRML RDTE */ 00457000 CLI RPRENTRY(RALLOC),X'80' 03S0566 00458000 BE @RT00566 03S0566 00459000 CLI RPRENTRY(RALLOC),X'45' 03S0566 00460000 BE @RT00566 03S0566 00461000 CLI RPRENTRY(RALLOC),X'70' 03S0566 00462000 BE @RT00566 03S0566 00463000 CLI RPRENTRY(RALLOC),X'90' 03S0566 00464000 BE @RT00566 03S0566 00465000 CLI RPRENTRY(RALLOC),X'81' 03S0566 00466000 BE @RT00566 03S0566 00467000 CLI RPRENTRY(RALLOC),X'75' 03S0566 00468000 BNE @RF00566 03S0566 00469000 @RT00566 DS 0H 03S0567 00470000 * RRET=GOOD; /*SET SUCCESS RETCD */ 00471000 SLR RRET,RRET 03S0567 00472000 * ELSE /*NON-TRML RDTE, SO */ 00473000 * RRET=INVALID; /*SET INVALID RETCD */ 00474000 B @RC00566 03S0568 00475000 @RF00566 LA RRET,4 03S0568 00476000 * END; /* */ 00477000 * ELSE /*APPL RDT XPCTD, SO */ 00478000 * DO; /* */ 00479000 B @RC00563 03S0570 00480000 @RF00563 DS 0H 03S0571 00481000 * IF RALLOC->RPRENTRY=RPRENTAP /*FOR APPL NTRY */ 00482000 * THEN /* */ 00483000 CLI RPRENTRY(RALLOC),X'55' 03S0571 00484000 BNE @RF00571 03S0571 00485000 * RRET=GOOD; /*SET SUCCESS RETCD */ 00486000 SLR RRET,RRET 03S0572 00487000 * ELSE /*NON-APPL RDTE, SO */ 00488000 * RRET=INVALID; /*SET INVALID RETCD */ 00489000 B @RC00571 03S0573 00490000 @RF00571 LA RRET,4 03S0573 00491000 * END; /* */ 00492000 * RFY 03S0575 00493000 * (RALLOC 03S0575 00494000 * ,RALLOC1 03S0575 00495000 * ,RETR 03S0575 00496000 * ,RRET ) UNRSTD; /*RELEASE WORK REGS */ 00497000 * 03S0575 00498000 * END CHECRDTE; 03S0576 00499000 @EL00002 DS 0H 03S0576 00500000 @EF00002 DS 0H 03S0576 00501000 @ER00002 BR @14 03S0576 00502000 @PB00002 DS 0H 03S0577 00503000 * GEN (EJECT); 02S0577 00504000 EJECT 00505000 * /***********************************************************/ 00506000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 00507000 * /* INCLUDE ALL OF THE SUBROUTINE LOGIC */ 00508000 * /* SEGMENTS SUPPORTING THE CONNECTION */ 00509000 * /* SERVICES SUB-FUNCTION OF THE OPEN/CLOSE */ 00510000 * /* COMPONENT. THESE SUBROUTINES ARE */ 00511000 * /* ENTERED FROM THE VARIOUS REQUEST */ 00512000 * /* PROCESSORS OF CONNECTION SERVICES THAT */ 00513000 * /* ARE EXTERNAL TO THE MASTER ROUTER. */ 00514000 * /***********************************************************/ 00515000 * /***********************************************************/ 00516000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO ISSUE */ 00517000 * /* A TPWAIT ON BEHALF OF THE REQUESTOR. */ 00518000 * /***********************************************************/ 00519000 *WAIT :PROC OPTIONS(NOSAVE); 03S0578 00520000 * 03S0578 00521000 B @PB00003 03S0578 00522000 WAIT DS 0H 03S0579 00523000 * RFY 03S0579 00524000 * (TERMPTR 03S0579 00525000 * ,RAPPTR 03S0579 00526000 * ,ACEPTR ) UNRSTD; 03S0579 00527000 * RFY 03S0580 00528000 * (R2 03S0580 00529000 * ,R3 03S0580 00530000 * ,R4) RSTD; 03S0580 00531000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 00532000 ST BASEREG,SAVE212(,SAVEPTR) 03S0581 00533000 * GEN SETS(SAVE214,SAVE22) 03S0582 00534000 * REFS(RETR,RPHPTR,ATCVTPTR,CSPPTR,SAVEPTR); 03S0582 00535000 * 03S0582 00536000 STM RETR,RPHPTR,SAVE214(SAVEPTR) SAVE RG 14-01 00537000 STM ATCVTPTR,CSPPTR,SAVE22(SAVEPTR) AND 06-12 @XM01122 00538000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 00539000 * 03S0583 00540000 L BASEREG,ATCCSMA(,ATCVTPTR) 03S0583 00541000 * CSPWASQD=BITON; /*INDICATE RQST WAS QD */ 00542000 OI CSPWASQD(CSPPTR),B'00000100' 03S0584 00543000 * /***********************************************************/ 00544000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00545000 * /* THE TPUNLOCK MACRO TO REQUEST THAT THE VARY - */ 00546000 * /* OPEN/CLOSE LOCK BE RELEASED FOR THE WAIT */ 00547000 * /* FUNCTION. */ 00548000 * /***********************************************************/ 00549000 *TPUN1 :DO; /*BGN OF TPUN1 LOGIC SEGMENT */ 00550000 * 04S0585 00551000 TPUN1 DS 0H 04S0586 00552000 */*** START -TPUNLOCK (VOCLOCK)- ***/ 04S0586 00553000 * DO; 04S0586 00554000 * 04S0586 00555000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 04S0587 00556000 */* END OF ATBUILD */ 04S0587 00557000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 00558000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00559000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00560000 * GPR02P = ADDR(ATCVOCLK); /*SET PARAM - LOCKWORD PTR*/ 00561000 LA GPR02P,ATCVOCLK(,ATCVTPTR) 04S0589 00562000 * GPR04P = GPR01P->RPHCRR; /*SET PARAM - ISTCRA PTR*/ 00563000 L GPR04P,RPHCRR(,GPR01P) 04S0590 00564000 * GPR00P = CRALMS02; /*SET PARAM - LOCK LEVEL FLAG*/ 00565000 LA GPR00P,2 04S0591 00566000 * GPR03P = ADDR(GPR04P->CRAL2PTR); 04S0592 00567000 LA GPR03P,CRAL2PTR(,GPR04P) 04S0592 00568000 * /*SET PARAM - LOCK LEVEL PTR*/ 00569000 * 04S0593 00570000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 04S0593 00571000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S0594 00572000 L GPR15P,ATCLCPTR 04S0594 00573000 * END; /*LISATCVT*/ 04S0595 00574000 * GPR15P=GPR15P->ATCAP33; 04S0596 00575000 L GPR15P,ATCAP33(,GPR15P) 04S0596 00576000 * DCL FMZL0031 BASED(GPR15P) LABEL VALUERANGE(*); 04S0597 00577000 * CALL FMZL0031; 04S0598 00578000 BALR @14,@15 04S0598 00579000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(GPR00P,GPR01P 00580000 *GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P,GPR10P,GPR11P, 00581000 *PR12P,GPR13P,GPR14P,GPR15P); 04S0599 00582000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00583000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 00584000 * END; 04S0601 00585000 */*** END -TPUNLOCK (VOCLOCK)- ***/ 04S0602 00586000 * 04S0602 00587000 * END TPUN1; /*END OF TPUN1 LOGIC SEGMENT */ 00588000 * /***********************************************************/ 00589000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00590000 * /* THE TPUNLOCK MACRO TO REQUEST THAT THE RESOURCE */ 00591000 * /* DEFINITION TABLE LOCK BE RELEASED FOR THE WAIT */ 00592000 * /* FUNCTION. */ 00593000 * /***********************************************************/ 00594000 *TPUN2 :DO; /*BGN OF TPUN2 LOGIC SEGMENT */ 00595000 * 04S0603 00596000 TPUN2 DS 0H 04S0604 00597000 */*** START -TPUNLOCK (RDTLOCK)- ***/ 04S0604 00598000 * DO; 04S0604 00599000 * 04S0604 00600000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 04S0605 00601000 */* END OF ATBUILD */ 04S0605 00602000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 00603000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00604000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00605000 * GPR02P = ADDR(ATCRDTLK); /*SET PARAM - LOCKWORD PTR*/ 00606000 LA GPR02P,ATCRDTLK(,ATCVTPTR) 04S0607 00607000 * GPR04P = GPR01P->RPHCRR; /*SET PARAM - ISTCRA PTR*/ 00608000 L GPR04P,RPHCRR(,GPR01P) 04S0608 00609000 * GPR00P = CRALMS03; /*SET PARAM - LOCK LEVEL FLAG*/ 00610000 LA GPR00P,4 04S0609 00611000 * GPR03P = ADDR(GPR04P->CRAL3PTR); 04S0610 00612000 LA GPR03P,CRAL3PTR(,GPR04P) 04S0610 00613000 * /*SET PARAM - LOCK LEVEL PTR*/ 00614000 * 04S0611 00615000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 04S0611 00616000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S0612 00617000 L GPR15P,ATCLCPTR 04S0612 00618000 * END; /*LISATCVT*/ 04S0613 00619000 * GPR15P=GPR15P->ATCAP33; 04S0614 00620000 L GPR15P,ATCAP33(,GPR15P) 04S0614 00621000 * DCL FMZL0041 BASED(GPR15P) LABEL VALUERANGE(*); 04S0615 00622000 * CALL FMZL0041; 04S0616 00623000 BALR @14,@15 04S0616 00624000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(GPR00P,GPR01P 00625000 *GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P,GPR10P,GPR11P, 00626000 *PR12P,GPR13P,GPR14P,GPR15P); 04S0617 00627000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00628000 * RFY (GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 00629000 * END; 04S0619 00630000 */*** END -TPUNLOCK (RDTLOCK)- ***/ 04S0620 00631000 * 04S0620 00632000 * END TPUN2; /*END OF TPUN2 LOGIC SEGMENT */ 00633000 * /***********************************************************/ 00634000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00635000 * /* THE TPWAIT MACRO TO WAIT ON BEHALF OF THE */ 00636000 * /* REQUESTOR RPH FOR THE WAIT FUNCTION. */ 00637000 * /***********************************************************/ 00638000 *TPWAIM :DO; /*BGN OF TPWAIM LOGIC SEGMENT */ 00639000 * 04S0621 00640000 TPWAIM DS 0H 04S0622 00641000 */* TPWAIT */ 04S0622 00642000 * DO; /* BEGIN TPWAIT GENERATION*/ 04S0622 00643000 * RFY (GPR01P,GPR14P,GPR15P) RSTD; 04S0623 00644000 * RFY (GPR00P) RSTD; 04S0624 00645000 * GEN (STM GPR00P,GPR15P,RPHWORK(GPR01P)) 04S0625 00646000 * REFS(GPR00P,GPR01P,GPR15P) SETS(RPHWORK); 04S0625 00647000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00648000 * RFY (GPR00P) UNRSTD; 04S0626 00649000 * GPR15P=ADDR(LHAA0051); 04S0627 00650000 LA GPR15P,LHAA0051 04S0627 00651000 * GPR14P=0; 04S0628 00652000 SLR GPR14P,GPR14P 04S0628 00653000 * GPR15P=GPR15P & '00FFFFFF'X; 04S0629 00654000 N GPR15P,@CF03620 04S0629 00655000 * GPR15P=GPR15P | RPHWT1; 04S0630 00656000 O GPR15P,@CF00129 04S0630 00657000 * CS (GPR14P,GPR15P,GPR01P->RPHRESMA); 04S0631 00658000 CS GPR14P,@15,RPHRESMA(GPR01P) 04S0631 00659000 * BC (7,LHAB0051); 04S0632 00660000 * 04S0632 00661000 BC 7,LHAB0051 04S0632 00662000 */* TPEXIT NONE */ 04S0633 00663000 * DO; 04S0633 00664000 * RESPECIFY GPR15P RSTD; 04S0634 00665000 * 04S0634 00666000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 04S0635 00667000 */* END OF ATBUILD */ 04S0635 00668000 * 04S0635 00669000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 04S0635 00670000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S0636 00671000 L GPR15P,ATCLCPTR 04S0636 00672000 * END; /*LISATCVT*/ 04S0637 00673000 * RESPECIFY GPR00F RSTD; 04S0638 00674000 * GPR00F=0; /*SET PARAMETER REGISTER TO 0*/ 04S0639 00675000 SLR GPR00F,GPR00F 04S0639 00676000 * GPR15P=GPR15P->ATCAP31; 04S0640 00677000 L GPR15P,ATCAP31(,GPR15P) 04S0640 00678000 * DCL FMZL0056 BASED(GPR15P) LABEL VALUERANGE(*); 04S0641 00679000 * CALL FMZL0056; 04S0642 00680000 BALR @14,@15 04S0642 00681000 * RESPECIFY (GPR00F,GPR15P) UNRSTD; 04S0643 00682000 * END; /***** END OF TPEXIT *****/ 04S0644 00683000 *LHAB0051:; GPR01P->RPHRESMA = 0; 04S0645 00684000 LHAB0051 DS 0H 04S0646 00685000 SLR @09,@09 04S0646 00686000 ST @09,RPHRESMA(,GPR01P) 04S0646 00687000 * RFY (GPR00P) RSTD; 04S0647 00688000 *LHAA0051:; GEN (LM GPR00P,GPR15P,RPHWORK(GPR01P)) 04S0648 00689000 LHAA0051 DS 0H 04S0649 00690000 * REFS(RPHWORK,GPR01P) SETS(GPR00P,GPR15P); 04S0649 00691000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00692000 * RFY (GPR00P,GPR01P,GPR14P,GPR15P) UNRSTD; 04S0650 00693000 * END; /*****END OF TPWAIT *****/ 04S0651 00694000 * 04S0651 00695000 * END TPWAIM; /*END OF TPWAIM LOGIC SEGMENT */ 00696000 * 03S0653 00697000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 00698000 L BASEREG,SAVE212(,SAVEPTR) 03S0653 00699000 * GEN SETS(ATCVTPTR,CSPPTR,RETR,RPHPTR) 03S0654 00700000 * REFS(SAVE22,SAVE214,SAVEPTR); 03S0654 00701000 LM ATCVTPTR,CSPPTR,SAVE22(SAVEPTR) REST RG 06-12 00702000 LM RETR,RPHPTR,SAVE214(SAVEPTR) AND 14-01 00703000 * RFY 03S0655 00704000 * (R2 03S0655 00705000 * ,R3 03S0655 00706000 * ,R4) UNRSTD; 03S0655 00707000 * RFY 03S0656 00708000 * (TERMPTR 03S0656 00709000 * ,RAPPTR 03S0656 00710000 * ,ACEPTR ) RSTD; 03S0656 00711000 * 03S0656 00712000 * END WAIT; 03S0657 00713000 @EL00003 DS 0H 03S0657 00714000 @EF00003 DS 0H 03S0657 00715000 @ER00003 BR @14 03S0657 00716000 @PB00003 DS 0H 03S0658 00717000 * GEN (EJECT); 02S0658 00718000 EJECT 00719000 * /***********************************************************/ 00720000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO POST */ 00721000 * /* THE CHAIN OF RPHS LOCATED BY THE CSPRLRPH */ 00722000 * /* FIELD. WHEN THE CHAIN ENDS WITH RPHNEXPO=1 THE */ 00723000 * /* RPH IS TO BE LEFT ON THE CHAIN UNPOSTED. WHEN */ 00724000 * /* THE CHAIN ENDS WITH RPHNEXPO=0 ALL THE RPHS ON */ 00725000 * /* THE CHAIN ARE TO BE POSTED. */ 00726000 * /***********************************************************/ 00727000 *POST :PROC OPTIONS(NOSAVE); 03S0659 00728000 * 03S0659 00729000 B @PB00004 03S0659 00730000 POST DS 0H 03S0660 00731000 * RFY 03S0660 00732000 * (TERMPTR 03S0660 00733000 * ,RAPPTR 03S0660 00734000 * ,ACEPTR ) UNRSTD; 03S0660 00735000 * RFY 03S0661 00736000 * (R2 03S0661 00737000 * ,R3 03S0661 00738000 * ,R4) RSTD; 03S0661 00739000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 00740000 ST BASEREG,SAVE212(,SAVEPTR) 03S0662 00741000 * GEN SETS(SAVE214,SAVE22) 03S0663 00742000 * REFS(RETR,RPHPTR,ATCVTPTR,CSPPTR,SAVEPTR); @XM01122 00743000 * 03S0663 00744000 STM RETR,RPHPTR,SAVE214(SAVEPTR) SAVE RG 14-01 00745000 STM ATCVTPTR,CSPPTR,SAVE22(SAVEPTR) AND 06-11 @XM01122 00746000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 00747000 * 03S0664 00748000 L BASEREG,ATCCSMA(,ATCVTPTR) 03S0664 00749000 * RFY 03S0665 00750000 * (NEXTRPH 03S0665 00751000 * ,THISRPH) RSTD; 03S0665 00752000 * 03S0665 00753000 * 03S0665 00754000 * DO; /* BLOCK */ /*BGN OF LOGIC BLOCK SG 00755000 * */ 03S0666 00756000 * 03S0666 00757000 */* LEAVE(BLOCK) ON(CSPRLRPH=ENDON)ANDDO */ 03S0667 00758000 * IF (CSPRLRPH=ENDON) THEN 03S0667 00759000 CLC CSPRLRPH(4,CSPPTR),@CF00038 03S0667 00760000 BNE @RF00667 03S0667 00761000 * DO; /* FOR */ 03S0668 00762000 * CSPRLRPH = 0; /*NO RPHS EXIT LOGIC */ 00763000 * 03S0669 00764000 SLR @14,@14 03S0669 00765000 ST @14,CSPRLRPH(,CSPPTR) 03S0669 00766000 * GOTO #BC00066; /* END(LEAVE) */ 03S0670 00767000 B #BC00066 03S0670 00768000 * END; /*BLOCK */ 00769000 * NEXTRPH = CSPRLRPH; /*INIT PTR TO NEXT RPH */ 00770000 * 03S0672 00771000 @RF00667 L NEXTRPH,CSPRLRPH(,CSPPTR) 03S0672 00772000 */* DOWHILE(NEXTRPH^=0) */ 03S0673 00773000 * DO WHILE(NEXTRPH^=0); /*FOR ALL RPHS IN CHAIN * 00774000 B @DE00673 03S0673 00775000 @DL00673 DS 0H 03S0674 00776000 * THISRPH=NEXTRPH; /*GET CURRENT RPH PTR */ 00777000 LR THISRPH,NEXTRPH 03S0674 00778000 * /*****************************************************/ 00779000 * /* FOR END OF RPH CHAIN CLEAR RPHNEXPO AND */ 00780000 * /* EXIT DO LOOP. */ 00781000 * /*****************************************************/ 00782000 * 03S0675 00783000 */* LEAVE ON(THISRPH->RPHNEXPO=ENDON)ANDDO */ 03S0675 00784000 * IF (THISRPH->RPHNEXPO=ENDON) THEN 03S0675 00785000 CLC RPHNEXPO(4,THISRPH),@CF00038 03S0675 00786000 BNE @RF00675 03S0675 00787000 * DO; 03S0676 00788000 * THISRPH->RPHNEXPO=0; 03S0677 00789000 * 03S0677 00790000 SLR @14,@14 03S0677 00791000 ST @14,RPHNEXPO(,THISRPH) 03S0677 00792000 * GOTO #DC00069; /* END(LEAVE) */ 03S0678 00793000 B #DC00069 03S0678 00794000 * END; 03S0679 00795000 * NEXTRPH=THISRPH->RPHNEXPO; /*PICK UP NXT RPH */ 00796000 @RF00675 L NEXTRPH,RPHNEXPO(,THISRPH) 03S0680 00797000 * CSPRLRPH=NEXTRPH; /*RESET CHAIN HEAD */ 00798000 ST NEXTRPH,CSPRLRPH(,CSPPTR) 03S0681 00799000 * /***********************************************************/ 00800000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 00801000 * /* THE TPPOST MACRO TO POST THE WAITING RPH */ 00802000 * /* SPECIFIED FOR THE POST FUNCTION. */ 00803000 * /***********************************************************/ 00804000 *TPOM :DO; /*BGN OF TPOM LOGIC SEGMENT */ 00805000 * 04S0682 00806000 TPOM DS 0H 04S0683 00807000 */*TPPOST (THISRPH) */ 04S0683 00808000 * DO; 04S0683 00809000 * /*DECLARE AND RESTRICT REGS*/ 00810000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F, 04S0684 00811000 * GPR06F,GPR14F,GPR15F) RSTD; 04S0684 00812000 * /*0,1,4,5,6,14, AND 15 */ 00813000 * 04S0685 00814000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH) */ 04S0685 00815000 */* END OF ATBUILD */ 04S0685 00816000 * GEN REFS(GPR01P,GPR02F,GPR06F)SETS(RPHWORK); 04S0685 00817000 STM GPR02F,GPR06F,RPHWORK(GPR01P) 00818000 * GPR04F=THISRPH; /*LOAD RPH PNTR INTO REG 4*/ 00819000 LR GPR04F,THISRPH 04S0686 00820000 * RFY GPR03F RSTD; 04S0687 00821000 * GPR03F=0; 04S0688 00822000 * 04S0688 00823000 SLR GPR03F,GPR03F 04S0688 00824000 * DO; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKREG(GPR0 00825000 *F)*/ RESPECIFY (GPR02F) RESTRICTED; 04S0689 00826000 * GPR05F = GPR02F; /*SAVE REGISTER 2*/ 04S0691 00827000 LR GPR05F,GPR02F 04S0691 00828000 * IPK; /*SAVE CURRENT PSW KEY*/ 04S0692 00829000 IPK 04S0692 00830000 * GPR06F = GPR02F; 04S0693 00831000 LR GPR06F,GPR02F 04S0693 00832000 * GPR02F = GPR05F; /*RESTORE REGISTER 2*/ 04S0694 00833000 LR GPR02F,GPR05F 04S0694 00834000 * SPKA (GPR03F); /*SET PSW KEY*/ 04S0695 00835000 SPKA 0(GPR03F) 04S0695 00836000 * RESPECIFY (GPR02F) UNRESTRICTED; 04S0696 00837000 * END; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WORKREG(GPR 00838000 *5F)*/ RFY GPR03F UNRSTD; 04S0697 00839000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF; 04S0699 00840000 SLR GPR05P,GPR05P 04S0699 00841000 ICM GPR05P,7,RPHMAJCB(GPR04P) 04S0699 00842000 SLR @09,@09 04S0699 00843000 IC @09,RPHPABOF(,GPR04P) 04S0699 00844000 ALR GPR05P,@09 04S0699 00845000 * /*LOAD REG 5 WITH ADDR OF*/ 00846000 * /*MAJOR CONTROL BLOCK PLUS*/ 00847000 * /*OFFSET OF PAB IN BLOCK */ 00848000 * GPR14P=0; /*LOAD 0 INTO REG 14 */ 00849000 SLR GPR14P,GPR14P 04S0700 00850000 * GPR15P='FFFFFFFF'X; /*LOAD REG 15 WITH DUMMY */ 00851000 SLR GPR15P,GPR15P 04S0701 00852000 BCTR GPR15P,0 04S0701 00853000 * /*ADDRESS */ 00854000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 04S0702 00855000 CS GPR14P,@15,RPHRESMA(GPR04P) 04S0702 00856000 * /*COMPARE RESUME ADDRESS */ 00857000 * /*WITH 0 AND,IF EQUAL, PUT*/ 00858000 * /*DUMMY ADDRESS IN CONTROL*/ 00859000 * /*BLOCK RESUME ADDRESS */ 00860000 * BC (8,FMZT0072); /*IF EQUAL, BYPASS REMAINDER*/ 00861000 BC 8,FMZT0072 04S0703 00862000 * /*OF EXPANSION */ 00863000 *FMZL0072: IF GPR04P->RPHWT='1'B THEN/*WT/EXT CONTENTION FLAG ON */ 00864000 FMZL0072 TM RPHWT(GPR04P),B'00001000' 04S0704 00865000 BNO @RF00704 04S0704 00866000 * DO; /*IN RPH */ 00867000 * GPR14P=GPR04P->RPHRESMA|RPHWT1; 04S0706 00868000 L GPR14P,RPHRESMA(,GPR04P) 04S0706 00869000 O GPR14P,@CF00129 04S0706 00870000 * /*LOAD REG 14 WITH FLAG FIELD*/ 00871000 * /*AND MAKE CERTAIN WT/EXT */ 00872000 * /*CONTENTION FLAG STILL ON */ 00873000 * GPR15P=GPR14P|RPHPT1; /*LOAD REG 15 WITH FLAG FIELD*/ 00874000 LR GPR15P,GPR14P 04S0707 00875000 O GPR15P,@CF00133 04S0707 00876000 * /*AND TURN POST FLAG ON */ 00877000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 04S0708 00878000 CS GPR14P,@15,RPHRESMA(GPR04P) 04S0708 00879000 * /*COMPARE REG 14 WITH FLAG */ 00880000 * /*FIELD--IF WT/EXT BIT ON, */ 00881000 * /*TURN ON POST FLAG */ 00882000 * BC (4,FMZL0072); /*IF WT/EXT BIT WAS OFF, LOOP*/ 00883000 BC 4,FMZL0072 04S0709 00884000 * /*TO TEST CONTENTION FLAG */ 00885000 * BC (8,FMZT0072); /*IF WT/EXT BIT WAS OFF, */ 00886000 BC 8,FMZT0072 04S0710 00887000 * /*BRANCH TO BYPASS CODE GEN */ 00888000 * END; /*IF POST FLAG IS ON, FALL*/ 00889000 * /*THRU BOTTOM OF LOOP */ 00890000 * ELSE; /*WT/EXT CONTENTION FLAG OFF*/ 00891000 @RF00704 DS 0H 04S0713 00892000 * IF GPR04P->RPHTSKID=GPR01P->RPHTSKID 04S0713 00893000 * THEN DO; 04S0713 00894000 CLC RPHTSKID(4,GPR04P),RPHTSKID(GPR01P) 04S0713 00895000 BNE @RF00713 04S0713 00896000 * GPR05P->PABCHNGP=GPR01P->RPHPABQP; 04S0715 00897000 MVC PABCHNGP(3,GPR05P),RPHPABQP(GPR01P) 04S0715 00898000 * /*PUT PAB QUEUE ADDRESS*/ 00899000 * /*IN SECOND WORD OF PAB */ 00900000 * GPR01P->RPHPABQP=GPR05P;/*PUT PAB ADDRESS (IN MAJOR */ 00901000 STCM GPR05P,7,RPHPABQP(GPR01P) 04S0716 00902000 * /*CONTROL BLOCK) IN PAB */ 00903000 * /*QUEUE ADRESS IN RPH */ 00904000 * END; 04S0717 00905000 * ELSE DO; 04S0718 00906000 B @RC00713 04S0718 00907000 @RF00713 DS 0H 04S0719 00908000 * GPR00F=0; /*SET REG 0 TO INDICATE ENA*/ 00909000 * 04S0719 00910000 SLR GPR00F,GPR00F 04S0719 00911000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 04S0720 00912000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S0721 00913000 L GPR15P,ATCLCPTR 04S0721 00914000 * END; /*LISATCVT*/ /*PUT POINTER TO ATCVT IN */ 00915000 * /* IN REG 15 */ 00916000 * CALL GPR15P->ATCAP32; /* CALL ISTAPC32: TPSCHED */ 00917000 L @09,ATCAP32(,GPR15P) 04S0723 00918000 LR @15,@09 04S0723 00919000 BALR @14,@15 04S0723 00920000 * END; 04S0724 00921000 *FMZT0072: 04S0725 00922000 * DO; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 04S0725 00923000 @RC00713 DS 0H 04S0725 00924000 FMZT0072 DS 0H 04S0726 00925000 * GPR05F = GPR06F; /*GET KEY FORM SAVE LOCATION*/ 04S0726 00926000 LR GPR05F,GPR06F 04S0726 00927000 * SPKA (GPR05F); /*SET PSW KEY*/ 04S0727 00928000 SPKA 0(GPR05F) 04S0727 00929000 * END; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 04S0728 00930000 * GEN REFS(GPR04P, 04S0729 00931000 * RPHWORK) 04S0729 00932000 * SETS(GPR02F,GPR03F, 04S0729 00933000 * GPR04F,GPR05F,GPR06F); 04S0729 00934000 LM GPR02F,GPR06F,RPHWORK(GPR01P) 00935000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F,GPR06F, 04S0730 00936000 * GPR14F,GPR15F) UNRSTD; /*UNRESTRICT REGS 0,1, */ 00937000 * /*4,5,14, AND 15 */ 00938000 * END; /****END OF TPPOST GENERATION****/ 04S0731 00939000 * 04S0731 00940000 * END TPOM; /*END OF TPOM LOGIC SEGMENT */ 00941000 * 03S0733 00942000 * END; /* END(DOWHILE) */ 03S0733 00943000 @DE00673 LTR NEXTRPH,NEXTRPH 03S0733 00944000 BNZ @DL00673 03S0733 00945000 *#DC00069:; 03S0734 00946000 * 03S0734 00947000 #DC00069 DS 0H 03S0735 00948000 * END; /* END(BLOCK) */ 03S0735 00949000 *#BC00066:; /*END OF LOGIC BLOCK SG */ 03S0736 00950000 * 03S0736 00951000 #BC00066 DS 0H 03S0737 00952000 * RFY 03S0737 00953000 * (NEXTRPH 03S0737 00954000 * ,THISRPH) UNRSTD; 03S0737 00955000 * 03S0737 00956000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 00957000 L BASEREG,SAVE212(,SAVEPTR) 03S0738 00958000 * GEN SETS(ATCVTPTR,CSPPTR,RETR,RPHPTR) 03S0739 00959000 * REFS(SAVE22,SAVE214,SAVEPTR); 03S0739 00960000 LM ATCVTPTR,CSPPTR,SAVE22(SAVEPTR) REST RG 06-11 00961000 LM RETR,RPHPTR,SAVE214(SAVEPTR) AND 14-01 00962000 * RFY 03S0740 00963000 * (R2 03S0740 00964000 * ,R3 03S0740 00965000 * ,R4) UNRSTD; 03S0740 00966000 * RFY 03S0741 00967000 * (TERMPTR 03S0741 00968000 * ,RAPPTR 03S0741 00969000 * ,ACEPTR ) RSTD; 03S0741 00970000 * 03S0741 00971000 * END POST; 03S0742 00972000 @EL00004 DS 0H 03S0742 00973000 @EF00004 DS 0H 03S0742 00974000 @ER00004 BR @14 03S0742 00975000 @PB00004 DS 0H 03S0743 00976000 * GEN (EJECT); 02S0743 00977000 EJECT 00978000 * /***********************************************************/ 00979000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 00980000 * /* PROVIDE TWO ENTRY POINTS (ONE FOR CALLERS */ 00981000 * /* EXTERNAL TO THE MASTER ROUTER, THE OTHER */ 00982000 * /* FOR LOGON0) FOR THE QUEUE FUNCTION AND TO */ 00983000 * /* INCLUDE THE COMMON LOGIC TO QUEUE A CE TO */ 00984000 * /* THE SPECIFIED QUEUE. THE ENTRY POINTS */ 00985000 * /* ARE: */ 00986000 * /* */ 00987000 * /* QUEUE - EXTERNAL CALLERS ENTRY POINT */ 00988000 * /* QUEUE0 - LOGON0 CALLERS ENTRY POINT */ 00989000 * /***********************************************************/ 00990000 *QUEUE :PROC OPTIONS(NOSAVE); 03S0744 00991000 * 03S0744 00992000 B @PB00005 03S0744 00993000 QUEUE DS 0H 03S0745 00994000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 00995000 ST BASEREG,SAVE212(,SAVEPTR) 03S0745 00996000 * GEN SETS(SAVE215) 03S0746 00997000 * REFS(ENTRYREG,WORK,SAVEPTR); 03S0746 00998000 * 03S0746 00999000 STM ENTRYREG,WORK,SAVE215(SAVEPTR) SAVE CALLERS RG 01000000 *QUEUE0 :; 03S0747 01001000 QUEUE0 DS 0H 03S0748 01002000 * /***********************************************************/ 01003000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO ADD */ 01004000 * /* THE CONNECTION ELEMENT TO THE SPECIFIED QUEUE */ 01005000 * /* FOR THE QUEUE AND QUEUE0 FUNCTIONS. */ 01006000 * /* */ 01007000 * /* THE FOLLOWING SPECIAL FIELDS MUST BE SETUP: */ 01008000 * /* */ 01009000 * /* RPHSAVE1 - ADDRESS OF THE CE TO BE QUEUED */ 01010000 * /* RPHSAVE2 - ADDRESS OF THE CHAINHEAD OF THE */ 01011000 * /* QUEUE */ 01012000 * /* RPHSAVE3 - OFFSET OF THE LINK FIELD OF THE */ 01013000 * /* QUEUE */ 01014000 * /***********************************************************/ 01015000 *QUEUECOM:DO; /*BGN OF QUEUECOM LOGIC SEGMENT */ 01016000 * 04S0748 01017000 QUEUECOM DS 0H 04S0749 01018000 * RFY 04S0749 01019000 * RETR RSTD; 04S0749 01020000 * SAVE214=RETR; /*SAVE RETURN ADDRESS */ 01021000 ST RETR,SAVE214(,SAVEPTR) 04S0750 01022000 * RFY 04S0751 01023000 * RETR UNRSTD; 04S0751 01024000 * 04S0751 01025000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 01026000 * 04S0752 01027000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S0752 01028000 * /***********************************************************/ 01029000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01030000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01031000 * /* RECOVERY RECORD TO INDICATE THAT THE QUEUE */ 01032000 * /* FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 01033000 * /***********************************************************/ 01034000 *FLGQUIN :DO; /*BGN OF FLGQUIN LOGIC SEGMENT */ 01035000 * 05S0753 01036000 * 05S0753 01037000 FLGQUIN DS 0H 05S0754 01038000 * DO; /* SETCRR FNID(CNSQUEU)TYPE(SENTRY) */ 05S0754 01039000 * CRACRR->CNSQUEUA='1'B; /*SET HISTORY FLAG*/ 05S0755 01040000 L @14,RPHCRR(,RPHPTR) 05S0755 01041000 L @14,CRACRR(,@14) 05S0755 01042000 OI CNSQUEUA(@14),B'01000000' 05S0755 01043000 * CRACRR->CNSQUEUB='1'B; /*SET CURRENT FLAG*/ 05S0756 01044000 OI CNSQUEUB(@14),B'01000000' 05S0756 01045000 * END; /*SETCRR*/ 05S0757 01046000 * 05S0757 01047000 * END FLGQUIN; /*END OF FLGQUIN LOGIC SEGMENT */ 01048000 * WORK=RPHSAVE1+RPHSAVE3; /*ACCESS CE LINK FIELD */ 01049000 L WORK,RPHSAVE1(,RPHPTR) 04S0759 01050000 AL WORK,RPHSAVE3(,RPHPTR) 04S0759 01051000 * WORK->ADDRESS=RPHSAVE2; /*POINT LINK FIELD AT 04S0760 01052000 * CHAINHEAD OF QUEUE */ 01053000 L @14,RPHSAVE2(,RPHPTR) 04S0760 01054000 ST @14,ADDRESS(,WORK) 04S0760 01055000 * WORK=RPHSAVE2; /*GET 1ST ON QUEUE */ 01056000 * 04S0761 01057000 LR WORK,@14 04S0761 01058000 * /*********************************************************/ 01059000 * /* LOCATE THE LAST CE ON THE SPECIFIED QUEUE */ 01060000 * /* AND ADD THE NEW CE TO THE END. */ 01061000 * /*********************************************************/ 01062000 * 04S0762 01063000 */* DOINF */ 04S0762 01064000 * 04S0762 01065000 * DO UNTIL(1=2); /*LOCATE LAST ACE ON Q 01066000 * */ 04S0762 01067000 * 04S0762 01068000 @DL00762 DS 0H 04S0763 01069000 */* LEAVE ON(WORK->ADDRESS=RPHSAVE2)ANDDO */ 04S0763 01070000 * IF (WORK->ADDRESS=RPHSAVE2) THEN 04S0763 01071000 CLC ADDRESS(4,WORK),RPHSAVE2(RPHPTR) 04S0763 01072000 BNE @RF00763 04S0763 01073000 * DO; /*FOR LAST CE FOUND */ 04S0764 01074000 * WORK->ADDRESS=RPHSAVE1; 04S0765 01075000 MVC ADDRESS(4,WORK),RPHSAVE1(RPHPTR) 04S0765 01076000 * /*POINT LAST CE LINK 04S0766 01077000 * FIELD AT NEW CE */ 01078000 * 04S0766 01079000 * GOTO #DC00089; /* END(LEAVE) */ 04S0766 01080000 B #DC00089 04S0766 01081000 * END; /*AND EXIT INFINITE LP */ 01082000 * WORK=WORK->ADDRESS+RPHSAVE3; 04S0768 01083000 @RF00763 L @14,ADDRESS(,WORK) 04S0768 01084000 AL @14,RPHSAVE3(,RPHPTR) 04S0768 01085000 LR WORK,@14 04S0768 01086000 * /*ELSE GET NEXT CE */ 01087000 * 04S0769 01088000 * END; /* END(DOINF) */ 04S0769 01089000 @DE00762 B @DL00762 04S0769 01090000 *#DC00089:; /*AND CONTINUE SEARCH */ 04S0770 01091000 * 04S0770 01092000 #DC00089 DS 0H 04S0771 01093000 * /***********************************************************/ 01094000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01095000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01096000 * /* RECOVERY RECORD TO INDICATE THAT THE QUEUE */ 01097000 * /* FUNCTION OF ISTCSCMR IS BEING EXITED. */ 01098000 * /***********************************************************/ 01099000 *FLGQUOUT:DO; /*BGN OF FLGQUOUT LOGIC SEGMENT */ 01100000 * 05S0771 01101000 * 05S0771 01102000 FLGQUOUT DS 0H 05S0772 01103000 * DO; /* SETCRR FNID(CNSQUEU)TYPE(SEXIT) */ 05S0772 01104000 * CRACRR->CNSQUEUB='0'B; /*TURN OFF CURRENT FLAG*/ 05S0773 01105000 L @14,RPHCRR(,RPHPTR) 05S0773 01106000 L @14,CRACRR(,@14) 05S0773 01107000 NI CNSQUEUB(@14),B'10111111' 05S0773 01108000 * END; /*SETCRR*/ 05S0774 01109000 * 05S0774 01110000 * END FLGQUOUT; /*END OF FLGQUOUT LOGIC SEGMENT */ 01111000 * 04S0776 01112000 * RFY 04S0776 01113000 * RETR RSTD; 04S0776 01114000 * RETR=SAVE214; /*RESTORE RETURN ADDRESS */ 01115000 L RETR,SAVE214(,SAVEPTR) 04S0777 01116000 * RFY 04S0778 01117000 * RETR UNRSTD; 04S0778 01118000 * 04S0778 01119000 * END QUEUECOM; /*END OF QUEUECOM LOGIC SEGMENT */ 01120000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 01121000 L BASEREG,SAVE212(,SAVEPTR) 03S0780 01122000 * GEN SETS(ENTRYREG,WORK) 03S0781 01123000 * REFS(SAVE215,SAVEPTR); 03S0781 01124000 * 03S0781 01125000 LM ENTRYREG,WORK,SAVE215(SAVEPTR) REST CALLERS RG 01126000 * END QUEUE; 03S0782 01127000 @EL00005 DS 0H 03S0782 01128000 @EF00005 DS 0H 03S0782 01129000 @ER00005 BR @14 03S0782 01130000 @PB00005 DS 0H 03S0783 01131000 * GEN (EJECT); 02S0783 01132000 EJECT 01133000 * /***********************************************************/ 01134000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 01135000 * /* PROVIDE TWO ENTRY POINTS (ONE FOR CALLERS */ 01136000 * /* EXTERNAL TO THE MASTER ROUTER, THE OTHER */ 01137000 * /* FOR LOGON0) FOR THE SEARCH QUEUE FUNCTION */ 01138000 * /* AND TO INCLUDE THE COMMON LOGIC TO SEARCH */ 01139000 * /* A SPECIFIED QUEUE FOR AN ELEMENT WITH A */ 01140000 * /* SPECIFIC VALUE IN A SPECIFIED FIELD. THE */ 01141000 * /* ENTRY POINTS ARE: */ 01142000 * /* */ 01143000 * /* SEARCHQ - EXTERNAL CALLERS ENTRY POINT */ 01144000 * /* SEARCHQ0 - LOGON0 CALLERS ENTRY POINT */ 01145000 * /***********************************************************/ 01146000 *SEARCHQ :PROC OPTIONS(NOSAVE); 03S0784 01147000 * 03S0784 01148000 B @PB00006 03S0784 01149000 SEARCHQ DS 0H 03S0785 01150000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 01151000 ST BASEREG,SAVE212(,SAVEPTR) 03S0785 01152000 * GEN SETS(SAVE20) 03S0786 01153000 * REFS(LISTCT,WORK,SAVEPTR); 03S0786 01154000 STM LISTCT,WORK,SAVE20(SAVEPTR) SAVE CALLERS RG 01155000 *SEARCHQ0:; 03S0787 01156000 SEARCHQ0 DS 0H 03S0788 01157000 * /***********************************************************/ 01158000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO SCAN A */ 01159000 * /* SPECIFIED QUEUE FOR AN ELEMENT WITH A SPECIFIC */ 01160000 * /* VALUE IN A SPECIFIED FIELD AND TO RETURN THE */ 01161000 * /* ADDRESS OF THE LINK FIELD POINTING TO THE */ 01162000 * /* ELEMENT LOCATED OR ZERO IF THE ELEMENT COULD */ 01163000 * /* NOT BE FOUND FOR THE SEARCHQ AND SEARCHQ0 */ 01164000 * /* FUNCTIONS. */ 01165000 * /* */ 01166000 * /* THE FOLLOWING SPECIAL FIELDS MUST BE SETUP: */ 01167000 * /* */ 01168000 * /* RPHSAVE1 - ADDRESS OF THE CHAINHEAD OF THE */ 01169000 * /* QUEUE */ 01170000 * /* RPHSAVE2 - OFFSET OF THE LINK FIELD OF THE */ 01171000 * /* QUEUE */ 01172000 * /* RPHSAVE3 - OFFSET OF THE FIELD TO BE */ 01173000 * /* COMPARED WITHIN THE QUEUE */ 01174000 * /* RPHSAVE4 - VALUE BEING SEARCHED FOR */ 01175000 * /***********************************************************/ 01176000 *SRCHQCOM:DO; /*BGN OF SRCHQCOM LOGIC SEGMENT */ 01177000 * 04S0788 01178000 SRCHQCOM DS 0H 04S0789 01179000 * RFY 04S0789 01180000 * RETR RSTD; 04S0789 01181000 * SAVE214=RETR; /*SAVE RETURN ADDRESS */ 01182000 ST RETR,SAVE214(,SAVEPTR) 04S0790 01183000 * RFY 04S0791 01184000 * RETR UNRSTD; 04S0791 01185000 * 04S0791 01186000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 01187000 * 04S0792 01188000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S0792 01189000 * /***********************************************************/ 01190000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01191000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01192000 * /* RECOVERY RECORD TO INDICATE THAT THE SEARCHQ */ 01193000 * /* FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 01194000 * /***********************************************************/ 01195000 *FLGSQIN :DO; /*BGN OF FLGSQIN LOGIC SEGMENT */ 01196000 * 05S0793 01197000 * 05S0793 01198000 FLGSQIN DS 0H 05S0794 01199000 * DO; /* SETCRR FNID(CNSSEAR)TYPE(SENTRY) */ 05S0794 01200000 * CRACRR->CNSSEARA='1'B; /*SET HISTORY FLAG*/ 05S0795 01201000 L @14,RPHCRR(,RPHPTR) 05S0795 01202000 L @14,CRACRR(,@14) 05S0795 01203000 OI CNSSEARA(@14),B'00100000' 05S0795 01204000 * CRACRR->CNSSEARB='1'B; /*SET CURRENT FLAG*/ 05S0796 01205000 OI CNSSEARB(@14),B'00100000' 05S0796 01206000 * END; /*SETCRR*/ 05S0797 01207000 * 05S0797 01208000 * END FLGSQIN; /*END OF FLGSQIN LOGIC SEGMENT */ 01209000 * RFY 04S0799 01210000 * (CHEAD 04S0799 01211000 * ,LINKOFF 04S0799 01212000 * ,COMPOFF 04S0799 01213000 * ,COMPVAL 04S0799 01214000 * ,RETVAL ) RSTD; 04S0799 01215000 * CHEAD =RPHSAVE1; /*ACCESS */ 01216000 L CHEAD,RPHSAVE1(,RPHPTR) 04S0800 01217000 * LINKOFF=RPHSAVE2; /* PASSED */ 01218000 L LINKOFF,RPHSAVE2(,RPHPTR) 04S0801 01219000 * COMPOFF=RPHSAVE3; /* INPUT */ 01220000 L COMPOFF,RPHSAVE3(,RPHPTR) 04S0802 01221000 * COMPVAL=RPHSAVE4; /* PARAMETERS */ 01222000 * 04S0803 01223000 L COMPVAL,RPHSAVE4(,RPHPTR) 04S0803 01224000 * /*********************************************************/ 01225000 * /* LOCATE THE DESIRED ELEMENT, IF POSSIBLE. */ 01226000 * /*********************************************************/ 01227000 * 04S0804 01228000 * DO; /* BLOCK */ /*BGN OF LOGIC BLOCK SG 01229000 * */ 04S0804 01230000 * 04S0804 01231000 */* LEAVE(BLOCK) ON(CHEAD->ADDRESS=CHEAD)ANDDO */ 04S0805 01232000 * IF (CHEAD->ADDRESS=CHEAD) THEN 04S0805 01233000 C CHEAD,ADDRESS(,CHEAD) 04S0805 01234000 BNE @RF00805 04S0805 01235000 * DO; /*FOR NO ELEM ON QUEUE */ 04S0806 01236000 * RETVAL=0; /*CLEAR RETURN ELEM PTR */ 01237000 * 04S0807 01238000 SLR RETVAL,RETVAL 04S0807 01239000 * GOTO #BC00097; /* END(LEAVE) */ 04S0808 01240000 B #BC00097 04S0808 01241000 * END; /*AND EXIT LOGIC BLOCK */ 01242000 * RETVAL=CHEAD; /*ELSE POINT AT PREVIOUS 04S0810 01243000 * LINK FIELD */ 01244000 @RF00805 LR RETVAL,CHEAD 04S0810 01245000 * WORK=RETVAL->ADDRESS+COMPOFF; 04S0811 01246000 LR WORK,COMPOFF 04S0811 01247000 AL WORK,ADDRESS(,RETVAL) 04S0811 01248000 * /*AND AT FIELD TO BE 04S0812 01249000 * COMPARED */ 01250000 * 04S0812 01251000 */* DOWHILE(RETVAL^=0) */ 04S0812 01252000 * DO WHILE(RETVAL^=0); /*FIND VALUE OR Q END * 01253000 * 04S0812 01254000 B @DE00812 04S0812 01255000 @DL00812 DS 0H 04S0813 01256000 */* LEAVE ON(WORK->ADDRESS=COMPVAL) */ 04S0813 01257000 * IF (WORK->ADDRESS=COMPVAL) THEN 04S0813 01258000 C COMPVAL,ADDRESS(,WORK) 04S0813 01259000 BE @RT00813 04S0813 01260000 * GOTO #DC00100;/*XIT IF FND */ 04S0814 01261000 * RETVAL=RETVAL->ADDRESS+LINKOFF; 04S0815 01262000 LR @14,LINKOFF 04S0815 01263000 AL @14,ADDRESS(,RETVAL) 04S0815 01264000 LR RETVAL,@14 04S0815 01265000 * /*GET NEXT QUEUE ELEMENT */ 01266000 * 04S0816 01267000 */* LEAVE(BLOCK) ON(RETVAL->ADDRESS=CHEAD)ANDDO */ 04S0816 01268000 * IF (RETVAL->ADDRESS=CHEAD) THEN 04S0816 01269000 C CHEAD,ADDRESS(,RETVAL) 04S0816 01270000 BNE @RF00816 04S0816 01271000 * DO; /*FOR END OF CHAIN FND */ 04S0817 01272000 * RETVAL=0; /*CLEAR RETURN ELEM PTR */ 01273000 * 04S0818 01274000 SLR RETVAL,RETVAL 04S0818 01275000 * GOTO #BC00097; /* END(LEAVE) */ 04S0819 01276000 B #BC00097 04S0819 01277000 * END; /*AND EXIT FROM LOGIC B */ 01278000 * WORK=RETVAL->ADDRESS+COMPOFF; 04S0821 01279000 @RF00816 LR WORK,COMPOFF 04S0821 01280000 AL WORK,ADDRESS(,RETVAL) 04S0821 01281000 * /*ELSE BUMP TO NEXT ELEM */ 01282000 * 04S0822 01283000 * END; /* END(DOWHILE) */ 04S0822 01284000 @DE00812 LTR RETVAL,RETVAL 04S0822 01285000 BNZ @DL00812 04S0822 01286000 *#DC00100:; /*AND CONTINUE SEARCH */ 04S0823 01287000 * 04S0823 01288000 #DC00100 DS 0H 04S0824 01289000 * END; /* END(BLOCK) */ 04S0824 01290000 *#BC00097:; /*END OF LOGIC BLOCK SG */ 04S0825 01291000 * 04S0825 01292000 #BC00097 DS 0H 04S0826 01293000 * RFY 04S0826 01294000 * (CHEAD 04S0826 01295000 * ,LINKOFF 04S0826 01296000 * ,COMPOFF 04S0826 01297000 * ,COMPVAL 04S0826 01298000 * ,RETVAL ) UNRSTD; 04S0826 01299000 * 04S0826 01300000 * /***********************************************************/ 01301000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01302000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01303000 * /* RECOVERY RECORD TO INDICATE THAT THE SEARCHQ */ 01304000 * /* FUNCTION OF ISTCSCMR IS BEING EXITED. */ 01305000 * /***********************************************************/ 01306000 *FLGSQOUT:DO; /*BGN OF FLGSQOUT LOGIC SEGMENT */ 01307000 * 05S0827 01308000 * 05S0827 01309000 FLGSQOUT DS 0H 05S0828 01310000 * DO; /* SETCRR FNID(CNSSEAR)TYPE(SEXIT) */ 05S0828 01311000 * CRACRR->CNSSEARB='0'B; /*TURN OFF CURRENT FLAG*/ 05S0829 01312000 L @14,RPHCRR(,RPHPTR) 05S0829 01313000 L @14,CRACRR(,@14) 05S0829 01314000 NI CNSSEARB(@14),B'11011111' 05S0829 01315000 * END; /*SETCRR*/ 05S0830 01316000 * 05S0830 01317000 * END FLGSQOUT; /*END OF FLGSQOUT LOGIC SEGMENT */ 01318000 * 04S0832 01319000 * RFY 04S0832 01320000 * RETR RSTD; 04S0832 01321000 * RETR=SAVE214; /*RESTORE RETURN ADDRESS */ 01322000 L RETR,SAVE214(,SAVEPTR) 04S0833 01323000 * RFY 04S0834 01324000 * RETR UNRSTD; 04S0834 01325000 * 04S0834 01326000 * END SRCHQCOM; /*END OF SRCHQCOM LOGIC SEGMENT */ 01327000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 01328000 L BASEREG,SAVE212(,SAVEPTR) 03S0836 01329000 * GEN SETS(LISTCT,WORK) 03S0837 01330000 * REFS(SAVE20,SAVEPTR); 03S0837 01331000 * 03S0837 01332000 LM LISTCT,WORK,SAVE20(SAVEPTR) REST CALLERS RG 01333000 * END SEARCHQ; 03S0838 01334000 @EL00006 DS 0H 03S0838 01335000 @EF00006 DS 0H 03S0838 01336000 @ER00006 BR @14 03S0838 01337000 @PB00006 DS 0H 03S0839 01338000 * GEN (EJECT); 02S0839 01339000 EJECT 01340000 * /***********************************************************/ 01341000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 01342000 * /* PROVIDE TWO ENTRY POINTS (ONE FOR CALLERS */ 01343000 * /* EXTERNAL TO THE MASTER ROUTER, THE OTHER */ 01344000 * /* FOR LOGON0) FOR THE TERMINAL CONNECTION */ 01345000 * /* FUNCTION AND TO INCLUDE THE COMMON LOGIC */ 01346000 * /* TO CONNECT AN ACE TO A TERMINAL RDT ENTRY. */ 01347000 * /* THE ENTRY POINTS ARE: */ 01348000 * /* */ 01349000 * /* TCONNECT - EXTERNAL CALLERS ENTRY POINT */ 01350000 * /* TCONNEC0 - LOGON0 CALLERS ENTRY POINT */ 01351000 * /***********************************************************/ 01352000 *TCONNECT:PROC OPTIONS(NOSAVE); 03S0840 01353000 * 03S0840 01354000 B @PB00007 03S0840 01355000 TCONNECT DS 0H 03S0841 01356000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 01357000 ST BASEREG,SAVE212(,SAVEPTR) 03S0841 01358000 * GEN SETS(SAVE215) 03S0842 01359000 * REFS(ENTRYREG,WORK,SAVEPTR); 03S0842 01360000 STM ENTRYREG,WORK,SAVE215(SAVEPTR) SAVE CALLERS RG 01361000 *TCONNEC0:; 03S0843 01362000 TCONNEC0 DS 0H 03S0844 01363000 * /***********************************************************/ 01364000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 01365000 * /* CONNECT AN ACE TO A TERMINAL RDT ENTRY */ 01366000 * /* FOR THE TCONNECT AND TCONNEC0 FUNCTIONS. */ 01367000 * /***********************************************************/ 01368000 *TCONNCOM:DO; /*BGN OF TCONNCOM LOGIC SEGMENT */ 01369000 * 04S0844 01370000 TCONNCOM DS 0H 04S0845 01371000 * RFY 04S0845 01372000 * RETR RSTD; 04S0845 01373000 * SAVE214=RETR; /*SAVE RETURN ADDRESS */ 01374000 ST RETR,SAVE214(,SAVEPTR) 04S0846 01375000 * RFY 04S0847 01376000 * RETR UNRSTD; 04S0847 01377000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 01378000 * 04S0848 01379000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S0848 01380000 * /***********************************************************/ 01381000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01382000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01383000 * /* RECOVERY RECORD TO INDICATE THAT THE TCONNECT */ 01384000 * /* FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 01385000 * /***********************************************************/ 01386000 *FLGTCIN :DO; /*BGN OF FLGTCIN LOGIC SEGMENT */ 01387000 * 05S0849 01388000 * 05S0849 01389000 FLGTCIN DS 0H 05S0850 01390000 * DO; /* SETCRR FNID(CNSTCON)TYPE(SENTRY) */ 05S0850 01391000 * CRACRR->CNSTCONA='1'B; /*SET HISTORY FLAG*/ 05S0851 01392000 L @14,RPHCRR(,RPHPTR) 05S0851 01393000 L @14,CRACRR(,@14) 05S0851 01394000 OI CNSTCONA(@14),B'00000001' 05S0851 01395000 * CRACRR->CNSTCONB='1'B; /*SET CURRENT FLAG*/ 05S0852 01396000 OI CNSTCONB(@14),B'00000001' 05S0852 01397000 * END; /*SETCRR*/ 05S0853 01398000 * 05S0853 01399000 * END FLGTCIN; /*END OF FLGTCIN LOGIC SEGMENT */ 01400000 * /***********************************************************/ 01401000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO CLEAR */ 01402000 * /* AN ACTIVE CONNECTION ELEMENT FLAGS FIELD FOR */ 01403000 * /* THE TCONNECT AND TCONNEC0 FUNCTIONS. */ 01404000 * /***********************************************************/ 01405000 *CLRACEF :DO; /*BGN OF CLRACEF LOGIC SEGMENT */ 01406000 * 05S0855 01407000 * 05S0855 01408000 CLRACEF DS 0H 05S0856 01409000 * /* ACEPTR IS USED TO LOCATE THE ACE**/ 05S0856 01410000 * ACEFLAGS='00000000'B; /*INITIALISE FLAGS*/ 05S0856 01411000 * 05S0856 01412000 MVI ACEFLAGS(ACEPTR),B'00000000' 05S0856 01413000 * END CLRACEF; /*END OF CLRACEF LOGIC SEGMENT */ 01414000 * ACEOBJ =TERMPTR; /*POINT ACE AT TRML */ 01415000 ST TERMPTR,ACEOBJ(,ACEPTR) 04S0858 01416000 * ACEOBJQ=ADDR(RCPACETR); /*POINT ACE AT TRML QUE */ 01417000 LA @14,RCPACETR(,TERMPTR) 04S0859 01418000 ST @14,ACEOBJQ(,ACEPTR) 04S0859 01419000 * ACERPHA=RPHPTR; /*POINT ACE AT MOST 04S0860 01420000 * FREQUENTLY WANTED 04S0860 01421000 * VALUE - THIS HAS TO 04S0860 01422000 * BE OVERWRITTEN BY 04S0860 01423000 * CANCEL AND LOGON0 */ 01424000 ST RPHPTR,ACERPHA(,ACEPTR) 04S0860 01425000 * RCPACETR=ACEPTR; /*POINT TRML QUE AT ACE */ 01426000 ST ACEPTR,RCPACETR(,TERMPTR) 04S0861 01427000 * RPRTIED=BITON; /*FLAG TRML RDTE TIED */ 01428000 OI RPRTIED(TERMPTR),B'00100000' 04S0862 01429000 * /***********************************************************/ 01430000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01431000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01432000 * /* RECOVERY RECORD TO INDICATE THAT THE TCONNECT */ 01433000 * /* FUNCTION OF ISTCSCMR IS BEING EXITED. */ 01434000 * /***********************************************************/ 01435000 *FLGTCOUT:DO; /*BGN OF FLGTCOUT LOGIC SEGMENT */ 01436000 * 05S0863 01437000 * 05S0863 01438000 FLGTCOUT DS 0H 05S0864 01439000 * DO; /* SETCRR FNID(CNSTCON)TYPE(SEXIT) */ 05S0864 01440000 * CRACRR->CNSTCONB='0'B; /*TURN OFF CURRENT FLAG*/ 05S0865 01441000 L @14,RPHCRR(,RPHPTR) 05S0865 01442000 L @14,CRACRR(,@14) 05S0865 01443000 NI CNSTCONB(@14),B'11111110' 05S0865 01444000 * END; /*SETCRR*/ 05S0866 01445000 * 05S0866 01446000 * END FLGTCOUT; /*END OF FLGTCOUT LOGIC SEGMENT */ 01447000 * 04S0868 01448000 * RFY 04S0868 01449000 * RETR RSTD; 04S0868 01450000 * RETR=SAVE214; /*RESTORE RETURN ADDRESS */ 01451000 L RETR,SAVE214(,SAVEPTR) 04S0869 01452000 * RFY 04S0870 01453000 * RETR UNRSTD; 04S0870 01454000 * 04S0870 01455000 * END TCONNCOM; /*END OF TCONNCOM LOGIC SEGMENT */ 01456000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 01457000 L BASEREG,SAVE212(,SAVEPTR) 03S0872 01458000 * GEN SETS(ENTRYREG,WORK) 03S0873 01459000 * REFS(SAVE215,SAVEPTR); 03S0873 01460000 * 03S0873 01461000 LM ENTRYREG,WORK,SAVE215(SAVEPTR) REST CALLERS RG 01462000 * END TCONNECT; 03S0874 01463000 @EL00007 DS 0H 03S0874 01464000 @EF00007 DS 0H 03S0874 01465000 @ER00007 BR @14 03S0874 01466000 @PB00007 DS 0H 03S0875 01467000 * GEN (EJECT); 02S0875 01468000 EJECT 01469000 * /***********************************************************/ 01470000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 01471000 * /* PROVIDE TWO ENTRY POINTS (ONE FOR CALLERS */ 01472000 * /* EXTERNAL TO THE MASTER ROUTER, THE OTHER */ 01473000 * /* FOR LOGON0) FOR THE APPLICATION CONNECTION */ 01474000 * /* FUNCTION AND TO INCLUDE THE COMMON LOGIC */ 01475000 * /* TO CONNECT AN ACE TO AN APPLICATION RDT */ 01476000 * /* ENTRY. THE ENTRY POINTS ARE: */ 01477000 * /* */ 01478000 * /* ACONNECT - EXTERNAL CALLERS ENTRY POINT */ 01479000 * /* ACONNEC0 - LOGON0 CALLERS ENTRY POINT */ 01480000 * /***********************************************************/ 01481000 *ACONNECT:PROC OPTIONS(NOSAVE); 03S0876 01482000 * 03S0876 01483000 B @PB00008 03S0876 01484000 ACONNECT DS 0H 03S0877 01485000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 01486000 ST BASEREG,SAVE212(,SAVEPTR) 03S0877 01487000 * GEN SETS(SAVE215) 03S0878 01488000 * REFS(ENTRYREG,WORK,SAVEPTR); 03S0878 01489000 STM ENTRYREG,WORK,SAVE215(SAVEPTR) SAVE CALLERS RG 01490000 *ACONNEC0:; 03S0879 01491000 ACONNEC0 DS 0H 03S0880 01492000 * /***********************************************************/ 01493000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 01494000 * /* CONNECT AN ACE TO AN APPLICATION RDT ENTRY */ 01495000 * /* FOR THE ACONNECT AND ACONNEC0 FUNCTIONS. */ 01496000 * /***********************************************************/ 01497000 *ACONNCOM:DO; /*BGN OF ACONNCOM LOGIC SEGMENT */ 01498000 * 04S0880 01499000 ACONNCOM DS 0H 04S0881 01500000 * RFY 04S0881 01501000 * RETR RSTD; 04S0881 01502000 * SAVE214=RETR; /*SAVE RETURN ADDRESS */ 01503000 ST RETR,SAVE214(,SAVEPTR) 04S0882 01504000 * RFY 04S0883 01505000 * RETR UNRSTD; 04S0883 01506000 * 04S0883 01507000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 01508000 * 04S0884 01509000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S0884 01510000 * /***********************************************************/ 01511000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01512000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01513000 * /* RECOVERY RECORD TO INDICATE THAT THE ACONNECT */ 01514000 * /* FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 01515000 * /***********************************************************/ 01516000 *FLGACIN :DO; /*BGN OF FLGACIN LOGIC SEGMENT */ 01517000 * 05S0885 01518000 * 05S0885 01519000 FLGACIN DS 0H 05S0886 01520000 * DO; /* SETCRR FNID(CNSACON)TYPE(SENTRY) */ 05S0886 01521000 * CRACRR->CNSACONA='1'B; /*SET HISTORY FLAG*/ 05S0887 01522000 L @14,RPHCRR(,RPHPTR) 05S0887 01523000 L @14,CRACRR(,@14) 05S0887 01524000 OI CNSACONA(@14),B'10000000' 05S0887 01525000 * CRACRR->CNSACONB='1'B; /*SET CURRENT FLAG*/ 05S0888 01526000 OI CNSACONB(@14),B'10000000' 05S0888 01527000 * END; /*SETCRR*/ 05S0889 01528000 * 05S0889 01529000 * END FLGACIN; /*END OF FLGACIN LOGIC SEGMENT */ 01530000 * IF RPRACT=BITOF /*IF TRML RDTE NOT ACTV */ 01531000 * THEN 04S0891 01532000 TM RPRACT(TERMPTR),B'10000000' 04S0891 01533000 BNZ @RF00891 04S0891 01534000 * DO; 04S0892 01535000 * RPRACT=BITON; /*FLAG TRML RDTE ACTIVE */ 01536000 OI RPRACT(TERMPTR),B'10000000' 04S0893 01537000 * ATCACTRM=ATCACTRM+1; /*BUMP ACTIVE TRML CNT */ 01538000 LA @14,1 04S0894 01539000 AH @14,ATCACTRM(,ATCVTPTR) 04S0894 01540000 STH @14,ATCACTRM(,ATCVTPTR) 04S0894 01541000 * END; 04S0895 01542000 * ACESUBJ=RAPPTR; /*POINT ACE AT APPL */ 01543000 @RF00891 ST RAPPTR,ACESUBJ(,ACEPTR) 04S0896 01544000 * /***********************************************************/ 01545000 * /* THE FUNCTION OF THIS LOGIC SEGEMNT IS TO ADD AN */ 01546000 * /* ACE TO THE APPLICATION RDTE CONNECT QUEUE FOR */ 01547000 * /* THE ACONNECT AND ACONNEC0 FUNCTIONS. */ 01548000 * /***********************************************************/ 01549000 *ACADDQAB:DO; /*BGN OF ACADDQAB LOGIC SEGMENT */ 01550000 * 05S0897 01551000 ACADDQAB DS 0H 05S0898 01552000 * ACESUBJQ=ADDR(RAPPTR->RAPACEAP); /*FILL IN SUBJQ*/ 05S0898 01553000 * 05S0898 01554000 LA @14,RAPACEAP(,RAPPTR) 05S0898 01555000 ST @14,ACESUBJQ(,ACEPTR) 05S0898 01556000 * DO; /* BLOCK */ 05S0899 01557000 * 05S0899 01558000 * IF (RAPPTR->RAPACEAP=ADDR(RAPPTR->RAPACEAP)) THEN 05S0900 01559000 C @14,RAPACEAP(,RAPPTR) 05S0900 01560000 BNE @RF00900 05S0900 01561000 * DO; 05S0901 01562000 * RAPPTR->RAPACEAP=ACEPTR; /*QUEUE ON ELEMENT*/ 05S0902 01563000 * 05S0902 01564000 ST ACEPTR,RAPACEAP(,RAPPTR) 05S0902 01565000 * GOTO #BC00116; /* END(LEAVE) INNER */ 05S0903 01566000 B #BC00116 05S0903 01567000 * END; 05S0904 01568000 * WORK=RAPPTR->RAPACEAP; /*PICK UP FIRST QUEUE ELEMENT*/ 01569000 * 05S0905 01570000 @RF00900 L WORK,RAPACEAP(,RAPPTR) 05S0905 01571000 * DO UNTIL(1=2); 05S0906 01572000 * 05S0906 01573000 @DL00906 DS 0H 05S0907 01574000 * IF (WORK->ACESUBJQ=ADDR(RAPACEAP)) THEN 05S0907 01575000 LA @14,RAPACEAP(,RAPPTR) 05S0907 01576000 C @14,ACESUBJQ(,WORK) 05S0907 01577000 BNE @RF00907 05S0907 01578000 * DO; 05S0908 01579000 * WORK->ACESUBJQ=ACEPTR; /*QUEUE ON ELEMENT*/ 05S0909 01580000 * 05S0909 01581000 ST ACEPTR,ACESUBJQ(,WORK) 05S0909 01582000 * GOTO #DC00120; /* END(LEAVE) INNER */ 05S0910 01583000 B #DC00120 05S0910 01584000 * END; 05S0911 01585000 * WORK=WORK->ACESUBJQ; /*PICK UP NEXT ELEMENT*/ 05S0912 01586000 * 05S0912 01587000 @RF00907 L WORK,ACESUBJQ(,WORK) 05S0912 01588000 * END; /* END(DOINF) INNER */ 05S0913 01589000 @DE00906 B @DL00906 05S0913 01590000 *#DC00120:; 05S0914 01591000 #DC00120 DS 0H 05S0915 01592000 * END; /* END(BLOCK) INNER */ 05S0915 01593000 *#BC00116:; RAPPTR->RAPACEQD=RAPPTR->RAPACEQD+1; /*UP CONNECT COUNT*/ 01594000 * 05S0916 01595000 #BC00116 DS 0H 05S0917 01596000 LA @14,1 05S0917 01597000 AH @14,RAPACEQD(,RAPPTR) 05S0917 01598000 STH @14,RAPACEQD(,RAPPTR) 05S0917 01599000 * END ACADDQAB; /*END OF ACADDQAB LOGIC SEGMENT */ 01600000 * /***********************************************************/ 01601000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01602000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01603000 * /* RECOVERY RECORD TO INDICATE THAT THE ACONNECT */ 01604000 * /* FUNCTION OF ISTCSCMR IS BEING EXITED. */ 01605000 * /***********************************************************/ 01606000 *FLGACOUT:DO; /*BGN OF FLGACOUT LOGIC SEGMENT */ 01607000 * 05S0919 01608000 * 05S0919 01609000 FLGACOUT DS 0H 05S0920 01610000 * DO; /* SETCRR FNID(CNSACON)TYPE(SEXIT) */ 05S0920 01611000 * CRACRR->CNSACONB='0'B; /*TURN OFF CURRENT FLAG*/ 05S0921 01612000 L @14,RPHCRR(,RPHPTR) 05S0921 01613000 L @14,CRACRR(,@14) 05S0921 01614000 NI CNSACONB(@14),B'01111111' 05S0921 01615000 * END; /*SETCRR*/ 05S0922 01616000 * 05S0922 01617000 * END FLGACOUT; /*END OF FLGACOUT LOGIC SEGMENT */ 01618000 * 04S0924 01619000 * RFY 04S0924 01620000 * RETR RSTD; 04S0924 01621000 * RETR=SAVE214; /*RESTORE RETURN ADDRESS */ 01622000 L RETR,SAVE214(,SAVEPTR) 04S0925 01623000 * RFY 04S0926 01624000 * RETR UNRSTD; 04S0926 01625000 * 04S0926 01626000 * END ACONNCOM; /*END OF ACONNCOM LOGIC SEGMENT */ 01627000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 01628000 L BASEREG,SAVE212(,SAVEPTR) 03S0928 01629000 * GEN SETS(ENTRYREG,WORK) 03S0929 01630000 * REFS(SAVE215,SAVEPTR); 03S0929 01631000 * 03S0929 01632000 LM ENTRYREG,WORK,SAVE215(SAVEPTR) REST CALLERS RG 01633000 * END ACONNECT; 03S0930 01634000 @EL00008 DS 0H 03S0930 01635000 @EF00008 DS 0H 03S0930 01636000 @ER00008 BR @14 03S0930 01637000 @PB00008 DS 0H 03S0931 01638000 * GEN (EJECT); 02S0931 01639000 EJECT 01640000 * /***********************************************************/ 01641000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01642000 * /* THE VTAM STORAGE MANAGEMENT FUNCTION TO REQUEST */ 01643000 * /* STORAGE FOR CONNECTION ELEMENTS AND/OR USER */ 01644000 * /* EXIT CONTROL BLOCKS USED FOR LOGON EXIT */ 01645000 * /* STIMULATION. THIS SEGMENT IS ONLY INVOKED BY */ 01646000 * /* CALLERS EXTERNAL TO THE MASTER ROUTER. */ 01647000 * /***********************************************************/ 01648000 *GETSTORE:PROC OPTIONS(NOSAVE); 03S0932 01649000 * 03S0932 01650000 B @PB00009 03S0932 01651000 GETSTORE DS 0H 03S0933 01652000 * SAVE312=BASEREG; /*SAVE BASEREG @XM01122*/ 01653000 ST BASEREG,SAVE312(,SAVEPTR) 03S0933 01654000 * GEN SETS(SAVE214) 03S0934 01655000 * REFS(RETR,WORK,SAVEPTR); 03S0934 01656000 * 03S0934 01657000 STM RETR,WORK,SAVE214(SAVEPTR) SAVE CALLERS RG 01658000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 01659000 * 03S0935 01660000 * 03S0935 01661000 L BASEREG,ATCCSMA(,ATCVTPTR) 03S0935 01662000 * DO; /* BLOCK */ /*BNG OF LOGIC BLOCK SG 01663000 * */ 03S0936 01664000 * GEN SETS(SAVE314) 03S0937 01665000 * REFS(R10,CSPPTR,SAVEPTR); 03S0937 01666000 STM R10,CSPPTR,SAVE314(SAVEPTR) SAVE CALLERS RG @XM01122 01667000 * /***********************************************************/ 01668000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01669000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 01670000 * /* RECOVERY RECORD TO INDICATE THAT THE GETSTORE */ 01671000 * /* FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 01672000 * /***********************************************************/ 01673000 *FLGGSIN :DO; /*BGN OF FLGGSIN LOGIC SEGMENT */ 01674000 * 04S0938 01675000 * 04S0938 01676000 FLGGSIN DS 0H 04S0939 01677000 * DO; /* SETCRR FNID(CNSGETS)TYPE(SENTRY) */ 04S0939 01678000 * CRACRR->CNSGETSA='1'B; /*SET HISTORY FLAG*/ 04S0940 01679000 L @14,RPHCRR(,RPHPTR) 04S0940 01680000 L @14,CRACRR(,@14) 04S0940 01681000 OI CNSGETSA(@14),B'00010000' 04S0940 01682000 * CRACRR->CNSGETSB='1'B; /*SET CURRENT FLAG*/ 04S0941 01683000 OI CNSGETSB(@14),B'00010000' 04S0941 01684000 * END; /*SETCRR*/ 04S0942 01685000 * 04S0942 01686000 * END FLGGSIN; /*END OF FLGGSIN LOGIC SEGMENT */ 01687000 * RFY 03S0944 01688000 * (ACEPTR 03S0944 01689000 * ,ICEPTR 03S0944 01690000 * ,CSPPTR 03S0944 01691000 * ,ATCVTPTR) UNRSTD; 03S0944 01692000 * RFY 03S0945 01693000 * RALLOC RSTD; 03S0945 01694000 * RALLOC=0; /*SETUP FOR 0 REQUEST */ 01695000 SLR RALLOC,RALLOC 03S0946 01696000 * RRET=GOOD; /*SETUP RETURN CODE FOR 03S0947 01697000 * SUCCESSFUL COMPLETION */ 01698000 SLR RRET,RRET 03S0947 01699000 * RFY 03S0948 01700000 * NOBLOCKS RSTD; 03S0948 01701000 * IF REQCE>0 /*IF CES ARE REQUIRED */ 01702000 * THEN 03S0949 01703000 LTR REQCE,REQCE 03S0949 01704000 BNP @RF00949 03S0949 01705000 * DO; 03S0950 01706000 * DO NOBLOCKS=1 TO REQCE; 03S0951 01707000 LA NOBLOCKS,1 03S0951 01708000 B @DE00951 03S0951 01709000 @DL00951 DS 0H 03S0952 01710000 * /*FOR EACH BLOCK REQD 03S0952 01711000 * WHILE STORAGE AVAIL */ 01712000 * /***********************************************************/ 01713000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01714000 * /* THE REQSTORE MACRO TO REQUEST A CLEARED CONNECT */ 01715000 * /* ELEMENT CONTROL BLOCK STORAGE AREA FROM VTAM */ 01716000 * /* STORAGE MANAGEMENT FOR THE GETSTORE FUNCTION. */ 01717000 * /***********************************************************/ 01718000 *REQSTOR1:DO; /*BGN OF REQSTOR1 LOGIC SEGMENT */ 01719000 * 04S0952 01720000 REQSTOR1 DS 0H 04S0953 01721000 * /*REQSTORE CBID(CE)CLEAR(YES)*/ 04S0953 01722000 * DO; 04S0953 01723000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 04S0954 01724000 */* END OF ATBUILD */ 04S0954 01725000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 04S0954 01726000 * RFY (GPR01P,GPR13P) RSTD; 04S0955 01727000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 04S0956 01728000 * 04S0956 01729000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 01730000 * RFY (GPR01P,GPR13P) UNRSTD; 04S0957 01731000 * 04S0957 01732000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 04S0958 01733000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S0959 01734000 L GPR15P,ATCLCPTR 04S0959 01735000 * END; /*LISATCVT*/ 04S0960 01736000 * GPR02P=GPR15P->ATCBPDA | '80000000'X; 04S0961 01737000 L GPR02P,ATCBPDA(,GPR15P) 04S0961 01738000 O GPR02P,@CF00201 04S0961 01739000 * DCL 1 FMZA0130 FIXED(31) STATIC LOCAL, 04S0962 01740000 * 2 * FIXED(8) INIT(152), 04S0962 01741000 * 2 * PTR(24) INIT(0); 04S0962 01742000 * GPR03F=FMZA0130; 04S0963 01743000 L GPR03F,FMZA0130 04S0963 01744000 * GPR04F=30; 04S0964 01745000 LA GPR04F,30 04S0964 01746000 * GPR15P=GPR15P->ATCSMRQ; 04S0965 01747000 L GPR15P,ATCSMRQ(,GPR15P) 04S0965 01748000 * DCL FMZL0130 BASED(GPR15P) LABEL VALUERANGE(*); 04S0966 01749000 * CALL FMZL0130; 04S0967 01750000 BALR @14,@15 04S0967 01751000 * RFY (GPR13P) RSTD; 04S0968 01752000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 04S0969 01753000 * 04S0969 01754000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 01755000 * RFY (GPR13P) UNRSTD; 04S0970 01756000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 04S0971 01757000 * END ; 04S0972 01758000 * /********* END OF REQSTORE EXPANSION **********/ 04S0973 01759000 * 04S0973 01760000 * END REQSTOR1; /*END OF REQSTOR1 LOGIC SEGMENT */ 01761000 * 03S0974 01762000 */* LEAVE(BLOCK) ON(RRET>=NOTGOT)ANDDO */ 03S0974 01763000 * IF (RRET>=NOTGOT) THEN 03S0974 01764000 CH RRET,@CH00040 03S0974 01765000 BL @RF00974 03S0974 01766000 * DO; 03S0975 01767000 * REQCE=RALLOC; /*POINT TO STR AREA @XM00133*/ 01768000 * 03S0976 01769000 LR REQCE,RALLOC 03S0976 01770000 */* DOWHILE(REQCE^=0) */ 03S0977 01771000 * DO WHILE(REQCE^=0);/*FREE STR GOTTEN * 01772000 B @DE00977 03S0977 01773000 @DL00977 DS 0H 03S0978 01774000 * RALLOC=REQCE->CHAINFLD; 03S0978 01775000 L RALLOC,CHAINFLD(,REQCE) 03S0978 01776000 * /*NEXT CE TO FREE @XM00133*/ 01777000 * /***********************************************************/ 01778000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01779000 * /* THE RELSTORE MACRO TO REQUEST THAT A CONNECTION */ 01780000 * /* ELEMENT STORAGE AREA BE RELEASED BY VTAM */ 01781000 * /* STORAGE MANAGEMENT FOR THE GETSTORE FUNCTION. */ 01782000 * /***********************************************************/ 01783000 *RELSTORG:DO; /*BGN OF RELSTORG LOGIC SEGMENT */ 01784000 * 04S0979 01785000 RELSTORG DS 0H 04S0980 01786000 * /*RELSTORE BUFADDR(REQCE)*/ 04S0980 01787000 * DO; 04S0980 01788000 */* ATBUILD (ISTATCVT,ISTRPH) */ 04S0981 01789000 */* END OF ATBUILD */ 04S0981 01790000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 04S0981 01791000 * RFY (GPR01P,GPR13P) RSTD; 04S0982 01792000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 04S0983 01793000 * 04S0983 01794000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 01795000 * RFY GPR13P UNRSTD; 04S0984 01796000 * GPR04P=REQCE; 04S0985 01797000 LR GPR04P,REQCE 04S0985 01798000 * DCL 1 FMZA0151 FIXED(31) STATIC LOCAL, 04S0986 01799000 * 2 * FIXED(8) INIT(64), 04S0986 01800000 * 2 * PTR(24) INIT(0); 04S0986 01801000 * GPR03F = FMZA0151; 04S0987 01802000 * 04S0987 01803000 L GPR03F,FMZA0151 04S0987 01804000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 04S0988 01805000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S0989 01806000 L GPR15P,ATCLCPTR 04S0989 01807000 * END; /*LISATCVT*/ 04S0990 01808000 * GPR02P = GPR15P->ATCBPDA; 04S0991 01809000 L GPR02P,ATCBPDA(,GPR15P) 04S0991 01810000 * GPR15P=GPR15P->ATCSMRS; 04S0992 01811000 L GPR15P,ATCSMRS(,GPR15P) 04S0992 01812000 * DCL FMZL0151 BASED(GPR15P) LABEL VALUERANGE(*); 04S0993 01813000 * CALL FMZL0151; 04S0994 01814000 BALR @14,@15 04S0994 01815000 * RFY GPR13P RSTD; 04S0995 01816000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 04S0996 01817000 * 04S0996 01818000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 01819000 * RFY (GPR01P,GPR13P) UNRSTD; 04S0997 01820000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 04S0998 01821000 * END ;/**********END OF RELSTORE EXPANSION**********/ 01822000 * 04S0999 01823000 * END RELSTORG; /*END OF RELSTORG LOGIC SEGMENT */ 01824000 * REQCE=RALLOC; /*RESTORE PTR @XM00133*/ 01825000 * 03S1001 01826000 LR REQCE,RALLOC 03S1001 01827000 * END; /* END(DOWHILE) */ 03S1002 01828000 @DE00977 LTR REQCE,REQCE 03S1002 01829000 BNZ @DL00977 03S1002 01830000 *#DC00150:; 03S1003 01831000 #DC00150 DS 0H 03S1004 01832000 * RRET=NOTGOT; /*SET BAD RETURN CODE */ 01833000 * 03S1004 01834000 LA RRET,8 03S1004 01835000 * GOTO #BC00127; /* END(LEAVE) */ 03S1005 01836000 B #BC00127 03S1005 01837000 * END; /*AND EXIT */ 01838000 * RPHSRPRM->CHAINFLD=RALLOC; 03S1007 01839000 @RF00974 L @14,RPHSRPRM(,RPHPTR) 03S1007 01840000 ST RALLOC,CHAINFLD(,@14) 03S1007 01841000 * /*CHAIN NEW BLOCK TO */ 01842000 * RALLOC=RPHSRPRM; /*OTHERS OBTAINED */ 01843000 LR RALLOC,@14 03S1008 01844000 * END; 03S1009 01845000 AL NOBLOCKS,@CF00038 03S1009 01846000 @DE00951 CR NOBLOCKS,REQCE 03S1009 01847000 BNH @DL00951 03S1009 01848000 * REQCE=RALLOC; /*TRANSFER CHAIN TO 03S1010 01849000 * REQUESTOR */ 01850000 LR REQCE,RALLOC 03S1010 01851000 * END; 03S1011 01852000 * 03S1011 01853000 */* LEAVE(BLOCK) ON(RRET>=NOTGOT|REQUECB<1) */ 03S1012 01854000 * IF (RRET>=NOTGOT|REQUECB<1) THEN 03S1012 01855000 @RF00949 CH RRET,@CH00040 03S1012 01856000 BNL @RT01012 03S1012 01857000 LA @14,1 03S1012 01858000 CR REQUECB,@14 03S1012 01859000 BL @RT01012 03S1012 01860000 * GOTO #BC00127; 03S1013 01861000 * RALLOC=0; /*RESET RALLOC */ 01862000 SLR RALLOC,RALLOC 03S1014 01863000 * DO NOBLOCKS=1 TO REQUECB; 03S1015 01864000 LR NOBLOCKS,@14 03S1015 01865000 B @DE01015 03S1015 01866000 @DL01015 DS 0H 03S1016 01867000 * /*FOR EACH BLOCK REQD 03S1016 01868000 * WHILE STORAGE AVAIL */ 01869000 * /***********************************************************/ 01870000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01871000 * /* THE REQSTORE MACRO TO REQUEST A CLEARED USER */ 01872000 * /* EXIT CONTROL BLOCK STORAGE AREA FROM VTAM */ 01873000 * /* STORAGE MANAGEMENT FOR THE GETSTORE FUNCTION. */ 01874000 * /***********************************************************/ 01875000 *REQSTOR2:DO; /*BGN OF REQSTOR2 LOGIC SEGMENT */ 01876000 * 04S1016 01877000 REQSTOR2 DS 0H 04S1017 01878000 * /*REQSTORE CBID(UECB)CLEAR(YES)*/ 04S1017 01879000 * DO; 04S1017 01880000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 04S1018 01881000 */* END OF ATBUILD */ 04S1018 01882000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 04S1018 01883000 * RFY (GPR01P,GPR13P) RSTD; 04S1019 01884000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 04S1020 01885000 * 04S1020 01886000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 01887000 * RFY (GPR01P,GPR13P) UNRSTD; 04S1021 01888000 * 04S1021 01889000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 04S1022 01890000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S1023 01891000 L GPR15P,ATCLCPTR 04S1023 01892000 * END; /*LISATCVT*/ 04S1024 01893000 * GPR02P=GPR15P->ATCBPDA | '80000000'X; 04S1025 01894000 L GPR02P,ATCBPDA(,GPR15P) 04S1025 01895000 O GPR02P,@CF00201 04S1025 01896000 * DCL 1 FMZA0170 FIXED(31) STATIC LOCAL, 04S1026 01897000 * 2 * FIXED(8) INIT(152), 04S1026 01898000 * 2 * PTR(24) INIT(0); 04S1026 01899000 * GPR03F=FMZA0170; 04S1027 01900000 L GPR03F,FMZA0170 04S1027 01901000 * GPR04F=17; 04S1028 01902000 LA GPR04F,17 04S1028 01903000 * GPR15P=GPR15P->ATCSMRQ; 04S1029 01904000 L GPR15P,ATCSMRQ(,GPR15P) 04S1029 01905000 * DCL FMZL0170 BASED(GPR15P) LABEL VALUERANGE(*); 04S1030 01906000 * CALL FMZL0170; 04S1031 01907000 BALR @14,@15 04S1031 01908000 * RFY (GPR13P) RSTD; 04S1032 01909000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 04S1033 01910000 * 04S1033 01911000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 01912000 * RFY (GPR13P) UNRSTD; 04S1034 01913000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 04S1035 01914000 * END ; 04S1036 01915000 * /********* END OF REQSTORE EXPANSION **********/ 04S1037 01916000 * 04S1037 01917000 * END REQSTOR2; /*END OF REQSTOR2 LOGIC SEGMENT */ 01918000 * 03S1038 01919000 */* LEAVE(BLOCK) ON(RRET>=NOTGOT)ANDDO */ 03S1038 01920000 * IF (RRET>=NOTGOT) THEN 03S1038 01921000 CH RRET,@CH00040 03S1038 01922000 BL @RF01038 03S1038 01923000 * DO; 03S1039 01924000 * REQUECB=RALLOC; /*UECB PTR @XM00133*/ 01925000 * 03S1040 01926000 LR REQUECB,RALLOC 03S1040 01927000 */* DOWHILE(REQUECB^=0) */ 03S1041 01928000 * DO WHILE(REQUECB^=0); /*FREE STR GOTTON * 01929000 B @DE01041 03S1041 01930000 @DL01041 DS 0H 03S1042 01931000 * RALLOC=REQUECB->CHAINFLD; 03S1042 01932000 L RALLOC,CHAINFLD(,REQUECB) 03S1042 01933000 * /*NEXT UECB TO FREE @XM00133*/ 01934000 * /***********************************************************/ 01935000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 01936000 * /* THE RELSTORE MACRO TO REQUEST THAT A USER EXIT */ 01937000 * /* CONTROL BLOCK STORAGE AREA BE RELEASED BY VTAM */ 01938000 * /* STORAGE MANAGEMENT FOR THE GETSTORE FUNCTION. */ 01939000 * /***********************************************************/ 01940000 *RELSTOR :DO; /*BGN OF RELSTOR LOGIC SEGMENT */ 01941000 * 04S1043 01942000 RELSTOR DS 0H 04S1044 01943000 * /*RELSTORE BUFADDR(REQUECB)*/ 04S1044 01944000 * DO; 04S1044 01945000 */* ATBUILD (ISTATCVT,ISTRPH) */ 04S1045 01946000 */* END OF ATBUILD */ 04S1045 01947000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 04S1045 01948000 * RFY (GPR01P,GPR13P) RSTD; 04S1046 01949000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 04S1047 01950000 * 04S1047 01951000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 01952000 * RFY GPR13P UNRSTD; 04S1048 01953000 * GPR04P=REQUECB; 04S1049 01954000 LR GPR04P,REQUECB 04S1049 01955000 * DCL 1 FMZA0191 FIXED(31) STATIC LOCAL, 04S1050 01956000 * 2 * FIXED(8) INIT(64), 04S1050 01957000 * 2 * PTR(24) INIT(0); 04S1050 01958000 * GPR03F = FMZA0191; 04S1051 01959000 * 04S1051 01960000 L GPR03F,FMZA0191 04S1051 01961000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 04S1052 01962000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 04S1053 01963000 L GPR15P,ATCLCPTR 04S1053 01964000 * END; /*LISATCVT*/ 04S1054 01965000 * GPR02P = GPR15P->ATCBPDA; 04S1055 01966000 L GPR02P,ATCBPDA(,GPR15P) 04S1055 01967000 * GPR15P=GPR15P->ATCSMRS; 04S1056 01968000 L GPR15P,ATCSMRS(,GPR15P) 04S1056 01969000 * DCL FMZL0191 BASED(GPR15P) LABEL VALUERANGE(*); 04S1057 01970000 * CALL FMZL0191; 04S1058 01971000 BALR @14,@15 04S1058 01972000 * RFY GPR13P RSTD; 04S1059 01973000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 04S1060 01974000 * 04S1060 01975000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 01976000 * RFY (GPR01P,GPR13P) UNRSTD; 04S1061 01977000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 04S1062 01978000 * END ;/**********END OF RELSTORE EXPANSION**********/ 01979000 * 04S1063 01980000 * END RELSTOR; /*END OF RELSTOR LOGIC SEGMENT */ 01981000 * REQUECB=RALLOC; /*RESTORE UECB PTR @XM00133*/ 01982000 * 03S1065 01983000 LR REQUECB,RALLOC 03S1065 01984000 * END; /* END(DOWHILE) */ 03S1066 01985000 @DE01041 LTR REQUECB,REQUECB 03S1066 01986000 BNZ @DL01041 03S1066 01987000 *#DC00190:; 03S1067 01988000 * 03S1067 01989000 #DC00190 DS 0H 03S1068 01990000 */* DOWHILE(REQCE^=0) */ 03S1068 01991000 * DO WHILE(REQCE^=0);/*FREE STR GOTTEN @XM00133* 01992000 B @DE01068 03S1068 01993000 @DL01068 DS 0H 03S1069 01994000 * RALLOC=REQCE->CHAINFLD; 03S1069 01995000 L RALLOC,CHAINFLD(,REQCE) 03S1069 01996000 * /*NEXT CE TO FREE @XM00133*/ 01997000 * /*RELSTORE BUFADDR(REQCE)*/ 03S1070 01998000 * DO; 03S1070 01999000 */* ATBUILD (ISTATCVT,ISTRPH) */ 03S1071 02000000 */* END OF ATBUILD */ 03S1071 02001000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 03S1071 02002000 * RFY (GPR01P,GPR13P) RSTD; 03S1072 02003000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 03S1073 02004000 * 03S1073 02005000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 02006000 * RFY GPR13P UNRSTD; 03S1074 02007000 * GPR04P=REQCE; 03S1075 02008000 LR GPR04P,REQCE 03S1075 02009000 * DCL 1 FMZA0209 FIXED(31) STATIC LOCAL, 03S1076 02010000 * 2 * FIXED(8) INIT(64), 03S1076 02011000 * 2 * PTR(24) INIT(0); 03S1076 02012000 * GPR03F = FMZA0209; 03S1077 02013000 * 03S1077 02014000 L GPR03F,FMZA0209 03S1077 02015000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 03S1078 02016000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 03S1079 02017000 L GPR15P,ATCLCPTR 03S1079 02018000 * END; /*LISATCVT*/ 03S1080 02019000 * GPR02P = GPR15P->ATCBPDA; 03S1081 02020000 L GPR02P,ATCBPDA(,GPR15P) 03S1081 02021000 * GPR15P=GPR15P->ATCSMRS; 03S1082 02022000 L GPR15P,ATCSMRS(,GPR15P) 03S1082 02023000 * DCL FMZL0209 BASED(GPR15P) LABEL VALUERANGE(*); 03S1083 02024000 * CALL FMZL0209; 03S1084 02025000 BALR @14,@15 03S1084 02026000 * RFY GPR13P RSTD; 03S1085 02027000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 03S1086 02028000 * 03S1086 02029000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 02030000 * RFY (GPR01P,GPR13P) UNRSTD; 03S1087 02031000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 03S1088 02032000 * END ;/**********END OF RELSTORE EXPANSION**********/ 02033000 * /*@XM00133*/ 03S1090 02034000 * REQCE=RALLOC; /*RESTORE PTR @XM00133*/ 02035000 * 03S1090 02036000 LR REQCE,RALLOC 03S1090 02037000 * END; /* END(DOWHILE) */ 03S1091 02038000 @DE01068 LTR REQCE,REQCE 03S1091 02039000 BNZ @DL01068 03S1091 02040000 *#DC00208:; /*@XM00133*/ 03S1092 02041000 #DC00208 DS 0H 03S1093 02042000 * RRET=NOTGOT; /*SET BAD RETURN CODE */ 02043000 * 03S1093 02044000 LA RRET,8 03S1093 02045000 * GOTO #BC00127; /* END(LEAVE) */ 03S1094 02046000 B #BC00127 03S1094 02047000 * END; /*AND EXIT */ 02048000 * RPHSRPRM->CHAINFLD=RALLOC; 03S1096 02049000 @RF01038 L @14,RPHSRPRM(,RPHPTR) 03S1096 02050000 ST RALLOC,CHAINFLD(,@14) 03S1096 02051000 * /*CHAIN NEW BLOCK TO */ 02052000 * RALLOC=RPHSRPRM; /*OTHERS OBTAINED */ 02053000 LR RALLOC,@14 03S1097 02054000 * END; 03S1098 02055000 AL NOBLOCKS,@CF00038 03S1098 02056000 @DE01015 CR NOBLOCKS,REQUECB 03S1098 02057000 BNH @DL01015 03S1098 02058000 * REQUECB=RALLOC; /*RESTORE UECB POINTER @XM00133*/ 02059000 LR REQUECB,RALLOC 03S1099 02060000 * RFY 03S1100 02061000 * RALLOC UNRSTD; 03S1100 02062000 * RFY 03S1101 02063000 * (ACEPTR 03S1101 02064000 * ,ICEPTR 03S1101 02065000 * ,CSPPTR 03S1101 02066000 * ,ATCVTPTR) RSTD; 03S1101 02067000 * 03S1101 02068000 * END; /* END(BLOCK) */ 03S1102 02069000 *#BC00127:; /*END OF LOGIC BLOCK SG */ 03S1103 02070000 #BC00127 DS 0H 03S1104 02071000 * /***********************************************************/ 02072000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 02073000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 02074000 * /* RECOVERY RECORD TO INDICATE THAT THE GETSTORE */ 02075000 * /* FUNCTION IS BEING EXITED. */ 02076000 * /***********************************************************/ 02077000 *FLGGSOUT:DO; /*BGN OF FLGGSOUT LOGIC SEGMENT */ 02078000 * 04S1104 02079000 * 04S1104 02080000 FLGGSOUT DS 0H 04S1105 02081000 * DO; /* SETCRR FNID(CNSGETS)TYPE(SEXIT) */ 04S1105 02082000 * CRACRR->CNSGETSB='0'B; /*TURN OFF CURRENT FLAG*/ 04S1106 02083000 L @14,RPHCRR(,RPHPTR) 04S1106 02084000 L @14,CRACRR(,@14) 04S1106 02085000 NI CNSGETSB(@14),B'11101111' 04S1106 02086000 * END; /*SETCRR*/ 04S1107 02087000 * 04S1107 02088000 * END FLGGSOUT; /*END OF FLGGSOUT LOGIC SEGMENT */ 02089000 * BASEREG=SAVE312; /*RESTORE BASEREG @XM01122*/ 02090000 L BASEREG,SAVE312(,SAVEPTR) 03S1109 02091000 * GEN SETS(R10,CSPPTR) 03S1110 02092000 * REFS(SAVE314,SAVEPTR); 03S1110 02093000 * 03S1110 02094000 LM R10,CSPPTR,SAVE314(SAVEPTR) REST CALLERS RG 02095000 * GEN SETS(RETR,LISTCT,WORK) 03S1111 02096000 * REFS(SAVE20,SAVE214,SAVEPTR); 03S1111 02097000 * 03S1111 02098000 L RETR,SAVE214(SAVEPTR) RESTORE 02099000 LM LISTCT,WORK,SAVE20(SAVEPTR) CALLERS REGS 02100000 * END GETSTORE; 03S1112 02101000 @EL00009 DS 0H 03S1112 02102000 @EF00009 DS 0H 03S1112 02103000 @ER00009 BR @14 03S1112 02104000 @PB00009 DS 0H 03S1113 02105000 * GEN (EJECT); 02S1113 02106000 EJECT 02107000 * /***********************************************************/ 02108000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO LOG AN */ 02109000 * /* ICE FROM A TERMINAL ONTO AN APPLICATION. IF */ 02110000 * /* THERE IS AN OUTSTANDING ACCEPT FOR THE TERMINAL */ 02111000 * /* BY THE APPLICATION, OR IF THE APPLICATION IS */ 02112000 * /* WILLING TO ACCEPT A LOGON FROM ANY TERMINAL, A */ 02113000 * /* SESSION IS MADE BETWEEN THE TERMINAL AND THE */ 02114000 * /* APPLICATION. IF, HOWEVER, THE APPLICATION HAS */ 02115000 * /* A LOGON EXIT, THE MATCH ATTEMPT IS DONE THERE. */ 02116000 * /***********************************************************/ 02117000 *LOGON0 :PROC OPTIONS(NOSAVE); 03S1114 02118000 * 03S1114 02119000 B @PB00010 03S1114 02120000 LOGON0 DS 0H 03S1115 02121000 * GEN (PRINT OFF); 03S1115 02122000 PRINT OFF 02123000 * DCL 03S1116 02124000 * (QUEUE0 03S1116 02125000 * ,SEARCHQ0 03S1116 02126000 * ,TCONNEC0 03S1116 02127000 * ,ACONNEC0 03S1116 02128000 * ,FREEST0 03S1116 02129000 * ,DOACCT0 ) LABEL LOCAL EXTERNAL; 03S1116 02130000 * GEN (PRINT ON); 03S1117 02131000 * 03S1117 02132000 PRINT ON 02133000 * /***********************************************************/ 02134000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO SETUP */ 02135000 * /* THE ENTRY ENVIRONMENT NECESSARY WHEN THE LOGON0 */ 02136000 * /* FUNCTION OF THE MASTER ROUTER RECEIVES CONTROL */ 02137000 * /* FROM A FUNCTION THAT IS INTERNAL TO THE */ 02138000 * /* CONNECTION SERVICE SUB-FUNCTION OF OPEN/CLOSE. */ 02139000 * /***********************************************************/ 02140000 *LGN0EENV:DO; /*BGN OF LGN0EENV LOGIC SEGMENT */ 02141000 * 04S1118 02142000 LGN0EENV DS 0H 04S1119 02143000 * RFY 04S1119 02144000 * (ENTRYREG 04S1119 02145000 * ,RPREPTR 04S1119 02146000 * ,RCPREPTR) UNRSTD; 04S1119 02147000 * RFY 04S1120 02148000 * (RETSAVR 04S1120 02149000 * ,RETR ) RSTD; 04S1120 02150000 * RETSAVR=RETR; /*SAVE RETURN ADDRESS */ 02151000 LR RETSAVR,RETR 04S1121 02152000 * RFY 04S1122 02153000 * (RETSAVR 04S1122 02154000 * ,RETR ) UNRSTD; 04S1122 02155000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 02156000 ST BASEREG,SAVE212(,SAVEPTR) 04S1123 02157000 * GEN SETS(SAVE214) 04S1124 02158000 * REFS(RETR,WORK,SAVEPTR); 04S1124 02159000 * 04S1124 02160000 STM RETR,WORK,SAVE214(SAVEPTR) SAVE RG 14-07 02161000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 02162000 * 04S1125 02163000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S1125 02164000 * /***********************************************************/ 02165000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 02166000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 02167000 * /* RECOVERY RECORD TO INDICATE THAT THE LOGON0 */ 02168000 * /* FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 02169000 * /***********************************************************/ 02170000 *FLGL0IN :DO; /*BGN OF FLGL0IN LOGIC SEGMENT */ 02171000 * 05S1126 02172000 * 05S1126 02173000 FLGL0IN DS 0H 05S1127 02174000 * DO; /* SETCRR FNID(CNSLOG0)TYPE(SENTRY) */ 05S1127 02175000 * CRACRR->CNSLOG0A='1'B; /*SET HISTORY FLAG*/ 05S1128 02176000 L @05,RPHCRR(,RPHPTR) 05S1128 02177000 L @05,CRACRR(,@05) 05S1128 02178000 OI CNSLOG0A(@05),B'00000010' 05S1128 02179000 * CRACRR->CNSLOG0B='1'B; /*SET CURRENT FLAG*/ 05S1129 02180000 OI CNSLOG0B(@05),B'00000010' 05S1129 02181000 * END; /*SETCRR*/ 05S1130 02182000 * 05S1130 02183000 * END FLGL0IN; /*END OF FLGL0IN LOGIC SEGMENT */ 02184000 * 04S1132 02185000 * END LGN0EENV; /*END OF LGN0EENV LOGIC SEGMENT */ 02186000 * RPRTIED=BITON; /*FLAG TRML RDTE TIED */ 02187000 OI RPRTIED(TERMPTR),B'00100000' 03S1133 02188000 * IF RPRACT=BITOF /*IF APPL NOT ACTIVE */ 02189000 * THEN 03S1134 02190000 TM RPRACT(TERMPTR),B'10000000' 03S1134 02191000 BNZ @RF01134 03S1134 02192000 * DO; 03S1135 02193000 * RPRACT =BITON; /*FLAG APPL ACTIVE */ 02194000 OI RPRACT(TERMPTR),B'10000000' 03S1136 02195000 * ATCACTRM=ATCACTRM+1; /*BUMP ACTV TRML CNT */ 02196000 LA @05,1 03S1137 02197000 AH @05,ATCACTRM(,ATCVTPTR) 03S1137 02198000 STH @05,ATCACTRM(,ATCVTPTR) 03S1137 02199000 * END; 03S1138 02200000 * /***********************************************************/ 02201000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 02202000 * /* CONNECT A LOGON ICE ONTO THE TERMINAL AND */ 02203000 * /* APPLICATION RDT LOGON ICE CHAINS FOR THE */ 02204000 * /* LOGON0 FUNCTION. */ 02205000 * /***********************************************************/ 02206000 *QLGNICE :DO; /*BGN OF QLGNICE LOGIC SEGMENT */ 02207000 * 04S1139 02208000 @RF01134 DS 0H 04S1139 02209000 QLGNICE DS 0H 04S1140 02210000 * RPHSAVE1=ICEPTR; /*SETUP */ 02211000 ST ICEPTR,RPHSAVE1(,RPHPTR) 04S1140 02212000 * RPHSAVE2=ADDR(RAPICELG); /* FOR */ 02213000 LA @05,RAPICELG(,RAPPTR) 04S1141 02214000 ST @05,RPHSAVE2(,RPHPTR) 04S1141 02215000 * RPHSAVE3=ADDR(ICESUBJQ)-ADDR(ISTICE); 04S1142 02216000 MVC RPHSAVE3(4,RPHPTR),@CF00040 04S1142 02217000 * /* QUEUE */ 02218000 * RFY 04S1143 02219000 * ENTRYREG RSTD; 04S1143 02220000 * ENTRYREG=ADDR(QUEUE0); /* FUNCTION */ 02221000 LA ENTRYREG,QUEUE0 04S1144 02222000 * CALL MNTRN; /*QUEUE ICE TO APPL */ 02223000 BALR @14,@15 04S1145 02224000 * RFY 04S1146 02225000 * ENTRYREG UNRSTD; 04S1146 02226000 * BASEREG=ATCCSMA; /*REESTABLISH ADDRESSAB */ 02227000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S1147 02228000 * ICESUBJ =RAPPTR; /*MAKE APPL ICE SUBJECT */ 02229000 ST RAPPTR,ICESUBJ(,ICEPTR) 04S1148 02230000 * ICEOBJQ =RCPICELN; /*QUEUE ICE TO TRML */ 02231000 MVC ICEOBJQ(4,ICEPTR),RCPICELN(TERMPTR) 04S1149 02232000 * RCPICELN=ICEPTR; /*DITTO */ 02233000 ST ICEPTR,RCPICELN(,TERMPTR) 04S1150 02234000 * ICEOBJ =TERMPTR; /*MAKE TRML ICE OBJECT */ 02235000 * 04S1151 02236000 ST TERMPTR,ICEOBJ(,ICEPTR) 04S1151 02237000 * END QLGNICE; /*END OF QLGNICE LOGIC SEGMENT */ 02238000 * /***********************************************************/ 02239000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO TRY */ 02240000 * /* AND MATCH THE LOGON ICE WITH AN ACCEPT ICE */ 02241000 * /* ON THE APPLICATION RDTE QUEUES FOR THE LOGON0 */ 02242000 * /* FUNCTION. */ 02243000 * /***********************************************************/ 02244000 *TRYMATCH:DO; /*BGN OF TRYMATCH LOGIC SEGMENT */ 02245000 * 04S1153 02246000 * 04S1153 02247000 TRYMATCH DS 0H 04S1154 02248000 * DO; /* BLOCK */ /*BGN OF LOGIC BLOCK SG 02249000 * */ 04S1154 02250000 * RPHSAVE1=ADDR(RAPICEAC); 04S1155 02251000 LA @05,RAPICEAC(,RAPPTR) 04S1155 02252000 ST @05,RPHSAVE1(,RPHPTR) 04S1155 02253000 * /*SETUP */ 02254000 * RPHSAVE2=ADDR(ICESUBJQ)-ADDR(ISTICE); 04S1156 02255000 MVC RPHSAVE2(4,RPHPTR),@CF00040 04S1156 02256000 * /* SEARCHQ */ 02257000 * RPHSAVE3=ADDR(ICEOBJ)-ADDR(ISTICE); 04S1157 02258000 MVC RPHSAVE3(4,RPHPTR),@CF00075 04S1157 02259000 * /* FUNCTION */ 02260000 * RPHSAVE4=TERMPTR; /* PARAMETERS */ 02261000 ST TERMPTR,RPHSAVE4(,RPHPTR) 04S1158 02262000 * RFY 04S1159 02263000 * ENTRYREG RSTD; 04S1159 02264000 * ENTRYREG=ADDR(SEARCHQ0); 04S1160 02265000 LA ENTRYREG,SEARCHQ0 04S1160 02266000 * /*GET ENTRY POINT ADDR */ 02267000 * CALL MNTRN; /*SRCH FOR ACCEPT SPEC */ 02268000 BALR @14,@15 04S1161 02269000 * RFY 04S1162 02270000 * ENTRYREG UNRSTD; 04S1162 02271000 * RFY 04S1163 02272000 * RETVAL RSTD; 04S1163 02273000 * BASEREG=ATCCSMA; /*REESTABLISH ADDRESSAB */ 02274000 * 04S1164 02275000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S1164 02276000 */* LEAVE(BLOCK) ON(RETVAL^=0) */ 04S1165 02277000 * IF (RETVAL^=0) THEN 04S1165 02278000 SLR @14,@14 04S1165 02279000 CR RETVAL,@14 04S1165 02280000 BNE @RT01165 04S1165 02281000 * GOTO #BC00232; 04S1166 02282000 * /*FOR SPEC ICE FOUND 04S1167 02283000 * EXIT LOGIC BLOCK */ 02284000 * RPHSAVE4=0; /*SETUP FOR ANY SEARCH */ 02285000 ST @14,RPHSAVE4(,RPHPTR) 04S1167 02286000 * RFY 04S1168 02287000 * ENTRYREG RSTD; 04S1168 02288000 * ENTRYREG=ADDR(SEARCHQ0); 04S1169 02289000 LA ENTRYREG,SEARCHQ0 04S1169 02290000 * /*GET ENTRY POINT ADDR */ 02291000 * CALL MNTRN; /*SRCH FOR ACCEPT ANY */ 02292000 BALR @14,@15 04S1170 02293000 * RFY 04S1171 02294000 * ENTRYREG UNRSTD; 04S1171 02295000 * BASEREG=ATCCSMA; /*REESTABLISH ADDRESSAB */ 02296000 * 04S1172 02297000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S1172 02298000 */* LEAVE(BLOCK) ON(RETVAL=0) */ 04S1173 02299000 * IF (RETVAL=0) THEN 04S1173 02300000 LTR RETVAL,RETVAL 04S1173 02301000 BZ @RT01173 04S1173 02302000 * GOTO #BC00232; 04S1174 02303000 * /*FOR NO ACCEPT ICE 04S1175 02304000 * EXIT LOGIC BLOCK */ 02305000 * RFY 04S1175 02306000 * CHAINFLD BASED(RETVAL); 04S1175 02307000 * CHAINFLD->ICERPHA->RPHCSPA->CSPTRDTE=TERMPTR; 04S1176 02308000 L @14,CHAINFLD(,RETVAL) 04S1176 02309000 L @14,ICERPHA(,@14) 04S1176 02310000 L @14,RPHCSPA(,@14) 04S1176 02311000 ST TERMPTR,CSPTRDTE(,@14) 04S1176 02312000 * /*TELL RQSTR TRML MATCH */ 02313000 * RFY 04S1177 02314000 * RETVAL UNRSTD; 04S1177 02315000 * 04S1177 02316000 * END; /* END(BLOCK) */ 04S1178 02317000 *#BC00232:; /*END OF LOGIC BLOCK SG */ 04S1179 02318000 * 04S1179 02319000 #BC00232 DS 0H 04S1180 02320000 * END TRYMATCH; /*END OF TRYMATCH LOGIC SEGMENT */ 02321000 * RFY 03S1181 02322000 * RETVAL RSTD; 03S1181 02323000 * IF RETVAL^=0 /*IF MATCH FOUND */ 02324000 * THEN 03S1182 02325000 LTR RETVAL,RETVAL 03S1182 02326000 BZ @RF01182 03S1182 02327000 * /***********************************************************/ 02328000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO UNLINK */ 02329000 * /* THE ACCEPT ICE FOUND AND MAKE A NEW SESSION */ 02330000 * /* WITH THE ACCEPTOR FOR THE LOGON0 FUNCTION. */ 02331000 * /***********************************************************/ 02332000 *DQACC :DO; /*BGN OF DQACC LOGIC SEGMENT */ 02333000 * 04S1183 02334000 DQACC DS 0H 04S1184 02335000 * RFY 04S1184 02336000 * CHAINFLD BASED(RETVAL); 04S1184 02337000 * 04S1184 02338000 * IF RPRSTPCT^=0 /*IF TRML STAPPERS IND */ 02339000 * THEN 04S1185 02340000 ICM @14,3,RPRSTPCT(TERMPTR) 04S1185 02341000 BZ @RF01185 04S1185 02342000 * DO; 04S1186 02343000 * CHAINFLD->ICERPHA->RPHCSPA->CSPCC=GOODSTAP; 04S1187 02344000 L @14,CHAINFLD(,RETVAL) 04S1187 02345000 L @14,ICERPHA(,@14) 04S1187 02346000 L @14,RPHCSPA(,@14) 04S1187 02347000 MVC CSPCC(2,@14),@CH00095 04S1187 02348000 * /*NOTIFY ACCEPTOR */ 02349000 * WORK=CHAINFLD->ICERPHA->RPHCSPA->CSPRSCE; 04S1188 02350000 L WORK,CSPRSCE(,@14) 04S1188 02351000 * /*GET ACCEPTOR RSC LST */ 02352000 * RFY 04S1189 02353000 * ISTCSL BASED(WORK); /*@D32CKMP*/ 02354000 * 04S1189 02355000 * /*****************************************************/ 02356000 * /*LOCATE ACCEPTED TERMINAL RDTE ADDRESS IN */ 02357000 * /*ACCEPTORS RESOURCE LIST AND FLAG THE */ 02358000 * /*CORRESPONDING NIB ENTRY TO INDICATE THAT */ 02359000 * /*THE DEVICE HAS SHOULDER TAPPERS WAITING. */ 02360000 * /*****************************************************/ 02361000 * 04S1190 02362000 */* DOINF */ 04S1190 02363000 * 04S1190 02364000 * DO UNTIL(1=2); /*@ 02365000 *32CKMP*/ 04S1190 02366000 * 04S1190 02367000 @DL01190 DS 0H 04S1191 02368000 */* LEAVE ON(CSLRDTE=TERMPTR)ANDDO */ 04S1191 02369000 * IF (CSLRDTE=TERMPTR) THEN 04S1191 02370000 C TERMPTR,CSLRDTE(,WORK) 04S1191 02371000 BNE @RF01191 04S1191 02372000 * DO; /*@D32CKMP*/ 04S1192 02373000 * CSLNIBF=BITON; /*@D32CKMP*/ 02374000 * 04S1193 02375000 OI CSLNIBF(WORK),B'10000000' 04S1193 02376000 * GOTO #DC00237; /* END(LEAVE) */ 04S1194 02377000 B #DC00237 04S1194 02378000 * END; /*@D32CKMP*/ 02379000 * WORK=WORK+LENGTH(ISTCSL); /*@D32CKMP*/ 02380000 * 04S1196 02381000 @RF01191 AH WORK,@CH00440 04S1196 02382000 * END; /* END(DOINF) */ 04S1197 02383000 @DE01190 B @DL01190 04S1197 02384000 *#DC00237:; /*@D32CKMP*/ 04S1198 02385000 * 04S1198 02386000 #DC00237 DS 0H 04S1199 02387000 * END; 04S1199 02388000 * CHAINFLD->ICERPHA->RPHNEXPO=RPHCSPA->CSPRLRPH; 04S1200 02389000 @RF01185 L @14,CHAINFLD(,RETVAL) 04S1200 02390000 L @05,ICERPHA(,@14) 04S1200 02391000 L @03,RPHCSPA(,RPHPTR) 04S1200 02392000 MVC RPHNEXPO(4,@05),CSPRLRPH(@03) 04S1200 02393000 * /*SAVE CHAIN WAITING */ 02394000 * ICERPHA=CHAINFLD->ICERPHA; /*@XM09018*/ 02395000 ST @05,ICERPHA(,ICEPTR) 04S1201 02396000 * /*MOVE ACCEPTORS RPH INTO ICE USED FOR ACE */ 02397000 * RPHCSPA->CSPRLRPH=CHAINFLD->ICERPHA; 04S1202 02398000 ST @05,CSPRLRPH(,@03) 04S1202 02399000 * /*RPHS IN CALLERS CSP */ 02400000 * RFY 04S1203 02401000 * RELSTPTR RSTD; 04S1203 02402000 * RELSTPTR=CHAINFLD; /*POINT TO ICE TO FREE */ 02403000 LR RELSTPTR,@14 04S1204 02404000 * CHAINFLD=CHAINFLD->ICESUBJQ; 04S1205 02405000 L @14,ICESUBJQ(,@14) 04S1205 02406000 ST @14,CHAINFLD(,RETVAL) 04S1205 02407000 * /*DETACH ICE FROM QUEUE */ 02408000 * RFY 04S1206 02409000 * RELID RSTD; 04S1206 02410000 * RELID =-1; /*IND FREE SINGLE ICE */ 02411000 SLR RELID,RELID 04S1207 02412000 BCTR RELID,0 04S1207 02413000 * RFY 04S1208 02414000 * ENTRYREG RSTD; 04S1208 02415000 * ENTRYREG=ADDR(FREEST0); /*GET ENTRY POINT ADDR */ 02416000 LA ENTRYREG,FREEST0 04S1209 02417000 * CALL MNTRN; /*FREE ICE AREA */ 02418000 BALR @14,@15 04S1210 02419000 * RFY 04S1211 02420000 * (ENTRYREG 04S1211 02421000 * ,RELID 04S1211 02422000 * ,RELSTPTR) UNRSTD; 04S1211 02423000 * BASEREG=ATCCSMA; /*REESTABLISH ADDRESSAB */ 02424000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S1212 02425000 * /***********************************************************/ 02426000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO REUSE */ 02427000 * /* THE LOGON ICE MATCHING AN ACCEPT REQUEST AS AN */ 02428000 * /* ACTIVE CONNECTION ELEMENT FOR THE SESSION FOR */ 02429000 * /* THE LOGON0 FUNCTION. */ 02430000 * /***********************************************************/ 02431000 *MATCH :DO; /*BGN OF MATCH LOGIC SEGMENT */ 02432000 * 05S1213 02433000 MATCH DS 0H 05S1214 02434000 * RFY 05S1214 02435000 * LINKPTR RSTD; 05S1214 02436000 * RFY 05S1215 02437000 * CHAINFLD BASED(LINKPTR); 05S1215 02438000 * RCPICELN=ICEOBJQ; /*DEQUEUE ICE FROM TRML 05S1216 02439000 * LOGBYME QUEUE */ 02440000 MVC RCPICELN(4,TERMPTR),ICEOBJQ(ICEPTR) 05S1216 02441000 * LINKPTR =ADDR(RAPICELG); /*POINT AT APPL LOGON 05S1217 02442000 * ICE QUEUE HEAD */ 02443000 * 05S1217 02444000 LA LINKPTR,RAPICELG(,RAPPTR) 05S1217 02445000 */* DOWHILE(CHAINFLD^=ICEPTR) */ 05S1218 02446000 * DO WHILE(CHAINFLD^=ICEPTR); /*SEARCH FOR LG ICE * 02447000 B @DE01218 05S1218 02448000 @DL01218 DS 0H 05S1219 02449000 * LINKPTR=ADDR(CHAINFLD->ICESUBJQ); 05S1219 02450000 L @14,CHAINFLD(,LINKPTR) 05S1219 02451000 LA @14,ICESUBJQ(,@14) 05S1219 02452000 LR LINKPTR,@14 05S1219 02453000 * /*GET LINK TO NEXT ICE */ 02454000 * 05S1220 02455000 * END; /* END(DOWHILE) */ 05S1220 02456000 @DE01218 C ICEPTR,CHAINFLD(,LINKPTR) 05S1220 02457000 BNE @DL01218 05S1220 02458000 *#DC00241:; /*CONTINUE SEARCH LOOP */ 05S1221 02459000 #DC00241 DS 0H 05S1222 02460000 * CHAINFLD=ICESUBJQ; /*DEQUEUE ICE FROM APPL */ 02461000 MVC CHAINFLD(4,LINKPTR),ICESUBJQ(ICEPTR) 05S1222 02462000 * RFY 05S1223 02463000 * LINKPTR UNRSTD; 05S1223 02464000 * IF ICEDATA^=0 /*IF LOGON DATA PRESENT */ 02465000 * THEN 05S1224 02466000 L @14,ICEDATA(,ICEPTR) 05S1224 02467000 LTR @14,@14 05S1224 02468000 BZ @RF01224 05S1224 02469000 * DO; 05S1225 02470000 * WORK=ICERPHA->RPHCSPA->CSPRSCE; 05S1226 02471000 L @05,ICERPHA(,ICEPTR) 05S1226 02472000 L @05,RPHCSPA(,@05) 05S1226 02473000 L WORK,CSPRSCE(,@05) 05S1226 02474000 * /*POINT AT RSCE LIST @D32CKMP*/ 02475000 * WORK->CSLDATA=ICEDATA; 05S1227 02476000 ST @14,CSLDATA(,WORK) 05S1227 02477000 * /*RTRN PTR TO LOG DATA @D32CKMP*/ 02478000 * END; 05S1228 02479000 * IF ICEUECBX^=0 /*IF UECB PRESENT */ 02480000 * THEN 05S1229 02481000 @RF01224 L @14,ICEUECBX(,ICEPTR) 05S1229 02482000 LTR @14,@14 05S1229 02483000 BZ @RF01229 05S1229 02484000 * DO; 05S1230 02485000 * RFY 05S1231 02486000 * (RELID 05S1231 02487000 * ,RELSTPTR 05S1231 02488000 * ,ENTRYREG) RSTD; 05S1231 02489000 * RELID =-1; /*IND 1 BLOCK TO FREE */ 02490000 SLR RELID,RELID 05S1232 02491000 BCTR RELID,0 05S1232 02492000 * RELSTPTR=ICEUECBX; /*POINT AT BLOCK */ 02493000 LR RELSTPTR,@14 05S1233 02494000 * ENTRYREG=ADDR(FREEST0); 05S1234 02495000 LA ENTRYREG,FREEST0 05S1234 02496000 * /*GET FREEST0 ENTRY PT */ 02497000 * CALL MNTRN; /*FREE UECB BLOCK */ 02498000 BALR @14,@15 05S1235 02499000 * RFY 05S1236 02500000 * (RELID 05S1236 02501000 * ,RELSTPTR 05S1236 02502000 * ,ENTRYREG) UNRSTD; 05S1236 02503000 * BASEREG=ATCCSMA; /*REESTABLISH ADDRESSAB */ 02504000 L BASEREG,ATCCSMA(,ATCVTPTR) 05S1237 02505000 * ACERPHA=RPHCSPA->CSPRLRPH; 05S1238 02506000 L @14,RPHCSPA(,RPHPTR) 05S1238 02507000 MVC ACERPHA(4,ACEPTR),CSPRLRPH(@14) 05S1238 02508000 * END; 05S1239 02509000 * IF ICERSC2F=BITON /*IF RSCE 2 NAME IN ICE */ 02510000 * THEN 05S1240 02511000 @RF01229 TM ICERSC2F(ICEPTR),B'00010000' 05S1240 02512000 BNO @RF01240 05S1240 02513000 * DO; 05S1241 02514000 * CSPRSC2B=ICERSC2B; /*COPY FROM ICE TO CSP */ 02515000 MVC CSPRSC2B(8,CSPPTR),ICERSC2B(ICEPTR) 05S1242 02516000 * CSPRSC2F=BITON; /*AND IND PRESENCE */ 02517000 OI CSPRSC2F(CSPPTR),B'00000010' 05S1243 02518000 * END; 05S1244 02519000 * ISTICE=ISTICE&&ISTICE; /*CLEAR ICE FOR REUSE */ 02520000 @RF01240 XC ISTICE(44,ICEPTR),ISTICE(ICEPTR) 05S1245 02521000 * RFY 05S1246 02522000 * ENTRYREG RSTD; 05S1246 02523000 * ENTRYREG=ADDR(TCONNEC0); /*GET TCONNEC0 ENTRY PT */ 02524000 LA ENTRYREG,TCONNEC0 05S1247 02525000 * CALL MNTRN; /*QUEUE ACE TO TRML RDT */ 02526000 BALR @14,@15 05S1248 02527000 * RFY 05S1249 02528000 * ENTRYREG UNRSTD; 05S1249 02529000 * BASEREG=ATCCSMA; /*REESTABLISH ADDRESSAB */ 02530000 L BASEREG,ATCCSMA(,ATCVTPTR) 05S1250 02531000 * ACERPHA=RPHCSPA->CSPRLRPH; 05S1251 02532000 L @14,RPHCSPA(,RPHPTR) 05S1251 02533000 MVC ACERPHA(4,ACEPTR),CSPRLRPH(@14) 05S1251 02534000 * /*POINT ACE AT ACCEPTS 05S1252 02535000 * RPH ADDRESS */ 02536000 * RFY 05S1252 02537000 * ENTRYREG RSTD; 05S1252 02538000 * ENTRYREG=ADDR(ACONNEC0); /*GET ACONNEC0 ENTRY PT */ 02539000 LA ENTRYREG,ACONNEC0 05S1253 02540000 * CALL MNTRN; /*QUEUE ACE TO APPL RDT */ 02541000 BALR @14,@15 05S1254 02542000 * RFY 05S1255 02543000 * ENTRYREG UNRSTD; 05S1255 02544000 * BASEREG=ATCCSMA; /*REESTABLISH ADDRESSAB */ 02545000 L BASEREG,ATCCSMA(,ATCVTPTR) 05S1256 02546000 * IF ATCACCTA^=0 /*IF ACCT EXIT RTN PRES */ 02547000 * THEN 05S1257 02548000 ICM @14,15,ATCACCTA(ATCVTPTR) 05S1257 02549000 BZ @RF01257 05S1257 02550000 * DO; 05S1258 02551000 * RFY 05S1259 02552000 * ENTRYREG RSTD; 05S1259 02553000 * ENTRYREG=ADDR(DOACCT0); 05S1260 02554000 LA ENTRYREG,DOACCT0 05S1260 02555000 * /*GET DOACCT0 ENTRY PT */ 02556000 * CALL MNTRN; /*RECORD MAKE SESSION */ 02557000 BALR @14,@15 05S1261 02558000 * RFY 05S1262 02559000 * ENTRYREG UNRSTD; 05S1262 02560000 * BASEREG=ATCCSMA; /*REESTABLISH ADDRESSAB */ 02561000 L BASEREG,ATCCSMA(,ATCVTPTR) 05S1263 02562000 * END; 05S1264 02563000 * 05S1264 02564000 * END MATCH; /*END OF MATCH LOGIC SEGMENT */ 02565000 @RF01257 DS 0H 05S1266 02566000 * 04S1266 02567000 * END DQACC; /*END OF DQACC LOGIC SEGMENT */ 02568000 * ELSE /*MATCH NOT FOUND, SO */ 02569000 * /***********************************************************/ 02570000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 02571000 * /* SCHEDULE THE LOGON EXIT FOR THE LOGON ICE */ 02572000 * /* BECAUSE NO ACCEPT ICE WAS FOUND FOR THE */ 02573000 * /* LOGON0 FUNCTION. */ 02574000 * /***********************************************************/ 02575000 *SCHDLGX :DO; /*BGN OF SCHDLGX LOGIC SEGMENT */ 02576000 * 04S1267 02577000 * 04S1267 02578000 B @RC01182 04S1267 02579000 @RF01182 DS 0H 04S1267 02580000 SCHDLGX DS 0H 04S1268 02581000 * DO; /* BLOCK */ /*BGN OF LOGIC BLOCK SG 02582000 * */ 04S1268 02583000 * 04S1268 02584000 */* LEAVE(BLOCK) ON(ICEUECBX=0) */ 04S1269 02585000 * IF (ICEUECBX=0) THEN 04S1269 02586000 L @14,ICEUECBX(,ICEPTR) 04S1269 02587000 LTR @14,@14 04S1269 02588000 BZ @RT01269 04S1269 02589000 * GOTO #BC00243;/*EXIT-NO UECB */ 04S1270 02590000 * RFY 04S1271 02591000 * (UECBPTR 04S1271 02592000 * ,PABPTR 04S1271 02593000 * ,ACDEBPTR) RSTD; 04S1271 02594000 * UECBPTR =ICEUECBX; /*POINT AT UECB */ 02595000 LR UECBPTR,@14 04S1272 02596000 * ACDEBPTR=RAPACDEB; /*POINT AT APPL DEB */ 02597000 L ACDEBPTR,RAPACDEB(,RAPPTR) 04S1273 02598000 * RFY (R0,R2,ENTRYREG) RSTD; /*@XA09277*/ 02599000 * /*FIX FOR APAR 9277 TO INPUT CORRECT PST PTR IN THE SMS HEADER*/ 02600000 * GEN REFS(RALLOC,ICEPTR)(STM RALLOC,ICEPTR,UECID(UECBPTR)); 02601000 STM RALLOC,ICEPTR,UECID(UECBPTR) 02602000 * /*SAVE REGS 3-10 IN UECB@XA09277*/ 02603000 * UECACB=R0; /*SAVE REG0 @XA09277*/ 02604000 ST R0,UECACB(,UECBPTR) 04S1276 02605000 * R0=ACDTSKID; /*PASS PST POINTER @XA09277*/ 02606000 L R0,ACDTSKID(,ACDEBPTR) 04S1277 02607000 * R2=UECBPTR; /*AND BUFF ADDRESS @XA09277*/ 02608000 LR R2,UECBPTR 04S1278 02609000 * ENTRYREG=ATCSMAID; /*TO SMS HEADER @XA09277*/ 02610000 L ENTRYREG,ATCSMAID(,ATCVTPTR) 04S1279 02611000 * CALL MNTRN; /*CALL ISTORAID @XA09277*/ 02612000 BALR @14,@15 04S1280 02613000 * R0=UECACB; /*RESTORE REG0 @XA09277*/ 02614000 L R0,UECACB(,UECBPTR) 04S1281 02615000 * GEN REFS(RALLOC,ICEPTR)(LM RALLOC,ICEPTR,UECID(UECBPTR)); 02616000 LM RALLOC,ICEPTR,UECID(UECBPTR) 02617000 * /*RESTORE REGS 3-10 @XA09277*/ 02618000 * RFY (R2,ENTRYREG) UNRSTD; /*@XA09277*/ 02619000 * ISTUECB=ISTUECB&&ISTUECB; 04S1284 02620000 XC ISTUECB(84,UECBPTR),ISTUECB(UECBPTR) 04S1284 02621000 * /*CLEAR UECB FOR REUSE */ 02622000 * /***********************************************************/ 02623000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO SETUP */ 02624000 * /* A USER EXIT CONTROL BLOCK BY INITIALIZING THE */ 02625000 * /* THE EXIT INDEPENDENT FIELDS INCLUDING THE TASK */ 02626000 * /* ID AND PAB FOR THE TPQUE AND LOGON0 FUNCTIONS. */ 02627000 * /***********************************************************/ 02628000 * DO; /*BGN OF UECBINIT LOGIC SEGMENT */ 02629000 * 05S1285 02630000 * UECID =UEID; /*FILL IN CB ID */ 02631000 MVI UECID(UECBPTR),X'10' 05S1286 02632000 * UECLEN =LENGTH(ISTUECB);/*FILL IN CB LENGTH */ 02633000 MVI UECLEN(UECBPTR),X'54' 05S1287 02634000 * UECTSKID=ACDTSKID; /*FILL IN TASK ID */ 02635000 MVC UECTSKID(4,UECBPTR),ACDTSKID(ACDEBPTR) 05S1288 02636000 * UECDVTPT=ATCUEP; /*FILL IN DVT PTR TO 05S1289 02637000 * USER EXIT SCHEDULER */ 02638000 MVC UECDVTPT(4,UECBPTR),ATCUEP(ATCVTPTR) 05S1289 02639000 * PABPTR =ADDR(UECPAB); /*LOCATE PAB WITHIN UECB */ 02640000 LA PABPTR,UECPAB(,UECBPTR) 05S1290 02641000 * PABDVTA =ADDR(UECDVTPT); /*POINT PAB AT DVT PTR */ 02642000 LA @14,UECDVTPT(,UECBPTR) 05S1291 02643000 STCM @14,7,PABDVTA(PABPTR) 05S1291 02644000 * PABOFFST=PABPTR-UECBPTR; /*FILL IN PAB OFFSET */ 02645000 LR @14,PABPTR 05S1292 02646000 SLR @14,UECBPTR 05S1292 02647000 STC @14,PABOFFST(,PABPTR) 05S1292 02648000 * PABAPYP =BITON; /*FLAG TYPE IS USER EXIT */ 02649000 * PABDYNAM=BITON; /*FLAG TYPE IS DYNAMIC */ 02650000 * 05S1294 02651000 OI PABAPYP(PABPTR),B'10010000' 05S1294 02652000 * END; /*END OF UECBINIT LOGIC SEGMENT */ 02653000 * UECTYPE =UECLOGON; /*FILL IN EXIT TYPE */ 02654000 MVI UECTYPE(UECBPTR),X'06' 04S1296 02655000 * UECACB =RAPACBA; /*FILL IN APPL ACB PTR */ 02656000 MVC UECACB(4,UECBPTR),RAPACBA(RAPPTR) 04S1297 02657000 * UECNDID =ADDR(UECSYMNM); 04S1298 02658000 LA @14,UECSYMNM(,UECBPTR) 04S1298 02659000 ST @14,UECNDID(,UECBPTR) 04S1298 02660000 * /*FILL IN NODE ID PTR */ 02661000 * UECSYMNM=TERMPTR->RPRNAME; 04S1299 02662000 MVC UECSYMNM(8,UECBPTR),RPRNAME(TERMPTR) 04S1299 02663000 * /*FILL IN SYMB NAME PTR */ 02664000 * IF ICEDATA^=0 /*IF LOGON DATA IN ICE */ 02665000 * THEN 04S1300 02666000 L @14,ICEDATA(,ICEPTR) 04S1300 02667000 LTR @14,@14 04S1300 02668000 BZ @RF01300 04S1300 02669000 * DO; 04S1301 02670000 * UECDLEN =BINUSEL; /*FILL IN LOGON DATA LN */ 02671000 SLR @05,@05 04S1302 02672000 IC @05,BINUSEL+12(,@14) 04S1302 02673000 ST @05,UECDLEN(,UECBPTR) 04S1302 02674000 * UECLGDTA=ICEDATA; /*AND ITS ADDRESS */ 02675000 ST @14,UECLGDTA(,UECBPTR) 04S1303 02676000 * END; 04S1304 02677000 * /***********************************************************/ 02678000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 02679000 * /* THE TPQUE MACRO TO QUEUE A USER EXIT CONTROL */ 02680000 * /* BLOCK TO THE PAB LOCATED WITHIN ITSELF FOR */ 02681000 * /* LOGON EXIT STIMULATION FOR THE LOGON0 FUNCTION. */ 02682000 * /***********************************************************/ 02683000 *LG0TPQ :DO; /*BGN OF LG0TPQ LOGIC SEGMENT */ 02684000 @RF01300 DS 0H 05S1305 02685000 LG0TPQ DS 0H 05S1306 02686000 * RFY ATCVTPTR UNRSTD; /*@XM00127*/ 02687000 * 05S1306 02688000 */* TPQUE (UECBPTR,PABWEQA) NORM */ 05S1307 02689000 * 05S1307 02690000 * DO; 05S1307 02691000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) RSTD; 05S1308 02692000 * GEN REFS(GPR01P) SETS(RPHWORK) 05S1309 02693000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 05S1309 02694000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 02695000 * GPR00P=0; 05S1310 02696000 SLR GPR00P,GPR00P 05S1310 02697000 * GPR15P=ADDR(PABWEQA); /*HOLD PAB PTR*/ 05S1311 02698000 LR GPR15P,PABPTR 05S1311 02699000 * GPR04P=UECBPTR; /*WORK ELE PTR*/ 05S1312 02700000 LR GPR04P,UECBPTR 05S1312 02701000 * GPR05P=GPR15P; /*PASS PAB PTR*/ 05S1313 02702000 LR GPR05P,GPR15P 05S1313 02703000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 05S1314 02704000 L @06,ATCLCPTR 05S1314 02705000 L @15,ATCAP37(,@06) 05S1314 02706000 BALR @14,@15 05S1314 02707000 * GEN(NOPR 0)NOSETS NOREFS; 05S1315 02708000 NOPR 0 02709000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) UNRSTD; 05S1316 02710000 * END; /**** END OF TPQUE GENERATION ****/ 05S1317 02711000 * 05S1317 02712000 * RFY ATCVTPTR RSTD; /*@XM00127*/ 02713000 * 05S1318 02714000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(ATCVTPTR)) */ 05S1319 02715000 * ATCVTPTR = ATCLCPTR; /*SET UP ATCVT POINTER*/ 05S1320 02716000 L ATCVTPTR,ATCLCPTR 05S1320 02717000 * END; /*LISATCVT*/ /*@XM00127*/ 05S1321 02718000 * END LG0TPQ; /*END OF LG0TPQ LOGIC SEGMENT */ 02719000 * RFY 04S1323 02720000 * (UECBPTR 04S1323 02721000 * ,PABPTR 04S1323 02722000 * ,ACDEBPTR) UNRSTD; 04S1323 02723000 * 04S1323 02724000 * END; /* END(BLOCK) */ 04S1324 02725000 *#BC00243:; /*END OF LOGIC BLOCK SG */ 04S1325 02726000 * 04S1325 02727000 #BC00243 DS 0H 04S1326 02728000 * END SCHDLGX; /*END OF SCHDLGX LOGIC SEGMENT */ 02729000 * RFY 03S1327 02730000 * RETVAL UNRSTD; 03S1327 02731000 @RC01182 DS 0H 03S1328 02732000 * /***********************************************************/ 02733000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO SETUP */ 02734000 * /* THE EXIT ENVIRONMENT NECESSARY WHEN THE LOGON0 */ 02735000 * /* FUNCTION OF THE MASTER ROUTER IS ABOUT TO */ 02736000 * /* RELINQUISH CONTROL TO THE INTERNAL FUNCTION */ 02737000 * /* OF CONNECTION SERVICES THAT CALLED IT. */ 02738000 * /***********************************************************/ 02739000 *LGN0XENV:DO; /*BGN OF LGN0XENV LOGIC SEGMENT */ 02740000 * 04S1328 02741000 LGN0XENV DS 0H 04S1329 02742000 * /***********************************************************/ 02743000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 02744000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 02745000 * /* RECOVERY RECORD TO INDICATE THAT THE LOGON0 */ 02746000 * /* FUNCTION OF ISTCSCMR IS BEING EXITED. */ 02747000 * /***********************************************************/ 02748000 *FLGL0OUT:DO; /*BGN OF FLGL0OUT LOGIC SEGMENT */ 02749000 * 05S1329 02750000 * 05S1329 02751000 FLGL0OUT DS 0H 05S1330 02752000 * DO; /* SETCRR FNID(CNSLOG0)TYPE(SEXIT) */ 05S1330 02753000 * CRACRR->CNSLOG0B='0'B; /*TURN OFF CURRENT FLAG*/ 05S1331 02754000 L @05,RPHCRR(,RPHPTR) 05S1331 02755000 L @05,CRACRR(,@05) 05S1331 02756000 NI CNSLOG0B(@05),B'11111101' 05S1331 02757000 * END; /*SETCRR*/ 05S1332 02758000 * 05S1332 02759000 * END FLGL0OUT; /*END OF FLGL0OUT LOGIC SEGMENT */ 02760000 * 04S1334 02761000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 02762000 L BASEREG,SAVE212(,SAVEPTR) 04S1334 02763000 * GEN SETS(RETR,WORK) 04S1335 02764000 * REFS(SAVE214,SAVEPTR); 04S1335 02765000 LM RETR,WORK,SAVE214(SAVEPTR) REST RG 14-07 02766000 * RFY 04S1336 02767000 * (RETR 04S1336 02768000 * ,RETSAVR) RSTD; 04S1336 02769000 * RETR=RETSAVR; /*RESTORE RETURN ADDRESS */ 02770000 LR RETR,RETSAVR 04S1337 02771000 * RFY 04S1338 02772000 * (RETR 04S1338 02773000 * ,RETSAVR) UNRSTD; 04S1338 02774000 * RFY 04S1339 02775000 * (ENTRYREG 04S1339 02776000 * ,RPREPTR 04S1339 02777000 * ,RCPREPTR) UNRSTD; 04S1339 02778000 * 04S1339 02779000 * END LGN0XENV; /*END OF LGN0XENV LOGIC SEGMENT * 02780000 * 03S1341 02781000 * END LOGON0; 03S1341 02782000 @EL00010 DS 0H 03S1341 02783000 @EF00010 DS 0H 03S1341 02784000 @ER00010 BR @14 03S1341 02785000 @PB00010 DS 0H 03S1342 02786000 * GEN (EJECT); 02S1342 02787000 EJECT 02788000 * /***********************************************************/ 02789000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO ISSUE */ 02790000 * /* A TPQUE MACRO ON BEHALF OF THE REQUESTOR TO */ 02791000 * /* QUEUE THE UECB PASSED ON TO ITS OWN PAB. THE */ 02792000 * /* EXIT INDEPENDENT FIELDS IN THE UECB ARE SETUP */ 02793000 * /* INCLUDING THE TASKID IN THE PAB WHICH IS TAKEN */ 02794000 * /* FROM THE DEB. */ 02795000 * /***********************************************************/ 02796000 *TPQ :PROC OPTIONS(NOSAVE); 03S1343 02797000 * 03S1343 02798000 B @PB00011 03S1343 02799000 TPQ DS 0H 03S1344 02800000 * RFY 03S1344 02801000 * (TERMPTR 03S1344 02802000 * ,RAPPTR 03S1344 02803000 * ,CSPPTR 03S1344 02804000 * ,ACEPTR ) UNRSTD; 03S1344 02805000 * RFY 03S1345 02806000 * (R2 03S1345 02807000 * ,R3 03S1345 02808000 * ,R4 03S1345 02809000 * ,ACDEBPTR 03S1345 02810000 * ,UECBPTR 03S1345 02811000 * ,PABPTR ) RSTD; 03S1345 02812000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 02813000 ST BASEREG,SAVE212(,SAVEPTR) 03S1346 02814000 * GEN SETS(SAVE214,SAVE22) 03S1347 02815000 * REFS(RETR,RPHPTR,ATCVTPTR,CSPPTR,SAVEPTR); @XM01122 02816000 * 03S1347 02817000 STM RETR,RPHPTR,SAVE214(SAVEPTR) SAVE RG 14-01 02818000 STM ATCVTPTR,CSPPTR,SAVE22(SAVEPTR) AND 06-11 @XM01122 02819000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 02820000 L BASEREG,ATCCSMA(,ATCVTPTR) 03S1348 02821000 * RFY (R0,R2,ENTRYREG) RSTD; /*@XA09277*/ 02822000 * /*FIX FOR APAR 9277 TO INPUT CORRECT PST PTR IN THE SMS HEADER*/ 02823000 * GEN SETS(RPHWORK) REFS(RPHPTR,R2,R5); /*@ZM01435*/ 02824000 STM R2,R5,RPHWORK(RPHPTR) SAVE REGS 2-5 OVER CALL @ZM01435 02825000 * R0=ACDTSKID; /*PASS PST POINTER @XA09277*/ 02826000 L R0,ACDTSKID(,ACDEBPTR) 03S1351 02827000 * R2=UECBPTR; /*AND BUFF ADDRESS @XA09277*/ 02828000 LR R2,UECBPTR 03S1352 02829000 * ENTRYREG=ATCSMAID; /*TO SMS HEADER @XA09277*/ 02830000 L ENTRYREG,ATCSMAID(,ATCVTPTR) 03S1353 02831000 * CALL MNTRN; /*CALL ISTORAID @XA09277*/ 02832000 BALR @14,@15 03S1354 02833000 * GEN REFS(ATCVTPTR,CSPPTR,RPHPTR,RPHWORK,R2,R5); @ZM01435 02834000 LM ATCVTPTR,CSPPTR,SAVE22(SAVEPTR) RES 06-11 @ZM01435 02835000 LM R2,R5,RPHWORK(RPHPTR) RES REGS 2-5 @ZM01435 02836000 * /***********************************************************/ 02837000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO SETUP */ 02838000 * /* A USER EXIT CONTROL BLOCK BY INITIALIZING THE */ 02839000 * /* THE EXIT INDEPENDENT FIELDS INCLUDING THE TASK */ 02840000 * /* ID AND PAB FOR THE TPQUE AND LOGON0 FUNCTIONS. */ 02841000 * /***********************************************************/ 02842000 * DO; /*BGN OF UECBINIT LOGIC SEGMENT */ 02843000 * 04S1356 02844000 * UECID =UEID; /*FILL IN CB ID */ 02845000 MVI UECID(UECBPTR),X'10' 04S1357 02846000 * UECLEN =LENGTH(ISTUECB);/*FILL IN CB LENGTH */ 02847000 MVI UECLEN(UECBPTR),X'54' 04S1358 02848000 * UECTSKID=ACDTSKID; /*FILL IN TASK ID */ 02849000 MVC UECTSKID(4,UECBPTR),ACDTSKID(ACDEBPTR) 04S1359 02850000 * UECDVTPT=ATCUEP; /*FILL IN DVT PTR TO 04S1360 02851000 * USER EXIT SCHEDULER */ 02852000 MVC UECDVTPT(4,UECBPTR),ATCUEP(ATCVTPTR) 04S1360 02853000 * PABPTR =ADDR(UECPAB); /*LOCATE PAB WITHIN UECB */ 02854000 LA PABPTR,UECPAB(,UECBPTR) 04S1361 02855000 * PABDVTA =ADDR(UECDVTPT); /*POINT PAB AT DVT PTR */ 02856000 LA @14,UECDVTPT(,UECBPTR) 04S1362 02857000 STCM @14,7,PABDVTA(PABPTR) 04S1362 02858000 * PABOFFST=PABPTR-UECBPTR; /*FILL IN PAB OFFSET */ 02859000 LR @14,PABPTR 04S1363 02860000 SLR @14,UECBPTR 04S1363 02861000 STC @14,PABOFFST(,PABPTR) 04S1363 02862000 * PABAPYP =BITON; /*FLAG TYPE IS USER EXIT */ 02863000 * PABDYNAM=BITON; /*FLAG TYPE IS DYNAMIC */ 02864000 * 04S1365 02865000 OI PABAPYP(PABPTR),B'10010000' 04S1365 02866000 * END; /*END OF UECBINIT LOGIC SEGMENT */ 02867000 * /***********************************************************/ 02868000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 02869000 * /* THE TPQUE MACRO TO SCHEDULE A USER LOGON EXIT */ 02870000 * /* BY QUEUING THE USER EXIT CONTROL BLOCK TO THE */ 02871000 * /* PROCESS ANCHOR BLOCK LOCATED WITHIN ITSELF FOR */ 02872000 * /* THE TPQUE FUNCTION. */ 02873000 * /***********************************************************/ 02874000 *TPQUM :DO; /*BGN OF TPQUM LOGIC SEGMENT */ 02875000 * 04S1367 02876000 TPQUM DS 0H 04S1368 02877000 */* TPQUE (UECBPTR,PABWEQA) NORM */ 04S1368 02878000 * 04S1368 02879000 * DO; 04S1368 02880000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) RSTD; 04S1369 02881000 * GEN REFS(GPR01P) SETS(RPHWORK) 04S1370 02882000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 04S1370 02883000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 02884000 * GPR00P=0; 04S1371 02885000 SLR GPR00P,GPR00P 04S1371 02886000 * GPR15P=ADDR(PABWEQA); /*HOLD PAB PTR*/ 04S1372 02887000 LR GPR15P,PABPTR 04S1372 02888000 * GPR04P=UECBPTR; /*WORK ELE PTR*/ 04S1373 02889000 LR GPR04P,UECBPTR 04S1373 02890000 * GPR05P=GPR15P; /*PASS PAB PTR*/ 04S1374 02891000 LR GPR05P,GPR15P 04S1374 02892000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 04S1375 02893000 L @11,ATCLCPTR 04S1375 02894000 L @15,ATCAP37(,@11) 04S1375 02895000 BALR @14,@15 04S1375 02896000 * GEN(NOPR 0)NOSETS NOREFS; 04S1376 02897000 NOPR 0 02898000 * RFY (GPR00P,GPR01P,GPR04P,GPR05P,GPR15P) UNRSTD; 04S1377 02899000 * END; /**** END OF TPQUE GENERATION ****/ 04S1378 02900000 * 04S1378 02901000 * END TPQUM; /*END OF TPQUM LOGIC SEGMENT */ 02902000 * 03S1380 02903000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 02904000 L BASEREG,SAVE212(,SAVEPTR) 03S1380 02905000 * GEN SETS(ATCVTPTR,CSPPTR,RETR,RPHPTR) 03S1381 02906000 * REFS(SAVE22,SAVE214,SAVEPTR); 03S1381 02907000 LM ATCVTPTR,CSPPTR,SAVE22(SAVEPTR) REST RG 06-11 02908000 LM RETR,RPHPTR,SAVE214(SAVEPTR) AND 14-01 02909000 * RFY 03S1382 02910000 * (R2 03S1382 02911000 * ,R3 03S1382 02912000 * ,R4 03S1382 02913000 * ,ACDEBPTR 03S1382 02914000 * ,UECBPTR 03S1382 02915000 * ,PABPTR ) UNRSTD; 03S1382 02916000 * RFY 03S1383 02917000 * (TERMPTR 03S1383 02918000 * ,RAPPTR 03S1383 02919000 * ,CSPPTR 03S1383 02920000 * ,ACEPTR ) RSTD; 03S1383 02921000 * 03S1383 02922000 * END TPQ; 03S1384 02923000 @EL00011 DS 0H 03S1384 02924000 @EF00011 DS 0H 03S1384 02925000 @ER00011 BR @14 03S1384 02926000 @PB00011 DS 0H 03S1385 02927000 * GEN (EJECT); 02S1385 02928000 EJECT 02929000 * /***********************************************************/ 02930000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 02931000 * /* PROVIDE TWO ENTRY POINTS (ONE FOR CALLERS */ 02932000 * /* EXTERNAL TO THE MASTER ROUTER, THE OTHER */ 02933000 * /* FOR LOGON0) FOR THE FREESTOR FUNCTION AND */ 02934000 * /* TO INCLUDE THE COMMON LOGIC FOR INVOKING */ 02935000 * /* THE VTAM STORAGE MANAGEMENT FUNCTION TO */ 02936000 * /* RELEASE STORAGE FOR CONNECTION ELEMENTS */ 02937000 * /* AND/OR USER EXIT CONTROL BLOCKS. THE */ 02938000 * /* ENTRY POINTS ARE: */ 02939000 * /* */ 02940000 * /* FREESTOR - EXTERNAL CALLERS ENTRY POINT */ 02941000 * /* FREEST0 - LOGON0 CALLERS ENTRY POINT */ 02942000 * /***********************************************************/ 02943000 *FREESTOR:PROC OPTIONS(NOSAVE); 03S1386 02944000 * 03S1386 02945000 B @PB00012 03S1386 02946000 FREESTOR DS 0H 03S1387 02947000 * RFY 03S1387 02948000 * (RELID 03S1387 02949000 * ,STRGPTR 03S1387 02950000 * ,LINKPTR 03S1387 02951000 * ,WORK1 ) RSTD; 03S1387 02952000 * RFY 03S1388 02953000 * CHAINFLD BASED(WORK); 03S1388 02954000 * SAVE312=BASEREG; /*SAVE BASEREG @XM01122*/ 02955000 ST BASEREG,SAVE312(,SAVEPTR) 03S1389 02956000 * GEN SETS(SAVE215) 03S1390 02957000 * REFS(ENTRYREG,WORK,SAVEPTR); 03S1390 02958000 STM ENTRYREG,WORK,SAVE215(SAVEPTR) SAVE RG 15-07 02959000 *FREEST0 :; 03S1391 02960000 FREEST0 DS 0H 03S1392 02961000 * /***********************************************************/ 02962000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 02963000 * /* THE VTAM STORAGE MANAGEMENT FUNCTION TO RELEASE */ 02964000 * /* STORAGE FOR CONNECTION ELEMENTS AND/OR USER */ 02965000 * /* EXIT CONTROL BLOCKS FOR THE FREESTOR AND */ 02966000 * /* FREEST0 FUNCTIONS. */ 02967000 * /***********************************************************/ 02968000 *FRESTCOM:DO; /*BGN OF FRESTCOM LOGIC SEGMENT */ 02969000 * 04S1392 02970000 FRESTCOM DS 0H 04S1393 02971000 * RFY 04S1393 02972000 * RETR RSTD; 04S1393 02973000 * SAVE214=RETR; /*SAVE RETURN ADDRESS */ 02974000 ST RETR,SAVE214(,SAVEPTR) 04S1394 02975000 * RFY 04S1395 02976000 * RETR UNRSTD; 04S1395 02977000 * 04S1395 02978000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 02979000 * 04S1396 02980000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S1396 02981000 * GEN SETS(SAVE314) 04S1397 02982000 * REFS(R10,CSPPTR,SAVEPTR); @XM01122 02983000 STM R10,CSPPTR,SAVE314(SAVEPTR) SAVE RG 10-12 @XM01122 02984000 * /***********************************************************/ 02985000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 02986000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 02987000 * /* RECOVERY RECORD TO INDICATE THAT THE FREESTOR */ 02988000 * /* FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 02989000 * /***********************************************************/ 02990000 *FLGFSIN :DO; /*BGN OF FLGFSIN LOGIC SEGMENT */ 02991000 * 05S1398 02992000 * 05S1398 02993000 FLGFSIN DS 0H 05S1399 02994000 * DO; /* SETCRR FNID(CNSFREE)TYPE(SENTRY) */ 05S1399 02995000 * CRACRR->CNSFREEA='1'B; /*SET HISTORY FLAG*/ 05S1400 02996000 L @14,RPHCRR(,RPHPTR) 05S1400 02997000 L @14,CRACRR(,@14) 05S1400 02998000 OI CNSFREEA(@14),B'00001000' 05S1400 02999000 * CRACRR->CNSFREEB='1'B; /*SET CURRENT FLAG*/ 05S1401 03000000 OI CNSFREEB(@14),B'00001000' 05S1401 03001000 * END; /*SETCRR*/ 05S1402 03002000 * 05S1402 03003000 * END FLGFSIN; /*END OF FLGFSIN LOGIC SEGMENT */ 03004000 * RFY 04S1404 03005000 * (ACEPTR 04S1404 03006000 * ,ICEPTR 04S1404 03007000 * ,CSPPTR 04S1404 03008000 * ,ATCVTPTR) UNRSTD; 04S1404 03009000 * 04S1404 03010000 * IF WORK1<0 /*IF BUFFER CHAIN */ 03011000 * THEN 04S1405 03012000 LTR WORK1,WORK1 04S1405 03013000 BNM @RF01405 04S1405 03014000 * DO; 04S1406 03015000 * WORK1=-WORK1; /*RECOMPLIMENT ADDRESS */ 03016000 LCR WORK1,WORK1 04S1407 03017000 * /**********************************************************/ 03018000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 03019000 * /* THE RELSTORE MACRO TO REQUEST THAT A CHAIN OF */ 03020000 * /* BUFFER STORAGE AREAS BE RELEASED BY VTAM */ 03021000 * /* STORAGE MANAGEMENT FOR THE FREESTOR AND FREEST0 */ 03022000 * /* FUNCTIONS. */ 03023000 * /**********************************************************/ 03024000 *RELSTORF:DO; /*BGN OF RELSTORF LOGIC SEGMENT */ 03025000 * 05S1408 03026000 RELSTORF DS 0H 05S1409 03027000 * /*RELSTORE BUFADDR(WORK1)CHAIN(YES)CLEAR(YES)*/ 05S1409 03028000 * DO; 05S1409 03029000 */* ATBUILD (ISTATCVT,ISTRPH) */ 05S1410 03030000 */* END OF ATBUILD */ 05S1410 03031000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 05S1410 03032000 * RFY (GPR01P,GPR13P) RSTD; 05S1411 03033000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 05S1412 03034000 * 05S1412 03035000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 03036000 * RFY GPR13P UNRSTD; 05S1413 03037000 * GPR04P=WORK1 | '80000000'X; 05S1414 03038000 LR GPR04P,WORK1 05S1414 03039000 O GPR04P,@CF00201 05S1414 03040000 * DCL 1 FMZA0267 FIXED(31) STATIC LOCAL, 05S1415 03041000 * 2 * FIXED(8) INIT(80), 05S1415 03042000 * 2 * PTR(24) INIT(0); 05S1415 03043000 * GPR03F = FMZA0267; 05S1416 03044000 * 05S1416 03045000 L GPR03F,FMZA0267 05S1416 03046000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 05S1417 03047000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 05S1418 03048000 L GPR15P,ATCLCPTR 05S1418 03049000 * END; /*LISATCVT*/ 05S1419 03050000 * GPR02P = GPR15P->ATCBPDA; 05S1420 03051000 L GPR02P,ATCBPDA(,GPR15P) 05S1420 03052000 * GPR15P=GPR15P->ATCSMRS; 05S1421 03053000 L GPR15P,ATCSMRS(,GPR15P) 05S1421 03054000 * DCL FMZL0267 BASED(GPR15P) LABEL VALUERANGE(*); 05S1422 03055000 * CALL FMZL0267; 05S1423 03056000 BALR @14,@15 05S1423 03057000 * RFY GPR13P RSTD; 05S1424 03058000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 05S1425 03059000 * 05S1425 03060000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 03061000 * RFY (GPR01P,GPR13P) UNRSTD; 05S1426 03062000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 05S1427 03063000 * END ;/**********END OF RELSTORE EXPANSION**********/ 03064000 * 05S1428 03065000 * END RELSTORF; /*END OF RELSTORF LOGIC SEGMENT */ 03066000 * END; 04S1430 03067000 * ELSE /*CBS TO FREE, SO */ 03068000 * DO; 04S1431 03069000 B @RC01405 04S1431 03070000 @RF01405 DS 0H 04S1432 03071000 * IF RELID<0 /*IF SINGLE CB TO FREE */ 03072000 * THEN 04S1432 03073000 SLR @14,@14 04S1432 03074000 CR RELID,@14 04S1432 03075000 BNL @RF01432 04S1432 03076000 * DO; 04S1433 03077000 * CHAINFLD=0; /*SET END OF CHAIN IND */ 03078000 ST @14,CHAINFLD(,WORK) 04S1434 03079000 * RELID=ADDR(CHAINFLD)-WORK; 04S1435 03080000 LR RELID,WORK 04S1435 03081000 SLR RELID,WORK 04S1435 03082000 * /*GET OFFSET CHAIN FLD */ 03083000 * END; 04S1436 03084000 * LINKPTR=WORK; /*SETUP LOOP CONTROL */ 03085000 @RF01432 LR LINKPTR,WORK 04S1437 03086000 * STRGPTR=WORK; /*AND POINT TO BLOCKS */ 03087000 LR STRGPTR,WORK 04S1438 03088000 * WORK =RELID; /*PUT OFFSET IN UNCOR R */ 03089000 * 04S1439 03090000 LR WORK,RELID 04S1439 03091000 */* DOWHILE(LINKPTR^=0) */ 04S1440 03092000 * DO WHILE(LINKPTR^=0);/*FOR ALL CBS IN CHAIN * 03093000 B @DE01440 04S1440 03094000 @DL01440 DS 0H 04S1441 03095000 * LINKPTR=STRGPTR+WORK; 04S1441 03096000 LR LINKPTR,STRGPTR 04S1441 03097000 ALR LINKPTR,WORK 04S1441 03098000 * /*GET NEXT CB OFFSET */ 03099000 * LINKPTR=LINKPTR->ADDRESS; 04S1442 03100000 L LINKPTR,ADDRESS(,LINKPTR) 04S1442 03101000 * /*AND NEXT CB ADDRESS */ 03102000 * /**********************************************************/ 03103000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 03104000 * /* THE RELSTORE MACRO TO REQUEST THAT A SINGLE */ 03105000 * /* BLOCK STORAGE AREA BE RELEASED BY VTAM STORAGE */ 03106000 * /* MANAGEMENT FOR THE FREESTOR AND FREEST0 */ 03107000 * /* FUNCTIONS. */ 03108000 * /**********************************************************/ 03109000 *RELSTORM:DO; /*BGN OF RELSTORM LOGIC SEGMENT */ 03110000 * 05S1443 03111000 RELSTORM DS 0H 05S1444 03112000 * /*RELSTORE BUFADDR(STRGPTR)*/ 05S1444 03113000 * DO; 05S1444 03114000 */* ATBUILD (ISTATCVT,ISTRPH) */ 05S1445 03115000 */* END OF ATBUILD */ 05S1445 03116000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 05S1445 03117000 * RFY (GPR01P,GPR13P) RSTD; 05S1446 03118000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 05S1447 03119000 * 05S1447 03120000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 03121000 * RFY GPR13P UNRSTD; 05S1448 03122000 * GPR04P=STRGPTR; 05S1449 03123000 LR GPR04P,STRGPTR 05S1449 03124000 * DCL 1 FMZA0284 FIXED(31) STATIC LOCAL, 05S1450 03125000 * 2 * FIXED(8) INIT(64), 05S1450 03126000 * 2 * PTR(24) INIT(0); 05S1450 03127000 * GPR03F = FMZA0284; 05S1451 03128000 * 05S1451 03129000 L GPR03F,FMZA0284 05S1451 03130000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 05S1452 03131000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 05S1453 03132000 L GPR15P,ATCLCPTR 05S1453 03133000 * END; /*LISATCVT*/ 05S1454 03134000 * GPR02P = GPR15P->ATCBPDA; 05S1455 03135000 L GPR02P,ATCBPDA(,GPR15P) 05S1455 03136000 * GPR15P=GPR15P->ATCSMRS; 05S1456 03137000 L GPR15P,ATCSMRS(,GPR15P) 05S1456 03138000 * DCL FMZL0284 BASED(GPR15P) LABEL VALUERANGE(*); 05S1457 03139000 * CALL FMZL0284; 05S1458 03140000 BALR @14,@15 05S1458 03141000 * RFY GPR13P RSTD; 05S1459 03142000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 05S1460 03143000 * 05S1460 03144000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 03145000 * RFY (GPR01P,GPR13P) UNRSTD; 05S1461 03146000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 05S1462 03147000 * END ;/**********END OF RELSTORE EXPANSION**********/ 03148000 * 05S1463 03149000 * END RELSTORM; /*END OF RELSTORM LOGIC SEGMENT */ 03150000 * STRGPTR=LINKPTR; /*POINT AT NEXT CB */ 03151000 * 04S1465 03152000 LR STRGPTR,LINKPTR 04S1465 03153000 * END; /* END(DOWHILE) */ 04S1466 03154000 @DE01440 LTR LINKPTR,LINKPTR 04S1466 03155000 BNZ @DL01440 04S1466 03156000 *#DC00283:; /*AND CONTINUE FREEING */ 04S1467 03157000 #DC00283 DS 0H 04S1468 03158000 * END; 04S1468 03159000 * 04S1468 03160000 * RFY 04S1469 03161000 * (ACEPTR 04S1469 03162000 * ,ICEPTR 04S1469 03163000 * ,CSPPTR 04S1469 03164000 * ,ATCVTPTR) RSTD; 04S1469 03165000 @RC01405 DS 0H 04S1470 03166000 * /***********************************************************/ 03167000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 03168000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 03169000 * /* RECOVERY RECORD TO INDICATE THAT THE FREESTOR */ 03170000 * /* FUNCTION OF ISTCSCMR IS BEING EXITED. */ 03171000 * /***********************************************************/ 03172000 *FLGFSOUT:DO; /*BGN OF FLGFSOUT LOGIC SEGMENT */ 03173000 * 05S1470 03174000 * 05S1470 03175000 FLGFSOUT DS 0H 05S1471 03176000 * DO; /* SETCRR FNID(CNSFREE)TYPE(SEXIT) */ 05S1471 03177000 * CRACRR->CNSFREEB='0'B; /*TURN OFF CURRENT FLAG*/ 05S1472 03178000 L @14,RPHCRR(,RPHPTR) 05S1472 03179000 L @14,CRACRR(,@14) 05S1472 03180000 NI CNSFREEB(@14),B'11110111' 05S1472 03181000 * END; /*SETCRR*/ 05S1473 03182000 * 05S1473 03183000 * END FLGFSOUT; /*END OF FLGFSOUT LOGIC SEGMENT */ 03184000 * GEN SETS(R10,CSPPTR) 04S1475 03185000 * REFS(SAVE314,SAVEPTR); 04S1475 03186000 * 04S1475 03187000 LM R10,CSPPTR,SAVE314(SAVEPTR) REST RG 10-12 03188000 * RFY 04S1476 03189000 * RETR RSTD; 04S1476 03190000 * RETR=SAVE214; /*RESTORE RETURN ADDRESS */ 03191000 L RETR,SAVE214(,SAVEPTR) 04S1477 03192000 * RFY 04S1478 03193000 * RETR UNRSTD; 04S1478 03194000 * 04S1478 03195000 * END FRESTCOM; /*END OF FRESTCOM LOGIC SEGMENT */ 03196000 * BASEREG=SAVE312; /*RESTORE BASEREG @XM01122*/ 03197000 L BASEREG,SAVE312(,SAVEPTR) 03S1480 03198000 * GEN SETS(ENTRYREG,WORK) 03S1481 03199000 * REFS(SAVE215,SAVEPTR); 03S1481 03200000 LM ENTRYREG,WORK,SAVE215(SAVEPTR) REST RG 15-07 03201000 * RFY 03S1482 03202000 * (RELID 03S1482 03203000 * ,STRGPTR 03S1482 03204000 * ,LINKPTR 03S1482 03205000 * ,WORK1 ) UNRSTD; 03S1482 03206000 * 03S1482 03207000 * END FREESTOR; 03S1483 03208000 @EL00012 DS 0H 03S1483 03209000 @EF00012 DS 0H 03S1483 03210000 @ER00012 BR @14 03S1483 03211000 @PB00012 DS 0H 03S1484 03212000 * GEN (EJECT); 02S1484 03213000 EJECT 03214000 * /***********************************************************/ 03215000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO */ 03216000 * /* PROVIDE TWO ENTRY POINTS (ONE FOR CALLERS */ 03217000 * /* EXTERNAL TO THE MASTER ROUTER, THE OTHER */ 03218000 * /* FOR LOGON0) FOR THE DOACCT FUNCTION AND */ 03219000 * /* TO INCLUDE THE COMMON LOGIC TO INVOKE THE */ 03220000 * /* INSTALLATION SUPPLIED ACCOUNTING EXIT */ 03221000 * /* ROUTINE, IF SUPPLIED. THE ENTRY POINTS */ 03222000 * /* ARE: */ 03223000 * /* */ 03224000 * /* DOACCT - EXTERNAL CALLERS ENTRY POINT */ 03225000 * /* DOACCT0 - LOGON0 CALLERS ENTRY POINT */ 03226000 * /***********************************************************/ 03227000 *DOACCT :PROC OPTIONS(NOSAVE); 03S1485 03228000 * 03S1485 03229000 B @PB00013 03S1485 03230000 DOACCT DS 0H 03S1486 03231000 * RFY 03S1486 03232000 * (RELID 03S1486 03233000 * ,WORK 03S1486 03234000 * ,TERMPTR) RSTD; 03S1486 03235000 * SAVE212=BASEREG; /*SAVE BASEREG @XM01122*/ 03236000 ST BASEREG,SAVE212(,SAVEPTR) 03S1487 03237000 * GEN SETS(SAVE215) 03S1488 03238000 * REFS(ENTRYREG,WORK,SAVEPTR); 03S1488 03239000 STM ENTRYREG,WORK,SAVE215(SAVEPTR) SAVE RG 15-07 03240000 *DOACCT0 :; 03S1489 03241000 DOACCT0 DS 0H 03S1490 03242000 * /***********************************************************/ 03243000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 03244000 * /* THE INSTALLATION SUPPLIED ACCOUNTING EXIT RTN, */ 03245000 * /* IF PRESENT, TO RECORD A MAKE OR BREAK SESSION */ 03246000 * /* FOR THE DOACCT AND DOACCT0 FUNCTIONS. */ 03247000 * /***********************************************************/ 03248000 *DACCTCOM:DO; /*BGN OF DACCTCOM LOGIC SEGMENT */ 03249000 * 04S1490 03250000 DACCTCOM DS 0H 04S1491 03251000 * RFY 04S1491 03252000 * RETR RSTD; 04S1491 03253000 * SAVE214=RETR; /*SAVE RETURN ADDRESS */ 03254000 ST RETR,SAVE214(,SAVEPTR) 04S1492 03255000 * RFY 04S1493 03256000 * RETR UNRSTD; 04S1493 03257000 * 04S1493 03258000 * BASEREG=ATCCSMA; /*ESTABLISH ADDRESSABIL */ 03259000 * 04S1494 03260000 * 04S1494 03261000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S1494 03262000 * DO; /* BLOCK */ /*BGN OF LOGIC BLOCK SG 03263000 * */ 04S1495 03264000 * RELID=0; /*SETUP MAKE/BREAK/NOP 04S1496 03265000 * INDICATOR */ 03266000 * 04S1496 03267000 SLR RELID,RELID 04S1496 03268000 */* LEAVE(BLOCK) ON(TRMPTR<0)ANDDO */ 04S1497 03269000 * IF (TRMPTR<0) THEN 04S1497 03270000 LTR TRMPTR,TRMPTR 04S1497 03271000 BNM @RF01497 04S1497 03272000 * DO;/*FOR BREAK */ 04S1498 03273000 * RELID =-1; /*OPERATION SETUP PARMS */ 03274000 SLR RELID,RELID 04S1499 03275000 BCTR RELID,0 04S1499 03276000 * CSPPTR=-TRMPTR; /*FOR ACCT EXIT RTN AND */ 03277000 * 04S1500 03278000 LCR CSPPTR,TRMPTR 04S1500 03279000 * GOTO #BC00303; /* END(LEAVE) */ 04S1501 03280000 B #BC00303 04S1501 03281000 * END; /*EXIT LOGIC BLOCK */ 03282000 * RELID =+1; /*OPERATION SETUP PARMS */ 03283000 @RF01497 LA RELID,1 04S1503 03284000 * CSPPTR=+TRMPTR; /*FOR ACCT EXIT RTN AND */ 03285000 * 04S1504 03286000 LR CSPPTR,TRMPTR 04S1504 03287000 * END; /* END(BLOCK) */ 04S1505 03288000 *#BC00303:; /*END OF LOGIC BLOCK SG */ 04S1506 03289000 * 04S1506 03290000 #BC00303 DS 0H 04S1507 03291000 * IF RELID^=0 /*IF NOP OP NOT SET */ 03292000 * THEN 04S1507 03293000 LTR RELID,RELID 04S1507 03294000 BZ @RF01507 04S1507 03295000 * DO; 04S1508 03296000 * RFY 04S1509 03297000 * ENTRYREG RSTD; 04S1509 03298000 * WORK =RAPPTR; /*SETUP */ 03299000 LR WORK,RAPPTR 04S1510 03300000 * ENTRYREG=ATCACCTA; /* FOR */ 03301000 L ENTRYREG,ATCACCTA(,ATCVTPTR) 04S1511 03302000 * SAVEPTR =SAVEPTR+LNGTHSAV; 04S1512 03303000 AH SAVEPTR,@CH03523 04S1512 03304000 * /* CALL */ 03305000 * /***********************************************************/ 03306000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 03307000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 03308000 * /* RECOVERY RECORD TO INDICATE THAT THE DOACCT */ 03309000 * /* FUNCTION OF ISTCSCMR HAS BEEN ENTERED. */ 03310000 * /***********************************************************/ 03311000 *FLGDAIN :DO; /*BGN OF FLGDAIN LOGIC SEGMENT */ 03312000 * 05S1513 03313000 * 05S1513 03314000 FLGDAIN DS 0H 05S1514 03315000 * DO; /* SETCRR FNID(CNSACCT)TYPE(SENTRY) */ 05S1514 03316000 * CRACRR->CNSACCTA='1'B; /*SET HISTORY FLAG*/ 05S1515 03317000 L @14,RPHCRR(,RPHPTR) 05S1515 03318000 L @14,CRACRR(,@14) 05S1515 03319000 OI CNSACCTA(@14),B'00000100' 05S1515 03320000 * CRACRR->CNSACCTB='1'B; /*SET CURRENT FLAG*/ 05S1516 03321000 OI CNSACCTB(@14),B'00000100' 05S1516 03322000 * END; /*SETCRR*/ 05S1517 03323000 * 05S1517 03324000 * END FLGDAIN; /*END OF FLGDAIN LOGIC SEGMENT */ 03325000 * /* INSTALLATION */ 03326000 * RAPPTR =PARMPTR; /* ACCOUNTING */ 03327000 LR RAPPTR,PARMPTR 04S1519 03328000 * PARMPTR =RPHCSPA; /* ROUTINE */ 03329000 L PARMPTR,RPHCSPA(,RPHPTR) 04S1520 03330000 * CALL MNTRN; /*CALL EXIT ROUTINE */ 03331000 BALR @14,@15 04S1521 03332000 * RFY 04S1522 03333000 * ENTRYREG UNRSTD; 04S1522 03334000 * BASEREG =ATCCSMA; /*RESTORE */ 03335000 L BASEREG,ATCCSMA(,ATCVTPTR) 04S1523 03336000 * GEN SETS(TRMPTR) REFS(CSPPTR); /*@XM01118*/ 03337000 LPR TRMPTR,CSPPTR INSUR POSITIVE TRMPTR RESTD @XM01118 03338000 * CSPPTR =PARMPTR; /* VARIABLES */ 03339000 LR CSPPTR,PARMPTR 04S1525 03340000 * PARMPTR =RAPPTR; /* CHANGED */ 03341000 LR PARMPTR,RAPPTR 04S1526 03342000 * RAPPTR =CSPSRC; /* FOR */ 03343000 L RAPPTR,CSPSRC(,CSPPTR) 04S1527 03344000 * SAVEPTR =SAVEPTR-LNGTHSAV; 04S1528 03345000 SH SAVEPTR,@CH03523 04S1528 03346000 * /* EXIT */ 03347000 * /***********************************************************/ 03348000 * /* THE FUNCTION OF THIS LOGIC SEGMENT IS TO INVOKE */ 03349000 * /* THE SETCRR MACRO TO FLAG THE CONNECTION SERVICE */ 03350000 * /* RECOVERY RECORD TO INDICATE THAT THE DOACCT */ 03351000 * /* FUNCTION OF ISTCSCMR IS BEING EXITED. */ 03352000 * /***********************************************************/ 03353000 *FLGDAOUT:DO; /*BGN OF FLGDAOUT LOGIC SEGMENT */ 03354000 * 05S1529 03355000 * 05S1529 03356000 FLGDAOUT DS 0H 05S1530 03357000 * DO; /* SETCRR FNID(CNSACCT)TYPE(SEXIT) */ 05S1530 03358000 * CRACRR->CNSACCTB='0'B; /*TURN OFF CURRENT FLAG*/ 05S1531 03359000 L @05,RPHCRR(,RPHPTR) 05S1531 03360000 L @05,CRACRR(,@05) 05S1531 03361000 NI CNSACCTB(@05),B'11111011' 05S1531 03362000 * END; /*SETCRR*/ 05S1532 03363000 * 05S1532 03364000 * END FLGDAOUT; /*END OF FLGDAOUT LOGIC SEGMENT */ 03365000 * /* ROUTINE */ 03366000 * END; 04S1534 03367000 * 04S1534 03368000 * RFY 04S1535 03369000 * RETR RSTD; 04S1535 03370000 @RF01507 DS 0H 04S1536 03371000 * RETR=SAVE214; /*RESTORE RETURN ADDRESS */ 03372000 L RETR,SAVE214(,SAVEPTR) 04S1536 03373000 * RFY 04S1537 03374000 * RETR UNRSTD; 04S1537 03375000 * 04S1537 03376000 * END DACCTCOM; /*END OF DACCTCOM LOGIC SEGMENT */ 03377000 * BASEREG=SAVE212; /*RESTORE BASEREG @XM01122*/ 03378000 L BASEREG,SAVE212(,SAVEPTR) 03S1539 03379000 * GEN SETS(ENTRYREG,WORK) 03S1540 03380000 * REFS(SAVE215,SAVEPTR); 03S1540 03381000 LM ENTRYREG,WORK,SAVE215(SAVEPTR) REST RG 15-07 03382000 * RFY 03S1541 03383000 * (RELID 03S1541 03384000 * ,WORK 03S1541 03385000 * ,TERMPTR) UNRSTD; 03S1541 03386000 * 03S1541 03387000 * END DOACCT; 03S1542 03388000 @EL00013 DS 0H 03S1542 03389000 @EF00013 DS 0H 03S1542 03390000 @ER00013 BR @14 03S1542 03391000 @PB00013 DS 0H 03S1543 03392000 * 01S1543 03393000 */* TPEPILOG */ 01S1543 03394000 * GEN (PRINT OFF); 01S1543 03395000 * 01S1543 03396000 PRINT OFF 03397000 * DCL ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*); /*RESET ROUTINE*/ 03398000 * DCL ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*); /*TPQUE ROUTINE*/ 03399000 * GEN (PRINT ON); 01S1546 03400000 PRINT ON 03401000 */* END OF TPEPILOG */ 01S1547 03402000 */* ATDSPLY INVOKED. */ 01S1547 03403000 */********************************************************************/ 03404000 */* THE FOLLOWING ATBUILD INCLUSIONS HAVE BEEN MADE IN THIS */ 03405000 */* COMPILATION: */ 03406000 */* ISTRPH */ 03407000 */* ISTICE */ 03408000 */* ISTACE */ 03409000 */* ISTPAB */ 03410000 */* ISTLOK */ 03411000 */* ISTDYPAB */ 03412000 */* ISTATCVT */ 03413000 */* ISTDEVCH */ 03414000 */* ISTRDT */ 03415000 */* ISTPFCRR */ 03416000 */* ISTCNSTA */ 03417000 */* ISTLCCW */ 03418000 */* ISTLCPB */ 03419000 */* ISTZSAVE */ 03420000 */* ISTCFCRR */ 03421000 */* ISTZCRR */ 03422000 */* ISTASCRR */ 03423000 */* ISTAPCRR */ 03424000 */* ISTCRA */ 03425000 */* ISTACDEB */ 03426000 */* ISTBIND */ 03427000 */* ISTBFHDR */ 03428000 */* ISTLGPFX */ 03429000 */* ISTUECB */ 03430000 */* ISTCSP */ 03431000 */* ISTCSL */ 03432000 */********************************************************************/ 03433000 */* END OF ATDSPLY. */ 01S1547 03434000 * END ISTCSCMR /*@XM07935*/ 03435000 * /*@XM01122*/ 03436000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 03437000 */*%INCLUDE SYSUT5 (PROLOG ) * 03438000 */*%INCLUDE SYSLIB (CVT ) * 03439000 */*%INCLUDE SYSUT5 (MAINLINE) * 03440000 */*%INCLUDE SYSUT5 (MSTREENV) * 03441000 */*%INCLUDE SYSUT5 (FINDCVT ) * 03442000 */*%INCLUDE SYSUT5 (FLGMRIN ) * 03443000 */*%INCLUDE SYSUT5 (CHECPARM) * 03444000 */*%INCLUDE SYSUT5 (CHECAUTH) * 03445000 */*%INCLUDE SYSUT5 (FLGAUIN ) * 03446000 */*%INCLUDE SYSUT5 (FLGAUOUT) * 03447000 */*%INCLUDE SYSUT5 (CALLFUNC) * 03448000 */*%INCLUDE SYSUT5 (MSTRXENV) * 03449000 */*%INCLUDE SYSUT5 (FLGMROUT) * 03450000 */*%INCLUDE SYSUT5 (CHECRDTE) * 03451000 */*%INCLUDE SYSUT5 (MSUBRTNS) * 03452000 */*%INCLUDE SYSUT5 (WAIT ) * 03453000 */*%INCLUDE SYSUT5 (TPUN1 ) * 03454000 */*%INCLUDE SYSUT5 (TPUN2 ) * 03455000 */*%INCLUDE SYSUT5 (TPWAIM ) * 03456000 */*%INCLUDE SYSUT5 (POST ) * 03457000 */*%INCLUDE SYSUT5 (TPOM ) * 03458000 */*%INCLUDE SYSUT5 (QUEUE ) * 03459000 */*%INCLUDE SYSUT5 (QUEUECOM) * 03460000 */*%INCLUDE SYSUT5 (FLGQUIN ) * 03461000 */*%INCLUDE SYSUT5 (FLGQUOUT) * 03462000 */*%INCLUDE SYSUT5 (SEARCHQ ) * 03463000 */*%INCLUDE SYSUT5 (SRCHQCOM) * 03464000 */*%INCLUDE SYSUT5 (FLGSQIN ) * 03465000 */*%INCLUDE SYSUT5 (FLGSQOUT) * 03466000 */*%INCLUDE SYSUT5 (TCONNECT) * 03467000 */*%INCLUDE SYSUT5 (TCONNCOM) * 03468000 */*%INCLUDE SYSUT5 (FLGTCIN ) * 03469000 */*%INCLUDE SYSUT5 (CLRACEF ) * 03470000 */*%INCLUDE SYSUT5 (FLGTCOUT) * 03471000 */*%INCLUDE SYSUT5 (ACONNECT) * 03472000 */*%INCLUDE SYSUT5 (ACONNCOM) * 03473000 */*%INCLUDE SYSUT5 (FLGACIN ) * 03474000 */*%INCLUDE SYSUT5 (ACADDQAB) * 03475000 */*%INCLUDE SYSUT5 (FLGACOUT) * 03476000 */*%INCLUDE SYSUT5 (GETSTORE) * 03477000 */*%INCLUDE SYSUT5 (FLGGSIN ) * 03478000 */*%INCLUDE SYSUT5 (REQSTOR1) * 03479000 */*%INCLUDE SYSUT5 (RELSTORG) * 03480000 */*%INCLUDE SYSUT5 (REQSTOR2) * 03481000 */*%INCLUDE SYSUT5 (RELSTOR ) * 03482000 */*%INCLUDE SYSUT5 (FLGGSOUT) * 03483000 */*%INCLUDE SYSUT5 (LOGON0 ) * 03484000 */*%INCLUDE SYSUT5 (LGN0EENV) * 03485000 */*%INCLUDE SYSUT5 (FLGL0IN ) * 03486000 */*%INCLUDE SYSUT5 (QLGNICE ) * 03487000 */*%INCLUDE SYSUT5 (TRYMATCH) * 03488000 */*%INCLUDE SYSUT5 (DQACC ) * 03489000 */*%INCLUDE SYSUT5 (MATCH ) * 03490000 */*%INCLUDE SYSUT5 (SCHDLGX ) * 03491000 */*%INCLUDE SYSUT5 (UECBINIT) * 03492000 */*%INCLUDE SYSUT5 (UECBINIT) * 03493000 */*%INCLUDE SYSUT5 (LG0TPQ ) * 03494000 */*%INCLUDE SYSUT5 (LGN0XENV) * 03495000 */*%INCLUDE SYSUT5 (FLGL0OUT) * 03496000 */*%INCLUDE SYSUT5 (TPQ ) * 03497000 */*%INCLUDE SYSUT5 (TPQUM ) * 03498000 */*%INCLUDE SYSUT5 (FREESTOR) * 03499000 */*%INCLUDE SYSUT5 (FRESTCOM) * 03500000 */*%INCLUDE SYSUT5 (FLGFSIN ) * 03501000 */*%INCLUDE SYSUT5 (RELSTORF) * 03502000 */*%INCLUDE SYSUT5 (RELSTORM) * 03503000 */*%INCLUDE SYSUT5 (FLGFSOUT) * 03504000 */*%INCLUDE SYSUT5 (DOACCT ) * 03505000 */*%INCLUDE SYSUT5 (DACCTCOM) * 03506000 */*%INCLUDE SYSUT5 (FLGDAIN ) * 03507000 */*%INCLUDE SYSUT5 (FLGDAOUT) * 03508000 *; 01S1547 03509000 B @EL00001 01S1547 03510000 @DATA DS 0H 03511000 @CH00619 DC H'0' 03512000 @CH00069 DC H'3' 03513000 @CH00440 DC H'12' 03514000 @CH00095 DC H'64' 03515000 @CH03523 DC H'144' 03516000 @DATD DSECT 03517000 DS 0F 03518000 ISTCSCMR CSECT 03519000 DS 0F 03520000 @CF00038 DC F'1' 03521000 @CH00038 EQU @CF00038+2 03522000 @CF00075 DC F'4' 03523000 @CH00075 EQU @CF00075+2 03524000 @CF00040 DC F'8' 03525000 @CH00040 EQU @CF00040+2 03526000 @CF00129 DC XL4'08000000' 03527000 @CF00133 DC XL4'04000000' 03528000 @CF00201 DC XL4'80000000' 03529000 @CF03620 DC XL4'00FFFFFF' 03530000 @DATD DSECT 03531000 DS 0D 03532000 LCPBPTR DS A 03533000 CVTPTR DS A 03534000 ISTSCCCL DS F 03535000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 03536000 @ENDDATD EQU * 03537000 ISTCSCMR CSECT 03538000 DS 0F 03539000 @SIZDATD DC AL1(0) 03540000 DC AL3(@ENDDATD-@DATD) 03541000 @CV03507 DC V(ISTCSCAC) 03542000 @CV03508 DC V(ISTCSCAQ) 03543000 @CV03510 DC V(ISTCSCLG) 03544000 @CV03511 DC V(ISTCSCPS) 03545000 @CV03512 DC V(ISTCSCRL) 03546000 @CV03509 DC V(ISTCSCCL) 03547000 DS 0D 03548000 FMZA0130 DS FL4 03549000 ORG FMZA0130 03550000 @NM00052 DC AL1(152) 03551000 @NM00053 DC AL3(0) 03552000 ORG FMZA0130+4 03553000 FMZA0151 DS FL4 03554000 ORG FMZA0151 03555000 @NM00054 DC AL1(64) 03556000 @NM00055 DC AL3(0) 03557000 ORG FMZA0151+4 03558000 FMZA0170 DS FL4 03559000 ORG FMZA0170 03560000 @NM00056 DC AL1(152) 03561000 @NM00057 DC AL3(0) 03562000 ORG FMZA0170+4 03563000 FMZA0191 DS FL4 03564000 ORG FMZA0191 03565000 @NM00058 DC AL1(64) 03566000 @NM00059 DC AL3(0) 03567000 ORG FMZA0191+4 03568000 FMZA0209 DS FL4 03569000 ORG FMZA0209 03570000 @NM00060 DC AL1(64) 03571000 @NM00061 DC AL3(0) 03572000 ORG FMZA0209+4 03573000 FMZA0267 DS FL4 03574000 ORG FMZA0267 03575000 @NM00062 DC AL1(80) 03576000 @NM00063 DC AL3(0) 03577000 ORG FMZA0267+4 03578000 FMZA0284 DS FL4 03579000 ORG FMZA0284 03580000 @NM00064 DC AL1(64) 03581000 @NM00065 DC AL3(0) 03582000 ORG FMZA0284+4 03583000 MASKFLAG DC X'2000' 03584000 DC X'2002' 03585000 DC X'2002' 03586000 DC X'0003' 03587000 DC X'0002' 03588000 DC X'2002' 03589000 DC X'2003' 03590000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03591000 @01 EQU 01 03592000 @02 EQU 02 03593000 @03 EQU 03 03594000 @04 EQU 04 03595000 @05 EQU 05 03596000 @06 EQU 06 03597000 @07 EQU 07 03598000 @08 EQU 08 03599000 @09 EQU 09 03600000 @10 EQU 10 03601000 @11 EQU 11 03602000 @12 EQU 12 03603000 @13 EQU 13 03604000 @14 EQU 14 03605000 @15 EQU 15 03606000 RPHPTR EQU @01 03607000 TERMPTR EQU @08 03608000 UECBPTR EQU @07 03609000 ATCVTPTR EQU @06 03610000 CSPPTR EQU @11 03611000 ACEPTR EQU @10 03612000 RAPPTR EQU @09 03613000 ICEPTR EQU @10 03614000 ACDEBPTR EQU @04 03615000 PABPTR EQU @04 03616000 TRMPTR EQU @08 03617000 RCPREPTR EQU @08 03618000 RPREPTR EQU @08 03619000 BASEREG EQU @12 03620000 PARMPTR EQU @01 03621000 REQCE EQU @08 03622000 REQUECB EQU @09 03623000 RETR EQU @14 03624000 ENTRYREG EQU @15 03625000 RETSAVR EQU @15 03626000 RRET EQU @15 03627000 SAVEPTR EQU @13 03628000 LISTCT EQU @00 03629000 RELID EQU @00 03630000 WORK EQU @07 03631000 WORK1 EQU @07 03632000 RELSTPTR EQU @07 03633000 THISRPH EQU @07 03634000 NEXTRPH EQU @08 03635000 R2 EQU @02 03636000 R3 EQU @03 03637000 R4 EQU @04 03638000 R5 EQU @05 03639000 R0 EQU @00 03640000 R10 EQU @10 03641000 RALLOC EQU @03 03642000 RALLOC1 EQU @03 03643000 CHEAD EQU @02 03644000 LINKOFF EQU @03 03645000 STRGPTR EQU @03 03646000 COMPOFF EQU @04 03647000 NOBLOCKS EQU @04 03648000 LINKPTR EQU @04 03649000 COMPVAL EQU @05 03650000 RETVAL EQU @15 03651000 GPR00F EQU @00 03652000 GPR00P EQU @00 03653000 GPR01F EQU @01 03654000 GPR01P EQU @01 03655000 GPR02F EQU @02 03656000 GPR02P EQU @02 03657000 GPR03F EQU @03 03658000 GPR03P EQU @03 03659000 GPR04F EQU @04 03660000 GPR04P EQU @04 03661000 GPR05F EQU @05 03662000 GPR05P EQU @05 03663000 GPR06F EQU @06 03664000 GPR06P EQU @06 03665000 GPR07P EQU @07 03666000 GPR08P EQU @08 03667000 GPR09P EQU @09 03668000 GPR10P EQU @10 03669000 GPR11P EQU @11 03670000 GPR12P EQU @12 03671000 GPR13P EQU @13 03672000 GPR14F EQU @14 03673000 GPR14P EQU @14 03674000 GPR15F EQU @15 03675000 GPR15P EQU @15 03676000 GPR07F EQU @07 03677000 GPR08F EQU @08 03678000 GPR09F EQU @09 03679000 GPR10F EQU @10 03680000 GPR11F EQU @11 03681000 GPR12F EQU @12 03682000 GPR13F EQU @13 03683000 R11 EQU @11 03684000 R8 EQU @08 03685000 R9 EQU @09 03686000 ENTRY QUEUE0 03687000 ENTRY SEARCHQ0 03688000 ENTRY TCONNEC0 03689000 ENTRY ACONNEC0 03690000 ENTRY FREEST0 03691000 ENTRY DOACCT0 03692000 ATCLCPTR EQU 1032 03693000 ISTRPH EQU 0 03694000 RPHCNTL EQU ISTRPH 03695000 RPHFLAGS EQU RPHCNTL+2 03696000 RPHAPTYP EQU RPHFLAGS 03697000 RPHFSTLC EQU RPHFLAGS 03698000 RPHFLGB EQU RPHCNTL+3 03699000 RPHRPHA EQU ISTRPH+4 03700000 RPHTSKID EQU ISTRPH+8 03701000 RPHRESMA EQU ISTRPH+16 03702000 RPHWPFLG EQU RPHRESMA 03703000 RPHWT EQU RPHWPFLG 03704000 RPHPABOF EQU ISTRPH+20 03705000 RPHMAJCB EQU ISTRPH+21 03706000 RPHWEA EQU ISTRPH+24 03707000 RPHCSPA EQU RPHWEA 03708000 RPHSRPRM EQU ISTRPH+28 03709000 RPHCRR EQU ISTRPH+32 03710000 RPHPABQA EQU ISTRPH+36 03711000 RPHPABQP EQU RPHPABQA+1 03712000 RPHWORK EQU ISTRPH+40 03713000 RPHSAVE1 EQU RPHWORK 03714000 RPHSBITS EQU RPHSAVE1+1 03715000 RPHSAVE2 EQU RPHWORK+4 03716000 RPHSAVE3 EQU RPHWORK+8 03717000 RPHSAVE4 EQU RPHWORK+12 03718000 RPHNEXPO EQU ISTRPH+104 03719000 ISTICE EQU 0 03720000 ICESUBJ EQU ISTICE 03721000 ICEOBJ EQU ISTICE+4 03722000 ICESUBJQ EQU ISTICE+8 03723000 ICEOBJQ EQU ISTICE+12 03724000 ICEDATA EQU ISTICE+20 03725000 ICERPHA EQU ISTICE+24 03726000 ICEFLAGS EQU ISTICE+28 03727000 ICERSC2F EQU ICEFLAGS 03728000 ICEUECBX EQU ISTICE+32 03729000 ICERSC2B EQU ISTICE+36 03730000 ISTACE EQU 0 03731000 ACESUBJ EQU ISTACE 03732000 ACEOBJ EQU ISTACE+4 03733000 ACESUBJQ EQU ISTACE+8 03734000 ACEOBJQ EQU ISTACE+12 03735000 ACERPHA EQU ISTACE+16 03736000 ACEFLAGS EQU ISTACE+20 03737000 ISTPAB EQU 0 03738000 PABWQCHN EQU ISTPAB 03739000 PABWEQA EQU PABWQCHN 03740000 PABCHAIN EQU PABWQCHN+4 03741000 PABCHNGP EQU PABCHAIN+1 03742000 PABOFFST EQU ISTPAB+8 03743000 PABDVTA EQU ISTPAB+9 03744000 PABRPHFG EQU ISTPAB+12 03745000 PABFLAGS EQU PABRPHFG 03746000 PABAPYP EQU PABFLAGS 03747000 PABDYNAM EQU PABFLAGS 03748000 PABERLCK EQU PABFLAGS 03749000 PABERRLK EQU PABERLCK 03750000 ISTLOK EQU 0 03751000 LOKCHN EQU ISTLOK+1 03752000 LOKCHNG EQU LOKCHN 03753000 @NM00008 EQU LOKCHNG+2 03754000 ISTDYPAB EQU 0 03755000 ISTATCVT EQU 0 03756000 ATCCOM EQU ISTATCVT 03757000 ATCSTAT EQU ATCCOM 03758000 ATCSTAT1 EQU ATCSTAT 03759000 ATCSTFLG EQU ATCSTAT+1 03760000 ATCPOFLG EQU ATCSTAT+2 03761000 ATCSTAT4 EQU ATCSTAT+3 03762000 ATCACCTA EQU ATCCOM+100 03763000 ATCAUTHA EQU ATCCOM+104 03764000 ATCBPDA EQU ATCCOM+128 03765000 ATCIOTRC EQU ATCCOM+140 03766000 ATCTHTRC EQU ATCIOTRC 03767000 ATCSMRQ EQU ATCCOM+180 03768000 ATCSMRS EQU ATCCOM+188 03769000 ATCACTRM EQU ATCCOM+264 03770000 ATCCSMR EQU ISTATCVT+296 03771000 ATCCSMA EQU ATCCSMR 03772000 ATCUEP EQU ISTATCVT+304 03773000 ATCSHRFG EQU ISTATCVT+316 03774000 ATCHPGM EQU ISTATCVT+384 03775000 ATCAP33 EQU ISTATCVT+444 03776000 ATCVOCLK EQU ISTATCVT+468 03777000 ATCRDTLK EQU ISTATCVT+472 03778000 ATCVLCNT EQU ISTATCVT+772 03779000 ATCRNO EQU ISTATCVT+788 03780000 ATCSOPD EQU ISTATCVT+792 03781000 ATCSIPD EQU ISTATCVT+800 03782000 ATCSECST EQU ISTATCVT+812 03783000 ATCSTAT2 EQU ISTATCVT+818 03784000 ATCVTBAM EQU ISTATCVT+908 03785000 @NM00016 EQU ATCVTBAM+3 03786000 ATCAOSM EQU ISTATCVT+912 03787000 ATCGSRBQ EQU ATCAOSM+4 03788000 ATCGSRBG EQU ATCGSRBQ 03789000 ATCAP31 EQU ATCAOSM+24 03790000 ATCAP32 EQU ATCAOSM+28 03791000 ATCAP34 EQU ATCAOSM+32 03792000 ATCICAPP EQU ATCAOSM+100 03793000 ATCLDAPP EQU ATCAOSM+120 03794000 ATCDAPVT EQU ATCAOSM+140 03795000 ATCAP37 EQU ATCAOSM+264 03796000 ATCCRA EQU ATCAOSM+280 03797000 ATCCRACN EQU ATCCRA+4 03798000 ATCSRB EQU ATCAOSM+288 03799000 ATCSRBCN EQU ATCSRB+4 03800000 ATCCRPL EQU ATCAOSM+296 03801000 ATCRPLCN EQU ATCCRPL+4 03802000 ATCVTFLG EQU ATCAOSM+392 03803000 ATCSMAID EQU ATCAOSM+416 03804000 ATCZFLAG EQU ATCAOSM+588 03805000 ISTDEVCH EQU 0 03806000 DEVSHCH EQU ISTDEVCH 03807000 DEVCHAR EQU DEVSHCH 03808000 DEVTCODE EQU ISTDEVCH+1 03809000 DEVFLAGS EQU ISTDEVCH+3 03810000 DEVFCCTL EQU DEVFLAGS 03811000 DEVCHAR3 EQU DEVFLAGS 03812000 ISTRPRE EQU 0 03813000 RPRNAME EQU ISTRPRE 03814000 RPRCOMID EQU ISTRPRE+8 03815000 RPRENTRY EQU ISTRPRE+20 03816000 RPRFLAGA EQU ISTRPRE+21 03817000 RPRACT EQU RPRFLAGA 03818000 RPRTIED EQU RPRFLAGA 03819000 RPRFLAGB EQU ISTRPRE+22 03820000 RPRCAUSE EQU ISTRPRE+23 03821000 RPRSTPCT EQU ISTRPRE+56 03822000 RPRFLAGD EQU ISTRPRE+61 03823000 RPRFLAGC EQU ISTRPRE+62 03824000 ISTRCPRE EQU 0 03825000 RCPICELN EQU ISTRCPRE+72 03826000 RCPACETR EQU ISTRCPRE+84 03827000 RCPPMODE EQU ISTRCPRE+91 03828000 RCPLGNIN EQU ISTRCPRE+92 03829000 ISTRDT EQU 0 03830000 RDTPLEN EQU ISTRDT+72 03831000 RDTPRIOR EQU RDTPLEN 03832000 RDTFLAGB EQU ISTRDT+91 03833000 RDTVYRPH EQU ISTRDT+108 03834000 RDTSTCNT EQU ISTRDT+112 03835000 ISTRAP EQU 0 03836000 RAPACBA EQU ISTRAP+72 03837000 RAPACDEB EQU ISTRAP+76 03838000 RAPICELG EQU ISTRAP+88 03839000 RAPICEAC EQU ISTRAP+92 03840000 RAPACEAP EQU ISTRAP+100 03841000 RAPACEQD EQU ISTRAP+106 03842000 RAPFLG EQU ISTRAP+108 03843000 RAPFLGB EQU ISTRAP+109 03844000 RAPFLGC EQU ISTRAP+110 03845000 ISTRLC EQU 0 03846000 RLCADR EQU ISTRLC+72 03847000 RLCFLAG EQU RLCADR 03848000 ISTRRN EQU 0 03849000 RRNADR EQU ISTRRN+136 03850000 RRNFLAG EQU RRNADR 03851000 RRNUCBAD EQU RRNADR+1 03852000 RRNRDF EQU ISTRRN+172 03853000 RRNRDFA EQU RRNRDF 03854000 RRNRDFB EQU RRNRDF+1 03855000 RRNCMF EQU ISTRRN+176 03856000 RRNCMFA EQU RRNCMF 03857000 RRNCMFB EQU RRNCMF+1 03858000 RRNCMFC EQU RRNCMF+2 03859000 RRNCMFD EQU RRNCMF+3 03860000 RRNNMDPD EQU ISTRRN+192 03861000 RRNHPRE EQU ISTRRN+216 03862000 ISTRGP EQU 0 03863000 RGPFLG EQU ISTRGP+72 03864000 ISTRLN EQU 0 03865000 RLNADR EQU ISTRLN+72 03866000 RLNFLAG EQU RLNADR 03867000 RLNUCBAD EQU RLNADR+1 03868000 RLNSTAT1 EQU ISTRLN+86 03869000 RLNSTAT2 EQU ISTRLN+87 03870000 RLNRDF EQU ISTRLN+88 03871000 RLNRDFA EQU RLNRDF 03872000 RLNRACNT EQU RLNRDFA 03873000 RLNRDFB EQU RLNRDF+1 03874000 RLNCRFLG EQU ISTRLN+102 03875000 RLNLSCMD EQU RLNCRFLG 03876000 ISTRPT EQU 0 03877000 RPTLNCID EQU ISTRPT+116 03878000 RPTDITT EQU ISTRPT+128 03879000 RPTFLAG1 EQU ISTRPT+140 03880000 ISTRCL EQU 0 03881000 RCLADR EQU ISTRCL+72 03882000 RCLFLAG EQU RCLADR 03883000 ISTRTR EQU 0 03884000 RTRADR EQU ISTRTR+124 03885000 RTRFLAG EQU RTRADR 03886000 RTRRDFA EQU ISTRTR+136 03887000 RTRRAALL EQU RTRRDFA 03888000 RTRRDFB EQU ISTRTR+137 03889000 RTRRDFC EQU ISTRTR+138 03890000 RTRRDFD EQU ISTRTR+139 03891000 RTRRDFE EQU ISTRTR+140 03892000 RTRRDFF EQU ISTRTR+141 03893000 RTRCRFLG EQU ISTRTR+143 03894000 RTRLSCMD EQU RTRCRFLG 03895000 RTRBSCID EQU ISTRTR+188 03896000 ISTRIN EQU 0 03897000 RINDFD EQU ISTRIN+124 03898000 RINREMPO EQU RINDFD 03899000 RINNODEF EQU RINDFD 03900000 RINLDISC EQU RINDFD 03901000 RINNODID EQU ISTRIN+125 03902000 RINRLDAF EQU ISTRIN+126 03903000 RINREMOT EQU ISTRIN+128 03904000 RINVPAB EQU ISTRIN+132 03905000 RINRPHCN EQU ISTRIN+136 03906000 RINNCSPL EQU ISTRIN+140 03907000 RINCNCNT EQU ISTRIN+144 03908000 ISTRDS EQU 0 03909000 ISTDOT EQU 0 03910000 ISTRCC EQU 0 03911000 RCCFLAG EQU ISTRCC+73 03912000 RCCFLAGB EQU ISTRCC+74 03913000 RCCSTAID EQU ISTRCC+78 03914000 RCCID48 EQU RCCSTAID+2 03915000 RCCCRFLG EQU ISTRCC+108 03916000 ISTRLU EQU 0 03917000 RLUFLAG EQU ISTRLU+125 03918000 RLUCRFLG EQU ISTRLU+126 03919000 RLUPACE EQU ISTRLU+132 03920000 RLUNCPPC EQU ISTRLU+134 03921000 RLUUSSTB EQU ISTRLU+140 03922000 RLUMODET EQU ISTRLU+152 03923000 ISTRPX EQU 0 03924000 ISTRLX EQU 0 03925000 RLXFLAGA EQU ISTRLX+76 03926000 ISTRSW EQU 0 03927000 ISTRDA EQU 0 03928000 RDAADR EQU ISTRDA+72 03929000 RDAFLAG EQU RDAADR 03930000 RDAUCBAD EQU RDAADR+1 03931000 ISTRLS EQU 0 03932000 ISTDNT EQU 0 03933000 ISTGNT EQU 0 03934000 ISTPAT EQU 0 03935000 PATFLAGA EQU ISTPAT+7 03936000 ISTPFCRR EQU 0 03937000 PFCCRR EQU ISTPFCRR 03938000 PFCCRRID EQU PFCCRR 03939000 PFCCRRLN EQU PFCCRR+2 03940000 PFCHDR EQU ISTPFCRR+4 03941000 PFCCRRO EQU PFCHDR 03942000 PFCFRRO EQU PFCHDR+4 03943000 ISTCNSTA EQU 0 03944000 CNSTFLDA EQU ISTCNSTA+16 03945000 CNSMRINA EQU CNSTFLDA 03946000 CNSAUTHA EQU CNSTFLDA 03947000 CNSTCONA EQU CNSTFLDA+1 03948000 CNSACONA EQU CNSTFLDA+2 03949000 CNSQUEUA EQU CNSTFLDA+2 03950000 CNSSEARA EQU CNSTFLDA+2 03951000 CNSGETSA EQU CNSTFLDA+2 03952000 CNSFREEA EQU CNSTFLDA+2 03953000 CNSACCTA EQU CNSTFLDA+2 03954000 CNSLOG0A EQU CNSTFLDA+2 03955000 CNSTFLDB EQU ISTCNSTA+19 03956000 CNSMRINB EQU CNSTFLDB 03957000 CNSAUTHB EQU CNSTFLDB 03958000 CNSTCONB EQU CNSTFLDB+1 03959000 CNSACONB EQU CNSTFLDB+2 03960000 CNSQUEUB EQU CNSTFLDB+2 03961000 CNSSEARB EQU CNSTFLDB+2 03962000 CNSGETSB EQU CNSTFLDB+2 03963000 CNSFREEB EQU CNSTFLDB+2 03964000 CNSACCTB EQU CNSTFLDB+2 03965000 CNSLOG0B EQU CNSTFLDB+2 03966000 ISTLCCW EQU 0 03967000 LCCWOP EQU ISTLCCW 03968000 LCCWRWOP EQU LCCWOP 03969000 LCCWCTL EQU LCCWRWOP 03970000 LCCWFLAG EQU ISTLCCW+1 03971000 LCCWLSI EQU LCCWFLAG 03972000 ISTLCPB EQU 0 03973000 LCPREQTG EQU ISTLCPB+2 03974000 LCPFLAGS EQU LCPREQTG 03975000 LCPZF001 EQU LCPFLAGS 03976000 LCPZRT02 EQU LCPZF001 03977000 LCPZF002 EQU LCPFLAGS 03978000 LCPZRT03 EQU LCPZF002 03979000 LCPZF003 EQU LCPFLAGS 03980000 LCPZRT04 EQU LCPZF003 03981000 LCPZF004 EQU LCPFLAGS 03982000 LCPZRT05 EQU LCPZF004 03983000 LCPZRT06 EQU LCPFLAGS 03984000 LCPZRT07 EQU LCPFLAGS 03985000 LCPMNRCD EQU LCPREQTG+1 03986000 LCPZRT08 EQU LCPMNRCD 03987000 LCPZRT09 EQU LCPMNRCD 03988000 LCPCHAIN EQU ISTLCPB+4 03989000 LCPCHAI1 EQU LCPCHAIN 03990000 LCPRUCNT EQU ISTLCPB+8 03991000 LCPFLAG2 EQU ISTLCPB+9 03992000 LCPTLBPI EQU LCPFLAG2 03993000 LCPFID0 EQU LCPFLAG2 03994000 LCPSEQ EQU ISTLCPB+10 03995000 LCPCID EQU ISTLCPB+16 03996000 LCPFDBA EQU ISTLCPB+24 03997000 LCPFLG1 EQU ISTLCPB+37 03998000 LCPFLCCW EQU ISTLCPB+40 03999000 LCPLCCW EQU ISTLCPB+48 04000000 LCPPABA EQU LCPLCCW+4 04001000 LCPRPHA EQU LCPPABA 04002000 ISTZSAVE EQU 0 04003000 ZSAZSVBC EQU ISTZSAVE 04004000 ZSAZSVMS EQU ZSAZSVBC 04005000 ISTCFCRR EQU 0 04006000 CFCAUDIT EQU ISTCFCRR 04007000 CFCNTRD EQU CFCAUDIT 04008000 CFCCRT EQU CFCAUDIT+1 04009000 ISTZCRR EQU 0 04010000 ZCRCRR EQU ISTZCRR 04011000 ZCRFLGS1 EQU ISTZCRR+12 04012000 ZCRFLGS2 EQU ISTZCRR+13 04013000 ZCRSWFLD EQU ISTZCRR+14 04014000 ZCRENDSH EQU ZCRSWFLD 04015000 ZCRNDLCP EQU ZCRSWFLD 04016000 ZCRRESET EQU ZCRSWFLD 04017000 ZCRFLGS3 EQU ISTZCRR+15 04018000 ZCRGENSW EQU ISTZCRR+16 04019000 ZCRPFLGS EQU ISTZCRR+17 04020000 ZCRIBPR EQU ISTZCRR+18 04021000 ZCRSCPSW EQU ISTZCRR+19 04022000 ZCRPARMS EQU ISTZCRR+24 04023000 ZCRFBPTR EQU ZCRPARMS 04024000 ZCRDFRDA EQU ZCRPARMS+10 04025000 ZCRPCOD1 EQU ZCRPARMS+12 04026000 ZCRPLSBF EQU ZCRPCOD1 04027000 ZCRPCOD2 EQU ZCRPARMS+13 04028000 ZCRSVRTN EQU ISTZCRR+56 04029000 ZCRWKARA EQU ISTZCRR+156 04030000 ZCRCIDSV EQU ISTZCRR+192 04031000 ZCRAUDIT EQU ISTZCRR+440 04032000 ZCRENTER EQU ZCRAUDIT+5 04033000 ZCRLCPB EQU ISTZCRR+480 04034000 ZCRRHRU EQU ZCRLCPB 04035000 ISTASCRR EQU 0 04036000 ASCFLAGS EQU ISTASCRR+16 04037000 ASCFLG1 EQU ASCFLAGS 04038000 ASCFLG2 EQU ASCFLAGS+2 04039000 ASCFLG3 EQU ASCFLAGS+4 04040000 ASCUSRGS EQU ISTASCRR+28 04041000 ISTAPCRR EQU 0 04042000 APCATFLG EQU ISTAPCRR+16 04043000 APCRFLG EQU ISTAPCRR+18 04044000 APCSAVE EQU ISTAPCRR+44 04045000 APCCOMF EQU ISTAPCRR+116 04046000 APCCOMF1 EQU APCCOMF 04047000 APC31FLG EQU ISTAPCRR+132 04048000 APC52FLG EQU ISTAPCRR+133 04049000 APC53FLG EQU ISTAPCRR+134 04050000 APC54FLG EQU ISTAPCRR+135 04051000 APC57FLG EQU ISTAPCRR+136 04052000 ISTCRA EQU 0 04053000 CRABASIC EQU ISTCRA 04054000 CRAHDR EQU CRABASIC 04055000 CRACRR EQU CRAHDR 04056000 CRALKACT EQU CRABASIC+8 04057000 CRAL2PTR EQU CRABASIC+16 04058000 CRAL3PTR EQU CRABASIC+20 04059000 CRASVC EQU ISTCRA+848 04060000 CRABUFA EQU CRASVC+68 04061000 ISTACDEB EQU 0 04062000 ACDVTPRX EQU ISTACDEB 04063000 ACDTSKID EQU ACDVTPRX+8 04064000 ACDDBPFX EQU ISTACDEB+16 04065000 ACDTBLOF EQU ACDDBPFX+6 04066000 ACDBASIC EQU ISTACDEB+24 04067000 ACDTCBAD EQU ACDBASIC 04068000 ACDNMSUB EQU ACDTCBAD 04069000 ACDDEBAD EQU ACDBASIC+4 04070000 ACDUSRPG EQU ACDBASIC+16 04071000 ACDACBAD EQU ACDBASIC+24 04072000 ACDAPPAD EQU ACDBASIC+28 04073000 ACDVTAM EQU ISTACDEB+56 04074000 ACDSSFLG EQU ACDVTAM+80 04075000 ACDAPDAT EQU ACDVTAM+83 04076000 ISTBIND EQU 0 04077000 BINFMTY EQU ISTBIND 04078000 BINPRIP EQU ISTBIND+3 04079000 BINSECP EQU ISTBIND+4 04080000 BINCMNP EQU ISTBIND+5 04081000 BINCMNP2 EQU ISTBIND+6 04082000 BINTSU EQU ISTBIND+7 04083000 BINRPACE EQU BINTSU+1 04084000 BINRUSZ EQU BINTSU+2 04085000 BINSRUSZ EQU BINRUSZ 04086000 BINPRUSZ EQU BINRUSZ+1 04087000 BINPRSVC EQU ISTBIND+13 04088000 BINLUP EQU BINPRSVC 04089000 BINPSCHR EQU BINPRSVC+1 04090000 BINUSEL EQU ISTBIND+35 04091000 ISTBFHDR EQU 0 04092000 ISTLGPFX EQU 0 04093000 LGPSESSP EQU ISTLGPFX+12 04094000 ISTUECB EQU 0 04095000 UECID EQU ISTUECB 04096000 UECLEN EQU ISTUECB+1 04097000 UECTYPE EQU ISTUECB+3 04098000 UECTSKID EQU ISTUECB+8 04099000 UECPAB EQU ISTUECB+16 04100000 UECPLIST EQU ISTUECB+32 04101000 UECACB EQU UECPLIST 04102000 UECNDID EQU UECPLIST+4 04103000 UECTPNCD EQU UECNDID 04104000 UECREQTR EQU UECPLIST+8 04105000 UECDLEN EQU UECPLIST+12 04106000 UECRSNCD EQU UECDLEN 04107000 UECSYMNM EQU ISTUECB+52 04108000 UECDVTPT EQU ISTUECB+68 04109000 UECLGDTA EQU ISTUECB+72 04110000 ISTCSP EQU 0 04111000 CSPIDX EQU ISTCSP 04112000 CSPOPT EQU ISTCSP+2 04113000 CSPOPT1 EQU CSPOPT 04114000 CSPRSC EQU CSPOPT1 04115000 CSPOPT2 EQU CSPOPT+1 04116000 CSPNOREL EQU CSPOPT2 04117000 CSPWASQD EQU CSPOPT2 04118000 CSPRSC2F EQU CSPOPT2 04119000 CSPSRC EQU ISTCSP+4 04120000 CSPDEST EQU ISTCSP+8 04121000 CSPRSCE EQU ISTCSP+12 04122000 CSPCC EQU ISTCSP+20 04123000 CSPNO EQU ISTCSP+22 04124000 CSPRLRPH EQU ISTCSP+24 04125000 CSPTRDTE EQU ISTCSP+28 04126000 CSPRSC2B EQU ISTCSP+32 04127000 ISTCSL EQU 0 04128000 CSLRDEF EQU ISTCSL 04129000 CSLRDTE EQU CSLRDEF 04130000 CSLNDEF EQU ISTCSL+4 04131000 CSLNIB EQU CSLNDEF 04132000 CSLNIBF EQU CSLNIB 04133000 CSLDDEF EQU ISTCSL+8 04134000 CSLDATA EQU CSLDDEF 04135000 CVTMAP EQU 0 04136000 CVTDAR EQU CVTMAP+72 04137000 CVTFLGS1 EQU CVTDAR 04138000 CVTDCB EQU CVTMAP+116 04139000 CVTIERLC EQU CVTMAP+144 04140000 CVTOPTA EQU CVTMAP+182 04141000 CVTOPTB EQU CVTMAP+183 04142000 CVTGTF EQU CVTMAP+236 04143000 CVTGTFST EQU CVTGTF 04144000 CVTGTFS EQU CVTGTFST 04145000 CVTSTATE EQU CVTGTFST 04146000 CVTTMODE EQU CVTGTFST 04147000 CVTFORM EQU CVTGTFST 04148000 CVTAQAVT EQU CVTMAP+240 04149000 CVTTCMFG EQU CVTAQAVT 04150000 CVTVOLM2 EQU CVTMAP+244 04151000 CVTTATA EQU CVTVOLM2 04152000 CVTTSKS EQU CVTTATA 04153000 CVTVOLF2 EQU CVTTSKS 04154000 CVTTAT EQU CVTTATA+1 04155000 CVTATER EQU CVTMAP+248 04156000 CVTEXT1 EQU CVTMAP+252 04157000 CVTPURG EQU CVTMAP+260 04158000 CVTQMSG EQU CVTMAP+268 04159000 CVTDMSR EQU CVTMAP+272 04160000 CVTRSV37 EQU CVTDMSR 04161000 CVTDMSRF EQU CVTRSV37 04162000 CVTERPV EQU CVTMAP+316 04163000 CVTINTLA EQU CVTMAP+320 04164000 CVTAPF EQU CVTMAP+324 04165000 CVTEXT2 EQU CVTMAP+328 04166000 CVTHJES EQU CVTMAP+332 04167000 CVTPGSIA EQU CVTMAP+348 04168000 CVTA1F1 EQU CVTMAP+356 04169000 CVTSYSK EQU CVTMAP+357 04170000 CVTVOLM1 EQU CVTMAP+380 04171000 CVTVOLF1 EQU CVTVOLM1 04172000 CVTATMCT EQU CVTMAP+388 04173000 CVTXTNT1 EQU 0 04174000 CVTXTNT2 EQU 0 04175000 CVTDSSV EQU CVTXTNT2 04176000 CVTFLGBT EQU CVTXTNT2+5 04177000 CVTQID EQU CVTXTNT2+24 04178000 CVTSHS EQU CVTXTNT2+40 04179000 CVTRV400 EQU CVTXTNT2+52 04180000 CVTRV409 EQU CVTXTNT2+53 04181000 CVTATCVT EQU CVTXTNT2+64 04182000 CVTRV429 EQU CVTXTNT2+84 04183000 CVTRV438 EQU CVTXTNT2+85 04184000 CVTRV457 EQU CVTXTNT2+112 04185000 CVTRV466 EQU CVTXTNT2+113 04186000 CVTFIX EQU 0 04187000 CVTRELNO EQU CVTFIX+252 04188000 ADDRESS EQU 0 04189000 CHAINFLD EQU 0 04190000 MNTRN EQU 0 04191000 MXTRN EQU 0 04192000 WKSPACE EQU 0 04193000 WK2 EQU WKSPACE+4 04194000 SAVES EQU 0 04195000 SAVE114 EQU SAVES+12 04196000 SAVE13 EQU SAVES+80 04197000 SAVE212 EQU SAVE13 04198000 SAVE214 EQU SAVES+84 04199000 SAVE215 EQU SAVES+88 04200000 SAVE20 EQU SAVES+92 04201000 SAVE22 EQU SAVES+100 04202000 SAVE314 EQU SAVES+156 04203000 SAVE312 EQU SAVES+164 04204000 CHECPFLG EQU 0 04205000 CPFSRSC EQU CHECPFLG 04206000 CPFDEST EQU CHECPFLG 04207000 CPFSRC EQU CHECPFLG+1 04208000 FMZL0031 EQU 0 04209000 FMZL0041 EQU 0 04210000 FMZL0056 EQU 0 04211000 FMZL0130 EQU 0 04212000 FMZL0151 EQU 0 04213000 FMZL0170 EQU 0 04214000 FMZL0191 EQU 0 04215000 FMZL0209 EQU 0 04216000 ISTAPC37 EQU 0 04217000 FMZL0267 EQU 0 04218000 FMZL0284 EQU 0 04219000 ISTAPC34 EQU 0 04220000 LCPZTIE EQU LCPCID 04221000 LCPZSNAM EQU LCPZTIE+8 04222000 BINLUP1 EQU BINPSCHR 04223000 BINLUS EQU BINPSCHR 04224000 BINFMF1 EQU BINLUS 04225000 BINRSV09 EQU BINFMF1 04226000 BINDSPF1 EQU BINLUS+2 04227000 BINMEDIA EQU BINLUS+4 04228000 BINLUP2 EQU BINPSCHR 04229000 BINLUP3 EQU BINPSCHR 04230000 CVTS01 EQU CVTPGSIA 04231000 CVTLPDIA EQU CVTS01+12 04232000 CVTDIRST EQU CVTLPDIA 04233000 CVTSLIDA EQU CVTS01+24 04234000 CVTCTLFG EQU CVTS01+50 04235000 CVTRV210 EQU CVTS01+424 04236000 CVTRV219 EQU CVTS01+425 04237000 CVTRV228 EQU CVTS01+426 04238000 CVTRV237 EQU CVTS01+427 04239000 CVTMFRTR EQU CVTS01+452 04240000 CVTRV262 EQU CVTS01+468 04241000 CVTRV271 EQU CVTS01+469 04242000 CVTRV280 EQU CVTS01+470 04243000 CVTRV289 EQU CVTS01+471 04244000 CVTGSDA EQU CVTS01+600 04245000 RTRDNCBA EQU ISTRTR+40 04246000 AGO .@UNREFD START UNREFERENCED COMPONENTS 04247000 CVTRV628 EQU CVTS01+728 04248000 CVTRV627 EQU CVTS01+724 04249000 CVTRV626 EQU CVTS01+720 04250000 CVTRV625 EQU CVTS01+716 04251000 CVTRV624 EQU CVTS01+712 04252000 CVTRV623 EQU CVTS01+708 04253000 CVTRV622 EQU CVTS01+704 04254000 CVTRV621 EQU CVTS01+700 04255000 CVTRV620 EQU CVTS01+696 04256000 CVTRV619 EQU CVTS01+692 04257000 CVTRV618 EQU CVTS01+688 04258000 CVTRV617 EQU CVTS01+684 04259000 CVTRV616 EQU CVTS01+680 04260000 CVTRV615 EQU CVTS01+676 04261000 CVTRV614 EQU CVTS01+672 04262000 CVTRV613 EQU CVTS01+668 04263000 CVTTCASP EQU CVTS01+664 04264000 CVT0PT03 EQU CVTS01+660 04265000 CVT0PT0E EQU CVTS01+656 04266000 CVTIRM EQU CVTS01+652 04267000 CVTCGK EQU CVTS01+648 04268000 CVTRV607 EQU CVTS01+644 04269000 CVTRV606 EQU CVTS01+640 04270000 CVTRV605 EQU CVTS01+636 04271000 CVTRV604 EQU CVTS01+632 04272000 CVTEFF02 EQU CVTS01+628 04273000 CVTCBBR EQU CVTS01+624 04274000 CVTSSCR EQU CVTS01+620 04275000 CVTEVENT EQU CVTS01+616 04276000 CVTCRCA EQU CVTS01+612 04277000 CVTTPIO EQU CVTS01+608 04278000 CVTADV EQU CVTS01+604 04279000 CVTGSDAB EQU CVTGSDA 04280000 CVTQV3 EQU CVTS01+596 04281000 CVTQV2 EQU CVTS01+592 04282000 CVTQV1 EQU CVTS01+588 04283000 CVTRPT EQU CVTS01+584 04284000 CVTSSRB EQU CVTS01+580 04285000 CVTCSDRL EQU CVTS01+576 04286000 CVTEXP1 EQU CVTS01+572 04287000 CVTRMPMT EQU CVTS01+568 04288000 CVTRMPTT EQU CVTS01+564 04289000 CVTVPSA EQU CVTS01+560 04290000 CVTVSTOP EQU CVTS01+556 04291000 CVTGTFR8 EQU CVTS01+552 04292000 CVTQUIT EQU CVTS01+548 04293000 CVTVACR EQU CVTS01+544 04294000 CVTWTCB EQU CVTS01+540 04295000 CVTSTPRS EQU CVTS01+536 04296000 CVT0PT02 EQU CVTS01+532 04297000 CVTDARCM EQU CVTS01+528 04298000 CVTIRECM EQU CVTS01+524 04299000 CVTJRECM EQU CVTS01+520 04300000 CVTVEMS0 EQU CVTS01+516 04301000 CVTSPFRR EQU CVTS01+512 04302000 CVTRLSTG EQU CVTS01+508 04303000 CVT0TC0A EQU CVTS01+504 04304000 CVTGMBR EQU CVTS01+500 04305000 CVTLFRM EQU CVTS01+496 04306000 CVTRMBR EQU CVTS01+492 04307000 CVTVIOP EQU CVTS01+488 04308000 CVTRV307 EQU CVTS01+486 04309000 CVTRV306 EQU CVTS01+484 04310000 CVTRV305 EQU CVTS01+482 04311000 CVTRV304 EQU CVTS01+480 04312000 CVTRV303 EQU CVTS01+478 04313000 CVTRV302 EQU CVTS01+476 04314000 CVTTRCA EQU CVTS01+472 04315000 CVTRV297 EQU CVTRV289 04316000 CVTRV296 EQU CVTRV289 04317000 CVTRV295 EQU CVTRV289 04318000 CVTRV294 EQU CVTRV289 04319000 CVTRV293 EQU CVTRV289 04320000 CVTRV292 EQU CVTRV289 04321000 CVTRV291 EQU CVTRV289 04322000 CVTRV290 EQU CVTRV289 04323000 CVTRV288 EQU CVTRV280 04324000 CVTRV287 EQU CVTRV280 04325000 CVTRV286 EQU CVTRV280 04326000 CVTRV285 EQU CVTRV280 04327000 CVTRV284 EQU CVTRV280 04328000 CVTRV283 EQU CVTRV280 04329000 CVTRV282 EQU CVTRV280 04330000 CVTRV281 EQU CVTRV280 04331000 CVTRV279 EQU CVTRV271 04332000 CVTRV278 EQU CVTRV271 04333000 CVTRV277 EQU CVTRV271 04334000 CVTRV276 EQU CVTRV271 04335000 CVTRV275 EQU CVTRV271 04336000 CVTRV274 EQU CVTRV271 04337000 CVTRV273 EQU CVTRV271 04338000 CVTRV272 EQU CVTRV271 04339000 CVTRV270 EQU CVTRV262 04340000 CVTRV269 EQU CVTRV262 04341000 CVTRV268 EQU CVTRV262 04342000 CVTRV267 EQU CVTRV262 04343000 CVTRV266 EQU CVTRV262 04344000 CVTRV265 EQU CVTRV262 04345000 CVTRV264 EQU CVTRV262 04346000 CVTRV263 EQU CVTRV262 04347000 CVTVFP EQU CVTS01+464 04348000 CVTVSI EQU CVTS01+460 04349000 CVTVPSIB EQU CVTS01+456 04350000 CVTMFACT EQU CVTMFRTR 04351000 CVTMFCTL EQU CVTS01+448 04352000 CVTPVBP EQU CVTS01+444 04353000 CVTPWI EQU CVTS01+440 04354000 CVTRV254 EQU CVTS01+438 04355000 CVTRV253 EQU CVTS01+436 04356000 CVTRV252 EQU CVTS01+434 04357000 CVTRV251 EQU CVTS01+433 04358000 CVTRV250 EQU CVTS01+432 04359000 CVTRV249 EQU CVTS01+431 04360000 CVTRV248 EQU CVTS01+430 04361000 CVTRV247 EQU CVTS01+429 04362000 CVTRV246 EQU CVTS01+428 04363000 CVTRV245 EQU CVTRV237 04364000 CVTRV244 EQU CVTRV237 04365000 CVTRV243 EQU CVTRV237 04366000 CVTRV242 EQU CVTRV237 04367000 CVTRV241 EQU CVTRV237 04368000 CVTRV240 EQU CVTRV237 04369000 CVTRV239 EQU CVTRV237 04370000 CVTRV238 EQU CVTRV237 04371000 CVTRV236 EQU CVTRV228 04372000 CVTRV235 EQU CVTRV228 04373000 CVTRV234 EQU CVTRV228 04374000 CVTRV233 EQU CVTRV228 04375000 CVTRV232 EQU CVTRV228 04376000 CVTRV231 EQU CVTRV228 04377000 CVTRV230 EQU CVTRV228 04378000 CVTRV229 EQU CVTRV228 04379000 CVTRV227 EQU CVTRV219 04380000 CVTRV226 EQU CVTRV219 04381000 CVTRV225 EQU CVTRV219 04382000 CVTRV224 EQU CVTRV219 04383000 CVTRV223 EQU CVTRV219 04384000 CVTRV222 EQU CVTRV219 04385000 CVTRV221 EQU CVTRV219 04386000 CVTRV220 EQU CVTRV219 04387000 CVTRV218 EQU CVTRV210 04388000 CVTRV217 EQU CVTRV210 04389000 CVTRV216 EQU CVTRV210 04390000 CVTRV215 EQU CVTRV210 04391000 CVTRV214 EQU CVTRV210 04392000 CVTRV213 EQU CVTRV210 04393000 CVTRV212 EQU CVTRV210 04394000 CVTRV211 EQU CVTRV210 04395000 CVTLCCAT EQU CVTS01+420 04396000 CVTPCCAT EQU CVTS01+416 04397000 CVTIPCRP EQU CVTS01+412 04398000 CVTIPCRI EQU CVTS01+408 04399000 CVTIPCDS EQU CVTS01+404 04400000 CVTAIDVT EQU CVTS01+400 04401000 CVTSSAP EQU CVTS01+396 04402000 CVTEHCIR EQU CVTS01+392 04403000 CVTEHDEF EQU CVTS01+388 04404000 CVTDAIR EQU CVTS01+384 04405000 CVTPERFM EQU CVTS01+380 04406000 CVT044R2 EQU CVTS01+376 04407000 CVTFETCH EQU CVTS01+372 04408000 CVTRSTWD EQU CVTS01+368 04409000 CVTSPOST EQU CVTS01+364 04410000 CVTIOBP EQU CVTS01+360 04411000 CVTASMVT EQU CVTS01+356 04412000 CVTRECRQ EQU CVTS01+352 04413000 CVTWSAC EQU CVTS01+348 04414000 CVTRV149 EQU CVTS01+344 04415000 CVTWSAL EQU CVTS01+340 04416000 CVTSPSA EQU CVTS01+336 04417000 CVTGLMN EQU CVTS01+332 04418000 CVTVEAC0 EQU CVTS01+328 04419000 CVT062R1 EQU CVTS01+324 04420000 CVTRPOST EQU CVTS01+320 04421000 CVTDQIQE EQU CVTS01+316 04422000 CVTCSD EQU CVTS01+312 04423000 CVTLKRMA EQU CVTS01+308 04424000 CVTRSPIE EQU CVTS01+304 04425000 CVTRENQ EQU CVTS01+300 04426000 CVTLQCB EQU CVTS01+296 04427000 CVTFQCB EQU CVTS01+292 04428000 CVTQCS01 EQU CVTS01+288 04429000 CVTAPFT EQU CVTS01+284 04430000 CVTPARRL EQU CVTS01+280 04431000 CVTVWAIT EQU CVTS01+276 04432000 CVTGSPL EQU CVTS01+272 04433000 CVTLSMQ EQU CVTS01+268 04434000 CVTGSMQ EQU CVTS01+264 04435000 CVTEXPRO EQU CVTS01+260 04436000 CVTOPCTP EQU CVTS01+256 04437000 CVTSIC EQU CVTS01+252 04438000 CVTTPIOS EQU CVTS01+248 04439000 CVTRTMS EQU CVTS01+244 04440000 CVTSDBF EQU CVTS01+240 04441000 CVTSCBP EQU CVTS01+236 04442000 CVTSDMP EQU CVTS01+232 04443000 CVTSV60 EQU CVTS01+228 04444000 CVTRTMCT EQU CVTS01+224 04445000 CVTASCBL EQU CVTS01+220 04446000 CVTASCBH EQU CVTS01+216 04447000 CVTGDA EQU CVTS01+212 04448000 CVTASVT EQU CVTS01+208 04449000 CVTVVMDI EQU CVTS01+204 04450000 CVTAQTOP EQU CVTS01+200 04451000 CVTIOSCS EQU CVTS01+196 04452000 CVTSDRM EQU CVTS01+192 04453000 CVTOPTE EQU CVTS01+188 04454000 CVTSTXU EQU CVTS01+184 04455000 CVTQUIS EQU CVTS01+180 04456000 CVTPARS EQU CVTS01+176 04457000 CVTS1EE EQU CVTS01+172 04458000 CVTFRAS EQU CVTS01+168 04459000 CVTQSAS EQU CVTS01+164 04460000 CVTCRAS EQU CVTS01+160 04461000 CVTCRMN EQU CVTS01+156 04462000 CVTDELCP EQU CVTS01+152 04463000 CVTFRECL EQU CVTS01+148 04464000 CVTGETCL EQU CVTS01+144 04465000 CVTBLDCP EQU CVTS01+140 04466000 CVTAUTHL EQU CVTS01+136 04467000 CVTSCAN EQU CVTS01+132 04468000 CVTRV144 EQU CVTS01+130 04469000 CVTMAXMP EQU CVTS01+128 04470000 CVTSTCK EQU CVTS01+124 04471000 CVTRV139 EQU CVTS01+123 04472000 CVTDSSAC EQU CVTS01+122 04473000 CVTRV513 EQU CVTS01+121 04474000 CVTIOSPL EQU CVTS01+120 04475000 CVTPTGT EQU CVTS01+116 04476000 CVTCSPIE EQU CVTS01+112 04477000 CVTSMFEX EQU CVTS01+108 04478000 CVTOLT0A EQU CVTS01+104 04479000 CVTSRBRT EQU CVTS01+100 04480000 CVTPUTL EQU CVTS01+96 04481000 CVTASCRL EQU CVTS01+92 04482000 CVTASCRF EQU CVTS01+88 04483000 CVTRV326 EQU CVTS01+84 04484000 CVTRV325 EQU CVTS01+80 04485000 CVTRV324 EQU CVTS01+76 04486000 CVT0VL01 EQU CVTS01+72 04487000 CVTSHRVM EQU CVTS01+68 04488000 CVTRV332 EQU CVTS01+64 04489000 CVTTAS EQU CVTS01+60 04490000 CVTRSCN EQU CVTS01+56 04491000 CVTTRAC2 EQU CVTS01+54 04492000 CVTTRACE EQU CVTS01+52 04493000 CVTAPG EQU CVTS01+51 04494000 CVTSDTRC EQU CVTCTLFG 04495000 CVTGTRCE EQU CVTCTLFG 04496000 CVTNOMP EQU CVTCTLFG 04497000 CVTRSV79 EQU CVTCTLFG 04498000 CVTDSTAT EQU CVTCTLFG 04499000 CVTRSV78 EQU CVTCTLFG 04500000 CVTRV333 EQU CVTCTLFG 04501000 CVTRV323 EQU CVTCTLFG 04502000 CVTSPVLK EQU CVTS01+49 04503000 CVTRSV77 EQU CVTS01+48 04504000 CVTRV331 EQU CVTS01+44 04505000 CVTRV330 EQU CVTS01+40 04506000 CVTRV329 EQU CVTS01+36 04507000 CVTRV328 EQU CVTS01+32 04508000 CVTRV322 EQU CVTS01+28 04509000 CVTSLID EQU CVTSLIDA+1 04510000 CVTSYLK EQU CVTSLIDA 04511000 CVTRV321 EQU CVTS01+20 04512000 CVTRV320 EQU CVTS01+16 04513000 CVTLPDIR EQU CVTLPDIA+1 04514000 CVTRSV69 EQU CVTDIRST 04515000 CVTRSV68 EQU CVTDIRST 04516000 CVTRSV67 EQU CVTDIRST 04517000 CVTRSV66 EQU CVTDIRST 04518000 CVTRSV65 EQU CVTDIRST 04519000 CVTRSV64 EQU CVTDIRST 04520000 CVTRSV63 EQU CVTDIRST 04521000 CVTDICOM EQU CVTDIRST 04522000 CVTPVTP EQU CVTS01+8 04523000 CVTLPDSR EQU CVTS01+4 04524000 CVTGETL EQU CVTS01 04525000 BINRSV26 EQU BINLUP3 04526000 BINRSV15 EQU BINLUP2+10 04527000 BINPRESZ EQU BINLUP2+9 04528000 BINRSV14 EQU BINLUP2 04529000 BINRSV13 EQU BINMEDIA 04530000 BINDISK EQU BINMEDIA 04531000 BINXCHNG EQU BINMEDIA 04532000 BINCARD EQU BINMEDIA 04533000 BINDOCMT EQU BINMEDIA 04534000 BINRSV17 EQU BINDSPF1+1 04535000 BINTRNDS EQU BINDSPF1 04536000 BINRSV12 EQU BINDSPF1 04537000 BINVSDS EQU BINDSPF1 04538000 BINVTDS EQU BINDSPF1 04539000 BINHFDS EQU BINDSPF1 04540000 BININTR EQU BINDSPF1 04541000 BINRSV11 EQU BINRSV09+1 04542000 BINXFPD EQU BINRSV09+1 04543000 BINCSDS EQU BINRSV09+1 04544000 BINQDSI EQU BINRSV09+1 04545000 BINRSV16 EQU BINRSV09+1 04546000 BINARRR EQU BINRSV09 04547000 BINSIDS EQU BINRSV09 04548000 BINSAI EQU BINRSV09 04549000 BINSDSI EQU BINRSV09 04550000 BINKDDSI EQU BINRSV09 04551000 BINPDIR EQU BINFMF1 04552000 BINCMPCT EQU BINFMF1 04553000 BINDESTS EQU BINFMF1 04554000 BINSLUS1 EQU BINLUP1+6 04555000 BINPLUS1 EQU BINLUP1+1 04556000 BINDSP1 EQU BINLUP1 04557000 BINFMHS1 EQU BINLUP1 04558000 LCPZTRV4 EQU LCPZSNAM+4 04559000 LCPZTRV1 EQU LCPZSNAM 04560000 LCPZSNA EQU LCPZTIE+4 04561000 LCPZFMCA EQU LCPZTIE 04562000 CPFLRSC EQU CHECPFLG+1 04563000 @NM00051 EQU CHECPFLG 04564000 @NM00050 EQU CHECPFLG 04565000 @NM00049 EQU SAVES+160 04566000 @NM00048 EQU SAVES+144 04567000 @NM00047 EQU SAVES+104 04568000 @NM00046 EQU SAVES+96 04569000 @NM00045 EQU SAVES+72 04570000 @NM00044 EQU SAVES+16 04571000 @NM00043 EQU SAVES 04572000 WK5 EQU WKSPACE+16 04573000 WK4 EQU WKSPACE+12 04574000 WK3 EQU WKSPACE+8 04575000 WK1 EQU WKSPACE 04576000 CVTLEVL EQU CVTRELNO+2 04577000 CVTNUMB EQU CVTRELNO 04578000 CVTMDL EQU CVTFIX+250 04579000 @NM00042 EQU CVTFIX+248 04580000 @NM00041 EQU CVTFIX 04581000 CVTRV482 EQU CVTXTNT2+128 04582000 CVTRV481 EQU CVTXTNT2+124 04583000 CVTRV480 EQU CVTXTNT2+120 04584000 CVTRV479 EQU CVTXTNT2+118 04585000 CVTRV478 EQU CVTXTNT2+117 04586000 CVTRV477 EQU CVTXTNT2+116 04587000 CVTRV476 EQU CVTXTNT2+115 04588000 CVTRV475 EQU CVTXTNT2+114 04589000 CVTRV474 EQU CVTRV466 04590000 CVTRV473 EQU CVTRV466 04591000 CVTRV472 EQU CVTRV466 04592000 CVTRV471 EQU CVTRV466 04593000 CVTRV470 EQU CVTRV466 04594000 CVTRV469 EQU CVTRV466 04595000 CVTRV468 EQU CVTRV466 04596000 CVTRV467 EQU CVTRV466 04597000 CVTRV465 EQU CVTRV457 04598000 CVTRV464 EQU CVTRV457 04599000 CVTRV463 EQU CVTRV457 04600000 CVTRV462 EQU CVTRV457 04601000 CVTRV461 EQU CVTRV457 04602000 CVTRV460 EQU CVTRV457 04603000 CVTRV459 EQU CVTRV457 04604000 CVTRV458 EQU CVTRV457 04605000 CVTRV456 EQU CVTXTNT2+108 04606000 CVTRV455 EQU CVTXTNT2+104 04607000 CVTRV454 EQU CVTXTNT2+100 04608000 CVTRV453 EQU CVTXTNT2+96 04609000 CVTRV452 EQU CVTXTNT2+94 04610000 CVTRV451 EQU CVTXTNT2+92 04611000 CVTRV450 EQU CVTXTNT2+90 04612000 CVTRV449 EQU CVTXTNT2+88 04613000 CVTRV448 EQU CVTXTNT2+87 04614000 CVTRV447 EQU CVTXTNT2+86 04615000 CVTRV446 EQU CVTRV438 04616000 CVTRV445 EQU CVTRV438 04617000 CVTRV444 EQU CVTRV438 04618000 CVTRV443 EQU CVTRV438 04619000 CVTRV442 EQU CVTRV438 04620000 CVTRV441 EQU CVTRV438 04621000 CVTRV440 EQU CVTRV438 04622000 CVTRV439 EQU CVTRV438 04623000 CVTRV437 EQU CVTRV429 04624000 CVTRV436 EQU CVTRV429 04625000 CVTRV435 EQU CVTRV429 04626000 CVTRV434 EQU CVTRV429 04627000 CVTRV433 EQU CVTRV429 04628000 CVTRV432 EQU CVTRV429 04629000 CVTRV431 EQU CVTRV429 04630000 CVTRV430 EQU CVTRV429 04631000 CVTRV428 EQU CVTXTNT2+80 04632000 CVTRV427 EQU CVTXTNT2+76 04633000 CVTRV426 EQU CVTXTNT2+72 04634000 CVTRV425 EQU CVTXTNT2+68 04635000 CVTATACT EQU CVTATCVT 04636000 CVTRV423 EQU CVTXTNT2+62 04637000 CVTRV422 EQU CVTXTNT2+60 04638000 CVTRV421 EQU CVTXTNT2+58 04639000 CVTRV420 EQU CVTXTNT2+56 04640000 CVTRV419 EQU CVTXTNT2+55 04641000 CVTRV418 EQU CVTXTNT2+54 04642000 CVTRV417 EQU CVTRV409 04643000 CVTRV416 EQU CVTRV409 04644000 CVTRV415 EQU CVTRV409 04645000 CVTRV414 EQU CVTRV409 04646000 CVTRV413 EQU CVTRV409 04647000 CVTRV412 EQU CVTRV409 04648000 CVTRV411 EQU CVTRV409 04649000 CVTRV410 EQU CVTRV409 04650000 CVTRV408 EQU CVTRV400 04651000 CVTRV407 EQU CVTRV400 04652000 CVTRV406 EQU CVTRV400 04653000 CVTRV405 EQU CVTRV400 04654000 CVTRV404 EQU CVTRV400 04655000 CVTRV403 EQU CVTRV400 04656000 CVTRV402 EQU CVTRV400 04657000 CVTRV401 EQU CVTRV400 04658000 CVTICB EQU CVTXTNT2+48 04659000 CVTSKTA EQU CVTXTNT2+44 04660000 CVTSHSB EQU CVTSHS 04661000 CVTRSV98 EQU CVTXTNT2+36 04662000 CVTRSV97 EQU CVTXTNT2+34 04663000 CVTRSV96 EQU CVTXTNT2+32 04664000 CVTOLTEP EQU CVTXTNT2+28 04665000 CVTQIDA EQU CVTQID+1 04666000 CVTRSV95 EQU CVTQID 04667000 CVTRSV94 EQU CVTXTNT2+20 04668000 CVTRSV93 EQU CVTXTNT2+16 04669000 CVTRSV92 EQU CVTXTNT2+12 04670000 CVTDEBVR EQU CVTXTNT2+8 04671000 CVTRSV91 EQU CVTXTNT2+6 04672000 CVTRSV9H EQU CVTFLGBT 04673000 CVTRSV9G EQU CVTFLGBT 04674000 CVTRSV9F EQU CVTFLGBT 04675000 CVTRSV9E EQU CVTFLGBT 04676000 CVTRSV9D EQU CVTFLGBT 04677000 CVTRSV9C EQU CVTFLGBT 04678000 CVTVME EQU CVTFLGBT 04679000 CVTNPE EQU CVTFLGBT 04680000 CVTNUCLS EQU CVTXTNT2+4 04681000 CVTDSSVA EQU CVTDSSV+1 04682000 CVTRSV89 EQU CVTDSSV 04683000 CVTRSV88 EQU CVTXTNT1+8 04684000 CVTRSV87 EQU CVTXTNT1+4 04685000 CVTFACHN EQU CVTXTNT1 04686000 CVTRV488 EQU CVTMAP+412 04687000 CVTRV487 EQU CVTMAP+408 04688000 CVTRV486 EQU CVTMAP+404 04689000 CVTRV485 EQU CVTMAP+400 04690000 CVTACTAP EQU CVTMAP+396 04691000 CVTAUTH EQU CVTMAP+392 04692000 CVTATMCA EQU CVTATMCT+1 04693000 CVTATMST EQU CVTATMCT 04694000 CVTRSV61 EQU CVTMAP+384 04695000 CVTVOLT1 EQU CVTVOLM1+1 04696000 CVTVOLI1 EQU CVTVOLF1 04697000 CVTSTOA EQU CVTMAP+376 04698000 CVTRSV58 EQU CVTMAP+374 04699000 CVTRSV57 EQU CVTMAP+372 04700000 CVTDDCE EQU CVTMAP+368 04701000 CVTPNWFR EQU CVTMAP+364 04702000 CVTSMF EQU CVTMAP+360 04703000 CVTSULK EQU CVTMAP+358 04704000 CVTSLKO EQU CVTSYSK 04705000 CVTSLKP EQU CVTSYSK 04706000 CVTSLKQ EQU CVTSYSK 04707000 CVTSLKR EQU CVTSYSK 04708000 CVTRSV56 EQU CVTSYSK 04709000 CVTRSV55 EQU CVTSYSK 04710000 CVTRSV54 EQU CVTSYSK 04711000 CVTRSV53 EQU CVTSYSK 04712000 CVTRSV52 EQU CVTA1F1 04713000 CVTRSV51 EQU CVTA1F1 04714000 CVTRSV50 EQU CVTA1F1 04715000 CVTRSV49 EQU CVTA1F1 04716000 CVTRSV48 EQU CVTA1F1 04717000 CVTRSV47 EQU CVTA1F1 04718000 CVTSRSW EQU CVTA1F1 04719000 CVTPFSW EQU CVTA1F1 04720000 CVTPCVT EQU CVTMAP+352 04721000 CVTRSV46 EQU CVTMAP+344 04722000 CVTRSV45 EQU CVTMAP+340 04723000 CVTRSV44 EQU CVTMAP+338 04724000 CVTRSV43 EQU CVTMAP+336 04725000 CVTHJESA EQU CVTHJES+1 04726000 CVTRSV42 EQU CVTHJES 04727000 CVTEXT2A EQU CVTEXT2+1 04728000 CVTRSV41 EQU CVTEXT2 04729000 CVTAPFA EQU CVTAPF+1 04730000 CVTRSV40 EQU CVTAPF 04731000 CVTRV518 EQU CVTINTLA 04732000 CVTRV517 EQU CVTERPV 04733000 CVTEORM EQU CVTMAP+312 04734000 CVTMCHPR EQU CVTMAP+308 04735000 CVTTZ EQU CVTMAP+304 04736000 CVTJEPS EQU CVTMAP+300 04737000 CVTJESCT EQU CVTMAP+296 04738000 CVTMODE EQU CVTMAP+292 04739000 CVTPTRV EQU CVTMAP+288 04740000 CVTREAL EQU CVTMAP+284 04741000 CVTRSV39 EQU CVTMAP+280 04742000 CVTRSV38 EQU CVTMAP+276 04743000 CVTDMSRA EQU CVTDMSR+1 04744000 CVTRV634 EQU CVTDMSRF 04745000 CVTRV633 EQU CVTDMSRF 04746000 CVTRV632 EQU CVTDMSRF 04747000 CVTRV631 EQU CVTDMSRF 04748000 CVTRV630 EQU CVTDMSRF 04749000 CVTRV629 EQU CVTDMSRF 04750000 CVTUDUMP EQU CVTDMSRF 04751000 CVTSDUMP EQU CVTDMSRF 04752000 CVTQMSGA EQU CVTQMSG+1 04753000 CVTRSV36 EQU CVTQMSG 04754000 CVTAMFF EQU CVTMAP+264 04755000 CVTPURGA EQU CVTPURG+1 04756000 CVTRSV35 EQU CVTPURG 04757000 CVTCBSP EQU CVTMAP+256 04758000 CVTATERA EQU CVTATER+1 04759000 CVTSYST EQU CVTATER 04760000 CVTVOLT2 EQU CVTTAT 04761000 CVTVOLI2 EQU CVTVOLF2 04762000 CVTAQAVB EQU CVTAQAVT+1 04763000 CVTRSV34 EQU CVTTCMFG 04764000 CVTRSV33 EQU CVTTCMFG 04765000 CVTRSV32 EQU CVTTCMFG 04766000 CVTRSV31 EQU CVTTCMFG 04767000 CVTRSV30 EQU CVTTCMFG 04768000 CVTRSV29 EQU CVTTCMFG 04769000 CVTRSV28 EQU CVTTCMFG 04770000 CVTTCRDY EQU CVTTCMFG 04771000 CVTGTFA EQU CVTGTF+1 04772000 CVTRSV27 EQU CVTGTFST 04773000 CVTRNIO EQU CVTGTFST 04774000 CVTUSR EQU CVTGTFST 04775000 CVTRV318 EQU CVTFORM 04776000 CVTRV317 EQU CVTTMODE 04777000 CVTRV316 EQU CVTSTATE 04778000 CVTRV315 EQU CVTGTFS 04779000 CVTGTFAV EQU CVTGTFS 04780000 CVT0SCR1 EQU CVTMAP+232 04781000 CVTRV515 EQU CVTMAP+228 04782000 CVTRMS EQU CVTMAP+224 04783000 CVTPATCH EQU CVTMAP+220 04784000 CVTTSCE EQU CVTMAP+216 04785000 CVTLNKSC EQU CVTMAP+214 04786000 CVTQABST EQU CVTMAP+212 04787000 CVTMDLDS EQU CVTMAP+208 04788000 CVTUSER EQU CVTMAP+204 04789000 CVTABEND EQU CVTMAP+200 04790000 CVTSMCA EQU CVTMAP+196 04791000 CVTRSV18 EQU CVTMAP+192 04792000 CVTQLPAQ EQU CVTMAP+188 04793000 CVTQCDSR EQU CVTMAP+184 04794000 CVTRSV17 EQU CVTOPTB 04795000 CVTRSV16 EQU CVTOPTB 04796000 CVTFP EQU CVTOPTB 04797000 CVTAPTHR EQU CVTOPTB 04798000 CVTNLOG EQU CVTOPTB 04799000 CVTTOD EQU CVTOPTB 04800000 CVTCTIMS EQU CVTOPTB 04801000 CVTPROT EQU CVTOPTB 04802000 CVTXPFP EQU CVTOPTA 04803000 CVTASCII EQU CVTOPTA 04804000 CVTRSV13 EQU CVTOPTA 04805000 CVTRSV12 EQU CVTOPTA 04806000 CVTNIP EQU CVTOPTA 04807000 CVTDDR EQU CVTOPTA 04808000 CVTAPR EQU CVTOPTA 04809000 CVTCCH EQU CVTOPTA 04810000 CVTSNCTR EQU CVTMAP+180 04811000 CVTQMWR EQU CVTMAP+176 04812000 CVTQOCR EQU CVTMAP+172 04813000 CVT1EF00 EQU CVTMAP+168 04814000 CVTMZ00 EQU CVTMAP+164 04815000 CVTHEAD EQU CVTMAP+160 04816000 CVTRSV11 EQU CVTMAP+156 04817000 CVT0PT01 EQU CVTMAP+152 04818000 CVTMSER EQU CVTMAP+148 04819000 CVTRV516 EQU CVTIERLC 04820000 CVTILCH EQU CVTMAP+140 04821000 CVT0DS EQU CVTMAP+136 04822000 CVTFBOSV EQU CVTMAP+132 04823000 CVTNUCB EQU CVTMAP+128 04824000 CVTIXAVL EQU CVTMAP+124 04825000 CVTIOQET EQU CVTMAP+120 04826000 CVTDCBA EQU CVTMAP+117 04827000 CVTMVS2 EQU CVTDCB 04828000 CVT6DAT EQU CVTDCB 04829000 CVT4MPS EQU CVTDCB 04830000 CVTRSV09 EQU CVTDCB 04831000 CVT4MS1 EQU CVTDCB 04832000 CVT2SPS EQU CVTDCB 04833000 CVT1SSS EQU CVTDCB 04834000 CVTRSV08 EQU CVTDCB 04835000 CVTSTB EQU CVTMAP+112 04836000 CVTQTD00 EQU CVTMAP+108 04837000 CVTQTE00 EQU CVTMAP+104 04838000 CVTCUCB EQU CVTMAP+100 04839000 CVTSJQ EQU CVTMAP+96 04840000 CVTPBLDL EQU CVTMAP+92 04841000 CVTTPC EQU CVTMAP+88 04842000 CVTSVDCB EQU CVTMAP+84 04843000 CVTBRET EQU CVTMAP+82 04844000 CVTEXIT EQU CVTMAP+80 04845000 CVT0FN00 EQU CVTMAP+76 04846000 CVTDARA EQU CVTDAR+1 04847000 CVTRSV07 EQU CVTFLGS1 04848000 CVTRSV06 EQU CVTFLGS1 04849000 CVTRSV05 EQU CVTFLGS1 04850000 CVTRSV04 EQU CVTFLGS1 04851000 CVTRSV03 EQU CVTFLGS1 04852000 CVTRSV02 EQU CVTFLGS1 04853000 CVTRSV01 EQU CVTFLGS1 04854000 CVTDMPLK EQU CVTFLGS1 04855000 CVTXITP EQU CVTMAP+68 04856000 CVTZDTAB EQU CVTMAP+64 04857000 CVTMSLT EQU CVTMAP+60 04858000 CVTDATE EQU CVTMAP+56 04859000 CVTBTERM EQU CVTMAP+52 04860000 CVTSYSAD EQU CVTMAP+48 04861000 CVTXTLER EQU CVTMAP+44 04862000 CVTILK2 EQU CVTMAP+40 04863000 CVTILK1 EQU CVTMAP+36 04864000 CVTPRLTV EQU CVTMAP+32 04865000 CVTPCNVT EQU CVTMAP+28 04866000 CVT0VL00 EQU CVTMAP+24 04867000 CVTXAPG EQU CVTMAP+20 04868000 CVTBUF EQU CVTMAP+16 04869000 CVTJOB EQU CVTMAP+12 04870000 CVTLINK EQU CVTMAP+8 04871000 CVT0EF00 EQU CVTMAP+4 04872000 CVTTCBP EQU CVTMAP 04873000 CVT EQU CVTMAP 04874000 CSLDATAF EQU CSLDATA 04875000 CSLRDTEF EQU CSLRDTE 04876000 CSPUNUSD EQU CSPRSC2B+4 04877000 CSPUECBA EQU CSPRSC2B 04878000 CSPDATA EQU ISTCSP+16 04879000 @NM00040 EQU CSPOPT2 04880000 CSPACQS EQU CSPOPT2 04881000 CSPACES EQU CSPOPT2 04882000 CSPCOREQ EQU CSPOPT2 04883000 CSPSTAP EQU CSPOPT2 04884000 @NM00039 EQU CSPOPT1 04885000 CSPANY EQU CSPOPT1 04886000 CSPACT EQU CSPOPT1 04887000 CSPSESS EQU CSPOPT1 04888000 CSPPND EQU CSPOPT1 04889000 CSPLOGI EQU CSPOPT1 04890000 CSPQ EQU CSPOPT1 04891000 UECRVPT4 EQU ISTUECB+80 04892000 UECRVPT3 EQU ISTUECB+76 04893000 UECREQNM EQU ISTUECB+60 04894000 UECVRPL EQU UECPLIST+16 04895000 UECRSNBT EQU UECRSNCD+3 04896000 @NM00038 EQU UECRSNCD 04897000 UECUSFLD EQU UECREQTR 04898000 UECDAF EQU UECTPNCD+2 04899000 UECSAF EQU UECTPNCD 04900000 UECRPLAD EQU UECACB 04901000 UECEXLST EQU ISTUECB+12 04902000 UECFORW EQU ISTUECB+4 04903000 UECRSV01 EQU ISTUECB+2 04904000 LGPLOGNP EQU ISTLGPFX+48 04905000 LGPUSECT EQU ISTLGPFX+10 04906000 LGPDTLEN EQU ISTLGPFX+8 04907000 LGPBFHDR EQU ISTLGPFX 04908000 BFHDATA EQU ISTBFHDR+8 04909000 BFHUSED EQU ISTBFHDR+6 04910000 BFHSIZE EQU ISTBFHDR+4 04911000 BFHNXCHN EQU ISTBFHDR 04912000 BINUSE EQU ISTBIND+36 04913000 BINPRIM EQU ISTBIND+27 04914000 BINPRIML EQU ISTBIND+26 04915000 BINRSV05 EQU ISTBIND+25 04916000 BINLUTYP EQU BINLUP 04917000 BINRSV27 EQU BINLUP 04918000 BINRSV08 EQU BINTSU+4 04919000 BINPRUSE EQU BINPRUSZ 04920000 BINPRUSM EQU BINPRUSZ 04921000 BINSRUSE EQU BINSRUSZ 04922000 BINSRUSM EQU BINSRUSZ 04923000 BINRPACM EQU BINRPACE 04924000 BINRSV07 EQU BINRPACE 04925000 BINRSV06 EQU BINTSU 04926000 BINCONR EQU BINCMNP2 04927000 BINRCHN EQU BINCMNP2 04928000 BINMDIBK EQU BINCMNP2 04929000 BINBKFS EQU BINCMNP2 04930000 BINRCVR EQU BINCMNP2 04931000 BINFMTRM EQU BINCMNP2 04932000 BINRSV04 EQU BINCMNP 04933000 BINALT EQU BINCMNP 04934000 BINBKTR EQU BINCMNP 04935000 BINBRAK EQU BINCMNP 04936000 BINFMHD EQU BINCMNP 04937000 BINRSV03 EQU BINCMNP 04938000 BINSSEB EQU BINSECP 04939000 BINSCMP EQU BINSECP 04940000 BINRSV02 EQU BINSECP 04941000 BINSCHNR EQU BINSECP 04942000 BINSMCH EQU BINSECP 04943000 BINSCHN EQU BINSECP 04944000 BINPSEB EQU BINPRIP 04945000 BINPCMP EQU BINPRIP 04946000 BINRSV01 EQU BINPRIP 04947000 BINPCHNR EQU BINPRIP 04948000 BINPMCH EQU BINPRIP 04949000 BINPCHN EQU BINPRIP 04950000 BINTS EQU ISTBIND+2 04951000 BINFM EQU ISTBIND+1 04952000 BINTYPE EQU BINFMTY 04953000 BINFMT EQU BINFMTY 04954000 ACDREFQ EQU ISTACDEB+204 04955000 ACDASFQ EQU ISTACDEB+200 04956000 ACDSOP EQU ISTACDEB+184 04957000 ACDSIP EQU ISTACDEB+168 04958000 ACDRSV24 EQU ACDVTAM+108 04959000 ACDRSV23 EQU ACDVTAM+104 04960000 ACDRSV22 EQU ACDVTAM+100 04961000 ACDOCWAD EQU ACDVTAM+96 04962000 ACDRSV10 EQU ACDVTAM+92 04963000 ACDAPDDT EQU ACDAPDAT+1 04964000 ACDAPDLN EQU ACDAPDAT 04965000 ACDRSV07 EQU ACDVTAM+82 04966000 ACDRSV06 EQU ACDVTAM+81 04967000 ACDRSV09 EQU ACDSSFLG 04968000 ACDAICLS EQU ACDSSFLG 04969000 ACDABEND EQU ACDSSFLG 04970000 ACDCACB EQU ACDSSFLG 04971000 ACDRSV21 EQU ACDVTAM+64 04972000 ACDSSPAB EQU ACDVTAM+48 04973000 ACDNEPAB EQU ACDVTAM+32 04974000 ACDRSV20 EQU ACDVTAM+20 04975000 ACDRARQ EQU ACDVTAM+16 04976000 ACDRAFQ EQU ACDVTAM+12 04977000 ACDFMCB EQU ACDVTAM+8 04978000 ACDRDTE EQU ACDVTAM+4 04979000 ACDLOCK EQU ACDVTAM 04980000 ACDAPP EQU ACDAPPAD+1 04981000 ACDEXSCL EQU ACDAPPAD 04982000 ACDACB EQU ACDACBAD+1 04983000 ACDDEBID EQU ACDACBAD 04984000 ACDPROTG EQU ACDACBAD 04985000 ACDECBAD EQU ACDBASIC+20 04986000 ACDUSRPB EQU ACDUSRPG+1 04987000 ACDNMEXT EQU ACDUSRPG 04988000 ACDPRLEN EQU ACDBASIC+15 04989000 ACDFLGS1 EQU ACDBASIC+14 04990000 ACDQSCNT EQU ACDBASIC+13 04991000 ACDOPATB EQU ACDBASIC+12 04992000 ACDIRBAD EQU ACDBASIC+8 04993000 ACDDEB EQU ACDDEBAD+1 04994000 ACDAMLNG EQU ACDDEBAD 04995000 ACDTCB EQU ACDTCBAD+1 04996000 ACDOPNAD EQU ACDNMSUB 04997000 ACDRSV03 EQU ACDTBLOF+1 04998000 ACDRSV02 EQU ACDTBLOF 04999000 ACDAMTYP EQU ACDDBPFX+5 05000000 ACDLENG EQU ACDDBPFX+4 05001000 ACDDEBX EQU ACDDBPFX 05002000 ACDRSV08 EQU ACDVTPRX+12 05003000 ACDCHN EQU ACDVTPRX+4 05004000 ACDSAF EQU ACDVTPRX+2 05005000 ACDLNGTH EQU ACDVTPRX+1 05006000 ACDTYPE EQU ACDVTPRX 05007000 CRACHAIN EQU ISTCRA+928 05008000 CRARSV02 EQU ISTCRA+924 05009000 CRARSV01 EQU ISTCRA+920 05010000 CRABFTBA EQU CRABUFA 05011000 CRAMASK EQU CRASVC+64 05012000 CRAHSIZ EQU CRASVC+60 05013000 CRAASCRR EQU CRASVC 05014000 CRAPROCR EQU ISTCRA+312 05015000 CRAPSS EQU ISTCRA+160 05016000 CRARPH EQU ISTCRA+52 05017000 CRALAPTR EQU CRABASIC+48 05018000 CRAL9PTR EQU CRABASIC+44 05019000 CRAL8PTR EQU CRABASIC+40 05020000 CRAL7PTR EQU CRABASIC+36 05021000 CRAL6PTR EQU CRABASIC+32 05022000 CRAL5PTR EQU CRABASIC+28 05023000 CRAL4PTR EQU CRABASIC+24 05024000 CRAL1PTR EQU CRABASIC+12 05025000 CRALEV01 EQU CRALKACT+3 05026000 CRALEV02 EQU CRALKACT+3 05027000 CRALEV03 EQU CRALKACT+3 05028000 CRALEV04 EQU CRALKACT+3 05029000 CRALEV05 EQU CRALKACT+3 05030000 CRALEV06 EQU CRALKACT+3 05031000 CRALEV07 EQU CRALKACT+3 05032000 CRALEV08 EQU CRALKACT+3 05033000 CRALEV09 EQU CRALKACT+2 05034000 CRALEV10 EQU CRALKACT+2 05035000 CRALEV11 EQU CRALKACT+2 05036000 CRALEV12 EQU CRALKACT+2 05037000 CRALEV13 EQU CRALKACT+2 05038000 CRALEV14 EQU CRALKACT+2 05039000 CRALEV15 EQU CRALKACT+2 05040000 CRALEV16 EQU CRALKACT+2 05041000 CRALEV17 EQU CRALKACT+1 05042000 CRALEV18 EQU CRALKACT+1 05043000 CRALEV19 EQU CRALKACT+1 05044000 CRALEV20 EQU CRALKACT+1 05045000 CRALEV21 EQU CRALKACT+1 05046000 CRALEV22 EQU CRALKACT+1 05047000 CRALEV23 EQU CRALKACT+1 05048000 CRALEV24 EQU CRALKACT+1 05049000 CRALEV25 EQU CRALKACT 05050000 CRALEV26 EQU CRALKACT 05051000 CRALEV27 EQU CRALKACT 05052000 CRALEV28 EQU CRALKACT 05053000 CRALEV29 EQU CRALKACT 05054000 CRALEV30 EQU CRALKACT 05055000 CRALEV31 EQU CRALKACT 05056000 CRALEV32 EQU CRALKACT 05057000 CRAFRR EQU CRAHDR+4 05058000 @NM00037 EQU ISTAPCRR+137 05059000 @NM00036 EQU APC57FLG 05060000 APCNREL EQU APC57FLG 05061000 APCRECRA EQU APC57FLG 05062000 @NM00035 EQU APC54FLG 05063000 APCRLST EQU APC54FLG 05064000 APCPR153 EQU APC53FLG 05065000 @NM00034 EQU APC52FLG 05066000 APCWKF EQU APC52FLG 05067000 APCNWF EQU APC52FLG 05068000 APCRDQ EQU APC52FLG 05069000 APCQENQ EQU APC52FLG 05070000 APCSMSR EQU APC52FLG 05071000 APCCKRQ EQU APC52FLG 05072000 @NM00033 EQU APC31FLG 05073000 APCSORT EQU APC31FLG 05074000 APCRESCH EQU APC31FLG 05075000 APCTPXIT EQU APC31FLG 05076000 APCSWTWD EQU ISTAPCRR+128 05077000 APCSAV2 EQU ISTAPCRR+124 05078000 APCSAV1 EQU ISTAPCRR+120 05079000 APCRETCD EQU APCCOMF+2 05080000 @NM00032 EQU APCCOMF1+1 05081000 APCZLBER EQU APCCOMF1 05082000 APCEXIT EQU APCCOMF1 05083000 APCRELR EQU APCCOMF1 05084000 APCIRB2 EQU APCCOMF1 05085000 APCIRB1 EQU APCCOMF1 05086000 APCSMCR EQU APCCOMF1 05087000 APCUETSK EQU APCCOMF1 05088000 APCSSTSK EQU APCCOMF1 05089000 APCESTAL EQU APCSAVE 05090000 APCFRRPM EQU ISTAPCRR+40 05091000 APCQWFO EQU ISTAPCRR+36 05092000 APCPABSV EQU ISTAPCRR+32 05093000 APCRTRN EQU ISTAPCRR+28 05094000 APCTCBA EQU ISTAPCRR+24 05095000 APCPSTA EQU ISTAPCRR+20 05096000 @NM00031 EQU APCRFLG+1 05097000 APC31R EQU APCRFLG 05098000 APC58R EQU APCRFLG 05099000 APC57R EQU APCRFLG 05100000 APC56R EQU APCRFLG 05101000 APC54R EQU APCRFLG 05102000 APC53R EQU APCRFLG 05103000 APC52R EQU APCRFLG 05104000 APC51R EQU APCRFLG 05105000 @NM00030 EQU APCATFLG+1 05106000 APC31E EQU APCATFLG 05107000 APC58E EQU APCATFLG 05108000 APC57E EQU APCATFLG 05109000 APC56E EQU APCATFLG 05110000 APC54E EQU APCATFLG 05111000 APC53E EQU APCATFLG 05112000 APC52E EQU APCATFLG 05113000 APC51E EQU APCATFLG 05114000 APCHDRSV EQU ISTAPCRR 05115000 ASCPSREG EQU ISTASCRR+44 05116000 ASCUSR01 EQU ASCUSRGS+12 05117000 ASCUSR00 EQU ASCUSRGS+8 05118000 ASCUSR15 EQU ASCUSRGS+4 05119000 ASCUSR14 EQU ASCUSRGS 05120000 ASCETRYA EQU ISTASCRR+24 05121000 ASCKEY EQU ISTASCRR+23 05122000 ASCAUDIT EQU ASCFLG3 05123000 ASCFBDUD EQU ASCFLG3 05124000 ASCLLKF EQU ASCFLG3 05125000 ASCKEYF EQU ASCFLG3 05126000 ASCFBDAL EQU ASCFLG3 05127000 ASCFSRGT EQU ASCFLG3 05128000 ASCICR EQU ASCFLG2 05129000 ASCFSRIC EQU ASCFLG2 05130000 ASCFBDIC EQU ASCFLG2 05131000 ASCFBAIC EQU ASCFLG2 05132000 ASCPASTR EQU ASCFLG1 05133000 ASCFSR EQU ASCFLG1 05134000 ASCFBD EQU ASCFLG1 05135000 ASCFBA EQU ASCFLG1 05136000 ASCPFCRR EQU ISTASCRR 05137000 ZCRRU EQU ZCRRHRU+3 05138000 ZCRRH EQU ZCRRHRU 05139000 ZCRWORDA EQU ISTZCRR+477 05140000 ZCRCMNRC EQU ISTZCRR+476 05141000 ZCRRSV97 EQU ZCRENTER+18 05142000 ZCREIC2B EQU ZCRENTER+18 05143000 ZCREAC2B EQU ZCRENTER+18 05144000 ZCRELCAB EQU ZCRENTER+18 05145000 ZCREDCMF EQU ZCRENTER+18 05146000 ZCREBCIF EQU ZCRENTER+18 05147000 ZCREICSG EQU ZCRENTER+18 05148000 ZCREDCK0 EQU ZCRENTER+18 05149000 ZCRECFY0 EQU ZCRENTER+17 05150000 ZCREKCCB EQU ZCRENTER+17 05151000 ZCREDCNB EQU ZCRENTER+17 05152000 ZCREICOE EQU ZCRENTER+17 05153000 ZCREBCNB EQU ZCRENTER+17 05154000 ZCREBC0L EQU ZCRENTER+17 05155000 ZCREBCAL EQU ZCRENTER+17 05156000 ZCREDCQR EQU ZCRENTER+17 05157000 ZCREDCPR EQU ZCRENTER+16 05158000 ZCREBCSB EQU ZCRENTER+16 05159000 ZCREAC1R EQU ZCRENTER+16 05160000 ZCRECCCI EQU ZCRENTER+16 05161000 ZCRECCAI EQU ZCRENTER+16 05162000 ZCRECCBI EQU ZCRENTER+16 05163000 ZCREBCAR EQU ZCRENTER+16 05164000 ZCREBCDR EQU ZCRENTER+16 05165000 ZCREBCBR EQU ZCRENTER+15 05166000 ZCREDCXR EQU ZCRENTER+15 05167000 ZCREDCWB EQU ZCRENTER+15 05168000 ZCREDCWR EQU ZCRENTER+15 05169000 ZCREKCCN EQU ZCRENTER+15 05170000 ZCREKCBN EQU ZCRENTER+15 05171000 ZCREKCBB EQU ZCRENTER+15 05172000 ZCREJC0B EQU ZCRENTER+15 05173000 ZCREJCDB EQU ZCRENTER+14 05174000 ZCREJCCB EQU ZCRENTER+14 05175000 ZCREJCBB EQU ZCRENTER+14 05176000 ZCREJCAB EQU ZCRENTER+14 05177000 ZCREIC1B EQU ZCRENTER+14 05178000 ZCREIC0B EQU ZCRENTER+14 05179000 ZCREICX0 EQU ZCRENTER+14 05180000 ZCREICWB EQU ZCRENTER+14 05181000 ZCREICVB EQU ZCRENTER+13 05182000 ZCREICUB EQU ZCRENTER+13 05183000 ZCREICTB EQU ZCRENTER+13 05184000 ZCREICSC EQU ZCRENTER+13 05185000 ZCREICSB EQU ZCRENTER+13 05186000 ZCREICRB EQU ZCRENTER+13 05187000 ZCREICQB EQU ZCRENTER+13 05188000 ZCREICQA EQU ZCRENTER+13 05189000 ZCREICOB EQU ZCRENTER+12 05190000 ZCREICOA EQU ZCRENTER+12 05191000 ZCREICNB EQU ZCRENTER+12 05192000 ZCREICNA EQU ZCRENTER+12 05193000 ZCREICMB EQU ZCRENTER+12 05194000 ZCREICLB EQU ZCRENTER+12 05195000 ZCREICKG EQU ZCRENTER+12 05196000 ZCREICKE EQU ZCRENTER+12 05197000 ZCREICKB EQU ZCRENTER+11 05198000 ZCREICJB EQU ZCRENTER+11 05199000 ZCREICID EQU ZCRENTER+11 05200000 ZCREICIB EQU ZCRENTER+11 05201000 ZCREICHB EQU ZCRENTER+11 05202000 ZCREICGB EQU ZCRENTER+11 05203000 ZCREICEB EQU ZCRENTER+11 05204000 ZCREICDB EQU ZCRENTER+11 05205000 ZCREICCI EQU ZCRENTER+10 05206000 ZCREICCB EQU ZCRENTER+10 05207000 ZCREICBI EQU ZCRENTER+10 05208000 ZCREICBB EQU ZCRENTER+10 05209000 ZCREICAB EQU ZCRENTER+10 05210000 ZCREICAA EQU ZCRENTER+10 05211000 ZCREHCAN EQU ZCRENTER+10 05212000 ZCREGC0B EQU ZCRENTER+10 05213000 ZCREGC0A EQU ZCRENTER+9 05214000 ZCREGCLA EQU ZCRENTER+9 05215000 ZCREGCEB EQU ZCRENTER+9 05216000 ZCREGCDB EQU ZCRENTER+9 05217000 @NM00029 EQU ZCRENTER+9 05218000 ZCREGCBB EQU ZCRENTER+9 05219000 ZCREGCAB EQU ZCRENTER+9 05220000 ZCREFCEB EQU ZCRENTER+9 05221000 ZCREFCEA EQU ZCRENTER+8 05222000 ZCREECTA EQU ZCRENTER+8 05223000 ZCREECEA EQU ZCRENTER+8 05224000 ZCREECDA EQU ZCRENTER+8 05225000 ZCREECCB EQU ZCRENTER+8 05226000 ZCREECCA EQU ZCRENTER+8 05227000 ZCREECBB EQU ZCRENTER+8 05228000 ZCREECBA EQU ZCRENTER+8 05229000 ZCREDCMB EQU ZCRENTER+7 05230000 ZCREDCL0 EQU ZCRENTER+7 05231000 ZCREDCKB EQU ZCRENTER+7 05232000 ZCREDCKA EQU ZCRENTER+7 05233000 ZCREDCJ0 EQU ZCRENTER+7 05234000 ZCREDCI0 EQU ZCRENTER+7 05235000 ZCREDCH0 EQU ZCRENTER+7 05236000 ZCREDCF0 EQU ZCRENTER+7 05237000 ZCREDCE0 EQU ZCRENTER+6 05238000 ZCREDCD0 EQU ZCRENTER+6 05239000 ZCREDCC0 EQU ZCRENTER+6 05240000 ZCREDCB0 EQU ZCRENTER+6 05241000 ZCREDCA0 EQU ZCRENTER+6 05242000 ZCRECC2B EQU ZCRENTER+6 05243000 ZCRECC1B EQU ZCRENTER+6 05244000 ZCRECC1A EQU ZCRENTER+6 05245000 ZCRECC0B EQU ZCRENTER+5 05246000 ZCRECC0A EQU ZCRENTER+5 05247000 ZCREBC0B EQU ZCRENTER+5 05248000 ZCREBC0A EQU ZCRENTER+5 05249000 ZCREBCZ0 EQU ZCRENTER+5 05250000 ZCREBCY0 EQU ZCRENTER+5 05251000 ZCREBCX0 EQU ZCRENTER+5 05252000 ZCREBCXA EQU ZCRENTER+5 05253000 ZCREBCSC EQU ZCRENTER+4 05254000 ZCREBCRB EQU ZCRENTER+4 05255000 ZCREBCRA EQU ZCRENTER+4 05256000 ZCREBCQB EQU ZCRENTER+4 05257000 ZCREBCPB EQU ZCRENTER+4 05258000 ZCREBCOB EQU ZCRENTER+4 05259000 ZCREBCNE EQU ZCRENTER+4 05260000 ZCREBCND EQU ZCRENTER+4 05261000 ZCREBCMB EQU ZCRENTER+3 05262000 ZCREBCLB EQU ZCRENTER+3 05263000 ZCREBCLA EQU ZCRENTER+3 05264000 ZCREBCKB EQU ZCRENTER+3 05265000 ZCREBCKA EQU ZCRENTER+3 05266000 ZCREBCJB EQU ZCRENTER+3 05267000 ZCREBCJA EQU ZCRENTER+3 05268000 ZCREBCID EQU ZCRENTER+3 05269000 ZCREBCIB EQU ZCRENTER+2 05270000 ZCREBCIA EQU ZCRENTER+2 05271000 ZCREBCHB EQU ZCRENTER+2 05272000 ZCREBCHA EQU ZCRENTER+2 05273000 ZCREBCGB EQU ZCRENTER+2 05274000 ZCREBCGA EQU ZCRENTER+2 05275000 ZCREBCFB EQU ZCRENTER+2 05276000 ZCREBCFA EQU ZCRENTER+2 05277000 ZCREBCEB EQU ZCRENTER+1 05278000 ZCREBCDI EQU ZCRENTER+1 05279000 ZCREBCCB EQU ZCRENTER+1 05280000 ZCREBCBI EQU ZCRENTER+1 05281000 ZCREBCBB EQU ZCRENTER+1 05282000 ZCREBCBA EQU ZCRENTER+1 05283000 ZCREBCAM EQU ZCRENTER+1 05284000 ZCREBCAI EQU ZCRENTER+1 05285000 ZCREBCAG EQU ZCRENTER 05286000 ZCREBCAE EQU ZCRENTER 05287000 ZCREBCAB EQU ZCRENTER 05288000 ZCREBCAA EQU ZCRENTER 05289000 ZCREAC1B EQU ZCRENTER 05290000 ZCREAC0B EQU ZCRENTER 05291000 ZCREAC0A EQU ZCRENTER 05292000 ZCREAC1A EQU ZCRENTER 05293000 ZCRTNAME EQU ZCRAUDIT+1 05294000 ZCRTID EQU ZCRAUDIT 05295000 ZCRREMIC EQU ISTZCRR+436 05296000 ZCRSAVEZ EQU ISTZCRR+196 05297000 ZCRDAFSV EQU ZCRCIDSV+2 05298000 ZCRSAFSV EQU ZCRCIDSV 05299000 ZCRR13SV EQU ISTZCRR+188 05300000 ZCRR2SV EQU ISTZCRR+184 05301000 ZCROPCDE EQU ISTZCRR+183 05302000 ZCRPRMTC EQU ISTZCRR+182 05303000 ZCRRCDSV EQU ISTZCRR+181 05304000 ZCRAWQSW EQU ISTZCRR+180 05305000 ZCRTOPQ EQU ISTZCRR+180 05306000 ZCRLSTFB EQU ISTZCRR+180 05307000 ZCRXSCHD EQU ISTZCRR+180 05308000 ZCRNXTEL EQU ISTZCRR+180 05309000 ZCRSCANQ EQU ISTZCRR+180 05310000 ZCRMOREL EQU ISTZCRR+180 05311000 ZCRFBPRC EQU ISTZCRR+180 05312000 ZCRFSBSV EQU ISTZCRR+176 05313000 ZCRSVWK5 EQU ZCRWKARA+16 05314000 ZCRSVWK4 EQU ZCRWKARA+12 05315000 ZCRSVWK3 EQU ZCRWKARA+8 05316000 ZCRSVWK2 EQU ZCRWKARA+4 05317000 ZCRSVWK1 EQU ZCRWKARA 05318000 ZCRSVF25 EQU ZCRSVRTN+96 05319000 ZCRSVF24 EQU ZCRSVRTN+92 05320000 ZCRSVF23 EQU ZCRSVRTN+88 05321000 ZCRSVF22 EQU ZCRSVRTN+84 05322000 ZCRSVF21 EQU ZCRSVRTN+80 05323000 ZCRSVF20 EQU ZCRSVRTN+76 05324000 ZCRSVF19 EQU ZCRSVRTN+72 05325000 ZCRSVF18 EQU ZCRSVRTN+68 05326000 ZCRSVF17 EQU ZCRSVRTN+64 05327000 ZCRSVF16 EQU ZCRSVRTN+60 05328000 ZCRSVF15 EQU ZCRSVRTN+56 05329000 ZCRSVF14 EQU ZCRSVRTN+52 05330000 ZCRSVF13 EQU ZCRSVRTN+48 05331000 ZCRSVF12 EQU ZCRSVRTN+44 05332000 ZCRSVF11 EQU ZCRSVRTN+40 05333000 ZCRSVF10 EQU ZCRSVRTN+36 05334000 ZCRSVF9 EQU ZCRSVRTN+32 05335000 ZCRSVF8 EQU ZCRSVRTN+28 05336000 ZCRSVF7 EQU ZCRSVRTN+24 05337000 ZCRSVF6 EQU ZCRSVRTN+20 05338000 ZCRSVF5 EQU ZCRSVRTN+16 05339000 ZCRSVF4 EQU ZCRSVRTN+12 05340000 ZCRSVF3 EQU ZCRSVRTN+8 05341000 ZCRSVF2 EQU ZCRSVRTN+4 05342000 ZCRSVF1 EQU ZCRSVRTN 05343000 ZCRPVZB EQU ISTZCRR+52 05344000 ZCRZLB EQU ISTZCRR+48 05345000 ZCRBFPTR EQU ISTZCRR+44 05346000 ZCRCCWA EQU ISTZCRR+40 05347000 ZCRPSW EQU ZCRPARMS+15 05348000 ZCRPCHAR EQU ZCRPARMS+14 05349000 ZCRPRES2 EQU ZCRPCOD2 05350000 ZCRPMFGF EQU ZCRPCOD2 05351000 ZCRPFHDR EQU ZCRPCOD2 05352000 ZCRPPG2 EQU ZCRPCOD2 05353000 ZCRPRES EQU ZCRPCOD1 05354000 ZCRPCFTX EQU ZCRPCOD1 05355000 ZCRPBUF EQU ZCRPCOD1 05356000 ZCRPLSCB EQU ZCRPCOD1 05357000 ZCRPLSBQ EQU ZCRPLSBF 05358000 ZCRPFSB EQU ZCRPCOD1 05359000 ZCRPLNG EQU ZCRPCOD1 05360000 ZCRPPG EQU ZCRPCOD1 05361000 ZCRDTODA EQU ZCRDFRDA 05362000 ZCRMLNG EQU ZCRPARMS+8 05363000 ZCRTBPTR EQU ZCRPARMS+4 05364000 ZCRCBPTR EQU ZCRFBPTR 05365000 ZCRCRLCP EQU ISTZCRR+20 05366000 @NM00028 EQU ZCRSCPSW 05367000 ZCRSKIPT EQU ZCRSCPSW 05368000 ZCRFSBWE EQU ZCRSCPSW 05369000 ZCRPRCMP EQU ZCRSCPSW 05370000 ZCRLREQ EQU ZCRSCPSW 05371000 ZCRRJLCP EQU ZCRSCPSW 05372000 ZCRTPINV EQU ZCRSCPSW 05373000 ZCRTPEX EQU ZCRSCPSW 05374000 @NM00027 EQU ZCRIBPR 05375000 ZCR3270R EQU ZCRIBPR 05376000 ZCR3270 EQU ZCRIBPR 05377000 ZCRLCPFD EQU ZCRIBPR 05378000 ZCRLCPFR EQU ZCRIBPR 05379000 ZCRRELK EQU ZCRIBPR 05380000 ZCRERR EQU ZCRIBPR 05381000 ZCRNOBUF EQU ZCRIBPR 05382000 @NM00026 EQU ZCRPFLGS 05383000 ZCRQAHED EQU ZCRPFLGS 05384000 ZCRF1RES EQU ZCRGENSW 05385000 ZCRBRIS EQU ZCRGENSW 05386000 ZCRCLRBD EQU ZCRGENSW 05387000 ZCREXRES EQU ZCRGENSW 05388000 ZCRLCSYN EQU ZCRGENSW 05389000 ZCRRT06 EQU ZCRGENSW 05390000 ZCRTSW2 EQU ZCRGENSW 05391000 ZCRTSW1 EQU ZCRGENSW 05392000 ZCRINLCP EQU ZCRFLGS3 05393000 ZCRWRPTR EQU ZCRFLGS3 05394000 ZCRNOFRE EQU ZCRFLGS3 05395000 ZCREDRIV EQU ZCRFLGS3 05396000 ZCRDISC EQU ZCRFLGS3 05397000 ZCRTPDIS EQU ZCRFLGS3 05398000 ZCRTPCON EQU ZCRFLGS3 05399000 ZCRTIC EQU ZCRFLGS3 05400000 ZCRCNLXL EQU ZCRRESET 05401000 ZCRENDAN EQU ZCRSWFLD 05402000 ZCRENDXL EQU ZCRSWFLD 05403000 ZCRENDX EQU ZCRSWFLD 05404000 ZCROB1 EQU ZCRNDLCP 05405000 ZCRENDPR EQU ZCRSWFLD 05406000 ZCREXTYP EQU ZCRSWFLD 05407000 ZCRSLCP EQU ZCRENDSH 05408000 ZCRIF0E3 EQU ZCRFLGS2 05409000 ZCRIF0E2 EQU ZCRFLGS2 05410000 ZCRIF0E1 EQU ZCRFLGS2 05411000 ZCROB EQU ZCRFLGS2 05412000 ZCRFMSED EQU ZCRFLGS2 05413000 ZCRSHEDI EQU ZCRFLGS2 05414000 ZCRLOCAL EQU ZCRFLGS2 05415000 ZCRFEXIT EQU ZCRFLGS1 05416000 ZCRUNSOL EQU ZCRFLGS1 05417000 ZCRENDLP EQU ZCRFLGS1 05418000 ZCRNRMEX EQU ZCRFLGS1 05419000 ZCRWAIT EQU ZCRFLGS1 05420000 ZCRDEQSW EQU ZCRFLGS1 05421000 ZCRQUESW EQU ZCRFLGS1 05422000 ZCREXSW EQU ZCRFLGS1 05423000 ZCRFRRA EQU ISTZCRR+8 05424000 ZCRCHAIN EQU ISTZCRR+4 05425000 ZCRFLAG EQU ZCRCRR+3 05426000 ZCRLEN EQU ZCRCRR+1 05427000 ZCRID EQU ZCRCRR 05428000 CCFRSVD1 EQU CFCCRT 05429000 CCFCR2 EQU CFCCRT 05430000 CCFCRP EQU CFCCRT 05431000 CCFCR1 EQU CFCCRT 05432000 CCFCS2 EQU CFCCRT 05433000 CCFCS1 EQU CFCCRT 05434000 NCFRSVD EQU CFCNTRD 05435000 NCFCR2 EQU CFCNTRD 05436000 NCFCRP EQU CFCNTRD 05437000 NCFCR1 EQU CFCNTRD 05438000 NCFCS2 EQU CFCNTRD 05439000 NCFCS1 EQU CFCNTRD 05440000 ZSAZTRAC EQU ISTZSAVE+36 05441000 ZSAZSVVR EQU ISTZSAVE+12 05442000 ZSAZSVRR EQU ISTZSAVE+8 05443000 ZSAZSVFC EQU ISTZSAVE+4 05444000 ZSAZACTV EQU ZSAZSVMS 05445000 LCPFTYPE EQU LCPRPHA 05446000 LCPRSTQH EQU LCPLCCW 05447000 LCPCLREP EQU ISTLCPB+44 05448000 LCPUBFSB EQU LCPFLCCW 05449000 LCPRSV77 EQU ISTLCPB+39 05450000 LCPLCCWC EQU ISTLCPB+38 05451000 LCPRSV78 EQU LCPFLG1 05452000 LCPTRANS EQU LCPFLG1 05453000 LCPSTLB EQU LCPFLG1 05454000 LCPREDRV EQU LCPFLG1 05455000 LCPDIRPT EQU LCPFLG1 05456000 LCPINTER EQU LCPFLG1 05457000 LCPRESET EQU LCPFLG1 05458000 LCPSTYPE EQU ISTLCPB+36 05459000 LCPFSNCH EQU ISTLCPB+34 05460000 LCPFOSN EQU ISTLCPB+32 05461000 LCPTLBAD EQU ISTLCPB+28 05462000 LCPFDB2 EQU LCPFDBA+1 05463000 LCPFDB1 EQU LCPFDBA 05464000 LCPNXLCW EQU ISTLCPB+20 05465000 LCPDAF EQU LCPCID+2 05466000 LCPSAF EQU LCPCID 05467000 LCPLCCW1 EQU ISTLCPB+12 05468000 LCPRRCNT EQU LCPSEQ+1 05469000 LCPRRCCT EQU LCPSEQ 05470000 LCPATOP EQU LCPFLAG2 05471000 LCPFREE EQU LCPFLAG2 05472000 LCPDSTAT EQU LCPFLAG2 05473000 LCPEXRES EQU LCPFID0 05474000 LCPZRIMM EQU LCPTLBPI 05475000 LCPRSTRT EQU LCPFLAG2 05476000 LCPASYN EQU LCPFLAG2 05477000 LCPPRFLG EQU LCPFLAG2 05478000 LCPZMIRC EQU LCPRUCNT 05479000 LCPCHAI2 EQU LCPCHAIN+1 05480000 LCPCHNG EQU LCPCHAI1 05481000 LCPZRT0B EQU LCPMNRCD 05482000 LCPZRT0A EQU LCPMNRCD 05483000 LCPZRTL9 EQU LCPZRT09 05484000 LCPZRTL8 EQU LCPZRT08 05485000 LCPZRTL7 EQU LCPZRT07 05486000 LCPZRTL6 EQU LCPZRT06 05487000 LCPZRTL5 EQU LCPZRT05 05488000 LCPZRTL4 EQU LCPZRT04 05489000 LCPZRTL3 EQU LCPZRT03 05490000 LCPZRTL2 EQU LCPZRT02 05491000 LCPZRT01 EQU LCPFLAGS 05492000 LCPZRT00 EQU LCPFLAGS 05493000 LCPLNGTH EQU ISTLCPB+1 05494000 LCPTYPE EQU ISTLCPB 05495000 LCCWDATA EQU ISTLCCW+4 05496000 LCCWCNT EQU ISTLCCW+2 05497000 LCCWACI EQU LCCWFLAG 05498000 LCCWRFI EQU LCCWFLAG 05499000 LCCWPER EQU LCCWLSI 05500000 LCCWIDAT EQU LCCWFLAG 05501000 LCCWNTVC EQU LCCWFLAG 05502000 LCCWCKPT EQU LCCWFLAG 05503000 LCCWCC EQU LCCWFLAG 05504000 LCCWCD EQU LCCWFLAG 05505000 LCCWTYPE EQU LCCWCTL 05506000 LCCWMODE EQU LCCWCTL 05507000 LCCWSOP EQU LCCWRWOP 05508000 @NM00025 EQU LCCWRWOP 05509000 LCCWSD EQU LCCWOP 05510000 LCCWSI EQU LCCWOP 05511000 CNSRSV05 EQU CNSTFLDB+2 05512000 CNSCLAQB EQU CNSTFLDB+1 05513000 CNSCLINB EQU CNSTFLDB+1 05514000 CNSGBINB EQU CNSTFLDB+1 05515000 CNSLGINB EQU CNSTFLDB+1 05516000 CNSACINB EQU CNSTFLDB+1 05517000 CNSPSINB EQU CNSTFLDB+1 05518000 CNSRQRLB EQU CNSTFLDB+1 05519000 CNSTRRLB EQU CNSTFLDB 05520000 CNSDORLB EQU CNSTFLDB 05521000 CNSRLINB EQU CNSTFLDB 05522000 CNSQREQB EQU CNSTFLDB 05523000 CNSXREQB EQU CNSTFLDB 05524000 CNSAQINB EQU CNSTFLDB 05525000 CNSRSV01 EQU CNSTFLDA+2 05526000 CNSCLAQA EQU CNSTFLDA+1 05527000 CNSCLINA EQU CNSTFLDA+1 05528000 CNSGBINA EQU CNSTFLDA+1 05529000 CNSLGINA EQU CNSTFLDA+1 05530000 CNSACINA EQU CNSTFLDA+1 05531000 CNSPSINA EQU CNSTFLDA+1 05532000 CNSRQRLA EQU CNSTFLDA+1 05533000 CNSTRRLA EQU CNSTFLDA 05534000 CNSDORLA EQU CNSTFLDA 05535000 CNSRLINA EQU CNSTFLDA 05536000 CNSQREQA EQU CNSTFLDA 05537000 CNSXREQA EQU CNSTFLDA 05538000 CNSAQINA EQU CNSTFLDA 05539000 CNSTPFX EQU ISTCNSTA 05540000 PFCRSV01 EQU ISTPFCRR+13 05541000 PFCFTA EQU ISTPFCRR+12 05542000 CRRFRR EQU PFCFRRO 05543000 CRRCHAIN EQU PFCCRRO 05544000 CRRLEN EQU PFCCRRLN 05545000 PFCRSV10 EQU PFCCRR+1 05546000 CRRID EQU PFCCRRID 05547000 PATRSV01 EQU PATFLAGA 05548000 PATUSEFG EQU PATFLAGA 05549000 PATRDCNT EQU ISTPAT+6 05550000 PATGRPID EQU ISTPAT+5 05551000 PATPTHID EQU ISTPAT+4 05552000 PATDINDX EQU ISTPAT+2 05553000 PATGINDX EQU ISTPAT 05554000 GNTGRPNM EQU ISTGNT 05555000 DNTTELNO EQU ISTDNT+1 05556000 DNTCTDIG EQU ISTDNT 05557000 RLSRSV02 EQU ISTRLS+140 05558000 RLSRSV01 EQU ISTRLS+138 05559000 RLSCTELU EQU ISTRLS+136 05560000 RLSPRE EQU ISTRLS 05561000 RDARSVPT EQU ISTRDA+84 05562000 RDAPUBI EQU ISTRDA+83 05563000 RDADFCUA EQU ISTRDA+80 05564000 RDACTPCC EQU ISTRDA+79 05565000 RDADACUA EQU ISTRDA+76 05566000 RDALUBA EQU RDAUCBAD+1 05567000 RDACHQI EQU RDAUCBAD 05568000 RDARSV01 EQU RDAFLAG 05569000 RDARBISA EQU RDAFLAG 05570000 RDAPRE EQU ISTRDA 05571000 RSWRSV01 EQU ISTRSW+152 05572000 RSWRSV02 EQU ISTRSW+150 05573000 RSWCTELU EQU ISTRSW+148 05574000 RSWGRUPZ EQU ISTRSW+146 05575000 RSWDIALZ EQU ISTRSW+144 05576000 RSWGRUPT EQU ISTRSW+140 05577000 RSWDIALT EQU ISTRSW+136 05578000 RSWPRE EQU ISTRSW 05579000 RLXRSV03 EQU ISTRLX+80 05580000 RLXRSV02 EQU ISTRLX+77 05581000 RLXRSV01 EQU RLXFLAGA 05582000 RLXINUSE EQU RLXFLAGA 05583000 RLXNLUX EQU ISTRLX+72 05584000 RLXPRE EQU ISTRLX 05585000 RPXRSV01 EQU ISTRPX+80 05586000 RPXRSV02 EQU ISTRPX+77 05587000 RPXMAXLU EQU ISTRPX+76 05588000 RPXFLUX EQU ISTRPX+72 05589000 RPXPRE EQU ISTRPX 05590000 RLURSV02 EQU ISTRLU+172 05591000 RLULGMOD EQU ISTRLU+164 05592000 RLUMODEP EQU RLUMODET+8 05593000 RLUMODEN EQU RLUMODET 05594000 RLUUSSPT EQU RLUUSSTB+8 05595000 RLUUSSNM EQU RLUUSSTB 05596000 RLURSV01 EQU ISTRLU+137 05597000 RLULOCAD EQU ISTRLU+136 05598000 RLUNCPPM EQU RLUNCPPC+1 05599000 RLUNCPPN EQU RLUNCPPC 05600000 RLUPACEM EQU RLUPACE+1 05601000 RLUPACEN EQU RLUPACE 05602000 RLUINTA EQU ISTRLU+128 05603000 RLUSSCFM EQU ISTRLU+127 05604000 RLUCRRSV EQU RLUCRFLG 05605000 RLUACTLU EQU RLUCRFLG 05606000 RLURSV00 EQU RLUFLAG 05607000 RLUNDSES EQU RLUFLAG 05608000 RLUGSTAT EQU RLUFLAG 05609000 RLUBATCH EQU RLUFLAG 05610000 RLURBISA EQU RLUFLAG 05611000 RLUTYPE EQU ISTRLU+124 05612000 RLUCRPR EQU ISTRLU 05613000 RCCRVPT2 EQU ISTRCC+144 05614000 RCCXTOSW EQU ISTRCC+140 05615000 RCCSWTOX EQU ISTRCC+136 05616000 RCCRSPT2 EQU ISTRCC+133 05617000 RCCADDR EQU ISTRCC+132 05618000 RCCPASSL EQU ISTRCC+131 05619000 RCCMXOUT EQU ISTRCC+130 05620000 RCCMXDAT EQU ISTRCC+128 05621000 RCCINDEX EQU ISTRCC+126 05622000 RCCPATHZ EQU ISTRCC+124 05623000 RCCPATHT EQU ISTRCC+120 05624000 RCCDPQ EQU ISTRCC+116 05625000 RCCTPAB EQU ISTRCC+112 05626000 RCCRSV02 EQU ISTRCC+109 05627000 RCCCRRSV EQU RCCCRFLG 05628000 RCCCTCFL EQU RCCCRFLG 05629000 RCCACTPU EQU RCCCRFLG 05630000 RCCNCSPL EQU ISTRCC+104 05631000 RCCRPHCN EQU ISTRCC+100 05632000 RCCEPAB EQU ISTRCC+96 05633000 RCCDPAB EQU ISTRCC+92 05634000 RCCVPAB EQU ISTRCC+88 05635000 @NM00024 EQU ISTRCC+87 05636000 RCCSESCT EQU ISTRCC+86 05637000 RCCIDNUM EQU RCCID48+3 05638000 RCCIDBLK EQU RCCID48+2 05639000 RCCIDPA2 EQU RCCID48+1 05640000 RCCIDPUT EQU RCCID48 05641000 RCCIDPA1 EQU RCCSTAID 05642000 RCCCTELU EQU ISTRCC+76 05643000 RCCCNCNT EQU ISTRCC+75 05644000 RCCRTGOH EQU RCCFLAGB 05645000 RCCBRKCN EQU RCCFLAGB 05646000 RCCRESET EQU RCCFLAGB 05647000 RCCFINAL EQU RCCFLAGB 05648000 RCCBNNSP EQU RCCFLAGB 05649000 RCCIRETR EQU RCCFLAGB 05650000 RCCDIALP EQU RCCFLAGB 05651000 RCCDSTCT EQU RCCFLAGB 05652000 RCCCTPGD EQU RCCFLAG 05653000 RCCPRGDN EQU RCCFLAG 05654000 RCCOUERP EQU RCCFLAG 05655000 RCCOHIMM EQU RCCFLAG 05656000 RCCLDISC EQU RCCFLAG 05657000 RCCERPIP EQU RCCFLAG 05658000 RCCCUDIE EQU RCCFLAG 05659000 RCCRBISA EQU RCCFLAG 05660000 RCCTYPE EQU ISTRCC+72 05661000 RCCPRE EQU ISTRCC 05662000 DOTADTRM EQU ISTDOT 05663000 RDSADDOT EQU ISTRDS+76 05664000 RDSCTATR EQU ISTRDS+74 05665000 RDSCTTRM EQU ISTRDS+72 05666000 RDSPRE EQU ISTRDS 05667000 RINRSV05 EQU ISTRIN+156 05668000 RINRSV04 EQU ISTRIN+152 05669000 RINLOCRN EQU ISTRIN+148 05670000 RINRSV02 EQU ISTRIN+145 05671000 RTRCNCNT EQU RINCNCNT 05672000 RTRNCSPL EQU RINNCSPL 05673000 RTRRPHCN EQU RINRPHCN 05674000 RTRVPAB EQU RINVPAB 05675000 RTRREMOT EQU RINREMOT 05676000 RTRRLDAF EQU RINRLDAF 05677000 RTRNODID EQU RINNODID 05678000 RINRSV01 EQU RINDFD 05679000 RTRLDISC EQU RINLDISC 05680000 RTRNODEF EQU RINNODEF 05681000 RTRREMPO EQU RINREMPO 05682000 RINCRPRE EQU ISTRIN 05683000 RTRRSV04 EQU ISTRTR+210 05684000 RTRLCTI EQU ISTRTR+209 05685000 RTRIDCAS EQU RTRBSCID+1 05686000 RTRIDLEN EQU RTRBSCID 05687000 RTRRSVDD EQU ISTRTR+181 05688000 RTRRDFG EQU ISTRTR+180 05689000 RTRDIAA EQU ISTRTR+176 05690000 RTRPOLA EQU ISTRTR+172 05691000 RTRCADDR EQU ISTRTR+164 05692000 RTRCTADR EQU ISTRTR+162 05693000 RTRCTPOL EQU ISTRTR+160 05694000 RTRCTDIA EQU ISTRTR+158 05695000 RTRRSV03 EQU ISTRTR+156 05696000 RTRRVPT1 EQU ISTRTR+152 05697000 RTRBHSN1 EQU ISTRTR+144 05698000 RTRCRSV2 EQU RTRCRFLG 05699000 RTRDTRLM EQU RTRLSCMD 05700000 RTRCRSV1 EQU RTRCRFLG 05701000 RTRTRMAX EQU ISTRTR+142 05702000 RTRRSV24 EQU RTRRDFF 05703000 RTRRFDEK EQU RTRRDFF 05704000 RTRRFANK EQU RTRRDFF 05705000 RTRRFPFK EQU RTRRDFF 05706000 RTRRFPEN EQU RTRRDFF 05707000 RTRRFXCT EQU RTRRDFF 05708000 RTRRESCT EQU RTRRDFE 05709000 RTRRESUP EQU RTRRDFE 05710000 RTRREATT EQU RTRRDFE 05711000 RTRRECHK EQU RTRRDFE 05712000 RTRREACR EQU RTRRDFE 05713000 RTRRSV0A EQU RTRRDFE 05714000 RTRREBRK EQU RTRRDFE 05715000 RTRRSV11 EQU RTRRDFD 05716000 RTRRSV10 EQU RTRRDFD 05717000 RTRRDBHI EQU RTRRDFD 05718000 RTRRDBHD EQU RTRRDFD 05719000 RTRRDBHN EQU RTRRDFD 05720000 RTRRSV23 EQU RTRRDFC 05721000 RTRRCXMS EQU RTRRDFC 05722000 RTRRCMSG EQU RTRRDFC 05723000 RTRRCBLK EQU RTRRDFC 05724000 RTRRCPT3 EQU RTRRDFC 05725000 RTRRCIT2 EQU RTRRDFC 05726000 RTRRCIT1 EQU RTRRDFC 05727000 RTRRSV32 EQU RTRRDFB 05728000 RTRRBEND EQU RTRRDFB 05729000 RTRRBECT EQU RTRRDFB 05730000 RTRRSV02 EQU RTRRDFA 05731000 RTRRACTR EQU RTRRDFA 05732000 RTRRSV60 EQU RTRRDFA 05733000 RTRRACDT EQU RTRRDFA 05734000 RTRRAPT3 EQU RTRRAALL 05735000 RTRRAPT2 EQU RTRRAALL 05736000 RTRRAPT1 EQU RTRRAALL 05737000 RTRRAATN EQU RTRRDFA 05738000 RTRRSV45 EQU ISTRTR+132 05739000 RTRRSV01 EQU ISTRTR+130 05740000 RTRCTECM EQU ISTRTR+128 05741000 RTRADRPT EQU RTRADR+1 05742000 RTRRSV22 EQU RTRFLAG 05743000 RTRVTERM EQU RTRFLAG 05744000 RTRRSV51 EQU RTRFLAG 05745000 RTRRBISA EQU RTRFLAG 05746000 RTRRSV21 EQU RTRFLAG 05747000 RTRCRPR EQU ISTRTR 05748000 RCLRVPT2 EQU ISTRCL+92 05749000 RCLRVPT1 EQU ISTRCL+88 05750000 RCLGPOLA EQU ISTRCL+84 05751000 RCLCTNGP EQU ISTRCL+82 05752000 RCLRSV01 EQU ISTRCL+80 05753000 RCLCTECM EQU ISTRCL+78 05754000 RCLCTETR EQU ISTRCL+76 05755000 RCLGPADR EQU RCLADR+1 05756000 RCLRSV33 EQU RCLFLAG 05757000 RCLBATCH EQU RCLFLAG 05758000 RCLRBISA EQU RCLFLAG 05759000 RCLRSV22 EQU RCLFLAG 05760000 RCLPRE EQU ISTRCL 05761000 RPTRSV03 EQU ISTRPT+156 05762000 RPTRSV02 EQU ISTRPT+152 05763000 RPTNSNSV EQU ISTRPT+148 05764000 RPTPTHCT EQU ISTRPT+146 05765000 RPTPEPCT EQU ISTRPT+144 05766000 RPTDAFSV EQU ISTRPT+142 05767000 RPTRSV01 EQU ISTRPT+141 05768000 RPTISTAT EQU RPTFLAG1 05769000 RPTDYNAM EQU RPTFLAG1 05770000 RPTVYIMM EQU RPTFLAG1 05771000 RPTVIODN EQU RPTFLAG1 05772000 RPTONLIN EQU RPTFLAG1 05773000 RPTHLVPD EQU RPTFLAG1 05774000 RPTVRYPD EQU RPTFLAG1 05775000 RPTASLEP EQU RPTFLAG1 05776000 RPTUTERM EQU ISTRPT+136 05777000 RPTATERM EQU ISTRPT+132 05778000 RPTDIVT EQU RPTDITT 05779000 RPTCTNM EQU ISTRPT+120 05780000 RPTLNDAF EQU RPTLNCID+2 05781000 RPTLNSAF EQU RPTLNCID 05782000 RPTLN EQU ISTRPT 05783000 RLNRVPT2 EQU ISTRLN+112 05784000 RLNNCSPL EQU ISTRLN+108 05785000 RLNX2SW EQU ISTRLN+104 05786000 @NM00023 EQU ISTRLN+103 05787000 RLNCRRSV EQU RLNCRFLG 05788000 RLNSWEP EQU RLNCRFLG 05789000 RLNSVSKP EQU RLNLSCMD 05790000 RLNSESLM EQU RLNLSCMD 05791000 RLNNPRLM EQU RLNLSCMD 05792000 RLNSWNCP EQU RLNCRFLG 05793000 RLNACTLN EQU RLNCRFLG 05794000 RLNPAUSE EQU ISTRLN+101 05795000 RLNPOLMT EQU ISTRLN+100 05796000 RLNACTSN EQU ISTRLN+98 05797000 RLNRESV1 EQU ISTRLN+97 05798000 RLNACTRM EQU ISTRLN+96 05799000 RLNCTSES EQU ISTRLN+95 05800000 RLNRDSLM EQU ISTRLN+94 05801000 RLNAUTOA EQU ISTRLN+92 05802000 RLNRDFD EQU RLNRDF+3 05803000 RLNRDFC EQU RLNRDF+2 05804000 RLNMULTP EQU RLNRDFB 05805000 RLNRATRN EQU RLNRDFB 05806000 RLNRAPOL EQU RLNRDFB 05807000 RLNTTV EQU RLNRDFB 05808000 RLNRSV0B EQU RLNRDFB 05809000 RLNAUTOD EQU RLNRDFB 05810000 RLNANSWR EQU RLNRDFB 05811000 RLNRBUSE EQU RLNRDFB 05812000 RLNRAPEP EQU RLNRDFA 05813000 RLNRANCP EQU RLNRDFA 05814000 RLNRAEP EQU RLNRDFA 05815000 RLNIDV EQU RLNRDFA 05816000 RLNPORT EQU RLNRDFA 05817000 RLNGANSW EQU RLNRDFA 05818000 RLNRACAN EQU RLNRACNT 05819000 RLNRACAT EQU RLNRACNT 05820000 RLNRSV04 EQU RLNSTAT2 05821000 RLNINUSE EQU RLNSTAT2 05822000 RLNOHIN EQU RLNSTAT2 05823000 RLNRSV03 EQU RLNSTAT1 05824000 RLNVD EQU RLNSTAT1 05825000 RLNINOPP EQU RLNSTAT1 05826000 RLNINOPL EQU RLNSTAT1 05827000 RLNLRST EQU RLNSTAT1 05828000 RLNTRAP EQU RLNSTAT1 05829000 RLNACTCT EQU ISTRLN+84 05830000 RLNCTECM EQU ISTRLN+82 05831000 RLNCTEIN EQU ISTRLN+80 05832000 RLNCTETR EQU ISTRLN+78 05833000 RLNCTECL EQU ISTRLN+76 05834000 RLNCUA EQU RLNUCBAD 05835000 RLNRSV01 EQU RLNFLAG 05836000 RLNRBISA EQU RLNFLAG 05837000 RLNEAM EQU RLNFLAG 05838000 RLNPRE EQU ISTRLN 05839000 RGPRVPT2 EQU ISTRGP+88 05840000 RGPRVPT1 EQU ISTRGP+84 05841000 RGPCTECM EQU ISTRGP+82 05842000 RGPCTEIN EQU ISTRGP+80 05843000 RGPCTETR EQU ISTRGP+78 05844000 RGPCTECL EQU ISTRGP+76 05845000 RGPCTELN EQU ISTRGP+74 05846000 RGPRSV03 EQU ISTRGP+73 05847000 RGPRSV02 EQU RGPFLG 05848000 RGPASDLC EQU RGPFLG 05849000 RGPABSC EQU RGPFLG 05850000 RGPASS EQU RGPFLG 05851000 RGPADIL EQU RGPFLG 05852000 RGPPRE EQU ISTRGP 05853000 RRNRINNM EQU ISTRRN+248 05854000 @NM00022 EQU ISTRRN+247 05855000 RRNRDCUA EQU ISTRRN+244 05856000 RRNLASTE EQU ISTRRN+240 05857000 RRNNCSPL EQU ISTRRN+236 05858000 RRNRPLPT EQU ISTRRN+232 05859000 RRNMSIZE EQU ISTRRN+228 05860000 RRNNCPNM EQU ISTRRN+221 05861000 RRNCTPCC EQU ISTRRN+220 05862000 RRNHBUFS EQU ISTRRN+218 05863000 RRNHLENT EQU RRNHPRE+1 05864000 RRNHLENH EQU RRNHPRE 05865000 RRNNMNCP EQU ISTRRN+208 05866000 RRNDELAY EQU ISTRRN+206 05867000 RRNRSV04 EQU ISTRRN+200 05868000 RRNRSV88 EQU RRNNMDPD+7 05869000 RRNPUBI EQU RRNNMDPD+6 05870000 RRNDPLUB EQU RRNNMDPD 05871000 RRNEPADR EQU ISTRRN+190 05872000 RRNCPLUB EQU ISTRRN+184 05873000 RRNFLUX EQU ISTRRN+180 05874000 RRNRSV05 EQU RRNCMFD 05875000 RRNREMPO EQU RRNCMFD 05876000 RRNCDREC EQU RRNCMFD 05877000 RRNCDDSI EQU RRNCMFD 05878000 RRNCDBCK EQU RRNCMFD 05879000 RRNCDDTL EQU RRNCMFD 05880000 RRNCDSTD EQU RRNCMFD 05881000 RRNCDCSP EQU RRNCMFD 05882000 RRNCCCSL EQU RRNCMFC 05883000 RRNCCSIM EQU RRNCMFC 05884000 RRNCCRCM EQU RRNCMFC 05885000 RRNCCRIM EQU RRNCMFC 05886000 RRNCCCRC EQU RRNCMFC 05887000 RRNCCRST EQU RRNCMFC 05888000 RRNCCRDQ EQU RRNCMFC 05889000 RRNCCRCN EQU RRNCMFC 05890000 RRNCBALT EQU RRNCMFB 05891000 RRNCBMOD EQU RRNCMFB 05892000 RRNCBNPL EQU RRNCMFB 05893000 RRNCBRLS EQU RRNCMFB 05894000 RRNCBRDS EQU RRNCMFB 05895000 RRNCBDLR EQU RRNCMFB 05896000 RRNCBDLH EQU RRNCMFB 05897000 RRNCBDLO EQU RRNCMFB 05898000 RRNCADGO EQU RRNCMFA 05899000 RRNCADTD EQU RRNCMFA 05900000 RRNCACDT EQU RRNCMFA 05901000 RRNCAMBH EQU RRNCMFA 05902000 RRNCAATI EQU RRNCMFA 05903000 RRNCAATG EQU RRNCMFA 05904000 RRNCAATD EQU RRNCMFA 05905000 RRNCAALL EQU RRNCMFA 05906000 RRNRSV55 EQU RRNRDF+3 05907000 RRNPTASL EQU RRNRDFB+1 05908000 RRNRSV01 EQU RRNRDFB+1 05909000 RRNVYDON EQU RRNRDFB+1 05910000 RRNRBBUP EQU RRNRDFB+1 05911000 RRNRSV03 EQU RRNRDFB 05912000 RRNRBCT2 EQU RRNRDFB 05913000 RRNRBCT1 EQU RRNRDFB 05914000 RRNRBSEC EQU RRNRDFB 05915000 RRNRBCCT EQU RRNRDFB 05916000 RRNRBCCL EQU RRNRDFB 05917000 RRNRSV02 EQU RRNRDFB 05918000 RRNRBMDL EQU RRNRDFB 05919000 RRNRAPEP EQU RRNRDFA 05920000 RRNRANCP EQU RRNRDFA 05921000 RRNRBREM EQU RRNRDFA 05922000 RRNRAOLT EQU RRNRDFA 05923000 RRNRASYN EQU RRNRDFA 05924000 RRNRADMP EQU RRNRDFA 05925000 RRNRAIPL EQU RRNRDFA 05926000 RRNRASHT EQU RRNRDFA 05927000 RRNCTENT EQU ISTRRN+170 05928000 RRNCTECM EQU ISTRRN+168 05929000 RRNCTEIN EQU ISTRRN+166 05930000 RRNCTETR EQU ISTRRN+164 05931000 RRNCTECL EQU ISTRRN+162 05932000 RRNCTELI EQU ISTRRN+160 05933000 RRNCTEGP EQU ISTRRN+158 05934000 RRNCTBHS EQU ISTRRN+156 05935000 RRNBHSET EQU ISTRRN+152 05936000 RRNTRENT EQU ISTRRN+148 05937000 RRNRLDIP EQU ISTRRN+147 05938000 RRNRNCUA EQU ISTRRN+144 05939000 RRNGRPA EQU ISTRRN+140 05940000 RRNLUBA EQU RRNUCBAD+1 05941000 RRNCHQI EQU RRNUCBAD 05942000 RRNRSV11 EQU RRNFLAG 05943000 RRNDSTCT EQU RRNFLAG 05944000 RRNERPIP EQU RRNFLAG 05945000 RRNLCDIP EQU RRNFLAG 05946000 RRNLCDIE EQU RRNFLAG 05947000 RRNLCSIP EQU RRNFLAG 05948000 RRNRBISA EQU RRNFLAG 05949000 RRNRSV89 EQU RRNFLAG 05950000 RRNPRE EQU ISTRRN 05951000 RLCRVPT2 EQU ISTRLC+80 05952000 RLCRVPT1 EQU ISTRLC+79 05953000 RLCLCCUA EQU ISTRLC+76 05954000 RLCUCBAD EQU RLCADR+1 05955000 RLCRSVDE EQU RLCFLAG 05956000 RLCACNT EQU RLCFLAG 05957000 RLCRSV14 EQU RLCFLAG 05958000 RLCRBISA EQU RLCFLAG 05959000 RLCRSV22 EQU RLCFLAG 05960000 RLCPRE EQU ISTRLC 05961000 RAPRVPT2 EQU ISTRAP+116 05962000 RAPRVPT1 EQU ISTRAP+112 05963000 RAPBFACT EQU ISTRAP+111 05964000 RAPRSV17 EQU RAPFLGC 05965000 RAPRSV16 EQU RAPFLGC 05966000 RAPRSV15 EQU RAPFLGC 05967000 RAPRSV14 EQU RAPFLGC 05968000 RAPRSV13 EQU RAPFLGC 05969000 RAPRSV12 EQU RAPFLGC 05970000 RAPRSV11 EQU RAPFLGC 05971000 RAPRSV10 EQU RAPFLGC 05972000 RAPANVPC EQU RAPFLGB 05973000 RAPASPO EQU RAPFLGB 05974000 RAPAPPO EQU RAPFLGB 05975000 RAPAACQ EQU RAPFLGB 05976000 RAPAPRMT EQU RAPFLGB 05977000 RAPAPASS EQU RAPFLGB 05978000 RAPABLCK EQU RAPFLGB 05979000 RAPALLF EQU RAPFLGB 05980000 RAPRSV06 EQU RAPFLG 05981000 RAPRSV05 EQU RAPFLG 05982000 RAPRSV04 EQU RAPFLG 05983000 RAPRSV03 EQU RAPFLG 05984000 RAPATLGN EQU RAPFLG 05985000 RAPASLGI EQU RAPFLG 05986000 RAPAQUI EQU RAPFLG 05987000 RAPABLGN EQU RAPFLG 05988000 RAPTRPRE EQU ISTRAP+104 05989000 RAPICEAQ EQU ISTRAP+96 05990000 RAPAPPWD EQU ISTRAP+80 05991000 RAPPRE EQU ISTRAP 05992000 RDTVSRPL EQU ISTRDT+132 05993000 RDTCRSPW EQU ISTRDT+124 05994000 RDTCRSDS EQU ISTRDT+116 05995000 @NM00021 EQU ISTRDT+113 05996000 RRNSTCNT EQU RDTSTCNT 05997000 RRNVYRPH EQU RDTVYRPH 05998000 RDTTPAB EQU ISTRDT+104 05999000 RDTDPAB EQU ISTRDT+100 06000000 RDTEPAB EQU ISTRDT+96 06001000 RDTVPAB EQU ISTRDT+92 06002000 RDTRSV01 EQU RDTFLAGB 06003000 RDTBHSET EQU RDTFLAGB 06004000 RDTCTCFL EQU RDTFLAGB 06005000 RDTCTPGD EQU RDTFLAGB 06006000 RDTPRGDN EQU RDTFLAGB 06007000 RDTOUERP EQU RDTFLAGB 06008000 RDTLGCT EQU ISTRDT+90 06009000 RDTNODID EQU ISTRDT+89 06010000 RDTMAXID EQU ISTRDT+88 06011000 RDTCTSNT EQU ISTRDT+86 06012000 RDTFLAGS EQU ISTRDT+84 06013000 RDTBACK EQU ISTRDT+80 06014000 RDTFORW EQU ISTRDT+76 06015000 RDTLEN EQU RDTPLEN+1 06016000 RDTPRILS EQU RDTPRIOR 06017000 RDTPRISW EQU RDTPRIOR 06018000 RDTPRIRN EQU RDTPRIOR 06019000 RDTPRILC EQU RDTPRIOR 06020000 RDTPRIAP EQU RDTPRIOR 06021000 @NM00020 EQU RDTPRIOR 06022000 RDTPRE EQU ISTRDT 06023000 RCPRSV05 EQU ISTRCPRE+120 06024000 RCPRSV04 EQU ISTRCPRE+116 06025000 RCPRSV03 EQU ISTRCPRE+112 06026000 RCPINTA EQU RCPLGNIN+16 06027000 RCPLGNCT EQU RCPLGNIN+8 06028000 RCPLGNAP EQU RCPLGNIN 06029000 @NM00019 EQU RCPPMODE 06030000 RCPRRECD EQU RCPPMODE 06031000 RCPRBASC EQU RCPPMODE 06032000 RCPBFLIM EQU ISTRCPRE+90 06033000 RCPBHSI2 EQU ISTRCPRE+89 06034000 RCPBHSI1 EQU ISTRCPRE+88 06035000 RCPICEAQ EQU ISTRCPRE+80 06036000 RCPLNAPA EQU ISTRCPRE+76 06037000 RCPPRE EQU ISTRCPRE 06038000 RPRCONID EQU ISTRPRE+63 06039000 RPRCLVPD EQU RPRFLAGC 06040000 RPRINIMM EQU RPRFLAGD 06041000 RPRRSV05 EQU RPRFLAGD 06042000 RPRCONP EQU RPRFLAGD 06043000 RPRACTP EQU RPRFLAGD 06044000 RPRRSON EQU RPRFLAGD 06045000 RPRCONCT EQU RPRFLAGD 06046000 RPRLTASN EQU RPRFLAGD 06047000 RPRPTHCT EQU ISTRPRE+60 06048000 RPRSWDAF EQU ISTRPRE+58 06049000 RPRRVPT1 EQU ISTRPRE+52 06050000 RPRDEVCH EQU ISTRPRE+44 06051000 RPRNCBA EQU ISTRPRE+40 06052000 RPRNSNEA EQU ISTRPRE+36 06053000 RPRLGONB EQU ISTRPRE+32 06054000 RPRLGONF EQU ISTRPRE+28 06055000 RPRHDTYP EQU ISTRPRE+27 06056000 RPRTIOCT EQU ISTRPRE+26 06057000 RPRPEPCT EQU ISTRPRE+24 06058000 RPRRSV03 EQU RPRCAUSE 06059000 RPRRSYNC EQU RPRCAUSE 06060000 RPRCRCPT EQU RPRCAUSE 06061000 RPRNOSRT EQU RPRCAUSE 06062000 RPRINTST EQU RPRFLAGB 06063000 RPRVYIMM EQU RPRFLAGB 06064000 RPRHLVPD EQU RPRFLAGB 06065000 RPRONLIN EQU RPRFLAGB 06066000 RPRVIODN EQU RPRFLAGB 06067000 RPRAOPN EQU RPRFLAGB 06068000 RPRENTVT EQU RPRFLAGB 06069000 RPRENTVH EQU RPRFLAGB 06070000 RPRLIVE EQU RPRFLAGA 06071000 RPRVRYPD EQU RPRFLAGA 06072000 RPRENTED EQU RPRFLAGA 06073000 RPRENTIO EQU RPRFLAGA 06074000 RPRENTBF EQU RPRFLAGA 06075000 RPRINV EQU RPRFLAGA 06076000 RPRPELEN EQU ISTRPRE+18 06077000 RPRELEN EQU ISTRPRE+16 06078000 RPRRLOCK EQU ISTRPRE+12 06079000 RPRDAF EQU RPRCOMID+2 06080000 RPRSAF EQU RPRCOMID 06081000 DEVRSV03 EQU ISTDEVCH+5 06082000 DEVPHYSA EQU ISTDEVCH+4 06083000 DEVCSLPN EQU DEVCHAR3 06084000 DEVCSTCL EQU DEVCHAR3 06085000 DEVCCHEK EQU DEVCHAR3 06086000 DEVCATTN EQU DEVCHAR3 06087000 DEVCSWL EQU DEVFCCTL 06088000 DEVCRVB EQU DEVFCCTL 06089000 DEVCSSL EQU DEVFCCTL 06090000 DEVCBSC EQU DEVFCCTL 06091000 DEVMCODE EQU ISTDEVCH+2 06092000 DEVCHAR2 EQU DEVTCODE 06093000 DEVRSV01 EQU DEVCHAR 06094000 DEVCCTL EQU DEVCHAR 06095000 DEVNNSPT EQU DEVCHAR 06096000 DEVSPS EQU DEVCHAR 06097000 DEVSUBND EQU DEVCHAR 06098000 DEVCONVR EQU DEVCHAR 06099000 DEVOTPUT EQU DEVCHAR 06100000 DEVINPUT EQU DEVCHAR 06101000 ATCAOS EQU ISTATCVT+1584 06102000 ATCPOPAB EQU ATCAOSM+640 06103000 ATCVIOPM EQU ATCAOSM+636 06104000 ATCTPMMI EQU ATCAOSM+632 06105000 ATCTPMPB EQU ATCAOSM+600 06106000 ATCRSV88 EQU ATCAOSM+596 06107000 ATCRPLCT EQU ATCAOSM+594 06108000 ATCCRACT EQU ATCAOSM+592 06109000 ATCSRBCT EQU ATCAOSM+590 06110000 ATCRSV75 EQU ATCAOSM+589 06111000 ATCRSV66 EQU ATCZFLAG 06112000 ATCZF001 EQU ATCZFLAG 06113000 ATCTPCP1 EQU ATCAOSM+584 06114000 ATCTPCP0 EQU ATCAOSM+580 06115000 ATCAICTN EQU ATCAOSM+576 06116000 ATCZR01 EQU ATCAOSM+572 06117000 ATCMPLTA EQU ATCAOSM+568 06118000 ATCASCB EQU ATCAOSM+564 06119000 ATCAP86 EQU ATCAOSM+560 06120000 ATCAP85 EQU ATCAOSM+556 06121000 ATCAP84 EQU ATCAOSM+552 06122000 ATCAP83 EQU ATCAOSM+548 06123000 ATCAP82 EQU ATCAOSM+544 06124000 ATCAP69 EQU ATCAOSM+540 06125000 ATCAP66 EQU ATCAOSM+536 06126000 ATCAP62 EQU ATCAOSM+532 06127000 ATCAPC59 EQU ATCAOSM+528 06128000 ATCAP56 EQU ATCAOSM+524 06129000 ATCAP55 EQU ATCAOSM+520 06130000 ATCRCFY0 EQU ATCAOSM+516 06131000 ATCAP41 EQU ATCAOSM+512 06132000 ATCAPC25 EQU ATCAOSM+508 06133000 ATCAP23 EQU ATCAOSM+504 06134000 ATCTPSPB EQU ATCAOSM+472 06135000 ATCTRMPB EQU ATCAOSM+440 06136000 ATCAPBE EQU ATCAOSM+436 06137000 ATCPSTA EQU ATCAOSM+432 06138000 ATCSMABF EQU ATCAOSM+428 06139000 ATCSMAPR EQU ATCAOSM+424 06140000 ATCTPWQA EQU ATCAOSM+420 06141000 ATCSMARA EQU ATCAOSM+412 06142000 ATCCACXA EQU ATCAOSM+408 06143000 ATCZLAAB EQU ATCAOSM+404 06144000 ATCATA10 EQU ATCAOSM+400 06145000 ATCHLTCB EQU ATCAOSM+396 06146000 @NM00018 EQU ATCVTFLG 06147000 ATCVTACT EQU ATCVTFLG 06148000 ATCRPT40 EQU ATCAOSM+388 06149000 ATCRPT39 EQU ATCAOSM+384 06150000 ATCRPT38 EQU ATCAOSM+380 06151000 ATCRPT37 EQU ATCAOSM+376 06152000 ATCRPT36 EQU ATCAOSM+372 06153000 ATCRPT35 EQU ATCAOSM+368 06154000 ATCRPT34 EQU ATCAOSM+364 06155000 ATCRPT33 EQU ATCAOSM+360 06156000 ATCRPT32 EQU ATCAOSM+356 06157000 ATCRPT31 EQU ATCAOSM+352 06158000 ATCRPT30 EQU ATCAOSM+348 06159000 ATCRPT29 EQU ATCAOSM+344 06160000 ATCRPT28 EQU ATCAOSM+340 06161000 ATCRPT27 EQU ATCAOSM+336 06162000 ATCRPT26 EQU ATCAOSM+332 06163000 ATCRPT25 EQU ATCAOSM+328 06164000 ATCRPT24 EQU ATCAOSM+324 06165000 ATCRPT23 EQU ATCAOSM+320 06166000 ATCRPT22 EQU ATCAOSM+316 06167000 ATCRPT21 EQU ATCAOSM+312 06168000 ATCRPT20 EQU ATCAOSM+308 06169000 ATCRPT19 EQU ATCAOSM+304 06170000 ATCRPLAC EQU ATCRPLCN+2 06171000 ATCRPLRC EQU ATCRPLCN 06172000 ATCCRPLQ EQU ATCCRPL 06173000 ATCSRBAC EQU ATCSRBCN+2 06174000 ATCSRBRC EQU ATCSRBCN 06175000 ATCSRBQ EQU ATCSRB 06176000 ATCCRAAC EQU ATCCRACN+2 06177000 ATCCRARC EQU ATCCRACN 06178000 ATCCRAQ EQU ATCCRA 06179000 ATCRPT12 EQU ATCAOSM+276 06180000 ATCDMAPP EQU ATCAOSM+272 06181000 ATCAP38 EQU ATCAOSM+268 06182000 ATCZDFJ0 EQU ATCAOSM+260 06183000 ATCAP51 EQU ATCAOSM+256 06184000 ATCZPAB2 EQU ATCAOSM+224 06185000 ATCZPAB1 EQU ATCAOSM+192 06186000 ATCZLFVT EQU ATCAOSM+188 06187000 ATCZLPVT EQU ATCAOSM+184 06188000 ATCZDVTX EQU ATCAOSM+180 06189000 ATCZDVTA EQU ATCAOSM+176 06190000 ATCZDVT9 EQU ATCAOSM+172 06191000 ATCZDVT8 EQU ATCAOSM+168 06192000 ATCZDVT7 EQU ATCAOSM+164 06193000 ATCRSV56 EQU ATCDAPVT+22 06194000 ATCDAPDG EQU ATCDAPVT+20 06195000 ATCDXCEA EQU ATCDAPVT+16 06196000 ATCDCEA EQU ATCDAPVT+12 06197000 ATCDPCIA EQU ATCDAPVT+8 06198000 ATCDSIOA EQU ATCDAPVT+4 06199000 ATCDEOEA EQU ATCDAPVT 06200000 ATCZLAEA EQU ATCLDAPP+16 06201000 ATCZLCEA EQU ATCLDAPP+12 06202000 ATCRSV17 EQU ATCLDAPP+8 06203000 ATCSMFRR EQU ATCLDAPP+4 06204000 ATCCDTID EQU ATCLDAPP 06205000 ATCZAEA EQU ATCICAPP+16 06206000 ATCZCEA EQU ATCICAPP+12 06207000 ATCCDTCB EQU ATCICAPP+8 06208000 ATCZSIOA EQU ATCICAPP+4 06209000 ATCCDRPH EQU ATCICAPP 06210000 ATCAP65 EQU ATCAOSM+96 06211000 ATCZDVT6 EQU ATCAOSM+92 06212000 ATCZDVT4 EQU ATCAOSM+88 06213000 ATCZDVT3 EQU ATCAOSM+84 06214000 ATCZDVT1 EQU ATCAOSM+80 06215000 ATCICNCB EQU ATCAOSM+76 06216000 ATCZPSVT EQU ATCAOSM+72 06217000 ATCZFSVT EQU ATCAOSM+68 06218000 ATCAP64 EQU ATCAOSM+64 06219000 ATCAP63 EQU ATCAOSM+60 06220000 ATCAP61 EQU ATCAOSM+56 06221000 ATCAP58 EQU ATCAOSM+52 06222000 ATCAP57 EQU ATCAOSM+48 06223000 ATCAP54 EQU ATCAOSM+44 06224000 ATCAP53 EQU ATCAOSM+40 06225000 ATCAP52 EQU ATCAOSM+36 06226000 ATCAP12 EQU ATCAOSM+20 06227000 ATCAP11 EQU ATCAOSM+16 06228000 ATCCMTCB EQU ATCAOSM+12 06229000 ATCPRPH EQU ATCAOSM+8 06230000 ATCGSRBF EQU ATCGSRBG 06231000 ATCSRBRT EQU ATCAOSM 06232000 @NM00017 EQU @NM00016 06233000 ATCVTMAB EQU @NM00016 06234000 @NM00015 EQU ATCVTBAM 06235000 ATCVDLOK EQU ISTATCVT+904 06236000 ATCVFPAB EQU ISTATCVT+872 06237000 ATCVDPAB EQU ISTATCVT+840 06238000 ATCIOECB EQU ISTATCVT+836 06239000 ATCINCW3 EQU ISTATCVT+832 06240000 ATCMODTB EQU ISTATCVT+828 06241000 ATCUSSPT EQU ISTATCVT+824 06242000 ATCSRTAB EQU ISTATCVT+820 06243000 @NM00014 EQU ISTATCVT+819 06244000 @NM00013 EQU ATCSTAT2 06245000 ATCTRSMS EQU ATCSTAT2 06246000 ATCTRLOK EQU ATCSTAT2 06247000 ATCTRPSS EQU ATCSTAT2 06248000 ATCTRESC EQU ATCSTAT2 06249000 ATCTRAPI EQU ATCSTAT2 06250000 ATCNMCTR EQU ISTATCVT+816 06251000 ATCSEC51 EQU ATCSECST 06252000 ATCSEC40 EQU ATCSIPD+8 06253000 ATCSEC30 EQU ATCSIPD+4 06254000 ATCSEC21 EQU ATCSIPD 06255000 ATCSEC10 EQU ATCSOPD+4 06256000 ATCSEC01 EQU ATCSOPD 06257000 ATCPOIA EQU ATCRNO+1 06258000 @NM00012 EQU ATCRNO 06259000 ATCPODVT EQU ISTATCVT+784 06260000 ATCS49XL EQU ISTATCVT+780 06261000 ATCS49XI EQU ISTATCVT+776 06262000 ATCLCLCT EQU ATCVLCNT+2 06263000 ATCRNCNT EQU ATCVLCNT 06264000 ATCCFEAD EQU ISTATCVT+768 06265000 ATCPTR00 EQU ISTATCVT+736 06266000 ATCRSV10 EQU ISTATCVT+704 06267000 ATCTACB EQU ISTATCVT+700 06268000 ATCVTINM EQU ISTATCVT+696 06269000 ATCTCLIM EQU ISTATCVT+692 06270000 ATCTCLOM EQU ISTATCVT+688 06271000 ATCVTIPB EQU ISTATCVT+656 06272000 ATCTCIPB EQU ISTATCVT+624 06273000 ATCTIPAB EQU ISTATCVT+592 06274000 ATCOCCCB EQU ISTATCVT+588 06275000 ATCOCCOB EQU ISTATCVT+584 06276000 ATCCDLAD EQU ISTATCVT+580 06277000 ATCCCLAD EQU ISTATCVT+576 06278000 ATCDLRPB EQU ISTATCVT+544 06279000 ATCPGPAB EQU ISTATCVT+512 06280000 ATCVPAB1 EQU ISTATCVT+480 06281000 ATCRSV97 EQU ISTATCVT+476 06282000 ATCCDFDN EQU ISTATCVT+464 06283000 ATCCDFIN EQU ISTATCVT+460 06284000 ATCDVTLK EQU ISTATCVT+456 06285000 ATCAP36 EQU ISTATCVT+452 06286000 ATCAP35 EQU ISTATCVT+448 06287000 ATCRSV99 EQU ISTATCVT+440 06288000 ATCONFIG EQU ISTATCVT+432 06289000 ATCNODDS EQU ISTATCVT+428 06290000 ATCNODEL EQU ISTATCVT+420 06291000 ATCRSV69 EQU ISTATCVT+416 06292000 ATCAPCR5 EQU ISTATCVT+412 06293000 ATCLDECB EQU ISTATCVT+408 06294000 ATCLDNCS EQU ISTATCVT+404 06295000 ATCCDPTR EQU ISTATCVT+400 06296000 ATCADEL EQU ISTATCVT+396 06297000 ATCTODVT EQU ISTATCVT+392 06298000 ATCDEBCH EQU ISTATCVT+388 06299000 ATCHBSIZ EQU ATCHPGM+2 06300000 ATCHBFNO EQU ATCHPGM 06301000 ATCCRME EQU ISTATCVT+380 06302000 ATCRVCHS EQU ISTATCVT+372 06303000 ATCECTLP EQU ISTATCVT+368 06304000 ATCZDVTB EQU ISTATCVT+364 06305000 ATCECPRT EQU ISTATCVT+360 06306000 ATCVTLOD EQU ISTATCVT+356 06307000 ATCTRPAB EQU ISTATCVT+352 06308000 ATCMSGM EQU ISTATCVT+348 06309000 ATCMSGP EQU ISTATCVT+344 06310000 ATCEPT EQU ISTATCVT+340 06311000 ATCDVT EQU ISTATCVT+336 06312000 ATCTRCPT EQU ISTATCVT+332 06313000 ATCDVLOD EQU ISTATCVT+328 06314000 ATCALERT EQU ISTATCVT+324 06315000 ATCEPA EQU ISTATCVT+320 06316000 ATCSAF EQU ISTATCVT+318 06317000 ATCXRANG EQU ISTATCVT+317 06318000 ATCLAST EQU ATCSHRFG 06319000 ATCSHRTN EQU ISTATCVT+308 06320000 ATCOCRT EQU ISTATCVT+300 06321000 ATCESC02 EQU ISTATCVT+292 06322000 ATCESC01 EQU ISTATCVT+288 06323000 ATCCDFND EQU ISTATCVT+284 06324000 ATCCDDEL EQU ISTATCVT+280 06325000 ATCCDADD EQU ISTATCVT+276 06326000 ATCMNT EQU ISTATCVT+272 06327000 ATCRSV16 EQU ISTATCVT+270 06328000 ATCMAXID EQU ISTATCVT+269 06329000 ATCMSGSP EQU ATCCOM+268 06330000 ATCCIDM EQU ATCCOM+266 06331000 ATCNERAP EQU ATCCOM+260 06332000 ATCNESAL EQU ATCCOM+256 06333000 ATCRCC65 EQU ATCCOM+252 06334000 ATCRCC26 EQU ATCCOM+248 06335000 ATCRCC63 EQU ATCCOM+244 06336000 ATCRSV11 EQU ATCCOM+242 06337000 ATCVTMID EQU ATCCOM+240 06338000 ATCAPOST EQU ATCCOM+236 06339000 ATCNERFN EQU ATCCOM+232 06340000 ATCNERNE EQU ATCCOM+228 06341000 ATCNERCV EQU ATCCOM+224 06342000 ATCNERST EQU ATCCOM+220 06343000 ATCDCC61 EQU ATCCOM+216 06344000 ATCDCC60 EQU ATCCOM+212 06345000 ATCSRTDF EQU ATCCOM+208 06346000 ATCSRTAD EQU ATCCOM+204 06347000 ATCFIRA EQU ATCCOM+200 06348000 ATCSMBQ EQU ATCCOM+196 06349000 ATCSMRC EQU ATCCOM+192 06350000 ATCSMQU EQU ATCCOM+184 06351000 ATCACDA EQU ATCCOM+176 06352000 ATCSTMA EQU ATCCOM+172 06353000 ATCFRSTR EQU ATCCOM+168 06354000 ATCGTSTR EQU ATCCOM+164 06355000 ATCREADA EQU ATCCOM+160 06356000 ATCALOAD EQU ATCCOM+156 06357000 ATCBLDLA EQU ATCCOM+152 06358000 ATCFBRPH EQU ATCCOM+148 06359000 ATCBFTRC EQU ATCCOM+144 06360000 ATCTPBUF EQU ATCTHTRC 06361000 ATCREMOV EQU ATCCOM+136 06362000 ATCADD EQU ATCCOM+132 06363000 ATCDVTPT EQU ATCCOM+124 06364000 ATCFEPT EQU ATCCOM+120 06365000 ATCFDVT EQU ATCCOM+116 06366000 ATCCONFT EQU ATCCOM+112 06367000 ATCPTCHA EQU ATCCOM+108 06368000 ATCRDTH EQU ATCCOM+96 06369000 ATCFRSCH EQU ATCCOM+92 06370000 ATCFSB EQU ATCCOM+88 06371000 ATCHLTMS EQU ATCCOM+84 06372000 ATCECPRM EQU ATCCOM+80 06373000 ATCECNET EQU ATCCOM+76 06374000 ATCECOPC EQU ATCCOM+72 06375000 ATCVPARM EQU ATCCOM+68 06376000 ATCECVRQ EQU ATCCOM+64 06377000 ATCECSES EQU ATCCOM+60 06378000 ATCOCHA EQU ATCCOM+56 06379000 ATCDSPLQ EQU ATCCOM+52 06380000 ATCECDSP EQU ATCCOM+48 06381000 ATCVARYQ EQU ATCCOM+44 06382000 ATCECVRY EQU ATCCOM+40 06383000 ATCHALTQ EQU ATCCOM+36 06384000 ATCECHLT EQU ATCCOM+32 06385000 ATCMODQ EQU ATCCOM+28 06386000 ATCECMOD EQU ATCCOM+24 06387000 ATCASCHD EQU ATCCOM+20 06388000 ATCSRT EQU ATCCOM+16 06389000 ATCRDT EQU ATCCOM+12 06390000 ATCDCFRR EQU ATCCOM+8 06391000 ATCAPI EQU ATCCOM+4 06392000 ATCRSV04 EQU ATCSTAT4 06393000 ATCVTTRC EQU ATCSTAT4 06394000 ATCNCSD EQU ATCSTAT4 06395000 ATCMTST EQU ATCSTAT4 06396000 ATCTPRT EQU ATCSTAT4 06397000 ATCPRTAT EQU ATCSTAT4 06398000 @NM00011 EQU ATCPOFLG 06399000 ATCPOUNS EQU ATCPOFLG 06400000 ATCHSDMF EQU ATCSTFLG 06401000 @NM00010 EQU ATCSTAT1 06402000 ATCMDHLT EQU ATCSTAT1 06403000 ATCINHLT EQU ATCSTAT1 06404000 ATCNETSL EQU ATCSTAT1 06405000 ATCQKHLT EQU ATCSTAT1 06406000 ATCSNHLT EQU ATCSTAT1 06407000 ATCACTIV EQU ATCSTAT1 06408000 ATCSTART EQU ATCSTAT1 06409000 DYPPAB EQU ISTDYPAB+16 06410000 DYPRSV01 EQU ISTDYPAB+12 06411000 DYPTSKID EQU ISTDYPAB+8 06412000 DYPCHAIN EQU ISTDYPAB+4 06413000 DYPFLGS EQU ISTDYPAB+2 06414000 DYPLNGTH EQU ISTDYPAB+1 06415000 DYPTYPE EQU ISTDYPAB 06416000 LOKXCL EQU @NM00008 06417000 LOKPRY EQU @NM00008 06418000 @NM00009 EQU @NM00008 06419000 @NM00007 EQU LOKCHNG 06420000 LOKCT EQU ISTLOK 06421000 PABRPHA EQU PABRPHFG+1 06422000 PABNODQ EQU PABFLAGS 06423000 PABINHBT EQU PABFLAGS 06424000 PABERLOK EQU PABERRLK 06425000 PABSSN EQU PABFLAGS 06426000 PABNORPR EQU PABFLAGS 06427000 PABPRIOR EQU PABFLAGS 06428000 PABRSV02 EQU PABCHAIN 06429000 PABDELAY EQU PABCHAIN 06430000 PABRUNNG EQU PABCHAIN 06431000 PABRESET EQU PABCHAIN 06432000 PABUNCON EQU PABCHAIN 06433000 PABCDP EQU PABCHAIN 06434000 PABRESCH EQU PABCHAIN 06435000 PABCHNG EQU PABCHAIN 06436000 PABWEQP EQU PABWEQA+1 06437000 PABRSV01 EQU PABWEQA 06438000 PABWEQG EQU PABWEQA 06439000 @NM00006 EQU ACEFLAGS 06440000 ACETAKER EQU ACEFLAGS 06441000 ACEPREMR EQU ACEFLAGS 06442000 ACETAKEN EQU ACEFLAGS 06443000 ACEPREMD EQU ACEFLAGS 06444000 @NM00005 EQU ISTICE+29 06445000 @NM00004 EQU ICEFLAGS 06446000 ICESTAPR EQU ICEFLAGS 06447000 ICELGON EQU ICEFLAGS 06448000 ICEICX EQU ICEFLAGS 06449000 ICESPEC EQU ICEFLAGS 06450000 ICESIDE EQU ISTICE+16 06451000 RPHSAV16 EQU RPHWORK+60 06452000 RPHSAV15 EQU RPHWORK+56 06453000 RPHSAV14 EQU RPHWORK+52 06454000 RPHSAV13 EQU RPHWORK+48 06455000 RPHSAV12 EQU RPHWORK+44 06456000 RPHSAV11 EQU RPHWORK+40 06457000 RPHSAV10 EQU RPHWORK+36 06458000 RPHSAVE9 EQU RPHWORK+32 06459000 RPHSAVE8 EQU RPHWORK+28 06460000 RPHSAVE7 EQU RPHWORK+24 06461000 RPHSAVE6 EQU RPHWORK+20 06462000 RPHSAVE5 EQU RPHWORK+16 06463000 RPHSHALF EQU RPHSAVE1+2 06464000 RPHSBIT8 EQU RPHSBITS 06465000 RPHSBIT7 EQU RPHSBITS 06466000 RPHSBIT6 EQU RPHSBITS 06467000 RPHSBIT5 EQU RPHSBITS 06468000 RPHSBIT4 EQU RPHSBITS 06469000 RPHSBIT3 EQU RPHSBITS 06470000 RPHSBIT2 EQU RPHSBITS 06471000 RPHSBIT1 EQU RPHSBITS 06472000 RPHSBYTE EQU RPHSAVE1 06473000 RPHPABFG EQU RPHPABQA 06474000 RPHSRP34 EQU RPHSRPRM+2 06475000 RPHSRP12 EQU RPHSRPRM 06476000 RPHWEGT EQU RPHCSPA 06477000 RPHRESUM EQU RPHRESMA+1 06478000 RPHRSV01 EQU RPHWPFLG 06479000 RPHPURGE EQU RPHWPFLG 06480000 RPHPT EQU RPHWPFLG 06481000 RPHRSKEY EQU RPHWPFLG 06482000 RPHDVTA EQU ISTRPH+12 06483000 RPHTIK EQU RPHTSKID+3 06484000 @NM00003 EQU RPHTSKID 06485000 RPHRPHAP EQU RPHRPHA+1 06486000 @NM00002 EQU RPHRPHA 06487000 RPHGATE EQU RPHRPHA 06488000 @NM00001 EQU RPHFLGB 06489000 RPHRLCRA EQU RPHFLGB 06490000 RPHNRSAV EQU RPHFLGB 06491000 RPHPGCMP EQU RPHFLGB 06492000 RPHFBAPS EQU RPHFLGB 06493000 RPHBSSP EQU RPHFLGB 06494000 RPHLOCK EQU RPHFLGB 06495000 RPHFNFLG EQU RPHFSTLC 06496000 RPHMLTCP EQU RPHFLAGS 06497000 RPHSMCLR EQU RPHFLAGS 06498000 RPHSMTYP EQU RPHFLAGS 06499000 RPHSMQ EQU RPHFLAGS 06500000 RPHAUTEX EQU RPHAPTYP 06501000 RPHSPGIN EQU RPHFLAGS 06502000 RPHOGIND EQU RPHFLAGS 06503000 RPHLNGTH EQU RPHCNTL+1 06504000 RPHTYPE EQU RPHCNTL 06505000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 06506000 @RT00495 EQU #BC00017 06507000 @RT00499 EQU #BC00017 06508000 @RT00542 EQU #BCM0016 06509000 @RC00563 EQU @EL00002 06510000 @RC00571 EQU @EL00002 06511000 @RT00813 EQU #DC00100 06512000 @RT01012 EQU #BC00127 06513000 @RT01165 EQU #BC00232 06514000 @RT01173 EQU #BC00232 06515000 @RT01269 EQU #BC00243 06516000 @RC00566 EQU @RC00563 06517000 @ENDDATA EQU * 06518000 END ISTCSCMR,(C'PLS0014',0701,77089) 06519000