From 809302fe92cd54e94682c775b29718d8fa154869 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 10 Jun 2024 08:58:05 -0800
Subject: [PATCH] Added modes to LIT opcode

---
 cli/uxndis/src/uxndis.tal | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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 ?{
 		<print-2-byte>
 		;opcodes <pstr>
+		<print-mode>/no-keep
 		#2018 DEO
 		INC2 LDAk !<phex>/b }
 	LDAk DUP #a0 NEQ SWP #e0 NEQ AND ?{
 		<print-3-byte>
 		;opcodes <pstr>
+		<print-mode>/no-keep
 		#2018 DEO
 		INC2 LDA2k <phex>
 		INC2 JMP2r }
@@ -117,10 +119,11 @@
 	( >> )
 
 @<print-mode> ( 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