home *** CD-ROM | disk | FTP | other *** search
/ Flop Magazin 52 / Flop_Magazin_52_2009_03_Raster_cs_Side_A.atr / vbivsdli.asm < prev    next >
Assembly Source File  |  2023-02-26  |  2KB  |  1 lines
  1. ;¢; VBIVSDLI¢; raster/c.p.u., 2009¢;¢color equ $cb¢;¢    org $7006¢;¢start¢;¢    lda #$10  ;hneda barva¢    sta color¢;¢    lda $14   ;synchro¢wai cmp $14   ;cekani az probehne VBI¢    beq wai   ;jeste neprobehlo => skok¢;¢    lda #<dlist¢    sta $230  ;zapis DB do dolniho reg.¢    sta $d402 ;a take do horniho¢    lda #>dlist¢    sta $231  ;zapis HB do dolniho reg.¢    sta $d403 ;a take do horniho¢;¢    lda #<dli¢    sta $200  ;DB vektoru DLI¢    lda #>dli¢    sta $201  ;HB vektoru DLI¢;¢    lda #$c0¢    sta $d40e ;povoleni DLI¢;¢    lda #$22¢    sta $22f  ;povoleni ANTIC DMA¢    sta $d400 ;i do horniho¢;¢    ldy #<vbi¢    ldx #>vbi¢    lda #$07¢    jsr $e45c ;aktivace VBI¢;¢lop¢    lda $d20a ;nahodne cislo¢    and #$06¢    ora #$80  ;modra barva¢    sta $d01a¢    lda $2fc  ;kod stisknute klavesy¢    cmp #$1c  ;ESC?¢    bne lop   ;ne => skok na lop¢;¢    lda $14   ;synchro pred ukoncenim¢wko cmp $14   ;cekani az probehne VBI¢    beq wko   ;jeste neprobehlo => skok¢;¢    lda #$40  ;az ted provede¢    sta $d40e ;zakaz DLI¢;¢    ldy #<$e462 ;standardni vektor VBI¢    ldx #>$e462 ;standardni vektor VBI¢    lda #$07¢    jsr $e45c ;deaktivace VBI¢;¢    lda #$ff  ;zruseni posledne¢    sta $2fc  ;stlacene klavesy¢;¢    rts       ;konec¢;¢dli¢    pha       ;uschovani A¢    tya¢    pha       ;uschovani Y¢;¢    cli       ;OS ROM overuje flag I !¢;¢    sta $d40a ;WSYNC, 1 mikroradek¢    lda color¢    pha       ;uschovani color¢    clc¢    adc #$04¢    sta color ;barva zvysena o 4¢    sta $d01a ;zapis do horniho reg.¢;¢    ldy #70   ;cyklus 70x¢di2¢    sta $d40a ;WSYNC, 1 mikroradek¢    dey¢    bne di2   ;opakuje¢;¢    lda #$0e  ;bila barva¢    sta $d01a ;zapis do horniho reg.¢    sta $d40a ;WSYNC, 1 mikroradek¢    lda #$00  ;cerna barva¢    sta $d01a ;zapis do horniho reg.¢;¢    pla¢    sta color ;obnoveni puvodni color¢;¢    pla¢    tay       ;obnoveni Y¢    pla       ;obnoveni A¢    rti       ;konec DLI¢;¢vbi¢    ldx #7    ;pocet opakovani vnejsi¢vi2¢    ldy #100  ;pocet opakovani vnitrni¢vi3¢    lda $d20a ;nahodne cislo¢    and #$06¢    ora #$c0  ;zelena barva¢    sta $d01a¢    dey       ;vnitrni cyklus¢    bne vi3¢    dex       ;vnejsi cyklus¢    bne vi2¢;¢    lda #$00  ;cerna barva¢    sta $d01a¢;¢    jmp $e462 ;konec VBI¢;¢dlist¢    dta 112,112,112¢:20 dta 112¢    dta 112+128¢    dta 65,a(dlist)¢;¢runadr¢    jsr start¢    jmp ($0a)¢;¢    run runadr¢