� 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