home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-01_2000_CSW_Side_A.d64 / src_multi-bmap < prev    next >
Encoding:
Text File  |  2004-01-01  |  1.2 KB  |  46 lines
  1.  
  2.          *= $0810
  3.  
  4.          lda $d011
  5.          ora #$20     ;bitmap mode
  6.          sta $d011
  7.          lda $d016
  8.          ora #$10     ;multicolor on
  9.          sta $d016
  10.          lda #$18     ;bitmap = $2000
  11.          sta $d018    ;videoram = $0400
  12.  
  13.          ldx #$00
  14.          stx $d020    ;hintergr. schwarz
  15.          stx $d021
  16. color    lda #$0d     ;11-bits=hellgruen
  17.          sta $d800,x  ;farbe in
  18.          sta $d900,x  ;colorram
  19.          sta $da00,x
  20.          sta $db00,x
  21.          lda #$e6     ;01-bits=hellblau
  22.          sta $0400,x  ;10-bits=blau
  23.          sta $0500,x  ;farben in
  24.          sta $0600,x  ;videoram
  25.          sta $0700,x
  26.          inx
  27.          bne color
  28.  
  29.          ldx #$00     ;bitmapadresse
  30.          ldy #$20     ;$2000
  31.          stx $fa      ;in vektor $fa/$fb
  32.          sty $fb
  33.  
  34.          lda #$d8     ;bin=%11011000
  35.                       ;(pixelmuster)
  36.          ldy #$00
  37. pixels   sta ($fa),y  ;in (vektor $fa)+y
  38.          iny          ;adr.(low) plus 1
  39.          bne pixels   ;wenn <> $00
  40.          inc $fb      ;adr.(high) plus 1
  41.          ldx $fb      ;lade adr.(high)
  42.          cpx #$40     ;adresse = $4000 ?
  43.          bne pixels   ;wenn adr. < $4000
  44.          rts          ;fertig
  45.  
  46.