home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2000-01_2000_CSW_Side_A.d64
/
src_multi-bmap
< prev
next >
Wrap
Text File
|
2023-02-26
|
1KB
|
46 lines
*= $0810
lda $d011
ora #$20 ;bitmap mode
sta $d011
lda $d016
ora #$10 ;multicolor on
sta $d016
lda #$18 ;bitmap = $2000
sta $d018 ;videoram = $0400
ldx #$00
stx $d020 ;hintergr. schwarz
stx $d021
color lda #$0d ;11-bits=hellgruen
sta $d800,x ;farbe in
sta $d900,x ;colorram
sta $da00,x
sta $db00,x
lda #$e6 ;01-bits=hellblau
sta $0400,x ;10-bits=blau
sta $0500,x ;farben in
sta $0600,x ;videoram
sta $0700,x
inx
bne color
ldx #$00 ;bitmapadresse
ldy #$20 ;$2000
stx $fa ;in vektor $fa/$fb
sty $fb
lda #$d8 ;bin=%11011000
;(pixelmuster)
ldy #$00
pixels sta ($fa),y ;in (vektor $fa)+y
iny ;adr.(low) plus 1
bne pixels ;wenn <> $00
inc $fb ;adr.(high) plus 1
ldx $fb ;lade adr.(high)
cpx #$40 ;adresse = $4000 ?
bne pixels ;wenn adr. < $4000
rts ;fertig