diff --git a/cli/uxndis/src/uxndis.tal b/cli/uxndis/src/uxndis.tal index 7fdfa0f..d0fddc4 100644 --- a/cli/uxndis/src/uxndis.tal +++ b/cli/uxndis/src/uxndis.tal @@ -104,11 +104,13 @@ LDAk DUP #80 NEQ SWP #c0 NEQ AND ?{ ;opcodes + /no-keep #2018 DEO INC2 LDAk !/b } LDAk DUP #a0 NEQ SWP #e0 NEQ AND ?{ ;opcodes + /no-keep #2018 DEO INC2 LDA2k INC2 JMP2r } @@ -117,10 +119,11 @@ ( >> ) @ ( addr* -- ) - LDAk #20 AND #00 EQU ?{ - [ LIT2 "2 18 ] DEO } LDAk #80 AND #00 EQU ?{ [ LIT2 "k 18 ] DEO } + &no-keep ( addr* -- ) + LDAk #20 AND #00 EQU ?{ + [ LIT2 "2 18 ] DEO } LDAk #40 AND #00 EQU ?{ [ LIT2 "r 18 ] DEO } JMP2r