DCL SPCPTR .ARG1 INIT(REGISTERS);
DCL DD REGISTERS(0:63) CHAR(8);

DCL OL MIRTVREG(.ARG1) ARG;
DCL SYSPTR .MIRTVREG INIT("MIRTVREG", TYPE(PGM));

    CALLX     .MIRTVREG, MIRTVREG, *;
    BRK "1";
    RTX        *;