git.gag.com Git - debian/cc1111/blob - device/lib/z80/mod.s

   1         .area   _CODE
   2
   3 __moduchar_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 __moduchar_rrx_hds::
  13         ld      c,l
  14         call    __divu8
  15
  16         ld      l,e
  17         ld      h,d
  18
  19         ret
  20
  21 __moduint_rrx_s::
  22         ld      hl,#2+3
  23         add     hl,sp
  24
  25         ld      d,(hl)
  26         dec     hl
  27         ld      e,(hl)
  28         dec     hl
  29         ld      a,(hl)
  30         dec     hl
  31         ld      l,(hl)
  32         ld      h,a
  33         ;; Fall through
  34
  35 __moduint_rrx_hds::
  36         ld      b,h
  37         ld      c,l
  38
  39         call    __divu16
  40
  41         ld      l,e
  42         ld      h,d
  43
  44         ret
  45
  46 __moduschar_rrx_s::
  47         ld      hl,#2+1
  48         add     hl,sp
  49
  50         ld      e,(hl)
  51         ld      d, #0
  52         dec     hl
  53         ld      c,(hl)
  54
  55         ld      a,c             ; Sign extend
  56         rlca
  57         sbc     a
  58         ld      b,a
  59
  60         call    __div16
  61
  62         ld      l,e
  63         ld      h,d
  64
  65         ret
  66