,� Link to move Eclipse sections into SWR
2� (C) All Eclipse programs Allan Kelly 25/1/87
B�=&5000
P�
Z+� "Which socket is Sideways RAM in?"ram
d� ram>=0 � ram<16
nmc=�assemble(ram)
x 
�*LOAD ECSEC1
�*LOAD ECSEC2
�*LOAD ECSEC3
�*LOAD ECSEC4
�*LOAD ECSEC5
� 
�� mc
� 
�?(&2A1+ram)=&C2
�	*HELP
��
� 
�ݤassemble(ram)

� to,memory,len,pass,back

to=&8000

memory=&5F00

"len=&20

,� pass=0 � 2 � 2

6P%=&A00

@[

JOPT pass

TLDA#memory � 256

^
STA&70

hLDA#memory � 256

r
STA&71

|LDA#to � 256

�
STA&72

�LDA#to � 256

�
STA&73

�
LDA&F4

�PHA

�LDA#ram

�
STA&F4

�STA&FE30

�	LDY#0

�.back LDA(&70),Y

�STA(&72),Y

�INY

�	CPY#0
BNE back

INC&71

INC&73
&
LDA&71
0CMP#len+(memory � 256)
:BMI back
DPLA
N
STA&F4
XSTA&FE30
bRTS
l]
v�
�
:=&A00
�

