mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-11 13:50:13 +00:00
176 lines
2.7 KiB
ArmAsm
176 lines
2.7 KiB
ArmAsm
|
.setcpu "6502X"
|
||
|
|
.org $1000
|
||
|
|
clv
|
||
|
|
cld
|
||
|
|
cli
|
||
|
|
clc
|
||
|
|
lda #$80
|
||
|
|
lda #$01
|
||
|
|
sed
|
||
|
|
sei
|
||
|
|
sec
|
||
|
|
lda #$ff
|
||
|
|
adc #$00
|
||
|
|
lda #$00
|
||
|
|
pha
|
||
|
|
plp
|
||
|
|
clv
|
||
|
|
bvc L101A
|
||
|
|
|
||
|
|
.byte $70
|
||
|
|
.byte $02
|
||
|
|
.byte $00
|
||
|
|
.byte $00
|
||
|
|
|
||
|
|
L101A: clc
|
||
|
|
bcc @L101F
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $00
|
||
|
|
|
||
|
|
@L101F: sec
|
||
|
|
bcs @L1024
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $00
|
||
|
|
|
||
|
|
@L1024: lda #$01
|
||
|
|
bne @L102A
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L102A: lda #$00
|
||
|
|
beq @L1030
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L1030: bpl @L1034
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L1034: lda #$80
|
||
|
|
bmi @L103A
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L103A: lda #$ff
|
||
|
|
and #$00
|
||
|
|
beq @L1042
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L1042: lda #$00
|
||
|
|
ldx #$80
|
||
|
|
and #$ff
|
||
|
|
beq @L104C
|
||
|
|
bne @L104C
|
||
|
|
|
||
|
|
@L104C: lda #$ff
|
||
|
|
ldx #$00
|
||
|
|
and #$7f
|
||
|
|
beq @L1056
|
||
|
|
bne @L1056
|
||
|
|
|
||
|
|
@L1056: bpl @L105A
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L105A: lda #$ff
|
||
|
|
and #$80
|
||
|
|
bpl @L1064
|
||
|
|
bmi @L1064
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L1064: lda #$00
|
||
|
|
ldx #$80
|
||
|
|
bne @L106C
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L106C: ora #$00
|
||
|
|
beq @L1072
|
||
|
|
bne @L1072
|
||
|
|
|
||
|
|
@L1072: ora #$01
|
||
|
|
bne @L1078
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L1078: lda #$00
|
||
|
|
ldx #$80
|
||
|
|
bmi @L1080
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L1080: ora #$7f
|
||
|
|
bpl @L1088
|
||
|
|
bmi @L1088
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L1088: ora #$80
|
||
|
|
bmi @L108E
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $db
|
||
|
|
|
||
|
|
@L108E: lda @L108E
|
||
|
|
sec
|
||
|
|
ror A
|
||
|
|
bmi @L1097
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $dc
|
||
|
|
|
||
|
|
@L1097: clc
|
||
|
|
ror A
|
||
|
|
bpl @L109D
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $dc
|
||
|
|
|
||
|
|
@L109D: lda #$00
|
||
|
|
sec
|
||
|
|
rol A
|
||
|
|
bne @L10A5
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $dc
|
||
|
|
|
||
|
|
@L10A5: lda #$ff
|
||
|
|
lsr A
|
||
|
|
bpl @L10AC
|
||
|
|
|
||
|
|
.byte $00
|
||
|
|
.byte $dd
|
||
|
|
|
||
|
|
@L10AC: clc
|
||
|
|
php
|
||
|
|
sec
|
||
|
|
plp
|
||
|
|
bcc @L10B3
|
||
|
|
nop
|
||
|
|
@L10B3: sec
|
||
|
|
bcs @L10B7
|
||
|
|
|
||
|
|
@L10B6: clc
|
||
|
|
@L10B7: lda $33
|
||
|
|
beq @L10B6
|
||
|
|
bcs @L10BF
|
||
|
|
lda $44
|
||
|
|
@L10BF: nop
|
||
|
|
rts
|
||
|
|
|