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
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

View File

@ -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