; $C0DA: Paint
PAINT: ldx #$02
ldy #$06
LC0DE: lda #$00
sta $02B9,x
sta $02BA,x
jsr LC322
bpl LC0F3
dec $02B9,x
dec $02BA,x
bne LC0FE
LC0F3: cmp #$00
bne LC0FB
cpy #$00
beq LC0FE
LC0FB: inc $02B9,x
LC0FE: sta $02B5,x
asl a
sta $02BD,x
tya
sta $02B6,x
rol a
sta $02BE,x
dex
dex
ldy #$04
cpx #$00
beq LC0DE
ldx #$0A
ldy #$08
jsr LC305
lda #$00
rol a
rol a
sta $02C3
eor #$02
sta $02C4
clc
lda #$10
adc $02C3
tay
pha
eor #$02
tax
jsr LC305
sta $02AD,x
tya
sta $02AE,x
pla
tay
clc
lda #$08
adc $02C4
tax
jsr LC305
sta $02C1
sty $02C2
LC14F: jsr LC1A5
ldy $02C4
sec
lda $02B5,y
sbc #$01
sta $02B5,y
bcs LC16B
lda $02B6,y
sbc #$00
sta $02B6,y
bcs LC16B
rts
LC16B: ldx $02C3
lda $02C2
bmi LC179
jsr LC194
ldx $02C4
LC179: clc
lda $02C1
adc $02BD,x
sta $02C1
lda $02C2
adc $02BE,x
sta $02C2
ldx $02C4
jsr LC194
beq LC14F
LC194: ldy #$02
clc
LC197: lda $02AD,x
adc $02B9,x
sta $02AD,x
inx
dey
bne LC197
rts
LC1A5: lda $02E8
ora $02E7
beq SDOT
inc $02AD
bne LC1B5
inc $02AE
LC1B5: jsr SDOT
ldx $02AD
bne LC1C0
dec $02AE
LC1C0: dec $02ADLetzte Änderung: 2019-01-06 09:49:55
