Text-Scroller for CBM BASIC 2.0 machines ....
Suche
Index
FAQ
Kontakt
Zurück
!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
Rubriken-Übersicht
 8 Besucher online 

Valid XHTML 1.0 Transitional Valid CSS!