00000000  0d 00 0a 2c f4 20 4c 69  6e 6b 20 74 6f 20 6d 6f  |...,. Link to mo|
00000010  76 65 20 45 63 6c 69 70  73 65 20 73 65 63 74 69  |ve Eclipse secti|
00000020  6f 6e 73 20 69 6e 74 6f  20 53 57 52 0d 00 14 32  |ons into SWR...2|
00000030  f4 20 28 43 29 20 41 6c  6c 20 45 63 6c 69 70 73  |. (C) All Eclips|
00000040  65 20 70 72 6f 67 72 61  6d 73 20 41 6c 6c 61 6e  |e programs Allan|
00000050  20 4b 65 6c 6c 79 20 32  35 2f 31 2f 38 37 0d 00  | Kelly 25/1/87..|
00000060  42 0b d3 3d 26 35 30 30  30 0d 00 50 05 f5 0d 00  |B..=&5000..P....|
00000070  5a 2b e8 20 22 57 68 69  63 68 20 73 6f 63 6b 65  |Z+. "Which socke|
00000080  74 20 69 73 20 53 69 64  65 77 61 79 73 20 52 41  |t is Sideways RA|
00000090  4d 20 69 6e 3f 22 72 61  6d 0d 00 64 15 fd 20 72  |M in?"ram..d.. r|
000000a0  61 6d 3e 3d 30 20 80 20  72 61 6d 3c 31 36 0d 00  |am>=0 . ram<16..|
000000b0  6e 15 6d 63 3d a4 61 73  73 65 6d 62 6c 65 28 72  |n.mc=.assemble(r|
000000c0  61 6d 29 0d 00 78 05 20  0d 00 82 10 2a 4c 4f 41  |am)..x. ....*LOA|
000000d0  44 20 45 43 53 45 43 31  0d 00 8c 10 2a 4c 4f 41  |D ECSEC1....*LOA|
000000e0  44 20 45 43 53 45 43 32  0d 00 96 10 2a 4c 4f 41  |D ECSEC2....*LOA|
000000f0  44 20 45 43 53 45 43 33  0d 00 a0 10 2a 4c 4f 41  |D ECSEC3....*LOA|
00000100  44 20 45 43 53 45 43 34  0d 00 aa 10 2a 4c 4f 41  |D ECSEC4....*LOA|
00000110  44 20 45 43 53 45 43 35  0d 00 b4 05 20 0d 00 be  |D ECSEC5.... ...|
00000120  08 d6 20 6d 63 0d 00 c8  05 20 0d 00 d2 13 3f 28  |.. mc.... ....?(|
00000130  26 32 41 31 2b 72 61 6d  29 3d 26 43 32 0d 00 dc  |&2A1+ram)=&C2...|
00000140  09 2a 48 45 4c 50 0d 00  e6 05 e0 0d 00 f0 05 20  |.*HELP......... |
00000150  0d 00 fa 13 dd a4 61 73  73 65 6d 62 6c 65 28 72  |......assemble(r|
00000160  61 6d 29 0d 01 04 1d ea  20 74 6f 2c 6d 65 6d 6f  |am)..... to,memo|
00000170  72 79 2c 6c 65 6e 2c 70  61 73 73 2c 62 61 63 6b  |ry,len,pass,back|
00000180  0d 01 0e 0c 74 6f 3d 26  38 30 30 30 0d 01 18 10  |....to=&8000....|
00000190  6d 65 6d 6f 72 79 3d 26  35 46 30 30 0d 01 22 0b  |memory=&5F00..".|
000001a0  6c 65 6e 3d 26 32 30 0d  01 2c 14 e3 20 70 61 73  |len=&20..,.. pas|
000001b0  73 3d 30 20 b8 20 32 20  88 20 32 0d 01 36 0b 50  |s=0 . 2 . 2..6.P|
000001c0  25 3d 26 41 30 30 0d 01  40 05 5b 0d 01 4a 0c 4f  |%=&A00..@.[..J.O|
000001d0  50 54 20 70 61 73 73 0d  01 54 14 4c 44 41 23 6d  |PT pass..T.LDA#m|
000001e0  65 6d 6f 72 79 20 83 20  32 35 36 0d 01 5e 0a 53  |emory . 256..^.S|
000001f0  54 41 26 37 30 0d 01 68  14 4c 44 41 23 6d 65 6d  |TA&70..h.LDA#mem|
00000200  6f 72 79 20 81 20 32 35  36 0d 01 72 0a 53 54 41  |ory . 256..r.STA|
00000210  26 37 31 0d 01 7c 10 4c  44 41 23 74 6f 20 83 20  |&71..|.LDA#to . |
00000220  32 35 36 0d 01 86 0a 53  54 41 26 37 32 0d 01 90  |256....STA&72...|
00000230  10 4c 44 41 23 74 6f 20  81 20 32 35 36 0d 01 9a  |.LDA#to . 256...|
00000240  0a 53 54 41 26 37 33 0d  01 a4 0a 4c 44 41 26 46  |.STA&73....LDA&F|
00000250  34 0d 01 ae 07 50 48 41  0d 01 b8 0b 4c 44 41 23  |4....PHA....LDA#|
00000260  72 61 6d 0d 01 c2 0a 53  54 41 26 46 34 0d 01 cc  |ram....STA&F4...|
00000270  0c 53 54 41 26 46 45 33  30 0d 01 d6 09 4c 44 59  |.STA&FE30....LDY|
00000280  23 30 0d 01 e0 14 2e 62  61 63 6b 20 4c 44 41 28  |#0.....back LDA(|
00000290  26 37 30 29 2c 59 0d 01  ea 0e 53 54 41 28 26 37  |&70),Y....STA(&7|
000002a0  32 29 2c 59 0d 01 f4 07  49 4e 59 0d 01 fe 09 43  |2),Y....INY....C|
000002b0  50 59 23 30 0d 02 08 0c  42 4e 45 20 62 61 63 6b  |PY#0....BNE back|
000002c0  0d 02 12 0a 49 4e 43 26  37 31 0d 02 1c 0a 49 4e  |....INC&71....IN|
000002d0  43 26 37 33 0d 02 26 0a  4c 44 41 26 37 31 0d 02  |C&73..&.LDA&71..|
000002e0  30 1a 43 4d 50 23 6c 65  6e 2b 28 6d 65 6d 6f 72  |0.CMP#len+(memor|
000002f0  79 20 81 20 32 35 36 29  0d 02 3a 0c 42 4d 49 20  |y . 256)..:.BMI |
00000300  62 61 63 6b 0d 02 44 07  50 4c 41 0d 02 4e 0a 53  |back..D.PLA..N.S|
00000310  54 41 26 46 34 0d 02 58  0c 53 54 41 26 46 45 33  |TA&F4..X.STA&FE3|
00000320  30 0d 02 62 07 52 54 53  0d 02 6c 05 5d 0d 02 76  |0..b.RTS..l.]..v|
00000330  05 ed 0d 02 8a 0a 3a 3d  26 41 30 30 0d ff        |......:=&A00..|
0000033e