VXBLDCL: PROC(ADSUB,NARGS,ADCAL);
    DCL (ADSUB,ADCAL) PTR;
    DCL (I,NARGS) FIXED BIN(31);
    DCL LIB$GET_VM ENTRY (FIXED BIN(31),PTR) RETURNS(FIXED BIN(31));
    DCL 1 CALL_STRUC BASED(ADCAL),
    	2 CS_OPCO CHAR(1),
    	2 CS_NARG CHAR(1),
    	2 CS_OS CHAR(1),
    	2 CS_ASUB PTR,
	2 CS_RET CHAR(1);

    I = LIB$GET_VM(8,ADCAL);
    CS_OPCO = BYTE(251); /*FB = calls*/
    CS_NARG = BYTE(NARGS); /*<64*/
    CS_OS = BYTE(159); /*9F = absolute addr*/
    CS_ASUB = ADSUB; /*FROM VXLDR*/
    CS_RET = BYTE(4); /*ret */;
  END VXBLDCL;