Home » Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » E00/Zero

E00/Zero

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 » PRES_E00.ADF
Filename: E00/Zero
Read OK:
File size: 026D bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
    5 *FX210,1
   10 FORpass=0 TO 2 STEP 2:P%=&B00:[OPTpass
   20 LDA#0:STA&FCDC:STA&FCDE:LDA&F4:PHA:LDA#15:STA&F4:STA&FE05:LDX#2:SEI:.test TXA:STA&F4:STA&FE05:LDA#0:LDA&8800
   30 TAY:INC&8800:CPY&8800:BNEend:DEX:DEX:BPLtest:LDX#&FF:STA&70:JMPend2
   40 .end STX&70:DEC&8800
   50 TXA:CLC:ADC#&A0:STA&72:LDA#2:STA&73:LDA#0:LDY#0:STA(&72),Y:INC&72:STA(&72),Y
 1050 LDA#2:STA&71
 1060 .zero LDA#0:STA&F6:LDA#&80:STA&F7
 1070 LDA#0:LDY#0:.loop STA(&F6),Y:INY:BNEloop:INC&F7:LDX&F7:CPX#&C0:BNEloop:DEC&71:BEQend2:INC&70:LDA&70:STA&F4:STA&FE05:JMPzero
 1080 .end2 PLA:STA&F4:STA&FE05:CLI:RTS:]:NEXT:CALL&B00:IF ?&70=&FF THEN PRINT"No sideways RAM!":END
 1100 CHAIN"BOOT"

 *FX210,1

