2 files changed, 11 insertions(+), 11 deletions(-)

M etc/example.tal
M src/uxnlin.tal

@@ 49,6 49,7 @@
 	#0001 STH2
 	.test STH
 	;test STH2
+	ADD STH ( should not trigger error )
 
 	( literal sequence )
 	#12 #12

@@ 43,7 43,7 @@ BRK
 		,&s JMP &eof
 	;print-summary ( .. )
 
-JMP2r
+JMP2
 
 @walk ( char -- )
 


@@ 234,14 234,13 @@ JMP2r
 				OVR2 ;is-litshort JSR2 ,&pass JCN
 				&no-short
 		&no-lit
-	( ref byte )
-	LDAk LIT ". NEQ ,&no-ref JCN
-		INC2k LDA LIT "_ EQU ,&pass JCN
-		&no-ref
-	( ref short )
-	LDAk LIT "; NEQ ,&no-ref2 JCN
-		INC2k LDA LIT "_ EQU ,&pass JCN
-		&no-ref2
+	( references )
+	( a ) OVR2 LDA LIT ". EQU STH
+	( b ) LDA2k LIT2 "._ EQU2 STHr
+		AND ,&pass JCN
+	( a ) OVR2 LDA LIT ". EQU STH
+	( b ) LDA2k LIT2 ";_ EQU2 STHr
+		AND ,&pass JCN
 
 	POP2 POP2 #00
 


@@ 433,8 432,8 @@ JMP2r
 	"AND   $1 "JMP    $1 :unsafe
 	"ORA   $1 "JMP    $1 :unsafe
 	"EOR   $1 "JMP    $1 :unsafe
-	";_    $1 "STH2   $1 :unstashed
-	"._    $1 "STH    $1 :unstashed
+	";__   $1 "STH2   $1 :unstashed
+	".__   $1 "STH    $1 :unstashed
 	"#__   $1 "STH    $1 :unstashed
 	"#____ $1 "STH2   $1 :unstashed
 	"#__   $1 "#__    $1 :combine