diff --git a/src/libsrc/conio.pla b/src/libsrc/conio.pla
index f733ea4..861667a 100644
--- a/src/libsrc/conio.pla
+++ b/src/libsrc/conio.pla
@@ -118,6 +118,7 @@ asm grplot
 	STY	IPY
 	LDA	ESTKL,X
 	AND	#$FE
+	CMP	ESTKL,X
 	TAY
 	LDA	(GRSCRN),Y
 	STA	DSTL
@@ -125,9 +126,8 @@ asm grplot
 	LDA	(GRSCRN),Y
 	STA	DSTH
 	LDA	#$FF
-	LSR	ESTKL,X
 	ADC	#$00
-	EOR	#$F0
+	EOR	#$0F
 	TAY
 	AND	GRCLR
 	STA	TMPL
diff --git a/src/samplesrc/rod.pla b/src/samplesrc/rod.pla
index 1b6b0bc..a7d11e1 100644
--- a/src/samplesrc/rod.pla
+++ b/src/samplesrc/rod.pla
@@ -104,6 +104,7 @@ asm grplot
 	STY	IPY
 	LDA	ESTKL,X
 	AND	#$FE
+	CMP	ESTKL,X
 	TAY
 	LDA	(GRSCRN),Y
 	STA	DSTL
@@ -111,9 +112,8 @@ asm grplot
 	LDA	(GRSCRN),Y
 	STA	DSTH
 	LDA	#$FF
-	LSR	ESTKL,X
 	ADC	#$00
-	EOR	#$F0
+	EOR	#$0F
 	TAY
 	AND	GRCLR
 	STA	TMPL
diff --git a/src/vmsrc/a1cmd.pla b/src/vmsrc/a1cmd.pla
index 63977c8..30ebe15 100644
--- a/src/vmsrc/a1cmd.pla
+++ b/src/vmsrc/a1cmd.pla
@@ -304,7 +304,6 @@ asm uword_isge
 	RTS
 end
 asm uword_isle
-	LDY	#$00
 	LDA	ESTKL,X
 	CMP	ESTKL+1,X
 	LDA	ESTKH,X
@@ -312,8 +311,8 @@ asm uword_isle
 	LDA	#$FF
 	ADC	#$00
 	EOR	#$FF
- 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
+ 	STA	ESTKL+1,X
+	STA	ESTKH+1,X
 	INX
 	RTS
 end
diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla
index 6ab3d88..e4b19a5 100644
--- a/src/vmsrc/cmd.pla
+++ b/src/vmsrc/cmd.pla
@@ -445,7 +445,6 @@ asm rdstr
 	RTS
 end
 asm uword_isge
-	LDY	#$00
 	LDA	ESTKL+1,X
 	CMP	ESTKL,X
 	LDA	ESTKH+1,X
@@ -453,13 +452,12 @@ asm uword_isge
  	LDA	#$FF
 	ADC	#$00
 	EOR	#$FF
- 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
+ 	STA	ESTKL+1,X
+	STA	ESTKH+1,X
 	INX
 	RTS
 end
 asm uword_isle
-	LDY	#$00
 	LDA	ESTKL,X
 	CMP	ESTKL+1,X
 	LDA	ESTKH,X
@@ -467,8 +465,8 @@ asm uword_isle
  	LDA	#$FF
 	ADC	#$00
 	EOR	#$FF
- 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
+ 	STA	ESTKL+1,X
+	STA	ESTKH+1,X
 	INX
 	RTS
 end
diff --git a/src/vmsrc/soscmd.pla b/src/vmsrc/soscmd.pla
index 9c1184e..a179240 100644
--- a/src/vmsrc/soscmd.pla
+++ b/src/vmsrc/soscmd.pla
@@ -357,7 +357,6 @@ end
 // Unsigned word comparisons.
 //
 asm uword_isge
-	LDY	#$00
 	LDA	ESTKL+1,X
 	CMP	ESTKL,X
 	LDA	ESTKH+1,X
@@ -365,13 +364,12 @@ asm uword_isge
  	LDA	#$FF
 	ADC	#$00
 	EOR	#$FF
- 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
+ 	STA	ESTKL+1,X
+	STA	ESTKH+1,X
 	INX
 	RTS
 end
 asm uword_isle
-	LDY	#$00
 	LDA	ESTKL,X
 	CMP	ESTKL+1,X
 	LDA	ESTKH,X
@@ -379,8 +377,8 @@ asm uword_isle
  	LDA	#$FF
 	ADC	#$00
 	EOR	#$FF
- 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
+ 	STA	ESTKL+1,X
+	STA	ESTKH+1,X
 	INX
 	RTS
 end