intro plus bary 16 11 2016

:BasicUpstart2(main)

.label PamiecEkranu = $4400
.label Ramka = $d020
.label Ekran = $d021

.label memory_setup_register_D018 = $d018
.label VIC_bank = $dd00
//----------------------------------------------------------
// Code for creating the breakpoint file sent to Vice.
//----------------------------------------------------------
.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(*))
    }
}
//------------------------------------------------------

.macro trybTekstowy () {
lda #$1b
sta $d011
lda #$c8
sta $d016

}

.macro trybGraficzny()
{
    lda #$3b
     sta $d011


  lda #$08
  sta $d016
}

.macro wybierz_index_charmem_pamieci_D018(index) {
  lda memory_setup_register_D018
  and #%11110001 // ustawia tylko bity oznaczone 0
  ora #[index << 1]  // wybiera numer strony pamięci według mapy C64 z netu
  sta memory_setup_register_D018 // zapisuje do $D018
}

.macro wybierz_index_screen_memory_pamieci_D018(index) {
  lda memory_setup_register_D018
  and #%00001111 // ustawia tylko bity oznaczone 0
  ora #[index << 4]  // wybiera numer strony pamięci według mapy C64 z netu
  sta memory_setup_register_D018 // zapisuje do $D018
}


.macro wybierz_index_banku_pamieci_VIC_DD00(index) {
    lda VIC_bank
    and #%11111100 // zeruje bit #0 i #1
    ora #[index ^ %00000011] // XOR na wartości z index
    sta VIC_bank
}

.macro ClearScreen(PamiecEkranu, clearByte) {
  lda #clearByte
  ldx #0
!loop:
  sta PamiecEkranu, x
  sta PamiecEkranu + $100, x
  sta PamiecEkranu + $200, x
  sta PamiecEkranu + $300, x
  inx
  bne !loop-
}

.macro ClearScreen_DOL(PamiecEkranu, clearByte) {
  lda #clearByte
  ldx #0
!loop:
  sta PamiecEkranu+633, x
  sta PamiecEkranu+633+100, x

  inx
  bne !loop-
}

.pseudocommand pause cycles {
  :ensureImmediateArgument(cycles)
  .var x = floor(cycles.getValue())
  .if (x<2) .error "Cant make a pause on " + x + " cycles"

  // Take care of odd cyclecount
  .if ([x&1]==1) {
    bit $00
    .eval x=x-3
  }

  // Take care of the rest
  .if (x>0)
    :nop #x/2
}


//---------------------------------
// repetition commands
//---------------------------------
.macro ensureImmediateArgument(arg) {
  .if (arg.getType()!=AT_IMMEDIATE) .error "The argument must be immediate!"
}
.pseudocommand asl x {
  :ensureImmediateArgument(x)
  .for (var i=0; i<x.getValue(); i++) asl
}
.pseudocommand lsr x {
  :ensureImmediateArgument(x)
  .for (var i=0; i<x.getValue(); i++) lsr
}
.pseudocommand rol x {
  :ensureImmediateArgument(x)
  .for (var i=0; i<x.getValue(); i++) rol
}
.pseudocommand ror x {
  :ensureImmediateArgument(x)
  .for (var i=0; i<x.getValue(); i++) ror
}

.pseudocommand pla x {
  :ensureImmediateArgument(x)
  .for (var i=0; i<x.getValue(); i++) pla
}

.pseudocommand nop x {
  :ensureImmediateArgument(x)
  .for (var i=0; i<x.getValue(); i++) nop
}

