.MACRO  CALL_ALLOCIRP ?L1

	.GLOBAL	EXE_STD$ALLOCIRP
        SUBL    #4,SP
        PUSHAB  (SP)
        CALLS   #1,G^EXE_STD$ALLOCIRP
        BLBC    R0,L1
        MOVL    (SP),R2
        MOVZWL  IRP$W_SIZE(R2),R1
L1:     MOVL    G^CTL$GL_PCB,R4
        ADDL    #4,SP

        .ENDM   CALL_ALLOCIRP