diff --git a/src/vmsrc/plvm01.s b/src/vmsrc/plvm01.s
index 976e4ff..f1858e6 100644
--- a/src/vmsrc/plvm01.s
+++ b/src/vmsrc/plvm01.s
@@ -26,10 +26,13 @@ SEGBEGIN JMP	VMINIT
 ;* SYSTEM INTERPRETER ENTRYPOINT
 ;*
 INTERP	PLA
+	CLC
+	ADC	#$01
         STA     IPL
         PLA
+	ADC	#$00
         STA     IPH
-	LDY	#$01
+	LDY	#$00
 	JMP	FETCHOP
 ;*
 ;* ENTER INTO USER BYTECODE INTERPRETER
@@ -852,7 +855,6 @@ ENTER	INY
 	BCS	+
 	DEC	IFPH
 +	INY
-	STY	IPY
 	LDA	(IP),Y
 	ASL
 	TAY
@@ -865,7 +867,7 @@ ENTER	INY
 	DEY
 	STA	(IFP),Y
 	BNE	-
-+	LDY	IPY
++	LDY	#$02
 	JMP	NEXTOP
 ;*
 ;* LEAVE FUNCTION
diff --git a/src/vmsrc/plvm02.s b/src/vmsrc/plvm02.s
index ce69b1e..efaf89e 100644
--- a/src/vmsrc/plvm02.s
+++ b/src/vmsrc/plvm02.s
@@ -180,10 +180,13 @@ OPTBL 	!WORD	ZERO,ADD,SUB,MUL,DIV,MOD,INCR,DECR		; 00 02 04 06 08 0A 0C 0E
 ;* ENTER INTO BYTECODE INTERPRETER
 ;*
 DINTRP	PLA
+	CLC
+	ADC	#$01
         STA     IPL
         PLA
+	ADC	#$00
         STA     IPH
-	LDY	#$01
+	LDY	#$00
 	LDA	#>OPTBL
 	STA	OPPAGE
 	JMP	FETCHOP
@@ -1451,7 +1454,6 @@ ENTER 	INY
 	BCS	+
 	DEC	IFPH
 +	INY
-	STY	IPY
 	LDA	(IP),Y
 	ASL
 	TAY
@@ -1464,7 +1466,7 @@ ENTER 	INY
 	DEY
 	STA	(IFP),Y
 	BNE	-
-+	LDY	IPY
++	LDY	#$02
 	JMP	NEXTOP
 ;
 ENTERX	INY
diff --git a/src/vmsrc/plvm03.s b/src/vmsrc/plvm03.s
index 586a505..95e3eef 100644
--- a/src/vmsrc/plvm03.s
+++ b/src/vmsrc/plvm03.s
@@ -109,12 +109,14 @@ NEXTOPH	INC	IPH
 ;* SYSTEM INTERPRETER ENTRYPOINT
 ;*
 INTERP	PLA
+	CLC
+	ADC	#$01
         STA     IPL
         PLA
+	ADC	#$00
         STA     IPH
 	LDY	#$00
 	STY	IPX
-	INY
 	JMP	FETCHOP
 ;*
 ;* ENTER INTO USER BYTECODE INTERPRETER
@@ -951,7 +953,6 @@ ENTER 	INY
 	BCS	+
 	DEC	IFPH
 +	INY
-	STY	IPY
 	LDA	(IP),Y
 	ASL
 	TAY
@@ -964,7 +965,7 @@ ENTER 	INY
 	DEY
 	STA	(IFP),Y
 	BNE	-
-+	LDY	IPY
++	LDY	#$02
 	JMP	NEXTOP
 ;*
 ;* LEAVE FUNCTION