home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-01_2000_CSW_Side_A.d64 / src_ebc-mode < prev    next >
Encoding:
Text File  |  2004-01-01  |  2.0 KB  |  80 lines
  1.  
  2.          *= $0810
  3.  
  4.          sei          ;interrupt sperren
  5. l                     ;(wegen timing)
  6.          lda $d016
  7.          and #$ef      ;multicolor aus
  8.          sta $d016
  9.          lda $d011
  10.          and #$df      ;bitmap mode aus
  11.          ora #$40      ;ebc mode an
  12.          sta $d011
  13.  
  14.          ldx #$00      ;alle verfuegbare
  15. loop     txa           ;zeichen und alle
  16.          sta $0400,x   ;farben auf den
  17.          sta $d800,x   ;bildschirm
  18.          inx
  19.          bne loop
  20.  
  21.          stx index1    ;tabellenzeiger
  22.          stx index2    ;initialisieren
  23.          stx index3    ;(auf 0 setzen)
  24.  
  25. blinker
  26.          ldx index1    ;zeiger 1 laden
  27. getcol1  lda colors1,x ;farbe a. tabelle
  28.          bne noinit1   ;wenn wert =0
  29.          tax           ;sonst in index
  30.          beq getcol1   ;und erneut holen
  31. noinit1  sta $d022     ;farbe in $d022
  32.          inx           ;zaehler erhoehen
  33.          stx index1    ;und ablegen
  34.  
  35.          ldx index2    ;siehe oben, nur
  36. getcol2  lda colors2,x ;fuer zaehler2,
  37.          bne noinit2   ;farben2 und
  38.          tax           ;$d023 register
  39.          beq getcol2
  40. noinit2  sta $d023
  41.          inx
  42.          stx index2
  43.  
  44.          ldx index3    ;siehe oben, nur
  45. getcol3  lda colors3,x ;fuer zaehler3,
  46.          bne noinit3   ;farben3 und
  47.          tax           ;$d024 register
  48.          beq getcol3
  49. noinit3  sta $d024
  50.          inx
  51.          stx index3
  52.  
  53.          lda #$fa      ;warten auf
  54. delay    cmp $d012     ;rasterstrahl
  55.          bne delay     ;f. verzoegerung
  56.          jmp blinker   ;naechste farben
  57.                        ;holen
  58.  
  59. index1   .byte 0       ;zaehler 1
  60. index2   .byte 0       ;zaehler 2
  61. index3   .byte 0       ;zaehler 3
  62.  
  63.        ;-- farbtabellen: --
  64.  
  65. colors1  .byte $10,$06,$04,$0e,$03,$0d
  66.          .byte $01,$0d,$03,$0e,$04,$06
  67.          .byte $00
  68.  
  69. colors2  .byte $10,$09,$02,$08,$0a,$07
  70.          .byte $0a,$08,$02,$09
  71.          .byte $00
  72.  
  73. colors3  .byte $10,$0b,$05,$05,$03,$03
  74.          .byte $0d,$0d,$03,$02,$05,$05
  75.          .byte $0b
  76.          .byte $00
  77.  
  78.         ;ende !
  79.  
  80.