!�> <PreHist$Dir>.Code.Loading
ș "Wimp_CommandWindow",,-1
� 15
�assembl
(�loadingscreen
F�
P
���loadingscreen
�size=&400*100
�
�� sp size,decrunch size
�
�1�"Load <PreHist$Dir>.Grafix.LoadScreen "+�~sp
�	A%=sp
�B%=decrunch
�� decode
�

� 13:� 23,1,0;0;0;0;



� bank%=1 � 2

"

,�"FX 112 "+�bank%

6�

@&ș &2E,290,decrunch,"Screen",0,0,0

T�

U� 19,0,24,&80,&0,&80

^

_
*FX 112 1

`
*FX 113 1

h�

r

|

�
��assembl

�

�� code &400

�

�P%=code

�

�� opt%=0 � 2 � 2

�
src%=0

�
len%=1

�
dst%=2

�
srcpnt%=3

�
dstpnt%=4

�byte%=5
last%=6

repeat%=7
repno%=8
&
0P%=code
:
[OPT opt%
D.decode
NSTMFD R13!,{R0-R12,R14}
X
b; A%= source address
l; B%= destination address
v
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
4    SUBS repno%,repno%,#1
>    BLT repend
H    STRB byte%,[dstpnt%],#1
R    MVN last%,#0
\    B reploop
f
  .repend
p  B loopend
z
.norepeat
�  STRB byte%,[dstpnt%],#1
�  MOV last%,byte%
�.loopend
�SUBS len%,len%,#1
�BGT loop
�
�.endroutine
�LDMFD R13!,{R0-R12,R15}
�]:�
��
�

00000000  0d 00 0a 21 f4 3e 20 3c  50 72 65 48 69 73 74 24  |...!.> <PreHist$|
00000010  44 69 72 3e 2e 43 6f 64  65 2e 4c 6f 61 64 69 6e  |Dir>.Code.Loadin|
00000020  67 0d 00 0b 1f c8 99 20  22 57 69 6d 70 5f 43 6f  |g...... "Wimp_Co|
00000030  6d 6d 61 6e 64 57 69 6e  64 6f 77 22 2c 2c 2d 31  |mmandWindow",,-1|
00000040  0d 00 0c 08 eb 20 31 35  0d 00 14 0c f2 61 73 73  |..... 15.....ass|
00000050  65 6d 62 6c 0d 00 28 12  f2 6c 6f 61 64 69 6e 67  |embl..(..loading|
00000060  73 63 72 65 65 6e 0d 00  46 05 e0 0d 00 50 04 0d  |screen..F....P..|
00000070  00 a0 13 dd f2 6c 6f 61  64 69 6e 67 73 63 72 65  |.....loadingscre|
00000080  65 6e 0d 00 aa 11 73 69  7a 65 3d 26 34 30 30 2a  |en....size=&400*|
00000090  31 30 30 0d 00 b4 04 0d  00 be 1b de 20 73 70 20  |100......... sp |
000000a0  73 69 7a 65 2c 64 65 63  72 75 6e 63 68 20 73 69  |size,decrunch si|
000000b0  7a 65 0d 00 c8 04 0d 00  d2 31 ff 22 4c 6f 61 64  |ze.......1."Load|
000000c0  20 3c 50 72 65 48 69 73  74 24 44 69 72 3e 2e 47  | <PreHist$Dir>.G|
000000d0  72 61 66 69 78 2e 4c 6f  61 64 53 63 72 65 65 6e  |rafix.LoadScreen|
000000e0  20 22 2b c3 7e 73 70 0d  00 dc 09 41 25 3d 73 70  | "+.~sp....A%=sp|
000000f0  0d 00 e6 0f 42 25 3d 64  65 63 72 75 6e 63 68 0d  |....B%=decrunch.|
00000100  00 f0 0c d6 20 64 65 63  6f 64 65 0d 00 fa 04 0d  |.... decode.....|
00000110  01 04 18 eb 20 31 33 3a  ef 20 32 33 2c 31 2c 30  |.... 13:. 23,1,0|
00000120  3b 30 3b 30 3b 30 3b 0d  01 0e 04 0d 01 18 11 e3  |;0;0;0;.........|
00000130  20 62 61 6e 6b 25 3d 31  20 b8 20 32 0d 01 22 04  | bank%=1 . 2..".|
00000140  0d 01 2c 15 ff 22 46 58  20 31 31 32 20 22 2b c3  |..,.."FX 112 "+.|
00000150  62 61 6e 6b 25 0d 01 36  05 db 0d 01 40 26 c8 99  |bank%..6....@&..|
00000160  20 26 32 45 2c 32 39 30  2c 64 65 63 72 75 6e 63  | &2E,290,decrunc|
00000170  68 2c 22 53 63 72 65 65  6e 22 2c 30 2c 30 2c 30  |h,"Screen",0,0,0|
00000180  0d 01 54 05 ed 0d 01 55  18 ef 20 31 39 2c 30 2c  |..T....U.. 19,0,|
00000190  32 34 2c 26 38 30 2c 26  30 2c 26 38 30 0d 01 5e  |24,&80,&0,&80..^|
000001a0  04 0d 01 5f 0d 2a 46 58  20 31 31 32 20 31 0d 01  |..._.*FX 112 1..|
000001b0  60 0d 2a 46 58 20 31 31  33 20 31 0d 01 68 05 e1  |`.*FX 113 1..h..|
000001c0  0d 01 72 04 0d 01 7c 04  0d 01 86 0d dd f2 61 73  |..r...|.......as|
000001d0  73 65 6d 62 6c 0d 01 90  04 0d 01 9a 0f de 20 63  |sembl......... c|
000001e0  6f 64 65 20 26 34 30 30  0d 01 a4 04 0d 01 ae 0b  |ode &400........|
000001f0  50 25 3d 63 6f 64 65 0d  01 b8 04 0d 01 c2 14 e3  |P%=code.........|
00000200  20 6f 70 74 25 3d 30 20  b8 20 32 20 88 20 32 0d  | opt%=0 . 2 . 2.|
00000210  01 cc 0a 73 72 63 25 3d  30 0d 01 d6 0a 6c 65 6e  |...src%=0....len|
00000220  25 3d 31 0d 01 e0 0a 64  73 74 25 3d 32 0d 01 ea  |%=1....dst%=2...|
00000230  0d 73 72 63 70 6e 74 25  3d 33 0d 01 f4 0d 64 73  |.srcpnt%=3....ds|
00000240  74 70 6e 74 25 3d 34 0d  01 fe 0b 62 79 74 65 25  |tpnt%=4....byte%|
00000250  3d 35 0d 02 08 0b 6c 61  73 74 25 3d 36 0d 02 12  |=5....last%=6...|
00000260  0d 72 65 70 65 61 74 25  3d 37 0d 02 1c 0c 72 65  |.repeat%=7....re|
00000270  70 6e 6f 25 3d 38 0d 02  26 04 0d 02 30 0b 50 25  |pno%=8..&...0.P%|
00000280  3d 63 6f 64 65 0d 02 3a  0d 5b 4f 50 54 20 6f 70  |=code..:.[OPT op|
00000290  74 25 0d 02 44 0b 2e 64  65 63 6f 64 65 0d 02 4e  |t%..D..decode..N|
000002a0  1b 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 30 2d  |.STMFD R13!,{R0-|
000002b0  52 31 32 2c 52 31 34 7d  0d 02 58 04 0d 02 62 18  |R12,R14}..X...b.|
000002c0  3b 20 41 25 3d 20 73 6f  75 72 63 65 20 61 64 64  |; A%= source add|
000002d0  72 65 73 73 0d 02 6c 1d  3b 20 42 25 3d 20 64 65  |ress..l.; B%= de|
000002e0  73 74 69 6e 61 74 69 6f  6e 20 61 64 64 72 65 73  |stination addres|
000002f0  73 0d 02 76 0d 4d 4f 56  20 52 32 2c 52 31 0d 02  |s..v.MOV R2,R1..|
00000300  80 04 0d 02 8a 14 4d 4f  56 20 73 72 63 70 6e 74  |......MOV srcpnt|
00000310  25 2c 73 72 63 25 0d 02  94 14 4d 4f 56 20 64 73  |%,src%....MOV ds|
00000320  74 70 6e 74 25 2c 64 73  74 25 0d 02 9e 04 0d 02  |tpnt%,dst%......|
00000330  a8 10 4d 56 4e 20 6c 61  73 74 25 2c 23 30 0d 02  |..MVN last%,#0..|
00000340  b2 10 4d 4f 56 20 62 79  74 65 25 2c 23 30 0d 02  |..MOV byte%,#0..|
00000350  bc 04 0d 02 c6 11 4d 4f  56 20 72 65 70 6e 6f 25  |......MOV repno%|
00000360  2c 23 30 0d 02 d0 04 0d  02 da 19 4c 44 52 20 6c  |,#0........LDR l|
00000370  65 6e 25 2c 5b 73 72 63  70 6e 74 25 5d 2c 23 34  |en%,[srcpnt%],#4|
00000380  0d 02 e4 04 0d 02 ee 04  0d 02 f8 09 2e 6c 6f 6f  |.............loo|
00000390  70 0d 03 02 1b 4c 44 52  42 20 62 79 74 65 25 2c  |p....LDRB byte%,|
000003a0  5b 73 72 63 70 6e 74 25  5d 2c 23 31 0d 03 0c 13  |[srcpnt%],#1....|
000003b0  43 4d 50 20 62 79 74 65  25 2c 6c 61 73 74 25 0d  |CMP byte%,last%.|
000003c0  03 16 10 42 4e 45 20 6e  6f 72 65 70 65 61 74 0d  |...BNE norepeat.|
000003d0  03 20 44 20 20 4c 44 52  42 20 72 65 70 6e 6f 25  |. D  LDRB repno%|
000003e0  2c 5b 73 72 63 70 6e 74  25 5d 2c 23 31 3a 53 55  |,[srcpnt%],#1:SU|
000003f0  42 20 6c 65 6e 25 2c 6c  65 6e 25 2c 23 31 3a 41  |B len%,len%,#1:A|
00000400  44 44 20 72 65 70 6e 6f  25 2c 72 65 70 6e 6f 25  |DD repno%,repno%|
00000410  2c 23 31 0d 03 2a 0e 20  20 2e 72 65 70 6c 6f 6f  |,#1..*.  .reploo|
00000420  70 0d 03 34 1d 20 20 20  20 53 55 42 53 20 72 65  |p..4.    SUBS re|
00000430  70 6e 6f 25 2c 72 65 70  6e 6f 25 2c 23 31 0d 03  |pno%,repno%,#1..|
00000440  3e 12 20 20 20 20 42 4c  54 20 72 65 70 65 6e 64  |>.    BLT repend|
00000450  0d 03 48 1f 20 20 20 20  53 54 52 42 20 62 79 74  |..H.    STRB byt|
00000460  65 25 2c 5b 64 73 74 70  6e 74 25 5d 2c 23 31 0d  |e%,[dstpnt%],#1.|
00000470  03 52 14 20 20 20 20 4d  56 4e 20 6c 61 73 74 25  |.R.    MVN last%|
00000480  2c 23 30 0d 03 5c 11 20  20 20 20 42 20 72 65 70  |,#0..\.    B rep|
00000490  6c 6f 6f 70 0d 03 66 0d  20 20 2e 72 65 70 65 6e  |loop..f.  .repen|
000004a0  64 0d 03 70 0f 20 20 42  20 6c 6f 6f 70 65 6e 64  |d..p.  B loopend|
000004b0  0d 03 7a 0d 2e 6e 6f 72  65 70 65 61 74 0d 03 84  |..z..norepeat...|
000004c0  1d 20 20 53 54 52 42 20  62 79 74 65 25 2c 5b 64  |.  STRB byte%,[d|
000004d0  73 74 70 6e 74 25 5d 2c  23 31 0d 03 8e 15 20 20  |stpnt%],#1....  |
000004e0  4d 4f 56 20 6c 61 73 74  25 2c 62 79 74 65 25 0d  |MOV last%,byte%.|
000004f0  03 98 0c 2e 6c 6f 6f 70  65 6e 64 0d 03 a2 15 53  |....loopend....S|
00000500  55 42 53 20 6c 65 6e 25  2c 6c 65 6e 25 2c 23 31  |UBS len%,len%,#1|
00000510  0d 03 ac 0c 42 47 54 20  6c 6f 6f 70 0d 03 b6 04  |....BGT loop....|
00000520  0d 03 c0 0f 2e 65 6e 64  72 6f 75 74 69 6e 65 0d  |.....endroutine.|
00000530  03 ca 1b 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |...LDMFD R13!,{R|
00000540  30 2d 52 31 32 2c 52 31  35 7d 0d 03 d4 07 5d 3a  |0-R12,R15}....]:|
00000550  ed 0d 03 de 05 e1 0d ff                           |........|
00000558