� * Smooth Scroller *
 � L%=0 � 2 � 2
 P%=&900:[OPT L%
( .scroll
2  LDA #19:JSR &FFF4:LDY #0
<  LDA (&72),Y:CMP #�("\")
F  BNE noflash:JMP flash
P .noflash CMP #�("|")
Z  BNE return:JMP halt
d& .return LDA #&80:STA &70:LDA #&7D
n  STA &71:LDX #0:LDY #8
x  .lp LDA (&70),Y:STA (&70,X)
�$  INC &70:BNE lp:INC &71:LDA &71
�  BPL lp:LDA #&7B:STA &71
�! .lp1 LDA (&70),Y:STA (&70,X)
�  INC &70:BNE ski2:INC &71
�" .ski2 LDA &70:BPL lp1:LDA &71
�  CMP #&7D:BNE lp1:LDY #0
�!  LDA (&72),Y:STA dat:LDA #&A
�!  LDX #dat �256:LDY #dat �256
�  JSR &FFF1:LDX #0
�& .loop LDA data,X:LDY &74:BEQ left
�  DEY:BEQ lmid:DEY:BEQ rmid
�  � #&2:JMP none
� .lmid � #&30:JMP four

 .rmid � #&C:JMP two

 .left � #&C0

 .six LSR A:LSR A

" .four LSR A:LSR A

, .two LSR A:LSR A

6  .none STA data,X:INX:CPX #8

@%  BNE loop:INC &74:LDA &74:CMP #4

J  BNE skp3:LDA #0:STA &74

T  INC &72:BNE skp2:INC &73

^ .skp2 LDA (&72),Y:BNE skp3

h  LDA #mess �256:STA &72

r  LDA #mess �256:STA &73

|% .skp3 LDA data:STA&7D78:STA&7D79

�$  LDA data+1:STA &7D7A:STA &7D7B

�$  LDA data+2:STA &7D7C:STA &7D7D

�$  LDA data+3:STA &7D7E:STA &7D7F

�$  LDA data+4:STA &7FF8:STA &7FF9

�$  LDA data+5:STA &7FFA:STA &7FFB

�$  LDA data+6:STA &7FFC:STA &7FFD

�$  LDA data+7:STA &7FFE:STA &7FFF

�	  RTS

�
 .dat NOP

� .data OPT �d(0):OPT �d(0)

� .halt DEC &75:LDA &75

�  CMP #200:BEQ noXtra:RTS

� .noXtra LDA #&FF:STA &75
"  INC &72:BNE jumpover:INC &73
 .jumpover JMP return
$ .flash DEC &75:LDA &75:CMP #128
&  BEQ noXtra:� #32:BEQ see
0  LDA #6:STA &FE00:LDA #30
:  STA &FE01:RTS
D .see LDA #6:STA &FE00
N  LDA #32:STA &FE01:RTS
X .mess:]:�
b � � A$:A$=A$+" "
l $P%=A$:P%=P%+�A$
v � A$=" ":P%!-2=0
� !&72=mess:?&74=0:?&75=255
�
 � 2:�
� � scroll:� �
� ݤb(B%):?P%=B%:P%=P%+1:=L%
� ݤw(W%):!P%=W%:P%=P%+2:=L%
� ݤd(D%):!P%=D%:P%=P%+4:=L%
� � ** SUPER SCROLLER **\
�# � Scrolling message boards are
�  � always a good addition to
� � any program.| This super
�" � utility can scroll nice big
� � letters in mode 2. It's
  � really easy to use.| Just
  � put your message in these
" � lines, more can be added or
   � some could be deleted and
*  � that's all there is to it
4" � folks!| To make the current
> � display flash just use a
H! � backslash and to produce a
R# � pause use the double line.||
\ � ... If these characters
f! � don't suit you then change
p" � them in lines 60 and 80 ...
z  � The whole message repeats
�! � automatically. Like this:|
�	 � ""
�

00000000  0d 00 0a 1a 20 f4 20 2a  20 53 6d 6f 6f 74 68 20  |.... . * Smooth |
00000010  53 63 72 6f 6c 6c 65 72  20 2a 0d 00 14 13 20 e3  |Scroller *.... .|
00000020  20 4c 25 3d 30 20 b8 20  32 20 88 20 32 0d 00 1e  | L%=0 . 2 . 2...|
00000030  14 20 50 25 3d 26 39 30  30 3a 5b 4f 50 54 20 4c  |. P%=&900:[OPT L|
00000040  25 0d 00 28 0c 20 2e 73  63 72 6f 6c 6c 0d 00 32  |%..(. .scroll..2|
00000050  1e 20 20 4c 44 41 20 23  31 39 3a 4a 53 52 20 26  |.  LDA #19:JSR &|
00000060  46 46 46 34 3a 4c 44 59  20 23 30 0d 00 3c 1d 20  |FFF4:LDY #0..<. |
00000070  20 4c 44 41 20 28 26 37  32 29 2c 59 3a 43 4d 50  | LDA (&72),Y:CMP|
00000080  20 23 97 28 22 5c 22 29  0d 00 46 1b 20 20 42 4e  | #.("\")..F.  BN|
00000090  45 20 6e 6f 66 6c 61 73  68 3a 4a 4d 50 20 66 6c  |E noflash:JMP fl|
000000a0  61 73 68 0d 00 50 19 20  2e 6e 6f 66 6c 61 73 68  |ash..P. .noflash|
000000b0  20 43 4d 50 20 23 97 28  22 7c 22 29 0d 00 5a 19  | CMP #.("|")..Z.|
000000c0  20 20 42 4e 45 20 72 65  74 75 72 6e 3a 4a 4d 50  |  BNE return:JMP|
000000d0  20 68 61 6c 74 0d 00 64  26 20 2e 72 65 74 75 72  | halt..d& .retur|
000000e0  6e 20 4c 44 41 20 23 26  38 30 3a 53 54 41 20 26  |n LDA #&80:STA &|
000000f0  37 30 3a 4c 44 41 20 23  26 37 44 0d 00 6e 1b 20  |70:LDA #&7D..n. |
00000100  20 53 54 41 20 26 37 31  3a 4c 44 58 20 23 30 3a  | STA &71:LDX #0:|
00000110  4c 44 59 20 23 38 0d 00  78 20 20 2e 6c 70 20 4c  |LDY #8..x  .lp L|
00000120  44 41 20 28 26 37 30 29  2c 59 3a 53 54 41 20 28  |DA (&70),Y:STA (|
00000130  26 37 30 2c 58 29 0d 00  82 24 20 20 49 4e 43 20  |&70,X)...$  INC |
00000140  26 37 30 3a 42 4e 45 20  6c 70 3a 49 4e 43 20 26  |&70:BNE lp:INC &|
00000150  37 31 3a 4c 44 41 20 26  37 31 0d 00 8c 1d 20 20  |71:LDA &71....  |
00000160  42 50 4c 20 6c 70 3a 4c  44 41 20 23 26 37 42 3a  |BPL lp:LDA #&7B:|
00000170  53 54 41 20 26 37 31 0d  00 96 21 20 2e 6c 70 31  |STA &71...! .lp1|
00000180  20 4c 44 41 20 28 26 37  30 29 2c 59 3a 53 54 41  | LDA (&70),Y:STA|
00000190  20 28 26 37 30 2c 58 29  0d 00 a0 1e 20 20 49 4e  | (&70,X)....  IN|
000001a0  43 20 26 37 30 3a 42 4e  45 20 73 6b 69 32 3a 49  |C &70:BNE ski2:I|
000001b0  4e 43 20 26 37 31 0d 00  aa 22 20 2e 73 6b 69 32  |NC &71..." .ski2|
000001c0  20 4c 44 41 20 26 37 30  3a 42 50 4c 20 6c 70 31  | LDA &70:BPL lp1|
000001d0  3a 4c 44 41 20 26 37 31  0d 00 b4 1d 20 20 43 4d  |:LDA &71....  CM|
000001e0  50 20 23 26 37 44 3a 42  4e 45 20 6c 70 31 3a 4c  |P #&7D:BNE lp1:L|
000001f0  44 59 20 23 30 0d 00 be  21 20 20 4c 44 41 20 28  |DY #0...!  LDA (|
00000200  26 37 32 29 2c 59 3a 53  54 41 20 64 61 74 3a 4c  |&72),Y:STA dat:L|
00000210  44 41 20 23 26 41 0d 00  c8 21 20 20 4c 44 58 20  |DA #&A...!  LDX |
00000220  23 64 61 74 20 83 32 35  36 3a 4c 44 59 20 23 64  |#dat .256:LDY #d|
00000230  61 74 20 81 32 35 36 0d  00 d2 16 20 20 4a 53 52  |at .256....  JSR|
00000240  20 26 46 46 46 31 3a 4c  44 58 20 23 30 0d 00 dc  | &FFF1:LDX #0...|
00000250  26 20 2e 6c 6f 6f 70 20  4c 44 41 20 64 61 74 61  |& .loop LDA data|
00000260  2c 58 3a 4c 44 59 20 26  37 34 3a 42 45 51 20 6c  |,X:LDY &74:BEQ l|
00000270  65 66 74 0d 00 e6 1f 20  20 44 45 59 3a 42 45 51  |eft....  DEY:BEQ|
00000280  20 6c 6d 69 64 3a 44 45  59 3a 42 45 51 20 72 6d  | lmid:DEY:BEQ rm|
00000290  69 64 0d 00 f0 14 20 20  80 20 23 26 32 3a 4a 4d  |id....  . #&2:JM|
000002a0  50 20 6e 6f 6e 65 0d 00  fa 1a 20 2e 6c 6d 69 64  |P none.... .lmid|
000002b0  20 80 20 23 26 33 30 3a  4a 4d 50 20 66 6f 75 72  | . #&30:JMP four|
000002c0  0d 01 04 18 20 2e 72 6d  69 64 20 80 20 23 26 43  |.... .rmid . #&C|
000002d0  3a 4a 4d 50 20 74 77 6f  0d 01 0e 11 20 2e 6c 65  |:JMP two.... .le|
000002e0  66 74 20 80 20 23 26 43  30 0d 01 18 15 20 2e 73  |ft . #&C0.... .s|
000002f0  69 78 20 4c 53 52 20 41  3a 4c 53 52 20 41 0d 01  |ix LSR A:LSR A..|
00000300  22 16 20 2e 66 6f 75 72  20 4c 53 52 20 41 3a 4c  |". .four LSR A:L|
00000310  53 52 20 41 0d 01 2c 15  20 2e 74 77 6f 20 4c 53  |SR A..,. .two LS|
00000320  52 20 41 3a 4c 53 52 20  41 0d 01 36 20 20 2e 6e  |R A:LSR A..6  .n|
00000330  6f 6e 65 20 53 54 41 20  64 61 74 61 2c 58 3a 49  |one STA data,X:I|
00000340  4e 58 3a 43 50 58 20 23  38 0d 01 40 25 20 20 42  |NX:CPX #8..@%  B|
00000350  4e 45 20 6c 6f 6f 70 3a  49 4e 43 20 26 37 34 3a  |NE loop:INC &74:|
00000360  4c 44 41 20 26 37 34 3a  43 4d 50 20 23 34 0d 01  |LDA &74:CMP #4..|
00000370  4a 1d 20 20 42 4e 45 20  73 6b 70 33 3a 4c 44 41  |J.  BNE skp3:LDA|
00000380  20 23 30 3a 53 54 41 20  26 37 34 0d 01 54 1e 20  | #0:STA &74..T. |
00000390  20 49 4e 43 20 26 37 32  3a 42 4e 45 20 73 6b 70  | INC &72:BNE skp|
000003a0  32 3a 49 4e 43 20 26 37  33 0d 01 5e 1f 20 2e 73  |2:INC &73..^. .s|
000003b0  6b 70 32 20 4c 44 41 20  28 26 37 32 29 2c 59 3a  |kp2 LDA (&72),Y:|
000003c0  42 4e 45 20 73 6b 70 33  0d 01 68 1c 20 20 4c 44  |BNE skp3..h.  LD|
000003d0  41 20 23 6d 65 73 73 20  83 32 35 36 3a 53 54 41  |A #mess .256:STA|
000003e0  20 26 37 32 0d 01 72 1c  20 20 4c 44 41 20 23 6d  | &72..r.  LDA #m|
000003f0  65 73 73 20 81 32 35 36  3a 53 54 41 20 26 37 33  |ess .256:STA &73|
00000400  0d 01 7c 25 20 2e 73 6b  70 33 20 4c 44 41 20 64  |..|% .skp3 LDA d|
00000410  61 74 61 3a 53 54 41 26  37 44 37 38 3a 53 54 41  |ata:STA&7D78:STA|
00000420  26 37 44 37 39 0d 01 86  24 20 20 4c 44 41 20 64  |&7D79...$  LDA d|
00000430  61 74 61 2b 31 3a 53 54  41 20 26 37 44 37 41 3a  |ata+1:STA &7D7A:|
00000440  53 54 41 20 26 37 44 37  42 0d 01 90 24 20 20 4c  |STA &7D7B...$  L|
00000450  44 41 20 64 61 74 61 2b  32 3a 53 54 41 20 26 37  |DA data+2:STA &7|
00000460  44 37 43 3a 53 54 41 20  26 37 44 37 44 0d 01 9a  |D7C:STA &7D7D...|
00000470  24 20 20 4c 44 41 20 64  61 74 61 2b 33 3a 53 54  |$  LDA data+3:ST|
00000480  41 20 26 37 44 37 45 3a  53 54 41 20 26 37 44 37  |A &7D7E:STA &7D7|
00000490  46 0d 01 a4 24 20 20 4c  44 41 20 64 61 74 61 2b  |F...$  LDA data+|
000004a0  34 3a 53 54 41 20 26 37  46 46 38 3a 53 54 41 20  |4:STA &7FF8:STA |
000004b0  26 37 46 46 39 0d 01 ae  24 20 20 4c 44 41 20 64  |&7FF9...$  LDA d|
000004c0  61 74 61 2b 35 3a 53 54  41 20 26 37 46 46 41 3a  |ata+5:STA &7FFA:|
000004d0  53 54 41 20 26 37 46 46  42 0d 01 b8 24 20 20 4c  |STA &7FFB...$  L|
000004e0  44 41 20 64 61 74 61 2b  36 3a 53 54 41 20 26 37  |DA data+6:STA &7|
000004f0  46 46 43 3a 53 54 41 20  26 37 46 46 44 0d 01 c2  |FFC:STA &7FFD...|
00000500  24 20 20 4c 44 41 20 64  61 74 61 2b 37 3a 53 54  |$  LDA data+7:ST|
00000510  41 20 26 37 46 46 45 3a  53 54 41 20 26 37 46 46  |A &7FFE:STA &7FF|
00000520  46 0d 01 cc 09 20 20 52  54 53 0d 01 d6 0d 20 2e  |F....  RTS.... .|
00000530  64 61 74 20 4e 4f 50 0d  01 e0 1e 20 2e 64 61 74  |dat NOP.... .dat|
00000540  61 20 4f 50 54 20 a4 64  28 30 29 3a 4f 50 54 20  |a OPT .d(0):OPT |
00000550  a4 64 28 30 29 0d 01 ea  1a 20 2e 68 61 6c 74 20  |.d(0).... .halt |
00000560  44 45 43 20 26 37 35 3a  4c 44 41 20 26 37 35 0d  |DEC &75:LDA &75.|
00000570  01 f4 1d 20 20 43 4d 50  20 23 32 30 30 3a 42 45  |...  CMP #200:BE|
00000580  51 20 6e 6f 58 74 72 61  3a 52 54 53 0d 01 fe 1d  |Q noXtra:RTS....|
00000590  20 2e 6e 6f 58 74 72 61  20 4c 44 41 20 23 26 46  | .noXtra LDA #&F|
000005a0  46 3a 53 54 41 20 26 37  35 0d 02 08 22 20 20 49  |F:STA &75..."  I|
000005b0  4e 43 20 26 37 32 3a 42  4e 45 20 6a 75 6d 70 6f  |NC &72:BNE jumpo|
000005c0  76 65 72 3a 49 4e 43 20  26 37 33 0d 02 12 19 20  |ver:INC &73.... |
000005d0  2e 6a 75 6d 70 6f 76 65  72 20 4a 4d 50 20 72 65  |.jumpover JMP re|
000005e0  74 75 72 6e 0d 02 1c 24  20 2e 66 6c 61 73 68 20  |turn...$ .flash |
000005f0  44 45 43 20 26 37 35 3a  4c 44 41 20 26 37 35 3a  |DEC &75:LDA &75:|
00000600  43 4d 50 20 23 31 32 38  0d 02 26 1e 20 20 42 45  |CMP #128..&.  BE|
00000610  51 20 6e 6f 58 74 72 61  3a 80 20 23 33 32 3a 42  |Q noXtra:. #32:B|
00000620  45 51 20 73 65 65 0d 02  30 1e 20 20 4c 44 41 20  |EQ see..0.  LDA |
00000630  23 36 3a 53 54 41 20 26  46 45 30 30 3a 4c 44 41  |#6:STA &FE00:LDA|
00000640  20 23 33 30 0d 02 3a 13  20 20 53 54 41 20 26 46  | #30..:.  STA &F|
00000650  45 30 31 3a 52 54 53 0d  02 44 1a 20 2e 73 65 65  |E01:RTS..D. .see|
00000660  20 4c 44 41 20 23 36 3a  53 54 41 20 26 46 45 30  | LDA #6:STA &FE0|
00000670  30 0d 02 4e 1b 20 20 4c  44 41 20 23 33 32 3a 53  |0..N.  LDA #32:S|
00000680  54 41 20 26 46 45 30 31  3a 52 54 53 0d 02 58 0e  |TA &FE01:RTS..X.|
00000690  20 2e 6d 65 73 73 3a 5d  3a ed 0d 02 62 15 20 f5  | .mess:]:...b. .|
000006a0  20 f3 20 41 24 3a 41 24  3d 41 24 2b 22 20 22 0d  | . A$:A$=A$+" ".|
000006b0  02 6c 15 20 24 50 25 3d  41 24 3a 50 25 3d 50 25  |.l. $P%=A$:P%=P%|
000006c0  2b a9 41 24 0d 02 76 15  20 fd 20 41 24 3d 22 20  |+.A$..v. . A$=" |
000006d0  22 3a 50 25 21 2d 32 3d  30 0d 02 80 1e 20 21 26  |":P%!-2=0.... !&|
000006e0  37 32 3d 6d 65 73 73 3a  3f 26 37 34 3d 30 3a 3f  |72=mess:?&74=0:?|
000006f0  26 37 35 3d 32 35 35 0d  02 8a 0a 20 eb 20 32 3a  |&75=255.... . 2:|
00000700  f5 0d 02 94 11 20 d6 20  73 63 72 6f 6c 6c 3a fd  |..... . scroll:.|
00000710  20 a3 0d 02 9e 1f 20 dd  a4 62 28 42 25 29 3a 3f  | ..... ..b(B%):?|
00000720  50 25 3d 42 25 3a 50 25  3d 50 25 2b 31 3a 3d 4c  |P%=B%:P%=P%+1:=L|
00000730  25 0d 02 a8 1f 20 dd a4  77 28 57 25 29 3a 21 50  |%.... ..w(W%):!P|
00000740  25 3d 57 25 3a 50 25 3d  50 25 2b 32 3a 3d 4c 25  |%=W%:P%=P%+2:=L%|
00000750  0d 02 b2 1f 20 dd a4 64  28 44 25 29 3a 21 50 25  |.... ..d(D%):!P%|
00000760  3d 44 25 3a 50 25 3d 50  25 2b 34 3a 3d 4c 25 0d  |=D%:P%=P%+4:=L%.|
00000770  02 c6 1c 20 dc 20 2a 2a  20 53 55 50 45 52 20 53  |... . ** SUPER S|
00000780  43 52 4f 4c 4c 45 52 20  2a 2a 5c 0d 02 d0 23 20  |CROLLER **\...# |
00000790  dc 20 53 63 72 6f 6c 6c  69 6e 67 20 6d 65 73 73  |. Scrolling mess|
000007a0  61 67 65 20 62 6f 61 72  64 73 20 61 72 65 0d 02  |age boards are..|
000007b0  da 20 20 dc 20 61 6c 77  61 79 73 20 61 20 67 6f  |.  . always a go|
000007c0  6f 64 20 61 64 64 69 74  69 6f 6e 20 74 6f 0d 02  |od addition to..|
000007d0  e4 1f 20 dc 20 61 6e 79  20 70 72 6f 67 72 61 6d  |.. . any program|
000007e0  2e 7c 20 54 68 69 73 20  73 75 70 65 72 0d 02 ee  |.| This super...|
000007f0  22 20 dc 20 75 74 69 6c  69 74 79 20 63 61 6e 20  |" . utility can |
00000800  73 63 72 6f 6c 6c 20 6e  69 63 65 20 62 69 67 0d  |scroll nice big.|
00000810  02 f8 1e 20 dc 20 6c 65  74 74 65 72 73 20 69 6e  |... . letters in|
00000820  20 6d 6f 64 65 20 32 2e  20 49 74 27 73 0d 03 02  | mode 2. It's...|
00000830  20 20 dc 20 72 65 61 6c  6c 79 20 65 61 73 79 20  |  . really easy |
00000840  74 6f 20 75 73 65 2e 7c  20 4a 75 73 74 0d 03 0c  |to use.| Just...|
00000850  20 20 dc 20 70 75 74 20  79 6f 75 72 20 6d 65 73  |  . put your mes|
00000860  73 61 67 65 20 69 6e 20  74 68 65 73 65 0d 03 16  |sage in these...|
00000870  22 20 dc 20 6c 69 6e 65  73 2c 20 6d 6f 72 65 20  |" . lines, more |
00000880  63 61 6e 20 62 65 20 61  64 64 65 64 20 6f 72 0d  |can be added or.|
00000890  03 20 20 20 dc 20 73 6f  6d 65 20 63 6f 75 6c 64  |.   . some could|
000008a0  20 62 65 20 64 65 6c 65  74 65 64 20 61 6e 64 0d  | be deleted and.|
000008b0  03 2a 20 20 dc 20 74 68  61 74 27 73 20 61 6c 6c  |.*  . that's all|
000008c0  20 74 68 65 72 65 20 69  73 20 74 6f 20 69 74 0d  | there is to it.|
000008d0  03 34 22 20 dc 20 66 6f  6c 6b 73 21 7c 20 54 6f  |.4" . folks!| To|
000008e0  20 6d 61 6b 65 20 74 68  65 20 63 75 72 72 65 6e  | make the curren|
000008f0  74 0d 03 3e 1f 20 dc 20  64 69 73 70 6c 61 79 20  |t..>. . display |
00000900  66 6c 61 73 68 20 6a 75  73 74 20 75 73 65 20 61  |flash just use a|
00000910  0d 03 48 21 20 dc 20 62  61 63 6b 73 6c 61 73 68  |..H! . backslash|
00000920  20 61 6e 64 20 74 6f 20  70 72 6f 64 75 63 65 20  | and to produce |
00000930  61 0d 03 52 23 20 dc 20  70 61 75 73 65 20 75 73  |a..R# . pause us|
00000940  65 20 74 68 65 20 64 6f  75 62 6c 65 20 6c 69 6e  |e the double lin|
00000950  65 2e 7c 7c 0d 03 5c 1e  20 dc 20 2e 2e 2e 20 49  |e.||..\. . ... I|
00000960  66 20 74 68 65 73 65 20  63 68 61 72 61 63 74 65  |f these characte|
00000970  72 73 0d 03 66 21 20 dc  20 64 6f 6e 27 74 20 73  |rs..f! . don't s|
00000980  75 69 74 20 79 6f 75 20  74 68 65 6e 20 63 68 61  |uit you then cha|
00000990  6e 67 65 0d 03 70 22 20  dc 20 74 68 65 6d 20 69  |nge..p" . them i|
000009a0  6e 20 6c 69 6e 65 73 20  36 30 20 61 6e 64 20 38  |n lines 60 and 8|
000009b0  30 20 2e 2e 2e 0d 03 7a  20 20 dc 20 54 68 65 20  |0 .....z  . The |
000009c0  77 68 6f 6c 65 20 6d 65  73 73 61 67 65 20 72 65  |whole message re|
000009d0  70 65 61 74 73 0d 03 84  21 20 dc 20 61 75 74 6f  |peats...! . auto|
000009e0  6d 61 74 69 63 61 6c 6c  79 2e 20 4c 69 6b 65 20  |matically. Like |
000009f0  74 68 69 73 3a 7c 0d 03  8e 09 20 dc 20 22 22 0d  |this:|.... . "".|
00000a00  ff                                                |.|
00000a01