git.gag.com Git - debian/cc1111/blob - device/lib/gbz80/shift.s

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