1 files changed, 3 insertions(+), 6 deletions(-)

M src/drifblim.tal

@@ 190,14 190,11 @@
 	get-ref LDA2 .head LDZ2 INC2 INC2 SUB2
 
 @<write-short> ( short* -- )
-	.head LDZ2 INC2k INC2 .head STZ2
-	;memory/result ADD2 STA2
-	JMP2r
+	SWP <write>
 
 @<write> ( byte -- )
-	.head LDZ2 INC2k .head STZ2
-	;memory/result ADD2 STA
-	JMP2r
+	.head LDZ2 INC2k STH2 ;memory/result ADD2 STA
+	STH2r
 
 @<set-head> ( v* -- )
 	.head STZ2