Alles anzeigench würde die Schleifen anders machen:
ldx #38
[...]
dex
bpl -
Spart dir das "cpx" und dessen Takte.
Viel eleganter, danke für diese Anregung, direkt übernommen.
Hallo Besucher, der Thread wurde 9,4k mal aufgerufen und enthält 71 Antworten
letzter Beitrag von ThomBraxton am
Fullscreen Smooth Scroll zuckt
- Haubitze
- Erledigt
-
-
er muss aber zumindest beim colorram "links" anfangen, sonst überschreibt er sich die eigenen farben
Oh, stimmt!
Geht natürlich doch, ist nur etwas unschön:
ldx #217 ; 255-38
- [...]
inx
bmi -Dann müsste aber COLRAM entsprechend 'verbogen' werden (also statt z. B. $D800 -> $D727, also minus 217) oder überall ein '-127' eingefügt werden (mit for-Schleifen bei den move_color_ram-Schleifen wäre das einfacher gewesen, also nur ein Eintrag). Ich würde das jetzt aber auch nicht ändern, wenn nicht unbedingt nötig.
-
Hmm. Es klingt logisch, nur will mein Gehirn dieser Reise nicht folgen
Wenn es nur um die bildliche Vorstellung geht:
Stell Dir den Extremfall dieses Schemas vor: In 25 Blöcken, also zeilenweise kopieren.
Und dann stell Dir das Wettrennen zwischen dem Rasterstrahl und den sich ändernden Zeilen vor.
Kopierst Du von oben nach unten, dann hast Du einen kompletten Frame + 192(?) =504 Rasterzeilen Zeit.
Kopierst Du von unten nach oben, dann bleibt Dir eigentlich nur die Zeit des Rahmens, 112 Rasterzeilen. -
Jetzt hab ich mal versucht das Scrolling von horizontal auf vertikal zu ändern, im Grunde ja kein großes Ding, statt D016 dann D011 und die Kopierschleifen anpassen - dachte ich.
Aber - es zuckelt fürchterlich!Jetzt hab ich mal einen simplen Test in BASIC gemacht, und stelle das gleiche Verhalten fest, wenn man von unten nach oben scrollt. Anders herum ist es sauber. Ist Scrolling von unten nach oben nicht zu gebrauchen?
Sieht super aus:
Sieht fürchterlich aus -
Synchronisier das mal mit dem Bildaufbau. Basic macht die Zugriffe ja "irgendwann", und wenn das im Textfenster passiert, wird
- beim Runterscrollen irgend eine Pixelzeile doppelt ausgegeben - kein Problem.
- beim Hochscrollen irgend eine Pixelzeile übersprungen - wenn das nun eine der Badlines ist, werden keine neuen Zeichencodes gelesen und darum wird die Textzeile doppelt ausgegeben, was man sehen kann.
-
Danke MacBacon für die gute Erklärung.
Synchronisier das mal mit dem Bildaufbau. Basic macht die Zugriffe ja "irgendwann", und wenn das im Textfenster passiert, wird
Bisher habe ich das Scrolling ja im vblank erledigt, was beim horizontalen Scrolling - bis auf den Verbrauch von zuviel Rasterzeit - auch gut aussieht. Gleiches durch vertikales Scrolling ersetzt bringt aber fürchterliche Effekte
Der Code ist ansonsten weitestgehend gleich geblieben
Alles anzeigenCode- yscroll !byte $07 ; position of the soft scrolling (0-7)
- yscroll_counter !byte $0f ; counts from 15 to 0
- ; so we can check if we need to copy the screen or the buffer
- ; e.g. if 0-7 then copy buffer, if 8-15 then copy screen
- ; can be done much more elegant I guess, but this is my way
- yscroll_wait !byte $50 ; a wait byte to slow the scrolling down
- ;==========================================================
- ; init
- ;==========================================================
- scroll_init
- lda #$1b
- sta $d011 ; set 38 colums
- rts
- ;==========================================================
- ; entry point for scrolling routine
- ; loop to slow down execution of the scrolling
- ;==========================================================
- scroll_screen
- ldy yscroll_wait ; a timing loop to slow down the scrolling
- cpy #$00
- bne +
- ldy #$3 ; defines the slowdown. 0 = fastest
- sty yscroll_wait
- jmp start_scroll
- +
- dey
- sty yscroll_wait
- rts
- ;==========================================================
- ; scroll routine
- ;==========================================================
- start_scroll
- ldx yscroll_counter
- cpx #12
- bne +
- jsr move_lower_buffer ; move the lower buffer
- +
- ldx yscroll_counter
- cpx #10
- bne +
- jsr move_upper_buffer ; move the upper buffer
- +
- ldx yscroll_counter
- cpx #7
- bne +
- lda #%10000100 ; SCRRAM + TUBE_OFFSET2000
- sta $d018 ; switch screen
- +
- ldx yscroll_counter
- cpx #4
- bne +
- jsr move_lower_screen ; move the lower screen
- +
- ldx yscroll_counter
- cpx #2
- bne +
- jsr move_upper_screen ; move the upper screen
- +
- ldx yscroll_counter
- cpx #$ff
- bne +
- ldx #15
- lda #%00010100 ; SCRRAM + TUBE_OFFSET0400
- sta $d018 ; switch screen
- +
- dex
- stx yscroll_counter
- ldy yscroll
- cpy #$ff
- bne +
- ldy #$07 ; one soft scrolling cycle complete, now copy scrram
- jsr move_upper_color_ram ; move color ram
- jsr move_lower_color_ram ; move color ram
- +
- tya ; soft scroll
- ora #$10
- sta $d011
- dey
- sty yscroll
- rts
- ;==========================================================
- ; move upper screen
- ;==========================================================
- move_upper_screen
- ldx #29
- -
- lda SCRRAM_BUFFER + TUBE_OFFSET + 1*40,x
- sta SCRRAM + TUBE_OFFSET + 0*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 2*40,x
- sta SCRRAM + TUBE_OFFSET + 1*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 3*40,x
- sta SCRRAM + TUBE_OFFSET + 2*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 4*40,x
- sta SCRRAM + TUBE_OFFSET + 3*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET+ 5*40,x
- sta SCRRAM + TUBE_OFFSET + 4*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 6*40,x
- sta SCRRAM + TUBE_OFFSET + 5*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 7*40,x
- sta SCRRAM + TUBE_OFFSET + 6*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 8*40,x
- sta SCRRAM + TUBE_OFFSET + 7*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 9*40,x
- sta SCRRAM + TUBE_OFFSET + 8*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 10*40,x
- sta SCRRAM + TUBE_OFFSET + 9*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 11*40,x
- sta SCRRAM + TUBE_OFFSET + 10*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 12*40,x
- sta SCRRAM + TUBE_OFFSET + 11*40,x
- dex
- bpl -
- rts
- ;==========================================================
- ; move lower screen
- ;==========================================================
- move_lower_screen
- ldx #29
- -
- lda SCRRAM_BUFFER + TUBE_OFFSET + 13*40,x
- sta SCRRAM + TUBE_OFFSET + 12*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 14*40,x
- sta SCRRAM + TUBE_OFFSET + 13*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 15*40,x
- sta SCRRAM + TUBE_OFFSET + 14*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 16*40,x
- sta SCRRAM + TUBE_OFFSET + 15*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 17*40,x
- sta SCRRAM + TUBE_OFFSET + 16*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 18*40,x
- sta SCRRAM + TUBE_OFFSET + 17*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 19*40,x
- sta SCRRAM + TUBE_OFFSET + 18*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 20*40,x
- sta SCRRAM + TUBE_OFFSET + 19*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 21*40,x
- sta SCRRAM + TUBE_OFFSET + 20*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 22*40,x
- sta SCRRAM + TUBE_OFFSET + 21*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 23*40,x
- sta SCRRAM + TUBE_OFFSET + 22*40,x
- lda SCRRAM_BUFFER + TUBE_OFFSET + 24*40,x
- sta SCRRAM + TUBE_OFFSET + 23*40,x
- dex
- bpl -
- rts
- ;==========================================================
- ; move upper buffer
- ;==========================================================
- move_upper_buffer
- ldx #29
- -
- lda SCRRAM + TUBE_OFFSET + 1*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 0*40,x
- lda SCRRAM + TUBE_OFFSET + 2*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 1*40,x
- lda SCRRAM + TUBE_OFFSET + 3*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 2*40,x
- lda SCRRAM + TUBE_OFFSET + 4*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 3*40,x
- lda SCRRAM + TUBE_OFFSET + 5*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 4*40,x
- lda SCRRAM + TUBE_OFFSET + 6*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 5*40,x
- lda SCRRAM + TUBE_OFFSET + 7*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 6*40,x
- lda SCRRAM + TUBE_OFFSET + 8*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 7*40,x
- lda SCRRAM + TUBE_OFFSET + 9*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 8*40,x
- lda SCRRAM + TUBE_OFFSET + 10*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 9*40,x
- lda SCRRAM + TUBE_OFFSET + 11*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 10*40,x
- lda SCRRAM + TUBE_OFFSET + 12*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 11*40,x
- dex
- bpl -
- rts
- ;==========================================================
- ; move lower buffer
- ;==========================================================
- move_lower_buffer
- ldx #29
- -
- lda SCRRAM + TUBE_OFFSET + 13*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 12*40,x
- lda SCRRAM + TUBE_OFFSET + 14*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 13*40,x
- lda SCRRAM + TUBE_OFFSET + 15*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 14*40,x
- lda SCRRAM + TUBE_OFFSET + 16*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 15*40,x
- lda SCRRAM + TUBE_OFFSET + 17*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 16*40,x
- lda SCRRAM + TUBE_OFFSET + 18*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 17*40,x
- lda SCRRAM + TUBE_OFFSET + 19*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 18*40,x
- lda SCRRAM + TUBE_OFFSET + 20*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 19*40,x
- lda SCRRAM + TUBE_OFFSET + 21*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 20*40,x
- lda SCRRAM + TUBE_OFFSET + 22*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 21*40,x
- lda SCRRAM + TUBE_OFFSET + 23*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 22*40,x
- lda SCRRAM + TUBE_OFFSET + 24*40,x
- sta SCRRAM_BUFFER + TUBE_OFFSET + 23*40,x
- dex
- bpl -
- rts
- ;==========================================================
- ; move upper color ram
- ;==========================================================
- move_upper_color_ram
- ldx #$0
- -
- lda COLRAM + TUBE_OFFSET + 1*40,x
- sta COLRAM + TUBE_OFFSET + 0*40,x
- lda COLRAM + TUBE_OFFSET + 2*40,x
- sta COLRAM + TUBE_OFFSET + 1*40,x
- lda COLRAM + TUBE_OFFSET + 3*40,x
- sta COLRAM + TUBE_OFFSET + 2*40,x
- lda COLRAM + TUBE_OFFSET + 4*40,x
- sta COLRAM + TUBE_OFFSET + 3*40,x
- lda COLRAM + TUBE_OFFSET + 5*40,x
- sta COLRAM + TUBE_OFFSET + 4*40,x
- lda COLRAM + TUBE_OFFSET + 6*40,x
- sta COLRAM + TUBE_OFFSET + 5*40,x
- lda COLRAM + TUBE_OFFSET + 7*40,x
- sta COLRAM + TUBE_OFFSET + 6*40,x
- lda COLRAM + TUBE_OFFSET + 8*40,x
- sta COLRAM + TUBE_OFFSET + 7*40,x
- lda COLRAM + TUBE_OFFSET + 9*40,x
- sta COLRAM + TUBE_OFFSET + 8*40,x
- lda COLRAM + TUBE_OFFSET + 10*40,x
- sta COLRAM + TUBE_OFFSET + 9*40,x
- lda COLRAM + TUBE_OFFSET + 11*40,x
- sta COLRAM + TUBE_OFFSET + 10*40,x
- lda COLRAM + TUBE_OFFSET + 12*40,x
- sta COLRAM + TUBE_OFFSET + 11*40,x
- inx
- cpx #30
- beq +
- jmp -
- +
- rts
- ;==========================================================
- ; move color ram
- ;==========================================================
- move_lower_color_ram
- ldx #$0
- -
- lda COLRAM + TUBE_OFFSET + 13*40,x
- sta COLRAM + TUBE_OFFSET + 12*40,x
- lda COLRAM + TUBE_OFFSET + 14*40,x
- sta COLRAM + TUBE_OFFSET + 13*40,x
- lda COLRAM + TUBE_OFFSET + 15*40,x
- sta COLRAM + TUBE_OFFSET + 14*40,x
- lda COLRAM + TUBE_OFFSET + 16*40,x
- sta COLRAM + TUBE_OFFSET + 15*40,x
- lda COLRAM + TUBE_OFFSET + 17*40,x
- sta COLRAM + TUBE_OFFSET + 16*40,x
- lda COLRAM + TUBE_OFFSET + 18*40,x
- sta COLRAM + TUBE_OFFSET + 17*40,x
- lda COLRAM + TUBE_OFFSET + 19*40,x
- sta COLRAM + TUBE_OFFSET + 18*40,x
- lda COLRAM + TUBE_OFFSET + 20*40,x
- sta COLRAM + TUBE_OFFSET + 19*40,x
- lda COLRAM + TUBE_OFFSET + 21*40,x
- sta COLRAM + TUBE_OFFSET + 20*40,x
- lda COLRAM + TUBE_OFFSET + 22*40,x
- sta COLRAM + TUBE_OFFSET + 21*40,x
- lda COLRAM + TUBE_OFFSET + 23*40,x
- sta COLRAM + TUBE_OFFSET + 22*40,x
- lda COLRAM + TUBE_OFFSET + 24*40,x
- sta COLRAM + TUBE_OFFSET + 23*40,x
- inx
- cpx #30
- beq +
- jmp -
- +
- rts
-
Ist Scrolling von unten nach oben nicht zu gebrauchen?
Wie läuft denn deine Kopierschleife beim Scrollen von unten nach oben?
Wenn du unten anfängst und dich nach oben "vorarbeitest", bekommst du ja zwangsweise Probleme, da so der Rasterstrahl nicht der Kopierschleife folgt, sondern das Kopieren dem Rasterstrahl entgegen läuft.Das dürfte bei einem Doublebuffer aber nur das Farbram betreffen.
-
Wie läuft denn deine Kopierschleife beim Scrollen von unten nach oben?
Da haben wir zeitlich geposted. Ich habe Code und PRG oben mal angehangen.
-
Ohne mir den Code angesehen zu haben: Verstellen Deine Scroll-Manipulationen an $d011 evtl. die Rasterzeile für den Interrupt?
-
D011 wird von $17 bis $10 runtergezählt, also
0001 0xxx
Das müsste doch korrekt sein, oder?
-
Mac Bacon, guter Tipp!
In der Initialisierung hatte ich noch einen falschen Wert - ich verstehe nur nicht, wieso der nicht überschrieben wird, wenn ich z.B. $17 in D011 schreibe. Es blieb immer das achte Bit gesetzt.Des weiteren den Raster IRQ angepasst, nun scrollt es weich - danke!
-
