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
|