Ruszające się kolory

:BasicUpstart2(main)

.var PamiecEkranu = List()
.var PamiecKolorow = List()
.var GwiazdkiBiale = List()
.var GwiazdkiCzerwone = List()


.eval PamiecEkranu.add($04d6,$04d7,$04d8,$04fd,$0501,$0525,$0529,$054c,$0552,$0574,$057a,$059c,$05a2,$05c4,$05ca,$05ed,$05f1,$0615,$0619,$063e,$063f,$0640)
.eval PamiecKolorow.add($d8d6,$d8d7,$d8d8,$d8fd,$d901,$d925,$d929,$d94c,$d952,$d974,$d97a,$d99c,$d9a2,$d9c4,$d9ca,$da15,$da19,$d9ed,$d9f1,$da3d,$da41,$da3e,$da3f,$da40)

.eval GwiazdkiBiale.add   ($d8d7,$d8d8,$d901,$d929,$d952,$d97a,$d9a2,$d9ca,$d9f1,$da19,$da40,$da3f,$da3e,$da15,$d9ed,$d9c4,$d99c,$d974,$d94c,$d925,$d8fd,$d8d6)
.eval GwiazdkiCzerwone.add($d8d6,$d8d7,$d8d8,$d901,$d929,$d952,$d97a,$d9a2,$d9ca,$d9f1,$da19,$da40,$da3f,$da3e,$da15,$d9ed,$d9c4,$d99c,$d974,$d94c,$d925,$d8fd)

.var brkFile = createFile("breakpoints.txt")

.macro KolorowanieGwiazdekBialy(adres)
{
           lda #01
           sta adres
           jsr opoznienie
}

.macro KolorowanieGwiazdekCzerwony(adres)
{
           lda #42
           sta adres

}


.macro break() {
  .eval brkFile.writeln("break " + toHexString(*))
}

/* ekran jest od $0400 do $07e7 */
/* kolory ekranu $D800-$DBE7 */
main:

lda #42
.for(var i=0;i<PamiecEkranu.size();i++) sta PamiecEkranu.get(i)

lda #42
.for(var i=0;i<PamiecKolorow.size();i++) sta PamiecKolorow.get(i)

            jsr opoznienie
            jsr opoznienie

            .for(var i=0;i<GwiazdkiBiale.size();i++)

            {
                :KolorowanieGwiazdekCzerwony(GwiazdkiCzerwone.get(i))
                :KolorowanieGwiazdekBialy(GwiazdkiBiale.get(i))

            }

            rts

opoznienie:
            ldx #$00
petla1:
            ldy #$00
petla2:
            iny
            cpy #$ff
            bne petla2
            inx
            cpx #$ff
            bne petla1
            rts