� >MakePop
� 
9� Syntax: *MakePop <in file> <out file> [-nopreshift]
(:
2� � �"Shut":�:�" (";�;")":�
<:
F0key$="basic,quit/s,file,in,out,nopreshift/s"
Pș "OS_GetEnv" � cline%
Z7�SYS "OS_File",10,"$.cline",&FFD,,cline%,cline%+256
d� out% 1024
n*ș "OS_ReadArgs",key$,cline%,out%,1024
x:
�$in$=�z(out%!12):out$=�z(out%!16)
�/� out%!20=0 � nopreshift%=� � nopreshift%=�
�:
�
�assemble
�� sprite_area% (�-�)-4096
�� blk% 128,a%(3)
�3�INPUT"Sprite file: <Hive$Dir>.^.Originals."in$
�C�out$="<Hive$Dir>.Graphics."+in$:PRINT"Raw data going to ";out$
�&�in$="<Hive$Dir>.^.Originals."+in$
�"ș "OS_File",23,in$ � ,,,,len%
��DIM sprite_area% len%+1024
�.sprite_area%!0=len%+1024:sprite_area%!8=16
�'ș "OS_SpriteOp",9+256,sprite_area%

,ș "OS_SpriteOp",10+256,sprite_area%,in$

Kș "OS_SpriteOp",8+256,sprite_area% � ,,,,sprite%:sprite%+=sprite_area%

sprite$=�z(sprite%+4)

"0ș "OS_SpriteOp",54+256,sprite_area%,sprite$

,image%=sprite%+sprite%!32

6mask%=sprite%+sprite%!36

@E� mask%=image% � �0,"No mask found":use_colour%=� � use_colour%=�

Jlast%=3-(sprite%!28>>3)

T6columns%=(sprite%!16+1)*4-last%:rows%=sprite%!20+1

^E� "Name: "sprite$'"Size: ";columns%;",";rows%;" (";len%;" bytes)"

h3� sprite%!24<>0 � � 0,"Left-hand wastage found"

ro%=�(out$)

|>blk%!0=columns%-1:blk%!4=rows%-1:ș "OS_GBPB",2,o%,blk%,32

�%ș "OS_Args",3,o%,�#o%+(rows%*16)

�
�#o%=�#o%

�:

�-� nopreshift% � align%=0 � � align%=0 � 3

�1�word_write(8+(align%*4),32+(4*align%*rows%))

�addr%=0:blk%!0=0

�'�"-- Calculating alignment ";align%

�� y%=1 � rows%

�@�word_write(32+(4*align%*rows%)+(y%-1)*4,�#o%):shift%=align%

�!nextrow%=addr%+columns%+last%

��

�@� use_colour% � A%=image%+addr%:C%=0 � A%=mask%+addr%:C%=255

�<B%=nextrow%-last%-addr%:consec%=�(count%):�PRINT~consec%
�word(consec%)
#�PRINT image%?addr%,mask%?addr%
!�IF y%=20 THEN PRINT ~consec%
&� (consec%>>24)=1 �
0 �PRINT shift%
:I � shift%>0 � (� nopreshift%) � !blk%=0:ș "OS_GBPB",2,o%,blk%,shift%
D3 ș "OS_GBPB",2,o%,addr%+image%,consec% � &FFFF
N�
X�shift%=PTR#o% AND 3
b)shift%=(shift%+(consec% � &FFFF)) � 3
l
�align
vaddr%+=consec% � &FFFF
�� addr%>=nextrow%-last%
��word(0)
�addr%=nextrow%
��
�� nopreshift%=� � �
�!ș "OS_Args",2,o% � ,,length%
�+�'"Resultant file is ";length%;" bytes"
��#o%
�ș "Wimp_CommandWindow",-1
��
�:
���word_write(offset%,word%)
��PRINT ~offset%,~word%
��move_ptr(offset%)
�word(word%)
�restore_ptr
�
 :
*��move_ptr(offset%)
4%ș "OS_Args",0,o% � ,,old_extent%
>ș "OS_Args",1,o%,offset%
H�
R:
\��restore_ptr
f!ș "OS_Args",1,o%,old_extent%
p�
z:
���word(w%)
�%!blk%=w%:ș "OS_GBPB",2,o%,blk%,4
��
�:
���align
�� a%
�a%=�#o% � 3
�8� a%<>0 � blk%!124=0:ș "OS_GBPB",2,o%,blk%+124,4-a%
��
�:
�3ݤz(p%):s$="":ȕ ?p%>=32:s$+=�(?p%):p%+=1:�:=s$
�:
���assemble
� count% 256
� pass%=8 � 10 � 2
P%=count%:L%=P%+256
$[OPT pass%
.;
8 ; Enter with        R0 > row
B(;                   R1 = max. length
LC;                   R2 = colour 0 indicator (255 if using mask)
V;; Exits with        R0 = appropriate type word (1 or 2)
`;
j          MOV       R5,R2
t"          LDRB      R2,[R0],#1
~          MOV       R3,#1
�          MOV       R4,R1
�.count_loop%
�"          LDRB      R1,[R0],#1
�          CMP       R1,R2
�*          BNE       finished_counting%
�           ADD       R3,R3,#1
�          CMP       R3,R4
�*          BEQ       finished_counting%
�#          B         count_loop%
�.finished_counting%
�          MOV       R0,R3
�          CMP       R5,#255
!          BEQ       use_mask%

          CMP       R2,#0
'          �REQ     R0,R0,#&02000000
'          �RNE     R0,R0,#&01000000
(          MOV       PC,R14
2.use_mask%
<          CMP       R2,#255
F'          �REQ     R0,R0,#&01000000
P'          �RNE     R0,R0,#&02000000
Z          MOV       PC,R14
d]:�
n�
�

00000000  0d 00 0a 0e f4 20 3e 4d  61 6b 65 50 6f 70 0d 00  |..... >MakePop..|
00000010  14 06 f4 20 0d 00 1e 39  f4 20 53 79 6e 74 61 78  |... ...9. Syntax|
00000020  3a 20 2a 4d 61 6b 65 50  6f 70 20 3c 69 6e 20 66  |: *MakePop <in f|
00000030  69 6c 65 3e 20 3c 6f 75  74 20 66 69 6c 65 3e 20  |ile> <out file> |
00000040  5b 2d 6e 6f 70 72 65 73  68 69 66 74 5d 0d 00 28  |[-nopreshift]..(|
00000050  05 3a 0d 00 32 1f ee 20  85 20 ff 22 53 68 75 74  |.:..2.. . ."Shut|
00000060  22 3a f6 3a f1 22 20 28  22 3b 9e 3b 22 29 22 3a  |":.:." (";.;")":|
00000070  e0 0d 00 3c 05 3a 0d 00  46 30 6b 65 79 24 3d 22  |...<.:..F0key$="|
00000080  62 61 73 69 63 2c 71 75  69 74 2f 73 2c 66 69 6c  |basic,quit/s,fil|
00000090  65 2c 69 6e 2c 6f 75 74  2c 6e 6f 70 72 65 73 68  |e,in,out,nopresh|
000000a0  69 66 74 2f 73 22 0d 00  50 1b c8 99 20 22 4f 53  |ift/s"..P... "OS|
000000b0  5f 47 65 74 45 6e 76 22  20 b8 20 63 6c 69 6e 65  |_GetEnv" . cline|
000000c0  25 0d 00 5a 37 f4 53 59  53 20 22 4f 53 5f 46 69  |%..Z7.SYS "OS_Fi|
000000d0  6c 65 22 2c 31 30 2c 22  24 2e 63 6c 69 6e 65 22  |le",10,"$.cline"|
000000e0  2c 26 46 46 44 2c 2c 63  6c 69 6e 65 25 2c 63 6c  |,&FFD,,cline%,cl|
000000f0  69 6e 65 25 2b 32 35 36  0d 00 64 0f de 20 6f 75  |ine%+256..d.. ou|
00000100  74 25 20 31 30 32 34 0d  00 6e 2a c8 99 20 22 4f  |t% 1024..n*.. "O|
00000110  53 5f 52 65 61 64 41 72  67 73 22 2c 6b 65 79 24  |S_ReadArgs",key$|
00000120  2c 63 6c 69 6e 65 25 2c  6f 75 74 25 2c 31 30 32  |,cline%,out%,102|
00000130  34 0d 00 78 05 3a 0d 00  82 24 69 6e 24 3d a4 7a  |4..x.:...$in$=.z|
00000140  28 6f 75 74 25 21 31 32  29 3a 6f 75 74 24 3d a4  |(out%!12):out$=.|
00000150  7a 28 6f 75 74 25 21 31  36 29 0d 00 8c 2f e7 20  |z(out%!16).../. |
00000160  6f 75 74 25 21 32 30 3d  30 20 8c 20 6e 6f 70 72  |out%!20=0 . nopr|
00000170  65 73 68 69 66 74 25 3d  a3 20 8b 20 6e 6f 70 72  |eshift%=. . nopr|
00000180  65 73 68 69 66 74 25 3d  b9 0d 00 96 05 3a 0d 00  |eshift%=.....:..|
00000190  a0 0d f2 61 73 73 65 6d  62 6c 65 0d 00 aa 1d de  |...assemble.....|
000001a0  20 73 70 72 69 74 65 5f  61 72 65 61 25 20 28 93  | sprite_area% (.|
000001b0  2d e0 29 2d 34 30 39 36  0d 00 b4 14 de 20 62 6c  |-.)-4096..... bl|
000001c0  6b 25 20 31 32 38 2c 61  25 28 33 29 0d 00 be 33  |k% 128,a%(3)...3|
000001d0  f4 49 4e 50 55 54 22 53  70 72 69 74 65 20 66 69  |.INPUT"Sprite fi|
000001e0  6c 65 3a 20 3c 48 69 76  65 24 44 69 72 3e 2e 5e  |le: <Hive$Dir>.^|
000001f0  2e 4f 72 69 67 69 6e 61  6c 73 2e 22 69 6e 24 0d  |.Originals."in$.|
00000200  00 c8 43 f4 6f 75 74 24  3d 22 3c 48 69 76 65 24  |..C.out$="<Hive$|
00000210  44 69 72 3e 2e 47 72 61  70 68 69 63 73 2e 22 2b  |Dir>.Graphics."+|
00000220  69 6e 24 3a 50 52 49 4e  54 22 52 61 77 20 64 61  |in$:PRINT"Raw da|
00000230  74 61 20 67 6f 69 6e 67  20 74 6f 20 22 3b 6f 75  |ta going to ";ou|
00000240  74 24 0d 00 d2 26 f4 69  6e 24 3d 22 3c 48 69 76  |t$...&.in$="<Hiv|
00000250  65 24 44 69 72 3e 2e 5e  2e 4f 72 69 67 69 6e 61  |e$Dir>.^.Origina|
00000260  6c 73 2e 22 2b 69 6e 24  0d 00 dc 22 c8 99 20 22  |ls."+in$...".. "|
00000270  4f 53 5f 46 69 6c 65 22  2c 32 33 2c 69 6e 24 20  |OS_File",23,in$ |
00000280  b8 20 2c 2c 2c 2c 6c 65  6e 25 0d 00 e6 1f f4 44  |. ,,,,len%.....D|
00000290  49 4d 20 73 70 72 69 74  65 5f 61 72 65 61 25 20  |IM sprite_area% |
000002a0  6c 65 6e 25 2b 31 30 32  34 0d 00 f0 2e 73 70 72  |len%+1024....spr|
000002b0  69 74 65 5f 61 72 65 61  25 21 30 3d 6c 65 6e 25  |ite_area%!0=len%|
000002c0  2b 31 30 32 34 3a 73 70  72 69 74 65 5f 61 72 65  |+1024:sprite_are|
000002d0  61 25 21 38 3d 31 36 0d  00 fa 27 c8 99 20 22 4f  |a%!8=16...'.. "O|
000002e0  53 5f 53 70 72 69 74 65  4f 70 22 2c 39 2b 32 35  |S_SpriteOp",9+25|
000002f0  36 2c 73 70 72 69 74 65  5f 61 72 65 61 25 0d 01  |6,sprite_area%..|
00000300  04 2c c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.,.. "OS_SpriteO|
00000310  70 22 2c 31 30 2b 32 35  36 2c 73 70 72 69 74 65  |p",10+256,sprite|
00000320  5f 61 72 65 61 25 2c 69  6e 24 0d 01 0e 4b c8 99  |_area%,in$...K..|
00000330  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 38  | "OS_SpriteOp",8|
00000340  2b 32 35 36 2c 73 70 72  69 74 65 5f 61 72 65 61  |+256,sprite_area|
00000350  25 20 b8 20 2c 2c 2c 2c  73 70 72 69 74 65 25 3a  |% . ,,,,sprite%:|
00000360  73 70 72 69 74 65 25 2b  3d 73 70 72 69 74 65 5f  |sprite%+=sprite_|
00000370  61 72 65 61 25 0d 01 18  19 73 70 72 69 74 65 24  |area%....sprite$|
00000380  3d a4 7a 28 73 70 72 69  74 65 25 2b 34 29 0d 01  |=.z(sprite%+4)..|
00000390  22 30 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |"0.. "OS_SpriteO|
000003a0  70 22 2c 35 34 2b 32 35  36 2c 73 70 72 69 74 65  |p",54+256,sprite|
000003b0  5f 61 72 65 61 25 2c 73  70 72 69 74 65 24 0d 01  |_area%,sprite$..|
000003c0  2c 1d 69 6d 61 67 65 25  3d 73 70 72 69 74 65 25  |,.image%=sprite%|
000003d0  2b 73 70 72 69 74 65 25  21 33 32 0d 01 36 1c 6d  |+sprite%!32..6.m|
000003e0  61 73 6b 25 3d 73 70 72  69 74 65 25 2b 73 70 72  |ask%=sprite%+spr|
000003f0  69 74 65 25 21 33 36 0d  01 40 45 e7 20 6d 61 73  |ite%!36..@E. mas|
00000400  6b 25 3d 69 6d 61 67 65  25 20 8c 20 85 30 2c 22  |k%=image% . .0,"|
00000410  4e 6f 20 6d 61 73 6b 20  66 6f 75 6e 64 22 3a 75  |No mask found":u|
00000420  73 65 5f 63 6f 6c 6f 75  72 25 3d b9 20 8b 20 75  |se_colour%=. . u|
00000430  73 65 5f 63 6f 6c 6f 75  72 25 3d a3 0d 01 4a 1b  |se_colour%=...J.|
00000440  6c 61 73 74 25 3d 33 2d  28 73 70 72 69 74 65 25  |last%=3-(sprite%|
00000450  21 32 38 3e 3e 33 29 0d  01 54 36 63 6f 6c 75 6d  |!28>>3)..T6colum|
00000460  6e 73 25 3d 28 73 70 72  69 74 65 25 21 31 36 2b  |ns%=(sprite%!16+|
00000470  31 29 2a 34 2d 6c 61 73  74 25 3a 72 6f 77 73 25  |1)*4-last%:rows%|
00000480  3d 73 70 72 69 74 65 25  21 32 30 2b 31 0d 01 5e  |=sprite%!20+1..^|
00000490  45 f1 20 22 4e 61 6d 65  3a 20 22 73 70 72 69 74  |E. "Name: "sprit|
000004a0  65 24 27 22 53 69 7a 65  3a 20 22 3b 63 6f 6c 75  |e$'"Size: ";colu|
000004b0  6d 6e 73 25 3b 22 2c 22  3b 72 6f 77 73 25 3b 22  |mns%;",";rows%;"|
000004c0  20 28 22 3b 6c 65 6e 25  3b 22 20 62 79 74 65 73  | (";len%;" bytes|
000004d0  29 22 0d 01 68 33 e7 20  73 70 72 69 74 65 25 21  |)"..h3. sprite%!|
000004e0  32 34 3c 3e 30 20 8c 20  85 20 30 2c 22 4c 65 66  |24<>0 . . 0,"Lef|
000004f0  74 2d 68 61 6e 64 20 77  61 73 74 61 67 65 20 66  |t-hand wastage f|
00000500  6f 75 6e 64 22 0d 01 72  0e 6f 25 3d ae 28 6f 75  |ound"..r.o%=.(ou|
00000510  74 24 29 0d 01 7c 3e 62  6c 6b 25 21 30 3d 63 6f  |t$)..|>blk%!0=co|
00000520  6c 75 6d 6e 73 25 2d 31  3a 62 6c 6b 25 21 34 3d  |lumns%-1:blk%!4=|
00000530  72 6f 77 73 25 2d 31 3a  c8 99 20 22 4f 53 5f 47  |rows%-1:.. "OS_G|
00000540  42 50 42 22 2c 32 2c 6f  25 2c 62 6c 6b 25 2c 33  |BPB",2,o%,blk%,3|
00000550  32 0d 01 86 25 c8 99 20  22 4f 53 5f 41 72 67 73  |2...%.. "OS_Args|
00000560  22 2c 33 2c 6f 25 2c 8f  23 6f 25 2b 28 72 6f 77  |",3,o%,.#o%+(row|
00000570  73 25 2a 31 36 29 0d 01  90 0d cf 23 6f 25 3d a2  |s%*16).....#o%=.|
00000580  23 6f 25 0d 01 9a 05 3a  0d 01 a4 2d e7 20 6e 6f  |#o%....:...-. no|
00000590  70 72 65 73 68 69 66 74  25 20 8c 20 61 6c 69 67  |preshift% . alig|
000005a0  6e 25 3d 30 20 8b 20 e3  20 61 6c 69 67 6e 25 3d  |n%=0 . . align%=|
000005b0  30 20 b8 20 33 0d 01 ae  31 f2 77 6f 72 64 5f 77  |0 . 3...1.word_w|
000005c0  72 69 74 65 28 38 2b 28  61 6c 69 67 6e 25 2a 34  |rite(8+(align%*4|
000005d0  29 2c 33 32 2b 28 34 2a  61 6c 69 67 6e 25 2a 72  |),32+(4*align%*r|
000005e0  6f 77 73 25 29 29 0d 01  b8 14 61 64 64 72 25 3d  |ows%))....addr%=|
000005f0  30 3a 62 6c 6b 25 21 30  3d 30 0d 01 c2 27 f1 22  |0:blk%!0=0...'."|
00000600  2d 2d 20 43 61 6c 63 75  6c 61 74 69 6e 67 20 61  |-- Calculating a|
00000610  6c 69 67 6e 6d 65 6e 74  20 22 3b 61 6c 69 67 6e  |lignment ";align|
00000620  25 0d 01 cc 12 e3 20 79  25 3d 31 20 b8 20 72 6f  |%..... y%=1 . ro|
00000630  77 73 25 0d 01 d6 40 f2  77 6f 72 64 5f 77 72 69  |ws%...@.word_wri|
00000640  74 65 28 33 32 2b 28 34  2a 61 6c 69 67 6e 25 2a  |te(32+(4*align%*|
00000650  72 6f 77 73 25 29 2b 28  79 25 2d 31 29 2a 34 2c  |rows%)+(y%-1)*4,|
00000660  8f 23 6f 25 29 3a 73 68  69 66 74 25 3d 61 6c 69  |.#o%):shift%=ali|
00000670  67 6e 25 0d 01 e0 21 6e  65 78 74 72 6f 77 25 3d  |gn%...!nextrow%=|
00000680  61 64 64 72 25 2b 63 6f  6c 75 6d 6e 73 25 2b 6c  |addr%+columns%+l|
00000690  61 73 74 25 0d 01 ea 05  f5 0d 01 f4 40 e7 20 75  |ast%........@. u|
000006a0  73 65 5f 63 6f 6c 6f 75  72 25 20 8c 20 41 25 3d  |se_colour% . A%=|
000006b0  69 6d 61 67 65 25 2b 61  64 64 72 25 3a 43 25 3d  |image%+addr%:C%=|
000006c0  30 20 8b 20 41 25 3d 6d  61 73 6b 25 2b 61 64 64  |0 . A%=mask%+add|
000006d0  72 25 3a 43 25 3d 32 35  35 0d 01 fe 3c 42 25 3d  |r%:C%=255...<B%=|
000006e0  6e 65 78 74 72 6f 77 25  2d 6c 61 73 74 25 2d 61  |nextrow%-last%-a|
000006f0  64 64 72 25 3a 63 6f 6e  73 65 63 25 3d ba 28 63  |ddr%:consec%=.(c|
00000700  6f 75 6e 74 25 29 3a f4  50 52 49 4e 54 7e 63 6f  |ount%):.PRINT~co|
00000710  6e 73 65 63 25 0d 02 08  12 f2 77 6f 72 64 28 63  |nsec%.....word(c|
00000720  6f 6e 73 65 63 25 29 0d  02 12 23 f4 50 52 49 4e  |onsec%)...#.PRIN|
00000730  54 20 69 6d 61 67 65 25  3f 61 64 64 72 25 2c 6d  |T image%?addr%,m|
00000740  61 73 6b 25 3f 61 64 64  72 25 0d 02 1c 21 f4 49  |ask%?addr%...!.I|
00000750  46 20 79 25 3d 32 30 20  54 48 45 4e 20 50 52 49  |F y%=20 THEN PRI|
00000760  4e 54 20 7e 63 6f 6e 73  65 63 25 0d 02 26 17 e7  |NT ~consec%..&..|
00000770  20 28 63 6f 6e 73 65 63  25 3e 3e 32 34 29 3d 31  | (consec%>>24)=1|
00000780  20 8c 0d 02 30 12 20 f4  50 52 49 4e 54 20 73 68  | ...0. .PRINT sh|
00000790  69 66 74 25 0d 02 3a 49  20 e7 20 73 68 69 66 74  |ift%..:I . shift|
000007a0  25 3e 30 20 80 20 28 ac  20 6e 6f 70 72 65 73 68  |%>0 . (. nopresh|
000007b0  69 66 74 25 29 20 8c 20  21 62 6c 6b 25 3d 30 3a  |ift%) . !blk%=0:|
000007c0  c8 99 20 22 4f 53 5f 47  42 50 42 22 2c 32 2c 6f  |.. "OS_GBPB",2,o|
000007d0  25 2c 62 6c 6b 25 2c 73  68 69 66 74 25 0d 02 44  |%,blk%,shift%..D|
000007e0  33 20 c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 32  |3 .. "OS_GBPB",2|
000007f0  2c 6f 25 2c 61 64 64 72  25 2b 69 6d 61 67 65 25  |,o%,addr%+image%|
00000800  2c 63 6f 6e 73 65 63 25  20 80 20 26 46 46 46 46  |,consec% . &FFFF|
00000810  0d 02 4e 05 cd 0d 02 58  18 f4 73 68 69 66 74 25  |..N....X..shift%|
00000820  3d 50 54 52 23 6f 25 20  41 4e 44 20 33 0d 02 62  |=PTR#o% AND 3..b|
00000830  29 73 68 69 66 74 25 3d  28 73 68 69 66 74 25 2b  |)shift%=(shift%+|
00000840  28 63 6f 6e 73 65 63 25  20 80 20 26 46 46 46 46  |(consec% . &FFFF|
00000850  29 29 20 80 20 33 0d 02  6c 0a f2 61 6c 69 67 6e  |)) . 3..l..align|
00000860  0d 02 76 1a 61 64 64 72  25 2b 3d 63 6f 6e 73 65  |..v.addr%+=conse|
00000870  63 25 20 80 20 26 46 46  46 46 0d 02 80 1b fd 20  |c% . &FFFF..... |
00000880  61 64 64 72 25 3e 3d 6e  65 78 74 72 6f 77 25 2d  |addr%>=nextrow%-|
00000890  6c 61 73 74 25 0d 02 8a  0c f2 77 6f 72 64 28 30  |last%.....word(0|
000008a0  29 0d 02 94 12 61 64 64  72 25 3d 6e 65 78 74 72  |)....addr%=nextr|
000008b0  6f 77 25 0d 02 9e 05 ed  0d 02 a8 17 e7 20 6e 6f  |ow%.......... no|
000008c0  70 72 65 73 68 69 66 74  25 3d a3 20 8c 20 ed 0d  |preshift%=. . ..|
000008d0  02 b2 21 c8 99 20 22 4f  53 5f 41 72 67 73 22 2c  |..!.. "OS_Args",|
000008e0  32 2c 6f 25 20 b8 20 2c  2c 6c 65 6e 67 74 68 25  |2,o% . ,,length%|
000008f0  0d 02 bc 2b f1 27 22 52  65 73 75 6c 74 61 6e 74  |...+.'"Resultant|
00000900  20 66 69 6c 65 20 69 73  20 22 3b 6c 65 6e 67 74  | file is ";lengt|
00000910  68 25 3b 22 20 62 79 74  65 73 22 0d 02 c6 08 d9  |h%;" bytes".....|
00000920  23 6f 25 0d 02 c7 1e c8  99 20 22 57 69 6d 70 5f  |#o%...... "Wimp_|
00000930  43 6f 6d 6d 61 6e 64 57  69 6e 64 6f 77 22 2c 2d  |CommandWindow",-|
00000940  31 0d 02 d0 05 e0 0d 02  da 05 3a 0d 02 e4 1f dd  |1.........:.....|
00000950  f2 77 6f 72 64 5f 77 72  69 74 65 28 6f 66 66 73  |.word_write(offs|
00000960  65 74 25 2c 77 6f 72 64  25 29 0d 02 ee 1a f4 50  |et%,word%).....P|
00000970  52 49 4e 54 20 7e 6f 66  66 73 65 74 25 2c 7e 77  |RINT ~offset%,~w|
00000980  6f 72 64 25 0d 02 f8 16  f2 6d 6f 76 65 5f 70 74  |ord%.....move_pt|
00000990  72 28 6f 66 66 73 65 74  25 29 0d 03 02 10 f2 77  |r(offset%).....w|
000009a0  6f 72 64 28 77 6f 72 64  25 29 0d 03 0c 10 f2 72  |ord(word%).....r|
000009b0  65 73 74 6f 72 65 5f 70  74 72 0d 03 16 05 e1 0d  |estore_ptr......|
000009c0  03 20 05 3a 0d 03 2a 17  dd f2 6d 6f 76 65 5f 70  |. .:..*...move_p|
000009d0  74 72 28 6f 66 66 73 65  74 25 29 0d 03 34 25 c8  |tr(offset%)..4%.|
000009e0  99 20 22 4f 53 5f 41 72  67 73 22 2c 30 2c 6f 25  |. "OS_Args",0,o%|
000009f0  20 b8 20 2c 2c 6f 6c 64  5f 65 78 74 65 6e 74 25  | . ,,old_extent%|
00000a00  0d 03 3e 1d c8 99 20 22  4f 53 5f 41 72 67 73 22  |..>... "OS_Args"|
00000a10  2c 31 2c 6f 25 2c 6f 66  66 73 65 74 25 0d 03 48  |,1,o%,offset%..H|
00000a20  05 e1 0d 03 52 05 3a 0d  03 5c 11 dd f2 72 65 73  |....R.:..\...res|
00000a30  74 6f 72 65 5f 70 74 72  0d 03 66 21 c8 99 20 22  |tore_ptr..f!.. "|
00000a40  4f 53 5f 41 72 67 73 22  2c 31 2c 6f 25 2c 6f 6c  |OS_Args",1,o%,ol|
00000a50  64 5f 65 78 74 65 6e 74  25 0d 03 70 05 e1 0d 03  |d_extent%..p....|
00000a60  7a 05 3a 0d 03 84 0e dd  f2 77 6f 72 64 28 77 25  |z.:......word(w%|
00000a70  29 0d 03 8e 25 21 62 6c  6b 25 3d 77 25 3a c8 99  |)...%!blk%=w%:..|
00000a80  20 22 4f 53 5f 47 42 50  42 22 2c 32 2c 6f 25 2c  | "OS_GBPB",2,o%,|
00000a90  62 6c 6b 25 2c 34 0d 03  98 05 e1 0d 03 a2 05 3a  |blk%,4.........:|
00000aa0  0d 03 ac 0b dd f2 61 6c  69 67 6e 0d 03 b6 08 ea  |......align.....|
00000ab0  20 61 25 0d 03 c0 0f 61  25 3d 8f 23 6f 25 20 80  | a%....a%=.#o% .|
00000ac0  20 33 0d 03 ca 38 e7 20  61 25 3c 3e 30 20 8c 20  | 3...8. a%<>0 . |
00000ad0  62 6c 6b 25 21 31 32 34  3d 30 3a c8 99 20 22 4f  |blk%!124=0:.. "O|
00000ae0  53 5f 47 42 50 42 22 2c  32 2c 6f 25 2c 62 6c 6b  |S_GBPB",2,o%,blk|
00000af0  25 2b 31 32 34 2c 34 2d  61 25 0d 03 d4 05 e1 0d  |%+124,4-a%......|
00000b00  03 de 05 3a 0d 03 e8 33  dd a4 7a 28 70 25 29 3a  |...:...3..z(p%):|
00000b10  73 24 3d 22 22 3a c8 95  20 3f 70 25 3e 3d 33 32  |s$="":.. ?p%>=32|
00000b20  3a 73 24 2b 3d bd 28 3f  70 25 29 3a 70 25 2b 3d  |:s$+=.(?p%):p%+=|
00000b30  31 3a ce 3a 3d 73 24 0d  03 f2 05 3a 0d 03 fc 0e  |1:.:=s$....:....|
00000b40  dd f2 61 73 73 65 6d 62  6c 65 0d 04 06 10 de 20  |..assemble..... |
00000b50  63 6f 75 6e 74 25 20 32  35 36 0d 04 10 16 e3 20  |count% 256..... |
00000b60  70 61 73 73 25 3d 38 20  b8 20 31 30 20 88 20 32  |pass%=8 . 10 . 2|
00000b70  0d 04 1a 17 50 25 3d 63  6f 75 6e 74 25 3a 4c 25  |....P%=count%:L%|
00000b80  3d 50 25 2b 32 35 36 0d  04 24 0e 5b 4f 50 54 20  |=P%+256..$.[OPT |
00000b90  70 61 73 73 25 0d 04 2e  05 3b 0d 04 38 20 3b 20  |pass%....;..8 ; |
00000ba0  45 6e 74 65 72 20 77 69  74 68 20 20 20 20 20 20  |Enter with      |
00000bb0  20 20 52 30 20 3e 20 72  6f 77 0d 04 42 28 3b 20  |  R0 > row..B(; |
00000bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000bd0  20 20 52 31 20 3d 20 6d  61 78 2e 20 6c 65 6e 67  |  R1 = max. leng|
00000be0  74 68 0d 04 4c 43 3b 20  20 20 20 20 20 20 20 20  |th..LC;         |
00000bf0  20 20 20 20 20 20 20 20  20 20 52 32 20 3d 20 63  |          R2 = c|
00000c00  6f 6c 6f 75 72 20 30 20  69 6e 64 69 63 61 74 6f  |olour 0 indicato|
00000c10  72 20 28 32 35 35 20 69  66 20 75 73 69 6e 67 20  |r (255 if using |
00000c20  6d 61 73 6b 29 0d 04 56  3b 3b 20 45 78 69 74 73  |mask)..V;; Exits|
00000c30  20 77 69 74 68 20 20 20  20 20 20 20 20 52 30 20  | with        R0 |
00000c40  3d 20 61 70 70 72 6f 70  72 69 61 74 65 20 74 79  |= appropriate ty|
00000c50  70 65 20 77 6f 72 64 20  28 31 20 6f 72 20 32 29  |pe word (1 or 2)|
00000c60  0d 04 60 05 3b 0d 04 6a  1d 20 20 20 20 20 20 20  |..`.;..j.       |
00000c70  20 20 20 4d 4f 56 20 20  20 20 20 20 20 52 35 2c  |   MOV       R5,|
00000c80  52 32 0d 04 74 22 20 20  20 20 20 20 20 20 20 20  |R2..t"          |
00000c90  4c 44 52 42 20 20 20 20  20 20 52 32 2c 5b 52 30  |LDRB      R2,[R0|
00000ca0  5d 2c 23 31 0d 04 7e 1d  20 20 20 20 20 20 20 20  |],#1..~.        |
00000cb0  20 20 4d 4f 56 20 20 20  20 20 20 20 52 33 2c 23  |  MOV       R3,#|
00000cc0  31 0d 04 88 1d 20 20 20  20 20 20 20 20 20 20 4d  |1....          M|
00000cd0  4f 56 20 20 20 20 20 20  20 52 34 2c 52 31 0d 04  |OV       R4,R1..|
00000ce0  92 10 2e 63 6f 75 6e 74  5f 6c 6f 6f 70 25 0d 04  |...count_loop%..|
00000cf0  9c 22 20 20 20 20 20 20  20 20 20 20 4c 44 52 42  |."          LDRB|
00000d00  20 20 20 20 20 20 52 31  2c 5b 52 30 5d 2c 23 31  |      R1,[R0],#1|
00000d10  0d 04 a6 1d 20 20 20 20  20 20 20 20 20 20 43 4d  |....          CM|
00000d20  50 20 20 20 20 20 20 20  52 31 2c 52 32 0d 04 b0  |P       R1,R2...|
00000d30  2a 20 20 20 20 20 20 20  20 20 20 42 4e 45 20 20  |*          BNE  |
00000d40  20 20 20 20 20 66 69 6e  69 73 68 65 64 5f 63 6f  |     finished_co|
00000d50  75 6e 74 69 6e 67 25 0d  04 ba 20 20 20 20 20 20  |unting%...      |
00000d60  20 20 20 20 20 41 44 44  20 20 20 20 20 20 20 52  |     ADD       R|
00000d70  33 2c 52 33 2c 23 31 0d  04 c4 1d 20 20 20 20 20  |3,R3,#1....     |
00000d80  20 20 20 20 20 43 4d 50  20 20 20 20 20 20 20 52  |     CMP       R|
00000d90  33 2c 52 34 0d 04 ce 2a  20 20 20 20 20 20 20 20  |3,R4...*        |
00000da0  20 20 42 45 51 20 20 20  20 20 20 20 66 69 6e 69  |  BEQ       fini|
00000db0  73 68 65 64 5f 63 6f 75  6e 74 69 6e 67 25 0d 04  |shed_counting%..|
00000dc0  d8 23 20 20 20 20 20 20  20 20 20 20 42 20 20 20  |.#          B   |
00000dd0  20 20 20 20 20 20 63 6f  75 6e 74 5f 6c 6f 6f 70  |      count_loop|
00000de0  25 0d 04 e2 17 2e 66 69  6e 69 73 68 65 64 5f 63  |%.....finished_c|
00000df0  6f 75 6e 74 69 6e 67 25  0d 04 ec 1d 20 20 20 20  |ounting%....    |
00000e00  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 20 20  |      MOV       |
00000e10  52 30 2c 52 33 0d 04 f6  1f 20 20 20 20 20 20 20  |R0,R3....       |
00000e20  20 20 20 43 4d 50 20 20  20 20 20 20 20 52 35 2c  |   CMP       R5,|
00000e30  23 32 35 35 0d 05 00 21  20 20 20 20 20 20 20 20  |#255...!        |
00000e40  20 20 42 45 51 20 20 20  20 20 20 20 75 73 65 5f  |  BEQ       use_|
00000e50  6d 61 73 6b 25 0d 05 0a  1d 20 20 20 20 20 20 20  |mask%....       |
00000e60  20 20 20 43 4d 50 20 20  20 20 20 20 20 52 32 2c  |   CMP       R2,|
00000e70  23 30 0d 05 14 27 20 20  20 20 20 20 20 20 20 20  |#0...'          |
00000e80  84 52 45 51 20 20 20 20  20 52 30 2c 52 30 2c 23  |.REQ     R0,R0,#|
00000e90  26 30 32 30 30 30 30 30  30 0d 05 1e 27 20 20 20  |&02000000...'   |
00000ea0  20 20 20 20 20 20 20 84  52 4e 45 20 20 20 20 20  |       .RNE     |
00000eb0  52 30 2c 52 30 2c 23 26  30 31 30 30 30 30 30 30  |R0,R0,#&01000000|
00000ec0  0d 05 28 1e 20 20 20 20  20 20 20 20 20 20 4d 4f  |..(.          MO|
00000ed0  56 20 20 20 20 20 20 20  50 43 2c 52 31 34 0d 05  |V       PC,R14..|
00000ee0  32 0e 2e 75 73 65 5f 6d  61 73 6b 25 0d 05 3c 1f  |2..use_mask%..<.|
00000ef0  20 20 20 20 20 20 20 20  20 20 43 4d 50 20 20 20  |          CMP   |
00000f00  20 20 20 20 52 32 2c 23  32 35 35 0d 05 46 27 20  |    R2,#255..F' |
00000f10  20 20 20 20 20 20 20 20  20 84 52 45 51 20 20 20  |         .REQ   |
00000f20  20 20 52 30 2c 52 30 2c  23 26 30 31 30 30 30 30  |  R0,R0,#&010000|
00000f30  30 30 0d 05 50 27 20 20  20 20 20 20 20 20 20 20  |00..P'          |
00000f40  84 52 4e 45 20 20 20 20  20 52 30 2c 52 30 2c 23  |.RNE     R0,R0,#|
00000f50  26 30 32 30 30 30 30 30  30 0d 05 5a 1e 20 20 20  |&02000000..Z.   |
00000f60  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 20  |       MOV      |
00000f70  20 50 43 2c 52 31 34 0d  05 64 07 5d 3a ed 0d 05  | PC,R14..d.]:...|
00000f80  6e 05 e1 0d ff                                    |n....|
00000f85