1 files changed, 5 insertions(+), 7 deletions(-)

M src/drifblim.tal

@@ 438,7 438,7 @@ JMP2r
 JMP2r
 
 @sput ( chr str* -- )
-	scap INC2k #00 ROT ROT STA STA
+	scap ROT #00 SWP2 STA2
 JMP2r
 
 @slen ( str* -- len* )


@@ 448,19 448,17 @@ JMP2r
 @scat ( src* dst* -+ )
 	scap
 @scpy ( src* dst* -- )
-	OVR2 LDA ?&e POP2 POP2 JMP2r
-	&e ( src* dst* ~- )
-		STH2
+	STH2
 	&w ( -- )
-		LDAk STH2kr STA INC2r INC2 LDAk ?&w
-		POP2 #00 STH2r STA
+		LDAk #00 STH2kr STA2 INC2r INC2 LDAk ?&w
+	POP2 POP2r
 JMP2r
 
 @sclr ( str* -- )
 	#00 ROT ROT
 	&w ( -- )
 		STAk INC2 LDAk ?&w
-	POP2 POP
+	STA
 JMP2r
 
 @skey ( key buf -- proc )