�4:� By Mike Cook
�"IR Remote control reader"
NK%=19 : � NUMBER OF KEYS
(NP%=13 : � NUMBER OF PULSES
2NXK%=0:?&FE62=2
<A%=?&FE60 � &FD
FNN%=(NP%*2)-1
P;� CODE% 300,Time%(NK%,NN%),K$(NK%),KD$(NK%),TTime%(NN%)
Z
�_INIT
d�
n�_TITLE
xA$=�:�A$
�� A$="N" � A$="n" � �_GETK
�� A$="U" � A$="u" � �_KSEND
�� A$="R" � A$="r" � �_SHOW
�� A$="S" � A$="s" � �_SAVE
�� A$="L" � A$="l" � �_LOAD
�� A$="Q" � A$="q" � �
�� �
�
� �_TITLE
��
�$�0,5)"IR Remote control reader"
��"By Mike Cook"
��:�
�1�;NXK%;" Keys defined from a possible ";NK%+1

�:�"N - New key defined"

�"U - Use keys to send IR"

�"S - Save timings to disc"

"!�"L - Load timings from disc"

,�"R - Review defined keys"

6�"Q - Quit"

@�:�

J�"Select ";

T�

^� �_SHOW

h �"Computer keys used are :-"

r�_KLIST

|"�:�"PRESS any key to continue"

�D$=�

��

�
� �_KSEND

�� NXK%=0 � � 7:�

�/�:�0,5)"Send IR Remote control commands":�

��"Keys to use are :-"

��_KLIST

��:�"Control and Q to end"

��

�E$=�

�� B%=0 � NXK%-1

�� E$=K$(B%) � �_TX(B%)

��
� E$=�(17)
�

� �_KLIST
&� A%= 0 � NK%
0)� K$(A%)<>"" � �;K$(A%);" - ";KD$(A%)
:�
D�
N� �_GETK
X� NXK%>NK% � �
b?�"Press the remote control button you want";:�"to define ";
l
�_READ
v5�0,20)"Press the computer key you want to";�(6);
�#�"associate with this button ";
�B$=�:�B$
�	A%=-1
��
�A%=A%+1
�$� K$(A%)=B$ � A%=NK% � K$(A%)=""
�A� K$(A%)=B$ � �_CORA(A%) � NXK%=NXK%+1:K$(A%)=B$:�_CHANGE(A%)
�'�"What lable for this key ",KD$(A%)
��
�� �_CORA(K%)
�� A%
�7�"Change definition or Average with existing C/A ";
�C$=�:�C$
&� C$="C" � C$="c" � �_CHANGE(K%):�
� A%=0 � NN%
,Time%(K%,A%)=(TTime%(A%)+Time%(K%,A%))/2
 �
