Home » Personal collection » Acorn ADFS disks » Electron » Utilities_1.ADF » UTILITIES/ZERO
UTILITIES/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 » Utilities_1.ADF |
| Filename: | UTILITIES/ZERO |
| Read OK: | ✔ |
| File size: | 0117 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10 INPUT"Zero which bank",BANK 20 FORpass=0 TO 2 STEP 2:P%=&A00 30 [OPTpass 40 LDA&F4:PHA:LDA#15:STA&F4:STA&FE05:LDA#BANK:STA&F4:STA&FE05 50 LDA#0:STA&F6:LDA#&80:STA&F7 60 LDA#0:LDY#0:.loop STA(&F6),Y:INY:BNEloop:INC&F7:LDX&F7:CPX#&C0:BNEloop 70 PLA:STA&F4:STA&FE05:RTS:]:NEXT:CALL&A00
�"Zero which bank",BANK �pass=0 � 2 � 2:P%=&A00 [OPTpass (? LDA&F4:PHA:LDA#15:STA&F4:STA&FE05:LDA#BANK:STA&F4:STA&FE05 2 LDA#0:STA&F6:LDA#&80:STA&F7 <K LDA#0:LDY#0:.loop STA(&F6),Y:INY:BNEloop:INC&F7:LDX&F7:CPX#&C0:BNEloop F& PLA:STA&F4:STA&FE05:RTS:]:�:�&A00 �
00000000 0d 00 0a 1c 20 e8 22 5a 65 72 6f 20 77 68 69 63 |.... ."Zero whic| 00000010 68 20 62 61 6e 6b 22 2c 42 41 4e 4b 0d 00 14 1c |h bank",BANK....| 00000020 20 e3 70 61 73 73 3d 30 20 b8 20 32 20 88 20 32 | .pass=0 . 2 . 2| 00000030 3a 50 25 3d 26 41 30 30 0d 00 1e 0d 20 5b 4f 50 |:P%=&A00.... [OP| 00000040 54 70 61 73 73 0d 00 28 3f 20 4c 44 41 26 46 34 |Tpass..(? LDA&F4| 00000050 3a 50 48 41 3a 4c 44 41 23 31 35 3a 53 54 41 26 |:PHA:LDA#15:STA&| 00000060 46 34 3a 53 54 41 26 46 45 30 35 3a 4c 44 41 23 |F4:STA&FE05:LDA#| 00000070 42 41 4e 4b 3a 53 54 41 26 46 34 3a 53 54 41 26 |BANK:STA&F4:STA&| 00000080 46 45 30 35 0d 00 32 20 20 4c 44 41 23 30 3a 53 |FE05..2 LDA#0:S| 00000090 54 41 26 46 36 3a 4c 44 41 23 26 38 30 3a 53 54 |TA&F6:LDA#&80:ST| 000000a0 41 26 46 37 0d 00 3c 4b 20 4c 44 41 23 30 3a 4c |A&F7..<K LDA#0:L| 000000b0 44 59 23 30 3a 2e 6c 6f 6f 70 20 53 54 41 28 26 |DY#0:.loop STA(&| 000000c0 46 36 29 2c 59 3a 49 4e 59 3a 42 4e 45 6c 6f 6f |F6),Y:INY:BNEloo| 000000d0 70 3a 49 4e 43 26 46 37 3a 4c 44 58 26 46 37 3a |p:INC&F7:LDX&F7:| 000000e0 43 50 58 23 26 43 30 3a 42 4e 45 6c 6f 6f 70 0d |CPX#&C0:BNEloop.| 000000f0 00 46 26 20 50 4c 41 3a 53 54 41 26 46 34 3a 53 |.F& PLA:STA&F4:S| 00000100 54 41 26 46 45 30 35 3a 52 54 53 3a 5d 3a ed 3a |TA&FE05:RTS:]:.:| 00000110 d6 26 41 30 30 0d ff |.&A00..| 00000117
.