home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2000-01_2000_CSW_Side_A.d64
/
src_ebc-mode
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
80 lines
*= $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 !