https://mirror.atariki.pl/w/index.php?action=history&feed=atom&title=Programowanie%3A_Przesuw_poziomy_z_regulowan%C4%85_pr%C4%99dko%C5%9Bci%C4%85
Programowanie: Przesuw poziomy z regulowaną prędkością - Historia wersji
2026-10-03T18:14:59Z
Historia wersji tej strony wiki
MediaWiki 1.46.0
https://mirror.atariki.pl/w/index.php?title=Programowanie:_Przesuw_poziomy_z_regulowan%C4%85_pr%C4%99dko%C5%9Bci%C4%85&diff=3305&oldid=prev
imported>Atariki recovery: Reconstructed from archived HTML; see provenance manifest
2026-10-01T08:51:48Z
<p>Reconstructed from archived HTML; see provenance manifest</p>
<p><b>Nowa strona</b></p><div>Poniższy kod źródłowy jest przykładem realizacji najpopularniejszego niegdyś "efektu" w programach demonstracyjnych, mianowicie poziomego przesuwu tekstu, zwanego popularnie scrollem.<br />
<br />
Program wzbogacony jest o możliwość sterowania prędkością przepływu tekstu na ekranie, w zakresie 0 (najszybszy przesuw - pętla opóźniająca czeka jedną ramkę) do 7 (siedem ramek). Kod został przygotowany w makroasemblerze [[MADS]].<br />
<br />
<pre> opt h+<br />
<br />
org $80<br />
<br />
scroll_pos .ds 1 ; wartość przesuwu delikatnego<br />
scroll_speed .ds 1 ; prędkość przesuwu<br />
scroll_ptr .ds 2 ; wskaźnik do tekstu<br />
scroll_buf .ds 2 ; wskaźnik do bufora na ekranie<br />
<br />
org $2000<br />
<br />
start lda #$0e<br />
sta COLOR1<br />
lda #$00<br />
sta COLOR2<br />
<br />
lda #00<br />
sta scroll_speed<br />
<br />
lda &lt;display_list<br />
sta SDLSTL<br />
lda &gt;display_list<br />
sta SDLSTH<br />
<br />
lda &lt;scroll_text<br />
sta scroll_ptr<br />
lda &gt;scroll_text<br />
sta scroll_ptr+1<br />
<br />
lda &lt;scroll_screen<br />
sta scroll_buf<br />
lda &gt;scroll_screen<br />
sta scroll_buf+1<br />
<br />
ldy #47<br />
@ lda (scroll_ptr),y<br />
sta (scroll_buf),y<br />
dey<br />
bne @-<br />
<br />
lda #04<br />
sta HSCROL<br />
sta scroll_pos<br />
<br />
loop dec scroll_pos<br />
lda scroll_pos<br />
sta HSCROL<br />
jsr wait<br />
bne loop<br />
<br />
lda #04<br />
sta scroll_pos<br />
<br />
ldy #47<br />
@ lda (scroll_ptr),y<br />
bpl @+<br />
and #$07<br />
sta scroll_speed<br />
lda #" "<br />
@ sta (scroll_buf),y<br />
dey<br />
bne @-1<br />
<br />
clc<br />
inc scroll_ptr<br />
bne @+<br />
inc scroll_ptr+1<br />
<br />
@ lda (scroll_ptr),y<br />
cmp #$ef<br />
bne loop<br />
<br />
jmp (DOSVEC)<br />
<br />
wait pha<br />
ldx scroll_speed<br />
@ lda RTCLOK+2<br />
cmp RTCLOK+2<br />
beq *-2<br />
dex<br />
bpl @-<br />
pla<br />
rts<br />
<br />
.align $0400<br />
<br />
display_list .he 70 70 70<br />
.he 52<br />
.wo scroll_screen<br />
.he 41<br />
.wo display_list<br />
<br />
scroll_screen :48 .he 00<br />
<br />
; prędkość regulowana w zakresie f0..f7<br />
; f0 - najszybszy przesuw, f7 - najwolniejszy<br />
; wskaźnik prędkości jest zamieniany na spację<br />
<br />
scroll_text :48 .he 00<br />
.sb 'Stand up, damned of the Earth'<br />
.he f1<br />
.sb 'Stand up, prisoners of starvation'<br />
.he f4<br />
.sb 'Reason thunders in its volcano'<br />
.he f1<br />
.sb 'This is the eruption of the end.'<br />
.he f6<br />
.sb 'Of the past let us make a clean slate'<br />
.he f0<br />
.sb 'Enslaved masses, stand up, stand up. '<br />
.sb 'The world is about to change its foundation '<br />
.sb 'We are nothing, let us be all. '<br />
.sb 'This is the final struggle '<br />
.sb 'Let us group together, and tomorrow '<br />
.sb 'The Internationale '<br />
.sb 'Will be the human race. '<br />
<br />
.he ef<br />
<br />
run start<br />
</pre><br />
<br />
[[Kategoria:Niezbędnik kodera]]<br />
</div>
imported>Atariki recovery