Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-07-05 01:28:57 +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 ;* COMPARES
;* ;*
ISEQ STY IPY ISEQ LDA ESTKL,X
LDY #$00
LDA ESTKL,X
CMP ESTKL+1,X CMP ESTKL+1,X
BNE ISEQ1 BNE ISFLS
LDA ESTKH,X LDA ESTKH,X
CMP ESTKH+1,X CMP ESTKH+1,X
BNE ISEQ1 BNE ISFLS
DEY ISTRU LDA #$FF
ISEQ1 STY ESTKL+1,X
STY ESTKH+1,X
INX INX
LDY IPY STA ESTKL,X
STA ESTKH,X
JMP NEXTOP JMP NEXTOP
; ;
ISNE STY IPY ISNE LDA ESTKL,X
LDY #$FF
LDA ESTKL,X
CMP ESTKL+1,X CMP ESTKL+1,X
BNE ISNE1 BNE ISTRU
LDA ESTKH,X LDA ESTKH,X
CMP ESTKH+1,X CMP ESTKH+1,X
BNE ISNE1 BNE ISTRU
INY ISFLS LDA #$00
ISNE1 STY ESTKL+1,X
STY ESTKH+1,X
INX INX
LDY IPY STA ESTKL,X
STA ESTKH,X
JMP NEXTOP JMP NEXTOP
; ;
ISGE STY IPY ISGE LDA ESTKL+1,X
LDY #$00
LDA ESTKL+1,X
CMP ESTKL,X CMP ESTKL,X
LDA ESTKH+1,X LDA ESTKH+1,X
SBC ESTKH,X SBC ESTKH,X
BVC ISGE1 BVC ISGE1
EOR #$80 EOR #$80
ISGE1 BMI ISGE2 ISGE1 BPL ISTRU
DEY BMI ISFLS
ISGE2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
; ;
ISGT STY IPY ISGT LDA ESTKL,X
LDY #$00
LDA ESTKL,X
CMP ESTKL+1,X CMP ESTKL+1,X
LDA ESTKH,X LDA ESTKH,X
SBC ESTKH+1,X SBC ESTKH+1,X
BVC ISGT1 BVC ISGT1
EOR #$80 EOR #$80
ISGT1 BPL ISGT2 ISGT1 BMI ISTRU
DEY BPL ISFLS
ISGT2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
; ;
ISLE STY IPY ISLE LDA ESTKL,X
LDY #$00
LDA ESTKL,X
CMP ESTKL+1,X CMP ESTKL+1,X
LDA ESTKH,X LDA ESTKH,X
SBC ESTKH+1,X SBC ESTKH+1,X
BVC ISLE1 BVC ISLE1
EOR #$80 EOR #$80
ISLE1 BMI ISLE2 ISLE1 BPL ISTRU
DEY BMI ISFLS
ISLE2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
; ;
ISLT STY IPY ISLT LDA ESTKL+1,X
LDY #$00
LDA ESTKL+1,X
CMP ESTKL,X CMP ESTKL,X
LDA ESTKH+1,X LDA ESTKH+1,X
SBC ESTKH,X SBC ESTKH,X
BVC ISLT1 BVC ISLT1
EOR #$80 EOR #$80
ISLT1 BPL ISLT2 ISLT1 BMI ISTRU
DEY BPL ISFLS
ISLT2 STY ESTKL+1,X
STY ESTKH+1,X
INX
LDY IPY
JMP NEXTOP
;* ;*
;* BRANCHES ;* BRANCHES
;* ;*