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

Better test opcodes

Browse Source
This commit is contained in:
David Schmenk 2014-06-23 18:55:52 -07:00
parent 73fee14a43
commit c4d6742aec
1 changed files with 24 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
PLASMA/src/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
;*