DCL SPCPTR .PARM1 PARM;
    DCL DD REGISTERS CHAR(512) BAS(.PARM1);
        DCL DD GPR(00:31) CHAR(8) DEF(REGISTERS) POS(  1);
        DCL DD SPR( 0:3 ) CHAR(8) DEF(REGISTERS) POS(257);
        DCL DD MSR( 0:0 ) CHAR(8) DEF(REGISTERS) POS(289);

DCL OL PARAMETERS(.PARM1) EXT PARM MIN(1);

/*******************************************************************/

ENTRY * (PARAMETERS) EXT;
    CPYBLA     GPR(00), X'00';
    CPYBLA     SPR( 0), X'40';
    CPYBLA     SPR( 1), X'41';
    CPYBLA     SPR( 2), X'42';
    CPYBLA     SPR( 3), X'43';
    CPYBLA     MSR( 0), X'50';
    RTX        *;