mirror of
https://github.com/tdinucci/6502-emulator.git
synced 2024-06-08 10:57:31 +00:00
50 lines
544 B
ArmAsm
50 lines
544 B
ArmAsm
|
; head position
|
||
|
ldx #$00
|
||
|
stx $00 ; head position low
|
||
|
ldx #$e0
|
||
|
stx $01 ; head position high
|
||
|
|
||
|
; colours
|
||
|
ldx #$f0
|
||
|
stx $04 ; paint colour
|
||
|
ldx #$00
|
||
|
stx $05 ; rubber colour
|
||
|
|
||
|
jsr one
|
||
|
jsr two
|
||
|
jsr three
|
||
|
jsr four
|
||
|
|
||
|
clv
|
||
|
bvc end
|
||
|
|
||
|
one
|
||
|
lda #$50
|
||
|
ldx #$00
|
||
|
sta ($00, x)
|
||
|
inc $00
|
||
|
rts
|
||
|
|
||
|
two
|
||
|
lda #$F0
|
||
|
ldx #$00
|
||
|
sta ($00, x)
|
||
|
inc $00
|
||
|
rts
|
||
|
|
||
|
three
|
||
|
lda #$FF
|
||
|
ldx #$00
|
||
|
sta ($00, x)
|
||
|
inc $00
|
||
|
rts
|
||
|
|
||
|
four
|
||
|
lda #$af
|
||
|
ldx #$00
|
||
|
sta ($00, x)
|
||
|
inc $00
|
||
|
rts
|
||
|
|
||
|
end
|