rastry sneak

:BasicUpstart2(main)
//----------------------------------------------------------
// Code for creating the breakpoint file sent to Vice/C64Debugger
//----------------------------------------------------------
.var _useBinFolderForBreakpoints = cmdLineVars.get("usebin") == "true"
.var _createDebugFiles = cmdLineVars.get("afo") == "true"
.print "File creation " + [_createDebugFiles
    ? "enabled (creating breakpoint file)"
    : "disabled (no breakpoint file created)"]
.var brkFile
.if(_createDebugFiles) {
    .if(_useBinFolderForBreakpoints)
        .eval brkFile = createFile("bin/breakpoints.txt")
    else
        .eval brkFile = createFile("breakpoints.txt")
}

.macro break() {
.if(_createDebugFiles) {
    .eval brkFile.writeln("break " + toHexString(*))
    }
}

// For C64Debugger v0.54 (2016/09/03)
.macro setbkg(color) {
.if(_createDebugFiles) {
    .eval brkFile.writeln("setbkg " + toHexString(*) + " " + color)
    }
}

//Because Kick Assembler has to be run with the -afo switch to be able to write breakpoints to a file, we can use this to enable "debugger" specific code when build with Shift-F7 or Shift-F5, ie:

.const debug = cmdLineVars.get("afo") == "true"

.if (debug) {
  inc $d020
}

.label border_color = $d020
.label screen_memory = $0400
.label memory_setup_register = $d018

.label screen_control_register1 = $d011
.label vic2_rasterline_register = $d012
.label character_rom = $d000


* = $960
licznik:
.byte $0
licznik2:
.byte $0


gora:
.byte $0

main:
//  jsr $e544
//:break()
        lda #BLACK
        sta $d020
        sta $d021
        sei       //disable maskable IRQs

        lda #$7f
        sta $dc0d //disable timer interrupts which can be generated by the two CIA chips
        sta $dd0d //the kernal uses such an interrupt to flash the cursor and scan the keyboard, so we better
          //stop it.

        lda $dc0d//;by reading this two registers we negate any pending CIA irqs.
        lda $dd0d //if we don't do this, a pending CIA irq might occur after we finish setting up our irq.
         //;we don't want that to happen.

        lda #$01 //;this is how to tell the VICII to generate a raster interrupt
        sta $d01a

        lda #$47 //;this is how to tell at which rasterline we want the irq to be triggered
        sta $d012

        lda #$1b  //as there are more than 256 rasterlines, the topmost bit of $d011 serves as
        sta $d011 //the 9th bit for the rasterline we want our irq to be triggered.
         //;here we simply set up a character screen, leaving the topmost bit 0.

//      lda #$35  //we turn off the BASIC and KERNAL rom here
    //  sta $01   //the cpu now sees RAM everywhere except at $d000-$e000, where still the registers of
          //SID/VICII/etc are visible

    lda #<irq   // nastavit LO byte adresy
    sta $0314   // na LO adresu IRQ - preruseni
    lda #>irq   // nastavit HI byte adresy
    sta $0315   // na HI adresu IRQ - preruseni
    cli // vypnout preruseni
    //rts   // skoncit program
    //  cli      //;enable maskable interrupts again

        jmp *    //;we better don't RTS, the ROMS are now switched off, there's no way back to the system


 irq:
         inc $d019
         linia1:
        lda #$6b    // zaladuj do akku $6b
!loop:
        cmp $d012       // porownaj z rejestrem rastra
        bne !loop-      // Branch Not Equal? to lec do loop i czekaj dalej
//:break()
        bit $00         // ok mamy 6B. Te bit $00 i nop nie robia nic poza docyklowaniem rastra. bit $00 ma 3 cykle
        bit $00
        bit $00
        bit $00
        bit $00
        nop             // nop ma 2 cykle

        ldy #$00        // tu zaczyna sie petla zaladuj do rejestru y = 0
!kolor:
        ldx kolor,y         // zaladuj pierwszy bajt z tablicy kolor + y
        stx $d021           // zapisz w rejestrze obrazu (paper). Ta instrukcja wykonuje sie caly czas, az do nastepnego kolory
        ldx tablica,y       // zaladuj pierwszy bajt z tablicy cyklowania (jedna linijka to 63 cykle co 8 linii)
!loop:  dex                 // wartosc Y jest np. 8 - czyli petla ma sie wykonac 8 razy, zeby przelecialo 63 cykle
        bne !loop-          // Y = 0? Nie idz do loop- (czyli pierwsze na gorze)
        iny                 // Tak? Zwieksz Y
        cpy #$24            // Czy Y=$24?
        bne !kolor-         // Nie - idz i wez kolejny kolor z tablicy kolorow jak i z tablicy opoznien
