Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav » TURBO

TURBO

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 tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav
Filename: TURBO
Read OK:
File size: 0233 bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM Speed up
   20REM by Stephen Bennett
   30REM (c) Electron User
   40MODE6
   50*FX13,4
   60FORpass=0 TO 2 STEP 2
   70P%=&900
   80[OPTpass 
   90SEI
  100LDA#int MOD 256:STA&220
  110LDA#int DIV 256:STA&221
  120CLI
  130RTS
  140.int
  150CMP#4:BEQhere
  160RTS
  170.here
  180PHA:PHP:TXA:PHA:TYA:PHA 
  190LDA#129:LDX#230:LDY#&FF:JSR&FFF4
  200TYA
  210BEQnext1
  220LDA#178:LDX#0:LDY#0:JSR&FFF4
  230LDA#&B0:STA&FE07:JMPout 
  240.next1
  250LDA#129:LDX#134:LDY#&FF:JSR&FFF4
  260TYA
  270BEQout
  280LDA&282:STA&FE07 
  290LDA#178:LDX#&FF:LDY#0:JSR&FFF4
  300.out PLA:TAY:PLA:TAX:PLP:PLA:RTS
  310]:NEXT:CALL&900:*FX14,4
  320*FX4,2

� Speed up
� by Stephen Bennett
� (c) Electron User
(�6
2*FX13,4
<�pass=0 � 2 � 2
FP%=&900
P
[OPTpass 
ZSEI
dLDA#int � 256:STA&220
nLDA#int � 256:STA&221
xCLI
�RTS
�.int
�CMP#4:BEQhere
�RTS
�	.here
�PHA:PHP:TXA:PHA:TYA:PHA 
�$LDA#129:LDX#230:LDY#&FF:JSR&FFF4
�TYA
�BEQnext1
� LDA#178:LDX#0:LDY#0:JSR&FFF4
�LDA#&B0:STA&FE07:JMPout 
�
.next1
�$LDA#129:LDX#134:LDY#&FF:JSR&FFF4
TYA

BEQout
LDA&282:STA&FE07 
""LDA#178:LDX#&FF:LDY#0:JSR&FFF4
,$.out PLA:TAY:PLA:TAX:PLP:PLA:RTS
6]:�:�&900:*FX14,4
@
*FX4,2
�
00000000  0d 00 0a 0e f4 20 53 70  65 65 64 20 75 70 0d 00  |..... Speed up..|
00000010  14 18 f4 20 62 79 20 53  74 65 70 68 65 6e 20 42  |... by Stephen B|
00000020  65 6e 6e 65 74 74 0d 00  1e 17 f4 20 28 63 29 20  |ennett..... (c) |
00000030  45 6c 65 63 74 72 6f 6e  20 55 73 65 72 0d 00 28  |Electron User..(|
00000040  06 eb 36 0d 00 32 0b 2a  46 58 31 33 2c 34 0d 00  |..6..2.*FX13,4..|
00000050  3c 13 e3 70 61 73 73 3d  30 20 b8 20 32 20 88 20  |<..pass=0 . 2 . |
00000060  32 0d 00 46 0b 50 25 3d  26 39 30 30 0d 00 50 0d  |2..F.P%=&900..P.|
00000070  5b 4f 50 54 70 61 73 73  20 0d 00 5a 07 53 45 49  |[OPTpass ..Z.SEI|
00000080  0d 00 64 19 4c 44 41 23  69 6e 74 20 83 20 32 35  |..d.LDA#int . 25|
00000090  36 3a 53 54 41 26 32 32  30 0d 00 6e 19 4c 44 41  |6:STA&220..n.LDA|
000000a0  23 69 6e 74 20 81 20 32  35 36 3a 53 54 41 26 32  |#int . 256:STA&2|
000000b0  32 31 0d 00 78 07 43 4c  49 0d 00 82 07 52 54 53  |21..x.CLI....RTS|
000000c0  0d 00 8c 08 2e 69 6e 74  0d 00 96 11 43 4d 50 23  |.....int....CMP#|
000000d0  34 3a 42 45 51 68 65 72  65 0d 00 a0 07 52 54 53  |4:BEQhere....RTS|
000000e0  0d 00 aa 09 2e 68 65 72  65 0d 00 b4 1c 50 48 41  |.....here....PHA|
000000f0  3a 50 48 50 3a 54 58 41  3a 50 48 41 3a 54 59 41  |:PHP:TXA:PHA:TYA|
00000100  3a 50 48 41 20 0d 00 be  24 4c 44 41 23 31 32 39  |:PHA ...$LDA#129|
00000110  3a 4c 44 58 23 32 33 30  3a 4c 44 59 23 26 46 46  |:LDX#230:LDY#&FF|
00000120  3a 4a 53 52 26 46 46 46  34 0d 00 c8 07 54 59 41  |:JSR&FFF4....TYA|
00000130  0d 00 d2 0c 42 45 51 6e  65 78 74 31 0d 00 dc 20  |....BEQnext1... |
00000140  4c 44 41 23 31 37 38 3a  4c 44 58 23 30 3a 4c 44  |LDA#178:LDX#0:LD|
00000150  59 23 30 3a 4a 53 52 26  46 46 46 34 0d 00 e6 1c  |Y#0:JSR&FFF4....|
00000160  4c 44 41 23 26 42 30 3a  53 54 41 26 46 45 30 37  |LDA#&B0:STA&FE07|
00000170  3a 4a 4d 50 6f 75 74 20  0d 00 f0 0a 2e 6e 65 78  |:JMPout .....nex|
00000180  74 31 0d 00 fa 24 4c 44  41 23 31 32 39 3a 4c 44  |t1...$LDA#129:LD|
00000190  58 23 31 33 34 3a 4c 44  59 23 26 46 46 3a 4a 53  |X#134:LDY#&FF:JS|
000001a0  52 26 46 46 46 34 0d 01  04 07 54 59 41 0d 01 0e  |R&FFF4....TYA...|
000001b0  0a 42 45 51 6f 75 74 0d  01 18 15 4c 44 41 26 32  |.BEQout....LDA&2|
000001c0  38 32 3a 53 54 41 26 46  45 30 37 20 0d 01 22 22  |82:STA&FE07 ..""|
000001d0  4c 44 41 23 31 37 38 3a  4c 44 58 23 26 46 46 3a  |LDA#178:LDX#&FF:|
000001e0  4c 44 59 23 30 3a 4a 53  52 26 46 46 46 34 0d 01  |LDY#0:JSR&FFF4..|
000001f0  2c 24 2e 6f 75 74 20 50  4c 41 3a 54 41 59 3a 50  |,$.out PLA:TAY:P|
00000200  4c 41 3a 54 41 58 3a 50  4c 50 3a 50 4c 41 3a 52  |LA:TAX:PLP:PLA:R|
00000210  54 53 0d 01 36 15 5d 3a  ed 3a d6 26 39 30 30 3a  |TS..6.]:.:.&900:|
00000220  2a 46 58 31 34 2c 34 0d  01 40 0a 2a 46 58 34 2c  |*FX14,4..@.*FX4,|
00000230  32 0d ff                                          |2..|
00000233
TURBO.m0
TURBO.m1
TURBO.m2
TURBO.m4
TURBO.m5