� Test TX
9� IRcode%(15,25), Kcode% 1000, codeP%(15), Code% 1000
�"IR transmit TEST"
(1�"Press the code number key you want to send"
2�"Escape to end"
<,� Assemble the transmitting machine code
F	�init
P&� Read in the code defination file
Z
�readCode
d%� Initilise memory with the codes
n
�pokeCode
x�
��
�ș&04 � A% ;F%
�� (F% � 1)=0
�B%=�ascii(A%)
�
�l(B%)
�� �
��
�
�� �ascii(c%)
�� A%
�� c%>&60 � c%=c% � &5F
�A%=c% � &F
�� c%>&40 � A%+=9

� A%>15 � A%=0

=A%



"� �l(L%)

,5� codeP%(L%)<>0 � !Ppoint=codeP%(L%):� SendIR:�L%

6�

@

J� �pokeCode

T� A%,B%,C%

^
C%=Kcode%

hcodeP%()=0

r� A%=0 � 15

| � IRcode%(A%,0)<>0 �

�  codeP%(A%)=C%

�  ?C%=IRcode%(A%,0)

�  C%+=1

�
  B%=1

�  ȕ IRcode%(A%,B%)<>0

�  ?C%=IRcode%(A%,B%)

�  C%+=1:B%+=1

�  �

�  ?C%=0

� �

��

�!Delay=TimeD%

��

� �readCode
� A%,B%,F%,L$,P%,C%,E%
&IRcode%()=0
0F%=�("<IRTX$Dir>.Codes")
:1� F%=0 � �"Can't open code definition file":�
DTimeD%=0
Nȕ �#F%=� � TimeD%=0
XL$=�getLine
b0� �L$,1)<>"|" � �(�L$,1))>&19 � TimeD%=�(L$)
l�
v
�
ȕ �#F%=�
�L$=�getLine
�/� �L$,1)<>"|" � �(�L$,1))>&19 � L$<>"END" �
�
P%=1:E%=0
�B%=�pars(L$)
�2� B%>15 � �"Key number too big in Code file":�
�	 C%=0
�   ȕ P%<>0
�   A%=�pars(L$)
�   C%+=1
�   E%+=1
�   IRcode%(B%,C%)=A%
�   �
   IRcode%(B%,0)=E%
 �
�
 �#F%
*�
4
>� �pars(s$)
H� A%,v$
R	v$=""
\
A%=&21
fȕ A%<>&20 � A%<>10
pA%=�(�s$,P%,1))
zv$=v$+�(A%)
�	P%+=1
��
�� A%=10 � P%=0
�
=�(v$)
�
�
�� �getLine
�� l$,A%
�A%=&20:l$=""
�ȕ A%>&19 � �#F%=�
�A%=�#F%
�l$=l$+�(A%)
��
=l$

