!to "petscroll.prg",cbm ; Basicstart *= $0400 !byte $00,$0b,$04,$0a,$00,$9e,$31,$30,$33,$37,$00,$00,$00 ; main *=$040d ;-------------------------------------------------- ; virtual machine in VICE: CBM 3032B /32K ; Compiler used for this template: ACME 0.94.6 ;-------------------------------------------------- screen=$81e0 get =$ffe4 counter=$0a lda #$93 jsr $ffd2 gettext: sei txa pha ldx #$00 ; waste time l1: ldy #$00 l: dey bne l inx cpx #$45 bne l1 pla txa ldx txtpos inc txtpos lda text,x cmp #$00 ; at $00 repeat bne + ldx #00 stx txtpos beq gettext + sta screen+39 cli - jsr get cmp #$20 ; wait for space-key beq + scroll: lda $8f ; compare inctime value - cmp $8f beq - sei ldx #$00 -- lda screen+1,x ; hardscroll sta screen,x inx cpx #40 bne -- cli lda $8f ; compare inctime value --- cmp $8f beq --- jmp gettext + jmp $c389 txtpos !by $00 text !PET "hi, this is a tiny scroller. i've never seen a scroller on a pet basic 2 machine. here is one ! " !PET "it is possible to move 256 chars in a row. press space to end this humpy thing. ;-) " !by $00
Letzte Änderung: 2019-01-04 09:53:09