dsforth/ext_timer.zas

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; simple profiling timer
   3 ;; Ketmar
   4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   5
   6 $FORTH_CODE_WORD D-GET-TICKS
   7 ;; k8
   8 ;; ( -- lo hi )
   9   ld    de,(intr_frames)
  10   ld    a,(intr_frames+2)
  11   ld    l,a
  12   ld    h,0
  13   jp    i_pushde
  14   ;LIT 23672 @
  15   ;LIT 23674 C@
  16   ;S
  17 $FORTH_END_CODE_WORD D-GET-TICKS
  18
  19
  20   $IF USE_SIMPLE_TIMER
  21 $FORTH_VAR (STTIME) 0
  22   defw 0
  23
  24 $FORTH_WORD (START-TIMER)
  25 ;; k8
  26 ;; ( -- )
  27   D-GET-TICKS
  28   (STTIME) 2!
  29   ;S
  30 $FORTH_END_WORD (START-TIMER)
  31
  32 $FORTH_WORD (STOP-TIMER)
  33 ;; k8
  34 ;; ( -- )
  35   D-GET-TICKS
  36   (STTIME) 2@ D-
  37   LIT 50 UM/MOD
  38   ENDCR U. (.") ~seconds, ~  ;;"
  39   LIT 20 * U. (.") ~msecs\x02~  ;;"
  40   ;S
  41 $FORTH_END_WORD (STOP-TIMER)
  42   $ENDIF