� �init
$
.� C% = 0 � 2 � 2
8P%=Code%
B[ OPT C%
L8.Delay EQUD 50 \ Number of 2.5uS between each number
VB.Ppoint EQUD 5 \ Place in memory where the data is to be found
`.SendIR
jSTMFD R13!,{R14}
t\Make printer Port output
~
MOV R0,#2
�MOV R1,#&0
�MOV R2,#&DF
�!SWI &42EC1  \ Parallel output
�
�MOV R9,R15
�SWI "OS_EnterOS"
�)TEQP R15,#&C000003 \ DISABLE �ERRUPTS
�MOVNV R0,R0
�
�LDR R11,Delay
�LDR R10,Ppoint
�'LDRB R8,[R10],#1 \ Number of states


-MOV R7,#1 \ LED On/Off - Use #0 for fig 3

	.Send
(%� R7,R7,#1 \ Toggle the LED state
2
MOV R1,R7
<
MOV R0,#1
F!SWI &42EC1 \ Set state of LED
P
Z5LDRB R6,[R10],#1 \ Number of times to apply delay
d-MUL R5,R6,R11 \ Multiplied by delay value
n
MOV R0,#0
x.D1
�&SWI &42EC1 \ Dummy input for delay
�SUBS R5,R5,#1
�
BNE D1
�SUBS R8,R8,#1
�BNE Send
�
�
MOV R0,#1
�!MOV R1,#1  \ Use #0 for fig 3
�SWI &42EC1 \ Set LED off
�
�	.Exit
�TEQP R9,#0
�MOVNV R0,R0
-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
]
�
"
,�
6
@
�

00000000  0d 00 0a 0d f4 20 54 65  73 74 20 54 58 0d 00 14  |..... Test TX...|
00000010  39 de 20 49 52 63 6f 64  65 25 28 31 35 2c 32 35  |9. IRcode%(15,25|
00000020  29 2c 20 4b 63 6f 64 65  25 20 31 30 30 30 2c 20  |), Kcode% 1000, |
00000030  63 6f 64 65 50 25 28 31  35 29 2c 20 43 6f 64 65  |codeP%(15), Code|
00000040  25 20 31 30 30 30 0d 00  1e 17 f1 22 49 52 20 74  |% 1000....."IR t|
00000050  72 61 6e 73 6d 69 74 20  54 45 53 54 22 0d 00 28  |ransmit TEST"..(|
00000060  31 f1 22 50 72 65 73 73  20 74 68 65 20 63 6f 64  |1."Press the cod|
00000070  65 20 6e 75 6d 62 65 72  20 6b 65 79 20 79 6f 75  |e number key you|
00000080  20 77 61 6e 74 20 74 6f  20 73 65 6e 64 22 0d 00  | want to send"..|
00000090  32 14 f1 22 45 73 63 61  70 65 20 74 6f 20 65 6e  |2.."Escape to en|
000000a0  64 22 0d 00 3c 2c f4 20  41 73 73 65 6d 62 6c 65  |d"..<,. Assemble|
000000b0  20 74 68 65 20 74 72 61  6e 73 6d 69 74 74 69 6e  | the transmittin|
000000c0  67 20 6d 61 63 68 69 6e  65 20 63 6f 64 65 0d 00  |g machine code..|
000000d0  46 09 f2 69 6e 69 74 0d  00 50 26 f4 20 52 65 61  |F..init..P&. Rea|
000000e0  64 20 69 6e 20 74 68 65  20 63 6f 64 65 20 64 65  |d in the code de|
000000f0  66 69 6e 61 74 69 6f 6e  20 66 69 6c 65 0d 00 5a  |fination file..Z|
00000100  0d f2 72 65 61 64 43 6f  64 65 0d 00 64 25 f4 20  |..readCode..d%. |
00000110  49 6e 69 74 69 6c 69 73  65 20 6d 65 6d 6f 72 79  |Initilise memory|
00000120  20 77 69 74 68 20 74 68  65 20 63 6f 64 65 73 0d  | with the codes.|
00000130  00 6e 0d f2 70 6f 6b 65  43 6f 64 65 0d 00 78 05  |.n..pokeCode..x.|
00000140  f5 0d 00 82 05 f5 0d 00  8c 12 c8 99 26 30 34 20  |............&04 |
00000150  b8 20 41 25 20 3b 46 25  0d 00 96 10 fd 20 28 46  |. A% ;F%..... (F|
00000160  25 20 80 20 31 29 3d 30  0d 00 a0 11 42 25 3d a4  |% . 1)=0....B%=.|
00000170  61 73 63 69 69 28 41 25  29 0d 00 aa 0a f2 6c 28  |ascii(A%).....l(|
00000180  42 25 29 0d 00 b4 07 fd  20 a3 0d 00 be 05 e0 0d  |B%)..... .......|
00000190  00 c8 04 0d 00 d2 10 dd  20 a4 61 73 63 69 69 28  |........ .ascii(|
000001a0  63 25 29 0d 00 dc 08 ea  20 41 25 0d 00 e6 1a e7  |c%)..... A%.....|
000001b0  20 63 25 3e 26 36 30 20  8c 20 63 25 3d 63 25 20  | c%>&60 . c%=c% |
000001c0  80 20 26 35 46 0d 00 f0  0e 41 25 3d 63 25 20 80  |. &5F....A%=c% .|
000001d0  20 26 46 0d 00 fa 14 e7  20 63 25 3e 26 34 30 20  | &F..... c%>&40 |
000001e0  8c 20 41 25 2b 3d 39 0d  01 04 12 e7 20 41 25 3e  |. A%+=9..... A%>|
000001f0  31 35 20 8c 20 41 25 3d  30 0d 01 0e 07 3d 41 25  |15 . A%=0....=A%|
00000200  0d 01 18 04 0d 01 22 0c  dd 20 f2 6c 28 4c 25 29  |......".. .l(L%)|
00000210  0d 01 2c 35 e7 20 63 6f  64 65 50 25 28 4c 25 29  |..,5. codeP%(L%)|
00000220  3c 3e 30 20 8c 20 21 50  70 6f 69 6e 74 3d 63 6f  |<>0 . !Ppoint=co|
00000230  64 65 50 25 28 4c 25 29  3a d6 20 53 65 6e 64 49  |deP%(L%):. SendI|
00000240  52 3a f1 4c 25 0d 01 36  05 e1 0d 01 40 04 0d 01  |R:.L%..6....@...|
00000250  4a 0f dd 20 f2 70 6f 6b  65 43 6f 64 65 0d 01 54  |J.. .pokeCode..T|
00000260  0e ea 20 41 25 2c 42 25  2c 43 25 0d 01 5e 0d 43  |.. A%,B%,C%..^.C|
00000270  25 3d 4b 63 6f 64 65 25  0d 01 68 0e 63 6f 64 65  |%=Kcode%..h.code|
00000280  50 25 28 29 3d 30 0d 01  72 0f e3 20 41 25 3d 30  |P%()=0..r.. A%=0|
00000290  20 b8 20 31 35 0d 01 7c  19 20 e7 20 49 52 63 6f  | . 15..|. . IRco|
000002a0  64 65 25 28 41 25 2c 30  29 3c 3e 30 20 8c 0d 01  |de%(A%,0)<>0 ...|
000002b0  86 13 20 20 63 6f 64 65  50 25 28 41 25 29 3d 43  |..  codeP%(A%)=C|
000002c0  25 0d 01 90 17 20 20 3f  43 25 3d 49 52 63 6f 64  |%....  ?C%=IRcod|
000002d0  65 25 28 41 25 2c 30 29  0d 01 9a 0b 20 20 43 25  |e%(A%,0)....  C%|
000002e0  2b 3d 31 0d 01 a4 0a 20  20 42 25 3d 31 0d 01 ae  |+=1....  B%=1...|
000002f0  1a 20 20 c8 95 20 49 52  63 6f 64 65 25 28 41 25  |.  .. IRcode%(A%|
00000300  2c 42 25 29 3c 3e 30 0d  01 b8 18 20 20 3f 43 25  |,B%)<>0....  ?C%|
00000310  3d 49 52 63 6f 64 65 25  28 41 25 2c 42 25 29 0d  |=IRcode%(A%,B%).|
00000320  01 c2 11 20 20 43 25 2b  3d 31 3a 42 25 2b 3d 31  |...  C%+=1:B%+=1|
00000330  0d 01 cc 07 20 20 ce 0d  01 d6 0b 20 20 3f 43 25  |....  .....  ?C%|
00000340  3d 30 0d 01 e0 06 20 cd  0d 01 ea 05 ed 0d 01 f4  |=0.... .........|
00000350  11 21 44 65 6c 61 79 3d  54 69 6d 65 44 25 0d 01  |.!Delay=TimeD%..|
00000360  fe 05 e1 0d 02 08 04 0d  02 12 0f dd 20 f2 72 65  |............ .re|
00000370  61 64 43 6f 64 65 0d 02  1c 1a ea 20 41 25 2c 42  |adCode..... A%,B|
00000380  25 2c 46 25 2c 4c 24 2c  50 25 2c 43 25 2c 45 25  |%,F%,L$,P%,C%,E%|
00000390  0d 02 26 0f 49 52 63 6f  64 65 25 28 29 3d 30 0d  |..&.IRcode%()=0.|
000003a0  02 30 1c 46 25 3d 8e 28  22 3c 49 52 54 58 24 44  |.0.F%=.("<IRTX$D|
000003b0  69 72 3e 2e 43 6f 64 65  73 22 29 0d 02 3a 31 e7  |ir>.Codes")..:1.|
000003c0  20 46 25 3d 30 20 8c 20  f1 22 43 61 6e 27 74 20  | F%=0 . ."Can't |
000003d0  6f 70 65 6e 20 63 6f 64  65 20 64 65 66 69 6e 69  |open code defini|
000003e0  74 69 6f 6e 20 66 69 6c  65 22 3a e1 0d 02 44 0c  |tion file":...D.|
000003f0  54 69 6d 65 44 25 3d 30  0d 02 4e 18 c8 95 20 c5  |TimeD%=0..N... .|
00000400  23 46 25 3d a3 20 80 20  54 69 6d 65 44 25 3d 30  |#F%=. . TimeD%=0|
00000410  0d 02 58 0f 4c 24 3d a4  67 65 74 4c 69 6e 65 0d  |..X.L$=.getLine.|
00000420  02 62 30 e7 20 c0 4c 24  2c 31 29 3c 3e 22 7c 22  |.b0. .L$,1)<>"|"|
00000430  20 80 20 97 28 c0 4c 24  2c 31 29 29 3e 26 31 39  | . .(.L$,1))>&19|
00000440  20 8c 20 54 69 6d 65 44  25 3d bb 28 4c 24 29 0d  | . TimeD%=.(L$).|
00000450  02 6c 05 ce 0d 02 76 04  0d 02 80 0d c8 95 20 c5  |.l....v....... .|
00000460  23 46 25 3d a3 0d 02 8a  0f 4c 24 3d a4 67 65 74  |#F%=.....L$=.get|
00000470  4c 69 6e 65 0d 02 94 2f  e7 20 c0 4c 24 2c 31 29  |Line.../. .L$,1)|
00000480  3c 3e 22 7c 22 20 80 20  97 28 c0 4c 24 2c 31 29  |<>"|" . .(.L$,1)|
00000490  29 3e 26 31 39 20 80 20  4c 24 3c 3e 22 45 4e 44  |)>&19 . L$<>"END|
000004a0  22 20 8c 0d 02 9e 0d 50  25 3d 31 3a 45 25 3d 30  |" .....P%=1:E%=0|
000004b0  0d 02 a8 10 42 25 3d a4  70 61 72 73 28 4c 24 29  |....B%=.pars(L$)|
000004c0  0d 02 b2 32 e7 20 42 25  3e 31 35 20 8c 20 f1 22  |...2. B%>15 . ."|
000004d0  4b 65 79 20 6e 75 6d 62  65 72 20 74 6f 6f 20 62  |Key number too b|
000004e0  69 67 20 69 6e 20 43 6f  64 65 20 66 69 6c 65 22  |ig in Code file"|
000004f0  3a e1 0d 02 bc 09 20 43  25 3d 30 0d 02 c6 0f 20  |:..... C%=0.... |
00000500  20 20 c8 95 20 50 25 3c  3e 30 0d 02 d0 13 20 20  |  .. P%<>0....  |
00000510  20 41 25 3d a4 70 61 72  73 28 4c 24 29 0d 02 da  | A%=.pars(L$)...|
00000520  0c 20 20 20 43 25 2b 3d  31 0d 02 e4 0c 20 20 20  |.   C%+=1....   |
00000530  45 25 2b 3d 31 0d 02 ee  18 20 20 20 49 52 63 6f  |E%+=1....   IRco|
00000540  64 65 25 28 42 25 2c 43  25 29 3d 41 25 0d 02 f8  |de%(B%,C%)=A%...|
00000550  08 20 20 20 ce 0d 03 02  17 20 20 20 49 52 63 6f  |.   .....   IRco|
00000560  64 65 25 28 42 25 2c 30  29 3d 45 25 0d 03 0c 06  |de%(B%,0)=E%....|
00000570  20 cd 0d 03 16 05 ce 0d  03 20 08 d9 23 46 25 0d  | ........ ..#F%.|
00000580  03 2a 05 e1 0d 03 34 04  0d 03 3e 0f dd 20 a4 70  |.*....4...>.. .p|
00000590  61 72 73 28 73 24 29 0d  03 48 0b ea 20 41 25 2c  |ars(s$)..H.. A%,|
000005a0  76 24 0d 03 52 09 76 24  3d 22 22 0d 03 5c 0a 41  |v$..R.v$=""..\.A|
000005b0  25 3d 26 32 31 0d 03 66  17 c8 95 20 41 25 3c 3e  |%=&21..f... A%<>|
000005c0  26 32 30 20 80 20 41 25  3c 3e 31 30 0d 03 70 13  |&20 . A%<>10..p.|
000005d0  41 25 3d 97 28 c1 73 24  2c 50 25 2c 31 29 29 0d  |A%=.(.s$,P%,1)).|
000005e0  03 7a 0f 76 24 3d 76 24  2b bd 28 41 25 29 0d 03  |.z.v$=v$+.(A%)..|
000005f0  84 09 50 25 2b 3d 31 0d  03 8e 05 ce 0d 03 98 12  |..P%+=1.........|
00000600  e7 20 41 25 3d 31 30 20  8c 20 50 25 3d 30 0d 03  |. A%=10 . P%=0..|
00000610  a2 0a 3d bb 28 76 24 29  0d 03 ac 04 0d 03 b6 04  |..=.(v$)........|
00000620  0d 03 c0 0e dd 20 a4 67  65 74 4c 69 6e 65 0d 03  |..... .getLine..|
00000630  ca 0b ea 20 6c 24 2c 41  25 0d 03 d4 10 41 25 3d  |... l$,A%....A%=|
00000640  26 32 30 3a 6c 24 3d 22  22 0d 03 de 16 c8 95 20  |&20:l$=""...... |
00000650  41 25 3e 26 31 39 20 80  20 c5 23 46 25 3d a3 0d  |A%>&19 . .#F%=..|
00000660  03 e8 0b 41 25 3d 9a 23  46 25 0d 03 f2 0f 6c 24  |...A%=.#F%....l$|
00000670  3d 6c 24 2b bd 28 41 25  29 0d 03 fc 05 ce 0d 04  |=l$+.(A%).......|
00000680  06 07 3d 6c 24 0d 04 10  04 0d 04 1a 0b dd 20 f2  |..=l$......... .|
00000690  69 6e 69 74 0d 04 24 04  0d 04 2e 14 e3 20 43 25  |init..$...... C%|
000006a0  20 3d 20 30 20 b8 20 32  20 88 20 32 0d 04 38 0c  | = 0 . 2 . 2..8.|
000006b0  50 25 3d 43 6f 64 65 25  0d 04 42 0c 5b 20 4f 50  |P%=Code%..B.[ OP|
000006c0  54 20 43 25 0d 04 4c 38  2e 44 65 6c 61 79 20 45  |T C%..L8.Delay E|
000006d0  51 55 44 20 35 30 20 5c  20 4e 75 6d 62 65 72 20  |QUD 50 \ Number |
000006e0  6f 66 20 32 2e 35 75 53  20 62 65 74 77 65 65 6e  |of 2.5uS between|
000006f0  20 65 61 63 68 20 6e 75  6d 62 65 72 0d 04 56 42  | each number..VB|
00000700  2e 50 70 6f 69 6e 74 20  45 51 55 44 20 35 20 5c  |.Ppoint EQUD 5 \|
00000710  20 50 6c 61 63 65 20 69  6e 20 6d 65 6d 6f 72 79  | Place in memory|
00000720  20 77 68 65 72 65 20 74  68 65 20 64 61 74 61 20  | where the data |
00000730  69 73 20 74 6f 20 62 65  20 66 6f 75 6e 64 0d 04  |is to be found..|
00000740  60 0b 2e 53 65 6e 64 49  52 0d 04 6a 14 53 54 4d  |`..SendIR..j.STM|
00000750  46 44 20 52 31 33 21 2c  7b 52 31 34 7d 0d 04 74  |FD R13!,{R14}..t|
00000760  1d 5c 4d 61 6b 65 20 70  72 69 6e 74 65 72 20 50  |.\Make printer P|
00000770  6f 72 74 20 6f 75 74 70  75 74 0d 04 7e 0d 4d 4f  |ort output..~.MO|
00000780  56 20 52 30 2c 23 32 0d  04 88 0e 4d 4f 56 20 52  |V R0,#2....MOV R|
00000790  31 2c 23 26 30 0d 04 92  0f 4d 4f 56 20 52 32 2c  |1,#&0....MOV R2,|
000007a0  23 26 44 46 0d 04 9c 21  53 57 49 20 26 34 32 45  |#&DF...!SWI &42E|
000007b0  43 31 20 20 5c 20 50 61  72 61 6c 6c 65 6c 20 6f  |C1  \ Parallel o|
000007c0  75 74 70 75 74 0d 04 a6  04 0d 04 b0 0e 4d 4f 56  |utput........MOV|
000007d0  20 52 39 2c 52 31 35 0d  04 ba 14 53 57 49 20 22  | R9,R15....SWI "|
000007e0  4f 53 5f 45 6e 74 65 72  4f 53 22 0d 04 c4 29 54  |OS_EnterOS"...)T|
000007f0  45 51 50 20 52 31 35 2c  23 26 43 30 30 30 30 30  |EQP R15,#&C00000|
00000800  33 20 5c 20 44 49 53 41  42 4c 45 20 a8 45 52 52  |3 \ DISABLE .ERR|
00000810  55 50 54 53 0d 04 ce 0f  4d 4f 56 4e 56 20 52 30  |UPTS....MOVNV R0|
00000820  2c 52 30 0d 04 d8 04 0d  04 e2 11 4c 44 52 20 52  |,R0........LDR R|
00000830  31 31 2c 44 65 6c 61 79  0d 04 ec 12 4c 44 52 20  |11,Delay....LDR |
00000840  52 31 30 2c 50 70 6f 69  6e 74 0d 04 f6 27 4c 44  |R10,Ppoint...'LD|
00000850  52 42 20 52 38 2c 5b 52  31 30 5d 2c 23 31 20 5c  |RB R8,[R10],#1 \|
00000860  20 4e 75 6d 62 65 72 20  6f 66 20 73 74 61 74 65  | Number of state|
00000870  73 0d 05 00 04 0d 05 0a  2d 4d 4f 56 20 52 37 2c  |s.......-MOV R7,|
00000880  23 31 20 5c 20 4c 45 44  20 4f 6e 2f 4f 66 66 20  |#1 \ LED On/Off |
00000890  2d 20 55 73 65 20 23 30  20 66 6f 72 20 66 69 67  |- Use #0 for fig|
000008a0  20 33 0d 05 14 04 0d 05  1e 09 2e 53 65 6e 64 0d  | 3.........Send.|
000008b0  05 28 25 82 20 52 37 2c  52 37 2c 23 31 20 5c 20  |.(%. R7,R7,#1 \ |
000008c0  54 6f 67 67 6c 65 20 74  68 65 20 4c 45 44 20 73  |Toggle the LED s|
000008d0  74 61 74 65 0d 05 32 0d  4d 4f 56 20 52 31 2c 52  |tate..2.MOV R1,R|
000008e0  37 0d 05 3c 0d 4d 4f 56  20 52 30 2c 23 31 0d 05  |7..<.MOV R0,#1..|
000008f0  46 21 53 57 49 20 26 34  32 45 43 31 20 5c 20 53  |F!SWI &42EC1 \ S|
00000900  65 74 20 73 74 61 74 65  20 6f 66 20 4c 45 44 0d  |et state of LED.|
00000910  05 50 04 0d 05 5a 35 4c  44 52 42 20 52 36 2c 5b  |.P...Z5LDRB R6,[|
00000920  52 31 30 5d 2c 23 31 20  5c 20 4e 75 6d 62 65 72  |R10],#1 \ Number|
00000930  20 6f 66 20 74 69 6d 65  73 20 74 6f 20 61 70 70  | of times to app|
00000940  6c 79 20 64 65 6c 61 79  0d 05 64 2d 4d 55 4c 20  |ly delay..d-MUL |
00000950  52 35 2c 52 36 2c 52 31  31 20 5c 20 4d 75 6c 74  |R5,R6,R11 \ Mult|
00000960  69 70 6c 69 65 64 20 62  79 20 64 65 6c 61 79 20  |iplied by delay |
00000970  76 61 6c 75 65 0d 05 6e  0d 4d 4f 56 20 52 30 2c  |value..n.MOV R0,|
00000980  23 30 0d 05 78 07 2e 44  31 0d 05 82 26 53 57 49  |#0..x..D1...&SWI|
00000990  20 26 34 32 45 43 31 20  5c 20 44 75 6d 6d 79 20  | &42EC1 \ Dummy |
000009a0  69 6e 70 75 74 20 66 6f  72 20 64 65 6c 61 79 0d  |input for delay.|
000009b0  05 8c 11 53 55 42 53 20  52 35 2c 52 35 2c 23 31  |...SUBS R5,R5,#1|
000009c0  0d 05 96 0a 42 4e 45 20  44 31 0d 05 a0 11 53 55  |....BNE D1....SU|
000009d0  42 53 20 52 38 2c 52 38  2c 23 31 0d 05 aa 0c 42  |BS R8,R8,#1....B|
000009e0  4e 45 20 53 65 6e 64 0d  05 b4 04 0d 05 be 0d 4d  |NE Send........M|
000009f0  4f 56 20 52 30 2c 23 31  0d 05 c8 21 4d 4f 56 20  |OV R0,#1...!MOV |
00000a00  52 31 2c 23 31 20 20 5c  20 55 73 65 20 23 30 20  |R1,#1  \ Use #0 |
00000a10  66 6f 72 20 66 69 67 20  33 0d 05 d2 1c 53 57 49  |for fig 3....SWI|
00000a20  20 26 34 32 45 43 31 20  5c 20 53 65 74 20 4c 45  | &42EC1 \ Set LE|
00000a30  44 20 6f 66 66 0d 05 dc  04 0d 05 e6 09 2e 45 78  |D off.........Ex|
00000a40  69 74 0d 05 f0 0e 54 45  51 50 20 52 39 2c 23 30  |it....TEQP R9,#0|
00000a50  0d 05 fa 0f 4d 4f 56 4e  56 20 52 30 2c 52 30 0d  |....MOVNV R0,R0.|
00000a60  06 04 2d 4c 44 4d 46 44  20 52 31 33 21 2c 20 7b  |..-LDMFD R13!, {|
00000a70  50 43 7d 20 5c 20 42 41  43 4b 20 46 52 4f 4d 20  |PC} \ BACK FROM |
00000a80  c9 53 54 20 59 4f 55 20  43 41 4d 45 0d 06 0e 05  |.ST YOU CAME....|
00000a90  5d 0d 06 18 05 ed 0d 06  22 04 0d 06 2c 05 e1 0d  |]......."...,...|
00000aa0  06 36 04 0d 06 40 04 0d  ff                       |.6...@...|
00000aa9