linia2:

        lda #$90                // bylo juz Y=24? to zaladuj $90
        sta $d012               // i zapisz w rejestrze rastra
 !loop:
        cmp $d012               // i znow sprawdz czy jest $90, nie to czekaj tak to
        bne !loop-


        lda #BLACK              // zaladuj czarny i zmien papier na czarny
        sta $d021               // to ta instrukcja. Czyli od $90 do (po przekreceniu licznika) linii 6B na gorze ma byc czarny


        pla                 // te sa niewazne dla Ciebie
        tay
        pla
        tax
        pla
//:break()
    //  lda gora            // te tez nie. To znacznik czy raster ma isc do gory czy w dol. Poki
        //cmp #$00              // co bez znaczenia
//      beq przesuniecie

  przesuniecie_gora:
//:break()
ldx #$00

!loop:
    lda kolor+10,x
a:  sta kolor+9,x
    inx

 // :break()
b:  cpx #16
    bne !loop-
    dec !loop-+1
    dec !loop-+4
    inc licznik
    lda licznik
    cmp #11
    bne przesuniecie_gora
lda #$00
sta licznik

przesuniecie_dol:
//:break()
ldx #14

!loop:
    lda kolor-1,x
!a: sta kolor,x

    dex

    //:break()
    cpx #00
    bne !loop-
b1:     lda kolor-1
b2:     sta kolor
b3:     lda kolor-2
b4:     sta kolor-1
    inc b1+1
    inc b2+1
    lda b3+2
    cmp #$0a
    bne b5
    inc b3+2
b5: inc b3+1
    inc b4+1
    inc !loop-+1
    inc !loop-+4
    inc licznik
//a1:   lda kolor
//a2:   sta kolor+1
//a3:   lda kolor-1
//a4:   sta kolor
    //inc a1+1
 // inc a2+1
 // inc a3+1
 // inc a4+1
    lda licznik
    cmp #11

    bne przesuniecie_dol


//  lda kolor-1
//  sta kolor
//  inc licznik
 //     lda licznik
 //     cmp #$24
 //     bne !koniec+
//      dec gora

//  inc licznik2

!koniec:
    lda #$0b
    sta przesuniecie_gora+3
    lda #$0a
    sta przesuniecie_gora+6
    lda #$01
    sta przesuniecie_dol+6
    lda #$00
    sta przesuniecie_dol+3

    lda #00
    sta b1+1
    lda #01
    sta b2+1
    lda #$ff
    sta b3+1
    lda #$0a
    sta b3+2
    lda #00
    sta b4+1

    lda #$00
    sta licznik

//  jmp przesuniecie_gora

//ostatni_kolor:
    //  sta kolor-17,x
        //rts
//  jsr przesuniecie



//:break()

/* przesuniecie:            // to jest najwazniejsze
    ldx #$00            // wartosc X=0
    lda kolor           // zaladuj na razie bez petli pierwsza wartosc z tablicy KOLOR
    sta kolor+37        // i zapisz do tablicy kolor +37 bajtow (czyli 37 pozycja) pierwszy krok weza
 !loop:                 // i petla
    lda kolor+1,x           // zaladuj kolor+1+x
    sta kolor,x             // zapisz na kolor+x (czyli powiedzmy bajt 2 na bajt 1, bajt 5 na bajt 4)
    inx                     // zwiekszaj X (wiesz.. lda cos,x = lda tablica,numer elementu

    cpx #37                 // czy jest 37? Ilosc rastrow - kolorkow w tablicy
    bne !loop-              // nie? to wracaj i przesuwaj weza dalej
    inc licznik             // licznik do sprawqdzenia ile razy sie wykonala petla, jakis zamiar zeby moc wrocic w dol
    lda licznik             // zaladuj aktualny licznik
    cmp #$24                // ma 24?
    bne !koniec+            // nie? wyjdz z przerwania i lec znowu przesuwanie (jedno przesuniecie na 1/50 razy)
    inc gora                // znowu znacznik czy do gory czy w dol
    lda #$00                // i ten licznik - wyzerowanie
    sta licznik             // i zapis tego wyzerowania
!koniec:    */
    rti         // powrot z przerwania, ale bez znaczenia dla ciebie



* = $b01
kolor:
        .byte 0,0,0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0


* = $c00
tablica:
        .byte 8,9,9,9,9,9,9,1,8,9,9,9,9,9,9,1,8,9,9,9,9,9,9,1,8,9,9,9,9,9,9,1,8,9,9,9,9,9,9,1,8,9,9,9,9,9,9,1