mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-11 13:50:13 +00:00
bc7a225080
Added a compiled C implementation of strlen(). The most interesting part about this is that it references a 16-bit value via direct-page address $ff, which means you'd want a local variable with address=$ff and width=2. The current UI prevents this.
169 lines
3.6 KiB
ArmAsm
169 lines
3.6 KiB
ArmAsm
;Edited to have duplicate labels (PROJ_ZERO, DPCODE).
|
|
CONST_ZERO equ $f0 ;project const
|
|
|
|
PROJ_ZERO equ $00 ;project addr
|
|
PROJ_ONE equ $01 ;project addr
|
|
|
|
org $1000
|
|
ldy PROJ_ZERO
|
|
lda (PROJ_ONE),y
|
|
sta $03 ;could be PROJ_ONE+2, but "nearby" is off
|
|
ldx $04
|
|
lda CONST_ZERO,S
|
|
sta $f1,S
|
|
]VAR_ZERO equ $00
|
|
]VAR_TWO equ $02
|
|
]VAR_THREE equ $03
|
|
]CONST_ZERO_VAR equ $f0
|
|
ldy ]VAR_ZERO
|
|
lda (]VAR_ZERO+1),y
|
|
sta ]VAR_THREE
|
|
ldx $04
|
|
lda ]CONST_ZERO_VAR,S
|
|
sta $f1,S
|
|
eor 0
|
|
ora 240,S
|
|
]PROJ_ZERO_DUP1 equ $10 ;clash with project symbol
|
|
]DPCODE_DUP1 equ $80 ;clash with user label
|
|
lda ]VAR_ZERO
|
|
lda ]VAR_ZERO+1
|
|
lda ]VAR_TWO
|
|
lda ]VAR_THREE
|
|
lda $04
|
|
lda ]PROJ_ZERO_DUP1
|
|
lda $11
|
|
lda DPCODE
|
|
ldx PROJ_ZERO
|
|
ldx PROJ_ONE
|
|
ldx $02
|
|
bit $ffa9
|
|
ldy PROJ_ZERO
|
|
ldy PROJ_ONE
|
|
ldy $02
|
|
dfb $2c
|
|
]NH0 equ $00 ;not hidden
|
|
]NH1 equ $01 ;not hidden
|
|
L103C lda #$fe
|
|
beq L103C
|
|
ldy ]NH0
|
|
ldy ]NH1
|
|
ldy $02
|
|
nop
|
|
]PTR0 equ $10
|
|
]CONST0 equ $10
|
|
lda ]PTR0
|
|
ldx ]PTR0+1
|
|
ldy $12
|
|
lda (]CONST0,S),y
|
|
sta (]CONST0+3,S),y
|
|
;Test name redefinition. This is mostly of interest for assemblers without
|
|
;redefinable variables, but also of interest to the cross-reference window.
|
|
]PTR equ $20 ;#1
|
|
ldx ]PTR
|
|
]PTR equ $22 ;#2
|
|
ldx ]PTR
|
|
]PTR equ $24 ;#3
|
|
ldx ]PTR
|
|
:PTR_1 nop
|
|
]PTR_A equ $20
|
|
ldy ]PTR_A
|
|
]PTR_B equ $1f
|
|
ldy ]PTR_B+1
|
|
]PTR_C equ $1d
|
|
ldy ]PTR_C+3
|
|
]PTR_D equ $21
|
|
ldy ]PTR_C+3
|
|
]VAL0 equ $30
|
|
]VAL1 equ $31
|
|
]VAL2 equ $32
|
|
]VAL3 equ $33
|
|
]VAL4 equ $34
|
|
]VAL5 equ $35
|
|
and ]VAL0
|
|
and ]VAL1
|
|
and ]VAL2
|
|
and ]VAL3
|
|
and ]VAL4
|
|
and ]VAL5
|
|
]VAL14 equ $31
|
|
and ]VAL0
|
|
and ]VAL14
|
|
and ]VAL14+1
|
|
and ]VAL14+2
|
|
and ]VAL14+3
|
|
and ]VAL5
|
|
]DPNOP equ $80 ;same as org
|
|
lda DPCODE
|
|
jsr DPCODE
|
|
rts
|
|
|
|
org $0080
|
|
DPCODE nop
|
|
lda DPCODE
|
|
lda: DPCODE
|
|
ldal DPCODE
|
|
:SPLIT1 lda #$2c
|
|
]SPLITTER equ $80
|
|
ldx $1234
|
|
beq :SPLIT1
|
|
:SPLIT2 lda $2c
|
|
ldx $5678
|
|
beq :SPLIT2
|
|
nop
|
|
clc
|
|
xce
|
|
rep #$30
|
|
mx %00
|
|
pea ^STRING
|
|
pea STRING
|
|
jsl STRLEN
|
|
sec
|
|
xce
|
|
mx %11
|
|
jmp L00E6
|
|
|
|
STRING asc 'testing'
|
|
dfb $00
|
|
|
|
]LEN equ $f2
|
|
]PTR equ $f4
|
|
]ARG equ $fd
|
|
mx %00
|
|
STRLEN phd
|
|
tsc
|
|
sec
|
|
sbc #$00f7
|
|
tcd
|
|
adc #$00f0
|
|
tcs
|
|
stz ]LEN
|
|
:L00C1 ldx ]ARG+2
|
|
lda ]ARG
|
|
inc ]ARG
|
|
bne :L00CB
|
|
inc ]ARG+2
|
|
:L00CB sta ]PTR
|
|
stx ]PTR+2
|
|
lda []PTR]
|
|
and #$00ff
|
|
beq :L00DA
|
|
inc ]LEN
|
|
bra :L00C1
|
|
|
|
:L00DA lda ]LEN
|
|
tay
|
|
tdc
|
|
clc
|
|
adc #$00f7
|
|
tcs
|
|
tya
|
|
pld
|
|
rtl
|
|
|
|
mx %11
|
|
L00E6 bit ]ARG+2
|
|
bit: $00ff
|
|
bit $0100
|
|
rts
|
|
|