� >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% � �"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%
� �SYS "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 f1 22 4e 6f  |k%=image% . ."No|
00000410  20 6d 61 73 6b 20 66 6f  75 6e 64 22 3a 75 73 65  | mask found":use|
00000420  5f 63 6f 6c 6f 75 72 25  3d b9 3a e0 20 8b 20 75  |_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 20 f4  53 59 53 20 22 57 69 6d  |#o%... .SYS "Wim|
00000930  70 5f 43 6f 6d 6d 61 6e  64 57 69 6e 64 6f 77 22  |p_CommandWindow"|
00000940  2c 2d 31 0d 02 d0 05 e0  0d 02 da 05 3a 0d 02 e4  |,-1.........:...|
00000950  1f dd f2 77 6f 72 64 5f  77 72 69 74 65 28 6f 66  |...word_write(of|
00000960  66 73 65 74 25 2c 77 6f  72 64 25 29 0d 02 ee 1a  |fset%,word%)....|
00000970  f4 50 52 49 4e 54 20 7e  6f 66 66 73 65 74 25 2c  |.PRINT ~offset%,|
00000980  7e 77 6f 72 64 25 0d 02  f8 16 f2 6d 6f 76 65 5f  |~word%.....move_|
00000990  70 74 72 28 6f 66 66 73  65 74 25 29 0d 03 02 10  |ptr(offset%)....|
000009a0  f2 77 6f 72 64 28 77 6f  72 64 25 29 0d 03 0c 10  |.word(word%)....|
000009b0  f2 72 65 73 74 6f 72 65  5f 70 74 72 0d 03 16 05  |.restore_ptr....|
000009c0  e1 0d 03 20 05 3a 0d 03  2a 17 dd f2 6d 6f 76 65  |... .:..*...move|
000009d0  5f 70 74 72 28 6f 66 66  73 65 74 25 29 0d 03 34  |_ptr(offset%)..4|
000009e0  25 c8 99 20 22 4f 53 5f  41 72 67 73 22 2c 30 2c  |%.. "OS_Args",0,|
000009f0  6f 25 20 b8 20 2c 2c 6f  6c 64 5f 65 78 74 65 6e  |o% . ,,old_exten|
00000a00  74 25 0d 03 3e 1d c8 99  20 22 4f 53 5f 41 72 67  |t%..>... "OS_Arg|
00000a10  73 22 2c 31 2c 6f 25 2c  6f 66 66 73 65 74 25 0d  |s",1,o%,offset%.|
00000a20  03 48 05 e1 0d 03 52 05  3a 0d 03 5c 11 dd f2 72  |.H....R.:..\...r|
00000a30  65 73 74 6f 72 65 5f 70  74 72 0d 03 66 21 c8 99  |estore_ptr..f!..|
00000a40  20 22 4f 53 5f 41 72 67  73 22 2c 31 2c 6f 25 2c  | "OS_Args",1,o%,|
00000a50  6f 6c 64 5f 65 78 74 65  6e 74 25 0d 03 70 05 e1  |old_extent%..p..|
00000a60  0d 03 7a 05 3a 0d 03 84  0e dd f2 77 6f 72 64 28  |..z.:......word(|
00000a70  77 25 29 0d 03 8e 25 21  62 6c 6b 25 3d 77 25 3a  |w%)...%!blk%=w%:|
00000a80  c8 99 20 22 4f 53 5f 47  42 50 42 22 2c 32 2c 6f  |.. "OS_GBPB",2,o|
00000a90  25 2c 62 6c 6b 25 2c 34  0d 03 98 05 e1 0d 03 a2  |%,blk%,4........|
00000aa0  05 3a 0d 03 ac 0b dd f2  61 6c 69 67 6e 0d 03 b6  |.:......align...|
00000ab0  08 ea 20 61 25 0d 03 c0  0f 61 25 3d 8f 23 6f 25  |.. a%....a%=.#o%|
00000ac0  20 80 20 33 0d 03 ca 38  e7 20 61 25 3c 3e 30 20  | . 3...8. a%<>0 |
00000ad0  8c 20 62 6c 6b 25 21 31  32 34 3d 30 3a c8 99 20  |. blk%!124=0:.. |
00000ae0  22 4f 53 5f 47 42 50 42  22 2c 32 2c 6f 25 2c 62  |"OS_GBPB",2,o%,b|
00000af0  6c 6b 25 2b 31 32 34 2c  34 2d 61 25 0d 03 d4 05  |lk%+124,4-a%....|
00000b00  e1 0d 03 de 05 3a 0d 03  e8 33 dd a4 7a 28 70 25  |.....:...3..z(p%|
00000b10  29 3a 73 24 3d 22 22 3a  c8 95 20 3f 70 25 3e 3d  |):s$="":.. ?p%>=|
00000b20  33 32 3a 73 24 2b 3d bd  28 3f 70 25 29 3a 70 25  |32:s$+=.(?p%):p%|
00000b30  2b 3d 31 3a ce 3a 3d 73  24 0d 03 f2 05 3a 0d 03  |+=1:.:=s$....:..|
00000b40  fc 0e dd f2 61 73 73 65  6d 62 6c 65 0d 04 06 10  |....assemble....|
00000b50  de 20 63 6f 75 6e 74 25  20 32 35 36 0d 04 10 16  |. count% 256....|
00000b60  e3 20 70 61 73 73 25 3d  38 20 b8 20 31 30 20 88  |. pass%=8 . 10 .|
00000b70  20 32 0d 04 1a 17 50 25  3d 63 6f 75 6e 74 25 3a  | 2....P%=count%:|
00000b80  4c 25 3d 50 25 2b 32 35  36 0d 04 24 0e 5b 4f 50  |L%=P%+256..$.[OP|
00000b90  54 20 70 61 73 73 25 0d  04 2e 05 3b 0d 04 38 20  |T pass%....;..8 |
00000ba0  3b 20 45 6e 74 65 72 20  77 69 74 68 20 20 20 20  |; Enter with    |
00000bb0  20 20 20 20 52 30 20 3e  20 72 6f 77 0d 04 42 28  |    R0 > row..B(|
00000bc0  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
00000bd0  20 20 20 20 52 31 20 3d  20 6d 61 78 2e 20 6c 65  |    R1 = max. le|
00000be0  6e 67 74 68 0d 04 4c 43  3b 20 20 20 20 20 20 20  |ngth..LC;       |
00000bf0  20 20 20 20 20 20 20 20  20 20 20 20 52 32 20 3d  |            R2 =|
00000c00  20 63 6f 6c 6f 75 72 20  30 20 69 6e 64 69 63 61  | colour 0 indica|
00000c10  74 6f 72 20 28 32 35 35  20 69 66 20 75 73 69 6e  |tor (255 if usin|
00000c20  67 20 6d 61 73 6b 29 0d  04 56 3b 3b 20 45 78 69  |g mask)..V;; Exi|
00000c30  74 73 20 77 69 74 68 20  20 20 20 20 20 20 20 52  |ts with        R|
00000c40  30 20 3d 20 61 70 70 72  6f 70 72 69 61 74 65 20  |0 = appropriate |
00000c50  74 79 70 65 20 77 6f 72  64 20 28 31 20 6f 72 20  |type word (1 or |
00000c60  32 29 0d 04 60 05 3b 0d  04 6a 1d 20 20 20 20 20  |2)..`.;..j.     |
00000c70  20 20 20 20 20 4d 4f 56  20 20 20 20 20 20 20 52  |     MOV       R|
00000c80  35 2c 52 32 0d 04 74 22  20 20 20 20 20 20 20 20  |5,R2..t"        |
00000c90  20 20 4c 44 52 42 20 20  20 20 20 20 52 32 2c 5b  |  LDRB      R2,[|
00000ca0  52 30 5d 2c 23 31 0d 04  7e 1d 20 20 20 20 20 20  |R0],#1..~.      |
00000cb0  20 20 20 20 4d 4f 56 20  20 20 20 20 20 20 52 33  |    MOV       R3|
00000cc0  2c 23 31 0d 04 88 1d 20  20 20 20 20 20 20 20 20  |,#1....         |
00000cd0  20 4d 4f 56 20 20 20 20  20 20 20 52 34 2c 52 31  | MOV       R4,R1|
00000ce0  0d 04 92 10 2e 63 6f 75  6e 74 5f 6c 6f 6f 70 25  |.....count_loop%|
00000cf0  0d 04 9c 22 20 20 20 20  20 20 20 20 20 20 4c 44  |..."          LD|
00000d00  52 42 20 20 20 20 20 20  52 31 2c 5b 52 30 5d 2c  |RB      R1,[R0],|
00000d10  23 31 0d 04 a6 1d 20 20  20 20 20 20 20 20 20 20  |#1....          |
00000d20  43 4d 50 20 20 20 20 20  20 20 52 31 2c 52 32 0d  |CMP       R1,R2.|
00000d30  04 b0 2a 20 20 20 20 20  20 20 20 20 20 42 4e 45  |..*          BNE|
00000d40  20 20 20 20 20 20 20 66  69 6e 69 73 68 65 64 5f  |       finished_|
00000d50  63 6f 75 6e 74 69 6e 67  25 0d 04 ba 20 20 20 20  |counting%...    |
00000d60  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 20  |       ADD      |
00000d70  20 52 33 2c 52 33 2c 23  31 0d 04 c4 1d 20 20 20  | R3,R3,#1....   |
00000d80  20 20 20 20 20 20 20 43  4d 50 20 20 20 20 20 20  |       CMP      |
00000d90  20 52 33 2c 52 34 0d 04  ce 2a 20 20 20 20 20 20  | R3,R4...*      |
00000da0  20 20 20 20 42 45 51 20  20 20 20 20 20 20 66 69  |    BEQ       fi|
00000db0  6e 69 73 68 65 64 5f 63  6f 75 6e 74 69 6e 67 25  |nished_counting%|
00000dc0  0d 04 d8 23 20 20 20 20  20 20 20 20 20 20 42 20  |...#          B |
00000dd0  20 20 20 20 20 20 20 20  63 6f 75 6e 74 5f 6c 6f  |        count_lo|
00000de0  6f 70 25 0d 04 e2 17 2e  66 69 6e 69 73 68 65 64  |op%.....finished|
00000df0  5f 63 6f 75 6e 74 69 6e  67 25 0d 04 ec 1d 20 20  |_counting%....  |
00000e00  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00000e10  20 20 52 30 2c 52 33 0d  04 f6 1f 20 20 20 20 20  |  R0,R3....     |
00000e20  20 20 20 20 20 43 4d 50  20 20 20 20 20 20 20 52  |     CMP       R|
00000e30  35 2c 23 32 35 35 0d 05  00 21 20 20 20 20 20 20  |5,#255...!      |
00000e40  20 20 20 20 42 45 51 20  20 20 20 20 20 20 75 73  |    BEQ       us|
00000e50  65 5f 6d 61 73 6b 25 0d  05 0a 1d 20 20 20 20 20  |e_mask%....     |
00000e60  20 20 20 20 20 43 4d 50  20 20 20 20 20 20 20 52  |     CMP       R|
00000e70  32 2c 23 30 0d 05 14 27  20 20 20 20 20 20 20 20  |2,#0...'        |
00000e80  20 20 84 52 45 51 20 20  20 20 20 52 30 2c 52 30  |  .REQ     R0,R0|
00000e90  2c 23 26 30 32 30 30 30  30 30 30 0d 05 1e 27 20  |,#&02000000...' |
00000ea0  20 20 20 20 20 20 20 20  20 84 52 4e 45 20 20 20  |         .RNE   |
00000eb0  20 20 52 30 2c 52 30 2c  23 26 30 31 30 30 30 30  |  R0,R0,#&010000|
00000ec0  30 30 0d 05 28 1e 20 20  20 20 20 20 20 20 20 20  |00..(.          |
00000ed0  4d 4f 56 20 20 20 20 20  20 20 50 43 2c 52 31 34  |MOV       PC,R14|
00000ee0  0d 05 32 0e 2e 75 73 65  5f 6d 61 73 6b 25 0d 05  |..2..use_mask%..|
00000ef0  3c 1f 20 20 20 20 20 20  20 20 20 20 43 4d 50 20  |<.          CMP |
00000f00  20 20 20 20 20 20 52 32  2c 23 32 35 35 0d 05 46  |      R2,#255..F|
00000f10  27 20 20 20 20 20 20 20  20 20 20 84 52 45 51 20  |'          .REQ |
00000f20  20 20 20 20 52 30 2c 52  30 2c 23 26 30 31 30 30  |    R0,R0,#&0100|
00000f30  30 30 30 30 0d 05 50 27  20 20 20 20 20 20 20 20  |0000..P'        |
00000f40  20 20 84 52 4e 45 20 20  20 20 20 52 30 2c 52 30  |  .RNE     R0,R0|
00000f50  2c 23 26 30 32 30 30 30  30 30 30 0d 05 5a 1e 20  |,#&02000000..Z. |
00000f60  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00000f70  20 20 20 50 43 2c 52 31  34 0d 05 64 07 5d 3a ed  |   PC,R14..d.]:.|
00000f80  0d 05 6e 05 e1 0d ff                              |..n....|
00000f87