mirror of
https://github.com/a2-4am/4cade.git
synced 2024-08-29 20:29:32 +00:00
148 lines
1.9 KiB
ArmAsm
Executable File
148 lines
1.9 KiB
ArmAsm
Executable File
!cpu 6502
|
|
!to "quick#061000",plain
|
|
*=$1000
|
|
|
|
zpword = $0 ;and $1
|
|
zpstring= $2 ;and $3
|
|
runningscore= $4 ;and $5
|
|
startat = $6
|
|
i = $7
|
|
tmp = $8
|
|
|
|
jsr quick
|
|
tax
|
|
lda #0
|
|
jmp $ed24 ;hex to dec
|
|
|
|
quick
|
|
|
|
lda #<word
|
|
sta zpword
|
|
lda #>word
|
|
sta zpword+1
|
|
lda #<string
|
|
sta zpstring
|
|
lda #>string
|
|
sta zpstring+1
|
|
ldy word
|
|
cpy string
|
|
bne +
|
|
- lda (zpword), y
|
|
cmp (zpstring), y
|
|
bne +
|
|
dey
|
|
bne -
|
|
lda #100
|
|
rts
|
|
|
|
+ lda #0
|
|
sta runningscore
|
|
sta runningscore+1
|
|
ldy #1
|
|
sty startat
|
|
- sty i
|
|
lda (zpword), y
|
|
jsr tolower
|
|
sta tmp
|
|
ldy startat
|
|
-- lda (zpstring), y
|
|
jsr tolower
|
|
cmp tmp
|
|
beq +
|
|
cpy string
|
|
iny
|
|
bcc --
|
|
lda #0
|
|
rts
|
|
|
|
+ ldx #80
|
|
cpy startat
|
|
beq +
|
|
ldx #10
|
|
cpy #1
|
|
beq +
|
|
dey
|
|
lda (zpstring), y
|
|
iny
|
|
cmp ' '
|
|
bne +
|
|
ldx #90
|
|
+ txa
|
|
clc
|
|
adc runningscore
|
|
sta runningscore
|
|
bcc +
|
|
inc runningscore+1
|
|
+ iny
|
|
sty startat
|
|
ldy i
|
|
cpy word
|
|
iny
|
|
bcc -
|
|
|
|
lda runningscore
|
|
ldx runningscore+1
|
|
ldy string
|
|
jsr div
|
|
sta tmp
|
|
lda runningscore
|
|
ldx runningscore+1
|
|
ldy word
|
|
jsr div
|
|
clc
|
|
adc tmp
|
|
lsr
|
|
ldx word+1
|
|
cpx string+1
|
|
bne +
|
|
cmp #85
|
|
bcs +
|
|
adc #15
|
|
+ rts
|
|
|
|
tolower
|
|
cmp #$41
|
|
bcc +
|
|
cmp #$5b
|
|
bcs +
|
|
ora #$20
|
|
+ rts
|
|
|
|
div
|
|
sta num1
|
|
stx num1+1
|
|
sty num2
|
|
|
|
lda #0
|
|
sta rem
|
|
sta rem+1
|
|
ldx #16
|
|
- asl num1
|
|
rol num1+1
|
|
rol rem
|
|
rol rem+1
|
|
lda rem
|
|
sec
|
|
sbc num2
|
|
bcc +
|
|
sta rem
|
|
dec rem+1
|
|
inc num1
|
|
+ dex
|
|
bne -
|
|
lda num1
|
|
rts
|
|
|
|
rem !byte 0,0
|
|
num1 !byte 0,0
|
|
num2 !byte 0
|
|
|
|
word !byte word_e-word_b
|
|
word_b
|
|
!text "HE"
|
|
word_e
|
|
string !byte string_e-string_b
|
|
string_b
|
|
!text "HELLO WORLD"
|
|
string_e
|