;////////////////////////////////////////////////
    ;//
    ;// SHORT PBcall ( VOID FAR *ParameterBlock )
    ;//
    ;// inputs:    PB pointer in R8,R9
    ;// outputs:    PB result code in R4
    ;//
    ;////////////////////////////////////////////////

                PUBLIC    PBcall
PBcall    PROC    FAR

    $REGUSE PBcall(R4)

    ; R9:R8 = pointer to parameter block


    TRAP    #050H

    ; now R4 contains the result code of the command
    ; R4 happens to be the return value register so
    ; just return


    rets

PBcall    ENDP