�> !Control.!Run
ș "Wimp_CommandWindow",,-1

*FX 200 1
(�assembl
2�loadsprites
<�setupkeys
F� 19,0,24,0,0,0
P�
Z
*FX 113 1
d
*FX 15
n�swapbanks
x�
��
�
�drawkeys
�%�print("PRESS R TO REDEFINE",200)
�!�print("OR SPACE TO END",110)
��swapbanks
�quit%=�
��:� �(-99) � �(-52)
�  � 1,-10,100,2
�  � �(-99) �
�    quit%=�
�  �
�    keys!0=0
�    keys!4=0

    keys!8=0

    keys!12=0

    keys!16=0

"

,.    keys!0=�newkey("PRESS KEY","FOR LEFT")

6/    keys!4=�newkey("PRESS KEY","FOR RIGHT")

@.    keys!8=�newkey("PRESS KEY","FOR FLAP")

J3    keys!12=�newkey("PRESS KEY","FOR GET/DROP")

T0    keys!16=�newkey("PRESS KEY","FOR ENTER")

^  �

h� quit%

r

|5�"Save <PreHist$Dir>.MiscData.Keys "+�~keys+"+20"

�

�

�� 12

��

�

�ݤnewkey(info1$,info2$)

��

�
�drawkeys

��print(info1$,200)

��print(info2$,125)

��swapbanks

��

��
� key$,keyno%
� key$="END" ��
� �(keyno%) � keyno%<0
&� 1,-10,100,2
0=keyno%
:
D��drawkeys
N#�print("2067BC CONTROLS :",900)
X$left$=�key(keys!0)+" : LEFT    "
b%right$=�key(keys!4)+" : RIGHT   "
l$flap$=�key(keys!8)+" : FLAP    "
v$get$=�key(keys!12)+" : GET/DROP"
�&enter$=�key(keys!16)+" : ENTER   "
��print(left$,750)
��print(right$,670)
��print(flap$,590)
��print(get$,510)
��print(enter$,420)
��
�
�ݤkey(inkey%)
�� keydesc$,keyno%
��
��
�� keydesc$,keyno%
$� keydesc$="END" � keyno%=inkey%
!� keydesc$="END" �keydesc$=""
$keydesc$=�"        "+keydesc$,8)
 
=keydesc$
*
4
>��loadsprites
Hsize=&400*50
R� sp size,decrunch size
\-�"Load <PreHist$Dir>.Grafix.ChrSet "+�~sp
f	A%=sp
pB%=decrunch
z� decode
�� 13:� 23,1,0;0;0;0;
�� bank%=2 � 1 �-1
��"FX 113 "+�(bank% �3)
��"FX 112 "+�bank%
��
��
�bank%=1
��
�
�
�
��assembl
�� code &400
�P%=code
� opt%=0 � 2 � 2

src%=0

len%=1
$
dst%=2
.
srcpnt%=3
8
dstpnt%=4
Bbyte%=5
Llast%=6
V
repeat%=7
`repno%=8
j
tP%=code
~
[OPT opt%
�.decode
�STMFD R13!,{R0-R12,R14}
�; A%= source address
�; B%= destination address
�
MOV R2,R1
�MOV srcpnt%,src%
�MOV dstpnt%,dst%
�MVN last%,#0
�MOV byte%,#0
�MOV repno%,#0
�LDR len%,[srcpnt%],#4
�	.loop
LDRB byte%,[srcpnt%],#1

CMP byte%,last%
BNE norepeat
D  LDRB repno%,[srcpnt%],#1:SUB len%,len%,#1:ADD repno%,repno%,#1
(  .reploop
2    SUBS repno%,repno%,#1
<    BLT repend
F    STRB byte%,[dstpnt%],#1
P    MVN last%,#0
Z    B reploop
d
  .repend
n  B loopend
x
.norepeat
�  STRB byte%,[dstpnt%],#1
�  MOV last%,byte%
�.loopend
�SUBS len%,len%,#1
�BGT loop
�.endroutine
�LDMFD R13!,{R0-R12,R15}
�]:�
��
�
���setupkeys
�
� keys 20
�/�"Load <PreHist$Dir>.MiscData.Keys "+�~keys
�

��print(a$,y%)
"
� x%,chr%
,x%=640-�(a$)*32
6� chr%=1 � �a$
@?  ș &2E,290,decrunch,�(�(�a$,chr%,1))),x%+(chr%-1)*64,y%,0
J�
T�
^
hm� PRINT,-33,F1,-114,F2,-115,F3,-116,F4,-21,F5,-117,F6,-118,F7,-23,F8,-119,F9,-120,F10,-31,F11,-29,F12,-30
r
|�� A,-66,B,-101,C,-83,D,-51,E,-35,F,-68,G,-84,H,-85,I,-38,J,-70,K,-71,L,-87,M,-102,N,-86,O,-55,Q,-17,R,-52,S,-82,T,-36,U,-54,V,-100,W,-34,X,-67,Y,-69,Z,-98
�
�A� 0,-40,1,-49,2,-50,3,-18,4,-19,5,-20,6,-53,7,-37,8,-22,9,-39
�
��� ",",-103,-,-24,.,-104,/,-105,[,-57,\,-121,],-89,;,-88,TAB,-97,CAPSLOCK,-65,SCROLL,-32,NUMLOCK,-78,BREAK,-45,`,-46,CURRENCY,-47,BACK SP,-48,=,-94
�
�8� INSERT,-62,HOME,-63,PAGE UP,-64,PAGE DWN,-79,',-80
�
�z� SHIFT,-1,CTRL,-2,ALT,-3,SPACE,-99,DELETE,-90,RETURN,-74,CPY,-106,CURS UP,-58,CURS LFT,-26,CURS RGT,-122,CURS DWN,-42
�
֨� KP 0,-107,KP 1,-108,KP 2,-125,KP 3,-109,KP 4,-123,KP 5,-124,KP 6,-27,KP 7,-28,KP 8,-43,KP 9,-44,KP +,-59,KP -,-60,KP .,-77,KP /,-75,KP #,-91,KP *,-92,KP ENTER,-61
�
�$� SELECT,-10,MENU,-11,ADJUST,-12
�� END,0
�
��swapbanks
�"FX 113,"+�bank%
bank%=3-bank%
&�"FX 112,"+�bank%
0�
�

