* src/ds390/peeph.def: replaced 24bitModeAndPortDS390 by
[fw/sdcc] / src / ds390 / peeph.def
index 630a6e6cfbdbd441b701e57d9e1e78b019c995f1..831605e87bfd347514e6032dc239df9816a1dfe3 100644 (file)
@@ -11,7 +11,7 @@
 //        push %1
 //} by {
 //        ; Peephole 2     removed pop %1 push %1 (not push pop)
-//        mov  %2,%3 
+//        mov  %2,%3
 //}
 
 //
@@ -57,7 +57,12 @@ replace restart {
         mov  a,%3
 }
 
-
+replace restart {
+       mov     a,#0
+} by {
+        ; Peephole 3.d   changed mov to clr
+       clr     a
+}
 
 replace {
         mov  %1,a
@@ -159,7 +164,7 @@ replace {
         clr  c
         mov  a,%1
 } by {
-        ; Peephole 106   removed redundant mov 
+        ; Peephole 106   removed redundant mov
         mov  %1,a
         clr  c
 }
@@ -245,7 +250,7 @@ replace {
         cjne %1,%2,%3
         setb %4
 %3:
-}
+} if labelRefCount %3 1
 
 replace {
         clr  a
@@ -262,7 +267,7 @@ replace {
         cjne %10,%11,%3
         setb %4
 %3:
-}
+} if labelRefCount %3 2
 
 replace {
         clr  a
@@ -271,11 +276,11 @@ replace {
 %3:
         jnz  %4
 } by {
-        ; Peephole 115   jump optimization 
+        ; Peephole 115   jump optimization
         cjne %1,%2,%3
         sjmp %4
 %3:
-}
+} if labelRefCount %3 1
 
 replace {
         clr  a
@@ -290,7 +295,7 @@ replace {
         cjne %9,%10,%3
         sjmp %4
 %3:
-}
+} if labelRefCount %3 2
 
 replace {
         clr  a
@@ -307,7 +312,7 @@ replace {
         cjne %11,%12,%3
         sjmp %4
 %3:
-}
+} if labelRefCount %3 3
 
 replace {
         clr  a
@@ -326,7 +331,8 @@ replace {
         cjne %13,%14,%3
         sjmp %4
 %3:
-}
+} if labelRefCount %3 4
+
 replace {
         mov  a,#0x01
         cjne %1,%2,%3
@@ -337,7 +343,7 @@ replace {
         ; Peephole 119   jump optimization
         cjne %1,%2,%4
 %3:
-}
+} if labelRefCount %3 1
 
 replace {
         mov  a,#0x01
@@ -351,7 +357,8 @@ replace {
         cjne %1,%2,%4
         cjne %10,%11,%4
 %3:
-}
+} if labelRefCount %3 2
+
 replace {
         mov  a,#0x01
         cjne %1,%2,%3
@@ -366,7 +373,7 @@ replace {
         cjne %10,%11,%4
         cjne %12,%13,%4
 %3:
-}
+} if labelRefCount %3 3
 
 replace {
         mov  a,#0x01
@@ -384,7 +391,7 @@ replace {
         cjne %12,%13,%4
         cjne %14,%15,%4
 %3:
-}
+} if labelRefCount %3 4
 
 replace {
         mov  a,#0x01
@@ -397,7 +404,8 @@ replace {
         cjne %1,%2,%3
         smp  %4
 %3:
-}
+} if labelRefCount %3 1
+
 replace {
         mov  a,#0x01
         cjne %1,%2,%3
@@ -409,9 +417,9 @@ replace {
         ; Peephole 124   jump optimization
         cjne %1,%2,%3
         cjne %10,%11,%3
-        smp  %4
+        sjmp  %4
 %3:
-}
+} if labelRefCount %3 2
 
 replace {
         mov  a,#0x01
@@ -428,7 +436,7 @@ replace {
         cjne %12,%13,%3
         sjmp %4
 %3:
-}
+} if labelRefCount %3 3
 
 replace {
         mov  a,#0x01
@@ -447,7 +455,7 @@ replace {
         cjne %14,%15,%3
         sjmp %4
 %3:
-}
+} if labelRefCount %3 4
 
 replace {
         push psw
@@ -462,7 +470,7 @@ replace {
 } by {
         ; Peephole 127   removed misc sequence
         ret
-}
+} if labelRefCount %3 0
 
 replace {
         clr  a
@@ -482,22 +490,22 @@ replace {
         jc   %1
 }
 
-replace { 
+replace {
         mov  r%1,@r%2
 } by {
         ; Peephole 130   changed target address mode r%1 to ar%1
         mov  ar%1,@r%2
 }
 
-replace { 
+replace {
         mov  a,%1
         subb a,#0x01
         mov  %2,a
         mov  %1,%2
 } by {
         ; Peephole 131   optimized decrement (not caring for c)
-        dec  %1         
-        mov  %2,%1      
+        dec  %1
+        mov  %2,%1
 }
 
 replace {
@@ -562,36 +570,37 @@ replace {
         mov  dph,%3
 }
 
-replace {
-        mov  b,#0x00
-        mov  a,%1
-        cjne %2,%3,%4
-        mov  b,#0x01
-%4:
-        mov  a,b
-        jz   %5
-} by {
-        ; Peephole 137   optimized misc jump sequence
-        mov  a,%1
-        cjne %2,%3,%5
-%4:
-}
-
-replace {
-        mov  b,#0x00
-        mov  a,%1
-        cjne %2,%3,%4
-        mov  b,#0x01
-%4:
-        mov  a,b
-        jnz  %5
-} by {
-        ; Peephole 138   optimized misc jump sequence
-        mov  a,%1
-        cjne %2,%3,%4
-        sjmp %5
-%4:
-}
+// WTF? Doesn't look sensible to me...
+//replace {
+//        mov  b,#0x00
+//        mov  a,%1
+//        cjne %2,%3,%4
+//        mov  b,#0x01
+//%4:
+//        mov  a,b
+//        jz   %5
+//} by {
+//        ; Peephole 137   optimized misc jump sequence
+//        mov  a,%1
+//        cjne %2,%3,%5
+//%4:
+//} if labelRefCount %4 1
+//
+//replace {
+//        mov  b,#0x00
+//        mov  a,%1
+//        cjne %2,%3,%4
+//        mov  b,#0x01
+//%4:
+//        mov  a,b
+//        jnz  %5
+//} by {
+//        ; Peephole 138   optimized misc jump sequence
+//        mov  a,%1
+//        cjne %2,%3,%4
+//        sjmp %5
+//%4:
+//} if labelRefCount %4 1
 
 replace {
         mov  r%1,a
@@ -652,7 +661,7 @@ replace {
         clr  c
         addc a,%1
 } by {
-        ; Peephole 145   changed to add without carry  
+        ; Peephole 145   changed to add without carry
         add  a,%1
 }
 
@@ -915,7 +924,8 @@ replace {
 } by {
         ; Peephole 170   jump optimization
         cjne %1,%2,%4
-%3:}
+%3:
+} if labelRefCount %3 1
 
 replace {
         clr  a
@@ -928,7 +938,8 @@ replace {
         ; Peephole 171   jump optimization
         cjne %1,%2,%4
         cjne %9,%10,%4
-%3:}
+%3:
+} if labelRefCount %3 2
 
 replace {
         clr  a
@@ -943,7 +954,8 @@ replace {
         cjne %1,%2,%4
         cjne %9,%10,%4
         cjne %11,%12,%4
-%3:}
+%3:
+} if labelRefCount %3 3
 
 replace {
         clr  a
@@ -960,7 +972,8 @@ replace {
         cjne %9,%10,%4
         cjne %11,%12,%4
         cjne %13,%14,%4
-%3:}
+%3:
+} if labelRefCount %3 4
 
 replace {
         mov  r%1,%2
@@ -996,13 +1009,14 @@ replace {
         mov  %1,@r%2
 }
 
-replace {
-        mov  %1,%2
-        mov  %2,%1
-} by {
-        ; Peephole 177   removed redundant mov
-        mov  %1,%2
-}
+// this one will screw assignes to volatile/sfr's
+//replace {
+//        mov  %1,%2
+//        mov  %2,%1
+//} by {
+//        ; Peephole 177   removed redundant mov
+//        mov  %1,%2
+//}
 
 replace {
         mov  a,%1
@@ -1051,15 +1065,43 @@ replace {
         mov  dptr,#0x0000
 }
 
+replace {
+       mov dpl,#%1
+       mov dph,#(%1 >> 8)
+       mov dpx,#(%1 >> 16)
+} by {
+       ; Peephole 182b used 24 bit load of DPTR
+       mov dptr,#%1
+}
+
 // saves 2 bytes, ?? cycles.
 replace {
-        mov  dpl,#%1
-        mov  dph,#(%1 >> 8)
-       mov  dpx,#(%1 >> 16)
+        mov  dpl,#0x%1
+        mov  dph,#0x%2
+       mov  dpx,#0x%3
 } by {
         ; Peephole 182a   used 24 bit load of dptr
-        mov  dptr,#%1
-} if 24bitMode
+        mov    dptr,#0x%3%2%1
+} if 24bitMode, portIsDS390
+
+// saves 2 bytes, ?? cycles.
+replace {
+        mov  dpl,#%1
+        mov  dph,#%2
+       mov  dpx,#%3
+} by {
+        ; Peephole 182b   used 24 bit load of dptr
+        mov  dptr,#((%3 << 16) + (%2 << 8) + %1)
+} if 24bitMode, portIsDS390
+
+// saving 3 byte, 2 cycles, return(float_constant) profits here
+replace {
+        mov  dpl,#0x%1
+        mov  dph,#0x%2
+} by {
+        ; Peephole 182c   used 16 bit load of dptr
+        mov  dptr,#0x%2%1
+}
 
 // saving 3 byte, 2 cycles, return(float_constant) profits here
 replace {
@@ -1098,14 +1140,15 @@ replace {
         mov  %1,a
 }
 
-replace {
-        add  a,#%1
-        mov  dpl,a
-        clr  a
-        addc a,#(%1 >> 8)
-        mov  dph,a
-        clr  a
-        movc a,@a+dptr
+// char indexed access to: long code table[] = {4,3,2,1};
+replace restart {
+       add  a,#%1
+       mov  dpl,a
+       clr  a
+       addc a,#(%1 >> 8)
+       mov  dph,a
+       clr  a
+       movc a,@a+dptr
        mov  %2,a
        inc  dptr
        clr  a
@@ -1116,32 +1159,36 @@ replace {
        movc a,@a+dptr
        mov  %4,a
        inc  dptr
-       clr  a  
+       clr  a
+       movc a,@a+dptr
 } by {
-        ; Peephole 186.a   optimized movc sequence
-        mov  dptr,#%1
-       mov  b,acc
-        movc a,@a+dptr
+       ; Peephole 186.a   optimized movc sequence
+       mov  b,a
+       mov  dptr,#%1
+       movc a,@a+dptr
        mov  %2,a
-       mov  acc,b
-       inc  dptr       
+       inc  dptr
+       mov  a,b
        movc a,@a+dptr
        mov  %3,a
-       mov  acc,b
        inc  dptr
+       mov  a,b
+       movc a,@a+dptr
        mov  %4,a
-       mov  acc,b
        inc  dptr
+       mov  a,b
+       movc a,@a+dptr
 }
 
-replace {
-        add  a,#%1
-        mov  dpl,a
-        clr  a
-        addc a,#(%1 >> 8)
-        mov  dph,a
-        clr  a
-        movc a,@a+dptr
+// char indexed access to: void* code table[] = {4,3,2,1};
+replace restart {
+       add  a,#%1
+       mov  dpl,a
+       clr  a
+       addc a,#(%1 >> 8)
+       mov  dph,a
+       clr  a
+       movc a,@a+dptr
        mov  %2,a
        inc  dptr
        clr  a
@@ -1149,53 +1196,58 @@ replace {
        mov  %3,a
        inc  dptr
        clr  a
+       movc a,@a+dptr
 } by {
-        ; Peephole 186.b   optimized movc sequence
-        mov  dptr,#%1
-       mov  b,acc
-        movc a,@a+dptr
+       ; Peephole 186.b   optimized movc sequence
+       mov  b,a
+       mov  dptr,#%1
+       movc a,@a+dptr
        mov  %2,a
-       mov  acc,b
-       inc  dptr       
+       inc  dptr
+       mov  a,b
        movc a,@a+dptr
        mov  %3,a
-       mov  acc,b
-       inc  dptr       
+       inc  dptr
+       mov  a,b
+       movc a,@a+dptr
 }
 
-replace {
-        add  a,#%1
-        mov  dpl,a
-        clr  a
-        addc a,#(%1 >> 8)
-        mov  dph,a
-        clr  a
-        movc a,@a+dptr
+// char indexed access to: int code table[] = {4,3,2,1};
+replace restart {
+       add  a,#%1
+       mov  dpl,a
+       clr  a
+       addc a,#(%1 >> 8)
+       mov  dph,a
+       clr  a
+       movc a,@a+dptr
        mov  %2,a
        inc  dptr
        clr  a
+       movc a,@a+dptr
 } by {
-        ; Peephole 186.c   optimized movc sequence
-        mov  dptr,#%1
-       mov  b,acc
-        movc a,@a+dptr
+       ; Peephole 186.c   optimized movc sequence
        mov  %2,a
-       mov  acc,b
+       mov  dptr,#%1
+       movc a,@a+dptr
+       xch  a,%2
        inc  dptr
+       movc a,@a+dptr
 }
 
+// char indexed access to: char code table[] = {4,3,2,1};
 replace {
-        add  a,#%1
-        mov  dpl,a
-        clr  a
-        addc a,#(%1 >> 8)
-        mov  dph,a
-        clr  a
-        movc a,@a+dptr
+       add  a,#%1
+       mov  dpl,a
+       clr  a
+       addc a,#(%1 >> 8)
+       mov  dph,a
+       clr  a
+       movc a,@a+dptr
 } by {
-        ; Peephole 186   optimized movc sequence
-        mov  dptr,#%1
-        movc a,@a+dptr
+       ; Peephole 186.d  optimized movc sequence
+       mov  dptr,#%1
+       movc a,@a+dptr
 }
 
 replace {
@@ -1287,8 +1339,8 @@ replace {
         mov  a,%12
         cjne %13,%14,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 4
 
 replace {
         cjne %1,%2,%3
@@ -1311,8 +1363,8 @@ replace {
         mov  a,%12
         cjne %13,%14,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 4
 
 replace {
         cjne @%1,%2,%3
@@ -1335,8 +1387,8 @@ replace {
         inc  %1
         cjne @%1,%14,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 4
 
 replace {
         cjne %1,%2,%3
@@ -1353,8 +1405,8 @@ replace {
         cjne %10,%11,%8
         cjne %13,%14,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 4
 
 replace {
         jnz  %3
@@ -1373,8 +1425,8 @@ replace {
         mov  a,%9
         cjne %10,%11,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 3
 
 replace {
         cjne %1,%2,%3
@@ -1393,8 +1445,8 @@ replace {
         mov  a,%9
         cjne %10,%11,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 3
 
 replace {
         cjne @%1,%2,%3
@@ -1413,8 +1465,8 @@ replace {
         inc  %1
         cjne @%1,%11,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 3
 
 replace {
         cjne %1,%2,%3
@@ -1429,8 +1481,8 @@ replace {
         cjne %5,%6,%8
         cjne %10,%11,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 3
 
 replace {
         jnz  %3
@@ -1438,15 +1490,15 @@ replace {
         cjne %5,%6,%3
         sjmp %7
 %3:
-        sjmp %8 
+        sjmp %8
 } by {
         ; Peephole 197.a optimized misc jump sequence
         jnz  %8
         mov  a,%4
         cjne %5,%6,%8
         sjmp %7
-%3:     
-}
+;%3:
+} if labelRefCount %3 2
 
 replace {
         cjne %1,%2,%3
@@ -1461,8 +1513,8 @@ replace {
         mov  a,%4
         cjne %5,%6,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 2
 
 replace {
         cjne @%1,%2,%3
@@ -1477,8 +1529,8 @@ replace {
         inc   %1
         cjne @%1,%6,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 2
 
 replace {
         cjne %1,%2,%3
@@ -1491,8 +1543,8 @@ replace {
         cjne %1,%2,%8
         cjne %5,%6,%8
         sjmp %7
-%3:
-}
+;%3:
+} if labelRefCount %3 2
 
 replace {
         cjne %1,%2,%3
@@ -1503,8 +1555,8 @@ replace {
         ; Peephole 199   optimized misc jump sequence
         cjne %1,%2,%5
         sjmp %4
-%3:
-}
+;%3:
+} if labelRefCount %3 1
 
 replace {
         sjmp %1
@@ -1533,6 +1585,13 @@ replace {
         mov   dptr,%1
 }
 
+replace {
+        push  acc
+        pop   acc
+} by {
+        ; Peephole 202b   removed redundant push pop
+}
+
 replace {
         mov  r%1,_spx
         lcall %2
@@ -1563,7 +1622,7 @@ replace {
         djnz %1,%4
 %2:
 %3:
-}
+} if labelRefCount %2 1
 
 replace {
         mov  %1,%1
@@ -1614,12 +1673,12 @@ replace {
         mov  dptr,#%1
 }
 
-replace {
-        push %1
-        pop  %1
+replace restart {
+        push ar%1
+        pop  ar%1
 } by {
-        ; Peephole 211   removed redundant push %1 pop %1  
-} 
+        ; Peephole 211   removed redundant push r%1 pop r%1
+}
 
 replace {
        mov  a,_bp
@@ -1633,17 +1692,27 @@ replace {
 
 replace {
        mov  %1,#(( %2 >> 8 ) ^ 0x80)
-} by { 
+} by {
+       ; Peephole 213.a inserted fix
        mov  %1,#(%2 >> 8)
        xrl  %1,#0x80
-}
+} if portIsDS390
+
+replace {
+       mov  %1,#(( %2 >> 16 ) ^ 0x80)
+} by {
+       ; Peephole 213.b inserted fix
+       mov  %1,#(%2 >> 16)
+       xrl  %1,#0x80
+} if portIsDS390
 
 replace {
        mov  %1,#(( %2 + %3 >> 8 ) ^ 0x80)
-} by { 
+} by {
+       ; Peephole 213.c inserted fix
        mov  %1,#((%2 + %3) >> 8)
        xrl  %1,#0x80
-}
+} if portIsDS390
 
 replace  {
        mov  %1,a
@@ -1652,7 +1721,7 @@ replace  {
 } by {
        ; Peephole 214 reduced some extra movs
        mov  %1,a
-       add  a,%2       
+       add  a,%2
 } if operandsNotSame
 
 replace {
@@ -1761,19 +1830,36 @@ replace {
 }
 
 replace {
-        mov     dps, #0x00
-        mov     dps, #0x01
+        mov     dps, #0
+        mov     dps, #1
 } by {
         ; Peephole 220a removed bogus DPS set
-        mov     dps, #0x01
+        mov     dps, #1
 }
 
 replace {
-        mov     dps, #0x01
-        mov     dps, #0x00
+        mov     dps, #1
+        mov     dps, #0
 } by {
         ; Peephole 220b removed bogus DPS set
-        mov     dps, #0x00
+        mov     dps, #0
+}
+
+replace {
+        mov     dps, #0
+        mov     dps, #0x01
+} by {
+        ; Peephole 220c removed bogus DPS set
+}
+
+replace {
+        mov     dps,#1
+       inc     dptr
+        mov     dps,#1
+} by {
+        ; Peephole 220d removed bogus DPS set
+        mov     dps,#1
+       inc     dptr
 }
 
 replace {
@@ -1793,4 +1879,978 @@ replace {
        inc     r%1
 } by {
        ; removed dec/inc pair
-}
\ No newline at end of file
+}
+
+replace {
+       mov     dps, #0
+       mov     %1,a
+       mov     dps, #1
+} by {
+       ; Peephole 222 removed DPS abuse.
+       mov     %1,a
+        mov     dps, #1
+}
+
+replace {
+       mov     dps, #0
+       xch     a, ap
+       mov     %1, ap
+       mov     dps, #1
+} by {
+       ; Peephole 222a removed DPS abuse.
+       xch     a, ap
+        mov     %1, ap
+        mov     dps, #1
+}
+
+replace {
+       mov     dps, #%1
+       inc     dptr
+       movx    a,@dptr
+       mov     %2,a
+       mov     dps, #%1
+} by {
+       mov     dps, #%1
+        inc     dptr
+        movx    a,@dptr
+        mov     %2,a
+; Peephole 223: yet more DPS abuse removed.
+}
+
+replace {
+       mov     dps, #0
+       inc     dps
+} by {
+       mov     dps, #1
+}
+
+replace {
+       mov     dps, #%1
+       mov     dptr, %2
+       mov     dps, #%1
+} by {
+       mov     dps, #%1
+        mov     dptr, %2
+}
+
+replace {
+       mov     dps, #1
+       mov     dptr, %1
+       mov     dps, #0
+       mov     dptr, %2
+       inc     dps
+} by {
+       mov     dps, #0
+       mov     dptr, %2
+       inc     dps
+       mov     dptr, %1
+; Peephole 224a: DPS usage re-arranged.
+}
+
+replace {
+       mov     dps, #%1
+       mov     dptr, %2
+       mov     dps, #%3
+       mov     dptr, %4
+       mov     dps, #%1
+} by {
+       mov     dps, #%3
+       mov     dptr, %4
+       mov     dps, #%1
+       mov     dptr, %2
+; Peephole 224: DPS usage re-arranged.
+}
+
+replace {
+       mov     dps, #1
+       mov     dptr, %1
+       mov     dps, #0
+} by {
+       mov     dps, #1
+       mov     dptr, %1
+       dec     dps
+}
+
+replace {
+       xch     a, ap
+       add     a, ap
+} by {
+       add     a, ap
+}
+
+replace {
+       xch     a, ap
+       addc    a, ap
+} by {
+       addc    a, ap
+}
+
+replace {
+       inc     dps
+       mov     dps, #%1
+} by {
+       mov     dps, #%1
+}
+
+replace {
+       dec     dps
+       mov     dps, #%1
+} by {
+       mov     dps, #%1
+}
+
+
+// char indexed access to: long code table[] = {4,3,2,1};
+replace restart {
+       add     a,#%1
+       mov     dpl,a
+       clr  a
+       addc    a,#(%1 >> 8)
+       mov     dph,a
+       clr  a
+       addc    a,#(%1 >> 16)
+       mov     dpx,a
+       clr     a
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %2,a
+       clr     a
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %3,a
+       clr     a
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %4,a
+       clr     a
+       movc    a,@a+dptr
+} by {
+       ; Peephole 227.a movc optimize
+       mov     b,a
+       mov     dptr,#%1
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %2,a
+       mov     a,b
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %3,a
+       mov     a,b
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %4,a
+       mov     a,b
+       movc    a,@a+dptr
+}
+
+// char indexed access to: void* code table[] = {4,3,2,1};
+replace restart {
+       add     a,#%1
+       mov     dpl,a
+       clr  a
+       addc    a,#(%1 >> 8)
+       mov     dph,a
+       clr  a
+       addc    a,#(%1 >> 16)
+       mov     dpx,a
+       clr     a
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %2,a
+       clr     a
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %3,a
+       clr     a
+       movc    a,@a+dptr
+} by {
+       ; Peephole 227.b movc optimize
+       mov     b,a
+       mov     dptr,#%1
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %2,a
+       mov     a,b
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %3,a
+       mov     a,b
+       movc    a,@a+dptr
+}
+
+// char indexed access to: int code table[] = {4,3,2,1};
+replace restart {
+       add     a,#%1
+       mov     dpl,a
+       clr  a
+       addc    a,#(%1 >> 8)
+       mov     dph,a
+       clr  a
+       addc    a,#(%1 >> 16)
+       mov     dpx,a
+       clr     a
+       movc    a,@a+dptr
+       inc     dptr
+       mov     %2,a
+       clr     a
+       movc    a,@a+dptr
+} by {
+       ; Peephole 227.c movc optimize
+       mov     %2,a
+       mov     dptr,#%1
+       movc    a,@a+dptr
+       inc     dptr
+       xch     a,%2
+       movc    a,@a+dptr
+}
+
+// char indexed access to: char code table[] = {4,3,2,1};
+replace {
+       add     a,#%1
+       mov     dpl,a
+       clr  a
+       addc    a,#(%1 >> 8)
+       mov     dph,a
+       clr  a
+       addc    a,#(%1 >> 16)
+       mov     dpx,a
+       clr     a
+       movc    a,@a+dptr
+} by {
+       ; Peephole 227.d movc optimize
+       mov     dptr,#%1
+       movc    a,@a+dptr
+}
+
+replace {
+       mov     r%1,%2
+       mov     ar%1,%3
+} by {
+       ; Peephole 228 redundant move
+       mov     ar%1,%3
+}
+
+replace {
+       mov     r%1,a
+       dec     r%1
+       mov     a,r%1
+} by {
+       ; Peephole 229.a redundant move
+       dec     a
+       mov     r%1,a
+}
+
+replace {
+       mov     r%1,a
+       mov     r%2,b
+       mov     a,r%1
+} by {
+       ; Peephole 229.b redundant move
+       mov     r%1,a
+       mov     r%2,b
+}
+
+replace {
+       mov     r%1,a
+       mov     r%2,b
+       add     a,#%3
+       mov     r%1,a
+       mov     a,r%2
+       addc    a,#(%3 >> 8)
+       mov     r%2,a
+} by {
+       ; Peephole 229.c redundant move
+       add     a,#%3
+       mov     r%1,a
+       mov     a,b
+       addc    a,#(%3 >> 8)
+       mov     r%2,a
+}
+
+replace {
+       mov     a,%1
+       mov     b,a
+       movx    a,%2
+} by {
+       ; Peephole 229.d redundant move
+       mov     b,%1
+       movx    a,%2
+}
+
+replace {
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       movx    a,@dptr
+       mov     r%4,a
+       add     a,#0x01
+       mov     r%5,a
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       movx    @dptr,a
+} by {
+       ; Peephole 230.a save reload dptr
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       movx    a,@dptr
+       mov     r%4,a
+       add     a,#0x01
+       mov     r%5,a
+       movx    @dptr,a
+}
+
+replace {
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       movx    a,@dptr
+       mov     r%4,a
+       dec     r%4
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       mov     a,r%4
+       movx    @dptr,a
+} by {
+       ; Peephole 230.b save reload dptr
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       movx    a,@dptr
+       dec     a
+       mov     r%4,a
+       movx    @dptr,a
+}
+
+replace {
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       movx    a,@dptr
+       inc     a
+       mov     r%4,a
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       mov     a,r%4
+       movx    @dptr,a
+} by {
+       ; Peephole 230.c save reload dptr
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+       movx    a,@dptr
+       inc     a
+       mov     r%4,a
+       movx    @dptr,a
+}
+
+replace {
+       mov     r%1,dpl
+       mov     r%2,dph
+       mov     r%3,dpx
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+} by {
+       ; Peephole 230.d save reload dptr
+       mov     r%1,dpl
+       mov     r%2,dph
+       mov     r%3,dpx
+}
+
+replace {
+        mov     dpl,r%1
+        mov     dph,r%2
+        mov     dpx,r%3
+        movx    a,@dptr
+        mov     r%4,a
+        orl     ar%4,#%5
+        mov     dpl,r%1
+        mov     dph,r%2
+        mov     dpx,r%3
+        mov     a,r1
+        movx    @dptr,a
+} by {
+       ; Peephole 230.e save reload dptr
+        mov     dpl,r%1
+        mov     dph,r%2
+        mov     dpx,r%3
+        movx    a,@dptr
+        orl     a,#%5
+        mov     r%4,a
+        movx    @dptr,a
+}
+
+replace {
+        mov     dpl,r%1
+        mov     dph,r%2
+        mov     dpx,r%3
+        movx    a,@dptr
+        mov     r%4,a
+        anl     ar%4,#%5
+        mov     dpl,r%1
+        mov     dph,r%2
+        mov     dpx,r%3
+        mov     a,r1
+        movx    @dptr,a
+} by {
+       ; Peephole 230.e save reload dptr
+        mov     dpl,r%1
+        mov     dph,r%2
+        mov     dpx,r%3
+        movx    a,@dptr
+        anl     a,#%5
+        mov     r%4,a
+        movx    @dptr,a
+}
+
+replace {
+       mov     r%1,dpl
+       mov     r%2,dph
+       mov     r%3,dpx
+       mov     a,r%4
+       inc     dps
+       movx    @dptr,a
+       inc     dptr
+       mov     dps,#0
+       mov     dpl,r%1
+       mov     dph,r%2
+       mov     dpx,r%3
+} by {
+       ; Peephole 230.f save reload dptr
+       mov     r%1,dpl
+       mov     r%2,dph
+       mov     r%3,dpx
+       mov     a,r%4
+       inc     dps
+       movx    @dptr,a
+       inc     dptr
+       mov     dps,#0
+}
+
+replace {
+       mov     ar%1,r%2
+       mov     ar%3,r%1
+       mov     r%1,#0x00
+       mov     ar%2,r%4
+       mov     r3,#0x00
+} by {
+       ; Peephole 231.a simplified moves
+       mov     ar%3,r%2
+       mov     ar%2,r%4
+       mov     r%4,#0
+       mov     r%1,#0
+}
+
+replace {
+       mov     r%1,#0
+       mov     r%2,#0
+       mov     a,r%2
+       orl     a,r%3
+       mov     %4,a
+       mov     a,r%5
+       orl     a,r%1
+       mov     %6,a
+} by {
+       ; Peephole 231.b simplified or
+       mov     r%1,#0
+       mov     r%2,#0
+       mov     a,r%3
+       mov     %4,a
+       mov     a,r%5
+       mov     %6,a
+}
+
+replace {
+       mov     a,r%1
+       mov     b,r%2
+       mov     r%1,b
+       mov     r%2,a
+} by {
+       ; Peehole 232.a simplified xch
+       mov     a,r%1
+       xch     a,r%2
+       mov     r%1,a
+}
+
+replace {
+       mov     a,#%1
+       mov     b,#%2
+       mov     r%3,b
+       mov     r%4,a
+} by {
+       ; Peehole 232.b simplified xch
+       mov     r%3,#%2
+       mov     r%4,#%1
+}
+
+replace {
+       mov     dpl1,#%1
+       mov     dph1,#(%1 >> 8)
+       mov     dpx1,#(%1 >> 16)
+} by {
+       ; Peephole 233 24 bit load of dptr1
+       inc     dps
+       mov     dptr,#%1
+       dec     dps
+}
+
+// 14 rules by Fiorenzo D. Ramaglia <fd.ramaglia@tin.it>
+
+replace {
+        add  a,ar%1
+} by {
+        ; Peephole 236a
+        add  a,r%1
+}
+
+replace {
+        addc  a,ar%1
+} by {
+        ; Peephole 236b
+        addc  a,r%1
+}
+
+replace {
+        anl  a,ar%1
+} by {
+        ; Peephole 236c
+        anl  a,r%1
+}
+
+replace {
+        dec  ar%1
+} by {
+        ; Peephole 236d
+        dec  r%1
+}
+
+replace {
+        djnz  ar%1,%2
+} by {
+        ; Peephole 236e
+        djnz  r%1,%2
+}
+
+replace {
+        inc  ar%1
+} by {
+        ; Peephole 236f
+        inc  r%1
+}
+
+replace {
+        mov  a,ar%1
+} by {
+        ; Peephole 236g
+        mov  a,r%1
+}
+
+replace {
+        mov  ar%1,#%2
+} by {
+        ; Peephole 236h
+        mov  r%1,#%2
+}
+
+replace {
+        mov  ar%1,a
+} by {
+        ; Peephole 236i
+        mov  r%1,a
+}
+
+replace {
+        mov  ar%1,ar%2
+} by {
+        ; Peephole 236j
+        mov  r%1,ar%2
+}
+
+replace {
+        orl  a,ar%1
+} by {
+        ; Peephole 236k
+        orl  a,r%1
+}
+
+replace {
+        subb  a,ar%1
+} by {
+        ; Peephole 236l
+        subb  a,r%1
+}
+
+replace {
+        xch  a,ar%1
+} by {
+        ; Peephole 236m
+        xch  a,r%1
+}
+
+replace {
+        xrl  a,ar%1
+} by {
+        ; Peephole 236n
+        xrl  a,r%1
+}
+
+replace {
+        sjmp    %1
+%2:
+        mov     %3,%4
+%1:
+        ret
+} by {
+        ; Peephole 237a  removed sjmp to ret
+        ret
+%2:
+        mov     %3,%4
+%1:
+        ret
+}
+
+replace {
+        sjmp    %1
+%2:
+        mov     %3,%4
+        mov     dpl,%5
+        mov     dph,%6
+%1:
+        ret
+} by {
+        ; Peephole 237b  removed sjmp to ret
+        ret
+%2:
+        mov     %3,%4
+        mov     dpl,%5
+        mov     dph,%6
+%1:
+        ret
+}
+
+// applies to f.e. device/lib/log10f.c
+replace {
+        mov     %1,%9
+        mov     %2,%10
+        mov     %3,%11
+        mov     %4,%12
+
+        mov     %5,%13
+        mov     %6,%14
+        mov     %7,%15
+        mov     %8,%16
+
+        mov     %9,%1
+        mov     %10,%2
+        mov     %11,%3
+        mov     %12,%4
+} by {
+        mov     %1,%9
+        mov     %2,%10
+        mov     %3,%11
+        mov     %4,%12
+
+        mov     %5,%13
+        mov     %6,%14
+        mov     %7,%15
+        mov     %8,%16
+        ;       Peephole 238.a  removed 4 redundant moves
+} if operandsNotSame8 %1 %2 %3 %4 %5 %6 %7 %8
+
+// applies to device/lib/log10f.c
+replace {
+        mov     %1,%5
+        mov     %2,%6
+        mov     %3,%7
+        mov     %4,%8
+
+        mov     %5,%1
+        mov     %6,%2
+        mov     %7,%3
+} by {
+        mov     %1,%5
+        mov     %2,%6
+        mov     %3,%7
+        mov     %4,%8
+        ;       Peephole 238.b  removed 3 redundant moves
+} if operandsNotSame7 %1 %2 %3 %4 %5 %6 %7
+
+// applies to f.e. device/lib/time.c
+replace {
+        mov     %1,%5
+        mov     %2,%6
+
+        mov     %3,%7
+        mov     %4,%8
+
+        mov     %5,%1
+        mov     %6,%2
+} by {
+        mov     %1,%5
+        mov     %2,%6
+
+        mov     %3,%7
+        mov     %4,%8
+        ;       Peephole 238.c  removed 2 redundant moves
+} if operandsNotSame4 %1 %2 %3 %4
+
+// applies to f.e. support/regression/tests/bug-524209.c
+replace {
+        mov     %1,%4
+        mov     %2,%5
+        mov     %3,%6
+
+        mov     %4,%1
+        mov     %5,%2
+        mov     %6,%3
+} by {
+        mov     %1,%4
+        mov     %2,%5
+        mov     %3,%6
+        ;       Peephole 238.d  removed 3 redundant moves
+} if operandsNotSame6 %1 %2 %3 %4 %5 %6
+
+// applies to f.e. ser_ir.asm
+replace {
+        mov     r%1,acc
+} by {
+        ;       Peephole 239    used a instead of acc
+        mov     r%1,a
+}
+
+replace restart {
+       mov     a,%1
+       addc    a,#0x00
+} by {
+       ;       Peephole 240    use clr instead of addc a,#0
+       clr     a
+       addc    a,%1
+}
+
+// peepholes 241.a to 241.c and 241.d to 241.f need to be in order
+replace {
+        cjne    r%1,#%2,%3
+        cjne    r%4,#%5,%3
+        cjne    r%6,#%7,%3
+        cjne    r%8,#%9,%3
+        mov     a,#0x01
+        sjmp    %10
+%3:
+        clr     a
+%10:
+} by {
+        ;       Peephole 241.a  optimized compare
+        clr     a
+        cjne    r%1,#%2,%3
+        cjne    r%4,#%5,%3
+        cjne    r%6,#%7,%3
+        cjne    r%8,#%9,%3
+        inc     a
+%3:
+%10:
+}
+
+// applies to f.e. time.c
+replace {
+        cjne    r%1,#%2,%3
+        cjne    r%4,#%5,%3
+        mov     a,#0x01
+        sjmp    %6
+%3:
+        clr     a
+%6:
+} by {
+        ;       Peephole 241.b  optimized compare
+        clr     a
+        cjne    r%1,#%2,%3
+        cjne    r%4,#%5,%3
+        inc     a
+%3:
+%6:
+}
+
+// applies to f.e. malloc.c
+replace {
+        cjne    r%1,#%2,%3
+        mov     a,#0x01
+        sjmp    %4
+%3:
+        clr     a
+%4:
+} by {
+        ;       Peephole 241.c  optimized compare
+        clr     a
+        cjne    r%1,#%2,%3
+        inc     a
+%3:
+%4:
+}
+
+// applies to f.e. j = (k!=0x1000);
+// with volatile idata long k;
+replace {
+        cjne    @r%1,#%2,%3
+       inc     r%1
+        cjne    @r%1,#%4,%3
+       inc     r%1
+        cjne    @r%1,#%5,%3
+       inc     r%1
+        cjne    @r%1,#%6,%3
+        mov     a,#0x01
+        sjmp    %7
+%3:
+        clr     a
+%7:
+} by {
+        ;       Peephole 241.d  optimized compare
+        clr     a
+        cjne    @r%1,#%2,%3
+       inc     r%1
+        cjne    @r%1,#%4,%3
+       inc     r%1
+        cjne    @r%1,#%5,%3
+       inc     r%1
+        cjne    @r%1,#%6,%3
+        inc     a
+%3:
+%7:
+}
+
+// applies to f.e. j = (k!=0x1000);
+// with volatile idata int k;
+replace {
+        cjne    @r%1,#%2,%3
+       inc     r%1
+        cjne    @r%1,#%4,%3
+        mov     a,#0x01
+        sjmp    %7
+%3:
+        clr     a
+%7:
+} by {
+        ;       Peephole 241.e  optimized compare
+        clr     a
+        cjne    @r%1,#%2,%3
+       inc     r%1
+        cjne    @r%1,#%4,%3
+        inc     a
+%3:
+%7:
+}
+
+// applies to f.e. vprintf.asm (--stack-auto)
+replace {
+        cjne    @r%1,#%2,%3
+        mov     a,#0x01
+        sjmp    %7
+%3:
+        clr     a
+%7:
+} by {
+        ;       Peephole 241.f  optimized compare
+        clr     a
+        cjne    @r%1,#%2,%3
+        inc     a
+%3:
+%7:
+}
+
+// applies to f.e. scott-bool1.c
+replace {
+        jnz     %1
+        mov     %2,%3
+%1:
+        jz      %4
+} by {
+        ;       Peephole 242.a  avoided branch jnz to jz
+        jnz     %1
+        mov     %2,%3
+        jz      %4
+%1:
+} if labelRefCount %1 1
+
+// applies to f.e. scott-bool1.c
+replace {
+        jnz     %1
+        mov     %2,%3
+        orl     a,%5
+%1:
+        jz      %4
+} by {
+        ;       Peephole 242.b  avoided branch jnz to jz
+        jnz     %1
+        mov     %2,%3
+        orl     a,%5
+        jz      %4
+%1:
+} if labelRefCount %1 1
+
+// applies to f.e. logic.c
+replace {
+        jnz     %1
+        mov     %2,%3
+        orl     a,%5
+        orl     a,%6
+        orl     a,%7
+%1:
+        jz      %4
+} by {
+        ;       Peephole 242.c  avoided branch jnz to jz
+        jnz     %1
+        mov     %2,%3
+        orl     a,%5
+        orl     a,%6
+        orl     a,%7
+        jz      %4
+%1:
+} if labelRefCount %1 1
+
+replace {
+        jnz     %1
+%1:
+} by {
+        ;       Peephole 243a    jump optimization
+} if labelRefCount %1 1
+
+replace {
+        jz      %1
+%1:
+} by {
+        ;       Peephole 243b    jump optimization
+} if labelRefCount %1 1
+
+
+// This allows non-interrupt and interrupt code to safely compete
+// for a resource without the non-interrupt code having to disable
+// interrupts:
+// volatile bit resource_is_free;
+// if( resource_is_free ) {
+//     resource_is_free=0; do_something; resource_is_free=1;
+// }
+replace {
+        jnb     %1,%2
+%3:
+        clr     %1
+} by {
+        ;       Peephole 244.a  using atomic test and clear
+        jbc     %1,%3
+        sjmp    %2
+%3:
+} if labelRefCount %3 0
+
+replace {
+        jb      %1,%2
+        ljmp    %3
+%2:
+        clr     %1
+} by {
+        ;       Peephole 244.b  using atomic test and clear
+        jbc     %1,%2
+        ljmp    %3
+%2:
+} if labelRefCount %2 1
+