* %GOTO RMSPL0; /* BILINGUAL RMSPL MACRO 00050002 MACRO 00100002 IGFRMS &LIST=NO 00150002 PUSH PRINT */ 00200002 *%RMSPL0: ; 00400002 */******************************************************************** 00450002 * * 00490002 * RMS PARAMETER LIST MACRO * 00540002 * * 00590002 ********************************************************************** 00640002 * * 00690002 * STATUS * 00740002 * MVM RELEASE 1, LEVEL = 0 * 00790002 * * 00840002 * METHOD OF ACCESS * 00890002 * * 00940002 * PL/S - DCL RMSPLPTR PTR * 00990002 * * 00992002 * BAL - IGFRMS (MACRO CALL) * 01042002 * USING RMSPL,REG * 01092002 * LOAD REG WITH RMSPL ADDRESS * 01094002 * * 01144002 * F.E.'S * 01194002 * MICROFICHE LISTINGS - IGFRMS * 01244002 * * 01294002 * DEVELOPERS * 01344002 * PL/S LISTING - SPECIFY %IHALIST='YES' BEFORE INCLUDE * 01394002 * BAL LISTING - SPECIFY LIST=YES ON MACRO CALL * 01444002 * * 01446002 * FOR INTEGRATION, A LIST MUST NOT BE REQUESTED UNLESS * 01496002 * YOUR MODULE CREATES THE MACRO * 01546002 *********************************************************************/ 01596002 * 01646002 * 01696002 *%GOTO RMSPL1; /* 01750002 AIF ('&LIST' EQ 'YES').RMSPL1A 01760002 PRINT OFF 01770002 .RMSPL1A ANOP 01780002 RMSPL DSECT 01800002 * 01850002 ********************************************************************** 01900002 * * 01950002 * RMS PARAMETER LIST * 02000002 * * 02050002 ********************************************************************** 02100002 * 02150002 RMSCID DS XL1 ID OF USER 02200002 * EQUATES FOR RMSCID 02250002 RMSNIP EQU X'80' SET BY IGFRINIT 02300002 RMSVCPU EQU X'40' SET BY VARY CPU 02350002 RMSMCH EQU X'20' SET BY MCH 02400002 RMSACT DS XL1 ACTION REQUESTED 02450002 * EQUATES FOR RMSACT 02500002 RMSBLDL EQU X'80' SET BY IGFRINIT, BUILD BLDL 02550002 RMSLOAD EQU X'40' SET BY IGFRINIT, LOAD 02600002 RMSSINIT EQU X'10' SET BY IGFRINIT, SYSTEM INITIALIZATION 02650002 RMSALLOC EQU X'08' SET BY LOGICAL VARY, ALLOCATE MCEL/IOEL 02700002 RMSDALOC EQU X'04' SET BY LOGICAL VARY, DEALLOCATE MCEL/IOEL 02750002 RMSREGI EQU X'02' SET BY LOGICAL VARY, INITIALIZE CONTROL 02800002 * REGISTERS 02850002 RMSREGD EQU X'01' SET BY LOGICAL VARY, RESET CONTROL REGS. 02900002 * 02910002 * NOTE: LOGICAL VARY IS A NIP FUNCTION SIMILIAR TO VARY CPU 02950002 * 02960002 RMSPA DS XL2 PROCESSOR ADDRESS FOR WHICH ACTION IS 03000002 * REQUESTED (0000-003F) 03050002 * END OF RMS PARAMETER LIST 03100002 * 03150002 POP PRINT 03200002 MEND 03250002 EJECT 03300002 * */ 03310002 *%RMSPL1: ; 03350002 *%DEACTIVATE PUSH,POP,OFF; 03400002 *%IHALPUSH='@LIST PUSH'; 03450002 *%IHALPOP='@LIST POP'; 03500002 *%IHALOFF='@LIST OFF'; 03550002 *IHALPUSH; 03600002 *%IF IHALIST='YES' %THEN 03650002 * %GOTO RMSPL2; 03700002 *IHALOFF; 03750002 *%RMSPL2: ; 03800002 */******************************************************************** 03910002 * * 03920002 * RMS PARAMETER LIST * 03930002 * * 03940002 ********************************************************************** 03990002 * */ 04160002 DCL 1 RMSPL BASED (RMSPLPTR) BDY (WORD), 04170002 2 RMSCID CHAR(1), /* ID OF USER */ 04210002 3 RMSNIP BIT(1), /* SET BY IGFRINIT */ 04260002 3 RMSVCPU BIT(1), /* SET BY VARY CPU */ 04310002 3 RMSMCH BIT(1), /* SET BY MCH */ 04360002 3 RMSRES1 BIT(5), /* RESERVED */ 04410002 2 RMSACT CHAR(1), /* ACTION REQUESTED */ 04460002 3 RMSBLDL BIT(1), /* SET BY IGFRINIT, BUILD BLDL */ 04510002 3 RMSLOAD BIT(1), /* SET BY IGFRINIT, LOAD */ 04560002 3 RMSRES2 BIT(1), /* RESERVED */ 04610002 3 RMSSINIT BIT(1), /* SET BY IGFRINIT, SYSTEM 04660002 INITIALIZATION */ 04710002 3 RMSALLOC BIT(1), /* SET BY LOGICAL VARY, ALLOCATE 04760002 MCEL/IOEL BUFFERS */ 04810002 3 RMSDALOC BIT(1), /* SET BY LOGICAL VARY, DEALLOCATE 04860002 MCEL/IOEL BUFFERS */ 04910002 3 RMSREGI BIT(1), /* SET BY LOGICAL VARY, INITIALIZE 04960002 CONTROL REGISTERS */ 05010002 3 RMSREGD BIT(1), /* SET BY LOGICAL VARY, RESET 05060002 CONTROL REGISTERS */ 05110002 /* NOTE: LOGICAL VARY IS A NIP FUNCTION SIMILIAR TO VARY CPU */ 05120002 2 RMSPA CHAR(2); /* PROCESSOR ADDRESS FOR WHICH 05220002 ACTION IS REQUESTED (0000-003F)*/ 05260002 /* END OF RMS PARAMETER LIST */ 05270002 *IHALPOP; 05360002 *%ACTIVATE PUSH,POP,OFF; 05410002