� Scroll left (SCRLsrc)
� by Richard Dimond
� (c) December 1996
(�
2
�assem
<�"SAVE SCRlt 900 "+�~P%
F�
P��assem
Z0a=&80:b=&82:aa=&84:bb=&86:temp=&88:count=&8A
d�pass%=0�2�2
nP%=&900
x
[OPTpass%
�
.start
�!LDA#&48:STAaa:LDA#&72:STAaa+1
�!LDA#&40:STAbb:LDA#&72:STAbb+1
�	.loop
�LDA#40:STAcount
�.loop1 
�LDAaa:STAa:LDAaa+1:STAa+1
�LDAbb:STAb:LDAbb+1:STAb+1
�LDA#40:STA&90
�.loop2 LDY#0
�
.loop3
�LDA(a),Y:STAtemp
�LDA(b),Y:STAtemp+1

'ASLtemp:ROLtemp+1:ASLtemp:ROLtemp+1

'ASLtemp:ROLtemp+1:ASLtemp:ROLtemp+1

LDAtemp+1:STA(b),Y

"INY:CPY#8:BNEloop3

,CLC:LDAa:ADC#&40:STAa

6LDAa+1:ADC#1:STAa+1

@CLC:LDAb:ADC#&40:STAb

JLDAb+1:ADC#1:STAb+1

TLDAa+1:CMP#&7C:BCCloop2

^CLC:LDAaa:ADC#8:STAaa

hLDAaa+1:ADC#0:STAaa+1

rCLC:LDAbb:ADC#8:STAbb

|LDAbb+1:ADC#0:STAbb+1

�DECcount:BNEloop1

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

�	.cont

�LDA&7300:BNE rts:JMPstart

�.rts RTS

�]

��

��
�

00000000  0d 00 0a 1b f4 20 53 63  72 6f 6c 6c 20 6c 65 66  |..... Scroll lef|
00000010  74 20 28 53 43 52 4c 73  72 63 29 0d 00 14 17 f4  |t (SCRLsrc).....|
00000020  20 62 79 20 52 69 63 68  61 72 64 20 44 69 6d 6f  | by Richard Dimo|
00000030  6e 64 0d 00 1e 17 f4 20  28 63 29 20 44 65 63 65  |nd..... (c) Dece|
00000040  6d 62 65 72 20 31 39 39  36 0d 00 28 05 f4 0d 00  |mber 1996..(....|
00000050  32 0a f2 61 73 73 65 6d  0d 00 3c 1b ff 22 53 41  |2..assem..<.."SA|
00000060  56 45 20 53 43 52 6c 74  20 39 30 30 20 22 2b c3  |VE SCRlt 900 "+.|
00000070  7e 50 25 0d 00 46 05 e0  0d 00 50 0b dd f2 61 73  |~P%..F....P...as|
00000080  73 65 6d 0d 00 5a 30 61  3d 26 38 30 3a 62 3d 26  |sem..Z0a=&80:b=&|
00000090  38 32 3a 61 61 3d 26 38  34 3a 62 62 3d 26 38 36  |82:aa=&84:bb=&86|
000000a0  3a 74 65 6d 70 3d 26 38  38 3a 63 6f 75 6e 74 3d  |:temp=&88:count=|
000000b0  26 38 41 0d 00 64 10 e3  70 61 73 73 25 3d 30 b8  |&8A..d..pass%=0.|
000000c0  32 88 32 0d 00 6e 0b 50  25 3d 26 39 30 30 0d 00  |2.2..n.P%=&900..|
000000d0  78 0d 5b 4f 50 54 70 61  73 73 25 0d 00 82 0a 2e  |x.[OPTpass%.....|
000000e0  73 74 61 72 74 0d 00 8c  21 4c 44 41 23 26 34 38  |start...!LDA#&48|
000000f0  3a 53 54 41 61 61 3a 4c  44 41 23 26 37 32 3a 53  |:STAaa:LDA#&72:S|
00000100  54 41 61 61 2b 31 0d 00  96 21 4c 44 41 23 26 34  |TAaa+1...!LDA#&4|
00000110  30 3a 53 54 41 62 62 3a  4c 44 41 23 26 37 32 3a  |0:STAbb:LDA#&72:|
00000120  53 54 41 62 62 2b 31 0d  00 a0 09 2e 6c 6f 6f 70  |STAbb+1.....loop|
00000130  0d 00 aa 13 4c 44 41 23  34 30 3a 53 54 41 63 6f  |....LDA#40:STAco|
00000140  75 6e 74 0d 00 b4 0b 2e  6c 6f 6f 70 31 20 0d 00  |unt.....loop1 ..|
00000150  be 1d 4c 44 41 61 61 3a  53 54 41 61 3a 4c 44 41  |..LDAaa:STAa:LDA|
00000160  61 61 2b 31 3a 53 54 41  61 2b 31 0d 00 c8 1d 4c  |aa+1:STAa+1....L|
00000170  44 41 62 62 3a 53 54 41  62 3a 4c 44 41 62 62 2b  |DAbb:STAb:LDAbb+|
00000180  31 3a 53 54 41 62 2b 31  0d 00 d2 11 4c 44 41 23  |1:STAb+1....LDA#|
00000190  34 30 3a 53 54 41 26 39  30 0d 00 dc 10 2e 6c 6f  |40:STA&90.....lo|
000001a0  6f 70 32 20 4c 44 59 23  30 0d 00 e6 0a 2e 6c 6f  |op2 LDY#0.....lo|
000001b0  6f 70 33 0d 00 f0 14 4c  44 41 28 61 29 2c 59 3a  |op3....LDA(a),Y:|
000001c0  53 54 41 74 65 6d 70 0d  00 fa 16 4c 44 41 28 62  |STAtemp....LDA(b|
000001d0  29 2c 59 3a 53 54 41 74  65 6d 70 2b 31 0d 01 04  |),Y:STAtemp+1...|
000001e0  27 41 53 4c 74 65 6d 70  3a 52 4f 4c 74 65 6d 70  |'ASLtemp:ROLtemp|
000001f0  2b 31 3a 41 53 4c 74 65  6d 70 3a 52 4f 4c 74 65  |+1:ASLtemp:ROLte|
00000200  6d 70 2b 31 0d 01 0e 27  41 53 4c 74 65 6d 70 3a  |mp+1...'ASLtemp:|
00000210  52 4f 4c 74 65 6d 70 2b  31 3a 41 53 4c 74 65 6d  |ROLtemp+1:ASLtem|
00000220  70 3a 52 4f 4c 74 65 6d  70 2b 31 0d 01 18 16 4c  |p:ROLtemp+1....L|
00000230  44 41 74 65 6d 70 2b 31  3a 53 54 41 28 62 29 2c  |DAtemp+1:STA(b),|
00000240  59 0d 01 22 16 49 4e 59  3a 43 50 59 23 38 3a 42  |Y..".INY:CPY#8:B|
00000250  4e 45 6c 6f 6f 70 33 0d  01 2c 19 43 4c 43 3a 4c  |NEloop3..,.CLC:L|
00000260  44 41 61 3a 41 44 43 23  26 34 30 3a 53 54 41 61  |DAa:ADC#&40:STAa|
00000270  0d 01 36 17 4c 44 41 61  2b 31 3a 41 44 43 23 31  |..6.LDAa+1:ADC#1|
00000280  3a 53 54 41 61 2b 31 0d  01 40 19 43 4c 43 3a 4c  |:STAa+1..@.CLC:L|
00000290  44 41 62 3a 41 44 43 23  26 34 30 3a 53 54 41 62  |DAb:ADC#&40:STAb|
000002a0  0d 01 4a 17 4c 44 41 62  2b 31 3a 41 44 43 23 31  |..J.LDAb+1:ADC#1|
000002b0  3a 53 54 41 62 2b 31 0d  01 54 1b 4c 44 41 61 2b  |:STAb+1..T.LDAa+|
000002c0  31 3a 43 4d 50 23 26 37  43 3a 42 43 43 6c 6f 6f  |1:CMP#&7C:BCCloo|
000002d0  70 32 0d 01 5e 19 43 4c  43 3a 4c 44 41 61 61 3a  |p2..^.CLC:LDAaa:|
000002e0  41 44 43 23 38 3a 53 54  41 61 61 0d 01 68 19 4c  |ADC#8:STAaa..h.L|
000002f0  44 41 61 61 2b 31 3a 41  44 43 23 30 3a 53 54 41  |DAaa+1:ADC#0:STA|
00000300  61 61 2b 31 0d 01 72 19  43 4c 43 3a 4c 44 41 62  |aa+1..r.CLC:LDAb|
00000310  62 3a 41 44 43 23 38 3a  53 54 41 62 62 0d 01 7c  |b:ADC#8:STAbb..||
00000320  19 4c 44 41 62 62 2b 31  3a 41 44 43 23 30 3a 53  |.LDAbb+1:ADC#0:S|
00000330  54 41 62 62 2b 31 0d 01  86 15 44 45 43 63 6f 75  |TAbb+1....DECcou|
00000340  6e 74 3a 42 4e 45 6c 6f  6f 70 31 0d 01 90 27 2e  |nt:BNEloop1...'.|
00000350  63 68 6b 20 4c 44 41 61  2b 31 3a 43 4d 50 23 26  |chk LDAa+1:CMP#&|
00000360  37 43 3a 42 45 51 63 6f  6e 74 3a 4a 4d 50 6c 6f  |7C:BEQcont:JMPlo|
00000370  6f 70 0d 01 9a 09 2e 63  6f 6e 74 0d 01 a4 1d 4c  |op.....cont....L|
00000380  44 41 26 37 33 30 30 3a  42 4e 45 20 72 74 73 3a  |DA&7300:BNE rts:|
00000390  4a 4d 50 73 74 61 72 74  0d 01 ae 0c 2e 72 74 73  |JMPstart.....rts|
000003a0  20 52 54 53 0d 01 b8 05  5d 0d 01 c2 05 ed 0d 01  | RTS....].......|
000003b0  cc 05 e1 0d ff                                    |.....|
000003b5