� Electron Speed-up 1
� by Tony Oakden
� (c) The Micro User


�assemble
2A%=163:X%=128:Y%=1:�&FFF4
F�setint
P�1
Z�=0
n
�triangle
�)�4,20);"NORMAL MODE ";�/100;" SECS" 
��
�*
�� �triangle
�	� 3,1
�� A=0 � 1023 � 32
�
� 640-A,0
�
� 640+A,0
�� 85,640,A
��
��
�*
�� �assemble 
�� A=0 � 2 � 2
�<� ASSEMBLE CODE INTO STORAGE AREA FOR ENVELOPES 5 TO 16 

P%=&900

[

	OPT A

+\REDIRECT �ERRUPT VECTORS � OUR ROUTINE

".setint

,SEI

6LDA&204:STAoldvector

@LDA&205:STAoldvector+1

JLDA#interrupt � 256:STA&204

^LDA#interrupt � 256:STA&205

rCLI

|RTS

�:

�.interrupt

�\� REGISTER �UES

�LDA&FC:PHA:TXA:PHA:TYA:PHA

�"\CHECK � SEE � �ERUPT IS Vsync

�LDA&FE00:�#4:BEQrtc

�\BLANK PALLET

�LDA#&FF:STA&FE08:STA&FE09

�	.exit

�\� REGISTER �UES 

�PLA:TAY:PLA:TAX:PLA:STA&FC

�JMP(oldvector)

�:

�.rtc

�!\CHECK � SEE � �ERUPT WAS RTC

�LDA&FE00:�#8:BEQexit

�\RESET PALLET 

�LDA#&34:STA&FE08

�LDA#&35:STA&FE09

�JMPexit

�.oldvector:EQUW0
]
� 
�
�

