$SAVE NOLIST

rq$a$special:  PROCEDURE( connection$t,
                          spec$func,
                          ioparm$ptr,
                          resp$mbox,
                          except$ptr ) EXTERNAL;

DECLARE connection$t  TOKEN,
        spec$func     WORD,
        ioparm$ptr    POINTER,
        resp$mbox     TOKEN,
        except$ptr    POINTER;

END rq$a$special;

$RESTORE