pat lpb leaving adp 8
pat nop
+kills ALL
gen MOV_NV R0,R0
pat rck
pat nop
kills ALL
- /* gen proccall {label, ".nop"} */
+#ifdef DEBUG
+ gen proccall {label, ".nop"}
+#endif
pat rck $1==4
with BXREG ACC
pat nop
kills ALL
+#ifdef DEBUG
gen Call {label,".nop"}
+#endif
pat rck
with hl_or_de STACK
pat nop
kills ALL
-#if 0
+#if DEBUG
gen joehoe {label, ".nop"}
#endif
kills ALL
gen jsr {absolute4, ".mon"}
-/* used by the ANSI-compiler to indicate volatile */
pat nop
with STACK
kills ALL
-/* gen jsr {absolute4, ".nop"} */
+#ifdef DEBUG
+ gen jsr {absolute4, ".nop"}
+#endif
#if WORD_SIZE==2
pat rck $1==2
kills ALL
gen jsr {absolute4, ".mon"}
-/* used by the ANSI-compiler to indicate volatile */
pat nop
with STACK
kills ALL
-/* gen jsr {absolute4, ".nop"} */
+#ifdef DEBUG
+ gen jsr {absolute4, ".nop"}
+#endif
#if WORD_SIZE==2
pat rck $1==2
kills ALL
gen jsr {absolute4, ".mon"}
-/* used by the ANSI-compiler to indicate volatile */
pat nop
with STACK
kills ALL
-/* gen jsr {absolute4, ".nop"} */
+#ifdef DEBUG
+ gen jsr {absolute4, ".nop"}
+#endif
#if WORD_SIZE==2
pat rck $1==2
kills ALL
gen jsr {absolute4, ".mon"}
-/* used by the ANSI-compiler to indicate volatile */
pat nop
with STACK
kills ALL
-/* gen jsr {absolute4, ".nop"} */
+#ifdef DEBUG
+ gen jsr {absolute4, ".nop"}
+#endif
#if WORD_SIZE==2
pat rck $1==2
pat nop
kills ALL
+#ifdef DEBUG
gen move {absolute4, "hol0"}, {TOS}
jsr {absolute4, ".print"}
jsr {absolute4, ".prnl"}
+#endif
pat rck $1==4
kills ALL
mon | | remove(all)
"jsr pc,mon~" | | |
nop | | remove(all)
- "jsr pc,nop~" | | |
+#ifdef DEBUG
+ "jsr pc,nop~"
+#endif
+ | | |
#ifdef DORCK
rck $1==2 | source2 |
remove(all)
pat nop
kills ALL
+#ifdef DEBUG
gen jsr pc,{label, "nop~"}
+#endif
pat rck $1==2
with src2
mon | STACK |
"jsb\t.mon" | | |
nop | STACK |
-#ifdef TESTING
+#ifdef DEBUG
"jsb\t.nop"
#endif
| | |
nop | STACK |
#ifdef DEBUG
"calr noop"
-#ENDIF
+#endif
| | |
rtt | | | | ret 0 |
sig | REG | allocate(REG)