6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-02-11 01:31:03 +00:00
Code Issues Projects Releases Wiki Activity

Save a few more bytes in the VM

Browse Source
This commit is contained in:
David Schmenk 2018-03-13 16:02:08 -07:00
parent d515ab5969
commit c3f9ee0911
5 changed files with 48 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/vmsrc/apple/plvm01.s
View File

@ -711,7 +711,6 @@ ISTRU LDA #$FF
STA ESTKL+1,X
STA ESTKH+1,X
JMP DROP
;
ISNE LDA ESTKL,X
CMP ESTKL+1,X
BNE ISTRU
@ -722,7 +721,6 @@ ISFLS LDA #$00
STA ESTKL+1,X
STA ESTKH+1,X
JMP DROP
;
ISGE LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
@ -730,9 +728,16 @@ ISGE LDA ESTKL+1,X
BVS +
BPL ISTRU
BMI ISFLS
+ BPL ISFLS
+
- BPL ISFLS
BMI ISTRU
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVS -
BPL ISTRU
BMI ISFLS
ISGT LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
@ -740,28 +745,16 @@ ISGT LDA ESTKL,X
BVS +
BMI ISTRU
BPL ISFLS
+ BMI ISFLS
+
- BMI ISFLS
BPL ISTRU
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVS +
BPL ISTRU
BMI ISFLS
+ BPL ISFLS
BMI ISTRU
;
ISLT LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVS +
BVS -
BMI ISTRU
BPL ISFLS
+ BMI ISFLS
BPL ISTRU
;*
;* BRANCHES
;*

37
src/vmsrc/apple/plvm02.s
View File

@ -817,7 +817,6 @@ CS DEX
LDA (IP),Y
TAY
JMP NEXTOP
;
CSX DEX
;INY ;+INC_IP
TYA ; NORMALIZE IP
@ -911,7 +910,6 @@ LW LDA ESTKL,X
LDA (ESTKH-1,X)
STA ESTKH,X
JMP NEXTOP
;
LBX LDA ESTKL,X
STA ESTKH-1,X
STA ALTRDOFF
@ -984,7 +982,6 @@ LLW INY ;+INC_IP
STA ESTKH,X
LDY IPY
JMP NEXTOP
;
LLBX INY ;+INC_IP
LDA (IP),Y
STY IPY
@ -1043,7 +1040,6 @@ LAW INY ;+INC_IP
STA ESTKH,X
LDY IPY
JMP NEXTOP
;
LABX INY ;+INC_IP
LDA (IP),Y
STA ESTKH-2,X
@ -1233,7 +1229,6 @@ ISTRU LDA #$FF
STA ESTKL+1,X
STA ESTKH+1,X
JMP DROP
;
ISNE LDA ESTKL,X
CMP ESTKL+1,X
BNE ISTRU
@ -1244,7 +1239,6 @@ ISFLS LDA #$00
STA ESTKL+1,X
STA ESTKH+1,X
JMP DROP
;
ISGE LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
@ -1252,9 +1246,16 @@ ISGE LDA ESTKL+1,X
BVS +
BPL ISTRU
BMI ISFLS
+ BPL ISFLS
+
- BPL ISFLS
BMI ISTRU
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVS -
BPL ISTRU
BMI ISFLS
ISGT LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
@ -1262,28 +1263,16 @@ ISGT LDA ESTKL,X
BVS +
BMI ISTRU
BPL ISFLS
+ BMI ISFLS
+
- BMI ISFLS
BPL ISTRU
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVS +
BPL ISTRU
BMI ISFLS
+ BPL ISFLS
BMI ISTRU
;
ISLT LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVS +
BVS -
BMI ISTRU
BPL ISFLS
+ BMI ISFLS
BPL ISTRU
;*
;* BRANCHES
;*
@ -1470,7 +1459,6 @@ CALL INY ;+INC_IP
STA OPPAGE
LDY #$01
JMP FETCHOP
;
CALLX INY ;+INC_IP
LDA (IP),Y
STA TMPL
@ -1526,7 +1514,6 @@ ICAL LDA ESTKL,X
STA OPPAGE
LDY #$01
JMP FETCHOP
;
ICALX LDA ESTKL,X
STA TMPL
LDA ESTKH,X

30
src/vmsrc/apple/plvm03.s
View File