main:

          sei         //wyłączenie flafi przerwania


            ldy #$7f    ////; $7f = %01111111
            sty $dc0d   ////; wyłączamy timer CIA
            sty $dd0d   ////; ; wyłączamy timer CIA
            lda $dc0d   ////; kasuje wszystki przerwania CIA w kolejce
            lda $dd0d   ////; kasuje wszystki przerwania CIA w kolejce

            lda #$01    ////; Set Interrupt Request Mask...
            sta $d01a   ////; ...we want IRQ by Rasterbeam

            lda #<irq1   ////; wskaźnik to IRQ
            ldx #>irq1
            sta $314    ////; zapisz tutaj
            stx $315

            lda #$00    ////; ustawiam pierwsze przerwanie na raster 0
            sta $d012
            lda $d011   ////; ustawiam 9 bit z $d011 na 0
            and #$7f    ////;
            sta $d011   ////;
          lda #$00
          jsr $1000


//            :trybGraficzny()
 //       :wybierz_index_charmem_pamieci_D018(0)
  //      :wybierz_index_screen_memory_pamieci_D018(15)
        :wybierz_index_banku_pamieci_VIC_DD00(1)

            jsr obrazek
    :ClearScreen(PamiecEkranu,$20)
            cli         ////; clear interrupt disable flag


            jsr wyswietl_text_1
            jsr wyswietl_text_2

            :ClearScreen_DOL(PamiecEkranu,$20)

            jsr wyswietl_text_3

            :ClearScreen_DOL(PamiecEkranu,$20)

            jsr wyswietl_text_4
            jmp *       ////; infinite loop


////;============================================================
////;    custom interrupt routine
////;============================================================


irq1:
        inc $d019
//        inc Ramka
        lda #$37
        sta $d012
//        :pause #6
//  :trybTekstowy()

  //      :wybierz_index_charmem_pamieci_D018(2)
        // kod poniej wykonuje się pomiędzy rastrem 34 a 80
        // przerwanie jest od rastra 54 do 63
///////////////////////////////////////////////////////////////////////

                      ldy #$00
!cykl:
                      ldx cykle,y
!petla:
                      dex
                      bne !petla-

                      lda brazowe,y
                      sta Ekran
                      sta Ramka
                      iny
                      cpy #$0f
                      bne !cykl-


///////////////////////////////////////////////////////////////////////





        lda #<irq2
        sta $0314
        lda #>irq2
        sta $0315
        pla
        tay
        pla
        tax
        pla
  //      dec Ramka
        rti





irq2:
        inc $d019
//        inc Ramka
        lda #$84 // pozycja środkowego rastra
        sta $d012
//        :pause #6
//  :trybTekstowy()

  //      :wybierz_index_charmem_pamieci_D018(2)
        // kod poniej wykonuje się pomiędzy rastrem 34 a 80
        // przerwanie jest od rastra 54 do 63
///////////////////////////////////////////////////////////////////////
jsr colwash
jsr $1003

///////////////////////////////////////////////////////////////////////





        lda #<irq3
        sta $0314
        lda #>irq3
        sta $0315
        pla
        tay
        pla
        tax
        pla
//        dec Ramka
        rti



irq3:

        inc $d019
 //       inc Ramka
        lda #$9c // pozycja ostatniego rastra
        sta $d012
//        :pause #6
//  :trybTekstowy()

  //      :wybierz_index_charmem_pamieci_D018(2)
        // kod poniej wykonuje się pomiędzy rastrem 34 a 80
        // przerwanie jest od rastra 54 do 63
///////////////////////////////////////////////////////////////////////
             ldy #$00
!cykl:
                      ldx cykle,y
!petla:
                      dex
                      bne !petla-

                      lda niebieskie,y
                      sta Ekran
                      sta Ramka
                      iny
                      cpy #$0f
                      bne !cykl-


///////////////////////////////////////////////////////////////////////





        lda #<irq1
        sta $0314
        lda #>irq1
        sta $0315
        pla
        tay
        pla
        tax
        pla
//        dec Ramka
        rti




///////////////////////////////////////////////////////////////// wyświetyla tekst na górnym przerwaniu
wyswietl_text_1:
    ldx #$00

!petla:
    lda teksty,x
    sta PamiecEkranu,x
    jsr opoznienie
    cpx #119
    beq powrot
    inx
    bne !petla-

