diff --git a/PLASMA/src/plvm02.s b/PLASMA/src/plvm02.s
index e30f2f48..14950de3 100644
--- a/PLASMA/src/plvm02.s
+++ b/PLASMA/src/plvm02.s
@@ -1202,99 +1202,65 @@ DAWX	+INC_IP
 ;*
 ;* COMPARES
 ;*
-ISEQ	STY	IPY
-	LDY	#$00
-	LDA	ESTKL,X
+ISEQ	LDA	ESTKL,X
 	CMP	ESTKL+1,X
-	BNE	ISEQ1
+	BNE	ISFLS
 	LDA	ESTKH,X
 	CMP	ESTKH+1,X
-	BNE	ISEQ1
-	DEY
-ISEQ1 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
+	BNE	ISFLS
+ISTRU	LDA	#$FF
 	INX
-	LDY	IPY
+	STA	ESTKL,X
+	STA	ESTKH,X
 	JMP	NEXTOP
 ;
-ISNE	STY	IPY
-	LDY	#$FF
-	LDA	ESTKL,X
+ISNE	LDA	ESTKL,X
 	CMP	ESTKL+1,X
-	BNE	ISNE1
+	BNE	ISTRU
 	LDA	ESTKH,X
 	CMP	ESTKH+1,X
-	BNE	ISNE1
-	INY
-ISNE1 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
+	BNE	ISTRU
+ISFLS 	LDA	#$00
 	INX
-	LDY	IPY
+	STA	ESTKL,X
+	STA	ESTKH,X
 	JMP	NEXTOP
 ;
-ISGE	STY	IPY
-	LDY	#$00
-	LDA	ESTKL+1,X
+ISGE	LDA	ESTKL+1,X
 	CMP	ESTKL,X
 	LDA	ESTKH+1,X
 	SBC	ESTKH,X
 	BVC	ISGE1
 	EOR	#$80
-ISGE1 	BMI	ISGE2
-	DEY
-ISGE2 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
-	INX
-	LDY	IPY
-	JMP	NEXTOP
+ISGE1 	BPL	ISTRU
+	BMI	ISFLS
 ;
-ISGT	STY	IPY
-	LDY	#$00
-	LDA	ESTKL,X
+ISGT	LDA	ESTKL,X
 	CMP	ESTKL+1,X
 	LDA	ESTKH,X
 	SBC	ESTKH+1,X
 	BVC	ISGT1
 	EOR	#$80
-ISGT1 	BPL	ISGT2
-	DEY
-ISGT2 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
-	INX
-	LDY	IPY
-	JMP	NEXTOP
+ISGT1 	BMI	ISTRU
+	BPL	ISFLS
 ;
-ISLE	STY	IPY
-	LDY	#$00
-	LDA	ESTKL,X
+ISLE	LDA	ESTKL,X
 	CMP	ESTKL+1,X
 	LDA	ESTKH,X
 	SBC	ESTKH+1,X
 	BVC	ISLE1
 	EOR	#$80
-ISLE1 	BMI	ISLE2
-	DEY
-ISLE2 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
-	INX
-	LDY	IPY
-	JMP	NEXTOP
+ISLE1 	BPL	ISTRU
+	BMI	ISFLS
 ;
-ISLT	STY	IPY
-	LDY	#$00
-	LDA	ESTKL+1,X
+ISLT	LDA	ESTKL+1,X
 	CMP	ESTKL,X
 	LDA	ESTKH+1,X
 	SBC	ESTKH,X
 	BVC	ISLT1
 	EOR	#$80
-ISLT1 	BPL	ISLT2
-	DEY
-ISLT2 	STY	ESTKL+1,X
-	STY	ESTKH+1,X
-	INX
-	LDY	IPY
-	JMP	NEXTOP
+ISLT1 	BMI	ISTRU
+	BPL	ISFLS
 ;*
 ;* BRANCHES
 ;*