home *** CD-ROM | disk | FTP | other *** search
-
- *= $0810
-
- sei ;interrupt sperren
- l ;(wegen timing)
- lda $d016
- and #$ef ;multicolor aus
- sta $d016
- lda $d011
- and #$df ;bitmap mode aus
- ora #$40 ;ebc mode an
- sta $d011
-
- ldx #$00 ;alle verfuegbare
- loop txa ;zeichen und alle
- sta $0400,x ;farben auf den
- sta $d800,x ;bildschirm
- inx
- bne loop
-
- stx index1 ;tabellenzeiger
- stx index2 ;initialisieren
- stx index3 ;(auf 0 setzen)
-
- blinker
- ldx index1 ;zeiger 1 laden
- getcol1 lda colors1,x ;farbe a. tabelle
- bne noinit1 ;wenn wert =0
- tax ;sonst in index
- beq getcol1 ;und erneut holen
- noinit1 sta $d022 ;farbe in $d022
- inx ;zaehler erhoehen
- stx index1 ;und ablegen
-
- ldx index2 ;siehe oben, nur
- getcol2 lda colors2,x ;fuer zaehler2,
- bne noinit2 ;farben2 und
- tax ;$d023 register
- beq getcol2
- noinit2 sta $d023
- inx
- stx index2
-
- ldx index3 ;siehe oben, nur
- getcol3 lda colors3,x ;fuer zaehler3,
- bne noinit3 ;farben3 und
- tax ;$d024 register
- beq getcol3
- noinit3 sta $d024
- inx
- stx index3
-
- lda #$fa ;warten auf
- delay cmp $d012 ;rasterstrahl
- bne delay ;f. verzoegerung
- jmp blinker ;naechste farben
- ;holen
-
- index1 .byte 0 ;zaehler 1
- index2 .byte 0 ;zaehler 2
- index3 .byte 0 ;zaehler 3
-
- ;-- farbtabellen: --
-
- colors1 .byte $10,$06,$04,$0e,$03,$0d
- .byte $01,$0d,$03,$0e,$04,$06
- .byte $00
-
- colors2 .byte $10,$09,$02,$08,$0a,$07
- .byte $0a,$08,$02,$09
- .byte $00
-
- colors3 .byte $10,$0b,$05,$05,$03,$03
- .byte $0d,$0d,$03,$02,$05,$05
- .byte $0b
- .byte $00
-
- ;ende !
-
-