home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / ttimstuf.seq < prev    next >
Encoding:
Text File  |  1989-12-15  |  1.1 KB  |  33 lines
  1. \ TIMESTUF.SEQ          More words associated with timing       Tom Zimmer
  2.  
  3. FORTH DECIMAL TARGET >LIBRARY       \ A Library file
  4.  
  5. : SEC-ELAPSED   ( --- N1 )    \ RETURN ELAPSED SECONDS < 18 HRS
  6.                 TIME-ELAPSED B>SEC ; ( -- N1 )
  7.  
  8. : 10TH-ELAPSED  ( --- N1 )
  9.                 TIME-ELAPSED 0 100 UM/MOD DROP 10 UM/MOD NIP ;
  10.  
  11. \ DEFER PAUSE-FUNC        ' NOOP IS PAUSE-FUNC
  12.  
  13. : SECONDS       ( N1 --- )   \ PAUSE FOR N1 SECONDS
  14.                 STIME 2@ 2>R >R TIME-RESET
  15.                 BEGIN   \ PAUSE  PAUSE-FUNC
  16.                         R@ SEC-ELAPSED > 0=
  17.                 UNTIL   R>DROP 2R> STIME 2! ;
  18.  
  19. : TENTHS        ( N1 --- )       \ PAUSE FOR N1 SECONDS
  20.                 STIME 2@ 2>R >R TIME-RESET
  21.                 BEGIN   \ PAUSE  PAUSE-FUNC
  22.                         R@ 10TH-ELAPSED > 0=
  23.                 UNTIL   R>DROP 2R> STIME 2! ;
  24.  
  25. : MINUTES       ( N1 --- )   \ PAUSE FOR N1 MINUTES
  26.                 0MAX   0 ?DO   60 SECONDS      LOOP ;
  27.  
  28. : HOURS         ( N1 --- )       \ PAUSE FOR N1 HOURS
  29.                 0MAX   0 ?DO   60 MINUTES      LOOP ;
  30.  
  31. FORTH TARGET >TARGET
  32.  
  33.