Only call NOP routine when debugging table

This commit is contained in:
ceriel
1991-09-04 10:55:52 +00:00
parent 89b73247c7
commit 564cbc6eba
13 changed files with 29 additions and 13 deletions

View File

@@ -2227,9 +2227,11 @@ gen jsr {absolute4, ".mon"}
pat nop
kills ALL
#ifdef DEBUG
gen move {absolute4, "hol0"}, {TOS}
jsr {absolute4, ".print"}
jsr {absolute4, ".prnl"}
#endif
pat rck $1==4
kills ALL