00000000  0d 00 0a 14 f4 3e 20 21  43 6f 6e 74 72 6f 6c 2e  |.....> !Control.|
00000010  21 52 75 6e 0d 00 14 1f  c8 99 20 22 57 69 6d 70  |!Run...... "Wimp|
00000020  5f 43 6f 6d 6d 61 6e 64  57 69 6e 64 6f 77 22 2c  |_CommandWindow",|
00000030  2c 2d 31 0d 00 1e 0d 2a  46 58 20 32 30 30 20 31  |,-1....*FX 200 1|
00000040  0d 00 28 0c f2 61 73 73  65 6d 62 6c 0d 00 32 10  |..(..assembl..2.|
00000050  f2 6c 6f 61 64 73 70 72  69 74 65 73 0d 00 3c 0e  |.loadsprites..<.|
00000060  f2 73 65 74 75 70 6b 65  79 73 0d 00 46 13 ef 20  |.setupkeys..F.. |
00000070  31 39 2c 30 2c 32 34 2c  30 2c 30 2c 30 0d 00 50  |19,0,24,0,0,0..P|
00000080  05 db 0d 00 5a 0d 2a 46  58 20 31 31 33 20 31 0d  |....Z.*FX 113 1.|
00000090  00 64 0a 2a 46 58 20 31  35 0d 00 6e 0e f2 73 77  |.d.*FX 15..n..sw|
000000a0  61 70 62 61 6e 6b 73 0d  00 78 05 f5 0d 00 82 05  |apbanks..x......|
000000b0  db 0d 00 8c 0d f2 64 72  61 77 6b 65 79 73 0d 00  |......drawkeys..|
000000c0  96 25 f2 70 72 69 6e 74  28 22 50 52 45 53 53 20  |.%.print("PRESS |
000000d0  52 20 54 4f 20 52 45 44  45 46 49 4e 45 22 2c 32  |R TO REDEFINE",2|
000000e0  30 30 29 0d 00 a0 21 f2  70 72 69 6e 74 28 22 4f  |00)...!.print("O|
000000f0  52 20 53 50 41 43 45 20  54 4f 20 45 4e 44 22 2c  |R SPACE TO END",|
00000100  31 31 30 29 0d 00 aa 0e  f2 73 77 61 70 62 61 6e  |110).....swapban|
00000110  6b 73 0d 00 b4 0b 71 75  69 74 25 3d a3 0d 00 be  |ks....quit%=....|
00000120  17 f5 3a fd 20 a6 28 2d  39 39 29 20 84 20 a6 28  |..:. .(-99) . .(|
00000130  2d 35 32 29 0d 00 c8 13  20 20 d4 20 31 2c 2d 31  |-52)....  . 1,-1|
00000140  30 2c 31 30 30 2c 32 0d  00 d2 10 20 20 e7 20 a6  |0,100,2....  . .|
00000150  28 2d 39 39 29 20 8c 0d  00 dc 0f 20 20 20 20 71  |(-99) .....    q|
00000160  75 69 74 25 3d b9 0d 00  e6 07 20 20 cc 0d 00 f0  |uit%=.....  ....|
00000170  10 20 20 20 20 6b 65 79  73 21 30 3d 30 0d 00 fa  |.    keys!0=0...|
00000180  10 20 20 20 20 6b 65 79  73 21 34 3d 30 0d 01 04  |.    keys!4=0...|
00000190  10 20 20 20 20 6b 65 79  73 21 38 3d 30 0d 01 0e  |.    keys!8=0...|
000001a0  11 20 20 20 20 6b 65 79  73 21 31 32 3d 30 0d 01  |.    keys!12=0..|
000001b0  18 11 20 20 20 20 6b 65  79 73 21 31 36 3d 30 0d  |..    keys!16=0.|
000001c0  01 22 04 0d 01 2c 2e 20  20 20 20 6b 65 79 73 21  |."...,.    keys!|
000001d0  30 3d a4 6e 65 77 6b 65  79 28 22 50 52 45 53 53  |0=.newkey("PRESS|
000001e0  20 4b 45 59 22 2c 22 46  4f 52 20 4c 45 46 54 22  | KEY","FOR LEFT"|
000001f0  29 0d 01 36 2f 20 20 20  20 6b 65 79 73 21 34 3d  |)..6/    keys!4=|
00000200  a4 6e 65 77 6b 65 79 28  22 50 52 45 53 53 20 4b  |.newkey("PRESS K|
00000210  45 59 22 2c 22 46 4f 52  20 52 49 47 48 54 22 29  |EY","FOR RIGHT")|
00000220  0d 01 40 2e 20 20 20 20  6b 65 79 73 21 38 3d a4  |..@.    keys!8=.|
00000230  6e 65 77 6b 65 79 28 22  50 52 45 53 53 20 4b 45  |newkey("PRESS KE|
00000240  59 22 2c 22 46 4f 52 20  46 4c 41 50 22 29 0d 01  |Y","FOR FLAP")..|
00000250  4a 33 20 20 20 20 6b 65  79 73 21 31 32 3d a4 6e  |J3    keys!12=.n|
00000260  65 77 6b 65 79 28 22 50  52 45 53 53 20 4b 45 59  |ewkey("PRESS KEY|
00000270  22 2c 22 46 4f 52 20 47  45 54 2f 44 52 4f 50 22  |","FOR GET/DROP"|
00000280  29 0d 01 54 30 20 20 20  20 6b 65 79 73 21 31 36  |)..T0    keys!16|
00000290  3d a4 6e 65 77 6b 65 79  28 22 50 52 45 53 53 20  |=.newkey("PRESS |
000002a0  4b 45 59 22 2c 22 46 4f  52 20 45 4e 54 45 52 22  |KEY","FOR ENTER"|
000002b0  29 0d 01 5e 07 20 20 cd  0d 01 68 0b fd 20 71 75  |)..^.  ...h.. qu|
000002c0  69 74 25 0d 01 72 04 0d  01 7c 35 ff 22 53 61 76  |it%..r...|5."Sav|
000002d0  65 20 3c 50 72 65 48 69  73 74 24 44 69 72 3e 2e  |e <PreHist$Dir>.|
000002e0  4d 69 73 63 44 61 74 61  2e 4b 65 79 73 20 22 2b  |MiscData.Keys "+|
000002f0  c3 7e 6b 65 79 73 2b 22  2b 32 30 22 0d 01 86 04  |.~keys+"+20"....|
00000300  0d 01 90 04 0d 01 9a 08  eb 20 31 32 0d 01 a4 05  |......... 12....|
00000310  e0 0d 01 ae 04 0d 01 b8  1b dd a4 6e 65 77 6b 65  |...........newke|
00000320  79 28 69 6e 66 6f 31 24  2c 69 6e 66 6f 32 24 29  |y(info1$,info2$)|
00000330  0d 01 c2 05 db 0d 01 cc  0d f2 64 72 61 77 6b 65  |..........drawke|
00000340  79 73 0d 01 d6 16 f2 70  72 69 6e 74 28 69 6e 66  |ys.....print(inf|
00000350  6f 31 24 2c 32 30 30 29  0d 01 e0 16 f2 70 72 69  |o1$,200).....pri|
00000360  6e 74 28 69 6e 66 6f 32  24 2c 31 32 35 29 0d 01  |nt(info2$,125)..|
00000370  ea 0e f2 73 77 61 70 62  61 6e 6b 73 0d 01 f4 05  |...swapbanks....|
00000380  f7 0d 01 fe 05 f5 0d 02  08 11 f3 20 6b 65 79 24  |........... key$|
00000390  2c 6b 65 79 6e 6f 25 0d  02 12 13 e7 20 6b 65 79  |,keyno%..... key|
000003a0  24 3d 22 45 4e 44 22 20  8c f7 0d 02 1c 1a fd 20  |$="END" ....... |
000003b0  a6 28 6b 65 79 6e 6f 25  29 20 80 20 6b 65 79 6e  |.(keyno%) . keyn|
000003c0  6f 25 3c 30 0d 02 26 11  d4 20 31 2c 2d 31 30 2c  |o%<0..&.. 1,-10,|
000003d0  31 30 30 2c 32 0d 02 30  0b 3d 6b 65 79 6e 6f 25  |100,2..0.=keyno%|
000003e0  0d 02 3a 04 0d 02 44 0e  dd f2 64 72 61 77 6b 65  |..:...D...drawke|
000003f0  79 73 0d 02 4e 23 f2 70  72 69 6e 74 28 22 32 30  |ys..N#.print("20|
00000400  36 37 42 43 20 43 4f 4e  54 52 4f 4c 53 20 3a 22  |67BC CONTROLS :"|
00000410  2c 39 30 30 29 0d 02 58  24 6c 65 66 74 24 3d a4  |,900)..X$left$=.|
00000420  6b 65 79 28 6b 65 79 73  21 30 29 2b 22 20 3a 20  |key(keys!0)+" : |
00000430  4c 45 46 54 20 20 20 20  22 0d 02 62 25 72 69 67  |LEFT    "..b%rig|
00000440  68 74 24 3d a4 6b 65 79  28 6b 65 79 73 21 34 29  |ht$=.key(keys!4)|
00000450  2b 22 20 3a 20 52 49 47  48 54 20 20 20 22 0d 02  |+" : RIGHT   "..|
00000460  6c 24 66 6c 61 70 24 3d  a4 6b 65 79 28 6b 65 79  |l$flap$=.key(key|
00000470  73 21 38 29 2b 22 20 3a  20 46 4c 41 50 20 20 20  |s!8)+" : FLAP   |
00000480  20 22 0d 02 76 24 67 65  74 24 3d a4 6b 65 79 28  | "..v$get$=.key(|
00000490  6b 65 79 73 21 31 32 29  2b 22 20 3a 20 47 45 54  |keys!12)+" : GET|
000004a0  2f 44 52 4f 50 22 0d 02  80 26 65 6e 74 65 72 24  |/DROP"...&enter$|
000004b0  3d a4 6b 65 79 28 6b 65  79 73 21 31 36 29 2b 22  |=.key(keys!16)+"|
000004c0  20 3a 20 45 4e 54 45 52  20 20 20 22 0d 02 8a 15  | : ENTER   "....|
000004d0  f2 70 72 69 6e 74 28 6c  65 66 74 24 2c 37 35 30  |.print(left$,750|
000004e0  29 0d 02 94 16 f2 70 72  69 6e 74 28 72 69 67 68  |).....print(righ|
000004f0  74 24 2c 36 37 30 29 0d  02 9e 15 f2 70 72 69 6e  |t$,670).....prin|
00000500  74 28 66 6c 61 70 24 2c  35 39 30 29 0d 02 a8 14  |t(flap$,590)....|
00000510  f2 70 72 69 6e 74 28 67  65 74 24 2c 35 31 30 29  |.print(get$,510)|
00000520  0d 02 b2 16 f2 70 72 69  6e 74 28 65 6e 74 65 72  |.....print(enter|
00000530  24 2c 34 32 30 29 0d 02  bc 05 e1 0d 02 c6 04 0d  |$,420)..........|
00000540  02 d0 11 dd a4 6b 65 79  28 69 6e 6b 65 79 25 29  |.....key(inkey%)|
00000550  0d 02 da 15 ea 20 6b 65  79 64 65 73 63 24 2c 6b  |..... keydesc$,k|
00000560  65 79 6e 6f 25 0d 02 e4  05 f7 0d 02 ee 05 f5 0d  |eyno%...........|
00000570  02 f8 15 f3 20 6b 65 79  64 65 73 63 24 2c 6b 65  |.... keydesc$,ke|
00000580  79 6e 6f 25 0d 03 02 24  fd 20 6b 65 79 64 65 73  |yno%...$. keydes|
00000590  63 24 3d 22 45 4e 44 22  20 84 20 6b 65 79 6e 6f  |c$="END" . keyno|
000005a0  25 3d 69 6e 6b 65 79 25  0d 03 0c 21 e7 20 6b 65  |%=inkey%...!. ke|
000005b0  79 64 65 73 63 24 3d 22  45 4e 44 22 20 8c 6b 65  |ydesc$="END" .ke|
000005c0  79 64 65 73 63 24 3d 22  22 0d 03 16 24 6b 65 79  |ydesc$=""...$key|
000005d0  64 65 73 63 24 3d c2 22  20 20 20 20 20 20 20 20  |desc$=."        |
000005e0  22 2b 6b 65 79 64 65 73  63 24 2c 38 29 0d 03 20  |"+keydesc$,8).. |
000005f0  0d 3d 6b 65 79 64 65 73  63 24 0d 03 2a 04 0d 03  |.=keydesc$..*...|
00000600  34 04 0d 03 3e 11 dd f2  6c 6f 61 64 73 70 72 69  |4...>...loadspri|
00000610  74 65 73 0d 03 48 10 73  69 7a 65 3d 26 34 30 30  |tes..H.size=&400|
00000620  2a 35 30 0d 03 52 1b de  20 73 70 20 73 69 7a 65  |*50..R.. sp size|
00000630  2c 64 65 63 72 75 6e 63  68 20 73 69 7a 65 0d 03  |,decrunch size..|
00000640  5c 2d ff 22 4c 6f 61 64  20 3c 50 72 65 48 69 73  |\-."Load <PreHis|
00000650  74 24 44 69 72 3e 2e 47  72 61 66 69 78 2e 43 68  |t$Dir>.Grafix.Ch|
00000660  72 53 65 74 20 22 2b c3  7e 73 70 0d 03 66 09 41  |rSet "+.~sp..f.A|
00000670  25 3d 73 70 0d 03 70 0f  42 25 3d 64 65 63 72 75  |%=sp..p.B%=decru|
00000680  6e 63 68 0d 03 7a 0c d6  20 64 65 63 6f 64 65 0d  |nch..z.. decode.|
00000690  03 84 18 eb 20 31 33 3a  ef 20 32 33 2c 31 2c 30  |.... 13:. 23,1,0|
000006a0  3b 30 3b 30 3b 30 3b 0d  03 8e 15 e3 20 62 61 6e  |;0;0;0;..... ban|
000006b0  6b 25 3d 32 20 b8 20 31  20 88 2d 31 0d 03 98 1a  |k%=2 . 1 .-1....|
000006c0  ff 22 46 58 20 31 31 33  20 22 2b c3 28 62 61 6e  |."FX 113 "+.(ban|
000006d0  6b 25 20 82 33 29 0d 03  a2 15 ff 22 46 58 20 31  |k% .3)....."FX 1|
000006e0  31 32 20 22 2b c3 62 61  6e 6b 25 0d 03 ac 05 db  |12 "+.bank%.....|
000006f0  0d 03 b6 05 ed 0d 03 c0  0b 62 61 6e 6b 25 3d 31  |.........bank%=1|
00000700  0d 03 ca 05 e1 0d 03 d4  04 0d 03 de 04 0d 03 e8  |................|
00000710  0d dd f2 61 73 73 65 6d  62 6c 0d 03 f2 0f de 20  |...assembl..... |
00000720  63 6f 64 65 20 26 34 30  30 0d 03 fc 0b 50 25 3d  |code &400....P%=|
00000730  63 6f 64 65 0d 04 06 14  e3 20 6f 70 74 25 3d 30  |code..... opt%=0|
00000740  20 b8 20 32 20 88 20 32  0d 04 10 0a 73 72 63 25  | . 2 . 2....src%|
00000750  3d 30 0d 04 1a 0a 6c 65  6e 25 3d 31 0d 04 24 0a  |=0....len%=1..$.|
00000760  64 73 74 25 3d 32 0d 04  2e 0d 73 72 63 70 6e 74  |dst%=2....srcpnt|
00000770  25 3d 33 0d 04 38 0d 64  73 74 70 6e 74 25 3d 34  |%=3..8.dstpnt%=4|
00000780  0d 04 42 0b 62 79 74 65  25 3d 35 0d 04 4c 0b 6c  |..B.byte%=5..L.l|
00000790  61 73 74 25 3d 36 0d 04  56 0d 72 65 70 65 61 74  |ast%=6..V.repeat|
000007a0  25 3d 37 0d 04 60 0c 72  65 70 6e 6f 25 3d 38 0d  |%=7..`.repno%=8.|
000007b0  04 6a 04 0d 04 74 0b 50  25 3d 63 6f 64 65 0d 04  |.j...t.P%=code..|
000007c0  7e 0d 5b 4f 50 54 20 6f  70 74 25 0d 04 88 0b 2e  |~.[OPT opt%.....|
000007d0  64 65 63 6f 64 65 0d 04  92 1b 53 54 4d 46 44 20  |decode....STMFD |
000007e0  52 31 33 21 2c 7b 52 30  2d 52 31 32 2c 52 31 34  |R13!,{R0-R12,R14|
000007f0  7d 0d 04 9c 18 3b 20 41  25 3d 20 73 6f 75 72 63  |}....; A%= sourc|
00000800  65 20 61 64 64 72 65 73  73 0d 04 a6 1d 3b 20 42  |e address....; B|
00000810  25 3d 20 64 65 73 74 69  6e 61 74 69 6f 6e 20 61  |%= destination a|
00000820  64 64 72 65 73 73 0d 04  b0 0d 4d 4f 56 20 52 32  |ddress....MOV R2|
00000830  2c 52 31 0d 04 ba 14 4d  4f 56 20 73 72 63 70 6e  |,R1....MOV srcpn|
00000840  74 25 2c 73 72 63 25 0d  04 c4 14 4d 4f 56 20 64  |t%,src%....MOV d|
00000850  73 74 70 6e 74 25 2c 64  73 74 25 0d 04 ce 10 4d  |stpnt%,dst%....M|
00000860  56 4e 20 6c 61 73 74 25  2c 23 30 0d 04 d8 10 4d  |VN last%,#0....M|
00000870  4f 56 20 62 79 74 65 25  2c 23 30 0d 04 e2 11 4d  |OV byte%,#0....M|
00000880  4f 56 20 72 65 70 6e 6f  25 2c 23 30 0d 04 ec 19  |OV repno%,#0....|
00000890  4c 44 52 20 6c 65 6e 25  2c 5b 73 72 63 70 6e 74  |LDR len%,[srcpnt|
000008a0  25 5d 2c 23 34 0d 04 f6  09 2e 6c 6f 6f 70 0d 05  |%],#4.....loop..|
000008b0  00 1b 4c 44 52 42 20 62  79 74 65 25 2c 5b 73 72  |..LDRB byte%,[sr|
000008c0  63 70 6e 74 25 5d 2c 23  31 0d 05 0a 13 43 4d 50  |cpnt%],#1....CMP|
000008d0  20 62 79 74 65 25 2c 6c  61 73 74 25 0d 05 14 10  | byte%,last%....|
000008e0  42 4e 45 20 6e 6f 72 65  70 65 61 74 0d 05 1e 44  |BNE norepeat...D|
000008f0  20 20 4c 44 52 42 20 72  65 70 6e 6f 25 2c 5b 73  |  LDRB repno%,[s|
00000900  72 63 70 6e 74 25 5d 2c  23 31 3a 53 55 42 20 6c  |rcpnt%],#1:SUB l|
00000910  65 6e 25 2c 6c 65 6e 25  2c 23 31 3a 41 44 44 20  |en%,len%,#1:ADD |
00000920  72 65 70 6e 6f 25 2c 72  65 70 6e 6f 25 2c 23 31  |repno%,repno%,#1|
00000930  0d 05 28 0e 20 20 2e 72  65 70 6c 6f 6f 70 0d 05  |..(.  .reploop..|
00000940  32 1d 20 20 20 20 53 55  42 53 20 72 65 70 6e 6f  |2.    SUBS repno|
00000950  25 2c 72 65 70 6e 6f 25  2c 23 31 0d 05 3c 12 20  |%,repno%,#1..<. |
00000960  20 20 20 42 4c 54 20 72  65 70 65 6e 64 0d 05 46  |   BLT repend..F|
00000970  1f 20 20 20 20 53 54 52  42 20 62 79 74 65 25 2c  |.    STRB byte%,|
00000980  5b 64 73 74 70 6e 74 25  5d 2c 23 31 0d 05 50 14  |[dstpnt%],#1..P.|
00000990  20 20 20 20 4d 56 4e 20  6c 61 73 74 25 2c 23 30  |    MVN last%,#0|
000009a0  0d 05 5a 11 20 20 20 20  42 20 72 65 70 6c 6f 6f  |..Z.    B reploo|
000009b0  70 0d 05 64 0d 20 20 2e  72 65 70 65 6e 64 0d 05  |p..d.  .repend..|
000009c0  6e 0f 20 20 42 20 6c 6f  6f 70 65 6e 64 0d 05 78  |n.  B loopend..x|
000009d0  0d 2e 6e 6f 72 65 70 65  61 74 0d 05 82 1d 20 20  |..norepeat....  |
000009e0  53 54 52 42 20 62 79 74  65 25 2c 5b 64 73 74 70  |STRB byte%,[dstp|
000009f0  6e 74 25 5d 2c 23 31 0d  05 8c 15 20 20 4d 4f 56  |nt%],#1....  MOV|
00000a00  20 6c 61 73 74 25 2c 62  79 74 65 25 0d 05 96 0c  | last%,byte%....|
00000a10  2e 6c 6f 6f 70 65 6e 64  0d 05 a0 15 53 55 42 53  |.loopend....SUBS|
00000a20  20 6c 65 6e 25 2c 6c 65  6e 25 2c 23 31 0d 05 aa  | len%,len%,#1...|
00000a30  0c 42 47 54 20 6c 6f 6f  70 0d 05 b4 0f 2e 65 6e  |.BGT loop.....en|
00000a40  64 72 6f 75 74 69 6e 65  0d 05 be 1b 4c 44 4d 46  |droutine....LDMF|
00000a50  44 20 52 31 33 21 2c 7b  52 30 2d 52 31 32 2c 52  |D R13!,{R0-R12,R|
00000a60  31 35 7d 0d 05 c8 07 5d  3a ed 0d 05 d2 05 e1 0d  |15}....]:.......|
00000a70  05 dc 04 0d 05 e6 0f dd  f2 73 65 74 75 70 6b 65  |.........setupke|
00000a80  79 73 0d 05 f0 0d de 20  6b 65 79 73 20 32 30 0d  |ys..... keys 20.|
00000a90  05 fa 2f ff 22 4c 6f 61  64 20 3c 50 72 65 48 69  |../."Load <PreHi|
00000aa0  73 74 24 44 69 72 3e 2e  4d 69 73 63 44 61 74 61  |st$Dir>.MiscData|
00000ab0  2e 4b 65 79 73 20 22 2b  c3 7e 6b 65 79 73 0d 06  |.Keys "+.~keys..|
00000ac0  04 05 e1 0d 06 0e 04 0d  06 18 12 dd f2 70 72 69  |.............pri|
00000ad0  6e 74 28 61 24 2c 79 25  29 0d 06 22 0d ea 20 78  |nt(a$,y%)..".. x|
00000ae0  25 2c 63 68 72 25 0d 06  2c 13 78 25 3d 36 34 30  |%,chr%..,.x%=640|
00000af0  2d a9 28 61 24 29 2a 33  32 0d 06 36 12 e3 20 63  |-.(a$)*32..6.. c|
00000b00  68 72 25 3d 31 20 b8 20  a9 61 24 0d 06 40 3f 20  |hr%=1 . .a$..@? |
00000b10  20 c8 99 20 26 32 45 2c  32 39 30 2c 64 65 63 72  | .. &2E,290,decr|
00000b20  75 6e 63 68 2c c3 28 97  28 c1 61 24 2c 63 68 72  |unch,.(.(.a$,chr|
00000b30  25 2c 31 29 29 29 2c 78  25 2b 28 63 68 72 25 2d  |%,1))),x%+(chr%-|
00000b40  31 29 2a 36 34 2c 79 25  2c 30 0d 06 4a 05 ed 0d  |1)*64,y%,0..J...|
00000b50  06 54 05 e1 0d 06 5e 04  0d 06 68 6d dc 20 50 52  |.T....^...hm. PR|
00000b60  49 4e 54 2c 2d 33 33 2c  46 31 2c 2d 31 31 34 2c  |INT,-33,F1,-114,|
00000b70  46 32 2c 2d 31 31 35 2c  46 33 2c 2d 31 31 36 2c  |F2,-115,F3,-116,|
00000b80  46 34 2c 2d 32 31 2c 46  35 2c 2d 31 31 37 2c 46  |F4,-21,F5,-117,F|
00000b90  36 2c 2d 31 31 38 2c 46  37 2c 2d 32 33 2c 46 38  |6,-118,F7,-23,F8|
00000ba0  2c 2d 31 31 39 2c 46 39  2c 2d 31 32 30 2c 46 31  |,-119,F9,-120,F1|
00000bb0  30 2c 2d 33 31 2c 46 31  31 2c 2d 32 39 2c 46 31  |0,-31,F11,-29,F1|
00000bc0  32 2c 2d 33 30 0d 06 72  04 0d 06 7c 9e dc 20 41  |2,-30..r...|.. A|
00000bd0  2c 2d 36 36 2c 42 2c 2d  31 30 31 2c 43 2c 2d 38  |,-66,B,-101,C,-8|
00000be0  33 2c 44 2c 2d 35 31 2c  45 2c 2d 33 35 2c 46 2c  |3,D,-51,E,-35,F,|
00000bf0  2d 36 38 2c 47 2c 2d 38  34 2c 48 2c 2d 38 35 2c  |-68,G,-84,H,-85,|
00000c00  49 2c 2d 33 38 2c 4a 2c  2d 37 30 2c 4b 2c 2d 37  |I,-38,J,-70,K,-7|
00000c10  31 2c 4c 2c 2d 38 37 2c  4d 2c 2d 31 30 32 2c 4e  |1,L,-87,M,-102,N|
00000c20  2c 2d 38 36 2c 4f 2c 2d  35 35 2c 51 2c 2d 31 37  |,-86,O,-55,Q,-17|
00000c30  2c 52 2c 2d 35 32 2c 53  2c 2d 38 32 2c 54 2c 2d  |,R,-52,S,-82,T,-|
00000c40  33 36 2c 55 2c 2d 35 34  2c 56 2c 2d 31 30 30 2c  |36,U,-54,V,-100,|
00000c50  57 2c 2d 33 34 2c 58 2c  2d 36 37 2c 59 2c 2d 36  |W,-34,X,-67,Y,-6|
00000c60  39 2c 5a 2c 2d 39 38 0d  06 86 04 0d 06 90 41 dc  |9,Z,-98.......A.|
00000c70  20 30 2c 2d 34 30 2c 31  2c 2d 34 39 2c 32 2c 2d  | 0,-40,1,-49,2,-|
00000c80  35 30 2c 33 2c 2d 31 38  2c 34 2c 2d 31 39 2c 35  |50,3,-18,4,-19,5|
00000c90  2c 2d 32 30 2c 36 2c 2d  35 33 2c 37 2c 2d 33 37  |,-20,6,-53,7,-37|
00000ca0  2c 38 2c 2d 32 32 2c 39  2c 2d 33 39 0d 06 9a 04  |,8,-22,9,-39....|
00000cb0  0d 06 a4 96 dc 20 22 2c  22 2c 2d 31 30 33 2c 2d  |..... ",",-103,-|
00000cc0  2c 2d 32 34 2c 2e 2c 2d  31 30 34 2c 2f 2c 2d 31  |,-24,.,-104,/,-1|
00000cd0  30 35 2c 5b 2c 2d 35 37  2c 5c 2c 2d 31 32 31 2c  |05,[,-57,\,-121,|
00000ce0  5d 2c 2d 38 39 2c 3b 2c  2d 38 38 2c 54 41 42 2c  |],-89,;,-88,TAB,|
00000cf0  2d 39 37 2c 43 41 50 53  4c 4f 43 4b 2c 2d 36 35  |-97,CAPSLOCK,-65|
00000d00  2c 53 43 52 4f 4c 4c 2c  2d 33 32 2c 4e 55 4d 4c  |,SCROLL,-32,NUML|
00000d10  4f 43 4b 2c 2d 37 38 2c  42 52 45 41 4b 2c 2d 34  |OCK,-78,BREAK,-4|
00000d20  35 2c 60 2c 2d 34 36 2c  43 55 52 52 45 4e 43 59  |5,`,-46,CURRENCY|
00000d30  2c 2d 34 37 2c 42 41 43  4b 20 53 50 2c 2d 34 38  |,-47,BACK SP,-48|
00000d40  2c 3d 2c 2d 39 34 0d 06  a5 04 0d 06 ae 38 dc 20  |,=,-94.......8. |
00000d50  49 4e 53 45 52 54 2c 2d  36 32 2c 48 4f 4d 45 2c  |INSERT,-62,HOME,|
00000d60  2d 36 33 2c 50 41 47 45  20 55 50 2c 2d 36 34 2c  |-63,PAGE UP,-64,|
00000d70  50 41 47 45 20 44 57 4e  2c 2d 37 39 2c 27 2c 2d  |PAGE DWN,-79,',-|
00000d80  38 30 0d 06 b8 04 0d 06  c2 7a dc 20 53 48 49 46  |80.......z. SHIF|
00000d90  54 2c 2d 31 2c 43 54 52  4c 2c 2d 32 2c 41 4c 54  |T,-1,CTRL,-2,ALT|
00000da0  2c 2d 33 2c 53 50 41 43  45 2c 2d 39 39 2c 44 45  |,-3,SPACE,-99,DE|
00000db0  4c 45 54 45 2c 2d 39 30  2c 52 45 54 55 52 4e 2c  |LETE,-90,RETURN,|
00000dc0  2d 37 34 2c 43 50 59 2c  2d 31 30 36 2c 43 55 52  |-74,CPY,-106,CUR|
00000dd0  53 20 55 50 2c 2d 35 38  2c 43 55 52 53 20 4c 46  |S UP,-58,CURS LF|
00000de0  54 2c 2d 32 36 2c 43 55  52 53 20 52 47 54 2c 2d  |T,-26,CURS RGT,-|
00000df0  31 32 32 2c 43 55 52 53  20 44 57 4e 2c 2d 34 32  |122,CURS DWN,-42|
00000e00  0d 06 cc 04 0d 06 d6 a8  dc 20 4b 50 20 30 2c 2d  |......... KP 0,-|
00000e10  31 30 37 2c 4b 50 20 31  2c 2d 31 30 38 2c 4b 50  |107,KP 1,-108,KP|
00000e20  20 32 2c 2d 31 32 35 2c  4b 50 20 33 2c 2d 31 30  | 2,-125,KP 3,-10|
00000e30  39 2c 4b 50 20 34 2c 2d  31 32 33 2c 4b 50 20 35  |9,KP 4,-123,KP 5|
00000e40  2c 2d 31 32 34 2c 4b 50  20 36 2c 2d 32 37 2c 4b  |,-124,KP 6,-27,K|
00000e50  50 20 37 2c 2d 32 38 2c  4b 50 20 38 2c 2d 34 33  |P 7,-28,KP 8,-43|
00000e60  2c 4b 50 20 39 2c 2d 34  34 2c 4b 50 20 2b 2c 2d  |,KP 9,-44,KP +,-|
00000e70  35 39 2c 4b 50 20 2d 2c  2d 36 30 2c 4b 50 20 2e  |59,KP -,-60,KP .|
00000e80  2c 2d 37 37 2c 4b 50 20  2f 2c 2d 37 35 2c 4b 50  |,-77,KP /,-75,KP|
00000e90  20 23 2c 2d 39 31 2c 4b  50 20 2a 2c 2d 39 32 2c  | #,-91,KP *,-92,|
00000ea0  4b 50 20 45 4e 54 45 52  2c 2d 36 31 0d 06 e0 04  |KP ENTER,-61....|
00000eb0  0d 06 ea 24 dc 20 53 45  4c 45 43 54 2c 2d 31 30  |...$. SELECT,-10|
00000ec0  2c 4d 45 4e 55 2c 2d 31  31 2c 41 44 4a 55 53 54  |,MENU,-11,ADJUST|
00000ed0  2c 2d 31 32 0d 06 f4 0b  dc 20 45 4e 44 2c 30 0d  |,-12..... END,0.|
00000ee0  06 fe 04 0d 07 08 0f dd  f2 73 77 61 70 62 61 6e  |.........swapban|
00000ef0  6b 73 0d 07 12 15 ff 22  46 58 20 31 31 33 2c 22  |ks....."FX 113,"|
00000f00  2b c3 62 61 6e 6b 25 0d  07 1c 11 62 61 6e 6b 25  |+.bank%....bank%|
00000f10  3d 33 2d 62 61 6e 6b 25  0d 07 26 15 ff 22 46 58  |=3-bank%..&.."FX|
00000f20  20 31 31 32 2c 22 2b c3  62 61 6e 6b 25 0d 07 30  | 112,"+.bank%..0|
00000f30  05 e1 0d ff                                       |....|
00000f34