� >ModuleObj

/�                   -----------------------
(/�                   | System Font Definer |
2/�                   |    Version 0.23     |
</�                   |  By Darren Durbin   |
F/�                   | (c)  December 1990  |
P/�                   -----------------------
Z
x� 0
�
�	�init
�	�code
�	�save
��
�:
�� �init
� � code% 4096
� date$=��$,5,11)
� ver$="0.23"
� link=14:sp=13:pc=15
��
�:

� �code

 � pass=4 � 6 � 2

  P%=0:O%=code%

"  [ OPT pass

,D  equd    &00000000         ; No entry point, not an application

6<  equd    init_module       ; Module initialisation code

@:  equd    kill_module       ; Module finalisation code

J:  equd    &00000000         ; No sevice calls acted on

T5  equd    name_string       ; Module title string

^4  equd    help_string       ; Module help string

h7  equd    comm_table        ; Module *command table

r4  equd    &00000000         ; No swi's supported

|4  equd    &00000000         ; No swi's supported

�4  equd    &00000000         ; No swi's supported

�;  equd    &00000000         ; No swi's supported (OK?!)

�

�  .name_string

�!  equs    "SystemFontDefiner"

�  equb    0

�  align

� 

�  .help_string

�6  equs    "Font Definer"+�(&9)+ver$+" ("+date$+")"

�  equb    0

�  align

� 
9  .comm_table               ; Recogninsed OS commands
3  equs    "BoldText"        ; Names of *command
+  equb    0                 ; delimiter
&  align
00  equd    bold_code         ; Offset to code
:/  equd    &00000000         ; Command flags
D@  equd    bold_syntax       ; Offset to syntax error message
N8  equd    bold_help         ; Offset to help message
X 
b  equs    "DefaultText"
l  equb    0
v  align
�  equd    default_code
�  equd    &00000000
�  equd    default_syntax
�  equd    default_help
�
�  equs    "ThinText"
�  equb 0
�  align
�  equd    thin_code
�  equd    &00000000
�  equd    thin_syntax
�  equd    thin_help
�
  equs    "InverseText"
  equb    0
  align
   equd    inverse_code
*  equd    &00000000
4  equd    inverse_syntax
>  equd    inverse_help
H
R  equs    "FutureText"
\  equb    0
f  align
p  equd    future_code
z  equd    &00000000
�  equd    future_syntax
�  equd    future_help
�
�  equs    "ItalicText"
�  equb    0
�  align
�  equd    italic_code
�  equd    &00000000
�  equd    italic_syntax
�  equd    italic_help
�
�  equs    "Italic2Text"
�  equb    0
  align
  equd    italic2_code
  equd    &00000000
$  equd    italic2_syntax
.  equd    italic2_help
8
B  equs    "TrendyText"
L  equb 0
V  align
`  equd    trendy_code
j  equd    &00000000
t  equd    trendy_syntax
~  equd    trendy_help
�
�  equs    "UnderLineText"
�  equb    0
�  align
�  equd    underline_code
�  equd    &00000000
�  equd    underline_syntax
�  equd    underline_help
�
�  equd    0
�
�  .bold_help
F  equs    "*BoldText redefines the system font to a Bold version."

  equb    13
  equb    10

(  .bold_syntax
2!  equs    "Syntax: *BoldText"
<  equb    0
F
P  .default_help
Z?  equs    "*DefaultText restores the system font to normal"
d  equb    13
n  equb    10
x
�  .default_syntax
�$  equs    "Syntax: *DefaultText"
�  equb    0
�  align
�
�  .thin_help
�F  equs    "*ThinText redefines the system font to a thin version."
�  equb    13
�  equb    10
�
�  .thin_syntax
�!  equs    "Syntax: *ThinText"
�  equb    0
  align

  .inverse_help
"J  equs    "*InverseText redefines the system font as 'inverse video'."
,  equb    13
6  equb    10
@
J  .inverse_syntax
T$  equs    "Syntax: *InverseText"
^  equb 0
h  align
r
|  .future_help
�K  equs    "*FutureText redefines the system font to a futuristic type."
�  equb    13
�  equb    10
�
�  .future_syntax
�#  equs    "Syntax: *FutureText"
�  equb 0
�  align
�
�  .italic_help
�A  equs    "*ItalicText redefines the system font to 'italic'"
�  equb    13
�  equb    10

  .italic_syntax
#  equs    "Syntax: *ItalicText"
&  equb    0
0  align
:
D  .italic2_help
Nf  equs    "*Italic2Text redefines the system font to 'italic2', slightly different to *ItalicText"
X  equb    13
b  equb    10
l
v  .italic2_syntax
�$  equs    "Syntax: *Italic2Text"
�  equb    0
�  align
�
�  .trendy_help
�N  equs    "*TrendyText redefines the system font to a more trendy version"
�  equb    13
�  equb    10
�
�  .trendy_syntax
�#  equs    "Syntax: *TrendyText"
�  equb    0
�  align

  .underline_help
N  equs    "*UnderlineText redefines the system font to an underlined form"
   equd    13
*  equd    10
4
>  .underline_syntax
H&  equs    "Syntax: *UnderlineText"
R  equb 0
\  align
f
p0  ;----------------------------------------;
z0  ; This is the start of the actual code.. ;
�0  ;----------------------------------------;
�
�  .init_module
�  stmfd   r13!,{r14}
�  mov     r1,r12
�  ldr     r12,[r12]
�  cmp     r12,#0
�  ldmnefd r13!,{pc}
�  mov     r0,#6
�D  mov     r3,#&10            ; Grab 16 bytes of space for module
�7  swi     "OS_Module"        ; By calling OS_Module
�  str     r2,[r1]
�  mov     r12,r2
	  ldmfd   r13!,{pc}
	
	  .kill_module
	$  stmfd   r13!,{r14}
	.E  ldr     r12,[r12]          ; Load r12 with pointer to workspace
	8  cmp     r10,#0
	B  mov     r0,#7
	L  mov     r2,r12
	V<  swine   "OS_Module"        ; Release workspace and die
	`  ldmfd   r13!,{pc}
	j
	tN  .read_defn ; r12=workspace r4=character - Reads the bitpattern for char.
	~  stmfd   r13!,{r0-r8,r14}
	�  strb    r4,[r12]
	�  mov     r0,#10
	�  mov     r1,r12
	�  swi     "OS_Word"
	�  ldmfd   r13!,{r0-r8,pc}
	�
	�C  .define_char ; r12=workspace r4=character - Defines character
	�  stmfd   r13!,{r0-r8,r14}
	�  swi     256+23
	�  mov     r0,r4
	�  swi     "OS_WriteC"
	�  mov     r1,#1
  .redef_loop

  ldrb    r0,[r12,r1]
  swi     "OS_WriteC"
  add     r1,r1,#1
