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

   1         .area   _CODE
   2
   3 __divschar_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 __divschar_rrx_hds::
  13         ld      c,l
  14
  15         call    __div8
  16
  17         ld      l,c
  18         ld      h,b
  19
  20         ret
  21
  22 __modschar_rrx_s::
  23         ld      hl,#2+1
  24         add     hl,sp
  25
  26         ld      e,(hl)
  27         dec     hl
  28         ld      l,(hl)
  29
  30         ;; Fall through
  31 __modschar_rrx_hds::
  32         ld      c,l
  33
  34         call    __div8
  35
  36         ld      l,e
  37         ld      h,d
  38
  39         ret
  40
  41 __divsint_rrx_s::
  42         ld      hl,#2+3
  43         add     hl,sp
  44
  45         ld      d,(hl)
  46         dec     hl
  47         ld      e,(hl)
  48         dec     hl
  49         ld      a,(hl)
  50         dec     hl
  51         ld      l,(hl)
  52         ld      h,a
  53
  54         ;; Fall through
  55 __divsint_rrx_hds::
  56         ld      b,h
  57         ld      c,l
  58
  59         call    __div16
  60
  61         ld      l,c
  62         ld      h,b
  63
  64         ret
  65
  66 __modsint_rrx_s::
  67         ld      hl,#2+3
  68         add     hl,sp
  69
  70         ld      d,(hl)
  71         dec     hl
  72         ld      e,(hl)
  73         dec     hl
  74         ld      a,(hl)
  75         dec     hl
  76         ld      l,(hl)
  77         ld      h,a
  78
  79         ;; Fall through
  80 __modsint_rrx_hds::
  81         ld      b,h
  82         ld      c,l
  83
  84         call    __div16
  85
  86         ld      l,e
  87         ld      h,d
  88
  89         ret
  90