uxn

commit 9415c4e04aaff6ef9a4cfa1d4a3b03c4b9bfa7a1
parent 1f5086a26083972e26fdef3455a1d917688abacd
Author: Andrew Alderwick <andrew@alderwick.co.uk>
Date:   Sun, 28 Nov 2021 17:45:02 +0000

(asma) Correct relative offsets

Diffstat:
M
projects/library/asma.tal
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/projects/library/asma.tal b/projects/library/asma.tal
@@ -466,10 +466,10 @@
 @asma-write-lit ( byte -- )
 	;asma/lit LDA2 ,&present JCN
 	POP #01 ;asma/lit STA2
-	;asma/addr LDA2k INC2 SWP2 STA2
+	;asma/addr LDA2k INC2 INC2 SWP2 STA2
 	JMP2r
 	&present
-	;asma/addr LDA2k #0001 SUB2 SWP2 STA2
+	;asma/addr LDA2k #0002 SUB2 SWP2 STA2
 	LIT LIT2 ,asma-write-byte/raw JSR
 	,asma-write-byte/raw JSR
 	,asma-write-byte/raw JSR
@@ -480,7 +480,7 @@
 	;asma/lit LDA2 ,&present JCN
 	POP JMP2r
 	&present
-	;asma/addr LDA2k #0001 SUB2 SWP2 STA2
+	;asma/addr LDA2k #0002 SUB2 SWP2 STA2
 	LIT LIT ,asma-write-byte/raw JSR
 	,asma-write-byte/raw JSR
 	#0000 ;asma/lit STA2
@@ -702,7 +702,9 @@
 	JMP2r
 
 @asma-literal-rel-addr
-	,asma-addr-helper JSR ;asma/addr LDA2 SUB2 #0003 SUB2
+	,asma-addr-helper JSR
+	;asma/addr LDA2 SUB2
+	#0003 ;asma/lit-present LDA SUB SUB2
 
 	DUP2 #0080 LTH2 STH
 	DUP2 #ff7f GTH2 STHr ORA ,&in-bounds JCN