mirror of
https://github.com/fadden/6502bench.git
synced 2024-08-16 15:29:00 +00:00
89 lines
2.1 KiB
ArmAsm
89 lines
2.1 KiB
ArmAsm
|
; Copyright 2019 faddenSoft. All Rights Reserved.
|
||
|
|
; See the LICENSE.txt file for distribution terms (Apache 2.0).
|
||
|
|
;
|
||
|
|
; Assembler: Merlin 32
|
||
|
|
|
||
|
|
org $1000
|
||
|
|
|
||
|
|
; Test conflict with auto-label.
|
||
|
|
start lda #$00 ;do not label
|
||
|
|
:L1000 lda #$01 ;EDIT: set label to :L1000 (dup of auto)
|
||
|
|
ldx start
|
||
|
|
ldy :L1000
|
||
|
|
|
||
|
|
; Test local/global having same name.
|
||
|
|
ldx #$02
|
||
|
|
loop1 dex ;EDIT
|
||
|
|
bne loop1
|
||
|
|
|
||
|
|
ldx #$03
|
||
|
|
:loop1 dex ;EDIT
|
||
|
|
bne :loop1
|
||
|
|
|
||
|
|
; Test nested loops, and ref to a non-unique local on the other side
|
||
|
|
; of a global.
|
||
|
|
global1 nop ;EDIT
|
||
|
|
ldx #$04
|
||
|
|
:loop1 ldy #$05 ;EDIT: local, name "loop"
|
||
|
|
|
||
|
|
:loop2 dey ;EDIT: local, name "loop"
|
||
|
|
bne :loop2
|
||
|
|
dex
|
||
|
|
bne :loop1
|
||
|
|
jmp btarg
|
||
|
|
|
||
|
|
global2 nop ;EDIT
|
||
|
|
|
||
|
|
btarg nop ;EDIT: local, name "loop"
|
||
|
|
|
||
|
|
; Test hand-over-hand locals branching forward.
|
||
|
|
global3 nop ;EDIT
|
||
|
|
ldx #$06
|
||
|
|
ldy #$07
|
||
|
|
dex
|
||
|
|
beq :fwd1
|
||
|
|
dey
|
||
|
|
beq :fwd2
|
||
|
|
:fwd1 nop ;EDIT
|
||
|
|
:fwd2 nop ;EDIT
|
||
|
|
|
||
|
|
; Test loop with a global in the middle.
|
||
|
|
global4 nop ;EDIT
|
||
|
|
ldx #$08
|
||
|
|
gloop dex ;EDIT: local, name "loop"
|
||
|
|
global5 nop
|
||
|
|
bne gloop
|
||
|
|
|
||
|
|
nop
|
||
|
|
|
||
|
|
; Test symbolic references.
|
||
|
|
|
||
|
|
global6 nop
|
||
|
|
:spin1 jsr :spin2 ;EDIT: local, name "spin1", operand ref to ":spin2"
|
||
|
|
:spin2 jsr :spin1 ;EDIT: local, name "spin2", operand ref to ":spin1"
|
||
|
|
nop
|
||
|
|
:spin3 lda :spin3 ;EDIT: local, name "spin1", operand ref to ":spin1"
|
||
|
|
|
||
|
|
; Semi-related: test labels that are nothing but underscores.
|
||
|
|
global_ nop
|
||
|
|
ldx #$40
|
||
|
|
__ dex
|
||
|
|
bne __
|
||
|
|
beq ___
|
||
|
|
___ ldx #$41
|
||
|
|
:__ dex
|
||
|
|
bne :__
|
||
|
|
|
||
|
|
nop
|
||
|
|
|
||
|
|
; Semi-related: test annotations (mostly to confirm that the suffix chars
|
||
|
|
; aren't appearing in the assembly output)
|
||
|
|
anno lda #$42 ;EDIT: add '?'
|
||
|
|
anno1 lda anno
|
||
|
|
|
||
|
|
|
||
|
|
rts
|
||
|
|
|
||
|
|
dw anno1 ;EDIT: use table generator
|
||
|
|
|