git.sur5r.net Git - cc65/blob - libsrc/pce/clock.s

   1 ;
   2 ; clock_t clock (void);
   3 ;
   4
   5         .include        "pce.inc"
   6         .include        "extzp.inc"
   7
   8         .forceimport    ticktock
   9         .export         _clock
  10         .importzp       sreg
  11
  12 .proc   _clock
  13
  14         lda     tickcount+3
  15         sta     sreg+1
  16         lda     tickcount+2
  17         sta     sreg
  18         ldx     tickcount+1
  19         lda     tickcount
  20         rts
  21
  22 .endproc
  23
  24         .constructor initclock, 24
  25
  26 initclock:
  27         lda     #0
  28         ldx     #3
  29 @lp:    sta     tickcount,x
  30         dex
  31         bpl     @lp
  32         rts