1 files changed, 4 insertions(+), 0 deletions(-)

M src/uxnlin.tal

@@ 383,6 383,8 @@ JMP2r
 @orak00equ "ORAk 20 "#00 20 "EQU $1
 @rotswp "ROT 20 "SWP $1
 @rot2swp2 "ROT2 20 "SWP2 $1
+@ldakr-sthr "LDAkr 20 "STHr $1
+@ldak-sth "LDAk 20 "STH $1
 
 (
 @|rules )


@@ 523,6 525,8 @@ JMP2r
 	"#10   $1 "SFT2   $1 :dup2add2
 	"JSR2  $1 "JMP2r  $1 :jmp2
 	"JSR   $1 "JMP2r  $1 :jmp
+	"STH2kr $1 "LDA $1 :ldakr-sthr
+	"STH2k $1 "LDAr $1 :ldak-sth
 
 &end