Home » Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » Morning
Morning
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF |
| Filename: | Morning |
| Read OK: | ✔ |
| File size: | 014E bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Electrolysis.ADF » Morning
- Personal collection » Acorn hard disk » zipped_disks » elk06 » electrolys/Morning
File contents
5 REM Loader for MORNINGTON CRESCENT (version for 32k Electron with 16k sideways RAM) 10 HIMEM=&4000 20 ADD%=&4000 30 RESTORE 1000 40 REPEAT 50 READ S$ 60 $ADD%=S$ 70 ADD%=ADD%+LEN(S$)+1 80 UNTIL S$="X" 90 ADD%=&5000 100 REPEAT 110 READ N% 120 ?ADD%=N% DIV256:?(ADD%+1)=N% MOD256 130 ADD%=ADD%+2 140 UNTIL N%=32768 150 FORpass=0 TO 2 STEP 2:P%=&900:[OPTpass
a � Loader for MORNINGTON CRESCENT (version for 32k Electron with 16k sideways RAM)
�=&4000
ADD%=&4000
� �dhC
( �
2 � S$
<
$ADD%=S$
F ADD%=ADD%+�(S$)+1
P
� S$="X"
Z ADD%=&5000
d �
n � N%
x$ ?ADD%=N% �256:?(ADD%+1)=N% �256
� ADD%=ADD%+2
� � N%=32768
�% �pass=0 � 2 � 2:P%=&900:[OPTpass
� 00000000 0d 00 05 61 20 f4 20 4c 6f 61 64 65 72 20 66 6f |...a . Loader fo| 00000010 72 20 4d 4f 52 4e 49 4e 47 54 4f 4e 20 43 52 45 |r MORNINGTON CRE| 00000020 53 43 45 4e 54 20 20 20 20 20 20 28 76 65 72 73 |SCENT (vers| 00000030 69 6f 6e 20 66 6f 72 20 33 32 6b 20 45 6c 65 63 |ion for 32k Elec| 00000040 74 72 6f 6e 20 77 69 74 68 20 31 36 6b 20 20 20 |tron with 16k | 00000050 20 20 20 20 73 69 64 65 77 61 79 73 20 52 41 4d | sideways RAM| 00000060 29 0d 00 0a 0c 20 d3 3d 26 34 30 30 30 0d 00 14 |).... .=&4000...| 00000070 0f 20 41 44 44 25 3d 26 34 30 30 30 0d 00 1e 0b |. ADD%=&4000....| 00000080 20 f7 20 8d 64 68 43 0d 00 28 06 20 f5 0d 00 32 | . .dhC..(. ...2| 00000090 09 20 f3 20 53 24 0d 00 3c 0d 20 24 41 44 44 25 |. . S$..<. $ADD%| 000000a0 3d 53 24 0d 00 46 16 20 41 44 44 25 3d 41 44 44 |=S$..F. ADD%=ADD| 000000b0 25 2b a9 28 53 24 29 2b 31 0d 00 50 0d 20 fd 20 |%+.(S$)+1..P. . | 000000c0 53 24 3d 22 58 22 0d 00 5a 0f 20 41 44 44 25 3d |S$="X"..Z. ADD%=| 000000d0 26 35 30 30 30 0d 00 64 06 20 f5 0d 00 6e 09 20 |&5000..d. ...n. | 000000e0 f3 20 4e 25 0d 00 78 24 20 3f 41 44 44 25 3d 4e |. N%..x$ ?ADD%=N| 000000f0 25 20 81 32 35 36 3a 3f 28 41 44 44 25 2b 31 29 |% .256:?(ADD%+1)| 00000100 3d 4e 25 20 83 32 35 36 0d 00 82 10 20 41 44 44 |=N% .256.... ADD| 00000110 25 3d 41 44 44 25 2b 32 0d 00 8c 0f 20 fd 20 4e |%=ADD%+2.... . N| 00000120 25 3d 33 32 37 36 38 0d 00 96 25 20 e3 70 61 73 |%=32768...% .pas| 00000130 73 3d 30 20 b8 20 32 20 88 20 32 3a 50 25 3d 26 |s=0 . 2 . 2:P%=&| 00000140 39 30 30 3a 5b 4f 50 54 70 61 73 73 0d ff |900:[OPTpass..| 0000014e
.