From 3b3a469e2a5ad8a51595581b2476addc4b907cf8 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@gmail.com>
Date: Mon, 16 Jun 2014 10:31:50 -0700
Subject: [PATCH] Move DROP to ZP

---
 PLASMA/src/plvm02.s     | 14 ++++++--------
 PLASMA/src/plvm02zp.inc | 22 ++++++++++++----------
 2 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/PLASMA/src/plvm02.s b/PLASMA/src/plvm02.s
index 8a4c9413..de9bf721 100644
--- a/PLASMA/src/plvm02.s
+++ b/PLASMA/src/plvm02.s
@@ -39,9 +39,6 @@ ALTRDON	=	$C003
 ALTWROFF=	$C004
 ALTWRON	=	$C005
 	!SOURCE	"plvm02zp.inc"
-NEXTOP	=	$F0
-OPIDX	=	NEXTOP+8
-OPPAGE	=	OPIDX+1
 STRBUF	=	$0280
 INTERP	=	$03D0
 ;*
@@ -256,9 +253,9 @@ CMDEXEC	=	*
 ;
 ; INSTALL PAGE 0 FETCHOP ROUTINE
 ;
-	LDY	#$0D
+	LDY	#$0E
 - 	LDA	PAGE0,Y
-	STA	NEXTOP,Y
+	STA	DROP,Y
 	DEY
 	BPL	-
 ;
@@ -319,11 +316,12 @@ DISABLE80 !BYTE	21, 13, '1', 26, 13
 FAILMSG !BYTE	39
 	!TEXT	"MISSING CMD. PRESS ANY KEY TO RESET..."
 PAGE0	=	*
-       	!PSEUDOPC	$00F0 {
+       	!PSEUDOPC	$00EF {
 ;*
 ;* INTERP BYTECODE INNER LOOP
 ;*
-	INY
+	INX			; DROP @ $EF
+	INY			; NEXTOP @ $F0
 	BEQ	NEXTOPH
 FETCHOP LDA	(IP),Y
 	STA	OPIDX
@@ -371,7 +369,7 @@ ADD 	LDA	ESTKL,X
 	LDA	ESTKH,X
 	ADC	ESTKH+1,X
 	STA	ESTKH+1,X
-DROP	INX
+	INX
 	JMP	NEXTOP
 ;*
 ;* SUB TOS FROM TOS-1
diff --git a/PLASMA/src/plvm02zp.inc b/PLASMA/src/plvm02zp.inc
index d8f38318..9667f317 100644
--- a/PLASMA/src/plvm02zp.inc
+++ b/PLASMA/src/plvm02zp.inc
@@ -3,6 +3,12 @@
 ;* VM ZERO PAGE LOCATIONS
 ;*
 ;**********************************************************
+SRC	=	$06
+SRCL	=	SRC
+SRCH	=	SRC+1
+DST	=	SRC+2
+DSTL	=	DST
+DSTH	=	DST+1
 ESTKSZ	=	$20
 ESTK	=	$C0
 ESTKL	=	ESTK
@@ -18,15 +24,11 @@ IPY	=	IP+2
 TMP	=	IP+3
 TMPL	=	TMP
 TMPH	=	TMP+1
-TMPX	=	TMP+2
 NPARMS	=	TMPL
 FRMSZ	=	TMPH
-DVSIGN	=	TMPX
-ESP     =       TMPX
-TICTOC	=	TMP+3
-SRC	=	$06
-SRCL	=	SRC
-SRCH	=	SRC+1
-DST	=	SRC+2
-DSTL	=	DST
-DSTH	=	DST+1
+DVSIGN	=	TMP+2
+ESP     =       TMP+2
+DROP	=	$EF
+NEXTOP	=	$F0
+OPIDX	=	NEXTOP+8
+OPPAGE	=	OPIDX+1