git.gag.com Git - fw/sdcc/blob - device/lib/z80/modsigned.s

   1         .area   _CODE
   2
   3 __modschar_rrx_s::
   4         ld      hl,#2+1
   5         add     hl,sp
   6
   7         ld      e,(hl)
   8         dec     hl
   9         ld      l,(hl)
  10
  11         ;; Fall through
  12 __modschar_rrx_hds::
  13         call    __div8
  14
  15         ex      de,hl
  16         ret
  17
  18 __modsint_rrx_s::
  19         pop     af
  20         pop     hl
  21         pop     de
  22         push    de
  23         push    hl
  24         push    af
  25
  26         ;; Fall through
  27 __modsint_rrx_hds::
  28         call    __div16
  29
  30         ex      de,hl
  31
  32         ret
  33