[comp.binaries.atari.st] v02i038: scroll -- fast screen scroller

koreth@ssyx.ucsc.edu (Steven Grimm) (08/12/88)

Submitted-by: uunet!mcvax!philmds!leo (Leo de Wit)
Posting-number: Volume 2, Issue 38
Archive-name: scroll

[This works pretty well, but it does make Flash's screen display look a
 little weird. -sg]

The following program, when placed in the AUTO folder, speeds up scrolling
(BIOS output only). Difference is most noticeable with relative few chars
per line; speeds up full screen editors, 'more' utilities, etc.
For all resolutions; not for GEM, only for TOS.
Uuencoded.
The corresponding source is sent to the moderator of comp.sources.atari.st.
For correspondence conceirning this program (bugs, questions etc.) try

      L. J. M. de Wit
      Nachtegaallaan 7
      5731XP Mierlo
      Holland
      e-mail: ..!mcvax!philmds!leo

------------------------ s t a r t   h e r e ---------------------------------
begin 640 scroll.prg
M8!H   -P                             "9O  0F/    0#6JP ,UJL 
M%-:K !P&@P   0 _/  "3DY4CRA H "0_  L0_H#&"*()$@R*@ "4H'"Z@ $
M0>\ "+',9CY**P" 9CC6@9'#+DB1RR\(+PL_/   /SP 2DY!3^\ #$AZ NI(
M>@+J2'H"[3\\   _/ !+3D%/[P ,0F=.04'O  BQS&84D<LF"$'Z KP@C)G!
M0?H"L"",8!@@"]"#0@!!^@*B((#0@4'Z IX@@-:!UH%(>@(0/SP )DY.7(](
M>@ T/SP +3\\  5.35"/0?H":"" (#H"<C\\__\O "\ /SP !4Y.3^\ #$)G
M+P,_/  Q3D%!^@ 2L?@$J&<$80 !Q"!Z C1.T"'Z C($J#\!(GH"+D'Z E)*
M$&=L4=!*:0 29E0,00!)9AAA  $:,CP &V$  ;HR/ !)80 !LF   ) ,00!,
M9A9A  #\,CP &V$  9PR/ !(80 !E&!R#$$ 3684,CP #6$  80R/  *80 !
M?&%B8%@R/  ;80 !<#(780 !:F!(#$$ &V8(0?H!V%#08#HP*0 "L&D $F8J
M#$$ "F<B#$$ "V<<#$$ #&<6#$$ (&T2,!&P:0 09@H(*0 # "9G F$.,A=A
M  $@5(]A  #P3G4B>@%F,"D !"!X!$ZQ^@%B; S0P"\(80  YEB/8#(R*0 "
MPL D>@%&+PK0P")*D\@O"3\!+PHO"&$  .9/[P *(!\B>@$DT:D "F$  +)8
MCR)Z 193:0 2,"D  L#I  0@> 1.T, O"&%@6(].=2)Z /@P*0 $('@$3K'Z
M /!O"I# +PAA>%B/8"XR*0 "PL D>@#>+PK4P")*D\@O"3\!+PHO"&%Z3^\ 
M"B ?(GH NM&I  IA2%B/(GH KE)I !(O. 1.8018CTYU('H G'  ,"@ !.A 
M4X @;P $<@ @P2#!(,$@P5'(__9.=4'Z '8@N 2H0?K^.B'(!*A.=2 O  0A
MP 1.2$ 1P((!2$#@2!' @@-.=0)! /\@> 2H3M @;P $(F\ "# O  Q%\   
ML<EL!+/*;1+H2%- (M@BV"+8(MA1R/_V3G5#\0  Z$A30",B(R(C(B,B4<C_
M]DYU                                !G-E8V]N9%Q!551/7%-#4D],
03"Y04D<                 
 
end