acbd {const4, 0-4}, %a, {label, "1b"}
pat los $1==4
-with STACK
+kills ALL
gen jsr {absolute4, ".los"}
pat ldl yields {DLOCAL, $1}
acbd {const4, 0-4}, %a, {label, "1b"}
pat sts
-with STACK
+kills ALL
gen jsr {absolute4, ".sts"}
pat sdl
meid %2, %a yields %a.1
pat dvu $1 == 4
-with STACK
+kills ALL
gen jsr {absolute4, ".dvu"} yields r0
pat rmu $1 == 4
-with STACK
+kills ALL
gen jsr {absolute4, ".rmu"} yields r0
pat slu leaving sli $1
gen movxwd %1, %a yields %a
pat cii
-with STACK
+kills ALL
gen jsr {absolute4, ".cii"}
pat cui
gen roundfd %1, %a yields %a
pat cfi
-with STACK
+kills ALL
gen jsr {absolute4, ".cfi"}
pat loc loc cif $1==4 && $2==8
gen movdf %1, %a yields %a
pat cif
-with STACK
+kills ALL
gen jsr {absolute4, ".cif"}
pat cuf
gen movlf %1, %a yields %a
pat cff
-with STACK
+kills ALL
gen jsr {absolute4, ".cff"}
#else
loi rom($1,3)
pat aar defined($1)
-with STACK
+kills ALL
gen jsr {absolute4, ".aar"}
pat lar defined($1)
-with STACK
+kills ALL
gen jsr {absolute4, ".lar"}
pat sar defined($1)
-with STACK
+kills ALL
gen jsr {absolute4, ".sar"}
pat aar !defined($1)
with src4 STACK
+kills ALL
gen jsr {absolute4, ".aar"}
pat lar !defined($1)
with src4 STACK
+kills ALL
gen jsr {absolute4, ".lar"}
pat sar !defined($1)
with src4 STACK
+kills ALL
gen jsr {absolute4, ".sar"}
/*****************************************************************
2: yields %a
pat cmu defined($1)
-with STACK
+kills ALL
gen move {const4, $1}, {TOS}
jsr {absolute4, ".cmu"} yields r1
pat cms $1==4 leaving cmi $1
pat cms $1!=4
-with STACK
+kills ALL
gen move {const4, $1}, {TOS}
jsr {absolute4, ".cms"} yields r1
pat cms !defined($1)
-with STACK
+kills ALL
gen jsr {absolute4, ".cms"} yields r1
pat cmp
*****************************************************************/
pat cal
-with STACK
+kills ALL
gen jsr {absolute4, $1}
pat cai
with REG STACK
+kills ALL
gen jsr %1
pat ret $1==0
pat lae csa $2==4
with src4 STACK
+kills ALL
gen move %1, r0
move {addr_external, $1}, r1
jsr {absolute4, ".csa"}
pat csa
-with STACK
+kills ALL
gen movd {TOS}, r1
movd {TOS}, r0
jsr {absolute4, ".csa"}
pat lae csb $2==4
with src4 STACK
+kills ALL
gen move %1, r0
move {addr_external, $1}, r1
jsr {absolute4, ".csb"}
pat csb
-with STACK
+kills ALL
gen movd {TOS}, r1
movd {TOS}, r0
jsr {absolute4, ".csb"}
with exact absolute8 yields %1 %1
pat dup $1>8
-with STACK
+kills ALL
gen move {const4, $1}, r0
jsr {absolute4, ".dup"}
pat dus $1==4
with src4 STACK
+kills ALL
gen move %1, r0
jsr {absolute4, ".dup"}
with src4 src4 src4 src4 yields %2 %1 %4 %3
pat exg
-with STACK
+kills ALL
gen move {const4, $1}, r0
jsr {absolute4, ".exg"}
pat lpb leaving adp 8
pat mon
-with STACK
+kills ALL
gen jsr {absolute4, ".mon"}
pat nop
-with STACK
+kills ALL
gen move {absolute4, "hol0"}, {TOS}
jsr {absolute4, ".print"}
jsr {absolute4, ".prnl"}
pat rck $1==4
-with STACK
+kills ALL
gen jsr {absolute4, ".rck"}
pat rtt leaving ret 0
gen move %1, {absolute4, ".reghp"}
pat trp
-with STACK
+kills ALL
gen jsr {absolute4, ".trp"}