Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-07-04 09:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/badvision/lawless-legends

Browse Source
This commit is contained in:
Martin Haye 2014-07-02 15:50:07 -07:00
commit 5334bca39c
1 changed files with 33 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
PLASMA/src/plvm02.s
View File

@ -1440,82 +1440,74 @@ JMPTMP JMP (TMP)
;* ENTER FUNCTION WITH FRAME SIZE AND PARAM COUNT ;* ENTER FUNCTION WITH FRAME SIZE AND PARAM COUNT
;* ;*
ENTER +INC_IP ENTER +INC_IP
LDA (IP),Y
STA FRMSZ
+INC_IP
LDA (IP),Y
STA NPARMS
STY IPY
LDA IFPL LDA IFPL
PHA PHA
SEC SEC
SBC FRMSZ SBC (IP),Y
STA IFPL STA IFPL
LDA IFPH LDA IFPH
PHA PHA
SBC #$00 SBC #$00
STA IFPH STA IFPH
LDY #$01 +INC_IP
PLA STY IPY
STA (IFP),Y LDA (IP),Y
DEY BEQ +
PLA
STA (IFP),Y
LDA NPARMS
BEQ ENTER5
ASL ASL
TAY TAY
INY INY
ENTER4 LDA ESTKH,X - LDA ESTKH,X
STA (IFP),Y STA (IFP),Y
DEY DEY
LDA ESTKL,X LDA ESTKL,X
STA (IFP),Y STA (IFP),Y
DEY
INX INX
DEC NPARMS DEY
BNE ENTER4 CPY #$01
ENTER5 LDY IPY BNE -
+ LDY #$01
PLA
STA (IFP),Y
DEY
PLA
STA (IFP),Y
LDY IPY
JMP NEXTOP JMP NEXTOP
; ;
ENTERX +INC_IP ENTERX +INC_IP
LDA (IP),Y
STA FRMSZ
+INC_IP
LDA (IP),Y
STA NPARMS
STY IPY
STA ALTRDOFF
LDA IFPL LDA IFPL
PHA PHA
SEC SEC
SBC FRMSZ SBC (IP),Y
STA IFPL STA IFPL
LDA IFPH LDA IFPH
PHA PHA
SBC #$00 SBC #$00
STA IFPH STA IFPH
LDY #$01 +INC_IP
PLA STY IPY
STA (IFP),Y LDA (IP),Y
DEY STA ALTRDOFF
PLA BEQ +
STA (IFP),Y
LDA NPARMS
BEQ ENTERX5
ASL ASL
TAY TAY
INY INY
ENTERX4 LDA ESTKH,X - LDA ESTKH,X
STA (IFP),Y STA (IFP),Y
DEY DEY
LDA ESTKL,X LDA ESTKL,X
STA (IFP),Y STA (IFP),Y
DEY
INX INX
DEC NPARMS DEY
BNE ENTERX4 CPY #$01
ENTERX5 STA ALTRDON BNE -
+ LDY #$01
PLA
STA (IFP),Y
DEY
PLA
STA (IFP),Y
STA ALTRDON
LDY IPY LDY IPY
JMP NEXTOP JMP NEXTOP
;* ;*