git.gag.com Git - fw/sdcc/blob - src/z80/peeph-gbz80.def

   1 replace {
   2         ld      (hl),a
   3         dec     hl
   4 } by {
   5         ld      (hl-),a
   6 }
   7 replace {
   8         ld      (hl),a
   9         inc     hl
  10 } by {
  11         ld      (hl+),a
  12 }
  13 replace {
  14         ld      a,(hl)
  15         inc     hl
  16 } by {
  17         ld      a,(hl+)
  18 }
  19 replace {
  20         ld      a,[hl]
  21         inc     hl
  22 } by {
  23         ld      a,[hl+]
  24 }
  25 replace {
  26         ld      a,[hl]
  27         inc     hl
  28 } by {
  29         ld      a,[hl+]
  30 }
  31 replace {
  32         ld      [hl],a
  33         inc     hl
  34 } by {
  35         ld      [hl+],a
  36 }
  37 replace {
  38         ld      [hl],a
  39         dec     hl
  40 } by {
  41         ld      [hl-],a
  42 }
  43 replace {
  44         ld      (hl+),a
  45         ld      (hl),d
  46         dec     hl
  47         ld      e,(hl)
  48         inc     hl
  49         ld      d,(hl)
  50         ld      a,(de)
  51 } by {
  52         ld      (hl+),a
  53         ld      (hl),d
  54         ld      e,a
  55         ld      a,(de)
  56 }
  57 replace {
  58         ld      (hl),a
  59         ld      %1,(hl)
  60 } by {
  61         ld      (hl),a
  62         ld      %1,a
  63 }
  64 replace {
  65         ld      (hl),%1
  66         ld      a,%2
  67         sub     a,(hl)
  68 } by {
  69         ld      (hl),%1
  70         ld      a,%2
  71         sub     a,%1
  72 }