powrot:
    rts
///////////////////////////////////////////////////////////////// wyświetyla tekst na górnym przerwaniu




///////////////////////////////////////////////////////////////// wyświetyla tekst na dolnym przerwaniu
wyswietl_text_2:
    ldx #$00
!petla:
    lda tekst_2,x
    sta PamiecEkranu+640,x
    jsr opoznienie
    cpx #200
    beq !powrot+
    inx
    bne !petla-
!powrot:
    rts
///////////////////////////////////////////////////////////////// wyświetyla tekst na dolnym przerwaniu



///////////////////////////////////////////////////////////////// wyświetyla tekst na dolnym przerwaniu - zmiana ekranu
wyswietl_text_3:
    ldx #$00
!petla:
    lda tekst_8,x
    sta PamiecEkranu+845,x
    jsr opoznienie
    cpx #31
    beq !powrot+
    inx
    bne !petla-
!powrot:
    rts
///////////////////////////////////////////////////////////////// wyświetyla tekst na dolnym przerwaniu - zmiana ekranu



wyswietl_text_4:
    ldx #$00
!petla:
    lda tekst_10,x
    sta PamiecEkranu+640,x
    jsr opoznienie
    cpx #239
    beq !powrot+
    inx
    bne !petla-
!powrot:
    rts


wyswietl_text_5:
    ldx #$00
!petla:
    lda tekst_15,x
    sta PamiecEkranu+642,x
    jsr opoznienie
    cpx #255
    beq !powrot+
    inx
    bne !petla-
!powrot:
    rts

wyswietl_text_6:
    ldx #$00
!petla:
    lda tekst_16,x
    sta PamiecEkranu+880,x
    jsr opoznienie
    cpx #51
    beq !powrot+
    inx
    bne !petla-
!powrot:
    rts


wyswietl_text_7:
    ldx #$00
!petla:
    lda tekst_17,x
    sta PamiecEkranu+851,x
    jsr opoznienie
    cpx #22
    beq !powrot+
    inx
    bne !petla-
!powrot:
    rts

opoznienie:
      txa
      ldx #$00
petla1:
      ldy #$00
petla2:
      iny
      cpy #$40
      bne petla2
      inx
      cpx #$90
      bne petla1
      tax
      rts










colwash:   ldx #$27        //; load x-register with #$27 to work through 0-39 iterations
          lda color+$28   //; init accumulator with the last color from first color table

cycle1:    ldy color-1,x   //; remember the current color in color table in this iteration
          sta color-1,x   //; overwrite that location with color from accumulator
          sta $d800,x     //; put it into Color Ram into column x
          tya             //; transfer our remembered color back to accumulator
          dex             //; decrement x-register to go to next iteration
          bne cycle1      //; repeat if there are iterations left
          sta color+$28   //; otherwise store te last color from accu into color table
          sta $d800       //; ... and into Color Ram

colwash2:  ldx #$00        //; load x-register with #$00
          lda color2+$28  //; load the last color from the second color table

cycle2:    ldy color2,x    //; remember color at currently looked color2 table location
          sta color2,x    //; overwrite location with color from accumulator
          sta $d850,x     //; ... and write it to Color Ram
          tya             //; transfer our remembered color back to accumulator
          inx             //; increment x-register to go to next iteraton
          cpx #$28        //; have we gone through 39 iterations yet?
          bne cycle2      //; if no, repeat
          sta color2+$28  //; if yes, store the final color from accu into color2 table
          sta $d850+$27   //; and write it into Color Ram

          rts             //; return from subroutine


color:       .byte $09,$09,$02,$02,$08
             .byte $08,$0a,$0a,$0f,$0f
             .byte $07,$07,$01,$01,$01
             .byte $01,$01,$01,$01,$01
             .byte $01,$01,$01,$01,$01
             .byte $01,$01,$01,$07,$07
             .byte $0f,$0f,$0a,$0a,$08
             .byte $08,$02,$02,$09,$09

