
*copyc OSD$DEFAULT_PRAGMATS
?? NEWTITLE := '170 NOS/VE REMOTE HOST' ??
MODULE rhmwit;


?? TITLE := 'EXTERNAL PROCEDURES REFERENCED BY THIS MODULE' ??
?? SET (LIST := OFF) ??
?? EJECT ??
*copyc ZN7PRCL

?? TITLE := 'WAIT' ??
?? SET (LIST := ON) ??
?? EJECT ??
{ WAIT
{
{      The purpose of this procedure is to provide a means by which
{ a CYBIL procedure can relinquish use of the CPU for a specified
{ number of milliseconds.
{
{      WAIT (MILLISECONDS)
{
{ MILLISECONDS: (input) This parameter specifies the length of time,
{               in milliseconds, during which CPU use is to be re-
{               linquished by the calling procedure.
{

  PROCEDURE [XDCL] wait (milliseconds: 0 .. 0ffffffff(16));

    CONST
      recall_period = 10; { recall_period is in milliseconds }

    VAR
      recall#: integer;

    FOR recall# := 1 TO (100 + recall_period - 1) DIV recall_period DO
      n7p$recall;
    FOREND;

  PROCEND wait;

MODEND rhmwit;