00000000  0d 00 01 19 f4 20 45 6c  65 63 74 72 6f 6e 20 53  |..... Electron S|
00000010  70 65 65 64 2d 75 70 20  31 0d 00 02 14 f4 20 62  |peed-up 1..... b|
00000020  79 20 54 6f 6e 79 20 4f  61 6b 64 65 6e 0d 00 03  |y Tony Oakden...|
00000030  18 f4 20 28 63 29 20 54  68 65 20 4d 69 63 72 6f  |.. (c) The Micro|
00000040  20 55 73 65 72 0d 00 0a  0d f2 61 73 73 65 6d 62  | User.....assemb|
00000050  6c 65 0d 00 32 1d 41 25  3d 31 36 33 3a 58 25 3d  |le..2.A%=163:X%=|
00000060  31 32 38 3a 59 25 3d 31  3a d6 26 46 46 46 34 0d  |128:Y%=1:.&FFF4.|
00000070  00 46 0b d6 73 65 74 69  6e 74 0d 00 50 06 eb 31  |.F..setint..P..1|
00000080  0d 00 5a 07 d1 3d 30 0d  00 6e 0d f2 74 72 69 61  |..Z..=0..n..tria|
00000090  6e 67 6c 65 0d 00 96 29  f1 8a 34 2c 32 30 29 3b  |ngle...)..4,20);|
000000a0  22 4e 4f 52 4d 41 4c 20  4d 4f 44 45 20 22 3b 91  |"NORMAL MODE ";.|
000000b0  2f 31 30 30 3b 22 20 53  45 43 53 22 20 0d 00 a0  |/100;" SECS" ...|
000000c0  05 fa 0d 00 aa 05 2a 0d  00 b4 0f dd 20 f2 74 72  |......*..... .tr|
000000d0  69 61 6e 67 6c 65 0d 00  b5 09 e6 20 33 2c 31 0d  |iangle..... 3,1.|
000000e0  00 b6 15 e3 20 41 3d 30  20 b8 20 31 30 32 33 20  |.... A=0 . 1023 |
000000f0  88 20 33 32 0d 00 b7 0d  ec 20 36 34 30 2d 41 2c  |. 32..... 640-A,|
00000100  30 0d 00 b8 0d ec 20 36  34 30 2b 41 2c 30 0d 00  |0..... 640+A,0..|
00000110  b9 0e f0 20 38 35 2c 36  34 30 2c 41 0d 00 ba 05  |... 85,640,A....|
00000120  ed 0d 00 dc 05 e1 0d 00  e6 05 2a 0d 00 f0 10 dd  |..........*.....|
00000130  20 f2 61 73 73 65 6d 62  6c 65 20 0d 00 fa 11 e3  | .assemble .....|
00000140  20 41 3d 30 20 b8 20 32  20 88 20 32 0d 00 ff 3c  | A=0 . 2 . 2...<|
00000150  f4 20 41 53 53 45 4d 42  4c 45 20 43 4f 44 45 20  |. ASSEMBLE CODE |
00000160  49 4e 54 4f 20 53 54 4f  52 41 47 45 20 41 52 45  |INTO STORAGE ARE|
00000170  41 20 46 4f 52 20 45 4e  56 45 4c 4f 50 45 53 20  |A FOR ENVELOPES |
00000180  35 20 54 4f 20 31 36 20  0d 01 04 0b 50 25 3d 26  |5 TO 16 ....P%=&|
00000190  39 30 30 0d 01 0e 05 5b  0d 01 18 09 4f 50 54 20  |900....[....OPT |
000001a0  41 0d 01 1d 2b 5c 52 45  44 49 52 45 43 54 20 a8  |A...+\REDIRECT .|
000001b0  45 52 52 55 50 54 20 56  45 43 54 4f 52 53 20 b8  |ERRUPT VECTORS .|
000001c0  20 4f 55 52 20 52 4f 55  54 49 4e 45 0d 01 22 0b  | OUR ROUTINE..".|
000001d0  2e 73 65 74 69 6e 74 0d  01 2c 07 53 45 49 0d 01  |.setint..,.SEI..|
000001e0  36 18 4c 44 41 26 32 30  34 3a 53 54 41 6f 6c 64  |6.LDA&204:STAold|
000001f0  76 65 63 74 6f 72 0d 01  40 1a 4c 44 41 26 32 30  |vector..@.LDA&20|
00000200  35 3a 53 54 41 6f 6c 64  76 65 63 74 6f 72 2b 31  |5:STAoldvector+1|
00000210  0d 01 4a 1f 4c 44 41 23  69 6e 74 65 72 72 75 70  |..J.LDA#interrup|
00000220  74 20 83 20 32 35 36 3a  53 54 41 26 32 30 34 0d  |t . 256:STA&204.|
00000230  01 5e 1f 4c 44 41 23 69  6e 74 65 72 72 75 70 74  |.^.LDA#interrupt|
00000240  20 81 20 32 35 36 3a 53  54 41 26 32 30 35 0d 01  | . 256:STA&205..|
00000250  72 07 43 4c 49 0d 01 7c  07 52 54 53 0d 01 86 05  |r.CLI..|.RTS....|
00000260  3a 0d 01 90 0e 2e 69 6e  74 65 72 72 75 70 74 0d  |:.....interrupt.|
00000270  01 95 14 5c cd 20 52 45  47 49 53 54 45 52 20 bb  |...\. REGISTER .|
00000280  55 45 53 0d 01 9a 1e 4c  44 41 26 46 43 3a 50 48  |UES....LDA&FC:PH|
00000290  41 3a 54 58 41 3a 50 48  41 3a 54 59 41 3a 50 48  |A:TXA:PHA:TYA:PH|
000002a0  41 0d 01 9e 22 5c 43 48  45 43 4b 20 b8 20 53 45  |A..."\CHECK . SE|
000002b0  45 20 e7 20 a8 45 52 55  50 54 20 49 53 20 56 73  |E . .ERUPT IS Vs|
000002c0  79 6e 63 0d 01 9f 17 4c  44 41 26 46 45 30 30 3a  |ync....LDA&FE00:|
000002d0  80 23 34 3a 42 45 51 72  74 63 0d 01 a0 11 5c 42  |.#4:BEQrtc....\B|
000002e0  4c 41 4e 4b 20 50 41 4c  4c 45 54 0d 01 a4 1d 4c  |LANK PALLET....L|
000002f0  44 41 23 26 46 46 3a 53  54 41 26 46 45 30 38 3a  |DA#&FF:STA&FE08:|
00000300  53 54 41 26 46 45 30 39  0d 01 ae 09 2e 65 78 69  |STA&FE09.....exi|
00000310  74 0d 01 b3 15 5c f7 20  52 45 47 49 53 54 45 52  |t....\. REGISTER|
00000320  20 bb 55 45 53 20 0d 01  b8 1e 50 4c 41 3a 54 41  | .UES ....PLA:TA|
00000330  59 3a 50 4c 41 3a 54 41  58 3a 50 4c 41 3a 53 54  |Y:PLA:TAX:PLA:ST|
00000340  41 26 46 43 0d 01 c2 12  4a 4d 50 28 6f 6c 64 76  |A&FC....JMP(oldv|
00000350  65 63 74 6f 72 29 0d 01  c7 05 3a 0d 01 cc 08 2e  |ector)....:.....|
00000360  72 74 63 0d 01 d1 21 5c  43 48 45 43 4b 20 b8 20  |rtc...!\CHECK . |
00000370  53 45 45 20 e7 20 a8 45  52 55 50 54 20 57 41 53  |SEE . .ERUPT WAS|
00000380  20 52 54 43 0d 01 d6 18  4c 44 41 26 46 45 30 30  | RTC....LDA&FE00|
00000390  3a 80 23 38 3a 42 45 51  65 78 69 74 0d 01 db 12  |:.#8:BEQexit....|
000003a0  5c 52 45 53 45 54 20 50  41 4c 4c 45 54 20 0d 01  |\RESET PALLET ..|
000003b0  e0 14 4c 44 41 23 26 33  34 3a 53 54 41 26 46 45  |..LDA#&34:STA&FE|
000003c0  30 38 0d 01 ea 14 4c 44  41 23 26 33 35 3a 53 54  |08....LDA#&35:ST|
000003d0  41 26 46 45 30 39 0d 01  f4 0b 4a 4d 50 65 78 69  |A&FE09....JMPexi|
000003e0  74 0d 01 fe 14 2e 6f 6c  64 76 65 63 74 6f 72 3a  |t.....oldvector:|
000003f0  45 51 55 57 30 0d 02 08  05 5d 0d 02 12 06 ed 20  |EQUW0....]..... |
00000400  0d 02 1c 05 e1 0d ff                              |.......|
00000407