% �pass=0 � 2 � 2:P%=&B00:[OPTpass
q LDA#0:STA&FCDC:STA&FCDE:LDA&F4:PHA:LDA#15:STA&F4:STA&FE05:LDX#2:SEI:.test TXA:STA&F4:STA&FE05:LDA#0:LDA&8800
H TAY:INC&8800:CPY&8800:BNEend:DEX:DEX:BPLtest:LDX#&FF:STA&70:JMPend2
( .end STX&70:DEC&8800
2Q TXA:CLC:ADC#&A0:STA&72:LDA#2:STA&73:LDA#0:LDY#0:STA(&72),Y:INC&72:STA(&72),Y
 LDA#2:STA&71
$& .zero LDA#0:STA&F6:LDA#&80:STA&F7
.� LDA#0:LDY#0:.loop STA(&F6),Y:INY:BNEloop:INC&F7:LDX&F7:CPX#&C0:BNEloop:DEC&71:BEQend2:INC&70:LDA&70:STA&F4:STA&FE05:JMPzero
8S .end2 PLA:STA&F4:STA&FE05:CLI:RTS:]:�:�&B00:� ?&70=&FF � �"No sideways RAM!":�
L �"BOOT"
�
00000000  0d 00 05 0d 20 2a 46 58  32 31 30 2c 31 0d 00 0a  |.... *FX210,1...|
00000010  25 20 e3 70 61 73 73 3d  30 20 b8 20 32 20 88 20  |% .pass=0 . 2 . |
00000020  32 3a 50 25 3d 26 42 30  30 3a 5b 4f 50 54 70 61  |2:P%=&B00:[OPTpa|
00000030  73 73 0d 00 14 71 20 4c  44 41 23 30 3a 53 54 41  |ss...q LDA#0:STA|
00000040  26 46 43 44 43 3a 53 54  41 26 46 43 44 45 3a 4c  |&FCDC:STA&FCDE:L|
00000050  44 41 26 46 34 3a 50 48  41 3a 4c 44 41 23 31 35  |DA&F4:PHA:LDA#15|
00000060  3a 53 54 41 26 46 34 3a  53 54 41 26 46 45 30 35  |:STA&F4:STA&FE05|
00000070  3a 4c 44 58 23 32 3a 53  45 49 3a 2e 74 65 73 74  |:LDX#2:SEI:.test|
00000080  20 54 58 41 3a 53 54 41  26 46 34 3a 53 54 41 26  | TXA:STA&F4:STA&|
00000090  46 45 30 35 3a 4c 44 41  23 30 3a 4c 44 41 26 38  |FE05:LDA#0:LDA&8|
000000a0  38 30 30 0d 00 1e 48 20  54 41 59 3a 49 4e 43 26  |800...H TAY:INC&|
000000b0  38 38 30 30 3a 43 50 59  26 38 38 30 30 3a 42 4e  |8800:CPY&8800:BN|
000000c0  45 65 6e 64 3a 44 45 58  3a 44 45 58 3a 42 50 4c  |Eend:DEX:DEX:BPL|
000000d0  74 65 73 74 3a 4c 44 58  23 26 46 46 3a 53 54 41  |test:LDX#&FF:STA|
000000e0  26 37 30 3a 4a 4d 50 65  6e 64 32 0d 00 28 19 20  |&70:JMPend2..(. |
000000f0  2e 65 6e 64 20 53 54 58  26 37 30 3a 44 45 43 26  |.end STX&70:DEC&|
00000100  38 38 30 30 0d 00 32 51  20 54 58 41 3a 43 4c 43  |8800..2Q TXA:CLC|
00000110  3a 41 44 43 23 26 41 30  3a 53 54 41 26 37 32 3a  |:ADC#&A0:STA&72:|
00000120  4c 44 41 23 32 3a 53 54  41 26 37 33 3a 4c 44 41  |LDA#2:STA&73:LDA|
00000130  23 30 3a 4c 44 59 23 30  3a 53 54 41 28 26 37 32  |#0:LDY#0:STA(&72|
00000140  29 2c 59 3a 49 4e 43 26  37 32 3a 53 54 41 28 26  |),Y:INC&72:STA(&|
00000150  37 32 29 2c 59 0d 04 1a  11 20 4c 44 41 23 32 3a  |72),Y.... LDA#2:|
00000160  53 54 41 26 37 31 0d 04  24 26 20 2e 7a 65 72 6f  |STA&71..$& .zero|
00000170  20 4c 44 41 23 30 3a 53  54 41 26 46 36 3a 4c 44  | LDA#0:STA&F6:LD|
00000180  41 23 26 38 30 3a 53 54  41 26 46 37 0d 04 2e 80  |A#&80:STA&F7....|
00000190  20 4c 44 41 23 30 3a 4c  44 59 23 30 3a 2e 6c 6f  | LDA#0:LDY#0:.lo|
000001a0  6f 70 20 53 54 41 28 26  46 36 29 2c 59 3a 49 4e  |op STA(&F6),Y:IN|
000001b0  59 3a 42 4e 45 6c 6f 6f  70 3a 49 4e 43 26 46 37  |Y:BNEloop:INC&F7|
000001c0  3a 4c 44 58 26 46 37 3a  43 50 58 23 26 43 30 3a  |:LDX&F7:CPX#&C0:|
000001d0  42 4e 45 6c 6f 6f 70 3a  44 45 43 26 37 31 3a 42  |BNEloop:DEC&71:B|
000001e0  45 51 65 6e 64 32 3a 49  4e 43 26 37 30 3a 4c 44  |EQend2:INC&70:LD|
000001f0  41 26 37 30 3a 53 54 41  26 46 34 3a 53 54 41 26  |A&70:STA&F4:STA&|
00000200  46 45 30 35 3a 4a 4d 50  7a 65 72 6f 0d 04 38 53  |FE05:JMPzero..8S|
00000210  20 2e 65 6e 64 32 20 50  4c 41 3a 53 54 41 26 46  | .end2 PLA:STA&F|
00000220  34 3a 53 54 41 26 46 45  30 35 3a 43 4c 49 3a 52  |4:STA&FE05:CLI:R|
00000230  54 53 3a 5d 3a ed 3a d6  26 42 30 30 3a e7 20 3f  |TS:]:.:.&B00:. ?|
00000240  26 37 30 3d 26 46 46 20  8c 20 f1 22 4e 6f 20 73  |&70=&FF . ."No s|
00000250  69 64 65 77 61 79 73 20  52 41 4d 21 22 3a e0 0d  |ideways RAM!":..|
00000260  04 4c 0c 20 d7 22 42 4f  4f 54 22 0d ff           |.L. ."BOOT"..|
0000026d
E00/Zero.m0
E00/Zero.m1
E00/Zero.m2
E00/Zero.m4
E00/Zero.m5