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