home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 October
/
64er_Magazin_92-10_1992_Markt__Technik_de_Side_A.d64
/
scroller.seq
< prev
next >
Wrap
Text File
|
2022-10-26
|
1KB
|
45 lines
*= $1000
ende = $02
start = $03
lda #$08 ;vorbereitung
sta start ;ab line $8 scrollen
lda #$10 ;bei linie
sta ende ;$10 aufhoeren
jsr scroll ;und scrollen
rts ;beenden
scroll ldy #$00 ;zaehler auf 0
ldx start ;startlinie
jsr $e9f0 ;in $d1/$d2 ablegen
ldx $d1 ;position lowbyte
inx ;plus 1 in $fb
stx $fb ;ablegen
ldx $d2 ;highbyte in $fc
stx $fc ;ablegen
scr3 lda ($fb),y;laden
sta ($d1),y;und + 1 speichern
iny ;zaehler +1
cpy #$27 ;schon $27 chars?
bne scr3 ;nein dann scr3
lab1 lda $a000 ;neue bytes holen
sta ($d1),y;und setzen
inc lab1+1 ;direkt erhoehen
lda lab1+1 ;und ueberpruefen
cmp #$00 ;ob bereits >$00
bne scrcon0;
inc lab1+2 ;ja, dann hibyte+1
rts ;
scrcon0 inc start ;vergleichen
lda start ;ob bereits alle
cmp ende ;linien
beq scrend ;gescrolled wurden
inc $d1 ;wenn nein dann
bne scroll ;naechste linie
scrend rts ;zurueck