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
|
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
|
||||||
|
@ -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
|
|
||||||
|
Loading…
Reference in New Issue
Block a user