git.sur5r.net Git - cc65/blob - libsrc/cbm610/kudtim.s

   1 ;
   2 ; Ullrich von Bassewitz, 28.09.1998
   3 ;
   4 ; udtim routine for the 610. We will not check for the stop key here, since
   5 ; C programs will not use it.
   6 ;
   7
   8         .export         k_udtim
   9         .importzp       time
  10
  11
  12 .proc   k_udtim
  13
  14         inc     time
  15         bne     L9
  16         inc     time+1
  17         bne     L9
  18         inc     time+2
  19         bne     L9
  20         inc     time+3
  21 L9:     rts
  22
  23 .endproc
  24
  25