$SAVE NOLIST

rq$receive$units:  PROCEDURE( semaphore$t,
                              units,
                              time$limit,
                              except$ptr ) WORD EXTERNAL;

DECLARE semaphore$t  TOKEN,
        units        WORD,
        time$limit   WORD,
        except$ptr   POINTER;

END rq$receive$units;

$RESTORE