$SAVE NOLIST

rq$create$semaphore:  PROCEDURE( initial$value,
                                 max$value,
                                 semaphore$flags,
                                 except$ptr ) TOKEN EXTERNAL;

DECLARE initial$value    WORD,
        max$value        WORD,
        semaphore$flags  WORD,
        except$ptr       POINTER;
        
END rq$create$semaphore;

$RESTORE