diff --git a/src/vmsrc/a1cmd.pla b/src/vmsrc/a1cmd.pla
index dcb958a..84f49f2 100644
--- a/src/vmsrc/a1cmd.pla
+++ b/src/vmsrc/a1cmd.pla
@@ -168,21 +168,20 @@ asm memset
 	STA     DSTH
 	INC     ESTKL+1,X
 	INC     ESTKH+1,X
--	CLC
-SETMLP	DEC     ESTKL+1,X
+SETMLPL	CLC
+	LDA     ESTKL,X
+SETMLPH	DEC     ESTKL+1,X
 	BNE     +
 	DEC     ESTKH+1,X
 	BEQ     SETMEX
-+	LDA     ESTKL,X
-	BCC	+
-	LDA     ESTKH,X
 +	STA     (DST),Y
 	INY
 	BNE	+
 	INC     DSTH
-+	BCS	-
++	BCS	SETMLPL
 	SEC
-	BCS	SETMLP
+	LDA     ESTKH,X
+	BCS	SETMLPH
 SETMEX	INX
 	INX
 	RTS
diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla
index f6ac27a..cbe71e9 100644
--- a/src/vmsrc/cmd.pla
+++ b/src/vmsrc/cmd.pla
@@ -193,21 +193,20 @@ asm memset
 	STA     DSTH
 	INC     ESTKL+1,X
 	INC     ESTKH+1,X
--	CLC
-SETMLP	DEC     ESTKL+1,X
+SETMLPL	CLC
+	LDA     ESTKL,X
+SETMLPH	DEC     ESTKL+1,X
 	BNE     +
 	DEC     ESTKH+1,X
 	BEQ     SETMEX
-+	LDA     ESTKL,X
-	BCC	+
-	LDA     ESTKH,X
 +	STA     (DST),Y
 	INY
 	BNE	+
 	INC     DSTH
-+	BCS	-
++	BCS	SETMLPL
 	SEC
-	BCS	SETMLP
+	LDA     ESTKH,X
+	BCS	SETMLPH
 SETMEX	INX
 	INX
 	RTS
diff --git a/src/vmsrc/soscmd.pla b/src/vmsrc/soscmd.pla
index a56d905..39e21f2 100644
--- a/src/vmsrc/soscmd.pla
+++ b/src/vmsrc/soscmd.pla
@@ -169,21 +169,20 @@ asm memset
 	STA     DSTH
 	INC     ESTKL+1,X
 	INC     ESTKH+1,X
--	CLC
-SETMLP	DEC     ESTKL+1,X
+SETMLPL	CLC
+	LDA     ESTKL,X
+SETMLPH	DEC     ESTKL+1,X
 	BNE     +
 	DEC     ESTKH+1,X
 	BEQ     SETMEX
-+	LDA     ESTKL,X
-	BCC	+
-	LDA     ESTKH,X
 +	STA     (DST),Y
 	INY
 	BNE	+
 	INC     DSTH
-+	BCS	-
++	BCS	SETMLPL
 	SEC
-	BCS	SETMLP
+	LDA     ESTKH,X
+	BCS	SETMLPH
 SETMEX	INX
 	INX
 	RTS