rscid = "$Header$"
+#define UNTESTED
+
EM_WSIZE=2
EM_PSIZE=2
EM_BSIZE=4
mov {autoinc,sp},r1
jsr pc,{label, "lar~"}
+#ifdef UNTESTED
+pat aar !defined($1)
+with STACK
+gen jsr pc,{label, "iaar~"}
+
+pat sar !defined($1)
+with STACK
+gen jsr pc,{label, "isar~"}
+
+pat lar !defined($1)
+with STACK
+gen jsr pc,{label, "ilar~"}
+#endif
+
/****************************************
* group 12 : Compare instructions *
****************************************/
with STACK
gen move {const2,$1},r0
jsr pc,{label, "cms~"} yields r0
+
+pat cms !defined($1)
+with src2 STACK
+gen move %1,r0
+ jsr pc,{label, "cms~"} yields r0
+
pat cmp
with src2 src2
uses REG = {const2,0}
mov {autoinc,%2},{autoinc,%1}
sob %a,{label,1b}
+pat bls $1==2
+with REG REG REG
+gen
+ asr %1
+ beq {label,1f}
+ 2:
+ mov {autoinc,%3},{autoinc,%2}
+ sob %1,{label,2b}
+ 1:
+
pat lae csa $2==2
with src2 STACK
gen move %1,r1