*�
4� �_CHANGE(K%)
>� A%
H� A%=0 � NN%
RTime%(K%,A%)=TTime%(A%)
\�
f�
p� �_SAVE
z� NXK%=0 � � 7:�
�*CAT
�#�"File name for these keys ";F$
�F%=�(F$)
��# F%,NN%,NXK%
�� A%=0 � NXK%-1
��# F%,K$(A%),KD$(A%)
�� B%=0 � NN%
��# F%,Time%(A%,B%)
��:�
��#F%
��
�� �_LOAD
�*CAT
)�"File name that holds your keys ";F$
F%=�(F$)
�#F%,X%,Y%
$9� X%<>NN% � Y%>NK% � �"Incompatable file":�#F%:D$=�:�
.NXK%=Y%
8� A%=0 � Y%-1
B�# F%,K$(A%),KD$(A%)
L� B%=0 � NN%
V�# F%,Time%(A%,B%)
`�:�
j�#F%
t�
~� �_TX(V%)
�� A%,C%
�A%=0
� � C%=STORE � STORE+NN%*2 � 2
�C%?1=Time%(B%,A%) � 256
�C%?0=Time%(B%,A%) � 255
�A%=A%+1
��
�
�Z%=0 � 5
�� TX
��
��
�� �_READ
� IR

� 0,150

S%=0:B%=0
 � A%=STORE � STORE+NN%*2 � 2
( T%=&FFFF-(?A%+256*(?(A%+1)))
2TTime%(B%)=T%
<B%=B%+1
FT%=T%/20
P� 1,T%,0
Z
S%=S% � 1
d!� S%=0 � � 1,0,-50 � � 1,0,50
n�
x�
�� �_INIT
�� A%=0 � 2 � 2
�P%=CODE%
�[
�
OPT A%
�.IR
�SEI
�!LDA &FE6B \ TIMER CONTROL REG
�� #&3F:�A #&40
�
STA &FE6B
�.LP0 \ HOLD � IR SENSED
�LDA &FE60:� #&1
�BNE LP0
#LDX #&FE \ PLACE � WRITE TIMING
LDY #NP% \ CYCLES � �
LDA #&FF \ SET UP T1
"STA &FE66:STA &FE67
,.CLP
6JSR LP \ MEASURE �E CYCLE
@DEY
JBNE CLP
TCLI
^RTS
h.LP
rINX:INX
|LDA #&FF:STA &FE65
�.LP1
�LDA &FE60:� #&1
�BEQ LP1
�LDA &FE64 \ � LOW BYTE
�STA STORE,X
�LDA &FE65 \ HIGH BYTE
�STA STORE+1,X
�LDA #&FF
�STA &FE65 \ RESET T1
�INX:INX
�.LP2
�LDA &FE60:� #&1
�BNE LP2
LDA &FE64 \ � LOW BYTE
STA STORE,X
LDA &FE65 \ HIGH BYTE
&STA STORE+1,X
0RTS
:.TX \ SEND IR
DSEI
NLDA &FE6B:� #&3F:STA &FE6B
X"LDA #&C0:STA &FE6E \ ENABLE T1
bLDY #NP% \ CYCLES � WRITE
l"LDX #&FE \ PLACE � TAKE TIMING
v.TLP
�JSR TXI
�DEY:BNE TLP
�#LDA #&40:STA &FE6E \ DISABLE T1
�CLI:RTS
�.TXI
�INX:INX
�LDA STORE,X
�STA &FE64:STA &FE66
�LDA STORE+1,X
�STA &FE67:STA &FE65
�LDA &FE60:�A #2:STA &FE60
�.HIL LDA &FE6D:BPL HIL
�STA &FE6C �OVE INTERRUPT
INX:INX
LDA STORE,X
STA &FE64:STA &FE66
 LDA STORE+1,X
*STA &FE67:STA &FE65
4LDA &FE60:� #&FD:STA &FE60
>.LOP LDA &FE6D:BPL LOP
H
STA &FE6E
RRTS
\
.STORE
f]
p�
z�
�

00000000  0d 00 0a 15 eb 34 3a f4  20 42 79 20 4d 69 6b 65  |.....4:. By Mike|
00000010  20 43 6f 6f 6b 0d 00 14  1f f1 22 49 52 20 52 65  | Cook....."IR Re|
00000020  6d 6f 74 65 20 63 6f 6e  74 72 6f 6c 20 72 65 61  |mote control rea|
00000030  64 65 72 22 0d 00 1e 1d  4e 4b 25 3d 31 39 20 3a  |der"....NK%=19 :|
00000040  20 f4 20 4e 55 4d 42 45  52 20 4f 46 20 4b 45 59  | . NUMBER OF KEY|
00000050  53 0d 00 28 1f 4e 50 25  3d 31 33 20 3a 20 f4 20  |S..(.NP%=13 : . |
00000060  4e 55 4d 42 45 52 20 4f  46 20 50 55 4c 53 45 53  |NUMBER OF PULSES|
00000070  0d 00 32 13 4e 58 4b 25  3d 30 3a 3f 26 46 45 36  |..2.NXK%=0:?&FE6|
00000080  32 3d 32 0d 00 3c 13 41  25 3d 3f 26 46 45 36 30  |2=2..<.A%=?&FE60|
00000090  20 80 20 26 46 44 0d 00  46 11 4e 4e 25 3d 28 4e  | . &FD..F.NN%=(N|
000000a0  50 25 2a 32 29 2d 31 0d  00 50 3b de 20 43 4f 44  |P%*2)-1..P;. COD|
000000b0  45 25 20 33 30 30 2c 54  69 6d 65 25 28 4e 4b 25  |E% 300,Time%(NK%|
000000c0  2c 4e 4e 25 29 2c 4b 24  28 4e 4b 25 29 2c 4b 44  |,NN%),K$(NK%),KD|
000000d0  24 28 4e 4b 25 29 2c 54  54 69 6d 65 25 28 4e 4e  |$(NK%),TTime%(NN|
000000e0  25 29 0d 00 5a 0a f2 5f  49 4e 49 54 0d 00 64 05  |%)..Z.._INIT..d.|
000000f0  f5 0d 00 6e 0b f2 5f 54  49 54 4c 45 0d 00 78 0c  |...n.._TITLE..x.|
00000100  41 24 3d be 3a f1 41 24  0d 00 82 1e e7 20 41 24  |A$=.:.A$..... A$|
00000110  3d 22 4e 22 20 84 20 41  24 3d 22 6e 22 20 8c 20  |="N" . A$="n" . |
00000120  f2 5f 47 45 54 4b 0d 00  8c 1f e7 20 41 24 3d 22  |._GETK..... A$="|
00000130  55 22 20 84 20 41 24 3d  22 75 22 20 8c 20 f2 5f  |U" . A$="u" . ._|
00000140  4b 53 45 4e 44 0d 00 96  1e e7 20 41 24 3d 22 52  |KSEND..... A$="R|
00000150  22 20 84 20 41 24 3d 22  72 22 20 8c 20 f2 5f 53  |" . A$="r" . ._S|
00000160  48 4f 57 0d 00 a0 1e e7  20 41 24 3d 22 53 22 20  |HOW..... A$="S" |
00000170  84 20 41 24 3d 22 73 22  20 8c 20 f2 5f 53 41 56  |. A$="s" . ._SAV|
00000180  45 0d 00 aa 1e e7 20 41  24 3d 22 4c 22 20 84 20  |E..... A$="L" . |
00000190  41 24 3d 22 6c 22 20 8c  20 f2 5f 4c 4f 41 44 0d  |A$="l" . ._LOAD.|
000001a0  00 b4 19 e7 20 41 24 3d  22 51 22 20 84 20 41 24  |.... A$="Q" . A$|
000001b0  3d 22 71 22 20 8c 20 e0  0d 00 be 07 fd 20 a3 0d  |="q" . ...... ..|
000001c0  00 c8 0d dd 20 f2 5f 54  49 54 4c 45 0d 00 d2 05  |.... ._TITLE....|
000001d0  db 0d 00 dc 24 f1 8a 30  2c 35 29 22 49 52 20 52  |....$..0,5)"IR R|
000001e0  65 6d 6f 74 65 20 63 6f  6e 74 72 6f 6c 20 72 65  |emote control re|
000001f0  61 64 65 72 22 0d 00 e6  13 f1 22 42 79 20 4d 69  |ader"....."By Mi|
00000200  6b 65 20 43 6f 6f 6b 22  0d 00 f0 07 f1 3a f1 0d  |ke Cook".....:..|
00000210  00 fa 31 f1 3b 4e 58 4b  25 3b 22 20 4b 65 79 73  |..1.;NXK%;" Keys|
00000220  20 64 65 66 69 6e 65 64  20 66 72 6f 6d 20 61 20  | defined from a |
00000230  70 6f 73 73 69 62 6c 65  20 22 3b 4e 4b 25 2b 31  |possible ";NK%+1|
00000240  0d 01 04 1c f1 3a f1 22  4e 20 2d 20 4e 65 77 20  |.....:."N - New |
00000250  6b 65 79 20 64 65 66 69  6e 65 64 22 0d 01 0e 1e  |key defined"....|
00000260  f1 22 55 20 2d 20 55 73  65 20 6b 65 79 73 20 74  |."U - Use keys t|
00000270  6f 20 73 65 6e 64 20 49  52 22 0d 01 18 1f f1 22  |o send IR"....."|
00000280  53 20 2d 20 53 61 76 65  20 74 69 6d 69 6e 67 73  |S - Save timings|
00000290  20 74 6f 20 64 69 73 63  22 0d 01 22 21 f1 22 4c  | to disc".."!."L|
000002a0  20 2d 20 4c 6f 61 64 20  74 69 6d 69 6e 67 73 20  | - Load timings |
000002b0  66 72 6f 6d 20 64 69 73  63 22 0d 01 2c 1e f1 22  |from disc"..,.."|
000002c0  52 20 2d 20 52 65 76 69  65 77 20 64 65 66 69 6e  |R - Review defin|
000002d0  65 64 20 6b 65 79 73 22  0d 01 36 0f f1 22 51 20  |ed keys"..6.."Q |
000002e0  2d 20 51 75 69 74 22 0d  01 40 07 f1 3a f1 0d 01  |- Quit"..@..:...|
000002f0  4a 0f f1 22 53 65 6c 65  63 74 20 22 3b 0d 01 54  |J.."Select ";..T|
00000300  05 e1 0d 01 5e 0c dd 20  f2 5f 53 48 4f 57 0d 01  |....^.. ._SHOW..|
00000310  68 20 f1 22 43 6f 6d 70  75 74 65 72 20 6b 65 79  |h ."Computer key|
00000320  73 20 75 73 65 64 20 61  72 65 20 3a 2d 22 0d 01  |s used are :-"..|
00000330  72 0b f2 5f 4b 4c 49 53  54 0d 01 7c 22 f1 3a f1  |r.._KLIST..|".:.|
00000340  22 50 52 45 53 53 20 61  6e 79 20 6b 65 79 20 74  |"PRESS any key t|
00000350  6f 20 63 6f 6e 74 69 6e  75 65 22 0d 01 86 08 44  |o continue"....D|
00000360  24 3d be 0d 01 90 05 e1  0d 01 9a 0d dd 20 f2 5f  |$=........... ._|
00000370  4b 53 45 4e 44 0d 01 a4  14 e7 20 4e 58 4b 25 3d  |KSEND..... NXK%=|
00000380  30 20 8c 20 ef 20 37 3a  e1 0d 01 ae 2f db 3a f1  |0 . . 7:..../.:.|
00000390  8a 30 2c 35 29 22 53 65  6e 64 20 49 52 20 52 65  |.0,5)"Send IR Re|
000003a0  6d 6f 74 65 20 63 6f 6e  74 72 6f 6c 20 63 6f 6d  |mote control com|
000003b0  6d 61 6e 64 73 22 3a f1  0d 01 b8 19 f1 22 4b 65  |mands":......"Ke|
000003c0  79 73 20 74 6f 20 75 73  65 20 61 72 65 20 3a 2d  |ys to use are :-|
000003d0  22 0d 01 c2 0b f2 5f 4b  4c 49 53 54 0d 01 cc 1d  |"....._KLIST....|
000003e0  f1 3a f1 22 43 6f 6e 74  72 6f 6c 20 61 6e 64 20  |.:."Control and |
000003f0  51 20 74 6f 20 65 6e 64  22 0d 01 d6 05 f5 0d 01  |Q to end".......|
00000400  e0 08 45 24 3d be 0d 01  ea 13 e3 20 42 25 3d 30  |..E$=...... B%=0|
00000410  20 b8 20 4e 58 4b 25 2d  31 0d 01 f4 1a e7 20 45  | . NXK%-1..... E|
00000420  24 3d 4b 24 28 42 25 29  20 8c 20 f2 5f 54 58 28  |$=K$(B%) . ._TX(|
00000430  42 25 29 0d 01 fe 05 ed  0d 02 08 0e fd 20 45 24  |B%).......... E$|
00000440  3d bd 28 31 37 29 0d 02  12 05 e1 0d 02 1c 0d dd  |=.(17)..........|
00000450  20 f2 5f 4b 4c 49 53 54  0d 02 26 11 e3 20 41 25  | ._KLIST..&.. A%|
00000460  3d 20 30 20 b8 20 4e 4b  25 0d 02 30 29 e7 20 4b  |= 0 . NK%..0). K|
00000470  24 28 41 25 29 3c 3e 22  22 20 8c 20 f1 3b 4b 24  |$(A%)<>"" . .;K$|
00000480  28 41 25 29 3b 22 20 2d  20 22 3b 4b 44 24 28 41  |(A%);" - ";KD$(A|
00000490  25 29 0d 02 3a 05 ed 0d  02 44 05 e1 0d 02 4e 0c  |%)..:....D....N.|
000004a0  dd 20 f2 5f 47 45 54 4b  0d 02 58 12 e7 20 4e 58  |. ._GETK..X.. NX|
000004b0  4b 25 3e 4e 4b 25 20 8c  20 e1 0d 02 62 3f f1 22  |K%>NK% . ...b?."|
000004c0  50 72 65 73 73 20 74 68  65 20 72 65 6d 6f 74 65  |Press the remote|
000004d0  20 63 6f 6e 74 72 6f 6c  20 62 75 74 74 6f 6e 20  | control button |
000004e0  79 6f 75 20 77 61 6e 74  22 3b 3a f1 22 74 6f 20  |you want";:."to |
000004f0  64 65 66 69 6e 65 20 22  3b 0d 02 6c 0a f2 5f 52  |define ";..l.._R|
00000500  45 41 44 0d 02 76 35 f1  8a 30 2c 32 30 29 22 50  |EAD..v5..0,20)"P|
00000510  72 65 73 73 20 74 68 65  20 63 6f 6d 70 75 74 65  |ress the compute|
00000520  72 20 6b 65 79 20 79 6f  75 20 77 61 6e 74 20 74  |r key you want t|
00000530  6f 22 3b 89 28 36 29 3b  0d 02 80 23 f1 22 61 73  |o";.(6);...#."as|
00000540  73 6f 63 69 61 74 65 20  77 69 74 68 20 74 68 69  |sociate with thi|
00000550  73 20 62 75 74 74 6f 6e  20 22 3b 0d 02 8a 0c 42  |s button ";....B|
00000560  24 3d be 3a f1 42 24 0d  02 94 09 41 25 3d 2d 31  |$=.:.B$....A%=-1|
00000570  0d 02 9e 05 f5 0d 02 a8  0b 41 25 3d 41 25 2b 31  |.........A%=A%+1|
00000580  0d 02 b2 24 fd 20 4b 24  28 41 25 29 3d 42 24 20  |...$. K$(A%)=B$ |
00000590  84 20 41 25 3d 4e 4b 25  20 84 20 4b 24 28 41 25  |. A%=NK% . K$(A%|
000005a0  29 3d 22 22 0d 02 bc 41  e7 20 4b 24 28 41 25 29  |)=""...A. K$(A%)|
000005b0  3d 42 24 20 8c 20 f2 5f  43 4f 52 41 28 41 25 29  |=B$ . ._CORA(A%)|
000005c0  20 8b 20 4e 58 4b 25 3d  4e 58 4b 25 2b 31 3a 4b  | . NXK%=NXK%+1:K|
000005d0  24 28 41 25 29 3d 42 24  3a f2 5f 43 48 41 4e 47  |$(A%)=B$:._CHANG|
000005e0  45 28 41 25 29 0d 02 c6  27 e8 22 57 68 61 74 20  |E(A%)...'."What |
000005f0  6c 61 62 6c 65 20 66 6f  72 20 74 68 69 73 20 6b  |lable for this k|
00000600  65 79 20 22 2c 4b 44 24  28 41 25 29 0d 02 d0 05  |ey ",KD$(A%)....|
00000610  e1 0d 02 da 10 dd 20 f2  5f 43 4f 52 41 28 4b 25  |...... ._CORA(K%|
00000620  29 0d 02 e4 08 ea 20 41  25 0d 02 ee 37 f1 22 43  |)..... A%...7."C|
00000630  68 61 6e 67 65 20 64 65  66 69 6e 69 74 69 6f 6e  |hange definition|
00000640  20 6f 72 20 41 76 65 72  61 67 65 20 77 69 74 68  | or Average with|
00000650  20 65 78 69 73 74 69 6e  67 20 43 2f 41 20 22 3b  | existing C/A ";|
00000660  0d 02 f8 0c 43 24 3d be  3a f1 43 24 0d 03 02 26  |....C$=.:.C$...&|
00000670  e7 20 43 24 3d 22 43 22  20 84 20 43 24 3d 22 63  |. C$="C" . C$="c|
00000680  22 20 8c 20 f2 5f 43 48  41 4e 47 45 28 4b 25 29  |" . ._CHANGE(K%)|
00000690  3a e1 0d 03 0c 10 e3 20  41 25 3d 30 20 b8 20 4e  |:...... A%=0 . N|
000006a0  4e 25 0d 03 16 2c 54 69  6d 65 25 28 4b 25 2c 41  |N%...,Time%(K%,A|
000006b0  25 29 3d 28 54 54 69 6d  65 25 28 41 25 29 2b 54  |%)=(TTime%(A%)+T|
000006c0  69 6d 65 25 28 4b 25 2c  41 25 29 29 2f 32 0d 03  |ime%(K%,A%))/2..|
000006d0  20 05 ed 0d 03 2a 05 e1  0d 03 34 12 dd 20 f2 5f  | ....*....4.. ._|
000006e0  43 48 41 4e 47 45 28 4b  25 29 0d 03 3e 08 ea 20  |CHANGE(K%)..>.. |
000006f0  41 25 0d 03 48 10 e3 20  41 25 3d 30 20 b8 20 4e  |A%..H.. A%=0 . N|
00000700  4e 25 0d 03 52 1b 54 69  6d 65 25 28 4b 25 2c 41  |N%..R.Time%(K%,A|
00000710  25 29 3d 54 54 69 6d 65  25 28 41 25 29 0d 03 5c  |%)=TTime%(A%)..\|
00000720  05 ed 0d 03 66 05 e1 0d  03 70 0c dd 20 f2 5f 53  |....f....p.. ._S|
00000730  41 56 45 0d 03 7a 14 e7  20 4e 58 4b 25 3d 30 20  |AVE..z.. NXK%=0 |
00000740  8c 20 ef 20 37 3a e1 0d  03 84 08 2a 43 41 54 0d  |. . 7:.....*CAT.|
00000750  03 8e 23 e8 22 46 69 6c  65 20 6e 61 6d 65 20 66  |..#."File name f|
00000760  6f 72 20 74 68 65 73 65  20 6b 65 79 73 20 22 3b  |or these keys ";|
00000770  46 24 0d 03 98 0c 46 25  3d ae 28 46 24 29 0d 03  |F$....F%=.(F$)..|
00000780  a2 12 f1 23 20 46 25 2c  4e 4e 25 2c 4e 58 4b 25  |...# F%,NN%,NXK%|
00000790  0d 03 ac 13 e3 20 41 25  3d 30 20 b8 20 4e 58 4b  |..... A%=0 . NXK|
000007a0  25 2d 31 0d 03 b6 18 f1  23 20 46 25 2c 4b 24 28  |%-1.....# F%,K$(|
000007b0  41 25 29 2c 4b 44 24 28  41 25 29 0d 03 c0 10 e3  |A%),KD$(A%).....|
000007c0  20 42 25 3d 30 20 b8 20  4e 4e 25 0d 03 ca 16 f1  | B%=0 . NN%.....|
000007d0  23 20 46 25 2c 54 69 6d  65 25 28 41 25 2c 42 25  |# F%,Time%(A%,B%|
000007e0  29 0d 03 d4 07 ed 3a ed  0d 03 de 08 d9 23 46 25  |).....:......#F%|
000007f0  0d 03 e8 05 e1 0d 03 f2  0c dd 20 f2 5f 4c 4f 41  |.......... ._LOA|
00000800  44 0d 03 fc 08 2a 43 41  54 0d 04 06 29 e8 22 46  |D....*CAT...)."F|
00000810  69 6c 65 20 6e 61 6d 65  20 74 68 61 74 20 68 6f  |ile name that ho|
00000820  6c 64 73 20 79 6f 75 72  20 6b 65 79 73 20 22 3b  |lds your keys ";|
00000830  46 24 0d 04 10 0c 46 25  3d 8e 28 46 24 29 0d 04  |F$....F%=.(F$)..|
00000840  1a 0e e8 23 46 25 2c 58  25 2c 59 25 0d 04 24 39  |...#F%,X%,Y%..$9|
00000850  e7 20 58 25 3c 3e 4e 4e  25 20 84 20 59 25 3e 4e  |. X%<>NN% . Y%>N|
00000860  4b 25 20 8c 20 f1 22 49  6e 63 6f 6d 70 61 74 61  |K% . ."Incompata|
00000870  62 6c 65 20 66 69 6c 65  22 3a d9 23 46 25 3a 44  |ble file":.#F%:D|
00000880  24 3d be 3a e1 0d 04 2e  0b 4e 58 4b 25 3d 59 25  |$=.:.....NXK%=Y%|
00000890  0d 04 38 11 e3 20 41 25  3d 30 20 b8 20 59 25 2d  |..8.. A%=0 . Y%-|
000008a0  31 0d 04 42 18 e8 23 20  46 25 2c 4b 24 28 41 25  |1..B..# F%,K$(A%|
000008b0  29 2c 4b 44 24 28 41 25  29 0d 04 4c 10 e3 20 42  |),KD$(A%)..L.. B|
000008c0  25 3d 30 20 b8 20 4e 4e  25 0d 04 56 16 e8 23 20  |%=0 . NN%..V..# |
000008d0  46 25 2c 54 69 6d 65 25  28 41 25 2c 42 25 29 0d  |F%,Time%(A%,B%).|
000008e0  04 60 07 ed 3a ed 0d 04  6a 08 d9 23 46 25 0d 04  |.`..:...j..#F%..|
000008f0  74 05 e1 0d 04 7e 0e dd  20 f2 5f 54 58 28 56 25  |t....~.. ._TX(V%|
00000900  29 0d 04 88 0b ea 20 41  25 2c 43 25 0d 04 92 08  |)..... A%,C%....|
00000910  41 25 3d 30 0d 04 9c 20  e3 20 43 25 3d 53 54 4f  |A%=0... . C%=STO|
00000920  52 45 20 b8 20 53 54 4f  52 45 2b 4e 4e 25 2a 32  |RE . STORE+NN%*2|
00000930  20 88 20 32 0d 04 a6 1b  43 25 3f 31 3d 54 69 6d  | . 2....C%?1=Tim|
00000940  65 25 28 42 25 2c 41 25  29 20 81 20 32 35 36 0d  |e%(B%,A%) . 256.|
00000950  04 b0 1b 43 25 3f 30 3d  54 69 6d 65 25 28 42 25  |...C%?0=Time%(B%|
00000960  2c 41 25 29 20 80 20 32  35 35 0d 04 ba 0b 41 25  |,A%) . 255....A%|
00000970  3d 41 25 2b 31 0d 04 c4  05 ed 0d 04 ce 0d e3 5a  |=A%+1..........Z|
00000980  25 3d 30 20 b8 20 35 0d  04 d8 08 d6 20 54 58 0d  |%=0 . 5..... TX.|
00000990  04 e2 05 ed 0d 04 ec 05  e1 0d 04 f6 0c dd 20 f2  |.............. .|
000009a0  5f 52 45 41 44 0d 05 00  08 d6 20 49 52 0d 05 0a  |_READ..... IR...|
000009b0  0b ec 20 30 2c 31 35 30  0d 05 14 0d 53 25 3d 30  |.. 0,150....S%=0|
000009c0  3a 42 25 3d 30 0d 05 1e  20 e3 20 41 25 3d 53 54  |:B%=0... . A%=ST|
000009d0  4f 52 45 20 b8 20 53 54  4f 52 45 2b 4e 4e 25 2a  |ORE . STORE+NN%*|
000009e0  32 20 88 20 32 0d 05 28  20 54 25 3d 26 46 46 46  |2 . 2..( T%=&FFF|
000009f0  46 2d 28 3f 41 25 2b 32  35 36 2a 28 3f 28 41 25  |F-(?A%+256*(?(A%|
00000a00  2b 31 29 29 29 0d 05 32  11 54 54 69 6d 65 25 28  |+1)))..2.TTime%(|
00000a10  42 25 29 3d 54 25 0d 05  3c 0b 42 25 3d 42 25 2b  |B%)=T%..<.B%=B%+|
00000a20  31 0d 05 46 0c 54 25 3d  54 25 2f 32 30 0d 05 50  |1..F.T%=T%/20..P|
00000a30  0c f0 20 31 2c 54 25 2c  30 0d 05 5a 0d 53 25 3d  |.. 1,T%,0..Z.S%=|
00000a40  53 25 20 82 20 31 0d 05  64 21 e7 20 53 25 3d 30  |S% . 1..d!. S%=0|
00000a50  20 8c 20 f0 20 31 2c 30  2c 2d 35 30 20 8b 20 f0  | . . 1,0,-50 . .|
00000a60  20 31 2c 30 2c 35 30 0d  05 6e 05 ed 0d 05 78 05  | 1,0,50..n....x.|
00000a70  e1 0d 05 82 0c dd 20 f2  5f 49 4e 49 54 0d 05 8c  |...... ._INIT...|
00000a80  12 e3 20 41 25 3d 30 20  b8 20 32 20 88 20 32 0d  |.. A%=0 . 2 . 2.|
00000a90  05 96 0c 50 25 3d 43 4f  44 45 25 0d 05 a0 05 5b  |...P%=CODE%....[|
00000aa0  0d 05 aa 0a 4f 50 54 20  41 25 0d 05 b4 07 2e 49  |....OPT A%.....I|
00000ab0  52 0d 05 be 07 53 45 49  0d 05 c8 21 4c 44 41 20  |R....SEI...!LDA |
00000ac0  26 46 45 36 42 20 5c 20  54 49 4d 45 52 20 43 4f  |&FE6B \ TIMER CO|
00000ad0  4e 54 52 4f 4c 20 52 45  47 0d 05 d2 12 80 20 23  |NTROL REG..... #|
00000ae0  26 33 46 3a 84 41 20 23  26 34 30 0d 05 dc 0d 53  |&3F:.A #&40....S|
00000af0  54 41 20 26 46 45 36 42  0d 05 e6 1b 2e 4c 50 30  |TA &FE6B.....LP0|
00000b00  20 5c 20 48 4f 4c 44 20  fd 20 49 52 20 53 45 4e  | \ HOLD . IR SEN|
00000b10  53 45 44 0d 05 f0 13 4c  44 41 20 26 46 45 36 30  |SED....LDA &FE60|
00000b20  3a 80 20 23 26 31 0d 05  fa 0b 42 4e 45 20 4c 50  |:. #&1....BNE LP|
00000b30  30 0d 06 04 23 4c 44 58  20 23 26 46 45 20 5c 20  |0...#LDX #&FE \ |
00000b40  50 4c 41 43 45 20 b8 20  57 52 49 54 45 20 54 49  |PLACE . WRITE TI|
00000b50  4d 49 4e 47 0d 06 0e 19  4c 44 59 20 23 4e 50 25  |MING....LDY #NP%|
00000b60  20 5c 20 43 59 43 4c 45  53 20 b8 20 f3 0d 06 18  | \ CYCLES . ....|
00000b70  18 4c 44 41 20 23 26 46  46 20 5c 20 53 45 54 20  |.LDA #&FF \ SET |
00000b80  55 50 20 54 31 0d 06 22  17 53 54 41 20 26 46 45  |UP T1..".STA &FE|
00000b90  36 36 3a 53 54 41 20 26  46 45 36 37 0d 06 2c 08  |66:STA &FE67..,.|
00000ba0  2e 43 4c 50 0d 06 36 1d  4a 53 52 20 4c 50 20 5c  |.CLP..6.JSR LP \|
00000bb0  20 4d 45 41 53 55 52 45  20 ee 45 20 43 59 43 4c  | MEASURE .E CYCL|
00000bc0  45 0d 06 40 07 44 45 59  0d 06 4a 0b 42 4e 45 20  |E..@.DEY..J.BNE |
00000bd0  43 4c 50 0d 06 54 07 43  4c 49 0d 06 5e 07 52 54  |CLP..T.CLI..^.RT|
00000be0  53 0d 06 68 07 2e 4c 50  0d 06 72 0b 49 4e 58 3a  |S..h..LP..r.INX:|
00000bf0  49 4e 58 0d 06 7c 16 4c  44 41 20 23 26 46 46 3a  |INX..|.LDA #&FF:|
00000c00  53 54 41 20 26 46 45 36  35 0d 06 86 08 2e 4c 50  |STA &FE65.....LP|
00000c10  31 0d 06 90 13 4c 44 41  20 26 46 45 36 30 3a 80  |1....LDA &FE60:.|
00000c20  20 23 26 31 0d 06 9a 0b  42 45 51 20 4c 50 31 0d  | #&1....BEQ LP1.|
00000c30  06 a4 1a 4c 44 41 20 26  46 45 36 34 20 5c 20 a5  |...LDA &FE64 \ .|
00000c40  20 4c 4f 57 20 42 59 54  45 0d 06 ae 0f 53 54 41  | LOW BYTE....STA|
00000c50  20 53 54 4f 52 45 2c 58  0d 06 b8 19 4c 44 41 20  | STORE,X....LDA |
00000c60  26 46 45 36 35 20 5c 20  48 49 47 48 20 42 59 54  |&FE65 \ HIGH BYT|
00000c70  45 0d 06 c2 11 53 54 41  20 53 54 4f 52 45 2b 31  |E....STA STORE+1|
00000c80  2c 58 0d 06 cc 0c 4c 44  41 20 23 26 46 46 0d 06  |,X....LDA #&FF..|
00000c90  d6 18 53 54 41 20 26 46  45 36 35 20 5c 20 52 45  |..STA &FE65 \ RE|
00000ca0  53 45 54 20 54 31 0d 06  e0 0b 49 4e 58 3a 49 4e  |SET T1....INX:IN|
00000cb0  58 0d 06 ea 08 2e 4c 50  32 0d 06 f4 13 4c 44 41  |X.....LP2....LDA|
00000cc0  20 26 46 45 36 30 3a 80  20 23 26 31 0d 06 fe 0b  | &FE60:. #&1....|
00000cd0  42 4e 45 20 4c 50 32 0d  07 08 1a 4c 44 41 20 26  |BNE LP2....LDA &|
00000ce0  46 45 36 34 20 5c 20 a5  20 4c 4f 57 20 42 59 54  |FE64 \ . LOW BYT|
00000cf0  45 0d 07 12 0f 53 54 41  20 53 54 4f 52 45 2c 58  |E....STA STORE,X|
00000d00  0d 07 1c 19 4c 44 41 20  26 46 45 36 35 20 5c 20  |....LDA &FE65 \ |
00000d10  48 49 47 48 20 42 59 54  45 0d 07 26 11 53 54 41  |HIGH BYTE..&.STA|
00000d20  20 53 54 4f 52 45 2b 31  2c 58 0d 07 30 07 52 54  | STORE+1,X..0.RT|
00000d30  53 0d 07 3a 11 2e 54 58  20 5c 20 53 45 4e 44 20  |S..:..TX \ SEND |
00000d40  49 52 0d 07 44 07 53 45  49 0d 07 4e 1e 4c 44 41  |IR..D.SEI..N.LDA|
00000d50  20 26 46 45 36 42 3a 80  20 23 26 33 46 3a 53 54  | &FE6B:. #&3F:ST|
00000d60  41 20 26 46 45 36 42 0d  07 58 22 4c 44 41 20 23  |A &FE6B..X"LDA #|
00000d70  26 43 30 3a 53 54 41 20  26 46 45 36 45 20 5c 20  |&C0:STA &FE6E \ |
00000d80  45 4e 41 42 4c 45 20 54  31 0d 07 62 1d 4c 44 59  |ENABLE T1..b.LDY|
00000d90  20 23 4e 50 25 20 5c 20  43 59 43 4c 45 53 20 b8  | #NP% \ CYCLES .|
00000da0  20 57 52 49 54 45 0d 07  6c 22 4c 44 58 20 23 26  | WRITE..l"LDX #&|
00000db0  46 45 20 5c 20 50 4c 41  43 45 20 b8 20 54 41 4b  |FE \ PLACE . TAK|
00000dc0  45 20 54 49 4d 49 4e 47  0d 07 76 08 2e 54 4c 50  |E TIMING..v..TLP|
00000dd0  0d 07 80 0b 4a 53 52 20  54 58 49 0d 07 8a 0f 44  |....JSR TXI....D|
00000de0  45 59 3a 42 4e 45 20 54  4c 50 0d 07 94 23 4c 44  |EY:BNE TLP...#LD|
00000df0  41 20 23 26 34 30 3a 53  54 41 20 26 46 45 36 45  |A #&40:STA &FE6E|
00000e00  20 5c 20 44 49 53 41 42  4c 45 20 54 31 0d 07 9e  | \ DISABLE T1...|
00000e10  0b 43 4c 49 3a 52 54 53  0d 07 a8 08 2e 54 58 49  |.CLI:RTS.....TXI|
00000e20  0d 07 b2 0b 49 4e 58 3a  49 4e 58 0d 07 bc 0f 4c  |....INX:INX....L|
00000e30  44 41 20 53 54 4f 52 45  2c 58 0d 07 c6 17 53 54  |DA STORE,X....ST|
00000e40  41 20 26 46 45 36 34 3a  53 54 41 20 26 46 45 36  |A &FE64:STA &FE6|
00000e50  36 0d 07 d0 11 4c 44 41  20 53 54 4f 52 45 2b 31  |6....LDA STORE+1|
00000e60  2c 58 0d 07 da 17 53 54  41 20 26 46 45 36 37 3a  |,X....STA &FE67:|
00000e70  53 54 41 20 26 46 45 36  35 0d 07 e4 1d 4c 44 41  |STA &FE65....LDA|
00000e80  20 26 46 45 36 30 3a 84  41 20 23 32 3a 53 54 41  | &FE60:.A #2:STA|
00000e90  20 26 46 45 36 30 0d 07  ee 1a 2e 48 49 4c 20 4c  | &FE60.....HIL L|
00000ea0  44 41 20 26 46 45 36 44  3a 42 50 4c 20 48 49 4c  |DA &FE6D:BPL HIL|
00000eb0  0d 07 f8 1c 53 54 41 20  26 46 45 36 43 20 f4 4f  |....STA &FE6C .O|
00000ec0  56 45 20 49 4e 54 45 52  52 55 50 54 0d 08 02 0b  |VE INTERRUPT....|
00000ed0  49 4e 58 3a 49 4e 58 0d  08 0c 0f 4c 44 41 20 53  |INX:INX....LDA S|
00000ee0  54 4f 52 45 2c 58 0d 08  16 17 53 54 41 20 26 46  |TORE,X....STA &F|
00000ef0  45 36 34 3a 53 54 41 20  26 46 45 36 36 0d 08 20  |E64:STA &FE66.. |
00000f00  11 4c 44 41 20 53 54 4f  52 45 2b 31 2c 58 0d 08  |.LDA STORE+1,X..|
00000f10  2a 17 53 54 41 20 26 46  45 36 37 3a 53 54 41 20  |*.STA &FE67:STA |
00000f20  26 46 45 36 35 0d 08 34  1e 4c 44 41 20 26 46 45  |&FE65..4.LDA &FE|
00000f30  36 30 3a 80 20 23 26 46  44 3a 53 54 41 20 26 46  |60:. #&FD:STA &F|
00000f40  45 36 30 0d 08 3e 1a 2e  4c 4f 50 20 4c 44 41 20  |E60..>..LOP LDA |
00000f50  26 46 45 36 44 3a 42 50  4c 20 4c 4f 50 0d 08 48  |&FE6D:BPL LOP..H|
00000f60  0d 53 54 41 20 26 46 45  36 45 0d 08 52 07 52 54  |.STA &FE6E..R.RT|
00000f70  53 0d 08 5c 0a 2e 53 54  4f 52 45 0d 08 66 05 5d  |S..\..STORE..f.]|
00000f80  0d 08 70 05 ed 0d 08 7a  05 e1 0d ff              |..p....z....|
00000f8c