SHOW:
|
|
- or go back to the newest paste.
| 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........." |
