"� Scroll down source (SRCDsrc)
� by Richard Dimond
� (c) December 1996
(� 
2
�assem
<�"SAVE SCRdn 900 "+�~P%
F�
P��assem
Z a=&80:b=&82:temp=&84:!temp=0
d�pass%=0�2�2
nP%=&900
x
[OPTpass%
�
.start
� LDA#&C4:STAa:LDA#&7E:STAa+1 
�LDA#&C0:STAb:LDA#&7E:STAb+1
�	.loop
�	LDX#0
�
.loop1
�LDA#40:STA&90
�
.loop2
�	LDY#4
�!.loop3:DEY:LDA(b),Y:STA(a),Y 
�CPY#0:BNEloop3
�CLC:LDAa:ADC#8:STAa
�LDAa+1:ADC#0:STAa+1

CLC:LDAb:ADC#8:STAb

LDAb+1:ADC#0:STAb+1

DEC&90:BNEloop2

"CPX#1:BEQsuba

,SEC:LDAa:SBC#&44:STAa

6LDAa+1:SBC#1:STAa+1

@SEC:LDAb:SBC#&7C:STAb

JLDAb+1:SBC#2:STAb+1

TINX:JMPloop1

^	.suba

hSEC:LDAa:SBC#&7C:STAa

rLDAa+1:SBC#2:STAa+1

|SEC:LDAb:SBC#&44:STAb

�LDAb+1:SBC#1:STAb+1

�'.chk LDAa+1:CMP#&6C:BEQcont:JMPloop

�	.cont

�LDA&7FFE:BEQrts:JMPstart 

�.rts RTS

�]

��

��
�

00000000  0d 00 0a 22 f4 20 53 63  72 6f 6c 6c 20 64 6f 77  |...". Scroll dow|
00000010  6e 20 73 6f 75 72 63 65  20 28 53 52 43 44 73 72  |n source (SRCDsr|
00000020  63 29 0d 00 14 17 f4 20  62 79 20 52 69 63 68 61  |c)..... by Richa|
00000030  72 64 20 44 69 6d 6f 6e  64 0d 00 1e 17 f4 20 28  |rd Dimond..... (|
00000040  63 29 20 44 65 63 65 6d  62 65 72 20 31 39 39 36  |c) December 1996|
00000050  0d 00 28 06 f4 20 0d 00  32 0a f2 61 73 73 65 6d  |..(.. ..2..assem|
00000060  0d 00 3c 1b ff 22 53 41  56 45 20 53 43 52 64 6e  |..<.."SAVE SCRdn|
00000070  20 39 30 30 20 22 2b c3  7e 50 25 0d 00 46 05 e0  | 900 "+.~P%..F..|
00000080  0d 00 50 0b dd f2 61 73  73 65 6d 0d 00 5a 20 61  |..P...assem..Z a|
00000090  3d 26 38 30 3a 62 3d 26  38 32 3a 74 65 6d 70 3d  |=&80:b=&82:temp=|
000000a0  26 38 34 3a 21 74 65 6d  70 3d 30 0d 00 64 10 e3  |&84:!temp=0..d..|
000000b0  70 61 73 73 25 3d 30 b8  32 88 32 0d 00 6e 0b 50  |pass%=0.2.2..n.P|
000000c0  25 3d 26 39 30 30 0d 00  78 0d 5b 4f 50 54 70 61  |%=&900..x.[OPTpa|
000000d0  73 73 25 0d 00 82 0a 2e  73 74 61 72 74 0d 00 8c  |ss%.....start...|
000000e0  20 4c 44 41 23 26 43 34  3a 53 54 41 61 3a 4c 44  | LDA#&C4:STAa:LD|
000000f0  41 23 26 37 45 3a 53 54  41 61 2b 31 20 0d 00 96  |A#&7E:STAa+1 ...|
00000100  1f 4c 44 41 23 26 43 30  3a 53 54 41 62 3a 4c 44  |.LDA#&C0:STAb:LD|
00000110  41 23 26 37 45 3a 53 54  41 62 2b 31 0d 00 a0 09  |A#&7E:STAb+1....|
00000120  2e 6c 6f 6f 70 0d 00 aa  09 4c 44 58 23 30 0d 00  |.loop....LDX#0..|
00000130  b4 0a 2e 6c 6f 6f 70 31  0d 00 be 11 4c 44 41 23  |...loop1....LDA#|
00000140  34 30 3a 53 54 41 26 39  30 0d 00 c8 0a 2e 6c 6f  |40:STA&90.....lo|
00000150  6f 70 32 0d 00 d2 09 4c  44 59 23 34 0d 00 dc 21  |op2....LDY#4...!|
00000160  2e 6c 6f 6f 70 33 3a 44  45 59 3a 4c 44 41 28 62  |.loop3:DEY:LDA(b|
00000170  29 2c 59 3a 53 54 41 28  61 29 2c 59 20 0d 00 e6  |),Y:STA(a),Y ...|
00000180  12 43 50 59 23 30 3a 42  4e 45 6c 6f 6f 70 33 0d  |.CPY#0:BNEloop3.|
00000190  00 f0 17 43 4c 43 3a 4c  44 41 61 3a 41 44 43 23  |...CLC:LDAa:ADC#|
000001a0  38 3a 53 54 41 61 0d 00  fa 17 4c 44 41 61 2b 31  |8:STAa....LDAa+1|
000001b0  3a 41 44 43 23 30 3a 53  54 41 61 2b 31 0d 01 04  |:ADC#0:STAa+1...|
000001c0  17 43 4c 43 3a 4c 44 41  62 3a 41 44 43 23 38 3a  |.CLC:LDAb:ADC#8:|
000001d0  53 54 41 62 0d 01 0e 17  4c 44 41 62 2b 31 3a 41  |STAb....LDAb+1:A|
000001e0  44 43 23 30 3a 53 54 41  62 2b 31 0d 01 18 13 44  |DC#0:STAb+1....D|
000001f0  45 43 26 39 30 3a 42 4e  45 6c 6f 6f 70 32 0d 01  |EC&90:BNEloop2..|
00000200  22 11 43 50 58 23 31 3a  42 45 51 73 75 62 61 0d  |".CPX#1:BEQsuba.|
00000210  01 2c 19 53 45 43 3a 4c  44 41 61 3a 53 42 43 23  |.,.SEC:LDAa:SBC#|
00000220  26 34 34 3a 53 54 41 61  0d 01 36 17 4c 44 41 61  |&44:STAa..6.LDAa|
00000230  2b 31 3a 53 42 43 23 31  3a 53 54 41 61 2b 31 0d  |+1:SBC#1:STAa+1.|
00000240  01 40 19 53 45 43 3a 4c  44 41 62 3a 53 42 43 23  |.@.SEC:LDAb:SBC#|
00000250  26 37 43 3a 53 54 41 62  0d 01 4a 17 4c 44 41 62  |&7C:STAb..J.LDAb|
00000260  2b 31 3a 53 42 43 23 32  3a 53 54 41 62 2b 31 0d  |+1:SBC#2:STAb+1.|
00000270  01 54 10 49 4e 58 3a 4a  4d 50 6c 6f 6f 70 31 0d  |.T.INX:JMPloop1.|
00000280  01 5e 09 2e 73 75 62 61  0d 01 68 19 53 45 43 3a  |.^..suba..h.SEC:|
00000290  4c 44 41 61 3a 53 42 43  23 26 37 43 3a 53 54 41  |LDAa:SBC#&7C:STA|
000002a0  61 0d 01 72 17 4c 44 41  61 2b 31 3a 53 42 43 23  |a..r.LDAa+1:SBC#|
000002b0  32 3a 53 54 41 61 2b 31  0d 01 7c 19 53 45 43 3a  |2:STAa+1..|.SEC:|
000002c0  4c 44 41 62 3a 53 42 43  23 26 34 34 3a 53 54 41  |LDAb:SBC#&44:STA|
000002d0  62 0d 01 86 17 4c 44 41  62 2b 31 3a 53 42 43 23  |b....LDAb+1:SBC#|
000002e0  31 3a 53 54 41 62 2b 31  0d 01 90 27 2e 63 68 6b  |1:STAb+1...'.chk|
000002f0  20 4c 44 41 61 2b 31 3a  43 4d 50 23 26 36 43 3a  | LDAa+1:CMP#&6C:|
00000300  42 45 51 63 6f 6e 74 3a  4a 4d 50 6c 6f 6f 70 0d  |BEQcont:JMPloop.|
00000310  01 9a 09 2e 63 6f 6e 74  0d 01 a4 1d 4c 44 41 26  |....cont....LDA&|
00000320  37 46 46 45 3a 42 45 51  72 74 73 3a 4a 4d 50 73  |7FFE:BEQrts:JMPs|
00000330  74 61 72 74 20 0d 01 ae  0c 2e 72 74 73 20 52 54  |tart .....rts RT|
00000340  53 0d 01 b8 05 5d 0d 01  c2 05 ed 0d 01 cc 05 e1  |S....]..........|
00000350  0d ff                                             |..|
00000352