Home » Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TRAMtest
TRAMtest
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 » Finished_programs.ADF |
| Filename: | TRAMtest |
| Read OK: | ✔ |
| File size: | 01D4 bytes |
| Load address: | 0000 |
| Exec address: | FFFFFFFF |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » TRAMtest
- Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TRAMtest
- Personal collection » Acorn hard disk » zipped_disks » elk03 » finished/TRAMtest
File contents
>LIST
1 FORpass=0 TO 2 STEP 2:P%=&B00:[OPTpass
2 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
3 TAY:INC&8800:CPY&8800:BNEend:DEX:DEX:BPLtest:LDX#&FF:STA&70:JMPend2
4 .end STX&70:DEC&8800
5 TXA:CLC:ADC#&A0:STA&72:LDA#2:STA&73:LDA#0:LDY#0:STA(&72),Y:INC&72:STA(&72),Y
10000 .end2 PLA:STA&F4:STA&FE05:CLI:RTS:]:NEXT:CALL&B00:IF ?&70=&FF THEN PRINT"No sideways RAM!":END
>*SPOOL
00000000 3e 4c 49 53 54 06 0a 0d 20 20 20 20 31 20 46 4f |>LIST... 1 FO| 00000010 52 70 61 73 73 3d 30 20 54 4f 20 32 20 53 54 45 |Rpass=0 TO 2 STE| 00000020 50 20 32 3a 50 25 3d 26 42 30 30 3a 5b 4f 50 54 |P 2:P%=&B00:[OPT| 00000030 70 61 73 73 0a 0d 20 20 20 20 32 20 4c 44 41 23 |pass.. 2 LDA#| 00000040 30 3a 53 54 41 26 46 43 44 43 3a 53 54 41 26 46 |0:STA&FCDC:STA&F| 00000050 43 44 45 3a 4c 44 41 26 46 34 3a 50 48 41 3a 4c |CDE:LDA&F4:PHA:L| 00000060 44 41 23 31 35 3a 53 54 41 26 46 34 3a 53 54 41 |DA#15:STA&F4:STA| 00000070 26 46 45 30 35 3a 4c 44 58 23 32 3a 53 45 49 3a |&FE05:LDX#2:SEI:| 00000080 2e 74 65 73 74 20 54 58 41 3a 53 54 41 26 46 34 |.test TXA:STA&F4| 00000090 3a 53 54 41 26 46 45 30 35 3a 4c 44 41 23 30 3a |:STA&FE05:LDA#0:| 000000a0 4c 44 41 26 38 38 30 30 0a 0d 20 20 20 20 33 20 |LDA&8800.. 3 | 000000b0 54 41 59 3a 49 4e 43 26 38 38 30 30 3a 43 50 59 |TAY:INC&8800:CPY| 000000c0 26 38 38 30 30 3a 42 4e 45 65 6e 64 3a 44 45 58 |&8800:BNEend:DEX| 000000d0 3a 44 45 58 3a 42 50 4c 74 65 73 74 3a 4c 44 58 |:DEX:BPLtest:LDX| 000000e0 23 26 46 46 3a 53 54 41 26 37 30 3a 4a 4d 50 65 |#&FF:STA&70:JMPe| 000000f0 6e 64 32 0a 0d 20 20 20 20 34 20 2e 65 6e 64 20 |nd2.. 4 .end | 00000100 53 54 58 26 37 30 3a 44 45 43 26 38 38 30 30 0a |STX&70:DEC&8800.| 00000110 0d 20 20 20 20 35 20 54 58 41 3a 43 4c 43 3a 41 |. 5 TXA:CLC:A| 00000120 44 43 23 26 41 30 3a 53 54 41 26 37 32 3a 4c 44 |DC#&A0:STA&72:LD| 00000130 41 23 32 3a 53 54 41 26 37 33 3a 4c 44 41 23 30 |A#2:STA&73:LDA#0| 00000140 3a 4c 44 59 23 30 3a 53 54 41 28 26 37 32 29 2c |:LDY#0:STA(&72),| 00000150 59 3a 49 4e 43 26 37 32 3a 53 54 41 28 26 37 32 |Y:INC&72:STA(&72| 00000160 29 2c 59 0a 0d 31 30 30 30 30 20 2e 65 6e 64 32 |),Y..10000 .end2| 00000170 20 50 4c 41 3a 53 54 41 26 46 34 3a 53 54 41 26 | PLA:STA&F4:STA&| 00000180 46 45 30 35 3a 43 4c 49 3a 52 54 53 3a 5d 3a 4e |FE05:CLI:RTS:]:N| 00000190 45 58 54 3a 43 41 4c 4c 26 42 30 30 3a 49 46 20 |EXT:CALL&B00:IF | 000001a0 3f 26 37 30 3d 26 46 46 20 54 48 45 4e 20 50 52 |?&70=&FF THEN PR| 000001b0 49 4e 54 22 4e 6f 20 73 69 64 65 77 61 79 73 20 |INT"No sideways | 000001c0 52 41 4d 21 22 3a 45 4e 44 0a 0d 3e 2a 53 50 4f |RAM!":END..>*SPO| 000001d0 4f 4c 0a 0d |OL..| 000001d4
.