Home » Personal collection » Acorn ADFS disks » Electron » MTF_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 » MTF_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:

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
TRAMtest.m0
TRAMtest.m1
TRAMtest.m2
TRAMtest.m4
TRAMtest.m5