;************************************************
;
;   SLEEP - sleep for <arg1> 10ths of a second
;
;************************************************
;1.0 06-Aug-84 DFP written by D. Pallmann.

       ASMMSG  "Object name SLEEP.SBR"
       ASMMSG  "Requires linking"

       VMAJOR=1

       OBJNAM  SLEEP.SBR

       SEARCH  SYS
       SEARCH  SYSSYM
       COPY    XCALL

       EXTERN  $GTARG

START:  PHDR    -1,0,PH$REE!PH$REU      ;program header
       MOV     #XC.TY1,D1
       CALL    $GTARG
       TST     D1
       BEQ     10$
       CMP     D1,#60.
       BHI     10$
       MUL     D1,#1000.
       SLEEP   D1
10$:    RTN

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.