home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 June / 64er_Magazin_92-06_1992_Markt__Technik_de_Side_B.d64 / b-copper 1.asc < prev    next >
Encoding:
Text File  |  1992-01-01  |  2.0 KB  |  75 lines
  1.  
  2. ;***************************************
  3. ;** border-copperbars  (w) '92 by pit **
  4. ;***************************************
  5.  
  6.          *= $1000    ;startadresse $1000
  7.  
  8.          sei         ;irq setzen
  9.          lda #<start ;vektoren
  10.          sta $0314   ;auf eigene
  11.          lda #>start ;routine
  12.          sta $0315   ;verbiegen
  13.  
  14.          lda #$01    ;nur raster-irq
  15.          sta $d01a   ;zulassen
  16.  
  17.          lda $d011   ;y-scroll register
  18.          and #$7f    ;auf original-wert
  19.          sta $d011   ;setzen
  20.  
  21.          lda #$00    ;ghost-byte
  22.          sta $3fff   ;loeschen
  23.          cli         ;irq-flag loeschen
  24.          rts         ;zurueck
  25.  
  26. start    lda $dc0d   ;irq von der
  27.          bmi border  ;cia oder vom vic?
  28.          lda $d019   ;irr loeschen
  29.          sta $d019   ;
  30.          jmp $ea81   ;und zum alten irq
  31.  
  32. ;--- --- --- --- --- --- --- --- --- ---
  33. border   lda #$f0    ;rasterstrahl auf
  34. rzy1     cmp $d012   ;position $f0 ??
  35.          bne rzy1    ;
  36.  
  37.          ldx #$21    ;warteschleife
  38. rzy2     dex         ;zum austimen
  39.          bne rzy2    ;
  40.  
  41.          ldx #$00    ;
  42. rzy3     txa         ;akku
  43.          and #$07    ;verknuepfen
  44.          ora #$18    ;(kein text)
  45.          ldy colors,x;farbe laden
  46.          sta $d011   ;verknuepfter wert
  47.                      ;in $d011 schreiben
  48.          sty $d020   ;und farben in
  49.          sty $d021   ;die farbregister
  50.          jsr wait    ;austimen
  51.          jsr wait    ;austimen
  52.          inx         ;
  53.          cpx #$28    ;schon alle farben?
  54.          bne rzy3    ;
  55.  
  56.          lda #$00    ;bildschirm
  57.          sta $d020   ;auf schwarz
  58.          sta $d021   ;setzen
  59.  
  60.          jmp $ea31   ;alter irq
  61.  
  62. wait     bit $ff     ;3 zyklen +
  63.          nop         ;2 zyklen warten
  64.          rts         ;und zurueck
  65.  
  66. ;--- --- --- --- --- --- --- --- --- ---
  67. colors   .byte $06,$00,$06,$04,$00,$06
  68.          .byte $04,$0e,$03,$00,$06,$04
  69.          .byte $0e,$03,$07,$00,$06,$04
  70.          .byte $0e,$03,$07,$01,$00,$06
  71.          .byte $04,$0e,$03,$07,$01,$07
  72.          .byte $03,$0e,$04,$06
  73. ;--- --- --- --- --- --- --- --- --- ---
  74.  
  75.