color2:       .byte $09,$09,$02,$02,$08
             .byte $08,$0a,$0a,$0f,$0f
             .byte $07,$07,$01,$01,$01
             .byte $01,$01,$01,$01,$01
             .byte $01,$01,$01,$01,$01
             .byte $01,$01,$01,$07,$07
             .byte $0f,$0f,$0a,$0a,$08
             .byte $08,$02,$02,$09,$09



obrazek:

   ldx #$00

laduj_obrazek:
//    lda $3f40+$4000,x
//    sta PamiecEkranu,x
    lda $3f40+$4000+256,x
    sta PamiecEkranu+256,x
    lda $3f40+$4000+300,x
    sta PamiecEkranu+300,x
//    lda $3f40+$4000+768,x
//    sta PamiecEkranu+768,x
    dex
    bne laduj_obrazek
    rts


opoznienie2:
        txa
            ldx #$00

petla1_2:
            ldy #$00

petla2_2:
            iny
            cpy #$50
            bne petla2_2
            inx
            cpx #$90
            bne petla1_2
            tax
            rts







opoznienie3:
        txa
            ldx #$00

petla4_1:
            ldy #$00

petla4_2:
            iny
            cpy #$ff
            bne petla4_2
            inx
            cpx #$ff
            bne petla4_1
            tax
            rts







teksty:
        .text "     yugorin of samar productions       "
    .text "     prezentuje pierwsze wypociny       "
    .text "    po  30 latach bycia w niebycie      "





tekst_2:
        .text "nie umiem jeszcze zrobic scrolla, ale to"
        .text "kwestia czasu. bardzo chcialem zrobic   "
        .text "pierwsze 'cos', zeby moc powiedziec     "
        .text "wszystkim, ze po 30 latach jestem tu,   "
        .text "gdzie przerwalem jako dziecko.          "

tekst_8:
        .text " nigdy nie zrobilem scrolla :-)     "

tekst_10:

  .text "dziekuje dkt, isildurowi i slajerkowi za"
  .text "wiare we mnie. calemu samarowi za przy- "
  .text "jecie, jammerowi za opierdol na start za"
  .text "dropboxa. wielkie dzieki mlodszemu bratu"
  .text "programiscie (fucking genius)!! za wiare"
  .text "wsparcie i cierpliwosc do mnie.         "



  tekst_15:

  .text " to, ze skubany nie zna asm"
  .text " a tlumaczy mi co robie zle"
  .text " sprawia,ze jestem dumny"
  .text " z niego jak nikt na swiecie."
  .text "namawiam go na kodzenie w asm "
  .text "na c64. zobaczymy co z tego wyjdzie."
  .text "na koniec dziekuje asi i biance "
  .text "za to, ze jeszcze nie zwariowaly "

  tekst_16:
  .text "bo na kazde pytanie co robie "
  .text "odpowiadam 'kodze' ;-p"

tekst_17:
  .text " sceno - przybywam !!!!"


niebieskie:
    .byte $06,$06,$0e,$0e,$03,$03,$01,$01,$03,$03,$0e,$0e,$06,$06,$00

brazowe:

    .byte $02,$02,$08,$08,$0a,$0a,$01,$01,$0a,$0a,$08,$08,$02,$02,$00
/// raster $33 bad line - potem 7 linii OK i 8 znów bad lines ($3b)

cykle:
.byte $01, $08, $08, $08, $08, $08, $08, $08
.byte $01, $08, $08, $08, $08, $08, $07





*=$1000 "Muzyka"
.import binary "Ode_to_C64.sid", $7c+2

.pc = $6000 "Logo Samar"
.import c64 "logo.art"

.pc = $4800 "Font 1"
.import c64 "mega_designer_3_c.64c"

.pc = $5000 "font 2"
.import c64 "amigo_s.64c"