6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-12-24 00:31:19 +00:00
Code Issues Projects Releases Wiki Activity

Better test opcodes

Browse Source
This commit is contained in:
David Schmenk 2014-06-23 18:54:01 -07:00
parent b5d66c4b74
commit 77edb1bce9
3 changed files with 82 additions and 174 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
src/vmsrc/plvm01.s
View File

@ -666,94 +666,65 @@ DAW +INC_IP
;*
;* COMPARES
;*
ISEQ STY IPY
LDY #$00
LDA ESTKL,X
ISEQ LDA ESTKL,X
CMP ESTKL+1,X
BNE ISEQ1
BNE ISFLS
LDA ESTKH,X
CMP ESTKH+1,X
BNE ISEQ1
DEY
ISEQ1 STY ESTKL+1,X
STY ESTKH+1,X
BNE ISFLS
ISTRU LDA #$FF
INX
LDY IPY
STA ESTKL,X
STA ESTKH,X
JMP NEXTOP
ISNE STY IPY
LDY #$FF
LDA ESTKL,X
;
ISNE LDA ESTKL,X
CMP ESTKL+1,X
BNE ISNE1
BNE ISTRU
LDA ESTKH,X
CMP ESTKH+1,X
BNE ISNE1
INY
ISNE1 STY ESTKL+1,X
STY ESTKH+1,X
BNE ISTRU
ISFLS LDA #$00
INX
LDY IPY
STA ESTKL,X
STA ESTKH,X
JMP NEXTOP
ISGE STY IPY
LDY #$00
LDA ESTKL+1,X
;
ISGE LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVC ISGE1
EOR #$80
ISGE1 BMI ISGE2
DEY
ISGE2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISGT STY IPY
LDY #$00
LDA ESTKL,X
ISGE1 BPL ISTRU
BMI ISFLS
;
ISGT LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVC ISGT1
EOR #$80
ISGT1 BPL ISGT2
DEY
ISGT2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISLE STY IPY
LDY #$00
LDA ESTKL,X
ISGT1 BMI ISTRU
BPL ISFLS
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVC ISLE1
EOR #$80
ISLE1 BMI ISLE2
DEY
ISLE2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISLT STY IPY
LDY #$00
LDA ESTKL+1,X
ISLE1 BPL ISTRU
BMI ISFLS
;
ISLT LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVC ISLT1
EOR #$80
ISLT1 BPL ISLT2
DEY
ISLT2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISLT1 BMI ISTRU
BPL ISFLS
;*
;* BRANCHES
;*

82
src/vmsrc/plvm02.s
View File

@ -1202,99 +1202,65 @@ DAWX +INC_IP
;*
;* COMPARES
;*
ISEQ STY IPY
LDY #$00
LDA ESTKL,X
ISEQ LDA ESTKL,X
CMP ESTKL+1,X
BNE ISEQ1
BNE ISFLS
LDA ESTKH,X
CMP ESTKH+1,X
BNE ISEQ1
DEY
ISEQ1 STY ESTKL+1,X
STY ESTKH+1,X
BNE ISFLS
ISTRU LDA #$FF
INX
LDY IPY
STA ESTKL,X
STA ESTKH,X
JMP NEXTOP
;
ISNE STY IPY
LDY #$FF
LDA ESTKL,X
ISNE LDA ESTKL,X
CMP ESTKL+1,X
BNE ISNE1
BNE ISTRU
LDA ESTKH,X
CMP ESTKH+1,X
BNE ISNE1
INY
ISNE1 STY ESTKL+1,X
STY ESTKH+1,X
BNE ISTRU
ISFLS LDA #$00
INX
LDY IPY
STA ESTKL,X
STA ESTKH,X
JMP NEXTOP
;
ISGE STY IPY
LDY #$00
LDA ESTKL+1,X
ISGE LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVC ISGE1
EOR #$80
ISGE1 BMI ISGE2
DEY
ISGE2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISGE1 BPL ISTRU
BMI ISFLS
;
ISGT STY IPY
LDY #$00
LDA ESTKL,X
ISGT LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVC ISGT1
EOR #$80
ISGT1 BPL ISGT2
DEY
ISGT2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISGT1 BMI ISTRU
BPL ISFLS
;
ISLE STY IPY
LDY #$00
LDA ESTKL,X
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVC ISLE1
EOR #$80
ISLE1 BMI ISLE2
DEY
ISLE2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISLE1 BPL ISTRU
BMI ISFLS
;
ISLT STY IPY
LDY #$00
LDA ESTKL+1,X
ISLT LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVC ISLT1
EOR #$80
ISLT1 BPL ISLT2
DEY
ISLT2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISLT1 BMI ISTRU
BPL ISFLS
;*
;* BRANCHES
;*

87
src/vmsrc/plvm03.s
View File

@ -754,94 +754,65 @@ DAW +INC_IP
;*
;* COMPARES
;*
ISEQ STY IPY
LDY #$00
LDA ESTKL,X
ISEQ LDA ESTKL,X
CMP ESTKL+1,X
BNE ISEQ1
BNE ISFLS
LDA ESTKH,X
CMP ESTKH+1,X
BNE ISEQ1
DEY
ISEQ1 STY ESTKL+1,X
STY ESTKH+1,X
BNE ISFLS
ISTRU LDA #$FF
INX
LDY IPY
STA ESTKL,X
STA ESTKH,X
JMP NEXTOP
ISNE STY IPY
LDY #$FF
LDA ESTKL,X
;
ISNE LDA ESTKL,X
CMP ESTKL+1,X
BNE ISNE1
BNE ISTRU
LDA ESTKH,X
CMP ESTKH+1,X
BNE ISNE1
INY
ISNE1 STY ESTKL+1,X
STY ESTKH+1,X
BNE ISTRU
ISFLS LDA #$00
INX
LDY IPY
STA ESTKL,X
STA ESTKH,X
JMP NEXTOP
ISGE STY IPY
LDY #$00
LDA ESTKL+1,X
;
ISGE LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVC ISGE1
EOR #$80
ISGE1 BMI ISGE2
DEY
ISGE2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISGT STY IPY
LDY #$00
LDA ESTKL,X
ISGE1 BPL ISTRU
BMI ISFLS
;
ISGT LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVC ISGT1
EOR #$80
ISGT1 BPL ISGT2
DEY
ISGT2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISLE STY IPY
LDY #$00
LDA ESTKL,X
ISGT1 BMI ISTRU
BPL ISFLS
;
ISLE LDA ESTKL,X
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
BVC ISLE1
EOR #$80
ISLE1 BMI ISLE2
DEY
ISLE2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISLT STY IPY
LDY #$00
LDA ESTKL+1,X
ISLE1 BPL ISTRU
BMI ISFLS
;
ISLT LDA ESTKL+1,X
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
BVC ISLT1
EOR #$80
ISLT1 BPL ISLT2
DEY
ISLT2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
ISLT1 BMI ISTRU
BPL ISFLS
;*
;* BRANCHES
;*