mirror of
https://github.com/irmen/ksim65.git
synced 2025-08-09 11:25:03 +00:00
more fun c64 demos
This commit is contained in:
Irmen de Jong
BIN
c64testprgs/atlantis.prg
Normal file
BIN
c64testprgs/atlantis.prg
Normal file
Binary file not shown.
BIN
c64testprgs/inaloop.prg
Normal file
BIN
c64testprgs/inaloop.prg
Normal file
Binary file not shown.
426
src/test/kotlin/6502testsuite/source/adca.asm
Normal file
426
src/test/kotlin/6502testsuite/source/adca.asm
Normal file
@@ -0,0 +1,426 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)adca"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda pb
|
||||
and #%00001000
|
||||
bne decmode
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
and #$7f
|
||||
sta cmd1+1
|
||||
clc
|
||||
lda pb
|
||||
and #1
|
||||
beq noc
|
||||
sec
|
||||
noc php
|
||||
lda ab
|
||||
cmd0 adc #0
|
||||
sta ar
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
bcc noc1
|
||||
ora #1
|
||||
noc1 tax
|
||||
lda ab
|
||||
and #$7f
|
||||
plp
|
||||
cmd1 adc #0
|
||||
bmi neg
|
||||
txa
|
||||
and #1
|
||||
beq cont
|
||||
set txa
|
||||
ora #%01000000
|
||||
tax
|
||||
jmp cont
|
||||
neg txa
|
||||
and #1
|
||||
beq set
|
||||
cont lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
jmp deccont
|
||||
|
||||
decmode
|
||||
.block
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
and #$0f
|
||||
sta l0+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
tax
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and #$0f
|
||||
l0 adc #0
|
||||
ldy #$00
|
||||
cmp #$0a
|
||||
bcc l1
|
||||
sec
|
||||
sbc #$0a
|
||||
and #$0f
|
||||
ldy #$08
|
||||
l1 sta ar
|
||||
sty l2+1
|
||||
sty l3+1
|
||||
lda db
|
||||
and #$f0
|
||||
ora l3+1
|
||||
sta l3+1
|
||||
lda ab
|
||||
and #$f0
|
||||
l2 ora #0
|
||||
clc
|
||||
l3 adc #0
|
||||
php
|
||||
bcs l4
|
||||
cmp #$a0
|
||||
bcc l5
|
||||
l4 sec
|
||||
sbc #$a0
|
||||
inx
|
||||
l5 ora ar
|
||||
sta ar
|
||||
plp
|
||||
bvc nov
|
||||
php
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
plp
|
||||
nov bpl non
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
non lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
adc db
|
||||
bne noz
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
noz stx pr
|
||||
.bend
|
||||
|
||||
deccont lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd adc da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "adcax"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
435
src/test/kotlin/6502testsuite/source/adcax.asm
Normal file
435
src/test/kotlin/6502testsuite/source/adcax.asm
Normal file
@@ -0,0 +1,435 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)adcax"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda pb
|
||||
and #%00001000
|
||||
bne decmode
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
and #$7f
|
||||
sta cmd1+1
|
||||
clc
|
||||
lda pb
|
||||
and #1
|
||||
beq noc
|
||||
sec
|
||||
noc php
|
||||
lda ab
|
||||
cmd0 adc #0
|
||||
sta ar
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
bcc noc1
|
||||
ora #1
|
||||
noc1 tax
|
||||
lda ab
|
||||
and #$7f
|
||||
plp
|
||||
cmd1 adc #0
|
||||
bmi neg
|
||||
txa
|
||||
and #1
|
||||
beq cont
|
||||
set txa
|
||||
ora #%01000000
|
||||
tax
|
||||
jmp cont
|
||||
neg txa
|
||||
and #1
|
||||
beq set
|
||||
cont lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
jmp deccont
|
||||
|
||||
decmode
|
||||
.block
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
and #$0f
|
||||
sta l0+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
tax
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and #$0f
|
||||
l0 adc #0
|
||||
ldy #$00
|
||||
cmp #$0a
|
||||
bcc l1
|
||||
sec
|
||||
sbc #$0a
|
||||
and #$0f
|
||||
ldy #$08
|
||||
l1 sta ar
|
||||
sty l2+1
|
||||
sty l3+1
|
||||
lda db
|
||||
and #$f0
|
||||
ora l3+1
|
||||
sta l3+1
|
||||
lda ab
|
||||
and #$f0
|
||||
l2 ora #0
|
||||
clc
|
||||
l3 adc #0
|
||||
php
|
||||
bcs l4
|
||||
cmp #$a0
|
||||
bcc l5
|
||||
l4 sec
|
||||
sbc #$a0
|
||||
inx
|
||||
l5 ora ar
|
||||
sta ar
|
||||
plp
|
||||
bvc nov
|
||||
php
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
plp
|
||||
nov bpl non
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
non lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
adc db
|
||||
bne noz
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
noz stx pr
|
||||
.bend
|
||||
|
||||
deccont lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd adc da,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda xb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "adcay"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
435
src/test/kotlin/6502testsuite/source/adcay.asm
Normal file
435
src/test/kotlin/6502testsuite/source/adcay.asm
Normal file
@@ -0,0 +1,435 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)adcay"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta yb
|
||||
|
||||
next lda pb
|
||||
and #%00001000
|
||||
bne decmode
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
and #$7f
|
||||
sta cmd1+1
|
||||
clc
|
||||
lda pb
|
||||
and #1
|
||||
beq noc
|
||||
sec
|
||||
noc php
|
||||
lda ab
|
||||
cmd0 adc #0
|
||||
sta ar
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
bcc noc1
|
||||
ora #1
|
||||
noc1 tax
|
||||
lda ab
|
||||
and #$7f
|
||||
plp
|
||||
cmd1 adc #0
|
||||
bmi neg
|
||||
txa
|
||||
and #1
|
||||
beq cont
|
||||
set txa
|
||||
ora #%01000000
|
||||
tax
|
||||
jmp cont
|
||||
neg txa
|
||||
and #1
|
||||
beq set
|
||||
cont lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
jmp deccont
|
||||
|
||||
decmode
|
||||
.block
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
and #$0f
|
||||
sta l0+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
tax
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and #$0f
|
||||
l0 adc #0
|
||||
ldy #$00
|
||||
cmp #$0a
|
||||
bcc l1
|
||||
sec
|
||||
sbc #$0a
|
||||
and #$0f
|
||||
ldy #$08
|
||||
l1 sta ar
|
||||
sty l2+1
|
||||
sty l3+1
|
||||
lda db
|
||||
and #$f0
|
||||
ora l3+1
|
||||
sta l3+1
|
||||
lda ab
|
||||
and #$f0
|
||||
l2 ora #0
|
||||
clc
|
||||
l3 adc #0
|
||||
php
|
||||
bcs l4
|
||||
cmp #$a0
|
||||
bcc l5
|
||||
l4 sec
|
||||
sbc #$a0
|
||||
inx
|
||||
l5 ora ar
|
||||
sta ar
|
||||
plp
|
||||
bvc nov
|
||||
php
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
plp
|
||||
nov bpl non
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
non lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
adc db
|
||||
bne noz
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
noz stx pr
|
||||
.bend
|
||||
|
||||
deccont lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd adc da,y
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec yb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "adcix"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
428
src/test/kotlin/6502testsuite/source/adcb.asm
Normal file
428
src/test/kotlin/6502testsuite/source/adcb.asm
Normal file
@@ -0,0 +1,428 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)adcb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda pb
|
||||
and #%00001000
|
||||
bne decmode
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
sta cmd0+1
|
||||
and #$7f
|
||||
sta cmd1+1
|
||||
clc
|
||||
lda pb
|
||||
and #1
|
||||
beq noc
|
||||
sec
|
||||
noc php
|
||||
lda ab
|
||||
cmd0 adc #0
|
||||
sta ar
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
bcc noc1
|
||||
ora #1
|
||||
noc1 tax
|
||||
lda ab
|
||||
and #$7f
|
||||
plp
|
||||
cmd1 adc #0
|
||||
bmi neg
|
||||
txa
|
||||
and #1
|
||||
beq cont
|
||||
set txa
|
||||
ora #%01000000
|
||||
tax
|
||||
jmp cont
|
||||
neg txa
|
||||
and #1
|
||||
beq set
|
||||
cont lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
jmp deccont
|
||||
|
||||
decmode
|
||||
.block
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
and #$0f
|
||||
sta l0+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
tax
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and #$0f
|
||||
l0 adc #0
|
||||
ldy #$00
|
||||
cmp #$0a
|
||||
bcc l1
|
||||
sec
|
||||
sbc #$0a
|
||||
and #$0f
|
||||
ldy #$08
|
||||
l1 sta ar
|
||||
sty l2+1
|
||||
sty l3+1
|
||||
lda db
|
||||
and #$f0
|
||||
ora l3+1
|
||||
sta l3+1
|
||||
lda ab
|
||||
and #$f0
|
||||
l2 ora #0
|
||||
clc
|
||||
l3 adc #0
|
||||
php
|
||||
bcs l4
|
||||
cmp #$a0
|
||||
bcc l5
|
||||
l4 sec
|
||||
sbc #$a0
|
||||
inx
|
||||
l5 ora ar
|
||||
sta ar
|
||||
plp
|
||||
bvc nov
|
||||
php
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
plp
|
||||
nov bpl non
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
non lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
adc db
|
||||
bne noz
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
noz stx pr
|
||||
.bend
|
||||
|
||||
deccont lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd adc #0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "adcz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
434
src/test/kotlin/6502testsuite/source/adcix.asm
Normal file
434
src/test/kotlin/6502testsuite/source/adcix.asm
Normal file
@@ -0,0 +1,434 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)adcix"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next lda pb
|
||||
and #%00001000
|
||||
bne decmode
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
and #$7f
|
||||
sta cmd1+1
|
||||
clc
|
||||
lda pb
|
||||
and #1
|
||||
beq noc
|
||||
sec
|
||||
noc php
|
||||
lda ab
|
||||
cmd0 adc #0
|
||||
sta ar
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
bcc noc1
|
||||
ora #1
|
||||
noc1 tax
|
||||
lda ab
|
||||
and #$7f
|
||||
plp
|
||||
cmd1 adc #0
|
||||
bmi neg
|
||||
txa
|
||||
and #1
|
||||
beq cont
|
||||
set txa
|
||||
ora #%01000000
|
||||
tax
|
||||
jmp cont
|
||||
neg txa
|
||||
and #1
|
||||
beq set
|
||||
cont lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
jmp deccont
|
||||
|
||||
decmode
|
||||
.block
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
and #$0f
|
||||
sta l0+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
tax
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and #$0f
|
||||
l0 adc #0
|
||||
ldy #$00
|
||||
cmp #$0a
|
||||
bcc l1
|
||||
sec
|
||||
sbc #$0a
|
||||
and #$0f
|
||||
ldy #$08
|
||||
l1 sta ar
|
||||
sty l2+1
|
||||
sty l3+1
|
||||
lda db
|
||||
and #$f0
|
||||
ora l3+1
|
||||
sta l3+1
|
||||
lda ab
|
||||
and #$f0
|
||||
l2 ora #0
|
||||
clc
|
||||
l3 adc #0
|
||||
php
|
||||
bcs l4
|
||||
cmp #$a0
|
||||
bcc l5
|
||||
l4 sec
|
||||
sbc #$a0
|
||||
inx
|
||||
l5 ora ar
|
||||
sta ar
|
||||
plp
|
||||
bvc nov
|
||||
php
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
plp
|
||||
nov bpl non
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
non lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
adc db
|
||||
bne noz
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
noz stx pr
|
||||
.bend
|
||||
|
||||
deccont lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd adc (172,x)
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "adciy"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
439
src/test/kotlin/6502testsuite/source/adciy.asm
Normal file
439
src/test/kotlin/6502testsuite/source/adciy.asm
Normal file
@@ -0,0 +1,439 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)adciy"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta yb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next lda pb
|
||||
and #%00001000
|
||||
bne decmode
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
and #$7f
|
||||
sta cmd1+1
|
||||
clc
|
||||
lda pb
|
||||
and #1
|
||||
beq noc
|
||||
sec
|
||||
noc php
|
||||
lda ab
|
||||
cmd0 adc #0
|
||||
sta ar
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
bcc noc1
|
||||
ora #1
|
||||
noc1 tax
|
||||
lda ab
|
||||
and #$7f
|
||||
plp
|
||||
cmd1 adc #0
|
||||
bmi neg
|
||||
txa
|
||||
and #1
|
||||
beq cont
|
||||
set txa
|
||||
ora #%01000000
|
||||
tax
|
||||
jmp cont
|
||||
neg txa
|
||||
and #1
|
||||
beq set
|
||||
cont lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
jmp deccont
|
||||
|
||||
decmode
|
||||
.block
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
and #$0f
|
||||
sta l0+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
tax
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and #$0f
|
||||
l0 adc #0
|
||||
ldy #$00
|
||||
cmp #$0a
|
||||
bcc l1
|
||||
sec
|
||||
sbc #$0a
|
||||
and #$0f
|
||||
ldy #$08
|
||||
l1 sta ar
|
||||
sty l2+1
|
||||
sty l3+1
|
||||
lda db
|
||||
and #$f0
|
||||
ora l3+1
|
||||
sta l3+1
|
||||
lda ab
|
||||
and #$f0
|
||||
l2 ora #0
|
||||
clc
|
||||
l3 adc #0
|
||||
php
|
||||
bcs l4
|
||||
cmp #$a0
|
||||
bcc l5
|
||||
l4 sec
|
||||
sbc #$a0
|
||||
inx
|
||||
l5 ora ar
|
||||
sta ar
|
||||
plp
|
||||
bvc nov
|
||||
php
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
plp
|
||||
nov bpl non
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
non lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
adc db
|
||||
bne noz
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
noz stx pr
|
||||
.bend
|
||||
|
||||
deccont lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd adc (172),y
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc 172
|
||||
bne noinc
|
||||
inc 173
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec 173
|
||||
nodec dec yb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "sbcb"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
428
src/test/kotlin/6502testsuite/source/adcz.asm
Normal file
428
src/test/kotlin/6502testsuite/source/adcz.asm
Normal file
@@ -0,0 +1,428 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)adcz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda pb
|
||||
and #%00001000
|
||||
bne decmode
|
||||
lda db
|
||||
sta 172
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
and #$7f
|
||||
sta cmd1+1
|
||||
clc
|
||||
lda pb
|
||||
and #1
|
||||
beq noc
|
||||
sec
|
||||
noc php
|
||||
lda ab
|
||||
cmd0 adc #0
|
||||
sta ar
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
bcc noc1
|
||||
ora #1
|
||||
noc1 tax
|
||||
lda ab
|
||||
and #$7f
|
||||
plp
|
||||
cmd1 adc #0
|
||||
bmi neg
|
||||
txa
|
||||
and #1
|
||||
beq cont
|
||||
set txa
|
||||
ora #%01000000
|
||||
tax
|
||||
jmp cont
|
||||
neg txa
|
||||
and #1
|
||||
beq set
|
||||
cont lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
jmp deccont
|
||||
|
||||
decmode
|
||||
.block
|
||||
lda db
|
||||
sta 172
|
||||
sta dr
|
||||
and #$0f
|
||||
sta l0+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
tax
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and #$0f
|
||||
l0 adc #0
|
||||
ldy #$00
|
||||
cmp #$0a
|
||||
bcc l1
|
||||
sec
|
||||
sbc #$0a
|
||||
and #$0f
|
||||
ldy #$08
|
||||
l1 sta ar
|
||||
sty l2+1
|
||||
sty l3+1
|
||||
lda db
|
||||
and #$f0
|
||||
ora l3+1
|
||||
sta l3+1
|
||||
lda ab
|
||||
and #$f0
|
||||
l2 ora #0
|
||||
clc
|
||||
l3 adc #0
|
||||
php
|
||||
bcs l4
|
||||
cmp #$a0
|
||||
bcc l5
|
||||
l4 sec
|
||||
sbc #$a0
|
||||
inx
|
||||
l5 ora ar
|
||||
sta ar
|
||||
plp
|
||||
bvc nov
|
||||
php
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
plp
|
||||
nov bpl non
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
non lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
adc db
|
||||
bne noz
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
noz stx pr
|
||||
.bend
|
||||
|
||||
deccont lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd adc 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "adczx"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
432
src/test/kotlin/6502testsuite/source/adczx.asm
Normal file
432
src/test/kotlin/6502testsuite/source/adczx.asm
Normal file
@@ -0,0 +1,432 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)adczx"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda pb
|
||||
and #%00001000
|
||||
bne decmode
|
||||
lda db
|
||||
sta 172
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
and #$7f
|
||||
sta cmd1+1
|
||||
clc
|
||||
lda pb
|
||||
and #1
|
||||
beq noc
|
||||
sec
|
||||
noc php
|
||||
lda ab
|
||||
cmd0 adc #0
|
||||
sta ar
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
bcc noc1
|
||||
ora #1
|
||||
noc1 tax
|
||||
lda ab
|
||||
and #$7f
|
||||
plp
|
||||
cmd1 adc #0
|
||||
bmi neg
|
||||
txa
|
||||
and #1
|
||||
beq cont
|
||||
set txa
|
||||
ora #%01000000
|
||||
tax
|
||||
jmp cont
|
||||
neg txa
|
||||
and #1
|
||||
beq set
|
||||
cont lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
jmp deccont
|
||||
|
||||
decmode
|
||||
.block
|
||||
lda db
|
||||
sta 172
|
||||
sta dr
|
||||
and #$0f
|
||||
sta l0+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
tax
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and #$0f
|
||||
l0 adc #0
|
||||
ldy #$00
|
||||
cmp #$0a
|
||||
bcc l1
|
||||
sec
|
||||
sbc #$0a
|
||||
and #$0f
|
||||
ldy #$08
|
||||
l1 sta ar
|
||||
sty l2+1
|
||||
sty l3+1
|
||||
lda db
|
||||
and #$f0
|
||||
ora l3+1
|
||||
sta l3+1
|
||||
lda ab
|
||||
and #$f0
|
||||
l2 ora #0
|
||||
clc
|
||||
l3 adc #0
|
||||
php
|
||||
bcs l4
|
||||
cmp #$a0
|
||||
bcc l5
|
||||
l4 sec
|
||||
sbc #$a0
|
||||
inx
|
||||
l5 ora ar
|
||||
sta ar
|
||||
plp
|
||||
bvc nov
|
||||
php
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
plp
|
||||
nov bpl non
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
non lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
adc db
|
||||
bne noz
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
noz stx pr
|
||||
.bend
|
||||
|
||||
deccont lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd adc 172,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "adca"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
327
src/test/kotlin/6502testsuite/source/alrb.asm
Normal file
327
src/test/kotlin/6502testsuite/source/alrb.asm
Normal file
@@ -0,0 +1,327 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)alrb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
|
||||
lda pb
|
||||
pha
|
||||
plp
|
||||
|
||||
lda ab
|
||||
and db
|
||||
lsr a
|
||||
sta ar
|
||||
|
||||
php
|
||||
pla
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $4b
|
||||
.byte 0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "arrb"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
346
src/test/kotlin/6502testsuite/source/ancb.asm
Normal file
346
src/test/kotlin/6502testsuite/source/ancb.asm
Normal file
@@ -0,0 +1,346 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)ancb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
lda #$0b
|
||||
sta cmd
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000001
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte 0
|
||||
.byte 0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
lda #$2b
|
||||
cmp cmd
|
||||
beq end
|
||||
sta cmd
|
||||
jmp next
|
||||
end
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "lasay"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
336
src/test/kotlin/6502testsuite/source/anda.asm
Normal file
336
src/test/kotlin/6502testsuite/source/anda.asm
Normal file
@@ -0,0 +1,336 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)anda"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd and da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "andax"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
345
src/test/kotlin/6502testsuite/source/andax.asm
Normal file
345
src/test/kotlin/6502testsuite/source/andax.asm
Normal file
@@ -0,0 +1,345 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)andax"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd and da,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda xb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "anday"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
345
src/test/kotlin/6502testsuite/source/anday.asm
Normal file
345
src/test/kotlin/6502testsuite/source/anday.asm
Normal file
@@ -0,0 +1,345 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)anday"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd and da,y
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec yb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "andix"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
337
src/test/kotlin/6502testsuite/source/andb.asm
Normal file
337
src/test/kotlin/6502testsuite/source/andb.asm
Normal file
@@ -0,0 +1,337 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)andb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd and #0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "andz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
344
src/test/kotlin/6502testsuite/source/andix.asm
Normal file
344
src/test/kotlin/6502testsuite/source/andix.asm
Normal file
@@ -0,0 +1,344 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)andix"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd and (172,x)
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "andiy"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
349
src/test/kotlin/6502testsuite/source/andiy.asm
Normal file
349
src/test/kotlin/6502testsuite/source/andiy.asm
Normal file
@@ -0,0 +1,349 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)andiy"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta yb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd and (172),y
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc 172
|
||||
bne noinc
|
||||
inc 173
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec 173
|
||||
nodec dec yb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "orab"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
338
src/test/kotlin/6502testsuite/source/andz.asm
Normal file
338
src/test/kotlin/6502testsuite/source/andz.asm
Normal file
@@ -0,0 +1,338 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)andz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd and 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "andzx"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
342
src/test/kotlin/6502testsuite/source/andzx.asm
Normal file
342
src/test/kotlin/6502testsuite/source/andzx.asm
Normal file
@@ -0,0 +1,342 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)andzx"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
eor #$ff
|
||||
sta cmdr+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmdr ora #0
|
||||
eor #$ff
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd and 172,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "anda"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
341
src/test/kotlin/6502testsuite/source/aneb.asm
Normal file
341
src/test/kotlin/6502testsuite/source/aneb.asm
Normal file
@@ -0,0 +1,341 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)aneb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
|
||||
lda ab
|
||||
ora #$ee
|
||||
and xb
|
||||
and db
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
ldx ar
|
||||
bne nozero
|
||||
ora #%00000010
|
||||
nozero
|
||||
ldx ar
|
||||
bpl nominus
|
||||
ora #%10000000
|
||||
nominus
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
waitborder
|
||||
lda $d011
|
||||
bmi border
|
||||
lda $d012
|
||||
cmp #40
|
||||
bcs waitborder
|
||||
border
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $8b
|
||||
.byte 0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc ab
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda xb
|
||||
adc #17
|
||||
sta xb
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta xb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "lxab"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
409
src/test/kotlin/6502testsuite/source/arrb.asm
Normal file
409
src/test/kotlin/6502testsuite/source/arrb.asm
Normal file
@@ -0,0 +1,409 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)arrb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
|
||||
lda #%00001000
|
||||
bit pb
|
||||
bne decimal
|
||||
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and db
|
||||
ror a
|
||||
sta ar
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
ldx ar
|
||||
bne nozero
|
||||
ora #%00000010
|
||||
nozero
|
||||
ldx ar
|
||||
bpl nominus
|
||||
ora #%10000000
|
||||
nominus
|
||||
tax
|
||||
lda ar
|
||||
and #%01000000
|
||||
beq nocarry
|
||||
inx
|
||||
nocarry
|
||||
lda ar
|
||||
and #%01100000
|
||||
beq noover
|
||||
cmp #%01100000
|
||||
beq noover
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
noover
|
||||
stx pr
|
||||
jmp nodecimal
|
||||
|
||||
decimal
|
||||
lda pb
|
||||
lsr a
|
||||
lda ab
|
||||
and db
|
||||
sta aa
|
||||
ror a
|
||||
sta ar
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111100
|
||||
ldx ar
|
||||
bne dnozero
|
||||
ora #%00000010
|
||||
dnozero
|
||||
ldx ar
|
||||
bpl dnominus
|
||||
ora #%10000000
|
||||
dnominus
|
||||
tax
|
||||
lda ar
|
||||
eor aa
|
||||
and #%01000000
|
||||
beq dnoover
|
||||
txa
|
||||
ora #%01000000
|
||||
tax
|
||||
dnoover
|
||||
lda aa
|
||||
and #$0f
|
||||
cmp #$05
|
||||
bcc noadjustlow
|
||||
lda ar
|
||||
and #$f0
|
||||
sta andlow+1
|
||||
lda ar
|
||||
clc
|
||||
adc #$06
|
||||
and #$0f
|
||||
andlow ora #$11
|
||||
sta ar
|
||||
noadjustlow
|
||||
lda aa
|
||||
and #$f0
|
||||
cmp #$50
|
||||
bcc noadjusthigh
|
||||
inx
|
||||
lda ar
|
||||
clc
|
||||
adc #$60
|
||||
sta ar
|
||||
noadjusthigh
|
||||
stx pr
|
||||
|
||||
nodecimal
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $6b
|
||||
.byte 0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "aneb"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
325
src/test/kotlin/6502testsuite/source/asla.asm
Normal file
325
src/test/kotlin/6502testsuite/source/asla.asm
Normal file
@@ -0,0 +1,325 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asla"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
asl dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda dr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda dr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd asl da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "aslax"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
334
src/test/kotlin/6502testsuite/source/aslax.asm
Normal file
334
src/test/kotlin/6502testsuite/source/aslax.asm
Normal file
@@ -0,0 +1,334 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)aslax"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
asl dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda dr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda dr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd asl da,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda xb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec xb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "lsrn"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
326
src/test/kotlin/6502testsuite/source/asln.asm
Normal file
326
src/test/kotlin/6502testsuite/source/asln.asm
Normal file
@@ -0,0 +1,326 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asln"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta aa
|
||||
sta ar
|
||||
asl ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda ar
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda ab
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd asl a
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc ab
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "aslz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
327
src/test/kotlin/6502testsuite/source/aslz.asm
Normal file
327
src/test/kotlin/6502testsuite/source/aslz.asm
Normal file
@@ -0,0 +1,327 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)aslz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
asl dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda dr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda dr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd asl 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "aslzx"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
331
src/test/kotlin/6502testsuite/source/aslzx.asm
Normal file
331
src/test/kotlin/6502testsuite/source/aslzx.asm
Normal file
@@ -0,0 +1,331 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)aslzx"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
asl dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda dr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda dr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd asl 172,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "asla"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
326
src/test/kotlin/6502testsuite/source/asoa.asm
Normal file
326
src/test/kotlin/6502testsuite/source/asoa.asm
Normal file
@@ -0,0 +1,326 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asoa"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
asl a
|
||||
sta dr
|
||||
|
||||
ora ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda ar
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $0f
|
||||
.word da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "asoax"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
335
src/test/kotlin/6502testsuite/source/asoax.asm
Normal file
335
src/test/kotlin/6502testsuite/source/asoax.asm
Normal file
@@ -0,0 +1,335 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asoax"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
asl a
|
||||
sta dr
|
||||
|
||||
ora ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda ar
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $1f
|
||||
.word da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda xb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec xb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "asoay"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
335
src/test/kotlin/6502testsuite/source/asoay.asm
Normal file
335
src/test/kotlin/6502testsuite/source/asoay.asm
Normal file
@@ -0,0 +1,335 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asoay"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
asl a
|
||||
sta dr
|
||||
|
||||
ora ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda ar
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $1b
|
||||
.word da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec yb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "asoix"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
334
src/test/kotlin/6502testsuite/source/asoix.asm
Normal file
334
src/test/kotlin/6502testsuite/source/asoix.asm
Normal file
@@ -0,0 +1,334 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asoix"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
asl a
|
||||
sta dr
|
||||
|
||||
ora ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda ar
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $03
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "asoiy"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
340
src/test/kotlin/6502testsuite/source/asoiy.asm
Normal file
340
src/test/kotlin/6502testsuite/source/asoiy.asm
Normal file
@@ -0,0 +1,340 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asoiy"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta yb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
asl a
|
||||
sta dr
|
||||
|
||||
ora ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda ar
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $13
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc 172
|
||||
bne noinc
|
||||
inc 173
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec 173
|
||||
nodec dec yb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "rlaz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
328
src/test/kotlin/6502testsuite/source/asoz.asm
Normal file
328
src/test/kotlin/6502testsuite/source/asoz.asm
Normal file
@@ -0,0 +1,328 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asoz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
asl a
|
||||
sta dr
|
||||
|
||||
ora ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda ar
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $07
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "asozx"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
333
src/test/kotlin/6502testsuite/source/asozx.asm
Normal file
333
src/test/kotlin/6502testsuite/source/asozx.asm
Normal file
@@ -0,0 +1,333 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)asozx"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
asl a
|
||||
sta dr
|
||||
|
||||
ora ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda ar
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg lda db
|
||||
bpl nocarry
|
||||
txa
|
||||
ora #%00000001
|
||||
tax
|
||||
nocarry stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $17
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
|
||||
inc xb
|
||||
dec cmd+1
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "asoa"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
309
src/test/kotlin/6502testsuite/source/axsa.asm
Normal file
309
src/test/kotlin/6502testsuite/source/axsa.asm
Normal file
@@ -0,0 +1,309 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)axsa"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
and xb
|
||||
sta dr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $8f
|
||||
.word da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc ab
|
||||
bne jmpnext
|
||||
inc xb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "axsix"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
314
src/test/kotlin/6502testsuite/source/axsix.asm
Normal file
314
src/test/kotlin/6502testsuite/source/axsix.asm
Normal file
@@ -0,0 +1,314 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)axsix"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta ab
|
||||
sta xb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
and xb
|
||||
sta dr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $83
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc ab
|
||||
bne jmpnext
|
||||
inc xb
|
||||
dec cmd+1
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "alrb"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
311
src/test/kotlin/6502testsuite/source/axsz.asm
Normal file
311
src/test/kotlin/6502testsuite/source/axsz.asm
Normal file
@@ -0,0 +1,311 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)axsz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
and xb
|
||||
sta dr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $87
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc ab
|
||||
bne jmpnext
|
||||
inc xb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "axszy"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
315
src/test/kotlin/6502testsuite/source/axszy.asm
Normal file
315
src/test/kotlin/6502testsuite/source/axszy.asm
Normal file
@@ -0,0 +1,315 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)axszy"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta ab
|
||||
sta xb
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
and xb
|
||||
sta dr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $97
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc yb
|
||||
dec cmd+1
|
||||
|
||||
inc ab
|
||||
bne jmpnext
|
||||
inc xb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "axsa"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
362
src/test/kotlin/6502testsuite/source/bccr.asm
Normal file
362
src/test/kotlin/6502testsuite/source/bccr.asm
Normal file
@@ -0,0 +1,362 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bccr"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #%00000000
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
lda #<break
|
||||
sta $0316
|
||||
lda #>break
|
||||
sta $0317
|
||||
|
||||
ldx #0
|
||||
txa
|
||||
fill sta $1082,x
|
||||
sta $1182,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
ldx cmd+1
|
||||
lda branch
|
||||
sta $1100,x
|
||||
lda db
|
||||
sta $1101,x
|
||||
|
||||
ldx sb
|
||||
stx sr
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break pla
|
||||
sta ya
|
||||
pla
|
||||
sta xa
|
||||
pla
|
||||
sta aa
|
||||
pla
|
||||
sta pa
|
||||
pla
|
||||
sta al+1
|
||||
pla
|
||||
sta ah+1
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #4
|
||||
bcc noinc
|
||||
iny
|
||||
noinc bit db
|
||||
bpl pos
|
||||
dey
|
||||
pos clc
|
||||
adc db
|
||||
bcc al
|
||||
iny
|
||||
al cmp #0
|
||||
bne err
|
||||
ah cpy #0
|
||||
beq noerr
|
||||
err jsr print
|
||||
.byte 13
|
||||
.text "wrong jump address"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
noerr jsr check
|
||||
|
||||
inc db
|
||||
lda db
|
||||
cmp #$fe
|
||||
bne jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
ldx cmd+1
|
||||
sta $1100,x
|
||||
inc cmd+1
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
sec
|
||||
branch bcc berr
|
||||
|
||||
ookk jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
berr jsr print
|
||||
.byte 13
|
||||
.text "no jump expected"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
jmp ookk
|
||||
|
||||
load jsr print
|
||||
name .text "bvsr"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
362
src/test/kotlin/6502testsuite/source/bcsr.asm
Normal file
362
src/test/kotlin/6502testsuite/source/bcsr.asm
Normal file
@@ -0,0 +1,362 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bcsr"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #%00000001
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
lda #<break
|
||||
sta $0316
|
||||
lda #>break
|
||||
sta $0317
|
||||
|
||||
ldx #0
|
||||
txa
|
||||
fill sta $1082,x
|
||||
sta $1182,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
ldx cmd+1
|
||||
lda branch
|
||||
sta $1100,x
|
||||
lda db
|
||||
sta $1101,x
|
||||
|
||||
ldx sb
|
||||
stx sr
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break pla
|
||||
sta ya
|
||||
pla
|
||||
sta xa
|
||||
pla
|
||||
sta aa
|
||||
pla
|
||||
sta pa
|
||||
pla
|
||||
sta al+1
|
||||
pla
|
||||
sta ah+1
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #4
|
||||
bcc noinc
|
||||
iny
|
||||
noinc bit db
|
||||
bpl pos
|
||||
dey
|
||||
pos clc
|
||||
adc db
|
||||
bcc al
|
||||
iny
|
||||
al cmp #0
|
||||
bne err
|
||||
ah cpy #0
|
||||
beq noerr
|
||||
err jsr print
|
||||
.byte 13
|
||||
.text "wrong jump address"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
noerr jsr check
|
||||
|
||||
inc db
|
||||
lda db
|
||||
cmp #$fe
|
||||
bne jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
ldx cmd+1
|
||||
sta $1100,x
|
||||
inc cmd+1
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
clc
|
||||
branch bcs berr
|
||||
|
||||
ookk jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
berr jsr print
|
||||
.byte 13
|
||||
.text "no jump expected"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
jmp ookk
|
||||
|
||||
load jsr print
|
||||
name .text "bccr"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
362
src/test/kotlin/6502testsuite/source/beqr.asm
Normal file
362
src/test/kotlin/6502testsuite/source/beqr.asm
Normal file
@@ -0,0 +1,362 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)beqr"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #%00000010
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
lda #<break
|
||||
sta $0316
|
||||
lda #>break
|
||||
sta $0317
|
||||
|
||||
ldx #0
|
||||
txa
|
||||
fill sta $1082,x
|
||||
sta $1182,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
ldx cmd+1
|
||||
lda branch
|
||||
sta $1100,x
|
||||
lda db
|
||||
sta $1101,x
|
||||
|
||||
ldx sb
|
||||
stx sr
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break pla
|
||||
sta ya
|
||||
pla
|
||||
sta xa
|
||||
pla
|
||||
sta aa
|
||||
pla
|
||||
sta pa
|
||||
pla
|
||||
sta al+1
|
||||
pla
|
||||
sta ah+1
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #4
|
||||
bcc noinc
|
||||
iny
|
||||
noinc bit db
|
||||
bpl pos
|
||||
dey
|
||||
pos clc
|
||||
adc db
|
||||
bcc al
|
||||
iny
|
||||
al cmp #0
|
||||
bne err
|
||||
ah cpy #0
|
||||
beq noerr
|
||||
err jsr print
|
||||
.byte 13
|
||||
.text "wrong jump address"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
noerr jsr check
|
||||
|
||||
inc db
|
||||
lda db
|
||||
cmp #$fe
|
||||
bne jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
ldx cmd+1
|
||||
sta $1100,x
|
||||
inc cmd+1
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
lda #1
|
||||
branch beq berr
|
||||
|
||||
ookk jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
berr jsr print
|
||||
.byte 13
|
||||
.text "no jump expected"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
jmp ookk
|
||||
|
||||
load jsr print
|
||||
name .text "bner"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
331
src/test/kotlin/6502testsuite/source/bita.asm
Normal file
331
src/test/kotlin/6502testsuite/source/bita.asm
Normal file
@@ -0,0 +1,331 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bita"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111101
|
||||
tax
|
||||
lda ab
|
||||
and db
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda db
|
||||
and #%11000000
|
||||
sta l0+1
|
||||
txa
|
||||
l0 ora #0
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd bit da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "brkn"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
333
src/test/kotlin/6502testsuite/source/bitz.asm
Normal file
333
src/test/kotlin/6502testsuite/source/bitz.asm
Normal file
@@ -0,0 +1,333 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bitz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%00111101
|
||||
tax
|
||||
lda ab
|
||||
and db
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda db
|
||||
and #%11000000
|
||||
sta l0+1
|
||||
txa
|
||||
l0 ora #0
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd bit 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "bita"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
362
src/test/kotlin/6502testsuite/source/bmir.asm
Normal file
362
src/test/kotlin/6502testsuite/source/bmir.asm
Normal file
@@ -0,0 +1,362 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bmir"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #%10000000
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
lda #<break
|
||||
sta $0316
|
||||
lda #>break
|
||||
sta $0317
|
||||
|
||||
ldx #0
|
||||
txa
|
||||
fill sta $1082,x
|
||||
sta $1182,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
ldx cmd+1
|
||||
lda branch
|
||||
sta $1100,x
|
||||
lda db
|
||||
sta $1101,x
|
||||
|
||||
ldx sb
|
||||
stx sr
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break pla
|
||||
sta ya
|
||||
pla
|
||||
sta xa
|
||||
pla
|
||||
sta aa
|
||||
pla
|
||||
sta pa
|
||||
pla
|
||||
sta al+1
|
||||
pla
|
||||
sta ah+1
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #4
|
||||
bcc noinc
|
||||
iny
|
||||
noinc bit db
|
||||
bpl pos
|
||||
dey
|
||||
pos clc
|
||||
adc db
|
||||
bcc al
|
||||
iny
|
||||
al cmp #0
|
||||
bne err
|
||||
ah cpy #0
|
||||
beq noerr
|
||||
err jsr print
|
||||
.byte 13
|
||||
.text "wrong jump address"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
noerr jsr check
|
||||
|
||||
inc db
|
||||
lda db
|
||||
cmp #$fe
|
||||
bne jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
ldx cmd+1
|
||||
sta $1100,x
|
||||
inc cmd+1
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
lda #$7f
|
||||
branch bmi berr
|
||||
|
||||
ookk jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
berr jsr print
|
||||
.byte 13
|
||||
.text "no jump expected"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
jmp ookk
|
||||
|
||||
load jsr print
|
||||
name .text "bplr"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
362
src/test/kotlin/6502testsuite/source/bner.asm
Normal file
362
src/test/kotlin/6502testsuite/source/bner.asm
Normal file
@@ -0,0 +1,362 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bner"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #%00000000
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
lda #<break
|
||||
sta $0316
|
||||
lda #>break
|
||||
sta $0317
|
||||
|
||||
ldx #0
|
||||
txa
|
||||
fill sta $1082,x
|
||||
sta $1182,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
ldx cmd+1
|
||||
lda branch
|
||||
sta $1100,x
|
||||
lda db
|
||||
sta $1101,x
|
||||
|
||||
ldx sb
|
||||
stx sr
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break pla
|
||||
sta ya
|
||||
pla
|
||||
sta xa
|
||||
pla
|
||||
sta aa
|
||||
pla
|
||||
sta pa
|
||||
pla
|
||||
sta al+1
|
||||
pla
|
||||
sta ah+1
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #4
|
||||
bcc noinc
|
||||
iny
|
||||
noinc bit db
|
||||
bpl pos
|
||||
dey
|
||||
pos clc
|
||||
adc db
|
||||
bcc al
|
||||
iny
|
||||
al cmp #0
|
||||
bne err
|
||||
ah cpy #0
|
||||
beq noerr
|
||||
err jsr print
|
||||
.byte 13
|
||||
.text "wrong jump address"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
noerr jsr check
|
||||
|
||||
inc db
|
||||
lda db
|
||||
cmp #$fe
|
||||
bne jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
ldx cmd+1
|
||||
sta $1100,x
|
||||
inc cmd+1
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
lda #0
|
||||
branch bne berr
|
||||
|
||||
ookk jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
berr jsr print
|
||||
.byte 13
|
||||
.text "no jump expected"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
jmp ookk
|
||||
|
||||
load jsr print
|
||||
name .text "bmir"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
362
src/test/kotlin/6502testsuite/source/bplr.asm
Normal file
362
src/test/kotlin/6502testsuite/source/bplr.asm
Normal file
@@ -0,0 +1,362 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bplr"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #%00000000
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
lda #<break
|
||||
sta $0316
|
||||
lda #>break
|
||||
sta $0317
|
||||
|
||||
ldx #0
|
||||
txa
|
||||
fill sta $1082,x
|
||||
sta $1182,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
ldx cmd+1
|
||||
lda branch
|
||||
sta $1100,x
|
||||
lda db
|
||||
sta $1101,x
|
||||
|
||||
ldx sb
|
||||
stx sr
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break pla
|
||||
sta ya
|
||||
pla
|
||||
sta xa
|
||||
pla
|
||||
sta aa
|
||||
pla
|
||||
sta pa
|
||||
pla
|
||||
sta al+1
|
||||
pla
|
||||
sta ah+1
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #4
|
||||
bcc noinc
|
||||
iny
|
||||
noinc bit db
|
||||
bpl pos
|
||||
dey
|
||||
pos clc
|
||||
adc db
|
||||
bcc al
|
||||
iny
|
||||
al cmp #0
|
||||
bne err
|
||||
ah cpy #0
|
||||
beq noerr
|
||||
err jsr print
|
||||
.byte 13
|
||||
.text "wrong jump address"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
noerr jsr check
|
||||
|
||||
inc db
|
||||
lda db
|
||||
cmp #$fe
|
||||
bne jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
ldx cmd+1
|
||||
sta $1100,x
|
||||
inc cmd+1
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
lda #$80
|
||||
branch bpl berr
|
||||
|
||||
ookk jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
berr jsr print
|
||||
.byte 13
|
||||
.text "no jump expected"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
jmp ookk
|
||||
|
||||
load jsr print
|
||||
name .text "bcsr"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
@@ -0,0 +1,5 @@
|
||||
|
||||
|
||||
branchwrap.asm
|
||||
|
||||
|
||||
374
src/test/kotlin/6502testsuite/source/brkn.asm
Normal file
374
src/test/kotlin/6502testsuite/source/brkn.asm
Normal file
@@ -0,0 +1,374 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)brkn"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
tsx
|
||||
stx saves+1
|
||||
ldx #0
|
||||
save lda $0100,x
|
||||
sta $1000,x
|
||||
inx
|
||||
bne save
|
||||
|
||||
lda #0
|
||||
fill sta $1100,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
lda #<break
|
||||
sta $fffe
|
||||
lda #>break
|
||||
sta $ffff
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110100
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sec
|
||||
sbc #3
|
||||
sta sr
|
||||
|
||||
lda #127
|
||||
sta $dc0d
|
||||
lda $dc0d
|
||||
lda #$30
|
||||
sta 1
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
lda #$37
|
||||
sta 1
|
||||
lda #129
|
||||
sta $dc0d
|
||||
|
||||
jsr check
|
||||
|
||||
tsx
|
||||
lda pb
|
||||
ora #%00110000
|
||||
inx
|
||||
cmp $0100,x
|
||||
bne ste
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #2
|
||||
bcc noinc
|
||||
iny
|
||||
noinc inx
|
||||
cmp $0100,x
|
||||
bne ste
|
||||
inx
|
||||
tya
|
||||
cmp $0100,x
|
||||
beq stok
|
||||
ste jsr print
|
||||
.byte 13
|
||||
.text "wrong data on stack"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
stok
|
||||
|
||||
inc cmd+1
|
||||
dec sb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
saves ldx #0
|
||||
txs
|
||||
ldx #0
|
||||
restore lda $1000,x
|
||||
sta $0100,x
|
||||
inx
|
||||
bne restore
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "rtin"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
ldx saves+1
|
||||
txs
|
||||
ldx #0
|
||||
restore2 lda $1000,x
|
||||
sta $0100,x
|
||||
inx
|
||||
bne restore2
|
||||
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
363
src/test/kotlin/6502testsuite/source/bvcr.asm
Normal file
363
src/test/kotlin/6502testsuite/source/bvcr.asm
Normal file
@@ -0,0 +1,363 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bvcr"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #%00000000
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
lda #<break
|
||||
sta $0316
|
||||
lda #>break
|
||||
sta $0317
|
||||
|
||||
ldx #0
|
||||
txa
|
||||
fill sta $1082,x
|
||||
sta $1182,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
ldx cmd+1
|
||||
lda branch
|
||||
sta $1100,x
|
||||
lda db
|
||||
sta $1101,x
|
||||
|
||||
ldx sb
|
||||
stx sr
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break pla
|
||||
sta ya
|
||||
pla
|
||||
sta xa
|
||||
pla
|
||||
sta aa
|
||||
pla
|
||||
sta pa
|
||||
pla
|
||||
sta al+1
|
||||
pla
|
||||
sta ah+1
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #4
|
||||
bcc noinc
|
||||
iny
|
||||
noinc bit db
|
||||
bpl pos
|
||||
dey
|
||||
pos clc
|
||||
adc db
|
||||
bcc al
|
||||
iny
|
||||
al cmp #0
|
||||
bne err
|
||||
ah cpy #0
|
||||
beq noerr
|
||||
err jsr print
|
||||
.byte 13
|
||||
.text "wrong jump address"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
noerr jsr check
|
||||
|
||||
inc db
|
||||
lda db
|
||||
cmp #$fe
|
||||
bne jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
ldx cmd+1
|
||||
sta $1100,x
|
||||
inc cmd+1
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
lda #$40
|
||||
adc #$40
|
||||
branch bvc berr
|
||||
|
||||
ookk jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
berr jsr print
|
||||
.byte 13
|
||||
.text "no jump expected"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
jmp ookk
|
||||
|
||||
load jsr print
|
||||
name .text "nopn"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
362
src/test/kotlin/6502testsuite/source/bvsr.asm
Normal file
362
src/test/kotlin/6502testsuite/source/bvsr.asm
Normal file
@@ -0,0 +1,362 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)bvsr"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #%01000000
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
lda #<break
|
||||
sta $0316
|
||||
lda #>break
|
||||
sta $0317
|
||||
|
||||
ldx #0
|
||||
txa
|
||||
fill sta $1082,x
|
||||
sta $1182,x
|
||||
inx
|
||||
bne fill
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
sta pr
|
||||
|
||||
ldx cmd+1
|
||||
lda branch
|
||||
sta $1100,x
|
||||
lda db
|
||||
sta $1101,x
|
||||
|
||||
ldx sb
|
||||
stx sr
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd jmp $1100
|
||||
|
||||
break pla
|
||||
sta ya
|
||||
pla
|
||||
sta xa
|
||||
pla
|
||||
sta aa
|
||||
pla
|
||||
sta pa
|
||||
pla
|
||||
sta al+1
|
||||
pla
|
||||
sta ah+1
|
||||
tsx
|
||||
stx sa
|
||||
|
||||
clc
|
||||
lda cmd+1
|
||||
ldy cmd+2
|
||||
adc #4
|
||||
bcc noinc
|
||||
iny
|
||||
noinc bit db
|
||||
bpl pos
|
||||
dey
|
||||
pos clc
|
||||
adc db
|
||||
bcc al
|
||||
iny
|
||||
al cmp #0
|
||||
bne err
|
||||
ah cpy #0
|
||||
beq noerr
|
||||
err jsr print
|
||||
.byte 13
|
||||
.text "wrong jump address"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
noerr jsr check
|
||||
|
||||
inc db
|
||||
lda db
|
||||
cmp #$fe
|
||||
bne jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
ldx cmd+1
|
||||
sta $1100,x
|
||||
inc cmd+1
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
clv
|
||||
branch bvs berr
|
||||
|
||||
ookk jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wt jsr $ffe4
|
||||
beq wt
|
||||
jmp $8000
|
||||
|
||||
berr jsr print
|
||||
.byte 13
|
||||
.text "no jump expected"
|
||||
.byte 13,0
|
||||
jsr wait
|
||||
jmp ookk
|
||||
|
||||
load jsr print
|
||||
name .text "bvcr"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
531
src/test/kotlin/6502testsuite/source/cia1pb6.asm
Normal file
531
src/test/kotlin/6502testsuite/source/cia1pb6.asm
Normal file
@@ -0,0 +1,531 @@
|
||||
;---------------------------------------
|
||||
;cia1pb6.asm - this file is part
|
||||
;of the C64 Emulator Test Suite
|
||||
;public domain, no copyright
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
.block
|
||||
lda #1
|
||||
sta turboass
|
||||
ldx #0
|
||||
stx $d3
|
||||
lda thisname
|
||||
printthis
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda thisname,x
|
||||
bne printthis
|
||||
jsr main
|
||||
lda #$37
|
||||
sta 1
|
||||
lda #$2f
|
||||
sta 0
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq loadnext
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
.bend
|
||||
loadnext
|
||||
.block
|
||||
ldx #$f8
|
||||
txs
|
||||
lda nextname
|
||||
cmp #"-"
|
||||
bne notempty
|
||||
jmp $a474
|
||||
notempty
|
||||
ldx #0
|
||||
printnext
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda nextname,x
|
||||
bne printnext
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
stx $b7
|
||||
lda #<nextname
|
||||
sta $bb
|
||||
lda #>nextname
|
||||
sta $bc
|
||||
jmp $e16f
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print text which immediately follows
|
||||
;the JSR and return to address after 0
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta next+1
|
||||
pla
|
||||
sta next+2
|
||||
ldx #1
|
||||
next
|
||||
lda $1111,x
|
||||
beq end
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne next
|
||||
end
|
||||
sec
|
||||
txa
|
||||
adc next+1
|
||||
sta return+1
|
||||
lda #0
|
||||
adc next+2
|
||||
sta return+2
|
||||
return
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print hex byte
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc noletter
|
||||
adc #6
|
||||
noletter
|
||||
jmp $ffd2
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait until raster line is in border
|
||||
;to prevent getting disturbed by DMAs
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait for a key and check for STOP
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
cli
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq load
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "break"
|
||||
.byte 13,0
|
||||
jmp loadnext
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
thisname .null "cia1pb6"
|
||||
nextname .null "cia1pb7"
|
||||
|
||||
main
|
||||
|
||||
;---------------------------------------
|
||||
;old cra 0 start
|
||||
; cra 1 pb6out
|
||||
; cra 2 pb6toggle
|
||||
;new cra 0 start
|
||||
; cra 1 pb6out
|
||||
; cra 2 pb6toggle
|
||||
; cra 4 force load
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
i .byte 0
|
||||
old .byte 0
|
||||
new .byte 0
|
||||
or .byte 0
|
||||
right .text "----------------"
|
||||
.text "0000000000000000"
|
||||
.text "----------------"
|
||||
.text "1111111111111111"
|
||||
.text "----------------"
|
||||
.text "0000000000000000"
|
||||
.text "----------------"
|
||||
.text "1111111111111111"
|
||||
|
||||
start
|
||||
lda #0
|
||||
sta i
|
||||
loop
|
||||
lda #$40
|
||||
sta $dc03
|
||||
lda #0
|
||||
sta $dc01
|
||||
sta $dc0e
|
||||
sta $dc0f
|
||||
lda #127
|
||||
sta $dc0d
|
||||
bit $dc0d
|
||||
lda #$ff
|
||||
sta $dc04
|
||||
sta $dc05
|
||||
lda i
|
||||
and #%00000111
|
||||
sta $dc0e
|
||||
sta old
|
||||
lda i
|
||||
lsr a
|
||||
lsr a
|
||||
pha
|
||||
and #%00010000
|
||||
sta or
|
||||
pla
|
||||
lsr a
|
||||
and #%00000111
|
||||
ora or
|
||||
sta $dc0e
|
||||
sta new
|
||||
lda $dc01
|
||||
eor #$40
|
||||
sta $dc01
|
||||
cmp $dc01
|
||||
beq minus
|
||||
eor #$40
|
||||
asl a
|
||||
asl a
|
||||
lda #"0"/2
|
||||
rol a
|
||||
jmp nominus
|
||||
minus
|
||||
lda #"-"
|
||||
nominus
|
||||
ldx i
|
||||
cmp right,x
|
||||
beq ok
|
||||
pha
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "old new pb6 "
|
||||
.byte 0
|
||||
lda old
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda new
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
pla
|
||||
jsr $ffd2
|
||||
jsr waitkey
|
||||
ok
|
||||
inc i
|
||||
bmi end
|
||||
jmp loop
|
||||
end
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;toggle pb6, cra one shot, start timer
|
||||
;-> pb6 must be high
|
||||
;wait until cra has stopped
|
||||
;-> pb6 must be low
|
||||
;write cra, write ta low/high, force
|
||||
;load, pb6on, pb6toggle
|
||||
;-> pb6 must remain low
|
||||
;start
|
||||
;-> pb6 must go high
|
||||
|
||||
.block
|
||||
lda #0
|
||||
sta $dc0e
|
||||
ldx #100
|
||||
stx $dc04
|
||||
sta $dc05
|
||||
sei
|
||||
jsr waitborder
|
||||
lda #$0f
|
||||
sta $dc0e
|
||||
lda #$40
|
||||
bit $dc01
|
||||
bne ok1
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb6 is not high"
|
||||
jsr waitkey
|
||||
ok1
|
||||
lda #$01
|
||||
wait
|
||||
bit $dc0e
|
||||
bne wait
|
||||
lda #$40
|
||||
bit $dc01
|
||||
beq ok2
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb6 is not low"
|
||||
jsr waitkey
|
||||
ok2
|
||||
lda #$0e
|
||||
sta $dc0e
|
||||
lda #$40
|
||||
bit $dc01
|
||||
beq ok3
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing cra may "
|
||||
.text "not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok3
|
||||
lda #100
|
||||
sta $dc04
|
||||
lda #$40
|
||||
bit $dc01
|
||||
beq ok4
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing ta low may "
|
||||
.text "not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok4
|
||||
lda #0
|
||||
sta $dc05
|
||||
lda #$40
|
||||
bit $dc01
|
||||
beq ok5
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing ta high may "
|
||||
.text "not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok5
|
||||
lda #$1e
|
||||
sta $dc0e
|
||||
lda #$40
|
||||
bit $dc01
|
||||
beq ok6
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "force load may "
|
||||
.text "not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok6
|
||||
lda #%00001010
|
||||
sta $dc0e
|
||||
lda #%00001110
|
||||
sta $dc0e
|
||||
lda #$40
|
||||
bit $dc01
|
||||
beq ok7
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "switching toggle "
|
||||
.text "may not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok7
|
||||
lda #%00001100
|
||||
sta $dc0e
|
||||
lda #%00001110
|
||||
sta $dc0e
|
||||
lda #$40
|
||||
bit $dc01
|
||||
beq ok8
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "switching pb6on "
|
||||
.text "may not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok8
|
||||
sei
|
||||
jsr waitborder
|
||||
lda #%00000111
|
||||
sta $dc0e
|
||||
lda #$40
|
||||
bit $dc01
|
||||
bne ok9
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "start must set "
|
||||
.text "pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok9
|
||||
lda #$40
|
||||
ldx #0
|
||||
waitlow0
|
||||
dex
|
||||
beq timeout
|
||||
bit $dc01
|
||||
bne waitlow0
|
||||
waithigh0
|
||||
dex
|
||||
beq timeout
|
||||
bit $dc01
|
||||
beq waithigh0
|
||||
waitlow1
|
||||
dex
|
||||
beq timeout
|
||||
bit $dc01
|
||||
bne waitlow1
|
||||
waithigh1
|
||||
dex
|
||||
beq timeout
|
||||
bit $dc01
|
||||
beq waithigh1
|
||||
jmp ok
|
||||
timeout
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb6 toggle timed out"
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;cra pb6on/toggle 4 combinations
|
||||
;wait until underflow
|
||||
;set both pb6on and toggle
|
||||
;-> pb6 must be independent from
|
||||
; pb6on/toggle state at underflow
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
i .byte 0
|
||||
|
||||
start
|
||||
lda #3
|
||||
sta i
|
||||
loop
|
||||
lda #0
|
||||
sta $dc0e
|
||||
lda #15
|
||||
sta $dc04
|
||||
lda #0
|
||||
sta $dc05
|
||||
sei
|
||||
jsr waitborder
|
||||
lda i
|
||||
sec
|
||||
rol a
|
||||
sta $dc0e
|
||||
ldx #$07
|
||||
stx $dc0e
|
||||
ldy $dc01
|
||||
sta $dc0e
|
||||
ldx #$07
|
||||
stx $dc0e
|
||||
lda $dc01
|
||||
and #$40
|
||||
bne error
|
||||
tya
|
||||
and #$40
|
||||
bne ok
|
||||
error
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "toggle state is not "
|
||||
.null "independent "
|
||||
lda i
|
||||
jsr printhb
|
||||
jsr waitkey
|
||||
ok
|
||||
dec i
|
||||
bpl loop
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;check pb6 timing
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
settab .byte 7,7,7,7,7,7
|
||||
.byte 3,3,3,3,3,3,3,3
|
||||
loadtab .byte 7,6,3,2,1,0
|
||||
.byte 7,6,5,4,3,2,1,0
|
||||
comptab .byte 1,0,0,1,0,0
|
||||
.byte 0,1,0,0,0,0,0,1
|
||||
|
||||
i .byte 0
|
||||
|
||||
start
|
||||
lda #loadtab-settab-1
|
||||
sta i
|
||||
loop
|
||||
lda #0
|
||||
sta $dc0e
|
||||
ldx i
|
||||
lda loadtab,x
|
||||
sta $dc04
|
||||
lda #0
|
||||
sta $dc05
|
||||
sei
|
||||
jsr waitborder
|
||||
ldx i
|
||||
lda settab,x
|
||||
sta $dc0e
|
||||
nop
|
||||
nop
|
||||
lda $dc01
|
||||
asl a
|
||||
asl a
|
||||
lda #0
|
||||
rol a
|
||||
cmp comptab,x
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "timing error index "
|
||||
lda i
|
||||
jsr printhb
|
||||
jsr waitkey
|
||||
ok
|
||||
dec i
|
||||
bpl loop
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
rts
|
||||
|
||||
|
||||
529
src/test/kotlin/6502testsuite/source/cia1pb7.asm
Normal file
529
src/test/kotlin/6502testsuite/source/cia1pb7.asm
Normal file
@@ -0,0 +1,529 @@
|
||||
;---------------------------------------
|
||||
;cia1pb7.asm - this file is part
|
||||
;of the C64 Emulator Test Suite
|
||||
;public domain, no copyright
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
.block
|
||||
lda #1
|
||||
sta turboass
|
||||
ldx #0
|
||||
stx $d3
|
||||
lda thisname
|
||||
printthis
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda thisname,x
|
||||
bne printthis
|
||||
jsr main
|
||||
lda #$37
|
||||
sta 1
|
||||
lda #$2f
|
||||
sta 0
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq loadnext
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
.bend
|
||||
loadnext
|
||||
.block
|
||||
ldx #$f8
|
||||
txs
|
||||
lda nextname
|
||||
cmp #"-"
|
||||
bne notempty
|
||||
jmp $a474
|
||||
notempty
|
||||
ldx #0
|
||||
printnext
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda nextname,x
|
||||
bne printnext
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
stx $b7
|
||||
lda #<nextname
|
||||
sta $bb
|
||||
lda #>nextname
|
||||
sta $bc
|
||||
jmp $e16f
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print text which immediately follows
|
||||
;the JSR and return to address after 0
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta next+1
|
||||
pla
|
||||
sta next+2
|
||||
ldx #1
|
||||
next
|
||||
lda $1111,x
|
||||
beq end
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne next
|
||||
end
|
||||
sec
|
||||
txa
|
||||
adc next+1
|
||||
sta return+1
|
||||
lda #0
|
||||
adc next+2
|
||||
sta return+2
|
||||
return
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print hex byte
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc noletter
|
||||
adc #6
|
||||
noletter
|
||||
jmp $ffd2
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait until raster line is in border
|
||||
;to prevent getting disturbed by DMAs
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait for a key and check for STOP
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
cli
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq load
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "break"
|
||||
.byte 13,0
|
||||
jmp loadnext
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
thisname .null "cia1pb7"
|
||||
nextname .null "cia2pb6"
|
||||
|
||||
main
|
||||
|
||||
;---------------------------------------
|
||||
;old crb 0 start
|
||||
; crb 1 pb7out
|
||||
; crb 2 pb7toggle
|
||||
;new crb 0 start
|
||||
; crb 1 pb7out
|
||||
; crb 2 pb7toggle
|
||||
; crb 4 force load
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
i .byte 0
|
||||
old .byte 0
|
||||
new .byte 0
|
||||
or .byte 0
|
||||
right .text "----------------"
|
||||
.text "0000000000000000"
|
||||
.text "----------------"
|
||||
.text "1111111111111111"
|
||||
.text "----------------"
|
||||
.text "0000000000000000"
|
||||
.text "----------------"
|
||||
.text "1111111111111111"
|
||||
|
||||
start
|
||||
lda #0
|
||||
sta i
|
||||
loop
|
||||
lda #$80
|
||||
sta $dc03
|
||||
lda #0
|
||||
sta $dc01
|
||||
sta $dc0e
|
||||
sta $dc0f
|
||||
lda #127
|
||||
sta $dc0d
|
||||
bit $dc0d
|
||||
lda #$ff
|
||||
sta $dc06
|
||||
sta $dc07
|
||||
lda i
|
||||
and #%00000111
|
||||
sta $dc0f
|
||||
sta old
|
||||
lda i
|
||||
lsr a
|
||||
lsr a
|
||||
pha
|
||||
and #%00010000
|
||||
sta or
|
||||
pla
|
||||
lsr a
|
||||
and #%00000111
|
||||
ora or
|
||||
sta $dc0f
|
||||
sta new
|
||||
lda $dc01
|
||||
eor #$80
|
||||
sta $dc01
|
||||
cmp $dc01
|
||||
beq minus
|
||||
eor #$80
|
||||
asl a
|
||||
lda #"0"/2
|
||||
rol a
|
||||
jmp nominus
|
||||
minus
|
||||
lda #"-"
|
||||
nominus
|
||||
ldx i
|
||||
cmp right,x
|
||||
beq ok
|
||||
pha
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "old new pb7 "
|
||||
.byte 0
|
||||
lda old
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda new
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
pla
|
||||
jsr $ffd2
|
||||
jsr waitkey
|
||||
ok
|
||||
inc i
|
||||
bmi end
|
||||
jmp loop
|
||||
end
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;toggle pb7, crb one shot, start timer
|
||||
;-> pb7 must be high
|
||||
;wait until crb has stopped
|
||||
;-> pb7 must be low
|
||||
;write crb, write ta low/high, force
|
||||
;load, pb7on, pb7toggle
|
||||
;-> pb7 must remain low
|
||||
;start
|
||||
;-> pb7 must go high
|
||||
|
||||
.block
|
||||
lda #0
|
||||
sta $dc0f
|
||||
ldx #100
|
||||
stx $dc06
|
||||
sta $dc07
|
||||
sei
|
||||
jsr waitborder
|
||||
lda #$0f
|
||||
sta $dc0f
|
||||
lda #$80
|
||||
bit $dc01
|
||||
bne ok1
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb7 is not high"
|
||||
jsr waitkey
|
||||
ok1
|
||||
lda #$01
|
||||
wait
|
||||
bit $dc0f
|
||||
bne wait
|
||||
lda #$80
|
||||
bit $dc01
|
||||
beq ok2
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb7 is not low"
|
||||
jsr waitkey
|
||||
ok2
|
||||
lda #$0e
|
||||
sta $dc0f
|
||||
lda #$80
|
||||
bit $dc01
|
||||
beq ok3
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing crb may "
|
||||
.text "not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok3
|
||||
lda #100
|
||||
sta $dc06
|
||||
lda #$80
|
||||
bit $dc01
|
||||
beq ok4
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing ta low may "
|
||||
.text "not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok4
|
||||
lda #0
|
||||
sta $dc05
|
||||
lda #$80
|
||||
bit $dc01
|
||||
beq ok5
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing ta high may "
|
||||
.text "not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok5
|
||||
lda #$1e
|
||||
sta $dc0f
|
||||
lda #$80
|
||||
bit $dc01
|
||||
beq ok6
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "force load may "
|
||||
.text "not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok6
|
||||
lda #%00001010
|
||||
sta $dc0f
|
||||
lda #%00001110
|
||||
sta $dc0f
|
||||
lda #$80
|
||||
bit $dc01
|
||||
beq ok7
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "switching toggle "
|
||||
.text "may not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok7
|
||||
lda #%00001100
|
||||
sta $dc0f
|
||||
lda #%00001110
|
||||
sta $dc0f
|
||||
lda #$80
|
||||
bit $dc01
|
||||
beq ok8
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "switching pb7on "
|
||||
.text "may not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok8
|
||||
sei
|
||||
jsr waitborder
|
||||
lda #%00000111
|
||||
sta $dc0f
|
||||
lda #$80
|
||||
bit $dc01
|
||||
bne ok9
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "start must set "
|
||||
.text "pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok9
|
||||
lda #$80
|
||||
ldx #0
|
||||
waitlow0
|
||||
dex
|
||||
beq timeout
|
||||
bit $dc01
|
||||
bne waitlow0
|
||||
waithigh0
|
||||
dex
|
||||
beq timeout
|
||||
bit $dc01
|
||||
beq waithigh0
|
||||
waitlow1
|
||||
dex
|
||||
beq timeout
|
||||
bit $dc01
|
||||
bne waitlow1
|
||||
waithigh1
|
||||
dex
|
||||
beq timeout
|
||||
bit $dc01
|
||||
beq waithigh1
|
||||
jmp ok
|
||||
timeout
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb7 toggle timed out"
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;crb pb7on/toggle 4 combinations
|
||||
;wait until underflow
|
||||
;set both pb7on and toggle
|
||||
;-> pb7 must be independent from
|
||||
; pb7on/toggle state at underflow
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
i .byte 0
|
||||
|
||||
start
|
||||
lda #3
|
||||
sta i
|
||||
loop
|
||||
lda #0
|
||||
sta $dc0f
|
||||
lda #15
|
||||
sta $dc06
|
||||
lda #0
|
||||
sta $dc07
|
||||
sei
|
||||
jsr waitborder
|
||||
lda i
|
||||
sec
|
||||
rol a
|
||||
sta $dc0f
|
||||
ldx #$07
|
||||
stx $dc0f
|
||||
ldy $dc01
|
||||
sta $dc0f
|
||||
ldx #$07
|
||||
stx $dc0f
|
||||
lda $dc01
|
||||
and #$80
|
||||
bne error
|
||||
tya
|
||||
and #$80
|
||||
bne ok
|
||||
error
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "toggle state is not "
|
||||
.null "independent "
|
||||
lda i
|
||||
jsr printhb
|
||||
jsr waitkey
|
||||
ok
|
||||
dec i
|
||||
bpl loop
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;check pb7 timing
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
settab .byte 7,7,7,7,7,7
|
||||
.byte 3,3,3,3,3,3,3,3
|
||||
loadtab .byte 7,6,3,2,1,0
|
||||
.byte 7,6,5,4,3,2,1,0
|
||||
comptab .byte 1,0,0,1,0,0
|
||||
.byte 0,1,0,0,0,0,0,1
|
||||
|
||||
i .byte 0
|
||||
|
||||
start
|
||||
lda #loadtab-settab-1
|
||||
sta i
|
||||
loop
|
||||
lda #0
|
||||
sta $dc0f
|
||||
ldx i
|
||||
lda loadtab,x
|
||||
sta $dc06
|
||||
lda #0
|
||||
sta $dc07
|
||||
sei
|
||||
jsr waitborder
|
||||
ldx i
|
||||
lda settab,x
|
||||
sta $dc0f
|
||||
nop
|
||||
nop
|
||||
lda $dc01
|
||||
asl a
|
||||
lda #0
|
||||
rol a
|
||||
cmp comptab,x
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "timing error index "
|
||||
lda i
|
||||
jsr printhb
|
||||
jsr waitkey
|
||||
ok
|
||||
dec i
|
||||
bpl loop
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
rts
|
||||
|
||||
|
||||
1058
src/test/kotlin/6502testsuite/source/cia1ta.asm
Normal file
1058
src/test/kotlin/6502testsuite/source/cia1ta.asm
Normal file
File diff suppressed because it is too large
Load Diff
294
src/test/kotlin/6502testsuite/source/cia1tab.asm
Normal file
294
src/test/kotlin/6502testsuite/source/cia1tab.asm
Normal file
@@ -0,0 +1,294 @@
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
lda #1
|
||||
sta turboass
|
||||
jmp main
|
||||
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0
|
||||
lda $1111,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1
|
||||
sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc printhn0
|
||||
adc #6
|
||||
printhn0
|
||||
jsr $ffd2
|
||||
rts
|
||||
.bend
|
||||
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fda3
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic
|
||||
jmp $a474
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
index .byte 0
|
||||
reg .byte 0
|
||||
areg .byte $04,$06,$01,$0d
|
||||
|
||||
main
|
||||
jsr print
|
||||
.byte 13,145
|
||||
.text "cia1tab"
|
||||
.byte 0
|
||||
|
||||
ldx #$7e
|
||||
lda #$ea ;nop
|
||||
makechain
|
||||
sta $2000,x
|
||||
dex
|
||||
bpl makechain
|
||||
lda #$60 ;rts
|
||||
sta $207f
|
||||
|
||||
sei
|
||||
lda #0
|
||||
sta write+1
|
||||
sta reg
|
||||
nextreg
|
||||
lda #0
|
||||
sta index
|
||||
nextindex
|
||||
lda #$ff
|
||||
sta $dc03
|
||||
lda #$00
|
||||
sta $dc01
|
||||
sta $dc0e
|
||||
sta $dc0f
|
||||
lda #$7f
|
||||
sta $dc0d
|
||||
bit $dc0d
|
||||
lda #21
|
||||
sta $dc04
|
||||
lda #2
|
||||
sta $dc06
|
||||
ldx #0
|
||||
stx $dc05
|
||||
stx $dc07
|
||||
sta $dc04
|
||||
lda #$82
|
||||
sta $dc0d
|
||||
lda index
|
||||
eor #$ff
|
||||
lsr a
|
||||
php
|
||||
sta jump+1
|
||||
ldx reg
|
||||
lda areg,x
|
||||
sta readreg+1
|
||||
jsr waitborder
|
||||
lda #%01000111
|
||||
sta $dc0f
|
||||
lda #%00000011
|
||||
sta $dc0e
|
||||
plp
|
||||
bcc jump
|
||||
jump
|
||||
jsr $2011
|
||||
readreg
|
||||
lda $dc11
|
||||
write
|
||||
sta $2111
|
||||
inc write+1
|
||||
inc index
|
||||
lda index
|
||||
cmp #12
|
||||
bcc nextindex
|
||||
inc reg
|
||||
lda reg
|
||||
cmp #4
|
||||
bcc nextreg
|
||||
|
||||
;---------------------------------------
|
||||
;compare result
|
||||
|
||||
jmp compare
|
||||
right .byte $01,$02,$02,$01,$02,$02
|
||||
.byte $01,$02,$02,$01,$02,$02
|
||||
.byte $02,$02,$02,$01,$01,$01
|
||||
.byte $00,$00,$02,$02,$02,$02
|
||||
.byte $80,$c0,$80,$80,$c0,$80
|
||||
.byte $80,$c0,$00,$00,$40,$00
|
||||
.byte $00,$01,$01,$01,$01,$01
|
||||
.byte $01,$01,$03,$83,$83,$83
|
||||
compare
|
||||
jsr $fda3
|
||||
sei
|
||||
ldx #0
|
||||
comp
|
||||
lda $2100,x
|
||||
cmp right,x
|
||||
bne diff
|
||||
inx
|
||||
cpx #12*4
|
||||
bcc comp
|
||||
jmp ok
|
||||
diff
|
||||
|
||||
|
||||
;---------------------------------------
|
||||
;print result
|
||||
|
||||
ldy #0
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "ta "
|
||||
.byte 13
|
||||
.text " "
|
||||
.byte 0
|
||||
jsr print12
|
||||
jsr print
|
||||
.text "tb "
|
||||
.byte 13
|
||||
.text " "
|
||||
.byte 0
|
||||
jsr print12
|
||||
jsr print
|
||||
.text "pb "
|
||||
.byte 13
|
||||
.text " "
|
||||
.byte 0
|
||||
jsr print12
|
||||
jsr print
|
||||
.text "icr"
|
||||
.byte 13
|
||||
.text " "
|
||||
.byte 0
|
||||
jsr print12
|
||||
jsr waitkey
|
||||
jmp outend
|
||||
|
||||
print12
|
||||
ldx #12
|
||||
loop12
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda right,y
|
||||
jsr printhb
|
||||
dec 211
|
||||
dec 211
|
||||
dec 211
|
||||
lda #145
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda 646
|
||||
pha
|
||||
lda $2100,y
|
||||
cmp right,y
|
||||
beq nodiff
|
||||
pha
|
||||
lda #2
|
||||
sta 646
|
||||
pla
|
||||
nodiff
|
||||
jsr printhb
|
||||
pla
|
||||
sta 646
|
||||
lda #17
|
||||
jsr $ffd2
|
||||
iny
|
||||
dex
|
||||
bne loop12
|
||||
lda #13
|
||||
jmp $ffd2
|
||||
outend
|
||||
|
||||
|
||||
;---------------------------------------
|
||||
;load next part of the test suite
|
||||
|
||||
ok
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq load
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
name .text "loadth"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
|
||||
1058
src/test/kotlin/6502testsuite/source/cia1tb.asm
Normal file
1058
src/test/kotlin/6502testsuite/source/cia1tb.asm
Normal file
File diff suppressed because it is too large
Load Diff
782
src/test/kotlin/6502testsuite/source/cia1tb123.asm
Normal file
782
src/test/kotlin/6502testsuite/source/cia1tb123.asm
Normal file
@@ -0,0 +1,782 @@
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
lda #1
|
||||
sta turboass
|
||||
jmp main
|
||||
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0
|
||||
lda $1111,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1
|
||||
sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc printhn0
|
||||
adc #6
|
||||
printhn0
|
||||
jsr $ffd2
|
||||
rts
|
||||
.bend
|
||||
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fda3
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq basic
|
||||
|
||||
basic
|
||||
jmp $a474
|
||||
.bend
|
||||
|
||||
|
||||
newbrk
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
rts
|
||||
|
||||
setbrk
|
||||
sei
|
||||
lda #$00
|
||||
sta $dc0e
|
||||
bit $dc0b
|
||||
sta $dc0b
|
||||
sta $dc09
|
||||
sta $dc08
|
||||
bit $dc0b
|
||||
lda #$7f
|
||||
sta $dc0d
|
||||
bit $dc0d
|
||||
lda #<newbrk
|
||||
sta $0316
|
||||
lda #>newbrk
|
||||
sta $0317
|
||||
rts
|
||||
|
||||
restorebrk
|
||||
pha
|
||||
lda #$66
|
||||
sta $0316
|
||||
lda #$fe
|
||||
sta $0317
|
||||
jsr $fda3
|
||||
pla
|
||||
cli
|
||||
rts
|
||||
|
||||
|
||||
main
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cia1tb123"
|
||||
.byte 0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
sta $dc0f
|
||||
asl a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #2
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 01 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dc0f
|
||||
lda #$0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 01 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dc0f
|
||||
nop
|
||||
.byte $0b
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #2
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 01 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
sta $dc0f
|
||||
nop
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dc06
|
||||
jsr waitborder
|
||||
lda #$10
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$10
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 10 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dc0f
|
||||
lda #$ea
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dc06
|
||||
jsr waitborder
|
||||
lda #$10
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 10 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dc0f
|
||||
nop
|
||||
nop
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dc06
|
||||
jsr waitborder
|
||||
lda #$10
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$20
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 10 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
sta $dc0f
|
||||
nop
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dc06
|
||||
jsr waitborder
|
||||
lda #$11
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$11
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 11 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dc0f
|
||||
lda #$ea
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dc06
|
||||
jsr waitborder
|
||||
lda #$11
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 11 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dc0f
|
||||
nop
|
||||
nop
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dc06
|
||||
jsr waitborder
|
||||
lda #$11
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$22
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 11 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
stx $dc0f
|
||||
.byte $15
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$11
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 11 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dc0f
|
||||
lda #$0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$11
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 11 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dc0f
|
||||
nop
|
||||
.byte $0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$11
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 11 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
stx $dc0f
|
||||
.byte $15
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$10
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 10 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dc0f
|
||||
lda #$0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$10
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 10 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dc0f
|
||||
nop
|
||||
asl a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$10
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 10 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
stx $dc0f
|
||||
.byte $15
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$00
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 00 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dc0f
|
||||
lda #$0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$00
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$00
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 00 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dc0f
|
||||
nop
|
||||
.byte $14
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dc0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dc02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$00
|
||||
sta $dc0f
|
||||
jsr $dc02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 00 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq load
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
name .text "cia2tb123"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
|
||||
531
src/test/kotlin/6502testsuite/source/cia2pb6.asm
Normal file
531
src/test/kotlin/6502testsuite/source/cia2pb6.asm
Normal file
@@ -0,0 +1,531 @@
|
||||
;---------------------------------------
|
||||
;cia2pb6.asm - this file is part
|
||||
;of the C64 Emulator Test Suite
|
||||
;public domain, no copyright
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
.block
|
||||
lda #1
|
||||
sta turboass
|
||||
ldx #0
|
||||
stx $d3
|
||||
lda thisname
|
||||
printthis
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda thisname,x
|
||||
bne printthis
|
||||
jsr main
|
||||
lda #$37
|
||||
sta 1
|
||||
lda #$2f
|
||||
sta 0
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq loadnext
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
.bend
|
||||
loadnext
|
||||
.block
|
||||
ldx #$f8
|
||||
txs
|
||||
lda nextname
|
||||
cmp #"-"
|
||||
bne notempty
|
||||
jmp $a474
|
||||
notempty
|
||||
ldx #0
|
||||
printnext
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda nextname,x
|
||||
bne printnext
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
stx $b7
|
||||
lda #<nextname
|
||||
sta $bb
|
||||
lda #>nextname
|
||||
sta $bc
|
||||
jmp $e16f
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print text which immediately follows
|
||||
;the JSR and return to address after 0
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta next+1
|
||||
pla
|
||||
sta next+2
|
||||
ldx #1
|
||||
next
|
||||
lda $1111,x
|
||||
beq end
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne next
|
||||
end
|
||||
sec
|
||||
txa
|
||||
adc next+1
|
||||
sta return+1
|
||||
lda #0
|
||||
adc next+2
|
||||
sta return+2
|
||||
return
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print hex byte
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc noletter
|
||||
adc #6
|
||||
noletter
|
||||
jmp $ffd2
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait until raster line is in border
|
||||
;to prevent getting disturbed by DMAs
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait for a key and check for STOP
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
cli
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq load
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "break"
|
||||
.byte 13,0
|
||||
jmp loadnext
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
thisname .null "cia2pb6"
|
||||
nextname .null "cia2pb7"
|
||||
|
||||
main
|
||||
|
||||
;---------------------------------------
|
||||
;old cra 0 start
|
||||
; cra 1 pb6out
|
||||
; cra 2 pb6toggle
|
||||
;new cra 0 start
|
||||
; cra 1 pb6out
|
||||
; cra 2 pb6toggle
|
||||
; cra 4 force load
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
i .byte 0
|
||||
old .byte 0
|
||||
new .byte 0
|
||||
or .byte 0
|
||||
right .text "----------------"
|
||||
.text "0000000000000000"
|
||||
.text "----------------"
|
||||
.text "1111111111111111"
|
||||
.text "----------------"
|
||||
.text "0000000000000000"
|
||||
.text "----------------"
|
||||
.text "1111111111111111"
|
||||
|
||||
start
|
||||
lda #0
|
||||
sta i
|
||||
loop
|
||||
lda #$40
|
||||
sta $dd03
|
||||
lda #0
|
||||
sta $dd01
|
||||
sta $dd0e
|
||||
sta $dd0f
|
||||
lda #127
|
||||
sta $dd0d
|
||||
bit $dd0d
|
||||
lda #$ff
|
||||
sta $dd04
|
||||
sta $dd05
|
||||
lda i
|
||||
and #%00000111
|
||||
sta $dd0e
|
||||
sta old
|
||||
lda i
|
||||
lsr a
|
||||
lsr a
|
||||
pha
|
||||
and #%00010000
|
||||
sta or
|
||||
pla
|
||||
lsr a
|
||||
and #%00000111
|
||||
ora or
|
||||
sta $dd0e
|
||||
sta new
|
||||
lda $dd01
|
||||
eor #$40
|
||||
sta $dd01
|
||||
cmp $dd01
|
||||
beq minus
|
||||
eor #$40
|
||||
asl a
|
||||
asl a
|
||||
lda #"0"/2
|
||||
rol a
|
||||
jmp nominus
|
||||
minus
|
||||
lda #"-"
|
||||
nominus
|
||||
ldx i
|
||||
cmp right,x
|
||||
beq ok
|
||||
pha
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "old new pb6 "
|
||||
.byte 0
|
||||
lda old
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda new
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
pla
|
||||
jsr $ffd2
|
||||
jsr waitkey
|
||||
ok
|
||||
inc i
|
||||
bmi end
|
||||
jmp loop
|
||||
end
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;toggle pb6, cra one shot, start timer
|
||||
;-> pb6 must be high
|
||||
;wait until cra has stopped
|
||||
;-> pb6 must be low
|
||||
;write cra, write ta low/high, force
|
||||
;load, pb6on, pb6toggle
|
||||
;-> pb6 must remain low
|
||||
;start
|
||||
;-> pb6 must go high
|
||||
|
||||
.block
|
||||
lda #0
|
||||
sta $dd0e
|
||||
ldx #100
|
||||
stx $dd04
|
||||
sta $dd05
|
||||
sei
|
||||
jsr waitborder
|
||||
lda #$0f
|
||||
sta $dd0e
|
||||
lda #$40
|
||||
bit $dd01
|
||||
bne ok1
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb6 is not high"
|
||||
jsr waitkey
|
||||
ok1
|
||||
lda #$01
|
||||
wait
|
||||
bit $dd0e
|
||||
bne wait
|
||||
lda #$40
|
||||
bit $dd01
|
||||
beq ok2
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb6 is not low"
|
||||
jsr waitkey
|
||||
ok2
|
||||
lda #$0e
|
||||
sta $dd0e
|
||||
lda #$40
|
||||
bit $dd01
|
||||
beq ok3
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing cra may "
|
||||
.text "not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok3
|
||||
lda #100
|
||||
sta $dd04
|
||||
lda #$40
|
||||
bit $dd01
|
||||
beq ok4
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing ta low may "
|
||||
.text "not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok4
|
||||
lda #0
|
||||
sta $dd05
|
||||
lda #$40
|
||||
bit $dd01
|
||||
beq ok5
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing ta high may "
|
||||
.text "not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok5
|
||||
lda #$1e
|
||||
sta $dd0e
|
||||
lda #$40
|
||||
bit $dd01
|
||||
beq ok6
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "force load may "
|
||||
.text "not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok6
|
||||
lda #%00001010
|
||||
sta $dd0e
|
||||
lda #%00001110
|
||||
sta $dd0e
|
||||
lda #$40
|
||||
bit $dd01
|
||||
beq ok7
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "switching toggle "
|
||||
.text "may not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok7
|
||||
lda #%00001100
|
||||
sta $dd0e
|
||||
lda #%00001110
|
||||
sta $dd0e
|
||||
lda #$40
|
||||
bit $dd01
|
||||
beq ok8
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "switching pb6on "
|
||||
.text "may not set pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok8
|
||||
sei
|
||||
jsr waitborder
|
||||
lda #%00000111
|
||||
sta $dd0e
|
||||
lda #$40
|
||||
bit $dd01
|
||||
bne ok9
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "start must set "
|
||||
.text "pb6 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok9
|
||||
lda #$40
|
||||
ldx #0
|
||||
waitlow0
|
||||
dex
|
||||
beq timeout
|
||||
bit $dd01
|
||||
bne waitlow0
|
||||
waithigh0
|
||||
dex
|
||||
beq timeout
|
||||
bit $dd01
|
||||
beq waithigh0
|
||||
waitlow1
|
||||
dex
|
||||
beq timeout
|
||||
bit $dd01
|
||||
bne waitlow1
|
||||
waithigh1
|
||||
dex
|
||||
beq timeout
|
||||
bit $dd01
|
||||
beq waithigh1
|
||||
jmp ok
|
||||
timeout
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb6 toggle timed out"
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;cra pb6on/toggle 4 combinations
|
||||
;wait until underflow
|
||||
;set both pb6on and toggle
|
||||
;-> pb6 must be independent from
|
||||
; pb6on/toggle state at underflow
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
i .byte 0
|
||||
|
||||
start
|
||||
lda #3
|
||||
sta i
|
||||
loop
|
||||
lda #0
|
||||
sta $dd0e
|
||||
lda #15
|
||||
sta $dd04
|
||||
lda #0
|
||||
sta $dd05
|
||||
sei
|
||||
jsr waitborder
|
||||
lda i
|
||||
sec
|
||||
rol a
|
||||
sta $dd0e
|
||||
ldx #$07
|
||||
stx $dd0e
|
||||
ldy $dd01
|
||||
sta $dd0e
|
||||
ldx #$07
|
||||
stx $dd0e
|
||||
lda $dd01
|
||||
and #$40
|
||||
bne error
|
||||
tya
|
||||
and #$40
|
||||
bne ok
|
||||
error
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "toggle state is not "
|
||||
.null "independent "
|
||||
lda i
|
||||
jsr printhb
|
||||
jsr waitkey
|
||||
ok
|
||||
dec i
|
||||
bpl loop
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;check pb6 timing
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
settab .byte 7,7,7,7,7,7
|
||||
.byte 3,3,3,3,3,3,3,3
|
||||
loadtab .byte 7,6,3,2,1,0
|
||||
.byte 7,6,5,4,3,2,1,0
|
||||
comptab .byte 1,0,0,1,0,0
|
||||
.byte 0,1,0,0,0,0,0,1
|
||||
|
||||
i .byte 0
|
||||
|
||||
start
|
||||
lda #loadtab-settab-1
|
||||
sta i
|
||||
loop
|
||||
lda #0
|
||||
sta $dd0e
|
||||
ldx i
|
||||
lda loadtab,x
|
||||
sta $dd04
|
||||
lda #0
|
||||
sta $dd05
|
||||
sei
|
||||
jsr waitborder
|
||||
ldx i
|
||||
lda settab,x
|
||||
sta $dd0e
|
||||
nop
|
||||
nop
|
||||
lda $dd01
|
||||
asl a
|
||||
asl a
|
||||
lda #0
|
||||
rol a
|
||||
cmp comptab,x
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "timing error index "
|
||||
lda i
|
||||
jsr printhb
|
||||
jsr waitkey
|
||||
ok
|
||||
dec i
|
||||
bpl loop
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
rts
|
||||
|
||||
|
||||
529
src/test/kotlin/6502testsuite/source/cia2pb7.asm
Normal file
529
src/test/kotlin/6502testsuite/source/cia2pb7.asm
Normal file
@@ -0,0 +1,529 @@
|
||||
;---------------------------------------
|
||||
;cia2pb7.asm - this file is part
|
||||
;of the C64 Emulator Test Suite
|
||||
;public domain, no copyright
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
.block
|
||||
lda #1
|
||||
sta turboass
|
||||
ldx #0
|
||||
stx $d3
|
||||
lda thisname
|
||||
printthis
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda thisname,x
|
||||
bne printthis
|
||||
jsr main
|
||||
lda #$37
|
||||
sta 1
|
||||
lda #$2f
|
||||
sta 0
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq loadnext
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
.bend
|
||||
loadnext
|
||||
.block
|
||||
ldx #$f8
|
||||
txs
|
||||
lda nextname
|
||||
cmp #"-"
|
||||
bne notempty
|
||||
jmp $a474
|
||||
notempty
|
||||
ldx #0
|
||||
printnext
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda nextname,x
|
||||
bne printnext
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
stx $b7
|
||||
lda #<nextname
|
||||
sta $bb
|
||||
lda #>nextname
|
||||
sta $bc
|
||||
jmp $e16f
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print text which immediately follows
|
||||
;the JSR and return to address after 0
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta next+1
|
||||
pla
|
||||
sta next+2
|
||||
ldx #1
|
||||
next
|
||||
lda $1111,x
|
||||
beq end
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne next
|
||||
end
|
||||
sec
|
||||
txa
|
||||
adc next+1
|
||||
sta return+1
|
||||
lda #0
|
||||
adc next+2
|
||||
sta return+2
|
||||
return
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print hex byte
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc noletter
|
||||
adc #6
|
||||
noletter
|
||||
jmp $ffd2
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait until raster line is in border
|
||||
;to prevent getting disturbed by DMAs
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait for a key and check for STOP
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
cli
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq load
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "break"
|
||||
.byte 13,0
|
||||
jmp loadnext
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
thisname .null "cia2pb7"
|
||||
nextname .null "cia1tab"
|
||||
|
||||
main
|
||||
|
||||
;---------------------------------------
|
||||
;old crb 0 start
|
||||
; crb 1 pb7out
|
||||
; crb 2 pb7toggle
|
||||
;new crb 0 start
|
||||
; crb 1 pb7out
|
||||
; crb 2 pb7toggle
|
||||
; crb 4 force load
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
i .byte 0
|
||||
old .byte 0
|
||||
new .byte 0
|
||||
or .byte 0
|
||||
right .text "----------------"
|
||||
.text "0000000000000000"
|
||||
.text "----------------"
|
||||
.text "1111111111111111"
|
||||
.text "----------------"
|
||||
.text "0000000000000000"
|
||||
.text "----------------"
|
||||
.text "1111111111111111"
|
||||
|
||||
start
|
||||
lda #0
|
||||
sta i
|
||||
loop
|
||||
lda #$80
|
||||
sta $dd03
|
||||
lda #0
|
||||
sta $dd01
|
||||
sta $dd0e
|
||||
sta $dd0f
|
||||
lda #127
|
||||
sta $dd0d
|
||||
bit $dd0d
|
||||
lda #$ff
|
||||
sta $dd06
|
||||
sta $dd07
|
||||
lda i
|
||||
and #%00000111
|
||||
sta $dd0f
|
||||
sta old
|
||||
lda i
|
||||
lsr a
|
||||
lsr a
|
||||
pha
|
||||
and #%00010000
|
||||
sta or
|
||||
pla
|
||||
lsr a
|
||||
and #%00000111
|
||||
ora or
|
||||
sta $dd0f
|
||||
sta new
|
||||
lda $dd01
|
||||
eor #$80
|
||||
sta $dd01
|
||||
cmp $dd01
|
||||
beq minus
|
||||
eor #$80
|
||||
asl a
|
||||
lda #"0"/2
|
||||
rol a
|
||||
jmp nominus
|
||||
minus
|
||||
lda #"-"
|
||||
nominus
|
||||
ldx i
|
||||
cmp right,x
|
||||
beq ok
|
||||
pha
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "old new pb7 "
|
||||
.byte 0
|
||||
lda old
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda new
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
pla
|
||||
jsr $ffd2
|
||||
jsr waitkey
|
||||
ok
|
||||
inc i
|
||||
bmi end
|
||||
jmp loop
|
||||
end
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;toggle pb7, crb one shot, start timer
|
||||
;-> pb7 must be high
|
||||
;wait until crb has stopped
|
||||
;-> pb7 must be low
|
||||
;write crb, write ta low/high, force
|
||||
;load, pb7on, pb7toggle
|
||||
;-> pb7 must remain low
|
||||
;start
|
||||
;-> pb7 must go high
|
||||
|
||||
.block
|
||||
lda #0
|
||||
sta $dd0f
|
||||
ldx #100
|
||||
stx $dd06
|
||||
sta $dd07
|
||||
sei
|
||||
jsr waitborder
|
||||
lda #$0f
|
||||
sta $dd0f
|
||||
lda #$80
|
||||
bit $dd01
|
||||
bne ok1
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb7 is not high"
|
||||
jsr waitkey
|
||||
ok1
|
||||
lda #$01
|
||||
wait
|
||||
bit $dd0f
|
||||
bne wait
|
||||
lda #$80
|
||||
bit $dd01
|
||||
beq ok2
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb7 is not low"
|
||||
jsr waitkey
|
||||
ok2
|
||||
lda #$0e
|
||||
sta $dd0f
|
||||
lda #$80
|
||||
bit $dd01
|
||||
beq ok3
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing crb may "
|
||||
.text "not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok3
|
||||
lda #100
|
||||
sta $dd06
|
||||
lda #$80
|
||||
bit $dd01
|
||||
beq ok4
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing ta low may "
|
||||
.text "not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok4
|
||||
lda #0
|
||||
sta $dd05
|
||||
lda #$80
|
||||
bit $dd01
|
||||
beq ok5
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "writing ta high may "
|
||||
.text "not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok5
|
||||
lda #$1e
|
||||
sta $dd0f
|
||||
lda #$80
|
||||
bit $dd01
|
||||
beq ok6
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "force load may "
|
||||
.text "not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok6
|
||||
lda #%00001010
|
||||
sta $dd0f
|
||||
lda #%00001110
|
||||
sta $dd0f
|
||||
lda #$80
|
||||
bit $dd01
|
||||
beq ok7
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "switching toggle "
|
||||
.text "may not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok7
|
||||
lda #%00001100
|
||||
sta $dd0f
|
||||
lda #%00001110
|
||||
sta $dd0f
|
||||
lda #$80
|
||||
bit $dd01
|
||||
beq ok8
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "switching pb7on "
|
||||
.text "may not set pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok8
|
||||
sei
|
||||
jsr waitborder
|
||||
lda #%00000111
|
||||
sta $dd0f
|
||||
lda #$80
|
||||
bit $dd01
|
||||
bne ok9
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "start must set "
|
||||
.text "pb7 high"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok9
|
||||
lda #$80
|
||||
ldx #0
|
||||
waitlow0
|
||||
dex
|
||||
beq timeout
|
||||
bit $dd01
|
||||
bne waitlow0
|
||||
waithigh0
|
||||
dex
|
||||
beq timeout
|
||||
bit $dd01
|
||||
beq waithigh0
|
||||
waitlow1
|
||||
dex
|
||||
beq timeout
|
||||
bit $dd01
|
||||
bne waitlow1
|
||||
waithigh1
|
||||
dex
|
||||
beq timeout
|
||||
bit $dd01
|
||||
beq waithigh1
|
||||
jmp ok
|
||||
timeout
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "pb7 toggle timed out"
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;crb pb7on/toggle 4 combinations
|
||||
;wait until underflow
|
||||
;set both pb7on and toggle
|
||||
;-> pb7 must be independent from
|
||||
; pb7on/toggle state at underflow
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
i .byte 0
|
||||
|
||||
start
|
||||
lda #3
|
||||
sta i
|
||||
loop
|
||||
lda #0
|
||||
sta $dd0f
|
||||
lda #15
|
||||
sta $dd06
|
||||
lda #0
|
||||
sta $dd07
|
||||
sei
|
||||
jsr waitborder
|
||||
lda i
|
||||
sec
|
||||
rol a
|
||||
sta $dd0f
|
||||
ldx #$07
|
||||
stx $dd0f
|
||||
ldy $dd01
|
||||
sta $dd0f
|
||||
ldx #$07
|
||||
stx $dd0f
|
||||
lda $dd01
|
||||
and #$80
|
||||
bne error
|
||||
tya
|
||||
and #$80
|
||||
bne ok
|
||||
error
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "toggle state is not "
|
||||
.null "independent "
|
||||
lda i
|
||||
jsr printhb
|
||||
jsr waitkey
|
||||
ok
|
||||
dec i
|
||||
bpl loop
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;check pb7 timing
|
||||
|
||||
.block
|
||||
jmp start
|
||||
|
||||
settab .byte 7,7,7,7,7,7
|
||||
.byte 3,3,3,3,3,3,3,3
|
||||
loadtab .byte 7,6,3,2,1,0
|
||||
.byte 7,6,5,4,3,2,1,0
|
||||
comptab .byte 1,0,0,1,0,0
|
||||
.byte 0,1,0,0,0,0,0,1
|
||||
|
||||
i .byte 0
|
||||
|
||||
start
|
||||
lda #loadtab-settab-1
|
||||
sta i
|
||||
loop
|
||||
lda #0
|
||||
sta $dd0f
|
||||
ldx i
|
||||
lda loadtab,x
|
||||
sta $dd06
|
||||
lda #0
|
||||
sta $dd07
|
||||
sei
|
||||
jsr waitborder
|
||||
ldx i
|
||||
lda settab,x
|
||||
sta $dd0f
|
||||
nop
|
||||
nop
|
||||
lda $dd01
|
||||
asl a
|
||||
lda #0
|
||||
rol a
|
||||
cmp comptab,x
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "timing error index "
|
||||
lda i
|
||||
jsr printhb
|
||||
jsr waitkey
|
||||
ok
|
||||
dec i
|
||||
bpl loop
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
rts
|
||||
|
||||
|
||||
1382
src/test/kotlin/6502testsuite/source/cia2ta.asm
Normal file
1382
src/test/kotlin/6502testsuite/source/cia2ta.asm
Normal file
File diff suppressed because it is too large
Load Diff
1382
src/test/kotlin/6502testsuite/source/cia2tb.asm
Normal file
1382
src/test/kotlin/6502testsuite/source/cia2tb.asm
Normal file
File diff suppressed because it is too large
Load Diff
782
src/test/kotlin/6502testsuite/source/cia2tb123.asm
Normal file
782
src/test/kotlin/6502testsuite/source/cia2tb123.asm
Normal file
@@ -0,0 +1,782 @@
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
lda #1
|
||||
sta turboass
|
||||
jmp main
|
||||
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0
|
||||
lda $1111,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1
|
||||
sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc printhn0
|
||||
adc #6
|
||||
printhn0
|
||||
jsr $ffd2
|
||||
rts
|
||||
.bend
|
||||
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fda3
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq basic
|
||||
|
||||
basic
|
||||
jmp $a474
|
||||
.bend
|
||||
|
||||
|
||||
newbrk
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
pla
|
||||
rts
|
||||
|
||||
setbrk
|
||||
sei
|
||||
lda #$00
|
||||
sta $dd0e
|
||||
bit $dd0b
|
||||
sta $dd0b
|
||||
sta $dd09
|
||||
sta $dd08
|
||||
bit $dd0b
|
||||
lda #$7f
|
||||
sta $dd0d
|
||||
bit $dd0d
|
||||
lda #<newbrk
|
||||
sta $0316
|
||||
lda #>newbrk
|
||||
sta $0317
|
||||
rts
|
||||
|
||||
restorebrk
|
||||
pha
|
||||
lda #$66
|
||||
sta $0316
|
||||
lda #$fe
|
||||
sta $0317
|
||||
jsr $fda3
|
||||
pla
|
||||
cli
|
||||
rts
|
||||
|
||||
|
||||
main
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cia2tb123"
|
||||
.byte 0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
sta $dd0f
|
||||
asl a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #2
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 01 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dd0f
|
||||
lda #$0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 01 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dd0f
|
||||
nop
|
||||
.byte $0b
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #2
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 01 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
sta $dd0f
|
||||
nop
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dd06
|
||||
jsr waitborder
|
||||
lda #$10
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$10
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 10 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dd0f
|
||||
lda #$ea
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dd06
|
||||
jsr waitborder
|
||||
lda #$10
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 10 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dd0f
|
||||
nop
|
||||
nop
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dd06
|
||||
jsr waitborder
|
||||
lda #$10
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$20
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 10 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
sta $dd0f
|
||||
nop
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dd06
|
||||
jsr waitborder
|
||||
lda #$11
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$11
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 11 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dd0f
|
||||
lda #$ea
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dd06
|
||||
jsr waitborder
|
||||
lda #$11
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 11 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
sta $dd0f
|
||||
nop
|
||||
nop
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
lda #$0a
|
||||
sta $dd06
|
||||
jsr waitborder
|
||||
lda #$11
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$22
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 00 11 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
stx $dd0f
|
||||
.byte $15
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$11
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 11 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dd0f
|
||||
lda #$0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$11
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 11 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dd0f
|
||||
nop
|
||||
.byte $0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$11
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 11 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
stx $dd0f
|
||||
.byte $15
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$10
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 10 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dd0f
|
||||
lda #$0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$10
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$0a
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 10 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dd0f
|
||||
nop
|
||||
asl a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$10
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 10 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
nop
|
||||
stx $dd0f
|
||||
.byte $15
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$00
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 00 cycle 1"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dd0f
|
||||
lda #$0a
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$00
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$00
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 00 cycle 2"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
.block
|
||||
jmp start
|
||||
code
|
||||
stx $dd0f
|
||||
nop
|
||||
.byte $14
|
||||
rts
|
||||
start
|
||||
jsr setbrk
|
||||
ldx #0
|
||||
stx $dd0f
|
||||
copy
|
||||
lda code,x
|
||||
sta $dd02,x
|
||||
inx
|
||||
cpx #6
|
||||
bcc copy
|
||||
jsr waitborder
|
||||
lda #$01
|
||||
ldx #$00
|
||||
sta $dd0f
|
||||
jsr $dd02
|
||||
jsr restorebrk
|
||||
cmp #$02
|
||||
beq ok
|
||||
jsr print
|
||||
.byte 13,13
|
||||
.text "error 01 00 cycle 3"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok
|
||||
.bend
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq load
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
name .text "cia1pb6"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
|
||||
301
src/test/kotlin/6502testsuite/source/clcn.asm
Normal file
301
src/test/kotlin/6502testsuite/source/clcn.asm
Normal file
@@ -0,0 +1,301 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)clcn"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%11111110
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd clc
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "secn"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
301
src/test/kotlin/6502testsuite/source/cldn.asm
Normal file
301
src/test/kotlin/6502testsuite/source/cldn.asm
Normal file
@@ -0,0 +1,301 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cldn"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%11110111
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cld
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "sedn"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
301
src/test/kotlin/6502testsuite/source/clin.asm
Normal file
301
src/test/kotlin/6502testsuite/source/clin.asm
Normal file
@@ -0,0 +1,301 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)clin"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%11111011
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cli
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "sein"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
301
src/test/kotlin/6502testsuite/source/clvn.asm
Normal file
301
src/test/kotlin/6502testsuite/source/clvn.asm
Normal file
@@ -0,0 +1,301 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)clvn"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%10111111
|
||||
sta pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd clv
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "adcb"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
325
src/test/kotlin/6502testsuite/source/cmpa.asm
Normal file
325
src/test/kotlin/6502testsuite/source/cmpa.asm
Normal file
@@ -0,0 +1,325 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cmpa"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cmp da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cmpax"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
334
src/test/kotlin/6502testsuite/source/cmpax.asm
Normal file
334
src/test/kotlin/6502testsuite/source/cmpax.asm
Normal file
@@ -0,0 +1,334 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cmpax"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cmp da,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda xb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cmpay"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
334
src/test/kotlin/6502testsuite/source/cmpay.asm
Normal file
334
src/test/kotlin/6502testsuite/source/cmpay.asm
Normal file
@@ -0,0 +1,334 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cmpay"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cmp da,y
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec yb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cmpix"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
326
src/test/kotlin/6502testsuite/source/cmpb.asm
Normal file
326
src/test/kotlin/6502testsuite/source/cmpb.asm
Normal file
@@ -0,0 +1,326 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cmpb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cmp #0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cmpz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
333
src/test/kotlin/6502testsuite/source/cmpix.asm
Normal file
333
src/test/kotlin/6502testsuite/source/cmpix.asm
Normal file
@@ -0,0 +1,333 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cmpix"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cmp (172,x)
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cmpiy"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
338
src/test/kotlin/6502testsuite/source/cmpiy.asm
Normal file
338
src/test/kotlin/6502testsuite/source/cmpiy.asm
Normal file
@@ -0,0 +1,338 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cmpiy"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta yb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cmp (172),y
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc 172
|
||||
bne noinc
|
||||
inc 173
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec 173
|
||||
nodec dec yb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cpxb"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
327
src/test/kotlin/6502testsuite/source/cmpz.asm
Normal file
327
src/test/kotlin/6502testsuite/source/cmpz.asm
Normal file
@@ -0,0 +1,327 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cmpz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cmp 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cmpzx"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
331
src/test/kotlin/6502testsuite/source/cmpzx.asm
Normal file
331
src/test/kotlin/6502testsuite/source/cmpzx.asm
Normal file
@@ -0,0 +1,331 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cmpzx"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cmp 172,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cmpa"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
202
src/test/kotlin/6502testsuite/source/cntdef.asm
Normal file
202
src/test/kotlin/6502testsuite/source/cntdef.asm
Normal file
@@ -0,0 +1,202 @@
|
||||
;---------------------------------------
|
||||
;cntdef.asm - this file is part
|
||||
;of the C64 Emulator Test Suite
|
||||
;public domain, no copyright
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
.block
|
||||
lda #1
|
||||
sta turboass
|
||||
ldx #0
|
||||
stx $d3
|
||||
lda thisname
|
||||
printthis
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda thisname,x
|
||||
bne printthis
|
||||
jsr main
|
||||
lda #$37
|
||||
sta 1
|
||||
lda #$2f
|
||||
sta 0
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq loadnext
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
.bend
|
||||
loadnext
|
||||
.block
|
||||
ldx #$f8
|
||||
txs
|
||||
lda nextname
|
||||
cmp #"-"
|
||||
bne notempty
|
||||
jmp $a474
|
||||
notempty
|
||||
ldx #0
|
||||
printnext
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda nextname,x
|
||||
bne printnext
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
stx $b7
|
||||
lda #<nextname
|
||||
sta $bb
|
||||
lda #>nextname
|
||||
sta $bc
|
||||
jmp $e16f
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print text which immediately follows
|
||||
;the JSR and return to address after 0
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta next+1
|
||||
pla
|
||||
sta next+2
|
||||
ldx #1
|
||||
next
|
||||
lda $1111,x
|
||||
beq end
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne next
|
||||
end
|
||||
sec
|
||||
txa
|
||||
adc next+1
|
||||
sta return+1
|
||||
lda #0
|
||||
adc next+2
|
||||
sta return+2
|
||||
return
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print hex byte
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc noletter
|
||||
adc #6
|
||||
noletter
|
||||
jmp $ffd2
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait until raster line is in border
|
||||
;to prevent getting disturbed by DMAs
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait for a key and check for STOP
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
cli
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq load
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "break"
|
||||
.byte 13,0
|
||||
jmp loadnext
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
thisname .null "cntdef"
|
||||
nextname .null "cia1ta"
|
||||
|
||||
main
|
||||
|
||||
;---------------------------------------
|
||||
;check cnt with counting ab cascaded
|
||||
|
||||
.block
|
||||
sei
|
||||
lda #0
|
||||
sta $dc0e
|
||||
sta $dc0f
|
||||
lda #$7f
|
||||
sta $dc0d
|
||||
bit $dc0d
|
||||
lda #0
|
||||
sta $dc04
|
||||
sta $dc05
|
||||
lda #%00000001
|
||||
sta $dc0e
|
||||
lda #255
|
||||
sta $dc06
|
||||
sta $dc07
|
||||
jsr waitborder
|
||||
lda #%01100001
|
||||
sta $dc0f
|
||||
lda $dc06
|
||||
cmp $dc06
|
||||
bne ok1
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "cnt is not high "
|
||||
.text "by default"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok1
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
rts
|
||||
|
||||
|
||||
211
src/test/kotlin/6502testsuite/source/cnto2.asm
Normal file
211
src/test/kotlin/6502testsuite/source/cnto2.asm
Normal file
@@ -0,0 +1,211 @@
|
||||
;---------------------------------------
|
||||
;cnto2.asm - this file is part
|
||||
;of the C64 Emulator Test Suite
|
||||
;public domain, no copyright
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
.block
|
||||
lda #1
|
||||
sta turboass
|
||||
ldx #0
|
||||
stx $d3
|
||||
lda thisname
|
||||
printthis
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda thisname,x
|
||||
bne printthis
|
||||
jsr main
|
||||
lda #$37
|
||||
sta 1
|
||||
lda #$2f
|
||||
sta 0
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq loadnext
|
||||
jsr waitkey
|
||||
jmp $8000
|
||||
.bend
|
||||
loadnext
|
||||
.block
|
||||
ldx #$f8
|
||||
txs
|
||||
lda nextname
|
||||
cmp #"-"
|
||||
bne notempty
|
||||
jmp $a474
|
||||
notempty
|
||||
ldx #0
|
||||
printnext
|
||||
jsr $ffd2
|
||||
inx
|
||||
lda nextname,x
|
||||
bne printnext
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
stx $b7
|
||||
lda #<nextname
|
||||
sta $bb
|
||||
lda #>nextname
|
||||
sta $bc
|
||||
jmp $e16f
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print text which immediately follows
|
||||
;the JSR and return to address after 0
|
||||
|
||||
print
|
||||
.block
|
||||
pla
|
||||
sta next+1
|
||||
pla
|
||||
sta next+2
|
||||
ldx #1
|
||||
next
|
||||
lda $1111,x
|
||||
beq end
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne next
|
||||
end
|
||||
sec
|
||||
txa
|
||||
adc next+1
|
||||
sta return+1
|
||||
lda #0
|
||||
adc next+2
|
||||
sta return+2
|
||||
return
|
||||
jmp $1111
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;print hex byte
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc noletter
|
||||
adc #6
|
||||
noletter
|
||||
jmp $ffd2
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait until raster line is in border
|
||||
;to prevent getting disturbed by DMAs
|
||||
|
||||
waitborder
|
||||
.block
|
||||
lda $d011
|
||||
bmi ok
|
||||
wait
|
||||
lda $d012
|
||||
cmp #30
|
||||
bcs wait
|
||||
ok
|
||||
rts
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
;wait for a key and check for STOP
|
||||
|
||||
waitkey
|
||||
.block
|
||||
jsr $fd15
|
||||
jsr $fda3
|
||||
cli
|
||||
wait
|
||||
jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop
|
||||
lda turboass
|
||||
beq load
|
||||
jmp $8000
|
||||
load
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "break"
|
||||
.byte 13,0
|
||||
jmp loadnext
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
thisname .null "cnto2"
|
||||
nextname .null "icr01"
|
||||
|
||||
main
|
||||
|
||||
;---------------------------------------
|
||||
;switch from cnt to o2 and back
|
||||
|
||||
.block
|
||||
sei
|
||||
lda #0
|
||||
sta $dc0e
|
||||
sta $dc0f
|
||||
lda #$7f
|
||||
sta $dc0d
|
||||
bit $dc0d
|
||||
lda #255
|
||||
sta $dc04
|
||||
sta $dc05
|
||||
lda #%00100001
|
||||
sta $dc0e
|
||||
jsr waitborder
|
||||
lda #%00000001
|
||||
ldx #%00100001
|
||||
sta $dc0e
|
||||
lda $dc04
|
||||
stx $dc0e
|
||||
ldx $dc04
|
||||
cmp #253
|
||||
beq ok1
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "cnt to o2 does not "
|
||||
.text "delay 2 clocks"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok1
|
||||
cpx #247
|
||||
beq ok2
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "o2 to cnt does not "
|
||||
.text "delay 2 clocks"
|
||||
.byte 0
|
||||
jsr waitkey
|
||||
ok2
|
||||
.bend
|
||||
|
||||
;---------------------------------------
|
||||
|
||||
rts
|
||||
|
||||
|
||||
262
src/test/kotlin/6502testsuite/source/cpuport.asm
Normal file
262
src/test/kotlin/6502testsuite/source/cpuport.asm
Normal file
@@ -0,0 +1,262 @@
|
||||
|
||||
*= $0801
|
||||
.byte $4c,$14,$08,$00,$97
|
||||
turboass = 780
|
||||
.text "780"
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$33,$00,$00,$00
|
||||
lda #1
|
||||
sta turboass
|
||||
jmp main
|
||||
|
||||
|
||||
config .byte 0
|
||||
abackup .byte 0,0
|
||||
laststate .byte 0
|
||||
right .byte 0
|
||||
|
||||
|
||||
rom
|
||||
lda #$2f
|
||||
sta 0
|
||||
lda #$37
|
||||
sta 1
|
||||
cli
|
||||
rts
|
||||
|
||||
|
||||
main
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cpuport"
|
||||
.byte 0
|
||||
|
||||
lda #0
|
||||
sta config
|
||||
nextconfig
|
||||
sei
|
||||
lda #$ff
|
||||
sta 0
|
||||
sta 1
|
||||
sta abackup+0
|
||||
sta abackup+1
|
||||
sta laststate
|
||||
ldx #8
|
||||
lda config
|
||||
push
|
||||
asl a
|
||||
php
|
||||
dex
|
||||
bne push
|
||||
ldx #4
|
||||
pull
|
||||
pla
|
||||
and #1
|
||||
tay
|
||||
lda #0
|
||||
plp
|
||||
sbc #0
|
||||
sta 0,y
|
||||
sta abackup,y
|
||||
|
||||
;inputs: keep last state
|
||||
lda abackup+0
|
||||
eor #$ff
|
||||
and laststate
|
||||
sta or1+1
|
||||
;outputs: set new state
|
||||
lda abackup+0
|
||||
and abackup+1
|
||||
or1 ora #$11
|
||||
sta laststate
|
||||
|
||||
;delay for larger capacitives
|
||||
ldy #0
|
||||
delay
|
||||
iny
|
||||
bne delay
|
||||
|
||||
dex
|
||||
bne pull
|
||||
|
||||
lda abackup+0
|
||||
cmp 0
|
||||
bne error
|
||||
|
||||
lda abackup+0
|
||||
eor #$ff
|
||||
ora abackup+1
|
||||
and #$37
|
||||
sta or2+1
|
||||
lda laststate
|
||||
and #$c8
|
||||
or2 ora #$11
|
||||
|
||||
;bit 5 is drawn low if input
|
||||
tax
|
||||
lda #$20
|
||||
bit abackup+0
|
||||
bne no5low
|
||||
txa
|
||||
and #$df
|
||||
tax
|
||||
no5low
|
||||
stx right
|
||||
cpx 1
|
||||
bne error
|
||||
noerror
|
||||
inc config
|
||||
bne nextconfig
|
||||
jsr rom
|
||||
jmp ok
|
||||
|
||||
error
|
||||
lda 1
|
||||
pha
|
||||
lda 0
|
||||
pha
|
||||
jsr rom
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "0=ff 1=ff"
|
||||
.byte 0
|
||||
|
||||
ldx #8
|
||||
lda config
|
||||
push1
|
||||
asl a
|
||||
php
|
||||
dex
|
||||
bne push1
|
||||
ldx #4
|
||||
pull1
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
pla
|
||||
and #1
|
||||
ora #"0"
|
||||
jsr $ffd2
|
||||
lda #"="
|
||||
jsr $ffd2
|
||||
lda #0
|
||||
plp
|
||||
sbc #0
|
||||
stx oldx+1
|
||||
jsr printhb
|
||||
oldx
|
||||
ldx #$11
|
||||
dex
|
||||
bne pull1
|
||||
jsr print
|
||||
|
||||
.byte 13
|
||||
.text "after "
|
||||
.byte 0
|
||||
|
||||
pla
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
pla
|
||||
jsr printhb
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "right "
|
||||
.byte 0
|
||||
lda abackup+0
|
||||
jsr printhb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda right
|
||||
jsr printhb
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
|
||||
waitk
|
||||
jsr $ffe4
|
||||
beq waitk
|
||||
cmp #3
|
||||
beq stop
|
||||
jmp noerror
|
||||
stop
|
||||
lda turboass
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic
|
||||
jmp $a474
|
||||
|
||||
|
||||
ok
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda turboass
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load
|
||||
lda #47
|
||||
sta 0
|
||||
jsr print
|
||||
name .text "cputiming"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
printhb
|
||||
.block
|
||||
pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr printhn
|
||||
pla
|
||||
and #$0f
|
||||
printhn
|
||||
ora #$30
|
||||
cmp #$3a
|
||||
bcc printhn0
|
||||
adc #6
|
||||
printhn0
|
||||
jsr $ffd2
|
||||
rts
|
||||
.bend
|
||||
|
||||
|
||||
1330
src/test/kotlin/6502testsuite/source/cputiming.asm
Normal file
1330
src/test/kotlin/6502testsuite/source/cputiming.asm
Normal file
File diff suppressed because it is too large
Load Diff
325
src/test/kotlin/6502testsuite/source/cpxa.asm
Normal file
325
src/test/kotlin/6502testsuite/source/cpxa.asm
Normal file
@@ -0,0 +1,325 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cpxa"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cpx da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda xb
|
||||
adc #17
|
||||
sta xb
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta xb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cpyb"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
326
src/test/kotlin/6502testsuite/source/cpxb.asm
Normal file
326
src/test/kotlin/6502testsuite/source/cpxb.asm
Normal file
@@ -0,0 +1,326 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cpxb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cpx #0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda xb
|
||||
adc #17
|
||||
sta xb
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta xb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cpxz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
327
src/test/kotlin/6502testsuite/source/cpxz.asm
Normal file
327
src/test/kotlin/6502testsuite/source/cpxz.asm
Normal file
@@ -0,0 +1,327 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cpxz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cpx 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda xb
|
||||
adc #17
|
||||
sta xb
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta xb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cpxa"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
325
src/test/kotlin/6502testsuite/source/cpya.asm
Normal file
325
src/test/kotlin/6502testsuite/source/cpya.asm
Normal file
@@ -0,0 +1,325 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cpya"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cpy da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda yb
|
||||
adc #17
|
||||
sta yb
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta yb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "bitz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
326
src/test/kotlin/6502testsuite/source/cpyb.asm
Normal file
326
src/test/kotlin/6502testsuite/source/cpyb.asm
Normal file
@@ -0,0 +1,326 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cpyb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cpy #0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda yb
|
||||
adc #17
|
||||
sta yb
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta yb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cpyz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
327
src/test/kotlin/6502testsuite/source/cpyz.asm
Normal file
327
src/test/kotlin/6502testsuite/source/cpyz.asm
Normal file
@@ -0,0 +1,327 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)cpyz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta 172
|
||||
sta dr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
sec
|
||||
sbc db
|
||||
php
|
||||
pla
|
||||
and #%10000011
|
||||
sta flags+1
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111100
|
||||
flags ora #0
|
||||
sta pr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd cpy 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda yb
|
||||
adc #17
|
||||
sta yb
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta yb
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "cpya"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
312
src/test/kotlin/6502testsuite/source/dcma.asm
Normal file
312
src/test/kotlin/6502testsuite/source/dcma.asm
Normal file
@@ -0,0 +1,312 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)dcma"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
next
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
dec dr
|
||||
|
||||
lda pb
|
||||
pha
|
||||
plp
|
||||
lda ab
|
||||
cmp dr
|
||||
sta ar
|
||||
|
||||
php
|
||||
pla
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $cf
|
||||
.word da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "dcmax"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
321
src/test/kotlin/6502testsuite/source/dcmax.asm
Normal file
321
src/test/kotlin/6502testsuite/source/dcmax.asm
Normal file
@@ -0,0 +1,321 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)dcmax"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
dec dr
|
||||
|
||||
lda pb
|
||||
pha
|
||||
plp
|
||||
lda ab
|
||||
cmp dr
|
||||
sta ar
|
||||
|
||||
php
|
||||
pla
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $df
|
||||
.word da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda xb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec xb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "dcmay"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
321
src/test/kotlin/6502testsuite/source/dcmay.asm
Normal file
321
src/test/kotlin/6502testsuite/source/dcmay.asm
Normal file
@@ -0,0 +1,321 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)dcmay"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta yb
|
||||
|
||||
next
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
dec dr
|
||||
|
||||
lda pb
|
||||
pha
|
||||
plp
|
||||
lda ab
|
||||
cmp dr
|
||||
sta ar
|
||||
|
||||
php
|
||||
pla
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $db
|
||||
.word da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec yb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "dcmix"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
320
src/test/kotlin/6502testsuite/source/dcmix.asm
Normal file
320
src/test/kotlin/6502testsuite/source/dcmix.asm
Normal file
@@ -0,0 +1,320 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)dcmix"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
dec dr
|
||||
|
||||
lda pb
|
||||
pha
|
||||
plp
|
||||
lda ab
|
||||
cmp dr
|
||||
sta ar
|
||||
|
||||
php
|
||||
pla
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $c3
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "dcmiy"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
325
src/test/kotlin/6502testsuite/source/dcmiy.asm
Normal file
325
src/test/kotlin/6502testsuite/source/dcmiy.asm
Normal file
@@ -0,0 +1,325 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)dcmiy"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta yb
|
||||
lda #<da
|
||||
sta 172
|
||||
lda #>da
|
||||
sta 173
|
||||
|
||||
next
|
||||
lda db
|
||||
sta da
|
||||
sta dr
|
||||
dec dr
|
||||
|
||||
lda pb
|
||||
pha
|
||||
plp
|
||||
lda ab
|
||||
cmp dr
|
||||
sta ar
|
||||
|
||||
php
|
||||
pla
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $d3
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc 172
|
||||
bne noinc
|
||||
inc 173
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec 173
|
||||
nodec dec yb
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "insz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
314
src/test/kotlin/6502testsuite/source/dcmz.asm
Normal file
314
src/test/kotlin/6502testsuite/source/dcmz.asm
Normal file
@@ -0,0 +1,314 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)dcmz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
next
|
||||
lda db
|
||||
sta 172
|
||||
sta dr
|
||||
dec dr
|
||||
|
||||
lda pb
|
||||
pha
|
||||
plp
|
||||
lda ab
|
||||
cmp dr
|
||||
sta ar
|
||||
|
||||
php
|
||||
pla
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $c7
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "dcmzx"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
318
src/test/kotlin/6502testsuite/source/dcmzx.asm
Normal file
318
src/test/kotlin/6502testsuite/source/dcmzx.asm
Normal file
@@ -0,0 +1,318 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)dcmzx"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next
|
||||
lda db
|
||||
sta 172
|
||||
sta dr
|
||||
dec dr
|
||||
|
||||
lda pb
|
||||
pha
|
||||
plp
|
||||
lda ab
|
||||
cmp dr
|
||||
sta ar
|
||||
|
||||
php
|
||||
pla
|
||||
sta pr
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd .byte $d7
|
||||
.byte 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc xb
|
||||
dec cmd+1
|
||||
|
||||
inc db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "dcma"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
318
src/test/kotlin/6502testsuite/source/deca.asm
Normal file
318
src/test/kotlin/6502testsuite/source/deca.asm
Normal file
@@ -0,0 +1,318 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)deca"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
next ldx db
|
||||
stx da
|
||||
dex
|
||||
stx dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda dr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda dr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd dec da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
dec db
|
||||
bne next
|
||||
inc pb
|
||||
bne next
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "decax"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
329
src/test/kotlin/6502testsuite/source/decax.asm
Normal file
329
src/test/kotlin/6502testsuite/source/decax.asm
Normal file
@@ -0,0 +1,329 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)decax"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next ldx db
|
||||
stx da
|
||||
dex
|
||||
stx dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda dr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda dr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd dec da,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda xb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec xb
|
||||
|
||||
dec db
|
||||
bne jmpnext
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "asln"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
320
src/test/kotlin/6502testsuite/source/decz.asm
Normal file
320
src/test/kotlin/6502testsuite/source/decz.asm
Normal file
@@ -0,0 +1,320 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)decz"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
|
||||
next ldx db
|
||||
stx 172
|
||||
dex
|
||||
stx dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda dr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda dr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd dec 172
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
dec db
|
||||
bne next
|
||||
inc pb
|
||||
bne next
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "deczx"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
323
src/test/kotlin/6502testsuite/source/deczx.asm
Normal file
323
src/test/kotlin/6502testsuite/source/deczx.asm
Normal file
@@ -0,0 +1,323 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)deczx"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta xb
|
||||
|
||||
next ldx db
|
||||
stx 172
|
||||
dex
|
||||
stx dr
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda dr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda dr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd dec 172,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
lda 172
|
||||
sta da
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
dec xb
|
||||
dec db
|
||||
bne next
|
||||
inc pb
|
||||
bne next
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "deca"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
318
src/test/kotlin/6502testsuite/source/dexn.asm
Normal file
318
src/test/kotlin/6502testsuite/source/dexn.asm
Normal file
@@ -0,0 +1,318 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)dexn"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta dr
|
||||
sta da
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
dec xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda xr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda xr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd dex
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
dec xb
|
||||
bne next
|
||||
inc pb
|
||||
bne next
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "deyn"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
318
src/test/kotlin/6502testsuite/source/deyn.asm
Normal file
318
src/test/kotlin/6502testsuite/source/deyn.asm
Normal file
@@ -0,0 +1,318 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)deyn"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta dr
|
||||
sta da
|
||||
|
||||
lda ab
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
dec yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda yr
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
lda yr
|
||||
nozero asl a
|
||||
bcc noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd dey
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
dec yb
|
||||
bne next
|
||||
inc pb
|
||||
bne next
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "incz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
340
src/test/kotlin/6502testsuite/source/eora.asm
Normal file
340
src/test/kotlin/6502testsuite/source/eora.asm
Normal file
@@ -0,0 +1,340 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)eora"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
eor #$ff
|
||||
sta cmd1+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmd0 and #0
|
||||
sta cmd2+1
|
||||
lda ab
|
||||
cmd1 and #0
|
||||
cmd2 ora #0
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd eor da
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "eorax"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
349
src/test/kotlin/6502testsuite/source/eorax.asm
Normal file
349
src/test/kotlin/6502testsuite/source/eorax.asm
Normal file
@@ -0,0 +1,349 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)eorax"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta xb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
eor #$ff
|
||||
sta cmd1+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmd0 and #0
|
||||
sta cmd2+1
|
||||
lda ab
|
||||
cmd1 and #0
|
||||
cmd2 ora #0
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd eor da,x
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda xb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec xb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "eoray"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
349
src/test/kotlin/6502testsuite/source/eoray.asm
Normal file
349
src/test/kotlin/6502testsuite/source/eoray.asm
Normal file
@@ -0,0 +1,349 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)eoray"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
sta yb
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd0+1
|
||||
eor #$ff
|
||||
sta cmd1+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmd0 and #0
|
||||
sta cmd2+1
|
||||
lda ab
|
||||
cmd1 and #0
|
||||
cmd2 ora #0
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd eor da,y
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
inc cmd+1
|
||||
bne noinc
|
||||
inc cmd+2
|
||||
noinc lda yb
|
||||
bne nodec
|
||||
dec cmd+2
|
||||
nodec dec yb
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "eorix"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
341
src/test/kotlin/6502testsuite/source/eorb.asm
Normal file
341
src/test/kotlin/6502testsuite/source/eorb.asm
Normal file
@@ -0,0 +1,341 @@
|
||||
*= $0801
|
||||
|
||||
.byte $4c,$16,$08,$00,$97,$32
|
||||
.byte $2c,$30,$3a,$9e,$32,$30
|
||||
.byte $37,$30,$00,$00,$00,$a9
|
||||
.byte $01,$85,$02
|
||||
|
||||
jsr print
|
||||
.byte 13
|
||||
.text "(up)eorb"
|
||||
.byte 0
|
||||
|
||||
lda #%00011011
|
||||
sta db
|
||||
lda #%11000110
|
||||
sta ab
|
||||
lda #%10110001
|
||||
sta xb
|
||||
lda #%01101100
|
||||
sta yb
|
||||
lda #0
|
||||
sta pb
|
||||
tsx
|
||||
stx sb
|
||||
|
||||
lda #0
|
||||
sta db
|
||||
sta ab
|
||||
|
||||
next lda db
|
||||
sta da
|
||||
sta dr
|
||||
sta cmd+1
|
||||
sta cmd0+1
|
||||
eor #$ff
|
||||
sta cmd1+1
|
||||
|
||||
lda ab
|
||||
eor #$ff
|
||||
cmd0 and #0
|
||||
sta cmd2+1
|
||||
lda ab
|
||||
cmd1 and #0
|
||||
cmd2 ora #0
|
||||
sta ar
|
||||
|
||||
lda xb
|
||||
sta xr
|
||||
|
||||
lda yb
|
||||
sta yr
|
||||
|
||||
lda pb
|
||||
ora #%00110000
|
||||
and #%01111101
|
||||
tax
|
||||
lda ar
|
||||
cmp #0
|
||||
bne nozero
|
||||
txa
|
||||
ora #%00000010
|
||||
tax
|
||||
nozero lda ar
|
||||
bpl noneg
|
||||
txa
|
||||
ora #%10000000
|
||||
tax
|
||||
noneg stx pr
|
||||
|
||||
lda sb
|
||||
sta sr
|
||||
|
||||
ldx sb
|
||||
txs
|
||||
lda pb
|
||||
pha
|
||||
lda ab
|
||||
ldx xb
|
||||
ldy yb
|
||||
plp
|
||||
|
||||
cmd eor #0
|
||||
|
||||
php
|
||||
cld
|
||||
sta aa
|
||||
stx xa
|
||||
sty ya
|
||||
pla
|
||||
sta pa
|
||||
tsx
|
||||
stx sa
|
||||
jsr check
|
||||
|
||||
clc
|
||||
lda db
|
||||
adc #17
|
||||
sta db
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta db
|
||||
clc
|
||||
lda ab
|
||||
adc #17
|
||||
sta ab
|
||||
bcc jmpnext
|
||||
lda #0
|
||||
sta ab
|
||||
inc pb
|
||||
beq nonext
|
||||
jmpnext jmp next
|
||||
nonext
|
||||
|
||||
jsr print
|
||||
.text " - ok"
|
||||
.byte 13,0
|
||||
lda 2
|
||||
beq load
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
jmp $8000
|
||||
|
||||
load jsr print
|
||||
name .text "eorz"
|
||||
namelen = *-name
|
||||
.byte 0
|
||||
lda #0
|
||||
sta $0a
|
||||
sta $b9
|
||||
lda #namelen
|
||||
sta $b7
|
||||
lda #<name
|
||||
sta $bb
|
||||
lda #>name
|
||||
sta $bc
|
||||
pla
|
||||
pla
|
||||
jmp $e16f
|
||||
|
||||
db .byte 0
|
||||
ab .byte 0
|
||||
xb .byte 0
|
||||
yb .byte 0
|
||||
pb .byte 0
|
||||
sb .byte 0
|
||||
da .byte 0
|
||||
aa .byte 0
|
||||
xa .byte 0
|
||||
ya .byte 0
|
||||
pa .byte 0
|
||||
sa .byte 0
|
||||
dr .byte 0
|
||||
ar .byte 0
|
||||
xr .byte 0
|
||||
yr .byte 0
|
||||
pr .byte 0
|
||||
sr .byte 0
|
||||
|
||||
check
|
||||
.block
|
||||
lda da
|
||||
cmp dr
|
||||
bne error
|
||||
lda aa
|
||||
cmp ar
|
||||
bne error
|
||||
lda xa
|
||||
cmp xr
|
||||
bne error
|
||||
lda ya
|
||||
cmp yr
|
||||
bne error
|
||||
lda pa
|
||||
cmp pr
|
||||
bne error
|
||||
lda sa
|
||||
cmp sr
|
||||
bne error
|
||||
rts
|
||||
|
||||
error jsr print
|
||||
.byte 13
|
||||
.null "before "
|
||||
ldx #<db
|
||||
ldy #>db
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "after "
|
||||
ldx #<da
|
||||
ldy #>da
|
||||
jsr showregs
|
||||
jsr print
|
||||
.byte 13
|
||||
.null "right "
|
||||
ldx #<dr
|
||||
ldy #>dr
|
||||
jsr showregs
|
||||
lda #13
|
||||
jsr $ffd2
|
||||
wait jsr $ffe4
|
||||
beq wait
|
||||
cmp #3
|
||||
beq stop
|
||||
rts
|
||||
stop lda 2
|
||||
beq basic
|
||||
jmp $8000
|
||||
basic jmp ($a002)
|
||||
|
||||
showregs stx 172
|
||||
sty 173
|
||||
ldy #0
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
jsr hexb
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
ldx #"n"
|
||||
asl a
|
||||
bcc ok7
|
||||
ldx #"N"
|
||||
ok7 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"v"
|
||||
asl a
|
||||
bcc ok6
|
||||
ldx #"V"
|
||||
ok6 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"0"
|
||||
asl a
|
||||
bcc ok5
|
||||
ldx #"1"
|
||||
ok5 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"b"
|
||||
asl a
|
||||
bcc ok4
|
||||
ldx #"B"
|
||||
ok4 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"d"
|
||||
asl a
|
||||
bcc ok3
|
||||
ldx #"D"
|
||||
ok3 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"i"
|
||||
asl a
|
||||
bcc ok2
|
||||
ldx #"I"
|
||||
ok2 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"z"
|
||||
asl a
|
||||
bcc ok1
|
||||
ldx #"Z"
|
||||
ok1 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
ldx #"c"
|
||||
asl a
|
||||
bcc ok0
|
||||
ldx #"C"
|
||||
ok0 pha
|
||||
txa
|
||||
jsr $ffd2
|
||||
pla
|
||||
lda #32
|
||||
jsr $ffd2
|
||||
iny
|
||||
lda (172),y
|
||||
.bend
|
||||
hexb pha
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
lsr a
|
||||
jsr hexn
|
||||
pla
|
||||
and #$0f
|
||||
hexn ora #$30
|
||||
cmp #$3a
|
||||
bcc hexn0
|
||||
adc #6
|
||||
hexn0 jmp $ffd2
|
||||
|
||||
print pla
|
||||
.block
|
||||
sta print0+1
|
||||
pla
|
||||
sta print0+2
|
||||
ldx #1
|
||||
print0 lda !*,x
|
||||
beq print1
|
||||
jsr $ffd2
|
||||
inx
|
||||
bne print0
|
||||
print1 sec
|
||||
txa
|
||||
adc print0+1
|
||||
sta print2+1
|
||||
lda #0
|
||||
adc print0+2
|
||||
sta print2+2
|
||||
print2 jmp !*
|
||||
.bend
|
||||
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user