* %GOTO RVT1; /* BILINGUAL MAPPING MACRO 00050002 MACRO 00100002 IHARVT &DSECT=YES */ 00150002 *%RVT1: ; 00200002 */********************************************************************* 00250002 * 00300002 * RMS SECONDARY CVT 00350002 * 00360002 * OS/VS2 RELEASE 2, 2/26/73 00370002 * 00380002 * METHOD OF ACCESS: 00390002 * BAL - DSECT IS PRODUCED UNLESS DSECT=NO IS 00392002 * SPECIFIED. USING ON 'RVT' ESTABLISHES 00394002 * ADDRESSABILITY. 00396002 * 00396402 * PL/S - DCL RVTPTR PTR 00398002 * 00398402 * 00398503 * CHANGE-ACTIVITY 00398603 * A 021210-021270 @ZA34714 00398703 * A 041300-042800 @ZA34714 00398803 * 00399603 **********************************************************************/ 00399703 *%GOTO RVT2; /* 00399803 SPACE 1 00399903 AIF ('&DSECT' EQ 'NO').RVT001 00400002 RVT DSECT 00450002 AGO .RVT002 00500002 .RVT001 ANOP 00550002 RVT DS 0F 00600002 .RVT002 ANOP 00650002 RVTPMCIH DC V(IGFPMCIH) . ADDRESS OF IGFPMCIH 00900002 RVTPMRTM DC V(IGFPMRTM) . ADDRESS OF IGFPMRTM 00910002 RVTPMFRS DC V(IGFPMFRS) . ADDRESS OF IGFPMFRS 00920002 RVTPMHCA DC V(IGFPMHCA) . ADDRESS OF IGFPMHCA 00930002 RVTPMSCA DC V(IGFPMSCA) . ADDRESS OF IGFPMSCA 00940002 RVTPMPFX DC V(IGFPMPFX) . ADDRESS OF IGFPMPFX 00942002 RVTPMTHA DC V(IGFPMTHA) . ADDRESS OF IGFPMTHA 00944002 RVTPMMSG DC V(IGFPMMSG) . ADDRESS OF IGFPMMSG 00946002 RVTPMKTA DC V(IGFPMKTA) . ADDRESS OF IGFPMKTA 00948002 RVTPTERM DC V(IGFPTERM) . ADDRESS OF IGFPTERM 00950002 RVTPTSIG DC V(IGFPTSIG) . ADDRESS OF IGFPTSIG 01000002 RVTPTREC DC V(IGFPTREC) . ADDRESS OF IGFPTREC 01010002 RVTPTCON DC V(IGFPTCON) . ADDRESS OF IGFPTCON 01020002 RVTPTAIM DC V(IGFPTAIM) . ADDRESS OF IGFPTAIM 01030002 RVTPXMFA DC V(IGFPXMFA) . ADDRESS OF IGFPXMFA 01050002 RVTPBUCR DC V(IGFPBUCR) . ADDRESS OG IGFPBUCR 01052002 RVTPKREF DC V(IGFPKREF) . ADDRESS OF IGFPKREF 01060002 RVTPEXIT DC V(IGFPEXIT) . ADDRESS OF IGFPEXIT 01070002 RVT00MMM DC V(IGFPMCE2) . ADDRESS OF IGFPMCE2 (OVERLAYED WITH 01250002 * ADDRESS OF IGF00MMM BY IGFPINIT IF 01300002 * BLDL AND LOAD SUCCEED) 01350002 RVT01MMM DC V(IGFPEXE2) . ADDRESS OF IGFPEXE2 (OVERLAYED WITH 01400002 * ADDRESS OF IGF01MMM BY IGFPINIT IF 01450002 * BLDL AND LOAD SUCCEED) 01500002 RVTRWAPT DC V(IGFRWA) . ADDRESS OF RECOVERY WORK AREA 01700002 RVTLRBPT DC A(0) . ADDRESS OF SPARE LRB (INITIALIZED BY 01750002 * IGFPINIT) 01760002 RVTMSGPT DC A(0) . ADDRESS OF MESSAGE BUFFER 01800002 * (INITIALIZED BY IGFPINIT) 01850002 RVTMSGLN DC F'0' . LENGTH OF MESSAGE BUFFER (CHANGED 01900002 * TO 96 BYTES PER ONLINE CPU BY 01950002 * IGFPINIT) 02000002 RVTCCHDA DC V(IGFCHDA) . ADDRESS OF IGFCHDA, THE CHH DATA 02050002 * AREA 02052002 RVTCCHCR DC V(IGFCCHCR) . ADDRESS OF IGFCCHCR, THE CCH CENTRAL 02060002 * MODULE 02062002 RVTMIH DC V(IGFTMC00) . ADDRESS OF IGFTMC00, THE MIH I/O 02070002 * RESTART INTERFACE MODULE (EXTERNAL 02080002 * ADDRESS CONSTANT ASSEMBLED FOR 02090002 * IGFTMC00) 02094002 * * 02100002 RVTMIH2 DC V(IGFTMC01) . ADDRESS OF IGFTMC01, THE MIH CHECK 02110003 * UCB AND POST MSG ROUTINE Z40WPWN 02120003 RVTMIH3 DC V(IGFINTVL) . ADDRESS OF IGFINTVL WHEN IT IS 02121003 * MOVED TO THE NUCLEUS @ZA34714 02121603 RVTCCHED DC V(IGFCCHED) . ADDRESS OF IGFCCHED @ZA34714 02123003 RVTPNRFH DC V(IGFPNRFH) . ADDRESS OF IGFPNRFH @ZA34714 02124003 * @ZA34714 02125003 WXTRN IGFINTVL,IGFCCHED,IGFPNRFH TO HAVE VCONS BE ZERO 02126003 * WHEN MODULE NOT IN SYSTEM @ZA34714 02127003 * * 02130003 * END OF RMS SECONDARY CVT * 02150002 * * 02200002 MEND 02250002 * */ 02300002 *%RVT2: ; 02350002 * 02400002 * DECLARE 02450002 * 1 RVT BASED(RVTPTR) BDY(WORD), 02550002 * 2 RVTPMCIH PTR(31), /* ADDRESS OF IGFPMCIH */ 02600002 * 2 RVTPMRTM PTR(31), /* ADDRESS OF IGFPMRTM */ 02610002 * 2 RVTPMFRS PTR(31), /* ADDRESS OF IGFPMFRS */ 02620002 * 2 RVTPMHCA PTR(31), /* ADDRESS OF IGFPMHCA */ 02630002 * 2 RVTPMSCA PTR(31), /* ADDRESS OF IGFPMSCA */ 02640002 * 2 RVTPMPFX PTR(31), /* ADDRESS OF IGFPMPFX */ 02642002 * 2 RVTPMTHA PTR(31), /* ADDRESS OF IGFPMTHA */ 02644002 * 2 RVTPMMSG PTR(31), /* ADDRESS OF IGFPMMSG */ 02646002 * 2 RVTPMKTA PTR(31), /* ADDRESS OF IGFPMKTA */ 02648002 * 2 RVTPTERM PTR(31), /* ADDRESS OF IGFPTERM */ 02650002 * 2 RVTPTSIG PTR(31), /* ADDRESS OF IGFPTSIG */ 02700002 * 2 RVTPTREC PTR(31), /* ADDRESS OF IGFPTREC */ 02710002 * 2 RVTPTCON PTR(31), /* ADDRESS OF IGFPTCON */ 02720002 * 2 RVTPTAIM PTR(31), /* ADDRESS OF IGFPTAIM */ 02730002 * 2 RVTPXMFA PTR(31), /* ADDRESS OF IGFPXMFA */ 02750002 * 2 RVTPBUCR PTR(31), /* ADDRESS OF IGFPBUCR */ 02800002 * 2 RVTPKREF PTR(31), /* ADDRESS OF IGFPKREF */ 02850002 * 2 RVTPEXIT PTR(31), /* ADDRESS OF IGFPEXIT */ 02900002 * 2 RVT00MMM PTR(31), /* ADDRESS OF IGFPMCE2 (OVERLAYED 02950002 * WITH THE ADDRESS OF IGF00MMM BY 03000002 * IGFPINIT IF BLDL AND LOAD 03050002 * SUCCEED) */ 03060002 * 2 RVT01MMM PTR(31), /* ADDRESS OF IGFPEXE2 (OVERLAYED 03100002 * WITH THE ADDRESS OF IGF01MMM BY 03150002 * IGFPINIT IF BLDL AND LOAD 03160002 * SUCCEED) */ 03170002 * 2 RVTRWAPT PTR(31), /* ADDRESS OF RECOVERY WORK AREA */ 03400002 * 2 RVTLRBPT PTR(31), /* ADDRESS OF SPARE LRB (INITIALIZED 03450002 * BY IGFPINIT) */ 03460002 * 2 RVTMSGPT PTR(31), /* ADDRESS OF MESSAGE BUFFER 03500002 * (INITIALIZED BY IGFPINIT) */ 03550002 * 2 RVTMSGLN FIXED(31), /* LENGTH OF MESSAGE BUFFER (INITIAL 03600002 * VALUE IS 0, CHANGED BY IGFPINIT 03650002 * TO 96 BYTES PER ONLINE CPU) */ 03700002 * 2 RVTCCHDA PTR(31), /* ADDRESS OF IGFCHDA, THE CCH DATA 03760002 * AREA */ 03762002 * 2 RVTCCHCR PTR(31), /* ADDRESS OF IGFCCHCR, THE CCH 03770002 * CENTRAL MODULE */ 03772002 * 2 RVTMIH PTR(31), /* ADDRESS OF IGFTMC00, THE MIH DIE 03780003 * ROUTINE (EXTERNAL ADDRESS 03830003 * CONSTANT ASSEMBLED FOR 03880003 * IGFTMC00) */ 03930003 * 2 RVTMIH2 PTR(31), /* ADDRESS OF IGFTMC01, THE MIH 03980003 * CHECK UCB AND POST MSG ROUTINE 04030003 * Z40WPWN */ 04080003 * 2 RVTMIH3 PTR(31), /* ADDRESS OF IGFINTVL WHEN IT IS 04130003 * MOVED TO THE NUCLEUS @ZA34714*/04160003 * 2 RVTCCHED PTR(31), /* ADDRESS OF IGFCCHED @ZA34714*/04230003 * 2 RVTPNRFH PTR(31); /* ADDRESS OF IGFPNRFH @ZA34714*/04280003 */* 04330003 * END OF RMS SECONDARY CVT 04380003 **/ 04430003