fade in out tekst linija

//```````````````````````````````````````
//1x2 show routine by erol/tempest
//jsr swset
//```````````````````````````````````````


BasicUpstart2(start)

start:
   lda #$00
   sta $d020
   sta $d021
   jsr swset

!loop:
   lda $d011
   bpl *-3
   lda $d011
   bmi *-3
   lda #$80
   cmp $d012
   bne *-3
   dec $d020
   jsr show
   inc $d020
   jmp !loop-

show:     inc $b3
         lda $b3
         cmp #$06
         beq sw1
         rts
sw1:      ldx #$00
         stx $b3
sw2:      lda sdata
         sta $d800+13*40,x
sw4:      lda $2698,x
         sta $0400+13*40,x
         inx
         cpx #$28
         bne sw2
         inc sw2+1
         bne sw7
         inc sw2+1
sw7:      lda sw2+1
         cmp #<sdata+36
         beq sw3
         rts
sw3:      lda #<sdata
         sta sw2+1
         lda sw4+1
         clc
         adc #$28
         sta sw4+1
         bcc sw5
         inc sw4+2
sw5:      inc $b2
         lda $b2
         cmp #3
         beq swset
         rts
swset:    lda #$00
         sta $b2
         sta $b3
         lda #<linije
         ldx #>linije
         sta sw4+1
         stx sw4+2
         rts
//```````````````````````````````````````
sdata:    .byte 0,0,$0b,$0c,$0f,7,1,7
         .byte 15,15,15,15,15,15,15,15
         .byte 15,15,15,15,15,15,15,15
         .byte 15,15,15,15,7,1,7,$0f
         .byte $0c,$0b,0,0
//```````````````````````````````````````
linije:
//    "0123456789012345678901234567890123456789"
.text "ovo je moj fade in out test nadam se da "
.text "radi dovoljno dobro za testiranje.      "
.text "sad cemo iz pocetka prvu liniju........."