Move DROP to ZP

This commit is contained in:
David Schmenk 2014-06-16 10:31:50 -07:00
parent 39e2f8a4e8
commit 3b3a469e2a
2 changed files with 18 additions and 18 deletions

View File

@ -39,9 +39,6 @@ ALTRDON = $C003
ALTWROFF= $C004 ALTWROFF= $C004
ALTWRON = $C005 ALTWRON = $C005
!SOURCE "plvm02zp.inc" !SOURCE "plvm02zp.inc"
NEXTOP = $F0
OPIDX = NEXTOP+8
OPPAGE = OPIDX+1
STRBUF = $0280 STRBUF = $0280
INTERP = $03D0 INTERP = $03D0
;* ;*
@ -256,9 +253,9 @@ CMDEXEC = *
; ;
; INSTALL PAGE 0 FETCHOP ROUTINE ; INSTALL PAGE 0 FETCHOP ROUTINE
; ;
LDY #$0D LDY #$0E
- LDA PAGE0,Y - LDA PAGE0,Y
STA NEXTOP,Y STA DROP,Y
DEY DEY
BPL - BPL -
; ;
@ -319,11 +316,12 @@ DISABLE80 !BYTE 21, 13, '1', 26, 13
FAILMSG !BYTE 39 FAILMSG !BYTE 39
!TEXT "MISSING CMD. PRESS ANY KEY TO RESET..." !TEXT "MISSING CMD. PRESS ANY KEY TO RESET..."
PAGE0 = * PAGE0 = *
!PSEUDOPC $00F0 { !PSEUDOPC $00EF {
;* ;*
;* INTERP BYTECODE INNER LOOP ;* INTERP BYTECODE INNER LOOP
;* ;*
INY INX ; DROP @ $EF
INY ; NEXTOP @ $F0
BEQ NEXTOPH BEQ NEXTOPH
FETCHOP LDA (IP),Y FETCHOP LDA (IP),Y
STA OPIDX STA OPIDX
@ -371,7 +369,7 @@ ADD LDA ESTKL,X
LDA ESTKH,X LDA ESTKH,X
ADC ESTKH+1,X ADC ESTKH+1,X
STA ESTKH+1,X STA ESTKH+1,X
DROP INX INX
JMP NEXTOP JMP NEXTOP
;* ;*
;* SUB TOS FROM TOS-1 ;* SUB TOS FROM TOS-1

View File

@ -3,6 +3,12 @@
;* VM ZERO PAGE LOCATIONS ;* VM ZERO PAGE LOCATIONS
;* ;*
;********************************************************** ;**********************************************************
SRC = $06
SRCL = SRC
SRCH = SRC+1
DST = SRC+2
DSTL = DST
DSTH = DST+1
ESTKSZ = $20 ESTKSZ = $20
ESTK = $C0 ESTK = $C0
ESTKL = ESTK ESTKL = ESTK
@ -18,15 +24,11 @@ IPY = IP+2
TMP = IP+3 TMP = IP+3
TMPL = TMP TMPL = TMP
TMPH = TMP+1 TMPH = TMP+1
TMPX = TMP+2
NPARMS = TMPL NPARMS = TMPL
FRMSZ = TMPH FRMSZ = TMPH
DVSIGN = TMPX DVSIGN = TMP+2
ESP = TMPX ESP = TMP+2
TICTOC = TMP+3 DROP = $EF
SRC = $06 NEXTOP = $F0
SRCL = SRC OPIDX = NEXTOP+8
SRCH = SRC+1 OPPAGE = OPIDX+1
DST = SRC+2
DSTL = DST
DSTH = DST+1