@ -886,7 +886,6 @@ ISFLS LDA #$00
STA ESTKL+1,X
STA ESTKH+1,X
JMP DROP
;
ISGE LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
@ -894,9 +893,16 @@ ISGE LDA ESTKL+1,X
BVS +
BPL ISTRU
BMI ISFLS
+ BPL ISFLS
+
- BPL ISFLS
BMI ISTRU
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVS -
BPL ISTRU
BMI ISFLS
ISGT LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
@ -904,28 +910,16 @@ ISGT LDA ESTKL,X
BVS +
BMI ISTRU
BPL ISFLS
+ BMI ISFLS
+
- BMI ISFLS
BPL ISTRU
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVS +
BPL ISTRU
BMI ISFLS
+ BPL ISFLS
BMI ISTRU
;
ISLT LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVS +
BVS -
BMI ISTRU
BPL ISFLS
+ BMI ISFLS
BPL ISTRU
;*
;* BRANCHES
;*

10
src/vmsrc/apple/plvm802.s
View File

@ -812,7 +812,6 @@ CS ;INY ;+INC_IP
LDA (IP)
TAY
JMP NEXTOP
;
CSX ;INY ;+INC_IP
TYA ; NORMALIZE IP
SEC
@ -885,7 +884,6 @@ LW TYX
STA TOS,S
TXY
JMP NEXTOP
;
LBX TYX
LDY #$00
TYA ; QUICKY CLEAR OUT MSB
@ -941,7 +939,6 @@ LLW INY ;+INC_IP
PHA
TXY
JMP NEXTOP
;
LLBX INY ;+INC_IP
TYX
LDA (IP),Y
@ -983,7 +980,6 @@ LAW INY ;+INC_IP
PHA
INY ;+INC_IP
JMP NEXTOP
;
LABX INY ;+INC_IP
LDA (IP),Y
STA TMP
@ -1123,14 +1119,12 @@ ISEQ PLA
ISTRU LDA #$FFFF
STA TOS,S
JMP NEXTOP
;
ISNE PLA
CMP TOS,S
BNE ISTRU
ISFLS LDA #$0000
STA TOS,S
JMP NEXTOP
;
ISGE PLA
SEC
SBC TOS,S
@ -1141,7 +1135,6 @@ ISGE PLA
+ BMI ISFLS
BEQ ISFLS
BPL ISTRU
;
ISGT PLA
SEC
SBC TOS,S
@ -1150,7 +1143,6 @@ ISGT PLA
BPL ISFLS
+ BMI ISFLS
BPL ISTRU
;
ISLE PLA
SEC
SBC TOS,S
@ -1159,7 +1151,6 @@ ISLE PLA
BMI ISFLS
+ BPL ISFLS
BMI ISTRU
;
ISLT PLA
SEC
SBC TOS,S
@ -1627,7 +1618,6 @@ LEAVEX INY ;+INC_IP
PLP
RTS
!AL
;
RETX STX ALTRDOFF
RET SEC ; SWITCH TO EMULATION MODE
XCE

31
src/vmsrc/c64/plvmc64.s
View File

@ -711,7 +711,6 @@ ISTRU LDA #$FF
STA ESTKL+1,X
STA ESTKH+1,X
JMP DROP
;
ISNE LDA ESTKL,X
CMP ESTKL+1,X
BNE ISTRU
@ -722,7 +721,6 @@ ISFLS LDA #$00
STA ESTKL+1,X
STA ESTKH+1,X
JMP DROP
;
ISGE LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
@ -730,9 +728,16 @@ ISGE LDA ESTKL+1,X
BVS +
BPL ISTRU
BMI ISFLS
+ BPL ISFLS
+
- BPL ISFLS
BMI ISTRU
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVS -
BPL ISTRU
BMI ISFLS
ISGT LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
@ -740,28 +745,16 @@ ISGT LDA ESTKL,X
BVS +
BMI ISTRU
BPL ISFLS
+ BMI ISFLS
+
- BMI ISFLS
BPL ISTRU
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVS +
BPL ISTRU
BMI ISFLS
+ BPL ISFLS
BMI ISTRU
;
ISLT LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVS +
BVS -
BMI ISTRU
BPL ISFLS
+ BMI ISFLS
BPL ISTRU
;*
;* BRANCHES
;*