Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2025-02-20 21:29:13 +00:00
Code Issues Projects Releases Wiki Activity

VM updates for 1.0

Browse Source
This commit is contained in:
dschmenk 2017-06-04 07:25:20 -07:00
parent 17c94cff7e
commit 640b305401
1 changed files with 15 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
Platform/Apple/tools/PLASMA/src/plvm02.s
View File

@ -160,7 +160,7 @@ VMCORE = *
OPTBL !WORD ZERO,ADD,SUB,MUL,DIV,MOD,INCR,DECR ; 00 02 04 06 08 0A 0C 0E
!WORD NEG,COMP,BAND,IOR,XOR,SHL,SHR,IDXW ; 10 12 14 16 18 1A 1C 1E
!WORD LNOT,LOR,LAND,LA,LLA,CB,CW,CS ; 20 22 24 26 28 2A 2C 2E
!WORD DROP,DUP,PUSH,PULL,BRGT,BRLT,BREQ,BRNE ; 30 32 34 36 38 3A 3C 3E
!WORD DROP,DUP,PUSHEP,PULLEP,BRGT,BRLT,BREQ,BRNE ; 30 32 34 36 38 3A 3C 3E
!WORD ISEQ,ISNE,ISGT,ISLT,ISGE,ISLE,BRFLS,BRTRU ; 40 42 44 46 48 4A 4C 4E
!WORD BRNCH,IBRNCH,CALL,ICAL,ENTER,LEAVE,RET,NEXTOP ; 50 52 54 56 58 5A 5C 5E
!WORD LB,LW,LLB,LLW,LAB,LAW,DLB,DLW ; 60 62 64 66 68 6A 6C 6E
@ -174,7 +174,7 @@ OPTBL !WORD ZERO,ADD,SUB,MUL,DIV,MOD,INCR,DECR ; 00 02 04 06 08 0A 0C 0E
OPXTBL !WORD ZERO,ADD,SUB,MUL,DIV,MOD,INCR,DECR ; 00 02 04 06 08 0A 0C 0E
!WORD NEG,COMP,BAND,IOR,XOR,SHL,SHR,IDXW ; 10 12 14 16 18 1A 1C 1E
!WORD LNOT,LOR,LAND,LA,LLA,CB,CW,CSX ; 20 22 24 26 28 2A 2C 2E
!WORD DROP,DUP,PUSH,PULL,BRGT,BRLT,BREQ,BRNE ; 30 32 34 36 38 3A 3C 3E
!WORD DROP,DUP,PUSHEP,PULLEP,BRGT,BRLT,BREQ,BRNE ; 30 32 34 36 38 3A 3C 3E
!WORD ISEQ,ISNE,ISGT,ISLT,ISGE,ISLE,BRFLS,BRTRU ; 40 42 44 46 48 4A 4C 4E
!WORD BRNCH,IBRNCH,CALLX,ICALX,ENTER,LEAVEX,RETX,NEXTOP; 50 52 54 56 58 5A 5C 5E
!WORD LBX,LWX,LLBX,LLWX,LABX,LAWX,DLB,DLW ; 60 62 64 66 68 6A 6C 6E
@ -564,23 +564,16 @@ DUP DEX
STA ESTKH,X
JMP NEXTOP
;*
;* PUSH FROM EVAL STACK TO CALL STACK
;* PUSH EVAL STACK POINTER TO CALL STACK
;*
PUSH LDA ESTKL,X
PUSHEP TXA
PHA
LDA ESTKH,X
PHA
; INX
; JMP NEXTOP
JMP DROP
JMP NEXTOP
;*
;* PULL FROM CALL STACK TO EVAL STACK
;* PULL EVAL STACK POINTER FROM CALL STACK
;*
PULL DEX
PLA
STA ESTKH,X
PLA
STA ESTKL,X
PULLEP PLA
TAX
JMP NEXTOP
;*
;* CONSTANT
@ -892,11 +885,11 @@ LAWX +INC_IP
;*
;* STORE VALUE TO ADDRESS
;*
SB LDA ESTKL+1,X
SB LDA ESTKL,X
STA TMPL
LDA ESTKH+1,X
LDA ESTKH,X
STA TMPH
LDA ESTKL,X
LDA ESTKL+1,X
STY IPY
BIT LCRWEN+LCBNK2
BIT LCRWEN+LCBNK2
@ -907,18 +900,18 @@ SB LDA ESTKL+1,X
; INX
; JMP NEXTOP
JMP DROP
SW LDA ESTKL+1,X
SW LDA ESTKL,X
STA TMPL
LDA ESTKH+1,X
LDA ESTKH,X
STA TMPH
STY IPY
BIT LCRWEN+LCBNK2
BIT LCRWEN+LCBNK2
LDY #$00
LDA ESTKL,X
LDA ESTKL+1,X
STA (TMP),Y
INY
LDA ESTKH,X
LDA ESTKH+1,X
STA (TMP),Y
LDY IPY
INX