Advertisement
Er0l

fade in out tekst linija

Feb 7th, 2021
2,211
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //```````````````````````````````````````
  2. //1x2 show routine by erol/tempest
  3. //jsr swset
  4. //```````````````````````````````````````
  5.  
  6.  
  7. BasicUpstart2(start)
  8.  
  9. start:
  10.    lda #$00
  11.    sta $d020
  12.    sta $d021
  13.    jsr swset
  14.  
  15. !loop:
  16.    lda $d011
  17.    bpl *-3
  18.    lda $d011
  19.    bmi *-3
  20.    lda #$80
  21.    cmp $d012
  22.    bne *-3
  23.    dec $d020
  24.    jsr show
  25.    inc $d020
  26.    jmp !loop-  
  27.  
  28. show:     inc $b3
  29.          lda $b3
  30.          cmp #$06
  31.          beq sw1
  32.          rts
  33. sw1:      ldx #$00
  34.          stx $b3
  35. sw2:      lda sdata
  36.          sta $d800+13*40,x
  37. sw4:      lda $2698,x
  38.          sta $0400+13*40,x
  39.          inx
  40.          cpx #$28
  41.          bne sw2
  42.          inc sw2+1
  43.          bne sw7
  44.          inc sw2+1
  45. sw7:      lda sw2+1
  46.          cmp #<sdata+36
  47.          beq sw3
  48.          rts
  49. sw3:      lda #<sdata
  50.          sta sw2+1
  51.          lda sw4+1
  52.          clc
  53.          adc #$28
  54.          sta sw4+1
  55.          bcc sw5
  56.          inc sw4+2
  57. sw5:      inc $b2
  58.          lda $b2
  59.          cmp #3
  60.          beq swset
  61.          rts
  62. swset:    lda #$00
  63.          sta $b2
  64.          sta $b3
  65.          lda #<linije
  66.          ldx #>linije
  67.          sta sw4+1
  68.          stx sw4+2
  69.          rts
  70. //```````````````````````````````````````
  71. sdata:    .byte 0,0,$0b,$0c,$0f,7,1,7
  72.          .byte 15,15,15,15,15,15,15,15
  73.          .byte 15,15,15,15,15,15,15,15
  74.          .byte 15,15,15,15,7,1,7,$0f
  75.          .byte $0c,$0b,0,0
  76. //```````````````````````````````````````
  77. linije:
  78. //    "0123456789012345678901234567890123456789"
  79. .text "ovo je moj fade in out test nadam se da "
  80. .text "radi dovoljno dobro za testiranje.      "
  81. .text "sad cemo iz pocetka prvu liniju........."
Advertisement
RAW Paste Data Copied
Advertisement