� Scroll up source (SCRUsrc)
� by Richard Dimond
� (c) December 1996
(� 
2
�assem
<�"SAVE SRCup 900 "+�~P%
F�
P��assem
Za=&80:b=&82:count=&84
d�pass%=0�2�2
nP%=&900
x
[OPTpass%
�
.start
�LDA#&84:STAa:LDA#&64:STAa+1
�LDA#&80:STAb:LDA#&64:STAb+1
�	.loop
�	LDX#0
�
.loop1
�LDA#40:STAcount
�
.loop2
�	LDY#0
�.loop3:LDA(a),Y:STA(b),Y
�INY
�CPY#4:BNEloop3
�CLC:LDAa:ADC#8:STAa

LDAa+1:ADC#0:STAa+1

CLC:LDAb:ADC#8:STAb

LDAb+1:ADC#0:STAb+1

"DECcount:BNEloop2

,CPX#0:BEQsuba

6CPX#1:BEQsubb

@SEC:LDAa:SBC#&3C:STAa

JLDAa+1:SBC#1:STAa+1

TSEC:LDAb:SBC#&3C:STAb

^LDAb+1:SBC#1:STAb+1

hINX:JMPloop1

r	.suba

|SEC:LDAa:SBC#4:STAa

�LDAa+1:SBC#0:STAa+1

�SEC:LDAb:SBC#&3C:STAb

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

�INX:JMPloop1

�	.subb

�SEC:LDAb:SBC#4:STAb

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

�SEC:LDAa:SBC#&3C:STAa

�LDAa+1:SBC#1:STAa+1

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

�	.cont

�LDA&6480:BNE rts:JMPstart

�.rts RTS
]
�
�
�

00000000  0d 00 0a 20 f4 20 53 63  72 6f 6c 6c 20 75 70 20  |... . Scroll up |
00000010  73 6f 75 72 63 65 20 28  53 43 52 55 73 72 63 29  |source (SCRUsrc)|
00000020  0d 00 14 17 f4 20 62 79  20 52 69 63 68 61 72 64  |..... by Richard|
00000030  20 44 69 6d 6f 6e 64 0d  00 1e 17 f4 20 28 63 29  | Dimond..... (c)|
00000040  20 44 65 63 65 6d 62 65  72 20 31 39 39 36 0d 00  | December 1996..|
00000050  28 06 f4 20 0d 00 32 0a  f2 61 73 73 65 6d 0d 00  |(.. ..2..assem..|
00000060  3c 1b ff 22 53 41 56 45  20 53 52 43 75 70 20 39  |<.."SAVE SRCup 9|
00000070  30 30 20 22 2b c3 7e 50  25 0d 00 46 05 e0 0d 00  |00 "+.~P%..F....|
00000080  50 0b dd f2 61 73 73 65  6d 0d 00 5a 19 61 3d 26  |P...assem..Z.a=&|
00000090  38 30 3a 62 3d 26 38 32  3a 63 6f 75 6e 74 3d 26  |80:b=&82:count=&|
000000a0  38 34 0d 00 64 10 e3 70  61 73 73 25 3d 30 b8 32  |84..d..pass%=0.2|
000000b0  88 32 0d 00 6e 0b 50 25  3d 26 39 30 30 0d 00 78  |.2..n.P%=&900..x|
000000c0  0d 5b 4f 50 54 70 61 73  73 25 0d 00 82 0a 2e 73  |.[OPTpass%.....s|
000000d0  74 61 72 74 0d 00 8c 1f  4c 44 41 23 26 38 34 3a  |tart....LDA#&84:|
000000e0  53 54 41 61 3a 4c 44 41  23 26 36 34 3a 53 54 41  |STAa:LDA#&64:STA|
000000f0  61 2b 31 0d 00 96 1f 4c  44 41 23 26 38 30 3a 53  |a+1....LDA#&80:S|
00000100  54 41 62 3a 4c 44 41 23  26 36 34 3a 53 54 41 62  |TAb:LDA#&64:STAb|
00000110  2b 31 0d 00 a0 09 2e 6c  6f 6f 70 0d 00 aa 09 4c  |+1.....loop....L|
00000120  44 58 23 30 0d 00 b4 0a  2e 6c 6f 6f 70 31 0d 00  |DX#0.....loop1..|
00000130  be 13 4c 44 41 23 34 30  3a 53 54 41 63 6f 75 6e  |..LDA#40:STAcoun|
00000140  74 0d 00 c8 0a 2e 6c 6f  6f 70 32 0d 00 d2 09 4c  |t.....loop2....L|
00000150  44 59 23 30 0d 00 dc 1c  2e 6c 6f 6f 70 33 3a 4c  |DY#0.....loop3:L|
00000160  44 41 28 61 29 2c 59 3a  53 54 41 28 62 29 2c 59  |DA(a),Y:STA(b),Y|
00000170  0d 00 e6 07 49 4e 59 0d  00 f0 12 43 50 59 23 34  |....INY....CPY#4|
00000180  3a 42 4e 45 6c 6f 6f 70  33 0d 00 fa 17 43 4c 43  |:BNEloop3....CLC|
00000190  3a 4c 44 41 61 3a 41 44  43 23 38 3a 53 54 41 61  |:LDAa:ADC#8:STAa|
000001a0  0d 01 04 17 4c 44 41 61  2b 31 3a 41 44 43 23 30  |....LDAa+1:ADC#0|
000001b0  3a 53 54 41 61 2b 31 0d  01 0e 17 43 4c 43 3a 4c  |:STAa+1....CLC:L|
000001c0  44 41 62 3a 41 44 43 23  38 3a 53 54 41 62 0d 01  |DAb:ADC#8:STAb..|
000001d0  18 17 4c 44 41 62 2b 31  3a 41 44 43 23 30 3a 53  |..LDAb+1:ADC#0:S|
000001e0  54 41 62 2b 31 0d 01 22  15 44 45 43 63 6f 75 6e  |TAb+1..".DECcoun|
000001f0  74 3a 42 4e 45 6c 6f 6f  70 32 0d 01 2c 11 43 50  |t:BNEloop2..,.CP|
00000200  58 23 30 3a 42 45 51 73  75 62 61 0d 01 36 11 43  |X#0:BEQsuba..6.C|
00000210  50 58 23 31 3a 42 45 51  73 75 62 62 0d 01 40 19  |PX#1:BEQsubb..@.|
00000220  53 45 43 3a 4c 44 41 61  3a 53 42 43 23 26 33 43  |SEC:LDAa:SBC#&3C|
00000230  3a 53 54 41 61 0d 01 4a  17 4c 44 41 61 2b 31 3a  |:STAa..J.LDAa+1:|
00000240  53 42 43 23 31 3a 53 54  41 61 2b 31 0d 01 54 19  |SBC#1:STAa+1..T.|
00000250  53 45 43 3a 4c 44 41 62  3a 53 42 43 23 26 33 43  |SEC:LDAb:SBC#&3C|
00000260  3a 53 54 41 62 0d 01 5e  17 4c 44 41 62 2b 31 3a  |:STAb..^.LDAb+1:|
00000270  53 42 43 23 31 3a 53 54  41 62 2b 31 0d 01 68 10  |SBC#1:STAb+1..h.|
00000280  49 4e 58 3a 4a 4d 50 6c  6f 6f 70 31 0d 01 72 09  |INX:JMPloop1..r.|
00000290  2e 73 75 62 61 0d 01 7c  17 53 45 43 3a 4c 44 41  |.suba..|.SEC:LDA|
000002a0  61 3a 53 42 43 23 34 3a  53 54 41 61 0d 01 86 17  |a:SBC#4:STAa....|
000002b0  4c 44 41 61 2b 31 3a 53  42 43 23 30 3a 53 54 41  |LDAa+1:SBC#0:STA|
000002c0  61 2b 31 0d 01 90 19 53  45 43 3a 4c 44 41 62 3a  |a+1....SEC:LDAb:|
000002d0  53 42 43 23 26 33 43 3a  53 54 41 62 0d 01 9a 17  |SBC#&3C:STAb....|
000002e0  4c 44 41 62 2b 31 3a 53  42 43 23 31 3a 53 54 41  |LDAb+1:SBC#1:STA|
000002f0  62 2b 31 0d 01 a4 10 49  4e 58 3a 4a 4d 50 6c 6f  |b+1....INX:JMPlo|
00000300  6f 70 31 0d 01 ae 09 2e  73 75 62 62 0d 01 b8 17  |op1.....subb....|
00000310  53 45 43 3a 4c 44 41 62  3a 53 42 43 23 34 3a 53  |SEC:LDAb:SBC#4:S|
00000320  54 41 62 0d 01 c2 17 4c  44 41 62 2b 31 3a 53 42  |TAb....LDAb+1:SB|
00000330  43 23 30 3a 53 54 41 62  2b 31 0d 01 cc 19 53 45  |C#0:STAb+1....SE|
00000340  43 3a 4c 44 41 61 3a 53  42 43 23 26 33 43 3a 53  |C:LDAa:SBC#&3C:S|
00000350  54 41 61 0d 01 d6 17 4c  44 41 61 2b 31 3a 53 42  |TAa....LDAa+1:SB|
00000360  43 23 31 3a 53 54 41 61  2b 31 0d 01 e0 27 2e 63  |C#1:STAa+1...'.c|
00000370  68 6b 20 4c 44 41 61 2b  31 3a 43 4d 50 23 26 37  |hk LDAa+1:CMP#&7|
00000380  43 3a 42 45 51 63 6f 6e  74 3a 4a 4d 50 6c 6f 6f  |C:BEQcont:JMPloo|
00000390  70 0d 01 ea 09 2e 63 6f  6e 74 0d 01 f4 1d 4c 44  |p.....cont....LD|
000003a0  41 26 36 34 38 30 3a 42  4e 45 20 72 74 73 3a 4a  |A&6480:BNE rts:J|
000003b0  4d 50 73 74 61 72 74 0d  01 fe 0c 2e 72 74 73 20  |MPstart.....rts |
000003c0  52 54 53 0d 02 08 05 5d  0d 02 12 05 ed 0d 02 1c  |RTS....]........|
000003d0  05 e1 0d ff                                       |....|
000003d4