� >$.ConvertWP

!� ***************************
(!� *     Converting your     *
2!� *   wordprocessor files   *
<!� * written by  Adrian Look *
F!� *      24th June 1988     *
P!� ***************************
Z
dspecial_char=&FF
nline_length=80
xnew_line=10
�� 0
��inputs
��set_up_code
��convert
��
�
���inputs
�!�'"Source filename > "s_file$
�file=�(s_file$)
�size=� #file
�� #file
�%�"Destination filename > "d_file$
��



��set_up_code

� sorc% size

"4� dest% size*1.3 : � size increase factor of 1.3

,� data% &100

6� code% &100

@
�assemble

Joffset=0

T�

^� a$,b$

h� a$<>"***" �

r#?(data%+offset)=�(a$):offset+=1

|#?(data%+offset)=�(b$):offset+=1

��

�� a$="***"

��

�

�
��convert

�$�("LOAD "+s_file$+" "+�~(sorc%))

�C%=sorc%-1

�D%=dest%

�E%=data%

�F%=sorc%+size

�G%=data%+offset

�
� convert

�end=!data%
0�("SAVE "+d_file$+" "+�~(dest%)+" "+�~(end))
 �("SETTYPE "+d_file$+" FFF")
�
&
0��assemble
:� opt=0 � 3 � 2
DP%=code%
N[OPT opt
X.convert
bSTMFD R13!,{R0-R12,R14}
l
.start
vLDRB R0,[R2],#1
�ADD R9,R9,#1
�
MOV R7,R4
�
MOV R8,#0
�	.loop
�LDRB R1,[R7]
�
CMP R0,R1
�
BNE jump1
�
MOV R8,#1
�LDRB R1,[R7,#1]
�CMP R1,#special_char
�BNE jump
�CMP R9,#line_length
�
BMI jump1
MOV R1,#new_line
	.jump
STRB R1,[R3],#1
 CMP R1,#new_line
*
BNE jump1
4
MOV R9,#0
>
.jump1
HADD R7,R7,#2
R
CMP R7,R6
\BNE loop
f	.skip
p
CMP R8,#1
zBEQ cont
�STRB R0,[R3],#1
�	.cont
�
CMP R2,R5
�
BNE start
�STR R3,[R4]
�LDMFD R13!,{R0-R12,PC}
�]
�	� opt
��
�
�!� *** bytes to be changed ***
�
�
� &20,&1E
)� &20,&FF:REM counter used by program


� &0D,&0A
$
.
� &DD,&20
8
� &DD,&20
B
� &DD,&20
L
� &DD,&20
V
� &DD,&20
W
X� 35,&A3
Y� 96,&A3
`
j� &02,0
t� &07,0
~
�
� ***,***
�

00000000  0d 00 0a 12 f4 20 3e 24  2e 43 6f 6e 76 65 72 74  |..... >$.Convert|
00000010  57 50 0d 00 14 04 0d 00  1e 21 f4 20 2a 2a 2a 2a  |WP.......!. ****|
00000020  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000030  2a 2a 2a 2a 2a 2a 2a 0d  00 28 21 f4 20 2a 20 20  |*******..(!. *  |
00000040  20 20 20 43 6f 6e 76 65  72 74 69 6e 67 20 79 6f  |   Converting yo|
00000050  75 72 20 20 20 20 20 2a  0d 00 32 21 f4 20 2a 20  |ur     *..2!. * |
00000060  20 20 77 6f 72 64 70 72  6f 63 65 73 73 6f 72 20  |  wordprocessor |
00000070  66 69 6c 65 73 20 20 20  2a 0d 00 3c 21 f4 20 2a  |files   *..<!. *|
00000080  20 77 72 69 74 74 65 6e  20 62 79 20 20 41 64 72  | written by  Adr|
00000090  69 61 6e 20 4c 6f 6f 6b  20 2a 0d 00 46 21 f4 20  |ian Look *..F!. |
000000a0  2a 20 20 20 20 20 20 32  34 74 68 20 4a 75 6e 65  |*      24th June|
000000b0  20 31 39 38 38 20 20 20  20 20 2a 0d 00 50 21 f4  | 1988     *..P!.|
000000c0  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 5a 04  |************..Z.|
000000e0  0d 00 64 14 73 70 65 63  69 61 6c 5f 63 68 61 72  |..d.special_char|
000000f0  3d 26 46 46 0d 00 6e 12  6c 69 6e 65 5f 6c 65 6e  |=&FF..n.line_len|
00000100  67 74 68 3d 38 30 0d 00  78 0f 6e 65 77 5f 6c 69  |gth=80..x.new_li|
00000110  6e 65 3d 31 30 0d 00 82  07 eb 20 30 0d 00 8c 0b  |ne=10..... 0....|
00000120  f2 69 6e 70 75 74 73 0d  00 96 10 f2 73 65 74 5f  |.inputs.....set_|
00000130  75 70 5f 63 6f 64 65 0d  00 a0 0c f2 63 6f 6e 76  |up_code.....conv|
00000140  65 72 74 0d 00 aa 05 e0  0d 00 b4 04 0d 00 be 0c  |ert.............|
00000150  dd f2 69 6e 70 75 74 73  0d 00 c8 21 e8 27 22 53  |..inputs...!.'"S|
00000160  6f 75 72 63 65 20 66 69  6c 65 6e 61 6d 65 20 3e  |ource filename >|
00000170  20 22 73 5f 66 69 6c 65  24 0d 00 d2 13 66 69 6c  | "s_file$....fil|
00000180  65 3d 8e 28 73 5f 66 69  6c 65 24 29 0d 00 dc 10  |e=.(s_file$)....|
00000190  73 69 7a 65 3d a2 20 23  66 69 6c 65 0d 00 e6 0b  |size=. #file....|
000001a0  d9 20 23 66 69 6c 65 0d  00 f0 25 e8 22 44 65 73  |. #file...%."Des|
000001b0  74 69 6e 61 74 69 6f 6e  20 66 69 6c 65 6e 61 6d  |tination filenam|
000001c0  65 20 3e 20 22 64 5f 66  69 6c 65 24 0d 00 fa 05  |e > "d_file$....|
000001d0  e1 0d 01 04 04 0d 01 0e  11 dd f2 73 65 74 5f 75  |...........set_u|
000001e0  70 5f 63 6f 64 65 0d 01  18 10 de 20 73 6f 72 63  |p_code..... sorc|
000001f0  25 20 73 69 7a 65 0d 01  22 34 de 20 64 65 73 74  |% size.."4. dest|
00000200  25 20 73 69 7a 65 2a 31  2e 33 20 3a 20 f4 20 73  |% size*1.3 : . s|
00000210  69 7a 65 20 69 6e 63 72  65 61 73 65 20 66 61 63  |ize increase fac|
00000220  74 6f 72 20 6f 66 20 31  2e 33 0d 01 2c 10 de 20  |tor of 1.3..,.. |
00000230  64 61 74 61 25 20 26 31  30 30 0d 01 36 10 de 20  |data% &100..6.. |
00000240  63 6f 64 65 25 20 26 31  30 30 0d 01 40 0d f2 61  |code% &100..@..a|
00000250  73 73 65 6d 62 6c 65 0d  01 4a 0c 6f 66 66 73 65  |ssemble..J.offse|
00000260  74 3d 30 0d 01 54 05 f5  0d 01 5e 0b f3 20 61 24  |t=0..T....^.. a$|
00000270  2c 62 24 0d 01 68 11 e7  20 61 24 3c 3e 22 2a 2a  |,b$..h.. a$<>"**|
00000280  2a 22 20 8c 0d 01 72 23  3f 28 64 61 74 61 25 2b  |*" ...r#?(data%+|
00000290  6f 66 66 73 65 74 29 3d  a0 28 61 24 29 3a 6f 66  |offset)=.(a$):of|
000002a0  66 73 65 74 2b 3d 31 0d  01 7c 23 3f 28 64 61 74  |fset+=1..|#?(dat|
000002b0  61 25 2b 6f 66 66 73 65  74 29 3d a0 28 62 24 29  |a%+offset)=.(b$)|
000002c0  3a 6f 66 66 73 65 74 2b  3d 31 0d 01 86 05 cd 0d  |:offset+=1......|
000002d0  01 90 0e fd 20 61 24 3d  22 2a 2a 2a 22 0d 01 9a  |.... a$="***"...|
000002e0  05 e1 0d 01 a4 04 0d 01  ae 0d dd f2 63 6f 6e 76  |............conv|
000002f0  65 72 74 0d 01 b8 24 ff  28 22 4c 4f 41 44 20 22  |ert...$.("LOAD "|
00000300  2b 73 5f 66 69 6c 65 24  2b 22 20 22 2b c3 7e 28  |+s_file$+" "+.~(|
00000310  73 6f 72 63 25 29 29 0d  01 c2 0e 43 25 3d 73 6f  |sorc%))....C%=so|
00000320  72 63 25 2d 31 0d 01 cc  0c 44 25 3d 64 65 73 74  |rc%-1....D%=dest|
00000330  25 0d 01 d6 0c 45 25 3d  64 61 74 61 25 0d 01 e0  |%....E%=data%...|
00000340  11 46 25 3d 73 6f 72 63  25 2b 73 69 7a 65 0d 01  |.F%=sorc%+size..|
00000350  ea 13 47 25 3d 64 61 74  61 25 2b 6f 66 66 73 65  |..G%=data%+offse|
00000360  74 0d 01 f4 0d d6 20 63  6f 6e 76 65 72 74 0d 01  |t..... convert..|
00000370  fe 0e 65 6e 64 3d 21 64  61 74 61 25 0d 02 08 30  |..end=!data%...0|
00000380  ff 28 22 53 41 56 45 20  22 2b 64 5f 66 69 6c 65  |.("SAVE "+d_file|
00000390  24 2b 22 20 22 2b c3 7e  28 64 65 73 74 25 29 2b  |$+" "+.~(dest%)+|
000003a0  22 20 22 2b c3 7e 28 65  6e 64 29 29 0d 02 12 20  |" "+.~(end))... |
000003b0  ff 28 22 53 45 54 54 59  50 45 20 22 2b 64 5f 66  |.("SETTYPE "+d_f|
000003c0  69 6c 65 24 2b 22 20 46  46 46 22 29 0d 02 1c 05  |ile$+" FFF")....|
000003d0  e1 0d 02 26 04 0d 02 30  0e dd f2 61 73 73 65 6d  |...&...0...assem|
000003e0  62 6c 65 0d 02 3a 13 e3  20 6f 70 74 3d 30 20 b8  |ble..:.. opt=0 .|
000003f0  20 33 20 88 20 32 0d 02  44 0c 50 25 3d 63 6f 64  | 3 . 2..D.P%=cod|
00000400  65 25 0d 02 4e 0c 5b 4f  50 54 20 6f 70 74 0d 02  |e%..N.[OPT opt..|
00000410  58 0c 2e 63 6f 6e 76 65  72 74 0d 02 62 1b 53 54  |X..convert..b.ST|
00000420  4d 46 44 20 52 31 33 21  2c 7b 52 30 2d 52 31 32  |MFD R13!,{R0-R12|
00000430  2c 52 31 34 7d 0d 02 6c  0a 2e 73 74 61 72 74 0d  |,R14}..l..start.|
00000440  02 76 13 4c 44 52 42 20  52 30 2c 5b 52 32 5d 2c  |.v.LDRB R0,[R2],|
00000450  23 31 0d 02 80 10 41 44  44 20 52 39 2c 52 39 2c  |#1....ADD R9,R9,|
00000460  23 31 0d 02 8a 0d 4d 4f  56 20 52 37 2c 52 34 0d  |#1....MOV R7,R4.|
00000470  02 94 0d 4d 4f 56 20 52  38 2c 23 30 0d 02 9e 09  |...MOV R8,#0....|
00000480  2e 6c 6f 6f 70 0d 02 a8  10 4c 44 52 42 20 52 31  |.loop....LDRB R1|
00000490  2c 5b 52 37 5d 0d 02 b2  0d 43 4d 50 20 52 30 2c  |,[R7]....CMP R0,|
000004a0  52 31 0d 02 bc 0d 42 4e  45 20 6a 75 6d 70 31 0d  |R1....BNE jump1.|
000004b0  02 c6 0d 4d 4f 56 20 52  38 2c 23 31 0d 02 d0 13  |...MOV R8,#1....|
000004c0  4c 44 52 42 20 52 31 2c  5b 52 37 2c 23 31 5d 0d  |LDRB R1,[R7,#1].|
000004d0  02 da 18 43 4d 50 20 52  31 2c 23 73 70 65 63 69  |...CMP R1,#speci|
000004e0  61 6c 5f 63 68 61 72 0d  02 e4 0c 42 4e 45 20 6a  |al_char....BNE j|
000004f0  75 6d 70 0d 02 ee 17 43  4d 50 20 52 39 2c 23 6c  |ump....CMP R9,#l|
00000500  69 6e 65 5f 6c 65 6e 67  74 68 0d 02 f8 0d 42 4d  |ine_length....BM|
00000510  49 20 6a 75 6d 70 31 0d  03 02 14 4d 4f 56 20 52  |I jump1....MOV R|
00000520  31 2c 23 6e 65 77 5f 6c  69 6e 65 0d 03 0c 09 2e  |1,#new_line.....|
00000530  6a 75 6d 70 0d 03 16 13  53 54 52 42 20 52 31 2c  |jump....STRB R1,|
00000540  5b 52 33 5d 2c 23 31 0d  03 20 14 43 4d 50 20 52  |[R3],#1.. .CMP R|
00000550  31 2c 23 6e 65 77 5f 6c  69 6e 65 0d 03 2a 0d 42  |1,#new_line..*.B|
00000560  4e 45 20 6a 75 6d 70 31  0d 03 34 0d 4d 4f 56 20  |NE jump1..4.MOV |
00000570  52 39 2c 23 30 0d 03 3e  0a 2e 6a 75 6d 70 31 0d  |R9,#0..>..jump1.|
00000580  03 48 10 41 44 44 20 52  37 2c 52 37 2c 23 32 0d  |.H.ADD R7,R7,#2.|
00000590  03 52 0d 43 4d 50 20 52  37 2c 52 36 0d 03 5c 0c  |.R.CMP R7,R6..\.|
000005a0  42 4e 45 20 6c 6f 6f 70  0d 03 66 09 2e 73 6b 69  |BNE loop..f..ski|
000005b0  70 0d 03 70 0d 43 4d 50  20 52 38 2c 23 31 0d 03  |p..p.CMP R8,#1..|
000005c0  7a 0c 42 45 51 20 63 6f  6e 74 0d 03 84 13 53 54  |z.BEQ cont....ST|
000005d0  52 42 20 52 30 2c 5b 52  33 5d 2c 23 31 0d 03 8e  |RB R0,[R3],#1...|
000005e0  09 2e 63 6f 6e 74 0d 03  98 0d 43 4d 50 20 52 32  |..cont....CMP R2|
000005f0  2c 52 35 0d 03 a2 0d 42  4e 45 20 73 74 61 72 74  |,R5....BNE start|
00000600  0d 03 ac 0f 53 54 52 20  52 33 2c 5b 52 34 5d 0d  |....STR R3,[R4].|
00000610  03 b6 1a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |...LDMFD R13!,{R|
00000620  30 2d 52 31 32 2c 50 43  7d 0d 03 c0 05 5d 0d 03  |0-R12,PC}....]..|
00000630  ca 09 ed 20 6f 70 74 0d  03 d4 05 e1 0d 03 de 04  |... opt.........|
00000640  0d 03 e8 21 f4 20 2a 2a  2a 20 62 79 74 65 73 20  |...!. *** bytes |
00000650  74 6f 20 62 65 20 63 68  61 6e 67 65 64 20 2a 2a  |to be changed **|
00000660  2a 0d 03 f2 04 0d 03 fc  0d dc 20 26 32 30 2c 26  |*......... &20,&|
00000670  31 45 0d 04 06 29 dc 20  26 32 30 2c 26 46 46 3a  |1E...). &20,&FF:|
00000680  52 45 4d 20 63 6f 75 6e  74 65 72 20 75 73 65 64  |REM counter used|
00000690  20 62 79 20 70 72 6f 67  72 61 6d 0d 04 10 04 0d  | by program.....|
000006a0  04 1a 0d dc 20 26 30 44  2c 26 30 41 0d 04 24 04  |.... &0D,&0A..$.|
000006b0  0d 04 2e 0d dc 20 26 44  44 2c 26 32 30 0d 04 38  |..... &DD,&20..8|
000006c0  0d dc 20 26 44 44 2c 26  32 30 0d 04 42 0d dc 20  |.. &DD,&20..B.. |
000006d0  26 44 44 2c 26 32 30 0d  04 4c 0d dc 20 26 44 44  |&DD,&20..L.. &DD|
000006e0  2c 26 32 30 0d 04 56 0d  dc 20 26 44 44 2c 26 32  |,&20..V.. &DD,&2|
000006f0  30 0d 04 57 04 0d 04 58  0c dc 20 33 35 2c 26 41  |0..W...X.. 35,&A|
00000700  33 0d 04 59 0c dc 20 39  36 2c 26 41 33 0d 04 60  |3..Y.. 96,&A3..`|
00000710  04 0d 04 6a 0b dc 20 26  30 32 2c 30 0d 04 74 0b  |...j.. &02,0..t.|
00000720  dc 20 26 30 37 2c 30 0d  04 7e 04 0d 04 88 0d dc  |. &07,0..~......|
00000730  20 2a 2a 2a 2c 2a 2a 2a  0d ff                    | ***,***..|
0000073a