(  cmp     r1,#9
2  bne     redef_loop
<  swi     &100
F  swi     &100
P  ldmfd   r13!,{r0-r8,pc}
Z
d  .bold_code
n  stmfd   r13!,{r14}
x  ldr     r12,[r12]
�  mov     r4,#33
�  .bold_loop
�  bl      read_defn
�  mov     r5,#1
�  .shift_loop
�  ldrb    r6,[r12,r5]
�  mov     r7,r6,lsr #1
�  orr     r6,r6,r7
�  strb    r6,[r12,r5]
�  add     r5,r5,#1
�  cmp     r5,#9
�  bne     shift_loop
�  bl      define_char
  add     r4,r4,#1
  cmp     r4,#127
  bne     bold_loop
"  ldmfd   r13!,{pc}
, 
6  .default_code
@  stmfd   r13!,{r14}
J  mov     r0,#20
T  mov     r1,#0
^  swi     "OS_Byte"
h  ldmfd   r13!,{pc}
r 
|  .thin_code
�  stmfd   r13!,{r14}
�  ldr     r12,[r12]
�  mov     r4,#33
�  .thin_loop
�  bl      read_defn
�  mov     r5,#1
�  .shift_loop2
�  ldrb    r6,[r12,r5]
�  mov     r7,r6,lsr #1
�  and     r6,r6,r7
�  strb    r6,[r12,r5]
�  add     r5,r5,#1
�  cmp     r5,#9
  bne     shift_loop2
  bl      define_char
  add     r4,r4,#1
&  cmp     r4,#127
0  bne     thin_loop
:  ldmfd   r13!,{pc}
D
N  .inverse_code
X  stmfd   r13!,{r14}
b  ldr     r12,[r12]
l  mov     r4,#32
v  .inverse_loop
�  bl      read_defn
�  mov     r5,#1
�  .shift_loop3
�  ldrb    r6,[r12,r5]
�  eor     r6,r6,#&FF
�  strb    r6,[r12,r5]
�  add     r5,r5,#1
�  cmp     r5,#9
�  bne     shift_loop3
�  bl      define_char
�  add     r4,r4,#1
�  cmp     r4,#127
�  bne     inverse_loop

  ldmfd   r13!,{pc}



  .future_code

   stmfd   r13!,{r14}

*  ldr     r12,[r12]

4  mov     r4,#33

>  .future_loop

H  bl      read_defn

R  mov     r5,#4

\  .shift_loop4

f  ldrb    r6,[r12,r5]

p  mov     r7,r6,lsr #1

z  orr     r6,r6,r7

�  strb    r6,[r12,r5]

�  add     r5,r5,#1

�  cmp     r5,#9

�  bne     shift_loop4

�  bl      define_char

�  add     r4,r4,#1

�  cmp     r4,#127

�  bne     future_loop

�  ldmfd   r13!,{pc}

�

�  .italic_code

�  stmfd   r13!,{r14}

�  ldr     r12,[r12]
  mov     r4,#32
  .italic_loop
  bl      read_defn
$  mov     r5,#1
.  .shift_loop5
8  ldrb    r6,[r12,r5]
B  cmp     r5,#5
L  movgt   r6,r6,lsl #1
V  bgt     next_byte
`  cmp     r5,#3
j  bgt     next_byte
t  mov     r6,r6,lsr #1
~  .next_byte
�  strb    r6,[r12,r5]
�  add     r5,r5,#1
�  cmp     r5,#9
�  bne     shift_loop5
�  bl      define_char
�  add     r4,r4,#1
�  cmp     r4,#127
�  bne     italic_loop
�  ldmfd   r13!,{pc}
�
�  .italic2_code
�  stmfd   r13!,{r14}
  ldr     r12,[r12]

  mov     r4,#32
  .italic2_loop
  bl      read_defn
(  mov     r5,#5
2  .shift_loop6
<  ldrb    r6,[r12,r5]
F  mov     r6,r6,lsl #1
P  strb    r6,[r12,r5]
Z  add     r5,r5,#1
d  cmp     r5,#9
n  bne     shift_loop6
x  bl      define_char
�  add     r4,r4,#1
�  cmp     r4,#127
�  bne     italic2_loop
�  ldmfd   r13!,{pc}
�
�  .trendy_code
�  stmfd   r13!,{r14}
�  ldr     r12,[r12]
�  mov     r4,#32
�  .trendy_loop
�  bl      read_defn
�  mov     r5,#2
�  ldrb    r6,[r12,r5]
  and     r6,r6,#&0F
  strb    r6,[r12,r5]
  bl      define_char
"  add     r4,r4,#1
,  cmp     r4,#127
6  bne     trendy_loop
@  ldmfd   r13!,{pc}
J
T  .underline_code
^  stmfd   r13!,{r14}
h  ldr     r12,[r12]
r  mov     r4,#32
|  .underline_loop
�  bl      read_defn
�  mov     r5,#8
�  ldrb    r6,[r12,r5]
�  eor     r6,r6,#&FF
�  strb    r6,[r12,r5]
�  bl      define_char
�  add     r4,r4,#1
�  cmp     r4,#127
�  bne     underline_loop
�  ldmfd   r13!,{pc}
�  ]
� �
��
:
� �save
+ � "Save SysFontMod "+�~code%+" +"+�~P%
& � "SetType SysFontMod FFA"
03 �"Module saved as '$.Syst_Font.SysFontMod'..."
:3 �"Code size is :&";~P%;" bytes (";P%/1024;"K)"
D *RmLoad SysFontMod
N�
�

00000000  0d 00 0a 10 f4 20 3e 4d  6f 64 75 6c 65 4f 62 6a  |..... >ModuleObj|
00000010  0d 00 14 04 0d 00 1e 2f  f4 20 20 20 20 20 20 20  |......./.       |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
00000030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000040  2d 2d 2d 0d 00 28 2f f4  20 20 20 20 20 20 20 20  |---..(/.        |
00000050  20 20 20 20 20 20 20 20  20 20 20 7c 20 53 79 73  |           | Sys|
00000060  74 65 6d 20 46 6f 6e 74  20 44 65 66 69 6e 65 72  |tem Font Definer|
00000070  20 7c 0d 00 32 2f f4 20  20 20 20 20 20 20 20 20  | |..2/.         |
00000080  20 20 20 20 20 20 20 20  20 20 7c 20 20 20 20 56  |          |    V|
00000090  65 72 73 69 6f 6e 20 30  2e 32 33 20 20 20 20 20  |ersion 0.23     |
000000a0  7c 0d 00 3c 2f f4 20 20  20 20 20 20 20 20 20 20  ||..</.          |
000000b0  20 20 20 20 20 20 20 20  20 7c 20 20 42 79 20 44  |         |  By D|
000000c0  61 72 72 65 6e 20 44 75  72 62 69 6e 20 20 20 7c  |arren Durbin   ||
000000d0  0d 00 46 2f f4 20 20 20  20 20 20 20 20 20 20 20  |..F/.           |
000000e0  20 20 20 20 20 20 20 20  7c 20 28 63 29 20 20 44  |        | (c)  D|
000000f0  65 63 65 6d 62 65 72 20  31 39 39 30 20 20 7c 0d  |ecember 1990  |.|
00000100  00 50 2f f4 20 20 20 20  20 20 20 20 20 20 20 20  |.P/.            |
00000110  20 20 20 20 20 20 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |       ---------|
00000120  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000130  5a 04 0d 00 78 07 eb 20  30 0d 00 82 04 0d 00 8c  |Z...x.. 0.......|
00000140  09 f2 69 6e 69 74 0d 00  96 09 f2 63 6f 64 65 0d  |..init.....code.|
00000150  00 a0 09 f2 73 61 76 65  0d 00 aa 05 e0 0d 00 b4  |....save........|
00000160  05 3a 0d 00 be 0b dd 20  f2 69 6e 69 74 0d 00 c8  |.:..... .init...|
00000170  11 20 de 20 63 6f 64 65  25 20 34 30 39 36 0d 00  |. . code% 4096..|
00000180  d2 14 20 64 61 74 65 24  3d c1 91 24 2c 35 2c 31  |.. date$=..$,5,1|
00000190  31 29 0d 00 dc 10 20 76  65 72 24 3d 22 30 2e 32  |1).... ver$="0.2|
000001a0  33 22 0d 00 e6 18 20 6c  69 6e 6b 3d 31 34 3a 73  |3".... link=14:s|
000001b0  70 3d 31 33 3a 70 63 3d  31 35 0d 00 f0 05 e1 0d  |p=13:pc=15......|
000001c0  00 fa 05 3a 0d 01 04 0b  dd 20 f2 63 6f 64 65 0d  |...:..... .code.|
000001d0  01 0e 15 20 e3 20 70 61  73 73 3d 34 20 b8 20 36  |... . pass=4 . 6|
000001e0  20 88 20 32 0d 01 18 13  20 20 50 25 3d 30 3a 4f  | . 2....  P%=0:O|
000001f0  25 3d 63 6f 64 65 25 0d  01 22 10 20 20 5b 20 4f  |%=code%..".  [ O|
00000200  50 54 20 70 61 73 73 0d  01 2c 44 20 20 65 71 75  |PT pass..,D  equ|
00000210  64 20 20 20 20 26 30 30  30 30 30 30 30 30 20 20  |d    &00000000  |
00000220  20 20 20 20 20 20 20 3b  20 4e 6f 20 65 6e 74 72  |       ; No entr|
00000230  79 20 70 6f 69 6e 74 2c  20 6e 6f 74 20 61 6e 20  |y point, not an |
00000240  61 70 70 6c 69 63 61 74  69 6f 6e 0d 01 36 3c 20  |application..6< |
00000250  20 65 71 75 64 20 20 20  20 69 6e 69 74 5f 6d 6f  | equd    init_mo|
00000260  64 75 6c 65 20 20 20 20  20 20 20 3b 20 4d 6f 64  |dule       ; Mod|
00000270  75 6c 65 20 69 6e 69 74  69 61 6c 69 73 61 74 69  |ule initialisati|
00000280  6f 6e 20 63 6f 64 65 0d  01 40 3a 20 20 65 71 75  |on code..@:  equ|
00000290  64 20 20 20 20 6b 69 6c  6c 5f 6d 6f 64 75 6c 65  |d    kill_module|
000002a0  20 20 20 20 20 20 20 3b  20 4d 6f 64 75 6c 65 20  |       ; Module |
000002b0  66 69 6e 61 6c 69 73 61  74 69 6f 6e 20 63 6f 64  |finalisation cod|
000002c0  65 0d 01 4a 3a 20 20 65  71 75 64 20 20 20 20 26  |e..J:  equd    &|
000002d0  30 30 30 30 30 30 30 30  20 20 20 20 20 20 20 20  |00000000        |
000002e0  20 3b 20 4e 6f 20 73 65  76 69 63 65 20 63 61 6c  | ; No sevice cal|
000002f0  6c 73 20 61 63 74 65 64  20 6f 6e 0d 01 54 35 20  |ls acted on..T5 |
00000300  20 65 71 75 64 20 20 20  20 6e 61 6d 65 5f 73 74  | equd    name_st|
00000310  72 69 6e 67 20 20 20 20  20 20 20 3b 20 4d 6f 64  |ring       ; Mod|
00000320  75 6c 65 20 74 69 74 6c  65 20 73 74 72 69 6e 67  |ule title string|
00000330  0d 01 5e 34 20 20 65 71  75 64 20 20 20 20 68 65  |..^4  equd    he|
00000340  6c 70 5f 73 74 72 69 6e  67 20 20 20 20 20 20 20  |lp_string       |
00000350  3b 20 4d 6f 64 75 6c 65  20 68 65 6c 70 20 73 74  |; Module help st|
00000360  72 69 6e 67 0d 01 68 37  20 20 65 71 75 64 20 20  |ring..h7  equd  |
00000370  20 20 63 6f 6d 6d 5f 74  61 62 6c 65 20 20 20 20  |  comm_table    |
00000380  20 20 20 20 3b 20 4d 6f  64 75 6c 65 20 2a 63 6f  |    ; Module *co|
00000390  6d 6d 61 6e 64 20 74 61  62 6c 65 0d 01 72 34 20  |mmand table..r4 |
000003a0  20 65 71 75 64 20 20 20  20 26 30 30 30 30 30 30  | equd    &000000|
000003b0  30 30 20 20 20 20 20 20  20 20 20 3b 20 4e 6f 20  |00         ; No |
000003c0  73 77 69 27 73 20 73 75  70 70 6f 72 74 65 64 0d  |swi's supported.|
000003d0  01 7c 34 20 20 65 71 75  64 20 20 20 20 26 30 30  |.|4  equd    &00|
000003e0  30 30 30 30 30 30 20 20  20 20 20 20 20 20 20 3b  |000000         ;|
000003f0  20 4e 6f 20 73 77 69 27  73 20 73 75 70 70 6f 72  | No swi's suppor|
00000400  74 65 64 0d 01 86 34 20  20 65 71 75 64 20 20 20  |ted...4  equd   |
00000410  20 26 30 30 30 30 30 30  30 30 20 20 20 20 20 20  | &00000000      |
00000420  20 20 20 3b 20 4e 6f 20  73 77 69 27 73 20 73 75  |   ; No swi's su|
00000430  70 70 6f 72 74 65 64 0d  01 90 3b 20 20 65 71 75  |pported...;  equ|
00000440  64 20 20 20 20 26 30 30  30 30 30 30 30 30 20 20  |d    &00000000  |
00000450  20 20 20 20 20 20 20 3b  20 4e 6f 20 73 77 69 27  |       ; No swi'|
00000460  73 20 73 75 70 70 6f 72  74 65 64 20 28 4f 4b 3f  |s supported (OK?|
00000470  21 29 0d 01 9a 04 0d 01  a4 12 20 20 2e 6e 61 6d  |!)........  .nam|
00000480  65 5f 73 74 72 69 6e 67  0d 01 ae 21 20 20 65 71  |e_string...!  eq|
00000490  75 73 20 20 20 20 22 53  79 73 74 65 6d 46 6f 6e  |us    "SystemFon|
000004a0  74 44 65 66 69 6e 65 72  22 0d 01 b8 0f 20 20 65  |tDefiner"....  e|
000004b0  71 75 62 20 20 20 20 30  0d 01 c2 0b 20 20 61 6c  |qub    0....  al|
000004c0  69 67 6e 0d 01 cc 05 20  0d 01 d6 12 20 20 2e 68  |ign.... ....  .h|
000004d0  65 6c 70 5f 73 74 72 69  6e 67 0d 01 e0 36 20 20  |elp_string...6  |
000004e0  65 71 75 73 20 20 20 20  22 46 6f 6e 74 20 44 65  |equs    "Font De|
000004f0  66 69 6e 65 72 22 2b bd  28 26 39 29 2b 76 65 72  |finer"+.(&9)+ver|
00000500  24 2b 22 20 28 22 2b 64  61 74 65 24 2b 22 29 22  |$+" ("+date$+")"|
00000510  0d 01 ea 0f 20 20 65 71  75 62 20 20 20 20 30 0d  |....  equb    0.|
00000520  01 f4 0b 20 20 61 6c 69  67 6e 0d 01 fe 05 20 0d  |...  align.... .|
00000530  02 08 39 20 20 2e 63 6f  6d 6d 5f 74 61 62 6c 65  |..9  .comm_table|
00000540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00000550  20 52 65 63 6f 67 6e 69  6e 73 65 64 20 4f 53 20  | Recogninsed OS |
00000560  63 6f 6d 6d 61 6e 64 73  0d 02 12 33 20 20 65 71  |commands...3  eq|
00000570  75 73 20 20 20 20 22 42  6f 6c 64 54 65 78 74 22  |us    "BoldText"|
00000580  20 20 20 20 20 20 20 20  3b 20 4e 61 6d 65 73 20  |        ; Names |
00000590  6f 66 20 2a 63 6f 6d 6d  61 6e 64 0d 02 1c 2b 20  |of *command...+ |
000005a0  20 65 71 75 62 20 20 20  20 30 20 20 20 20 20 20  | equb    0      |
000005b0  20 20 20 20 20 20 20 20  20 20 20 3b 20 64 65 6c  |           ; del|
000005c0  69 6d 69 74 65 72 0d 02  26 0b 20 20 61 6c 69 67  |imiter..&.  alig|
000005d0  6e 0d 02 30 30 20 20 65  71 75 64 20 20 20 20 62  |n..00  equd    b|
000005e0  6f 6c 64 5f 63 6f 64 65  20 20 20 20 20 20 20 20  |old_code        |
000005f0  20 3b 20 4f 66 66 73 65  74 20 74 6f 20 63 6f 64  | ; Offset to cod|
00000600  65 0d 02 3a 2f 20 20 65  71 75 64 20 20 20 20 26  |e..:/  equd    &|
00000610  30 30 30 30 30 30 30 30  20 20 20 20 20 20 20 20  |00000000        |
00000620  20 3b 20 43 6f 6d 6d 61  6e 64 20 66 6c 61 67 73  | ; Command flags|
00000630  0d 02 44 40 20 20 65 71  75 64 20 20 20 20 62 6f  |..D@  equd    bo|
00000640  6c 64 5f 73 79 6e 74 61  78 20 20 20 20 20 20 20  |ld_syntax       |
00000650  3b 20 4f 66 66 73 65 74  20 74 6f 20 73 79 6e 74  |; Offset to synt|
00000660  61 78 20 65 72 72 6f 72  20 6d 65 73 73 61 67 65  |ax error message|
00000670  0d 02 4e 38 20 20 65 71  75 64 20 20 20 20 62 6f  |..N8  equd    bo|
00000680  6c 64 5f 68 65 6c 70 20  20 20 20 20 20 20 20 20  |ld_help         |
00000690  3b 20 4f 66 66 73 65 74  20 74 6f 20 68 65 6c 70  |; Offset to help|
000006a0  20 6d 65 73 73 61 67 65  0d 02 58 05 20 0d 02 62  | message..X. ..b|
000006b0  1b 20 20 65 71 75 73 20  20 20 20 22 44 65 66 61  |.  equs    "Defa|
000006c0  75 6c 74 54 65 78 74 22  0d 02 6c 0f 20 20 65 71  |ultText"..l.  eq|
000006d0  75 62 20 20 20 20 30 0d  02 76 0b 20 20 61 6c 69  |ub    0..v.  ali|
000006e0  67 6e 0d 02 80 1a 20 20  65 71 75 64 20 20 20 20  |gn....  equd    |
000006f0  64 65 66 61 75 6c 74 5f  63 6f 64 65 0d 02 8a 17  |default_code....|
00000700  20 20 65 71 75 64 20 20  20 20 26 30 30 30 30 30  |  equd    &00000|
00000710  30 30 30 0d 02 94 1c 20  20 65 71 75 64 20 20 20  |000....  equd   |
00000720  20 64 65 66 61 75 6c 74  5f 73 79 6e 74 61 78 0d  | default_syntax.|
00000730  02 9e 1a 20 20 65 71 75  64 20 20 20 20 64 65 66  |...  equd    def|
00000740  61 75 6c 74 5f 68 65 6c  70 0d 02 a8 04 0d 02 b2  |ault_help.......|
00000750  18 20 20 65 71 75 73 20  20 20 20 22 54 68 69 6e  |.  equs    "Thin|
00000760  54 65 78 74 22 0d 02 bc  0c 20 20 65 71 75 62 20  |Text"....  equb |
00000770  30 0d 02 c6 0b 20 20 61  6c 69 67 6e 0d 02 d0 17  |0....  align....|
00000780  20 20 65 71 75 64 20 20  20 20 74 68 69 6e 5f 63  |  equd    thin_c|
00000790  6f 64 65 0d 02 da 17 20  20 65 71 75 64 20 20 20  |ode....  equd   |
000007a0  20 26 30 30 30 30 30 30  30 30 0d 02 e4 19 20 20  | &00000000....  |
000007b0  65 71 75 64 20 20 20 20  74 68 69 6e 5f 73 79 6e  |equd    thin_syn|
000007c0  74 61 78 0d 02 ee 17 20  20 65 71 75 64 20 20 20  |tax....  equd   |
000007d0  20 74 68 69 6e 5f 68 65  6c 70 0d 02 f8 04 0d 03  | thin_help......|
000007e0  02 1b 20 20 65 71 75 73  20 20 20 20 22 49 6e 76  |..  equs    "Inv|
000007f0  65 72 73 65 54 65 78 74  22 0d 03 0c 0f 20 20 65  |erseText"....  e|
00000800  71 75 62 20 20 20 20 30  0d 03 16 0b 20 20 61 6c  |qub    0....  al|
00000810  69 67 6e 0d 03 20 1a 20  20 65 71 75 64 20 20 20  |ign.. .  equd   |
00000820  20 69 6e 76 65 72 73 65  5f 63 6f 64 65 0d 03 2a  | inverse_code..*|
00000830  17 20 20 65 71 75 64 20  20 20 20 26 30 30 30 30  |.  equd    &0000|
00000840  30 30 30 30 0d 03 34 1c  20 20 65 71 75 64 20 20  |0000..4.  equd  |
00000850  20 20 69 6e 76 65 72 73  65 5f 73 79 6e 74 61 78  |  inverse_syntax|
00000860  0d 03 3e 1a 20 20 65 71  75 64 20 20 20 20 69 6e  |..>.  equd    in|
00000870  76 65 72 73 65 5f 68 65  6c 70 0d 03 48 04 0d 03  |verse_help..H...|
00000880  52 1a 20 20 65 71 75 73  20 20 20 20 22 46 75 74  |R.  equs    "Fut|
00000890  75 72 65 54 65 78 74 22  0d 03 5c 0f 20 20 65 71  |ureText"..\.  eq|
000008a0  75 62 20 20 20 20 30 0d  03 66 0b 20 20 61 6c 69  |ub    0..f.  ali|
000008b0  67 6e 0d 03 70 19 20 20  65 71 75 64 20 20 20 20  |gn..p.  equd    |
000008c0  66 75 74 75 72 65 5f 63  6f 64 65 0d 03 7a 17 20  |future_code..z. |
000008d0  20 65 71 75 64 20 20 20  20 26 30 30 30 30 30 30  | equd    &000000|
000008e0  30 30 0d 03 84 1b 20 20  65 71 75 64 20 20 20 20  |00....  equd    |
000008f0  66 75 74 75 72 65 5f 73  79 6e 74 61 78 0d 03 8e  |future_syntax...|
00000900  19 20 20 65 71 75 64 20  20 20 20 66 75 74 75 72  |.  equd    futur|
00000910  65 5f 68 65 6c 70 0d 03  98 04 0d 03 a2 1a 20 20  |e_help........  |
00000920  65 71 75 73 20 20 20 20  22 49 74 61 6c 69 63 54  |equs    "ItalicT|
00000930  65 78 74 22 0d 03 ac 0f  20 20 65 71 75 62 20 20  |ext"....  equb  |
00000940  20 20 30 0d 03 b6 0b 20  20 61 6c 69 67 6e 0d 03  |  0....  align..|
00000950  c0 19 20 20 65 71 75 64  20 20 20 20 69 74 61 6c  |..  equd    ital|
00000960  69 63 5f 63 6f 64 65 0d  03 ca 17 20 20 65 71 75  |ic_code....  equ|
00000970  64 20 20 20 20 26 30 30  30 30 30 30 30 30 0d 03  |d    &00000000..|
00000980  d4 1b 20 20 65 71 75 64  20 20 20 20 69 74 61 6c  |..  equd    ital|
00000990  69 63 5f 73 79 6e 74 61  78 0d 03 de 19 20 20 65  |ic_syntax....  e|
000009a0  71 75 64 20 20 20 20 69  74 61 6c 69 63 5f 68 65  |qud    italic_he|
000009b0  6c 70 0d 03 e8 04 0d 03  f2 1b 20 20 65 71 75 73  |lp........  equs|
000009c0  20 20 20 20 22 49 74 61  6c 69 63 32 54 65 78 74  |    "Italic2Text|
000009d0  22 0d 03 fc 0f 20 20 65  71 75 62 20 20 20 20 30  |"....  equb    0|
000009e0  0d 04 06 0b 20 20 61 6c  69 67 6e 0d 04 10 1a 20  |....  align.... |
000009f0  20 65 71 75 64 20 20 20  20 69 74 61 6c 69 63 32  | equd    italic2|
00000a00  5f 63 6f 64 65 0d 04 1a  17 20 20 65 71 75 64 20  |_code....  equd |
00000a10  20 20 20 26 30 30 30 30  30 30 30 30 0d 04 24 1c  |   &00000000..$.|
00000a20  20 20 65 71 75 64 20 20  20 20 69 74 61 6c 69 63  |  equd    italic|
00000a30  32 5f 73 79 6e 74 61 78  0d 04 2e 1a 20 20 65 71  |2_syntax....  eq|
00000a40  75 64 20 20 20 20 69 74  61 6c 69 63 32 5f 68 65  |ud    italic2_he|
00000a50  6c 70 0d 04 38 04 0d 04  42 1a 20 20 65 71 75 73  |lp..8...B.  equs|
00000a60  20 20 20 20 22 54 72 65  6e 64 79 54 65 78 74 22  |    "TrendyText"|
00000a70  0d 04 4c 0c 20 20 65 71  75 62 20 30 0d 04 56 0b  |..L.  equb 0..V.|
00000a80  20 20 61 6c 69 67 6e 0d  04 60 19 20 20 65 71 75  |  align..`.  equ|
00000a90  64 20 20 20 20 74 72 65  6e 64 79 5f 63 6f 64 65  |d    trendy_code|
00000aa0  0d 04 6a 17 20 20 65 71  75 64 20 20 20 20 26 30  |..j.  equd    &0|
00000ab0  30 30 30 30 30 30 30 0d  04 74 1b 20 20 65 71 75  |0000000..t.  equ|
00000ac0  64 20 20 20 20 74 72 65  6e 64 79 5f 73 79 6e 74  |d    trendy_synt|
00000ad0  61 78 0d 04 7e 19 20 20  65 71 75 64 20 20 20 20  |ax..~.  equd    |
00000ae0  74 72 65 6e 64 79 5f 68  65 6c 70 0d 04 88 04 0d  |trendy_help.....|
00000af0  04 92 1d 20 20 65 71 75  73 20 20 20 20 22 55 6e  |...  equs    "Un|
00000b00  64 65 72 4c 69 6e 65 54  65 78 74 22 0d 04 9c 0f  |derLineText"....|
00000b10  20 20 65 71 75 62 20 20  20 20 30 0d 04 a6 0b 20  |  equb    0.... |
00000b20  20 61 6c 69 67 6e 0d 04  b0 1c 20 20 65 71 75 64  | align....  equd|
00000b30  20 20 20 20 75 6e 64 65  72 6c 69 6e 65 5f 63 6f  |    underline_co|
00000b40  64 65 0d 04 ba 17 20 20  65 71 75 64 20 20 20 20  |de....  equd    |
00000b50  26 30 30 30 30 30 30 30  30 0d 04 c4 1e 20 20 65  |&00000000....  e|
00000b60  71 75 64 20 20 20 20 75  6e 64 65 72 6c 69 6e 65  |qud    underline|
00000b70  5f 73 79 6e 74 61 78 0d  04 ce 1c 20 20 65 71 75  |_syntax....  equ|
00000b80  64 20 20 20 20 75 6e 64  65 72 6c 69 6e 65 5f 68  |d    underline_h|
00000b90  65 6c 70 0d 04 d8 04 0d  04 e2 0f 20 20 65 71 75  |elp........  equ|
00000ba0  64 20 20 20 20 30 0d 04  ec 04 0d 04 f6 10 20 20  |d    0........  |
00000bb0  2e 62 6f 6c 64 5f 68 65  6c 70 0d 05 00 46 20 20  |.bold_help...F  |
00000bc0  65 71 75 73 20 20 20 20  22 2a 42 6f 6c 64 54 65  |equs    "*BoldTe|
00000bd0  78 74 20 72 65 64 65 66  69 6e 65 73 20 74 68 65  |xt redefines the|
00000be0  20 73 79 73 74 65 6d 20  66 6f 6e 74 20 74 6f 20  | system font to |
00000bf0  61 20 42 6f 6c 64 20 76  65 72 73 69 6f 6e 2e 22  |a Bold version."|
00000c00  0d 05 0a 10 20 20 65 71  75 62 20 20 20 20 31 33  |....  equb    13|
00000c10  0d 05 14 10 20 20 65 71  75 62 20 20 20 20 31 30  |....  equb    10|
00000c20  0d 05 1e 04 0d 05 28 12  20 20 2e 62 6f 6c 64 5f  |......(.  .bold_|
00000c30  73 79 6e 74 61 78 0d 05  32 21 20 20 65 71 75 73  |syntax..2!  equs|
00000c40  20 20 20 20 22 53 79 6e  74 61 78 3a 20 2a 42 6f  |    "Syntax: *Bo|
00000c50  6c 64 54 65 78 74 22 0d  05 3c 0f 20 20 65 71 75  |ldText"..<.  equ|
00000c60  62 20 20 20 20 30 0d 05  46 04 0d 05 50 13 20 20  |b    0..F...P.  |
00000c70  2e 64 65 66 61 75 6c 74  5f 68 65 6c 70 0d 05 5a  |.default_help..Z|
00000c80  3f 20 20 65 71 75 73 20  20 20 20 22 2a 44 65 66  |?  equs    "*Def|
00000c90  61 75 6c 74 54 65 78 74  20 72 65 73 74 6f 72 65  |aultText restore|
00000ca0  73 20 74 68 65 20 73 79  73 74 65 6d 20 66 6f 6e  |s the system fon|
00000cb0  74 20 74 6f 20 6e 6f 72  6d 61 6c 22 0d 05 64 10  |t to normal"..d.|
00000cc0  20 20 65 71 75 62 20 20  20 20 31 33 0d 05 6e 10  |  equb    13..n.|
00000cd0  20 20 65 71 75 62 20 20  20 20 31 30 0d 05 78 04  |  equb    10..x.|
00000ce0  0d 05 82 15 20 20 2e 64  65 66 61 75 6c 74 5f 73  |....  .default_s|
00000cf0  79 6e 74 61 78 0d 05 8c  24 20 20 65 71 75 73 20  |yntax...$  equs |
00000d00  20 20 20 22 53 79 6e 74  61 78 3a 20 2a 44 65 66  |   "Syntax: *Def|
00000d10  61 75 6c 74 54 65 78 74  22 0d 05 96 0f 20 20 65  |aultText"....  e|
00000d20  71 75 62 20 20 20 20 30  0d 05 a0 0b 20 20 61 6c  |qub    0....  al|
00000d30  69 67 6e 0d 05 aa 04 0d  05 b4 10 20 20 2e 74 68  |ign........  .th|
00000d40  69 6e 5f 68 65 6c 70 0d  05 be 46 20 20 65 71 75  |in_help...F  equ|
00000d50  73 20 20 20 20 22 2a 54  68 69 6e 54 65 78 74 20  |s    "*ThinText |
00000d60  72 65 64 65 66 69 6e 65  73 20 74 68 65 20 73 79  |redefines the sy|
00000d70  73 74 65 6d 20 66 6f 6e  74 20 74 6f 20 61 20 74  |stem font to a t|
00000d80  68 69 6e 20 76 65 72 73  69 6f 6e 2e 22 0d 05 c8  |hin version."...|
00000d90  10 20 20 65 71 75 62 20  20 20 20 31 33 0d 05 d2  |.  equb    13...|
00000da0  10 20 20 65 71 75 62 20  20 20 20 31 30 0d 05 dc  |.  equb    10...|
00000db0  04 0d 05 e6 12 20 20 2e  74 68 69 6e 5f 73 79 6e  |.....  .thin_syn|
00000dc0  74 61 78 0d 05 f0 21 20  20 65 71 75 73 20 20 20  |tax...!  equs   |
00000dd0  20 22 53 79 6e 74 61 78  3a 20 2a 54 68 69 6e 54  | "Syntax: *ThinT|
00000de0  65 78 74 22 0d 05 fa 0f  20 20 65 71 75 62 20 20  |ext"....  equb  |
00000df0  20 20 30 0d 06 04 0b 20  20 61 6c 69 67 6e 0d 06  |  0....  align..|
00000e00  0e 04 0d 06 18 13 20 20  2e 69 6e 76 65 72 73 65  |......  .inverse|
00000e10  5f 68 65 6c 70 0d 06 22  4a 20 20 65 71 75 73 20  |_help.."J  equs |
00000e20  20 20 20 22 2a 49 6e 76  65 72 73 65 54 65 78 74  |   "*InverseText|
00000e30  20 72 65 64 65 66 69 6e  65 73 20 74 68 65 20 73  | redefines the s|
00000e40  79 73 74 65 6d 20 66 6f  6e 74 20 61 73 20 27 69  |ystem font as 'i|
00000e50  6e 76 65 72 73 65 20 76  69 64 65 6f 27 2e 22 0d  |nverse video'.".|
00000e60  06 2c 10 20 20 65 71 75  62 20 20 20 20 31 33 0d  |.,.  equb    13.|
00000e70  06 36 10 20 20 65 71 75  62 20 20 20 20 31 30 0d  |.6.  equb    10.|
00000e80  06 40 04 0d 06 4a 15 20  20 2e 69 6e 76 65 72 73  |.@...J.  .invers|
00000e90  65 5f 73 79 6e 74 61 78  0d 06 54 24 20 20 65 71  |e_syntax..T$  eq|
00000ea0  75 73 20 20 20 20 22 53  79 6e 74 61 78 3a 20 2a  |us    "Syntax: *|
00000eb0  49 6e 76 65 72 73 65 54  65 78 74 22 0d 06 5e 0c  |InverseText"..^.|
00000ec0  20 20 65 71 75 62 20 30  0d 06 68 0b 20 20 61 6c  |  equb 0..h.  al|
00000ed0  69 67 6e 0d 06 72 04 0d  06 7c 12 20 20 2e 66 75  |ign..r...|.  .fu|
00000ee0  74 75 72 65 5f 68 65 6c  70 0d 06 86 4b 20 20 65  |ture_help...K  e|
00000ef0  71 75 73 20 20 20 20 22  2a 46 75 74 75 72 65 54  |qus    "*FutureT|
00000f00  65 78 74 20 72 65 64 65  66 69 6e 65 73 20 74 68  |ext redefines th|
00000f10  65 20 73 79 73 74 65 6d  20 66 6f 6e 74 20 74 6f  |e system font to|
00000f20  20 61 20 66 75 74 75 72  69 73 74 69 63 20 74 79  | a futuristic ty|
00000f30  70 65 2e 22 0d 06 90 10  20 20 65 71 75 62 20 20  |pe."....  equb  |
00000f40  20 20 31 33 0d 06 9a 10  20 20 65 71 75 62 20 20  |  13....  equb  |
00000f50  20 20 31 30 0d 06 a4 04  0d 06 ae 14 20 20 2e 66  |  10........  .f|
00000f60  75 74 75 72 65 5f 73 79  6e 74 61 78 0d 06 b8 23  |uture_syntax...#|
00000f70  20 20 65 71 75 73 20 20  20 20 22 53 79 6e 74 61  |  equs    "Synta|
00000f80  78 3a 20 2a 46 75 74 75  72 65 54 65 78 74 22 0d  |x: *FutureText".|
00000f90  06 c2 0c 20 20 65 71 75  62 20 30 0d 06 cc 0b 20  |...  equb 0.... |
00000fa0  20 61 6c 69 67 6e 0d 06  d6 04 0d 06 e0 12 20 20  | align........  |
00000fb0  2e 69 74 61 6c 69 63 5f  68 65 6c 70 0d 06 ea 41  |.italic_help...A|
00000fc0  20 20 65 71 75 73 20 20  20 20 22 2a 49 74 61 6c  |  equs    "*Ital|
00000fd0  69 63 54 65 78 74 20 72  65 64 65 66 69 6e 65 73  |icText redefines|
00000fe0  20 74 68 65 20 73 79 73  74 65 6d 20 66 6f 6e 74  | the system font|
00000ff0  20 74 6f 20 27 69 74 61  6c 69 63 27 22 0d 06 f4  | to 'italic'"...|
00001000  10 20 20 65 71 75 62 20  20 20 20 31 33 0d 06 fe  |.  equb    13...|
00001010  10 20 20 65 71 75 62 20  20 20 20 31 30 0d 07 08  |.  equb    10...|
00001020  04 0d 07 12 14 20 20 2e  69 74 61 6c 69 63 5f 73  |.....  .italic_s|
00001030  79 6e 74 61 78 0d 07 1c  23 20 20 65 71 75 73 20  |yntax...#  equs |
00001040  20 20 20 22 53 79 6e 74  61 78 3a 20 2a 49 74 61  |   "Syntax: *Ita|
00001050  6c 69 63 54 65 78 74 22  0d 07 26 0f 20 20 65 71  |licText"..&.  eq|
00001060  75 62 20 20 20 20 30 0d  07 30 0b 20 20 61 6c 69  |ub    0..0.  ali|
00001070  67 6e 0d 07 3a 04 0d 07  44 13 20 20 2e 69 74 61  |gn..:...D.  .ita|
00001080  6c 69 63 32 5f 68 65 6c  70 0d 07 4e 66 20 20 65  |lic2_help..Nf  e|
00001090  71 75 73 20 20 20 20 22  2a 49 74 61 6c 69 63 32  |qus    "*Italic2|
000010a0  54 65 78 74 20 72 65 64  65 66 69 6e 65 73 20 74  |Text redefines t|
000010b0  68 65 20 73 79 73 74 65  6d 20 66 6f 6e 74 20 74  |he system font t|
000010c0  6f 20 27 69 74 61 6c 69  63 32 27 2c 20 73 6c 69  |o 'italic2', sli|
000010d0  67 68 74 6c 79 20 64 69  66 66 65 72 65 6e 74 20  |ghtly different |
000010e0  74 6f 20 2a 49 74 61 6c  69 63 54 65 78 74 22 0d  |to *ItalicText".|
000010f0  07 58 10 20 20 65 71 75  62 20 20 20 20 31 33 0d  |.X.  equb    13.|
00001100  07 62 10 20 20 65 71 75  62 20 20 20 20 31 30 0d  |.b.  equb    10.|
00001110  07 6c 04 0d 07 76 15 20  20 2e 69 74 61 6c 69 63  |.l...v.  .italic|
00001120  32 5f 73 79 6e 74 61 78  0d 07 80 24 20 20 65 71  |2_syntax...$  eq|
00001130  75 73 20 20 20 20 22 53  79 6e 74 61 78 3a 20 2a  |us    "Syntax: *|
00001140  49 74 61 6c 69 63 32 54  65 78 74 22 0d 07 8a 0f  |Italic2Text"....|
00001150  20 20 65 71 75 62 20 20  20 20 30 0d 07 94 0b 20  |  equb    0.... |
00001160  20 61 6c 69 67 6e 0d 07  9e 04 0d 07 a8 12 20 20  | align........  |
00001170  2e 74 72 65 6e 64 79 5f  68 65 6c 70 0d 07 b2 4e  |.trendy_help...N|
00001180  20 20 65 71 75 73 20 20  20 20 22 2a 54 72 65 6e  |  equs    "*Tren|
00001190  64 79 54 65 78 74 20 72  65 64 65 66 69 6e 65 73  |dyText redefines|
000011a0  20 74 68 65 20 73 79 73  74 65 6d 20 66 6f 6e 74  | the system font|
000011b0  20 74 6f 20 61 20 6d 6f  72 65 20 74 72 65 6e 64  | to a more trend|
000011c0  79 20 76 65 72 73 69 6f  6e 22 0d 07 bc 10 20 20  |y version"....  |
000011d0  65 71 75 62 20 20 20 20  31 33 0d 07 c6 10 20 20  |equb    13....  |
000011e0  65 71 75 62 20 20 20 20  31 30 0d 07 d0 04 0d 07  |equb    10......|
000011f0  da 14 20 20 2e 74 72 65  6e 64 79 5f 73 79 6e 74  |..  .trendy_synt|
00001200  61 78 0d 07 e4 23 20 20  65 71 75 73 20 20 20 20  |ax...#  equs    |
00001210  22 53 79 6e 74 61 78 3a  20 2a 54 72 65 6e 64 79  |"Syntax: *Trendy|
00001220  54 65 78 74 22 0d 07 ee  0f 20 20 65 71 75 62 20  |Text"....  equb |
00001230  20 20 20 30 0d 07 f8 0b  20 20 61 6c 69 67 6e 0d  |   0....  align.|
00001240  08 02 04 0d 08 0c 15 20  20 2e 75 6e 64 65 72 6c  |.......  .underl|
00001250  69 6e 65 5f 68 65 6c 70  0d 08 16 4e 20 20 65 71  |ine_help...N  eq|
00001260  75 73 20 20 20 20 22 2a  55 6e 64 65 72 6c 69 6e  |us    "*Underlin|
00001270  65 54 65 78 74 20 72 65  64 65 66 69 6e 65 73 20  |eText redefines |
00001280  74 68 65 20 73 79 73 74  65 6d 20 66 6f 6e 74 20  |the system font |
00001290  74 6f 20 61 6e 20 75 6e  64 65 72 6c 69 6e 65 64  |to an underlined|
000012a0  20 66 6f 72 6d 22 0d 08  20 10 20 20 65 71 75 64  | form".. .  equd|
000012b0  20 20 20 20 31 33 0d 08  2a 10 20 20 65 71 75 64  |    13..*.  equd|
000012c0  20 20 20 20 31 30 0d 08  34 04 0d 08 3e 17 20 20  |    10..4...>.  |
000012d0  2e 75 6e 64 65 72 6c 69  6e 65 5f 73 79 6e 74 61  |.underline_synta|
000012e0  78 0d 08 48 26 20 20 65  71 75 73 20 20 20 20 22  |x..H&  equs    "|
000012f0  53 79 6e 74 61 78 3a 20  2a 55 6e 64 65 72 6c 69  |Syntax: *Underli|
00001300  6e 65 54 65 78 74 22 0d  08 52 0c 20 20 65 71 75  |neText"..R.  equ|
00001310  62 20 30 0d 08 5c 0b 20  20 61 6c 69 67 6e 0d 08  |b 0..\.  align..|
00001320  66 04 0d 08 70 30 20 20  3b 2d 2d 2d 2d 2d 2d 2d  |f...p0  ;-------|
00001330  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001350  2d 3b 0d 08 7a 30 20 20  3b 20 54 68 69 73 20 69  |-;..z0  ; This i|
00001360  73 20 74 68 65 20 73 74  61 72 74 20 6f 66 20 74  |s the start of t|
00001370  68 65 20 61 63 74 75 61  6c 20 63 6f 64 65 2e 2e  |he actual code..|
00001380  20 3b 0d 08 84 30 20 20  3b 2d 2d 2d 2d 2d 2d 2d  | ;...0  ;-------|
00001390  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000013b0  2d 3b 0d 08 8e 04 0d 08  98 12 20 20 2e 69 6e 69  |-;........  .ini|
000013c0  74 5f 6d 6f 64 75 6c 65  0d 08 a2 18 20 20 73 74  |t_module....  st|
000013d0  6d 66 64 20 20 20 72 31  33 21 2c 7b 72 31 34 7d  |mfd   r13!,{r14}|
000013e0  0d 08 ac 14 20 20 6d 6f  76 20 20 20 20 20 72 31  |....  mov     r1|
000013f0  2c 72 31 32 0d 08 b6 17  20 20 6c 64 72 20 20 20  |,r12....  ldr   |
00001400  20 20 72 31 32 2c 5b 72  31 32 5d 0d 08 c0 14 20  |  r12,[r12].... |
00001410  20 63 6d 70 20 20 20 20  20 72 31 32 2c 23 30 0d  | cmp     r12,#0.|
00001420  08 ca 17 20 20 6c 64 6d  6e 65 66 64 20 72 31 33  |...  ldmnefd r13|
00001430  21 2c 7b 70 63 7d 0d 08  d4 13 20 20 6d 6f 76 20  |!,{pc}....  mov |
00001440  20 20 20 20 72 30 2c 23  36 0d 08 de 44 20 20 6d  |    r0,#6...D  m|
00001450  6f 76 20 20 20 20 20 72  33 2c 23 26 31 30 20 20  |ov     r3,#&10  |
00001460  20 20 20 20 20 20 20 20  20 20 3b 20 47 72 61 62  |          ; Grab|
00001470  20 31 36 20 62 79 74 65  73 20 6f 66 20 73 70 61  | 16 bytes of spa|
00001480  63 65 20 66 6f 72 20 6d  6f 64 75 6c 65 0d 08 e8  |ce for module...|
00001490  37 20 20 73 77 69 20 20  20 20 20 22 4f 53 5f 4d  |7  swi     "OS_M|
000014a0  6f 64 75 6c 65 22 20 20  20 20 20 20 20 20 3b 20  |odule"        ; |
000014b0  42 79 20 63 61 6c 6c 69  6e 67 20 4f 53 5f 4d 6f  |By calling OS_Mo|
000014c0  64 75 6c 65 0d 08 f2 15  20 20 73 74 72 20 20 20  |dule....  str   |
000014d0  20 20 72 32 2c 5b 72 31  5d 0d 08 fc 14 20 20 6d  |  r2,[r1]....  m|
000014e0  6f 76 20 20 20 20 20 72  31 32 2c 72 32 0d 09 06  |ov     r12,r2...|
000014f0  17 20 20 6c 64 6d 66 64  20 20 20 72 31 33 21 2c  |.  ldmfd   r13!,|
00001500  7b 70 63 7d 0d 09 10 04  0d 09 1a 12 20 20 2e 6b  |{pc}........  .k|
00001510  69 6c 6c 5f 6d 6f 64 75  6c 65 0d 09 24 18 20 20  |ill_module..$.  |
00001520  73 74 6d 66 64 20 20 20  72 31 33 21 2c 7b 72 31  |stmfd   r13!,{r1|
00001530  34 7d 0d 09 2e 45 20 20  6c 64 72 20 20 20 20 20  |4}...E  ldr     |
00001540  72 31 32 2c 5b 72 31 32  5d 20 20 20 20 20 20 20  |r12,[r12]       |
00001550  20 20 20 3b 20 4c 6f 61  64 20 72 31 32 20 77 69  |   ; Load r12 wi|
00001560  74 68 20 70 6f 69 6e 74  65 72 20 74 6f 20 77 6f  |th pointer to wo|
00001570  72 6b 73 70 61 63 65 0d  09 38 14 20 20 63 6d 70  |rkspace..8.  cmp|
00001580  20 20 20 20 20 72 31 30  2c 23 30 0d 09 42 13 20  |     r10,#0..B. |
00001590  20 6d 6f 76 20 20 20 20  20 72 30 2c 23 37 0d 09  | mov     r0,#7..|
000015a0  4c 14 20 20 6d 6f 76 20  20 20 20 20 72 32 2c 72  |L.  mov     r2,r|
000015b0  31 32 0d 09 56 3c 20 20  73 77 69 6e 65 20 20 20  |12..V<  swine   |
000015c0  22 4f 53 5f 4d 6f 64 75  6c 65 22 20 20 20 20 20  |"OS_Module"     |
000015d0  20 20 20 3b 20 52 65 6c  65 61 73 65 20 77 6f 72  |   ; Release wor|
000015e0  6b 73 70 61 63 65 20 61  6e 64 20 64 69 65 0d 09  |kspace and die..|
000015f0  60 17 20 20 6c 64 6d 66  64 20 20 20 72 31 33 21  |`.  ldmfd   r13!|
00001600  2c 7b 70 63 7d 0d 09 6a  04 0d 09 74 4e 20 20 2e  |,{pc}..j...tN  .|
00001610  72 65 61 64 5f 64 65 66  6e 20 3b 20 72 31 32 3d  |read_defn ; r12=|
00001620  77 6f 72 6b 73 70 61 63  65 20 72 34 3d 63 68 61  |workspace r4=cha|
00001630  72 61 63 74 65 72 20 2d  20 52 65 61 64 73 20 74  |racter - Reads t|
00001640  68 65 20 62 69 74 70 61  74 74 65 72 6e 20 66 6f  |he bitpattern fo|
00001650  72 20 63 68 61 72 2e 0d  09 7e 1e 20 20 73 74 6d  |r char...~.  stm|
00001660  66 64 20 20 20 72 31 33  21 2c 7b 72 30 2d 72 38  |fd   r13!,{r0-r8|
00001670  2c 72 31 34 7d 0d 09 88  16 20 20 73 74 72 62 20  |,r14}....  strb |
00001680  20 20 20 72 34 2c 5b 72  31 32 5d 0d 09 92 14 20  |   r4,[r12].... |
00001690  20 6d 6f 76 20 20 20 20  20 72 30 2c 23 31 30 0d  | mov     r0,#10.|
000016a0  09 9c 14 20 20 6d 6f 76  20 20 20 20 20 72 31 2c  |...  mov     r1,|
000016b0  72 31 32 0d 09 a6 17 20  20 73 77 69 20 20 20 20  |r12....  swi    |
000016c0  20 22 4f 53 5f 57 6f 72  64 22 0d 09 b0 1d 20 20  | "OS_Word"....  |
000016d0  6c 64 6d 66 64 20 20 20  72 31 33 21 2c 7b 72 30  |ldmfd   r13!,{r0|
000016e0  2d 72 38 2c 70 63 7d 0d  09 ba 04 0d 09 c4 43 20  |-r8,pc}.......C |
000016f0  20 2e 64 65 66 69 6e 65  5f 63 68 61 72 20 3b 20  | .define_char ; |
00001700  72 31 32 3d 77 6f 72 6b  73 70 61 63 65 20 72 34  |r12=workspace r4|
00001710  3d 63 68 61 72 61 63 74  65 72 20 2d 20 44 65 66  |=character - Def|
00001720  69 6e 65 73 20 63 68 61  72 61 63 74 65 72 0d 09  |ines character..|
00001730  ce 1e 20 20 73 74 6d 66  64 20 20 20 72 31 33 21  |..  stmfd   r13!|
00001740  2c 7b 72 30 2d 72 38 2c  72 31 34 7d 0d 09 d8 14  |,{r0-r8,r14}....|
00001750  20 20 73 77 69 20 20 20  20 20 32 35 36 2b 32 33  |  swi     256+23|
00001760  0d 09 e2 13 20 20 6d 6f  76 20 20 20 20 20 72 30  |....  mov     r0|
00001770  2c 72 34 0d 09 ec 19 20  20 73 77 69 20 20 20 20  |,r4....  swi    |
00001780  20 22 4f 53 5f 57 72 69  74 65 43 22 0d 09 f6 13  | "OS_WriteC"....|
00001790  20 20 6d 6f 76 20 20 20  20 20 72 31 2c 23 31 0d  |  mov     r1,#1.|
000017a0  0a 00 11 20 20 2e 72 65  64 65 66 5f 6c 6f 6f 70  |...  .redef_loop|
000017b0  0d 0a 0a 19 20 20 6c 64  72 62 20 20 20 20 72 30  |....  ldrb    r0|
000017c0  2c 5b 72 31 32 2c 72 31  5d 0d 0a 14 19 20 20 73  |,[r12,r1]....  s|
000017d0  77 69 20 20 20 20 20 22  4f 53 5f 57 72 69 74 65  |wi     "OS_Write|
000017e0  43 22 0d 0a 1e 16 20 20  61 64 64 20 20 20 20 20  |C"....  add     |
000017f0  72 31 2c 72 31 2c 23 31  0d 0a 28 13 20 20 63 6d  |r1,r1,#1..(.  cm|
00001800  70 20 20 20 20 20 72 31  2c 23 39 0d 0a 32 18 20  |p     r1,#9..2. |
00001810  20 62 6e 65 20 20 20 20  20 72 65 64 65 66 5f 6c  | bne     redef_l|
00001820  6f 6f 70 0d 0a 3c 12 20  20 73 77 69 20 20 20 20  |oop..<.  swi    |
00001830  20 26 31 30 30 0d 0a 46  12 20 20 73 77 69 20 20  | &100..F.  swi  |
00001840  20 20 20 26 31 30 30 0d  0a 50 1d 20 20 6c 64 6d  |   &100..P.  ldm|
00001850  66 64 20 20 20 72 31 33  21 2c 7b 72 30 2d 72 38  |fd   r13!,{r0-r8|
00001860  2c 70 63 7d 0d 0a 5a 04  0d 0a 64 10 20 20 2e 62  |,pc}..Z...d.  .b|
00001870  6f 6c 64 5f 63 6f 64 65  0d 0a 6e 18 20 20 73 74  |old_code..n.  st|
00001880  6d 66 64 20 20 20 72 31  33 21 2c 7b 72 31 34 7d  |mfd   r13!,{r14}|
00001890  0d 0a 78 17 20 20 6c 64  72 20 20 20 20 20 72 31  |..x.  ldr     r1|
000018a0  32 2c 5b 72 31 32 5d 0d  0a 82 14 20 20 6d 6f 76  |2,[r12]....  mov|
000018b0  20 20 20 20 20 72 34 2c  23 33 33 0d 0a 8c 10 20  |     r4,#33.... |
000018c0  20 2e 62 6f 6c 64 5f 6c  6f 6f 70 0d 0a 96 17 20  | .bold_loop.... |
000018d0  20 62 6c 20 20 20 20 20  20 72 65 61 64 5f 64 65  | bl      read_de|
000018e0  66 6e 0d 0a a0 13 20 20  6d 6f 76 20 20 20 20 20  |fn....  mov     |
000018f0  72 35 2c 23 31 0d 0a aa  11 20 20 2e 73 68 69 66  |r5,#1....  .shif|
00001900  74 5f 6c 6f 6f 70 0d 0a  b4 19 20 20 6c 64 72 62  |t_loop....  ldrb|
00001910  20 20 20 20 72 36 2c 5b  72 31 32 2c 72 35 5d 0d  |    r6,[r12,r5].|
00001920  0a be 1a 20 20 6d 6f 76  20 20 20 20 20 72 37 2c  |...  mov     r7,|
00001930  72 36 2c 6c 73 72 20 23  31 0d 0a c8 16 20 20 6f  |r6,lsr #1....  o|
00001940  72 72 20 20 20 20 20 72  36 2c 72 36 2c 72 37 0d  |rr     r6,r6,r7.|
00001950  0a d2 19 20 20 73 74 72  62 20 20 20 20 72 36 2c  |...  strb    r6,|
00001960  5b 72 31 32 2c 72 35 5d  0d 0a dc 16 20 20 61 64  |[r12,r5]....  ad|
00001970  64 20 20 20 20 20 72 35  2c 72 35 2c 23 31 0d 0a  |d     r5,r5,#1..|
00001980  e6 13 20 20 63 6d 70 20  20 20 20 20 72 35 2c 23  |..  cmp     r5,#|
00001990  39 0d 0a f0 18 20 20 62  6e 65 20 20 20 20 20 73  |9....  bne     s|
000019a0  68 69 66 74 5f 6c 6f 6f  70 0d 0a fa 19 20 20 62  |hift_loop....  b|
000019b0  6c 20 20 20 20 20 20 64  65 66 69 6e 65 5f 63 68  |l      define_ch|
000019c0  61 72 0d 0b 04 16 20 20  61 64 64 20 20 20 20 20  |ar....  add     |
000019d0  72 34 2c 72 34 2c 23 31  0d 0b 0e 15 20 20 63 6d  |r4,r4,#1....  cm|
000019e0  70 20 20 20 20 20 72 34  2c 23 31 32 37 0d 0b 18  |p     r4,#127...|
000019f0  17 20 20 62 6e 65 20 20  20 20 20 62 6f 6c 64 5f  |.  bne     bold_|
00001a00  6c 6f 6f 70 0d 0b 22 17  20 20 6c 64 6d 66 64 20  |loop..".  ldmfd |
00001a10  20 20 72 31 33 21 2c 7b  70 63 7d 0d 0b 2c 05 20  |  r13!,{pc}..,. |
00001a20  0d 0b 36 13 20 20 2e 64  65 66 61 75 6c 74 5f 63  |..6.  .default_c|
00001a30  6f 64 65 0d 0b 40 18 20  20 73 74 6d 66 64 20 20  |ode..@.  stmfd  |
00001a40  20 72 31 33 21 2c 7b 72  31 34 7d 0d 0b 4a 14 20  | r13!,{r14}..J. |
00001a50  20 6d 6f 76 20 20 20 20  20 72 30 2c 23 32 30 0d  | mov     r0,#20.|
00001a60  0b 54 13 20 20 6d 6f 76  20 20 20 20 20 72 31 2c  |.T.  mov     r1,|
00001a70  23 30 0d 0b 5e 17 20 20  73 77 69 20 20 20 20 20  |#0..^.  swi     |
00001a80  22 4f 53 5f 42 79 74 65  22 0d 0b 68 17 20 20 6c  |"OS_Byte"..h.  l|
00001a90  64 6d 66 64 20 20 20 72  31 33 21 2c 7b 70 63 7d  |dmfd   r13!,{pc}|
00001aa0  0d 0b 72 05 20 0d 0b 7c  10 20 20 2e 74 68 69 6e  |..r. ..|.  .thin|
00001ab0  5f 63 6f 64 65 0d 0b 86  18 20 20 73 74 6d 66 64  |_code....  stmfd|
00001ac0  20 20 20 72 31 33 21 2c  7b 72 31 34 7d 0d 0b 90  |   r13!,{r14}...|
00001ad0  17 20 20 6c 64 72 20 20  20 20 20 72 31 32 2c 5b  |.  ldr     r12,[|
00001ae0  72 31 32 5d 0d 0b 9a 14  20 20 6d 6f 76 20 20 20  |r12]....  mov   |
00001af0  20 20 72 34 2c 23 33 33  0d 0b a4 10 20 20 2e 74  |  r4,#33....  .t|
00001b00  68 69 6e 5f 6c 6f 6f 70  0d 0b ae 17 20 20 62 6c  |hin_loop....  bl|
00001b10  20 20 20 20 20 20 72 65  61 64 5f 64 65 66 6e 0d  |      read_defn.|
00001b20  0b b8 13 20 20 6d 6f 76  20 20 20 20 20 72 35 2c  |...  mov     r5,|
00001b30  23 31 0d 0b c2 12 20 20  2e 73 68 69 66 74 5f 6c  |#1....  .shift_l|
00001b40  6f 6f 70 32 0d 0b cc 19  20 20 6c 64 72 62 20 20  |oop2....  ldrb  |
00001b50  20 20 72 36 2c 5b 72 31  32 2c 72 35 5d 0d 0b d6  |  r6,[r12,r5]...|
00001b60  1a 20 20 6d 6f 76 20 20  20 20 20 72 37 2c 72 36  |.  mov     r7,r6|
00001b70  2c 6c 73 72 20 23 31 0d  0b e0 16 20 20 61 6e 64  |,lsr #1....  and|
00001b80  20 20 20 20 20 72 36 2c  72 36 2c 72 37 0d 0b ea  |     r6,r6,r7...|
00001b90  19 20 20 73 74 72 62 20  20 20 20 72 36 2c 5b 72  |.  strb    r6,[r|
00001ba0  31 32 2c 72 35 5d 0d 0b  f4 16 20 20 61 64 64 20  |12,r5]....  add |
00001bb0  20 20 20 20 72 35 2c 72  35 2c 23 31 0d 0b fe 13  |    r5,r5,#1....|
00001bc0  20 20 63 6d 70 20 20 20  20 20 72 35 2c 23 39 0d  |  cmp     r5,#9.|
00001bd0  0c 08 19 20 20 62 6e 65  20 20 20 20 20 73 68 69  |...  bne     shi|
00001be0  66 74 5f 6c 6f 6f 70 32  0d 0c 12 19 20 20 62 6c  |ft_loop2....  bl|
00001bf0  20 20 20 20 20 20 64 65  66 69 6e 65 5f 63 68 61  |      define_cha|
00001c00  72 0d 0c 1c 16 20 20 61  64 64 20 20 20 20 20 72  |r....  add     r|
00001c10  34 2c 72 34 2c 23 31 0d  0c 26 15 20 20 63 6d 70  |4,r4,#1..&.  cmp|
00001c20  20 20 20 20 20 72 34 2c  23 31 32 37 0d 0c 30 17  |     r4,#127..0.|
00001c30  20 20 62 6e 65 20 20 20  20 20 74 68 69 6e 5f 6c  |  bne     thin_l|
00001c40  6f 6f 70 0d 0c 3a 17 20  20 6c 64 6d 66 64 20 20  |oop..:.  ldmfd  |
00001c50  20 72 31 33 21 2c 7b 70  63 7d 0d 0c 44 04 0d 0c  | r13!,{pc}..D...|
00001c60  4e 13 20 20 2e 69 6e 76  65 72 73 65 5f 63 6f 64  |N.  .inverse_cod|
00001c70  65 0d 0c 58 18 20 20 73  74 6d 66 64 20 20 20 72  |e..X.  stmfd   r|
00001c80  31 33 21 2c 7b 72 31 34  7d 0d 0c 62 17 20 20 6c  |13!,{r14}..b.  l|
00001c90  64 72 20 20 20 20 20 72  31 32 2c 5b 72 31 32 5d  |dr     r12,[r12]|
00001ca0  0d 0c 6c 14 20 20 6d 6f  76 20 20 20 20 20 72 34  |..l.  mov     r4|
00001cb0  2c 23 33 32 0d 0c 76 13  20 20 2e 69 6e 76 65 72  |,#32..v.  .inver|
00001cc0  73 65 5f 6c 6f 6f 70 0d  0c 80 17 20 20 62 6c 20  |se_loop....  bl |
00001cd0  20 20 20 20 20 72 65 61  64 5f 64 65 66 6e 0d 0c  |     read_defn..|
00001ce0  8a 13 20 20 6d 6f 76 20  20 20 20 20 72 35 2c 23  |..  mov     r5,#|
00001cf0  31 0d 0c 94 12 20 20 2e  73 68 69 66 74 5f 6c 6f  |1....  .shift_lo|
00001d00  6f 70 33 0d 0c 9e 19 20  20 6c 64 72 62 20 20 20  |op3....  ldrb   |
00001d10  20 72 36 2c 5b 72 31 32  2c 72 35 5d 0d 0c a8 18  | r6,[r12,r5]....|
00001d20  20 20 65 6f 72 20 20 20  20 20 72 36 2c 72 36 2c  |  eor     r6,r6,|
00001d30  23 26 46 46 0d 0c b2 19  20 20 73 74 72 62 20 20  |#&FF....  strb  |
00001d40  20 20 72 36 2c 5b 72 31  32 2c 72 35 5d 0d 0c bc  |  r6,[r12,r5]...|
00001d50  16 20 20 61 64 64 20 20  20 20 20 72 35 2c 72 35  |.  add     r5,r5|
00001d60  2c 23 31 0d 0c c6 13 20  20 63 6d 70 20 20 20 20  |,#1....  cmp    |
00001d70  20 72 35 2c 23 39 0d 0c  d0 19 20 20 62 6e 65 20  | r5,#9....  bne |
00001d80  20 20 20 20 73 68 69 66  74 5f 6c 6f 6f 70 33 0d  |    shift_loop3.|
00001d90  0c da 19 20 20 62 6c 20  20 20 20 20 20 64 65 66  |...  bl      def|
00001da0  69 6e 65 5f 63 68 61 72  0d 0c e4 16 20 20 61 64  |ine_char....  ad|
00001db0  64 20 20 20 20 20 72 34  2c 72 34 2c 23 31 0d 0c  |d     r4,r4,#1..|
00001dc0  ee 15 20 20 63 6d 70 20  20 20 20 20 72 34 2c 23  |..  cmp     r4,#|
00001dd0  31 32 37 0d 0c f8 1a 20  20 62 6e 65 20 20 20 20  |127....  bne    |
00001de0  20 69 6e 76 65 72 73 65  5f 6c 6f 6f 70 0d 0d 02  | inverse_loop...|
00001df0  17 20 20 6c 64 6d 66 64  20 20 20 72 31 33 21 2c  |.  ldmfd   r13!,|
00001e00  7b 70 63 7d 0d 0d 0c 04  0d 0d 16 12 20 20 2e 66  |{pc}........  .f|
00001e10  75 74 75 72 65 5f 63 6f  64 65 0d 0d 20 18 20 20  |uture_code.. .  |
00001e20  73 74 6d 66 64 20 20 20  72 31 33 21 2c 7b 72 31  |stmfd   r13!,{r1|
00001e30  34 7d 0d 0d 2a 17 20 20  6c 64 72 20 20 20 20 20  |4}..*.  ldr     |
00001e40  72 31 32 2c 5b 72 31 32  5d 0d 0d 34 14 20 20 6d  |r12,[r12]..4.  m|
00001e50  6f 76 20 20 20 20 20 72  34 2c 23 33 33 0d 0d 3e  |ov     r4,#33..>|
00001e60  12 20 20 2e 66 75 74 75  72 65 5f 6c 6f 6f 70 0d  |.  .future_loop.|
00001e70  0d 48 17 20 20 62 6c 20  20 20 20 20 20 72 65 61  |.H.  bl      rea|
00001e80  64 5f 64 65 66 6e 0d 0d  52 13 20 20 6d 6f 76 20  |d_defn..R.  mov |
00001e90  20 20 20 20 72 35 2c 23  34 0d 0d 5c 12 20 20 2e  |    r5,#4..\.  .|
00001ea0  73 68 69 66 74 5f 6c 6f  6f 70 34 0d 0d 66 19 20  |shift_loop4..f. |
00001eb0  20 6c 64 72 62 20 20 20  20 72 36 2c 5b 72 31 32  | ldrb    r6,[r12|
00001ec0  2c 72 35 5d 0d 0d 70 1a  20 20 6d 6f 76 20 20 20  |,r5]..p.  mov   |
00001ed0  20 20 72 37 2c 72 36 2c  6c 73 72 20 23 31 0d 0d  |  r7,r6,lsr #1..|
00001ee0  7a 16 20 20 6f 72 72 20  20 20 20 20 72 36 2c 72  |z.  orr     r6,r|
00001ef0  36 2c 72 37 0d 0d 84 19  20 20 73 74 72 62 20 20  |6,r7....  strb  |
00001f00  20 20 72 36 2c 5b 72 31  32 2c 72 35 5d 0d 0d 8e  |  r6,[r12,r5]...|
00001f10  16 20 20 61 64 64 20 20  20 20 20 72 35 2c 72 35  |.  add     r5,r5|
00001f20  2c 23 31 0d 0d 98 13 20  20 63 6d 70 20 20 20 20  |,#1....  cmp    |
00001f30  20 72 35 2c 23 39 0d 0d  a2 19 20 20 62 6e 65 20  | r5,#9....  bne |
00001f40  20 20 20 20 73 68 69 66  74 5f 6c 6f 6f 70 34 0d  |    shift_loop4.|
00001f50  0d ac 19 20 20 62 6c 20  20 20 20 20 20 64 65 66  |...  bl      def|
00001f60  69 6e 65 5f 63 68 61 72  0d 0d b6 16 20 20 61 64  |ine_char....  ad|
00001f70  64 20 20 20 20 20 72 34  2c 72 34 2c 23 31 0d 0d  |d     r4,r4,#1..|
00001f80  c0 15 20 20 63 6d 70 20  20 20 20 20 72 34 2c 23  |..  cmp     r4,#|
00001f90  31 32 37 0d 0d ca 19 20  20 62 6e 65 20 20 20 20  |127....  bne    |
00001fa0  20 66 75 74 75 72 65 5f  6c 6f 6f 70 0d 0d d4 17  | future_loop....|
00001fb0  20 20 6c 64 6d 66 64 20  20 20 72 31 33 21 2c 7b  |  ldmfd   r13!,{|
00001fc0  70 63 7d 0d 0d de 04 0d  0d e8 12 20 20 2e 69 74  |pc}........  .it|
00001fd0  61 6c 69 63 5f 63 6f 64  65 0d 0d f2 18 20 20 73  |alic_code....  s|
00001fe0  74 6d 66 64 20 20 20 72  31 33 21 2c 7b 72 31 34  |tmfd   r13!,{r14|
00001ff0  7d 0d 0d fc 17 20 20 6c  64 72 20 20 20 20 20 72  |}....  ldr     r|
00002000  31 32 2c 5b 72 31 32 5d  0d 0e 06 14 20 20 6d 6f  |12,[r12]....  mo|
00002010  76 20 20 20 20 20 72 34  2c 23 33 32 0d 0e 10 12  |v     r4,#32....|
00002020  20 20 2e 69 74 61 6c 69  63 5f 6c 6f 6f 70 0d 0e  |  .italic_loop..|
00002030  1a 17 20 20 62 6c 20 20  20 20 20 20 72 65 61 64  |..  bl      read|
00002040  5f 64 65 66 6e 0d 0e 24  13 20 20 6d 6f 76 20 20  |_defn..$.  mov  |
00002050  20 20 20 72 35 2c 23 31  0d 0e 2e 12 20 20 2e 73  |   r5,#1....  .s|
00002060  68 69 66 74 5f 6c 6f 6f  70 35 0d 0e 38 19 20 20  |hift_loop5..8.  |
00002070  6c 64 72 62 20 20 20 20  72 36 2c 5b 72 31 32 2c  |ldrb    r6,[r12,|
00002080  72 35 5d 0d 0e 42 13 20  20 63 6d 70 20 20 20 20  |r5]..B.  cmp    |
00002090  20 72 35 2c 23 35 0d 0e  4c 1a 20 20 6d 6f 76 67  | r5,#5..L.  movg|
000020a0  74 20 20 20 72 36 2c 72  36 2c 6c 73 6c 20 23 31  |t   r6,r6,lsl #1|
000020b0  0d 0e 56 17 20 20 62 67  74 20 20 20 20 20 6e 65  |..V.  bgt     ne|
000020c0  78 74 5f 62 79 74 65 0d  0e 60 13 20 20 63 6d 70  |xt_byte..`.  cmp|
000020d0  20 20 20 20 20 72 35 2c  23 33 0d 0e 6a 17 20 20  |     r5,#3..j.  |
000020e0  62 67 74 20 20 20 20 20  6e 65 78 74 5f 62 79 74  |bgt     next_byt|
000020f0  65 0d 0e 74 1a 20 20 6d  6f 76 20 20 20 20 20 72  |e..t.  mov     r|
00002100  36 2c 72 36 2c 6c 73 72  20 23 31 0d 0e 7e 10 20  |6,r6,lsr #1..~. |
00002110  20 2e 6e 65 78 74 5f 62  79 74 65 0d 0e 88 19 20  | .next_byte.... |
00002120  20 73 74 72 62 20 20 20  20 72 36 2c 5b 72 31 32  | strb    r6,[r12|
00002130  2c 72 35 5d 0d 0e 92 16  20 20 61 64 64 20 20 20  |,r5]....  add   |
00002140  20 20 72 35 2c 72 35 2c  23 31 0d 0e 9c 13 20 20  |  r5,r5,#1....  |
00002150  63 6d 70 20 20 20 20 20  72 35 2c 23 39 0d 0e a6  |cmp     r5,#9...|
00002160  19 20 20 62 6e 65 20 20  20 20 20 73 68 69 66 74  |.  bne     shift|
00002170  5f 6c 6f 6f 70 35 0d 0e  b0 19 20 20 62 6c 20 20  |_loop5....  bl  |
00002180  20 20 20 20 64 65 66 69  6e 65 5f 63 68 61 72 0d  |    define_char.|
00002190  0e ba 16 20 20 61 64 64  20 20 20 20 20 72 34 2c  |...  add     r4,|
000021a0  72 34 2c 23 31 0d 0e c4  15 20 20 63 6d 70 20 20  |r4,#1....  cmp  |
000021b0  20 20 20 72 34 2c 23 31  32 37 0d 0e ce 19 20 20  |   r4,#127....  |
000021c0  62 6e 65 20 20 20 20 20  69 74 61 6c 69 63 5f 6c  |bne     italic_l|
000021d0  6f 6f 70 0d 0e d8 17 20  20 6c 64 6d 66 64 20 20  |oop....  ldmfd  |
000021e0  20 72 31 33 21 2c 7b 70  63 7d 0d 0e e2 04 0d 0e  | r13!,{pc}......|
000021f0  ec 13 20 20 2e 69 74 61  6c 69 63 32 5f 63 6f 64  |..  .italic2_cod|
00002200  65 0d 0e f6 18 20 20 73  74 6d 66 64 20 20 20 72  |e....  stmfd   r|
00002210  31 33 21 2c 7b 72 31 34  7d 0d 0f 00 17 20 20 6c  |13!,{r14}....  l|
00002220  64 72 20 20 20 20 20 72  31 32 2c 5b 72 31 32 5d  |dr     r12,[r12]|
00002230  0d 0f 0a 14 20 20 6d 6f  76 20 20 20 20 20 72 34  |....  mov     r4|
00002240  2c 23 33 32 0d 0f 14 13  20 20 2e 69 74 61 6c 69  |,#32....  .itali|
00002250  63 32 5f 6c 6f 6f 70 0d  0f 1e 17 20 20 62 6c 20  |c2_loop....  bl |
00002260  20 20 20 20 20 72 65 61  64 5f 64 65 66 6e 0d 0f  |     read_defn..|
00002270  28 13 20 20 6d 6f 76 20  20 20 20 20 72 35 2c 23  |(.  mov     r5,#|
00002280  35 0d 0f 32 12 20 20 2e  73 68 69 66 74 5f 6c 6f  |5..2.  .shift_lo|
00002290  6f 70 36 0d 0f 3c 19 20  20 6c 64 72 62 20 20 20  |op6..<.  ldrb   |
000022a0  20 72 36 2c 5b 72 31 32  2c 72 35 5d 0d 0f 46 1a  | r6,[r12,r5]..F.|
000022b0  20 20 6d 6f 76 20 20 20  20 20 72 36 2c 72 36 2c  |  mov     r6,r6,|
000022c0  6c 73 6c 20 23 31 0d 0f  50 19 20 20 73 74 72 62  |lsl #1..P.  strb|
000022d0  20 20 20 20 72 36 2c 5b  72 31 32 2c 72 35 5d 0d  |    r6,[r12,r5].|
000022e0  0f 5a 16 20 20 61 64 64  20 20 20 20 20 72 35 2c  |.Z.  add     r5,|
000022f0  72 35 2c 23 31 0d 0f 64  13 20 20 63 6d 70 20 20  |r5,#1..d.  cmp  |
00002300  20 20 20 72 35 2c 23 39  0d 0f 6e 19 20 20 62 6e  |   r5,#9..n.  bn|
00002310  65 20 20 20 20 20 73 68  69 66 74 5f 6c 6f 6f 70  |e     shift_loop|
00002320  36 0d 0f 78 19 20 20 62  6c 20 20 20 20 20 20 64  |6..x.  bl      d|
00002330  65 66 69 6e 65 5f 63 68  61 72 0d 0f 82 16 20 20  |efine_char....  |
00002340  61 64 64 20 20 20 20 20  72 34 2c 72 34 2c 23 31  |add     r4,r4,#1|
00002350  0d 0f 8c 15 20 20 63 6d  70 20 20 20 20 20 72 34  |....  cmp     r4|
00002360  2c 23 31 32 37 0d 0f 96  1a 20 20 62 6e 65 20 20  |,#127....  bne  |
00002370  20 20 20 69 74 61 6c 69  63 32 5f 6c 6f 6f 70 0d  |   italic2_loop.|
00002380  0f a0 17 20 20 6c 64 6d  66 64 20 20 20 72 31 33  |...  ldmfd   r13|
00002390  21 2c 7b 70 63 7d 0d 0f  aa 04 0d 0f b4 12 20 20  |!,{pc}........  |
000023a0  2e 74 72 65 6e 64 79 5f  63 6f 64 65 0d 0f be 18  |.trendy_code....|
000023b0  20 20 73 74 6d 66 64 20  20 20 72 31 33 21 2c 7b  |  stmfd   r13!,{|
000023c0  72 31 34 7d 0d 0f c8 17  20 20 6c 64 72 20 20 20  |r14}....  ldr   |
000023d0  20 20 72 31 32 2c 5b 72  31 32 5d 0d 0f d2 14 20  |  r12,[r12].... |
000023e0  20 6d 6f 76 20 20 20 20  20 72 34 2c 23 33 32 0d  | mov     r4,#32.|
000023f0  0f dc 12 20 20 2e 74 72  65 6e 64 79 5f 6c 6f 6f  |...  .trendy_loo|
00002400  70 0d 0f e6 17 20 20 62  6c 20 20 20 20 20 20 72  |p....  bl      r|
00002410  65 61 64 5f 64 65 66 6e  0d 0f f0 13 20 20 6d 6f  |ead_defn....  mo|
00002420  76 20 20 20 20 20 72 35  2c 23 32 0d 0f fa 19 20  |v     r5,#2.... |
00002430  20 6c 64 72 62 20 20 20  20 72 36 2c 5b 72 31 32  | ldrb    r6,[r12|
00002440  2c 72 35 5d 0d 10 04 18  20 20 61 6e 64 20 20 20  |,r5]....  and   |
00002450  20 20 72 36 2c 72 36 2c  23 26 30 46 0d 10 0e 19  |  r6,r6,#&0F....|
00002460  20 20 73 74 72 62 20 20  20 20 72 36 2c 5b 72 31  |  strb    r6,[r1|
00002470  32 2c 72 35 5d 0d 10 18  19 20 20 62 6c 20 20 20  |2,r5]....  bl   |
00002480  20 20 20 64 65 66 69 6e  65 5f 63 68 61 72 0d 10  |   define_char..|
00002490  22 16 20 20 61 64 64 20  20 20 20 20 72 34 2c 72  |".  add     r4,r|
000024a0  34 2c 23 31 0d 10 2c 15  20 20 63 6d 70 20 20 20  |4,#1..,.  cmp   |
000024b0  20 20 72 34 2c 23 31 32  37 0d 10 36 19 20 20 62  |  r4,#127..6.  b|
000024c0  6e 65 20 20 20 20 20 74  72 65 6e 64 79 5f 6c 6f  |ne     trendy_lo|
000024d0  6f 70 0d 10 40 17 20 20  6c 64 6d 66 64 20 20 20  |op..@.  ldmfd   |
000024e0  72 31 33 21 2c 7b 70 63  7d 0d 10 4a 04 0d 10 54  |r13!,{pc}..J...T|
000024f0  15 20 20 2e 75 6e 64 65  72 6c 69 6e 65 5f 63 6f  |.  .underline_co|
00002500  64 65 0d 10 5e 18 20 20  73 74 6d 66 64 20 20 20  |de..^.  stmfd   |
00002510  72 31 33 21 2c 7b 72 31  34 7d 0d 10 68 17 20 20  |r13!,{r14}..h.  |
00002520  6c 64 72 20 20 20 20 20  72 31 32 2c 5b 72 31 32  |ldr     r12,[r12|
00002530  5d 0d 10 72 14 20 20 6d  6f 76 20 20 20 20 20 72  |]..r.  mov     r|
00002540  34 2c 23 33 32 0d 10 7c  15 20 20 2e 75 6e 64 65  |4,#32..|.  .unde|
00002550  72 6c 69 6e 65 5f 6c 6f  6f 70 0d 10 86 17 20 20  |rline_loop....  |
00002560  62 6c 20 20 20 20 20 20  72 65 61 64 5f 64 65 66  |bl      read_def|
00002570  6e 0d 10 90 13 20 20 6d  6f 76 20 20 20 20 20 72  |n....  mov     r|
00002580  35 2c 23 38 0d 10 9a 19  20 20 6c 64 72 62 20 20  |5,#8....  ldrb  |
00002590  20 20 72 36 2c 5b 72 31  32 2c 72 35 5d 0d 10 a4  |  r6,[r12,r5]...|
000025a0  18 20 20 65 6f 72 20 20  20 20 20 72 36 2c 72 36  |.  eor     r6,r6|
000025b0  2c 23 26 46 46 0d 10 ae  19 20 20 73 74 72 62 20  |,#&FF....  strb |
000025c0  20 20 20 72 36 2c 5b 72  31 32 2c 72 35 5d 0d 10  |   r6,[r12,r5]..|
000025d0  b8 19 20 20 62 6c 20 20  20 20 20 20 64 65 66 69  |..  bl      defi|
000025e0  6e 65 5f 63 68 61 72 0d  10 c2 16 20 20 61 64 64  |ne_char....  add|
000025f0  20 20 20 20 20 72 34 2c  72 34 2c 23 31 0d 10 cc  |     r4,r4,#1...|
00002600  15 20 20 63 6d 70 20 20  20 20 20 72 34 2c 23 31  |.  cmp     r4,#1|
00002610  32 37 0d 10 d6 1c 20 20  62 6e 65 20 20 20 20 20  |27....  bne     |
00002620  75 6e 64 65 72 6c 69 6e  65 5f 6c 6f 6f 70 0d 10  |underline_loop..|
00002630  e0 17 20 20 6c 64 6d 66  64 20 20 20 72 31 33 21  |..  ldmfd   r13!|
00002640  2c 7b 70 63 7d 0d 10 ea  07 20 20 5d 0d 10 f4 06  |,{pc}....  ]....|
00002650  20 ed 0d 10 fe 05 e1 0d  11 08 05 3a 0d 11 12 0b  | ..........:....|
00002660  dd 20 f2 73 61 76 65 0d  11 1c 2b 20 ff 20 22 53  |. .save...+ . "S|
00002670  61 76 65 20 53 79 73 46  6f 6e 74 4d 6f 64 20 22  |ave SysFontMod "|
00002680  2b c3 7e 63 6f 64 65 25  2b 22 20 2b 22 2b c3 7e  |+.~code%+" +"+.~|
00002690  50 25 0d 11 26 1f 20 ff  20 22 53 65 74 54 79 70  |P%..&. . "SetTyp|
000026a0  65 20 53 79 73 46 6f 6e  74 4d 6f 64 20 46 46 41  |e SysFontMod FFA|
000026b0  22 0d 11 30 33 20 f1 22  4d 6f 64 75 6c 65 20 73  |"..03 ."Module s|
000026c0  61 76 65 64 20 61 73 20  27 24 2e 53 79 73 74 5f  |aved as '$.Syst_|
000026d0  46 6f 6e 74 2e 53 79 73  46 6f 6e 74 4d 6f 64 27  |Font.SysFontMod'|
000026e0  2e 2e 2e 22 0d 11 3a 33  20 f1 22 43 6f 64 65 20  |..."..:3 ."Code |
000026f0  73 69 7a 65 20 69 73 20  3a 26 22 3b 7e 50 25 3b  |size is :&";~P%;|
00002700  22 20 62 79 74 65 73 20  28 22 3b 50 25 2f 31 30  |" bytes (";P%/10|
00002710  32 34 3b 22 4b 29 22 0d  11 44 17 20 2a 52 6d 4c  |24;"K)"..D. *RmL|
00002720  6f 61 64 20 53 79 73 46  6f 6e 74 4d 6f 64 0d 11  |oad SysFontMod..|
00002730  4e 05 e1 0d ff                                    |N....|
00002735