@@ -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