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

   1 ;
   2 ; Ullrich von Bassewitz, 2003-12-21
   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         UDTIM
   9         .import         time: zp
  10
  11 .proc   UDTIM
  12
  13         inc     time
  14         bne     L9
  15         inc     time+1
  16         bne     L9
  17         inc     time+2
  18         bne     L9
  19         inc     time+3
  20 L9:     rts
  21
  22 .endproc
  23