uxn

commit 0b134ff6b868a9772c8562ca60d5b852abb18f74
parent 02696fa4379d10dd0afad338dda38211f326d7d9
Author: Andrew Alderwick <andrew@alderwick.co.uk>
Date:   Wed,  8 Jun 2022 00:53:14 +0100

(asma) Minor optimisations

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

1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/projects/library/asma.tal b/projects/library/asma.tal
@@ -202,10 +202,10 @@
 @asma-init-next-pass ( -- )
 	;asma/pass LDA INC ;asma/pass STA
 	;asma-write-buffer ;asma-output/ptr STA2
-	#0000 DUP2
+	#0100 DUP DUP2 ( 0100 00 0000 )
 		;asma/addr STA2
 		;asma/state STA
-	#01 SWP ( 0100 ) ;asma/written-addr STA2
+		;asma/written-addr STA2
 	;&preamble-end ;&preamble SUB2k ;asma-assemble-chunk JSR2 POP2 POP2
 	JMP2r
 
@@ -511,11 +511,6 @@
 	POP2 #01
 	JMP2r
 
-@asma-write-short ( short -- )
-	SWP
-	,asma-write-byte JSR
-	,asma-write-byte JMP ( tail call )
-
 @asma-write-lit ( byte -- )
 	;asma/lit LDA2 ,&present JCN
 	,asma-flush-held JSR
@@ -553,6 +548,11 @@
 	#00 ;asma/jsr STA
 	JMP2r
 
+@asma-write-short ( short -- )
+	SWP
+	,asma-write-byte JSR
+	( fall through )
+
 @asma-write-byte ( byte -- )
 	,asma-flush-held JSR
 	&raw