,� Link to move Eclipse sections into SWR
2� (C) All Eclipse programs Allan Kelly 25/1/87
&� Run each Eclipse program in turn
(� They will create mc files
2)� This program loads all the mc files
<&� and moves them into Sideways RAM
A 
B�=&5000
F 
P�
Z+� "Which socket is Sideways RAM in?"ram
d� ram>=0 � ram<16
nmc=�assemble(ram)
x 
�*LOAD E.ECSEC1
�*LOAD E.ECSEC2
�*LOAD E.ECSEC3
�*LOAD E.ECSEC4
�*LOAD E.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  1e 26 f4 20 52 75 6e 20  65 61 63 68 20 45 63 6c  |.&. Run each Ecl|
00000070  69 70 73 65 20 70 72 6f  67 72 61 6d 20 69 6e 20  |ipse program in |
00000080  74 75 72 6e 0d 00 28 1f  f4 20 54 68 65 79 20 77  |turn..(.. They w|
00000090  69 6c 6c 20 63 72 65 61  74 65 20 6d 63 20 66 69  |ill create mc fi|
000000a0  6c 65 73 0d 00 32 29 f4  20 54 68 69 73 20 70 72  |les..2). This pr|
000000b0  6f 67 72 61 6d 20 6c 6f  61 64 73 20 61 6c 6c 20  |ogram loads all |
000000c0  74 68 65 20 6d 63 20 66  69 6c 65 73 0d 00 3c 26  |the mc files..<&|
000000d0  f4 20 61 6e 64 20 6d 6f  76 65 73 20 74 68 65 6d  |. and moves them|
000000e0  20 69 6e 74 6f 20 53 69  64 65 77 61 79 73 20 52  | into Sideways R|
000000f0  41 4d 0d 00 41 05 20 0d  00 42 0b d3 3d 26 35 30  |AM..A. ..B..=&50|
00000100  30 30 0d 00 46 05 20 0d  00 50 05 f5 0d 00 5a 2b  |00..F. ..P....Z+|
00000110  e8 20 22 57 68 69 63 68  20 73 6f 63 6b 65 74 20  |. "Which socket |
00000120  69 73 20 53 69 64 65 77  61 79 73 20 52 41 4d 20  |is Sideways RAM |
00000130  69 6e 3f 22 72 61 6d 0d  00 64 15 fd 20 72 61 6d  |in?"ram..d.. ram|
00000140  3e 3d 30 20 80 20 72 61  6d 3c 31 36 0d 00 6e 15  |>=0 . ram<16..n.|
00000150  6d 63 3d a4 61 73 73 65  6d 62 6c 65 28 72 61 6d  |mc=.assemble(ram|
00000160  29 0d 00 78 05 20 0d 00  82 12 2a 4c 4f 41 44 20  |)..x. ....*LOAD |
00000170  45 2e 45 43 53 45 43 31  0d 00 8c 12 2a 4c 4f 41  |E.ECSEC1....*LOA|
00000180  44 20 45 2e 45 43 53 45  43 32 0d 00 96 12 2a 4c  |D E.ECSEC2....*L|
00000190  4f 41 44 20 45 2e 45 43  53 45 43 33 0d 00 a0 12  |OAD E.ECSEC3....|
000001a0  2a 4c 4f 41 44 20 45 2e  45 43 53 45 43 34 0d 00  |*LOAD E.ECSEC4..|
000001b0  aa 12 2a 4c 4f 41 44 20  45 2e 45 43 53 45 43 35  |..*LOAD E.ECSEC5|
000001c0  0d 00 b4 05 20 0d 00 be  08 d6 20 6d 63 0d 00 c8  |.... ..... mc...|
000001d0  05 20 0d 00 d2 13 3f 28  26 32 41 31 2b 72 61 6d  |. ....?(&2A1+ram|
000001e0  29 3d 26 43 32 0d 00 dc  09 2a 48 45 4c 50 0d 00  |)=&C2....*HELP..|
000001f0  e6 05 e0 0d 00 f0 05 20  0d 00 fa 13 dd a4 61 73  |....... ......as|
00000200  73 65 6d 62 6c 65 28 72  61 6d 29 0d 01 04 1d ea  |semble(ram).....|
00000210  20 74 6f 2c 6d 65 6d 6f  72 79 2c 6c 65 6e 2c 70  | to,memory,len,p|
00000220  61 73 73 2c 62 61 63 6b  0d 01 0e 0c 74 6f 3d 26  |ass,back....to=&|
00000230  38 30 30 30 0d 01 18 10  6d 65 6d 6f 72 79 3d 26  |8000....memory=&|
00000240  35 46 30 30 0d 01 22 0b  6c 65 6e 3d 26 32 30 0d  |5F00..".len=&20.|
00000250  01 2c 14 e3 20 70 61 73  73 3d 30 20 b8 20 32 20  |.,.. pass=0 . 2 |
00000260  88 20 32 0d 01 36 0b 50  25 3d 26 41 30 30 0d 01  |. 2..6.P%=&A00..|
00000270  40 05 5b 0d 01 4a 0c 4f  50 54 20 70 61 73 73 0d  |@.[..J.OPT pass.|
00000280  01 54 14 4c 44 41 23 6d  65 6d 6f 72 79 20 83 20  |.T.LDA#memory . |
00000290  32 35 36 0d 01 5e 0a 53  54 41 26 37 30 0d 01 68  |256..^.STA&70..h|
000002a0  14 4c 44 41 23 6d 65 6d  6f 72 79 20 81 20 32 35  |.LDA#memory . 25|
000002b0  36 0d 01 72 0a 53 54 41  26 37 31 0d 01 7c 10 4c  |6..r.STA&71..|.L|
000002c0  44 41 23 74 6f 20 83 20  32 35 36 0d 01 86 0a 53  |DA#to . 256....S|
000002d0  54 41 26 37 32 0d 01 90  10 4c 44 41 23 74 6f 20  |TA&72....LDA#to |
000002e0  81 20 32 35 36 0d 01 9a  0a 53 54 41 26 37 33 0d  |. 256....STA&73.|
000002f0  01 a4 0a 4c 44 41 26 46  34 0d 01 ae 07 50 48 41  |...LDA&F4....PHA|
00000300  0d 01 b8 0b 4c 44 41 23  72 61 6d 0d 01 c2 0a 53  |....LDA#ram....S|
00000310  54 41 26 46 34 0d 01 cc  0c 53 54 41 26 46 45 33  |TA&F4....STA&FE3|
00000320  30 0d 01 d6 09 4c 44 59  23 30 0d 01 e0 14 2e 62  |0....LDY#0.....b|
00000330  61 63 6b 20 4c 44 41 28  26 37 30 29 2c 59 0d 01  |ack LDA(&70),Y..|
00000340  ea 0e 53 54 41 28 26 37  32 29 2c 59 0d 01 f4 07  |..STA(&72),Y....|
00000350  49 4e 59 0d 01 fe 09 43  50 59 23 30 0d 02 08 0c  |INY....CPY#0....|
00000360  42 4e 45 20 62 61 63 6b  0d 02 12 0a 49 4e 43 26  |BNE back....INC&|
00000370  37 31 0d 02 1c 0a 49 4e  43 26 37 33 0d 02 26 0a  |71....INC&73..&.|
00000380  4c 44 41 26 37 31 0d 02  30 1a 43 4d 50 23 6c 65  |LDA&71..0.CMP#le|
00000390  6e 2b 28 6d 65 6d 6f 72  79 20 81 20 32 35 36 29  |n+(memory . 256)|
000003a0  0d 02 3a 0c 42 4d 49 20  62 61 63 6b 0d 02 44 07  |..:.BMI back..D.|
000003b0  50 4c 41 0d 02 4e 0a 53  54 41 26 46 34 0d 02 58  |PLA..N.STA&F4..X|
000003c0  0c 53 54 41 26 46 45 33  30 0d 02 62 07 52 54 53  |.STA&FE30..b.RTS|
000003d0  0d 02 6c 05 5d 0d 02 76  05 ed 0d 02 80 05 20 0d  |..l.]..v...... .|
000003e0  02 8a 0a 3a 3d 26 41 30  30 0d ff                 |...:=&A00..|
000003eb