mirror of
https://github.com/badvision/lawless-legends.git
synced 2024-11-18 23:07:53 +00:00
Move DROP to ZP
This commit is contained in:
parent
39e2f8a4e8
commit
3b3a469e2a
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user