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

   1         ;;
   2 __rrulong_rrx_s::
   3         ld      hl,#2+4
   4         add     hl,sp
   5
   6         ld      c,(hl)
   7         dec     hl
   8         ld      d,(hl)
   9         dec     hl
  10         ld      e,(hl)
  11         dec     hl
  12         ld      a,(hl)
  13         dec     hl
  14         ld      l,(hl)
  15         ld      h,a
  16
  17         ld      a,c
  18 1$:
  19         or      a,a
  20         ret     Z
  21
  22         rr      d
  23         rr      e
  24         rr      h
  25         rr      l
  26
  27         dec     a
  28         jp      1$
  29
  30 __rrslong_rrx_s::
  31         ld      hl,#2+4
  32         add     hl,sp
  33
  34         ld      c,(hl)
  35         dec     hl
  36         ld      d,(hl)
  37         dec     hl
  38         ld      e,(hl)
  39         dec     hl
  40         ld      a,(hl)
  41         dec     hl
  42         ld      l,(hl)
  43         ld      h,a
  44
  45         ld      a,c
  46 1$:
  47         or      a,a
  48         ret     Z
  49
  50         sra     d
  51         rr      e
  52         rr      h
  53         rr      l
  54
  55         dec     a
  56         jp      1$
  57
  58 __rlslong_rrx_s::
  59 __rlulong_rrx_s::
  60         ld      hl,#2+4
  61         add     hl,sp
  62
  63         ld      c,(hl)
  64         dec     hl
  65         ld      d,(hl)
  66         dec     hl
  67         ld      e,(hl)
  68         dec     hl
  69         ld      a,(hl)
  70         dec     hl
  71         ld      l,(hl)
  72         ld      h,a
  73
  74         ld      a,c
  75 1$:
  76         or      a,a
  77         ret     Z
  78
  79         rl      l
  80         rl      h
  81         rl      e
  82         rl      d
  83
  84         dec     a
  85         jp      1$