mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-04 11:49:58 +00:00
81 lines
1.8 KiB
ArmAsm
81 lines
1.8 KiB
ArmAsm
|
; Copyright 2018 faddenSoft. All Rights Reserved.
|
||
|
|
; See the LICENSE.txt file for distribution terms (Apache 2.0).
|
||
|
|
;
|
||
|
|
; Assembler: Merlin 32
|
||
|
|
; 6502 version
|
||
|
|
|
||
|
|
org $1000
|
||
|
|
|
||
|
|
jsr test1
|
||
|
|
jsr test3
|
||
|
|
jsr test4
|
||
|
|
jsr test5
|
||
|
|
jmp test6
|
||
|
|
|
||
|
|
; TEST #1: simple example
|
||
|
|
test1 lda #$00
|
||
|
|
dfb $2c ;BIT abs
|
||
|
|
:inner lda #$01
|
||
|
|
beq :inner
|
||
|
|
rts
|
||
|
|
|
||
|
|
; TEST #3: embedded with non-instruction byte
|
||
|
|
;
|
||
|
|
; The code analyzer sees two paths, involving the three bytes.
|
||
|
|
; The first is the three-byte JSR, the second is the one-byte
|
||
|
|
; RTS. The third NOP byte is never "executed" by the analyzer,
|
||
|
|
; but because of the way we display embedded instructions it
|
||
|
|
; gets put on its own line. Since it's not an instruction start
|
||
|
|
; or a data item, things get confused. (This is referred to as
|
||
|
|
; an "embedded orphan" in the code.)
|
||
|
|
|
||
|
|
test3 dfb $20 ;JSR
|
||
|
|
:mid dfb $60 ;RTS
|
||
|
|
dfb $ea ;NOP
|
||
|
|
bvs :mid
|
||
|
|
|
||
|
|
|
||
|
|
; TEST #4: overlapping chain
|
||
|
|
;
|
||
|
|
; Each BIT instruction is three bytes, and each byte is a branch target,
|
||
|
|
; so we get a string of embedded instructions.
|
||
|
|
test4
|
||
|
|
:bits hex 2c2c2c2c2c2c2c2c2ceaea
|
||
|
|
asl
|
||
|
|
bcc :bits
|
||
|
|
asl
|
||
|
|
bcc :bits+1
|
||
|
|
asl
|
||
|
|
bcc :bits+2
|
||
|
|
asl
|
||
|
|
bcc :bits+3
|
||
|
|
asl
|
||
|
|
bcc :bits+4
|
||
|
|
asl
|
||
|
|
bcc :bits+5
|
||
|
|
asl
|
||
|
|
bcc :bits+6
|
||
|
|
asl
|
||
|
|
bcc :bits+7
|
||
|
|
asl
|
||
|
|
bcc :bits+8
|
||
|
|
asl
|
||
|
|
bcc :bits+9
|
||
|
|
rts
|
||
|
|
|
||
|
|
; TEST #5: another overlap
|
||
|
|
;
|
||
|
|
; Trying to be a little different.
|
||
|
|
test5 dfb $2c
|
||
|
|
:mid1 nop
|
||
|
|
hex ad
|
||
|
|
:mid2 lda $00
|
||
|
|
asl
|
||
|
|
bcc :mid1
|
||
|
|
asl
|
||
|
|
bcc :mid2
|
||
|
|
|
||
|
|
; TEST #6: "embedded" off the end of the file
|
||
|
|
test6
|
||
|
|
dfb $ad ;lda
|