git.sur5r.net Git - cc65/blob - libsrc/runtime/umod.s

   1 ;
   2 ; Ullrich von Bassewitz, 07.08.1998
   3 ;
   4 ; CC65 runtime: modulo operation for unsigned ints
   5 ;
   6
   7         .export         tosumoda0, tosumodax
   8         .import         popptr1, udiv16
   9         .importzp       sreg, ptr4
  10
  11 tosumoda0:
  12         ldx     #0
  13 tosumodax:
  14         sta     ptr4
  15         stx     ptr4+1          ; Save right operand
  16         jsr     popptr1         ; Get right operand
  17
  18 ; Do the division
  19
  20         jsr     udiv16
  21
  22 ; Result is in ptr1, remainder in sreg
  23
  24         lda     sreg
  25         ldx     sreg+1
  26         rts
  27
  28