mirror of
https://github.com/cc65/cc65.git
synced 2024-11-02 18:06:48 +00:00
261 lines
5.6 KiB
ArmAsm
261 lines
5.6 KiB
ArmAsm
|
.setcpu "65C02"
|
||
|
; copy of 65c02, comments note changes to the m740 according to
|
||
|
; http://documentation.renesas.com/doc/products/mpumcu/rej09b0322_740sm.pdf
|
||
|
|
||
|
brk
|
||
|
ora ($12,x)
|
||
|
.byte $02,$00,$00 ; jsr zp,ind
|
||
|
.byte $03,$00,$00 ; bbs 0,a
|
||
|
tsb $12 ; .byte $04
|
||
|
ora $12
|
||
|
asl $12
|
||
|
rmb0 $12 ; bbs 0,zp
|
||
|
php
|
||
|
ora #$12
|
||
|
asl a
|
||
|
.byte $0B,$00,$00 ; seb 0,a
|
||
|
tsb $3456 ; .byte $0c
|
||
|
ora $3456
|
||
|
asl $3456
|
||
|
bbr0 $12,*+122 ; seb 0,zp
|
||
|
bpl *+122
|
||
|
ora ($12),y
|
||
|
ora ($12) ; clt
|
||
|
.byte $13,$00,$00 ; bbc 0,a
|
||
|
trb $12 ; .byte $14
|
||
|
ora $12,x
|
||
|
asl $12,x
|
||
|
rmb1 $12 ; bbc 0,zp
|
||
|
clc
|
||
|
ora $3456,y
|
||
|
inc a
|
||
|
.byte $1B,$00,$00 ; clb 0,a
|
||
|
trb $3456 ; .byte $1c
|
||
|
ora $3456,x
|
||
|
asl $3456,x
|
||
|
bbr1 $12,*+122 ; clb 0,zp
|
||
|
jsr $3456
|
||
|
and ($12,x)
|
||
|
.byte $22,$00,$00 ; jsr sp
|
||
|
.byte $23,$00,$00 ; bbs 1,a
|
||
|
bit $12
|
||
|
and $12
|
||
|
rol $12
|
||
|
rmb2 $12 ; bbs 1,zp
|
||
|
plp
|
||
|
and #$12
|
||
|
rol a
|
||
|
.byte $2B,$00,$00 ; seb 1,a
|
||
|
bit $3456
|
||
|
and $3456
|
||
|
rol $3456
|
||
|
bbr2 $12,*+122 ; seb 1,zp
|
||
|
bmi *+122
|
||
|
and ($12),y
|
||
|
and ($12) ; set
|
||
|
.byte $33,$00,$00 ; bbc 1,a
|
||
|
bit $12,x ; .byte $34
|
||
|
and $12,x
|
||
|
rol $12,x
|
||
|
rmb3 $12 ; bbc 1,zp
|
||
|
sec
|
||
|
and $3456,y
|
||
|
dec a
|
||
|
.byte $3B,$00,$00 ; clb 1,a
|
||
|
bit $3456,x ; ldm zp
|
||
|
and $3456,x
|
||
|
rol $3456,x
|
||
|
bbr3 $12,*+122 ; clb 1,zp
|
||
|
rti
|
||
|
eor ($12,x)
|
||
|
.byte $42,$00,$00 ; stp
|
||
|
.byte $43,$00,$00 ; bbs 2,a
|
||
|
.byte $44,$00,$00 ; com zp
|
||
|
eor $12
|
||
|
lsr $12
|
||
|
rmb4 $12 ; bbs 2,zp
|
||
|
pha
|
||
|
eor #$12
|
||
|
lsr a
|
||
|
.byte $4B,$00,$00 ; seb 2,a
|
||
|
jmp $3456
|
||
|
eor $3456
|
||
|
lsr $3456
|
||
|
bbr4 $12,*+122 ; seb 2,zp
|
||
|
bvc *+122
|
||
|
eor ($12),y
|
||
|
eor ($12) ; .byte $52
|
||
|
.byte $53,$00,$00 ; bbc 2,a
|
||
|
.byte $54,$00,$00
|
||
|
eor $12,x
|
||
|
lsr $12,x
|
||
|
rmb5 $12 ; bbc 2,zp
|
||
|
cli
|
||
|
eor $3456,y
|
||
|
phy
|
||
|
.byte $5B,$00,$00 ; clb 2,a
|
||
|
.byte $5C,$00,$00
|
||
|
eor $3456,x
|
||
|
lsr $3456,x
|
||
|
bbr5 $12,*+122 ; clb 2,zp
|
||
|
rts
|
||
|
adc ($12,x)
|
||
|
.byte $62,$00,$00 ; mul zp,x
|
||
|
.byte $63,$00,$00 ; bbs 3,a
|
||
|
stz $12 ; tst zp
|
||
|
adc $12
|
||
|
ror $12
|
||
|
rmb6 $12 ; bbs 3,zp
|
||
|
pla
|
||
|
adc #$12
|
||
|
ror a
|
||
|
.byte $6B,$00,$00 ; seb 3,a
|
||
|
jmp ($3456)
|
||
|
adc $3456
|
||
|
ror $3456
|
||
|
bbr6 $12,*+122 ; seb 3,zp
|
||
|
bvs *+122
|
||
|
adc ($12),y
|
||
|
adc ($12) ; .byte $72
|
||
|
.byte $73,$00,$00 ; bbc 3,a
|
||
|
stz $12,x ; .byte $74
|
||
|
adc $12,x
|
||
|
ror $12,x
|
||
|
rmb7 $12 ; bbc 3,zp
|
||
|
sei
|
||
|
adc $3456,y
|
||
|
ply
|
||
|
.byte $7B,$00,$00 ; clb 3,a
|
||
|
jmp ($3456,x) ; .byte $7c
|
||
|
adc $3456,x
|
||
|
ror $3456,x
|
||
|
bbr7 $12,*+122 ; clb 3,zp
|
||
|
bra *+122
|
||
|
sta ($12,x)
|
||
|
.byte $82,$00,$00 ; rrf zp
|
||
|
.byte $83,$00,$00 ; bbs 4,a
|
||
|
sty $12
|
||
|
sta $12
|
||
|
stx $12
|
||
|
smb0 $12 ; bbs 4,zp
|
||
|
dey
|
||
|
bit #$12
|
||
|
txa
|
||
|
.byte $8B,$00,$00 ; seb 4,a
|
||
|
sty $3456
|
||
|
sta $3456
|
||
|
stx $3456
|
||
|
bbs0 $12,*+122 ; seb 4,zp
|
||
|
bcc *+122
|
||
|
sta ($12),y
|
||
|
sta ($12) ; .byte $92
|
||
|
.byte $93,$00,$00 ; bbc 4,a
|
||
|
sty $12,x
|
||
|
sta $12,x
|
||
|
stx $12,y
|
||
|
smb1 $12 ; bbc 4,zp
|
||
|
tya
|
||
|
sta $3456,y
|
||
|
txs
|
||
|
.byte $9B,$00,$00 ; clb 4,a
|
||
|
stz $3456 ; .byte $9c
|
||
|
sta $3456,x
|
||
|
stz $3456,x ; .byte $9e
|
||
|
bbs1 $12,*+122 ; clb 4,zp
|
||
|
ldy #$12
|
||
|
lda ($12,x)
|
||
|
ldx #$12
|
||
|
.byte $A3,$00,$00 ; bbs 5,a
|
||
|
ldy $12
|
||
|
lda $12
|
||
|
ldx $12
|
||
|
smb2 $12 ; bbs 5,zp
|
||
|
tay
|
||
|
lda #$12
|
||
|
tax
|
||
|
.byte $AB,$00,$00 ; seb 5,a
|
||
|
ldy $3456
|
||
|
lda $3456
|
||
|
ldx $3456
|
||
|
bbs2 $12,*+122 ; seb 5,zp
|
||
|
bcs *+122
|
||
|
lda ($12),y
|
||
|
lda ($12) ; .byte $b2
|
||
|
.byte $B3,$00,$00 ; bbc 5,a
|
||
|
ldy $12,x
|
||
|
lda $12,x
|
||
|
ldx $12,y
|
||
|
smb3 $12 ; bbc 5,zp
|
||
|
clv
|
||
|
lda $3456,y
|
||
|
tsx
|
||
|
.byte $BB,$00,$00 ; clb 5,a
|
||
|
ldy $3456,x
|
||
|
lda $3456,x
|
||
|
ldx $3456,y
|
||
|
bbs3 $12,*+122 ; clb 5,zp
|
||
|
cpy #$12
|
||
|
cmp ($12,x)
|
||
|
.byte $C2,$00,$00 ; wit
|
||
|
.byte $C3,$00,$00 ; bbs 6,a
|
||
|
cpy $12
|
||
|
cmp $12
|
||
|
dec $12
|
||
|
smb4 $12 ; bbs 6,zp
|
||
|
iny
|
||
|
cmp #$12
|
||
|
dex
|
||
|
.byte $CB,$00,$00 ; seb 6,a
|
||
|
cpy $3456
|
||
|
cmp $3456
|
||
|
dec $3456
|
||
|
bbs4 $12,*+122 ; seb 6,zp
|
||
|
bne *+122
|
||
|
cmp ($12),y
|
||
|
cmp ($12) ; .byte $d2
|
||
|
.byte $D3,$00,$00 ; bbc 6,a
|
||
|
.byte $D4,$00,$00
|
||
|
cmp $12,x
|
||
|
dec $12,x
|
||
|
smb5 $12 ; bbc 6,zp
|
||
|
cld
|
||
|
cmp $3456,y
|
||
|
phx
|
||
|
.byte $DB,$00,$00 ; clb 6,a
|
||
|
.byte $DC,$00,$00
|
||
|
cmp $3456,x
|
||
|
dec $3456,x
|
||
|
bbs5 $12,*+122 ; clb 6,zp
|
||
|
cpx #$12
|
||
|
sbc ($12,x)
|
||
|
.byte $E2,$00,$00 ; div zp,x
|
||
|
.byte $E3,$00,$00 ; bbs 7,a
|
||
|
cpx $12
|
||
|
sbc $12
|
||
|
inc $12
|
||
|
smb6 $12 ; bbs 7,zp
|
||
|
inx
|
||
|
sbc #$12
|
||
|
nop
|
||
|
.byte $EB,$00,$00 ; seb 7,a
|
||
|
cpx $3456
|
||
|
sbc $3456
|
||
|
inc $3456
|
||
|
bbs6 $12,*+122 ; seb 7,zp
|
||
|
beq *+122
|
||
|
sbc ($12),y
|
||
|
sbc ($12) ; .byte $f2
|
||
|
.byte $F3,$00,$00 ; bbc 7,a
|
||
|
.byte $F4,$00,$00
|
||
|
sbc $12,x
|
||
|
inc $12,x
|
||
|
smb7 $12 ; bbc 7,zp
|
||
|
sed
|
||
|
sbc $3456,y
|
||
|
plx
|
||
|
.byte $FB,$00,$00 ; clb 7,a
|
||
|
.byte $FC,$00,$00
|
||
|
sbc $3456,x
|
||
|
inc $3456,x
|
||
|
bbs7 $12,*+122 ; clb 7,zp
|