Service_ModeChange=&46
(� � �: � �: �
2� code% 64*1024
<� pass=12 � 14 � 2
FP%=0
PO%=code%
ZL%=code%+64*1024
d
[OPT pass
n ; PtrWrap module source code
x ; by Nicholas Marriott, 1995
�;
�:
�
EQUD 0
�EQUD Initialisation_Code
�EQUD Finalisation_Code
�EQUD Service_Call_Handler
�EQUD Title_String
�EQUD Help_String
�EQUD Command_Table
�
EQUD 0
�
EQUD 0
�
EQUD 0
�
EQUD 0

:

.Initialisation_Code

STMFD R13!,{R7-R11,R14}

":

,
MOV R0,#6

6MOV R3,#64

@SWI "XOS_Module"

JADRVS R0,bad_claim

TLDMVSFD R13!,{R7-R11,R14}

^�RVSS PC,R14,#1<<28

hSTR R2,[R12]

r:

|
MOV R0,#5

�STR R0,[R2,#8]

�:

�BL Service_Call_ModeChange

�:

�
MOV R0,#4

�ADR R1,Timer_Routine

�MOV R2,R12

�SWI "XOS_CallEvery"

�:

�LDMFD R13!,{R7-R11,PC}

�:

�3.bad_claim EQUS "Unable to claim RMA workspace"

�           EQUB 0
           ALIGN
:
.Finalisation_Code
&STMFD R13!,{R7-R11,R14}
0:
:ADR R0,Timer_Routine
DMOV R1,R12
NSWI "XOS_RemoveTickerEvent"
X:
bLDMFD R13!,{R7-R11,PC}
l:
v.Title_String
�EQUS "PtrWrap"
�
EQUB 0
�	ALIGN
�:
�.Help_String
�CEQUS "PtrWrap"+�(9)+"0.04 ("+��$,5,11)+") by Nicholas Marriott"
�
EQUB 0
�	ALIGN
�:
�.Command_Table
�EQUS "Edges"
�
EQUB 0
�	ALIGN
EQUD Edges_Code
EQUD &00010000
EQUD Edges_Syntax
 EQUD Edges_Help
*
EQUB 0
4	ALIGN
>:
H.Edges_Code
RSTMFD R13!,{R0-R12,R14}
\:
fLDR R12,[R12]
p:
z
CMP R1,#0
�ADREQ R0,Edges_Message
�SWIEQ "XOS_Write0"
�LDREQ R0,[R12,#8]
�ADREQ R1,Edges_Buffer
��Q R2,#4
�SWIEQ "XOS_ConvertInteger1"
�SWIEQ "XOS_Write0"
�SWIEQ "XOS_NewLine"
�MOVNE R1,R0
�LDRNE R0,Edges_Flags
�SWINE "XOS_ReadUnsigned"
�STRNE R2,[R12,#8]
�:
LDMFD R13!,{R0-R12,PC}
:
1.Edges_Message EQUS "Current edges setting: "
$               EQUB 0
.               ALIGN
8.Edges_Buffer  EQUD 0
B               EQUB 0
L               ALIGN
V0.Edges_Flags   EQUD (10 � (1<<31) � (1<<30))
`:
j.Edges_Syntax
t*EQUS "Syntax: *Edges [<edge setting>]"
~
EQUB 0
�	ALIGN
�:
�.Edges_Help
�eEQUS "*Edges <edge setting> will set the current edge detection width or *Edges will display it."
�
EQUB 0
�	ALIGN
�:
�.Service_Call_Handler
�STMFD R13!,{R0-R11,R14}
�:
�CMP R1,#Service_ModeChange
� BLEQ Service_Call_ModeChange
:

LDMFD R13!,{R0-R11,PC}
:
.Service_Call_ModeChange
(STMFD R13!,{R0-R12,R14}
2:
<LDR R12,[R12]
F:
PADR R0,input_block
ZADR R1,output_block
dSWI "XOS_ReadVduVariables"
n:
xADR R11,output_block
�:
�LDR R0,[R11,#8]
�ADD R0,R0,#1
�LDR R1,[R11,#0]
�
MOV R2,#1
�MOV R1,R2,LSL R1
�MUL R2,R0,R1
�STR R2,[R12,#0]
�:
�LDR R0,[R11,#12]
�ADD R0,R0,#1
�LDR R1,[R11,#4]
�
MOV R2,#1
MOV R1,R2,LSL R1
MUL R2,R0,R1
STR R2,[R12,#4]
":
,LDMFD R13!,{R0-R12,PC}
6:
@.input_block EQUD 4
J             EQUD 5
T             EQUD 11
^             EQUD 12
h             EQUD -1
r.output_block EQUD 0
|              EQUD 0
�              EQUD 0
�              EQUD 0
�              EQUD 0
�:
�.Timer_Routine
�STMFD R13!,{R0-R12,R14}
�:
�LDR R12,[R12]
�:
�SWI "XOS_Mouse"
�LDR R2,[R12,#0]
�LDR R3,[R12,#4]
�LDR R4,[R12,#8]
:

CMP R0,R4
SUBLT R0,R2,R4,LSL#1
&BLLT Move_Pointer
0BLT Exit_Timer_Routine
::
D
CMP R1,R4
NSUBLT R1,R3,R4,LSL#1
XBLLT Move_Pointer
bBLT Exit_Timer_Routine
l:
vSUB R5,R2,R4
�
CMP R0,R5
�MOVGT R0,R4,LSL#1
�BLGT Move_Pointer
�BGT Exit_Timer_Routine
�:
�SUB R6,R3,R4
�
CMP R1,R6
�MOVGT R1,R4,LSL#1
�BLGT Move_Pointer
�:
�.Exit_Timer_Routine
�LDMFD R13!,{R0-R12,PC}
�:
.Move_Pointer
STMFD R13!,{R14}
:
 
MOV R8,R0
*
MOV R9,R1
4ADD R11,R12,#15
>:
H�R R10,R8,R9,LSL#16
R:
\
MOV R0,#3
fSTRB R0,[R11,#0]
pSTR R10,[R11,#1]
zMOV R0,#21
�MOV R1,R11
�SWI "XOS_Word"
�:
�LDMFD R13!,{PC}
�:
�]
��
�,ș "OS_File",10,"PtrWrap",&FFA,,code%,O%
��
�

00000000  0d 00 1e 1a 53 65 72 76  69 63 65 5f 4d 6f 64 65  |....Service_Mode|
00000010  43 68 61 6e 67 65 3d 26  34 36 0d 00 28 11 ee 20  |Change=&46..(.. |
00000020  85 20 f6 3a 20 f1 20 9e  3a 20 e0 0d 00 32 13 de  |. .: . .: ...2..|
00000030  20 63 6f 64 65 25 20 36  34 2a 31 30 32 34 0d 00  | code% 64*1024..|
00000040  3c 16 e3 20 70 61 73 73  3d 31 32 20 b8 20 31 34  |<.. pass=12 . 14|
00000050  20 88 20 32 0d 00 46 08  50 25 3d 30 0d 00 50 0c  | . 2..F.P%=0..P.|
00000060  4f 25 3d 63 6f 64 65 25  0d 00 5a 14 4c 25 3d 63  |O%=code%..Z.L%=c|
00000070  6f 64 65 25 2b 36 34 2a  31 30 32 34 0d 00 64 0d  |ode%+64*1024..d.|
00000080  5b 4f 50 54 20 70 61 73  73 0d 00 6e 20 3b 20 50  |[OPT pass..n ; P|
00000090  74 72 57 72 61 70 20 6d  6f 64 75 6c 65 20 73 6f  |trWrap module so|
000000a0  75 72 63 65 20 63 6f 64  65 0d 00 78 20 3b 20 62  |urce code..x ; b|
000000b0  79 20 4e 69 63 68 6f 6c  61 73 20 4d 61 72 72 69  |y Nicholas Marri|
000000c0  6f 74 74 2c 20 31 39 39  35 0d 00 82 05 3b 0d 00  |ott, 1995....;..|
000000d0  8c 05 3a 0d 00 96 0a 45  51 55 44 20 30 0d 00 a0  |..:....EQUD 0...|
000000e0  1c 45 51 55 44 20 49 6e  69 74 69 61 6c 69 73 61  |.EQUD Initialisa|
000000f0  74 69 6f 6e 5f 43 6f 64  65 0d 00 aa 1a 45 51 55  |tion_Code....EQU|
00000100  44 20 46 69 6e 61 6c 69  73 61 74 69 6f 6e 5f 43  |D Finalisation_C|
00000110  6f 64 65 0d 00 b4 1d 45  51 55 44 20 53 65 72 76  |ode....EQUD Serv|
00000120  69 63 65 5f 43 61 6c 6c  5f 48 61 6e 64 6c 65 72  |ice_Call_Handler|
00000130  0d 00 be 15 45 51 55 44  20 54 69 74 6c 65 5f 53  |....EQUD Title_S|
00000140  74 72 69 6e 67 0d 00 c8  14 45 51 55 44 20 48 65  |tring....EQUD He|
00000150  6c 70 5f 53 74 72 69 6e  67 0d 00 d2 16 45 51 55  |lp_String....EQU|
00000160  44 20 43 6f 6d 6d 61 6e  64 5f 54 61 62 6c 65 0d  |D Command_Table.|
00000170  00 dc 0a 45 51 55 44 20  30 0d 00 e6 0a 45 51 55  |...EQUD 0....EQU|
00000180  44 20 30 0d 00 f0 0a 45  51 55 44 20 30 0d 00 fa  |D 0....EQUD 0...|
00000190  0a 45 51 55 44 20 30 0d  01 04 05 3a 0d 01 0e 18  |.EQUD 0....:....|
000001a0  2e 49 6e 69 74 69 61 6c  69 73 61 74 69 6f 6e 5f  |.Initialisation_|
000001b0  43 6f 64 65 0d 01 18 1b  53 54 4d 46 44 20 52 31  |Code....STMFD R1|
000001c0  33 21 2c 7b 52 37 2d 52  31 31 2c 52 31 34 7d 0d  |3!,{R7-R11,R14}.|
000001d0  01 22 05 3a 0d 01 2c 0d  4d 4f 56 20 52 30 2c 23  |.".:..,.MOV R0,#|
000001e0  36 0d 01 36 0e 4d 4f 56  20 52 33 2c 23 36 34 0d  |6..6.MOV R3,#64.|
000001f0  01 40 14 53 57 49 20 22  58 4f 53 5f 4d 6f 64 75  |.@.SWI "XOS_Modu|
00000200  6c 65 22 0d 01 4a 16 41  44 52 56 53 20 52 30 2c  |le"..J.ADRVS R0,|
00000210  62 61 64 5f 63 6c 61 69  6d 0d 01 54 1d 4c 44 4d  |bad_claim..T.LDM|
00000220  56 53 46 44 20 52 31 33  21 2c 7b 52 37 2d 52 31  |VSFD R13!,{R7-R1|
00000230  31 2c 52 31 34 7d 0d 01  5e 17 84 52 56 53 53 20  |1,R14}..^..RVSS |
00000240  50 43 2c 52 31 34 2c 23  31 3c 3c 32 38 0d 01 68  |PC,R14,#1<<28..h|
00000250  10 53 54 52 20 52 32 2c  5b 52 31 32 5d 0d 01 72  |.STR R2,[R12]..r|
00000260  05 3a 0d 01 7c 0d 4d 4f  56 20 52 30 2c 23 35 0d  |.:..|.MOV R0,#5.|
00000270  01 86 12 53 54 52 20 52  30 2c 5b 52 32 2c 23 38  |...STR R0,[R2,#8|
00000280  5d 0d 01 90 05 3a 0d 01  9a 1e 42 4c 20 53 65 72  |]....:....BL Ser|
00000290  76 69 63 65 5f 43 61 6c  6c 5f 4d 6f 64 65 43 68  |vice_Call_ModeCh|
000002a0  61 6e 67 65 0d 01 a4 05  3a 0d 01 ae 0d 4d 4f 56  |ange....:....MOV|
000002b0  20 52 30 2c 23 34 0d 01  b8 18 41 44 52 20 52 31  | R0,#4....ADR R1|
000002c0  2c 54 69 6d 65 72 5f 52  6f 75 74 69 6e 65 0d 01  |,Timer_Routine..|
000002d0  c2 0e 4d 4f 56 20 52 32  2c 52 31 32 0d 01 cc 17  |..MOV R2,R12....|
000002e0  53 57 49 20 22 58 4f 53  5f 43 61 6c 6c 45 76 65  |SWI "XOS_CallEve|
000002f0  72 79 22 0d 01 d6 05 3a  0d 01 e0 1a 4c 44 4d 46  |ry"....:....LDMF|
00000300  44 20 52 31 33 21 2c 7b  52 37 2d 52 31 31 2c 50  |D R13!,{R7-R11,P|
00000310  43 7d 0d 01 ea 05 3a 0d  01 f4 33 2e 62 61 64 5f  |C}....:...3.bad_|
00000320  63 6c 61 69 6d 20 45 51  55 53 20 22 55 6e 61 62  |claim EQUS "Unab|
00000330  6c 65 20 74 6f 20 63 6c  61 69 6d 20 52 4d 41 20  |le to claim RMA |
00000340  77 6f 72 6b 73 70 61 63  65 22 0d 01 fe 15 20 20  |workspace"....  |
00000350  20 20 20 20 20 20 20 20  20 45 51 55 42 20 30 0d  |         EQUB 0.|
00000360  02 08 14 20 20 20 20 20  20 20 20 20 20 20 41 4c  |...           AL|
00000370  49 47 4e 0d 02 12 05 3a  0d 02 1c 16 2e 46 69 6e  |IGN....:.....Fin|
00000380  61 6c 69 73 61 74 69 6f  6e 5f 43 6f 64 65 0d 02  |alisation_Code..|
00000390  26 1b 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 37  |&.STMFD R13!,{R7|
000003a0  2d 52 31 31 2c 52 31 34  7d 0d 02 30 05 3a 0d 02  |-R11,R14}..0.:..|
000003b0  3a 18 41 44 52 20 52 30  2c 54 69 6d 65 72 5f 52  |:.ADR R0,Timer_R|
000003c0  6f 75 74 69 6e 65 0d 02  44 0e 4d 4f 56 20 52 31  |outine..D.MOV R1|
000003d0  2c 52 31 32 0d 02 4e 1f  53 57 49 20 22 58 4f 53  |,R12..N.SWI "XOS|
000003e0  5f 52 65 6d 6f 76 65 54  69 63 6b 65 72 45 76 65  |_RemoveTickerEve|
000003f0  6e 74 22 0d 02 58 05 3a  0d 02 62 1a 4c 44 4d 46  |nt"..X.:..b.LDMF|
00000400  44 20 52 31 33 21 2c 7b  52 37 2d 52 31 31 2c 50  |D R13!,{R7-R11,P|
00000410  43 7d 0d 02 6c 05 3a 0d  02 76 11 2e 54 69 74 6c  |C}..l.:..v..Titl|
00000420  65 5f 53 74 72 69 6e 67  0d 02 80 12 45 51 55 53  |e_String....EQUS|
00000430  20 22 50 74 72 57 72 61  70 22 0d 02 8a 0a 45 51  | "PtrWrap"....EQ|
00000440  55 42 20 30 0d 02 94 09  41 4c 49 47 4e 0d 02 9e  |UB 0....ALIGN...|
00000450  05 3a 0d 02 a8 10 2e 48  65 6c 70 5f 53 74 72 69  |.:.....Help_Stri|
00000460  6e 67 0d 02 b2 43 45 51  55 53 20 22 50 74 72 57  |ng...CEQUS "PtrW|
00000470  72 61 70 22 2b bd 28 39  29 2b 22 30 2e 30 34 20  |rap"+.(9)+"0.04 |
00000480  28 22 2b c1 91 24 2c 35  2c 31 31 29 2b 22 29 20  |("+..$,5,11)+") |
00000490  62 79 20 4e 69 63 68 6f  6c 61 73 20 4d 61 72 72  |by Nicholas Marr|
000004a0  69 6f 74 74 22 0d 02 bc  0a 45 51 55 42 20 30 0d  |iott"....EQUB 0.|
000004b0  02 c6 09 41 4c 49 47 4e  0d 02 d0 05 3a 0d 02 da  |...ALIGN....:...|
000004c0  12 2e 43 6f 6d 6d 61 6e  64 5f 54 61 62 6c 65 0d  |..Command_Table.|
000004d0  02 e4 10 45 51 55 53 20  22 45 64 67 65 73 22 0d  |...EQUS "Edges".|
000004e0  02 ee 0a 45 51 55 42 20  30 0d 02 f8 09 41 4c 49  |...EQUB 0....ALI|
000004f0  47 4e 0d 03 02 13 45 51  55 44 20 45 64 67 65 73  |GN....EQUD Edges|
00000500  5f 43 6f 64 65 0d 03 0c  12 45 51 55 44 20 26 30  |_Code....EQUD &0|
00000510  30 30 31 30 30 30 30 0d  03 16 15 45 51 55 44 20  |0010000....EQUD |
00000520  45 64 67 65 73 5f 53 79  6e 74 61 78 0d 03 20 13  |Edges_Syntax.. .|
00000530  45 51 55 44 20 45 64 67  65 73 5f 48 65 6c 70 0d  |EQUD Edges_Help.|
00000540  03 2a 0a 45 51 55 42 20  30 0d 03 34 09 41 4c 49  |.*.EQUB 0..4.ALI|
00000550  47 4e 0d 03 3e 05 3a 0d  03 48 0f 2e 45 64 67 65  |GN..>.:..H..Edge|
00000560  73 5f 43 6f 64 65 0d 03  52 1b 53 54 4d 46 44 20  |s_Code..R.STMFD |
00000570  52 31 33 21 2c 7b 52 30  2d 52 31 32 2c 52 31 34  |R13!,{R0-R12,R14|
00000580  7d 0d 03 5c 05 3a 0d 03  66 11 4c 44 52 20 52 31  |}..\.:..f.LDR R1|
00000590  32 2c 5b 52 31 32 5d 0d  03 70 05 3a 0d 03 7a 0d  |2,[R12]..p.:..z.|
000005a0  43 4d 50 20 52 31 2c 23  30 0d 03 84 1a 41 44 52  |CMP R1,#0....ADR|
000005b0  45 51 20 52 30 2c 45 64  67 65 73 5f 4d 65 73 73  |EQ R0,Edges_Mess|
000005c0  61 67 65 0d 03 8e 16 53  57 49 45 51 20 22 58 4f  |age....SWIEQ "XO|
000005d0  53 5f 57 72 69 74 65 30  22 0d 03 98 15 4c 44 52  |S_Write0"....LDR|
000005e0  45 51 20 52 30 2c 5b 52  31 32 2c 23 38 5d 0d 03  |EQ R0,[R12,#8]..|
000005f0  a2 19 41 44 52 45 51 20  52 31 2c 45 64 67 65 73  |..ADREQ R1,Edges|
00000600  5f 42 75 66 66 65 72 0d  03 ac 0c ec 51 20 52 32  |_Buffer.....Q R2|
00000610  2c 23 34 0d 03 b6 1f 53  57 49 45 51 20 22 58 4f  |,#4....SWIEQ "XO|
00000620  53 5f 43 6f 6e 76 65 72  74 49 6e 74 65 67 65 72  |S_ConvertInteger|
00000630  31 22 0d 03 c0 16 53 57  49 45 51 20 22 58 4f 53  |1"....SWIEQ "XOS|
00000640  5f 57 72 69 74 65 30 22  0d 03 ca 17 53 57 49 45  |_Write0"....SWIE|
00000650  51 20 22 58 4f 53 5f 4e  65 77 4c 69 6e 65 22 0d  |Q "XOS_NewLine".|
00000660  03 d4 0f 4d 4f 56 4e 45  20 52 31 2c 52 30 0d 03  |...MOVNE R1,R0..|
00000670  de 18 4c 44 52 4e 45 20  52 30 2c 45 64 67 65 73  |..LDRNE R0,Edges|
00000680  5f 46 6c 61 67 73 0d 03  e8 1c 53 57 49 4e 45 20  |_Flags....SWINE |
00000690  22 58 4f 53 5f 52 65 61  64 55 6e 73 69 67 6e 65  |"XOS_ReadUnsigne|
000006a0  64 22 0d 03 f2 15 53 54  52 4e 45 20 52 32 2c 5b  |d"....STRNE R2,[|
000006b0  52 31 32 2c 23 38 5d 0d  03 fc 05 3a 0d 04 06 1a  |R12,#8]....:....|
000006c0  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |LDMFD R13!,{R0-R|
000006d0  31 32 2c 50 43 7d 0d 04  10 05 3a 0d 04 1a 31 2e  |12,PC}....:...1.|
000006e0  45 64 67 65 73 5f 4d 65  73 73 61 67 65 20 45 51  |Edges_Message EQ|
000006f0  55 53 20 22 43 75 72 72  65 6e 74 20 65 64 67 65  |US "Current edge|
00000700  73 20 73 65 74 74 69 6e  67 3a 20 22 0d 04 24 19  |s setting: "..$.|
00000710  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |               E|
00000720  51 55 42 20 30 0d 04 2e  18 20 20 20 20 20 20 20  |QUB 0....       |
00000730  20 20 20 20 20 20 20 20  41 4c 49 47 4e 0d 04 38  |        ALIGN..8|
00000740  19 2e 45 64 67 65 73 5f  42 75 66 66 65 72 20 20  |..Edges_Buffer  |
00000750  45 51 55 44 20 30 0d 04  42 19 20 20 20 20 20 20  |EQUD 0..B.      |
00000760  20 20 20 20 20 20 20 20  20 45 51 55 42 20 30 0d  |         EQUB 0.|
00000770  04 4c 18 20 20 20 20 20  20 20 20 20 20 20 20 20  |.L.             |
00000780  20 20 41 4c 49 47 4e 0d  04 56 30 2e 45 64 67 65  |  ALIGN..V0.Edge|
00000790  73 5f 46 6c 61 67 73 20  20 20 45 51 55 44 20 28  |s_Flags   EQUD (|
000007a0  31 30 20 84 20 28 31 3c  3c 33 31 29 20 84 20 28  |10 . (1<<31) . (|
000007b0  31 3c 3c 33 30 29 29 0d  04 60 05 3a 0d 04 6a 11  |1<<30))..`.:..j.|
000007c0  2e 45 64 67 65 73 5f 53  79 6e 74 61 78 0d 04 74  |.Edges_Syntax..t|
000007d0  2a 45 51 55 53 20 22 53  79 6e 74 61 78 3a 20 2a  |*EQUS "Syntax: *|
000007e0  45 64 67 65 73 20 5b 3c  65 64 67 65 20 73 65 74  |Edges [<edge set|
000007f0  74 69 6e 67 3e 5d 22 0d  04 7e 0a 45 51 55 42 20  |ting>]"..~.EQUB |
00000800  30 0d 04 88 09 41 4c 49  47 4e 0d 04 92 05 3a 0d  |0....ALIGN....:.|
00000810  04 9c 0f 2e 45 64 67 65  73 5f 48 65 6c 70 0d 04  |....Edges_Help..|
00000820  a6 65 45 51 55 53 20 22  2a 45 64 67 65 73 20 3c  |.eEQUS "*Edges <|
00000830  65 64 67 65 20 73 65 74  74 69 6e 67 3e 20 77 69  |edge setting> wi|
00000840  6c 6c 20 73 65 74 20 74  68 65 20 63 75 72 72 65  |ll set the curre|
00000850  6e 74 20 65 64 67 65 20  64 65 74 65 63 74 69 6f  |nt edge detectio|
00000860  6e 20 77 69 64 74 68 20  6f 72 20 2a 45 64 67 65  |n width or *Edge|
00000870  73 20 77 69 6c 6c 20 64  69 73 70 6c 61 79 20 69  |s will display i|
00000880  74 2e 22 0d 04 b0 0a 45  51 55 42 20 30 0d 04 ba  |t."....EQUB 0...|
00000890  09 41 4c 49 47 4e 0d 04  c4 05 3a 0d 04 ce 19 2e  |.ALIGN....:.....|
000008a0  53 65 72 76 69 63 65 5f  43 61 6c 6c 5f 48 61 6e  |Service_Call_Han|
000008b0  64 6c 65 72 0d 04 d8 1b  53 54 4d 46 44 20 52 31  |dler....STMFD R1|
000008c0  33 21 2c 7b 52 30 2d 52  31 31 2c 52 31 34 7d 0d  |3!,{R0-R11,R14}.|
000008d0  04 e2 05 3a 0d 04 ec 1e  43 4d 50 20 52 31 2c 23  |...:....CMP R1,#|
000008e0  53 65 72 76 69 63 65 5f  4d 6f 64 65 43 68 61 6e  |Service_ModeChan|
000008f0  67 65 0d 04 f6 20 42 4c  45 51 20 53 65 72 76 69  |ge... BLEQ Servi|
00000900  63 65 5f 43 61 6c 6c 5f  4d 6f 64 65 43 68 61 6e  |ce_Call_ModeChan|
00000910  67 65 0d 05 00 05 3a 0d  05 0a 1a 4c 44 4d 46 44  |ge....:....LDMFD|
00000920  20 52 31 33 21 2c 7b 52  30 2d 52 31 31 2c 50 43  | R13!,{R0-R11,PC|
00000930  7d 0d 05 14 05 3a 0d 05  1e 1c 2e 53 65 72 76 69  |}....:.....Servi|
00000940  63 65 5f 43 61 6c 6c 5f  4d 6f 64 65 43 68 61 6e  |ce_Call_ModeChan|
00000950  67 65 0d 05 28 1b 53 54  4d 46 44 20 52 31 33 21  |ge..(.STMFD R13!|
00000960  2c 7b 52 30 2d 52 31 32  2c 52 31 34 7d 0d 05 32  |,{R0-R12,R14}..2|
00000970  05 3a 0d 05 3c 11 4c 44  52 20 52 31 32 2c 5b 52  |.:..<.LDR R12,[R|
00000980  31 32 5d 0d 05 46 05 3a  0d 05 50 16 41 44 52 20  |12]..F.:..P.ADR |
00000990  52 30 2c 69 6e 70 75 74  5f 62 6c 6f 63 6b 0d 05  |R0,input_block..|
000009a0  5a 17 41 44 52 20 52 31  2c 6f 75 74 70 75 74 5f  |Z.ADR R1,output_|
000009b0  62 6c 6f 63 6b 0d 05 64  1e 53 57 49 20 22 58 4f  |block..d.SWI "XO|
000009c0  53 5f 52 65 61 64 56 64  75 56 61 72 69 61 62 6c  |S_ReadVduVariabl|
000009d0  65 73 22 0d 05 6e 05 3a  0d 05 78 18 41 44 52 20  |es"..n.:..x.ADR |
000009e0  52 31 31 2c 6f 75 74 70  75 74 5f 62 6c 6f 63 6b  |R11,output_block|
000009f0  0d 05 82 05 3a 0d 05 8c  13 4c 44 52 20 52 30 2c  |....:....LDR R0,|
00000a00  5b 52 31 31 2c 23 38 5d  0d 05 96 10 41 44 44 20  |[R11,#8]....ADD |
00000a10  52 30 2c 52 30 2c 23 31  0d 05 a0 13 4c 44 52 20  |R0,R0,#1....LDR |
00000a20  52 31 2c 5b 52 31 31 2c  23 30 5d 0d 05 aa 0d 4d  |R1,[R11,#0]....M|
00000a30  4f 56 20 52 32 2c 23 31  0d 05 b4 14 4d 4f 56 20  |OV R2,#1....MOV |
00000a40  52 31 2c 52 32 2c 4c 53  4c 20 52 31 0d 05 be 10  |R1,R2,LSL R1....|
00000a50  4d 55 4c 20 52 32 2c 52  30 2c 52 31 0d 05 c8 13  |MUL R2,R0,R1....|
00000a60  53 54 52 20 52 32 2c 5b  52 31 32 2c 23 30 5d 0d  |STR R2,[R12,#0].|
00000a70  05 d2 05 3a 0d 05 dc 14  4c 44 52 20 52 30 2c 5b  |...:....LDR R0,[|
00000a80  52 31 31 2c 23 31 32 5d  0d 05 e6 10 41 44 44 20  |R11,#12]....ADD |
00000a90  52 30 2c 52 30 2c 23 31  0d 05 f0 13 4c 44 52 20  |R0,R0,#1....LDR |
00000aa0  52 31 2c 5b 52 31 31 2c  23 34 5d 0d 05 fa 0d 4d  |R1,[R11,#4]....M|
00000ab0  4f 56 20 52 32 2c 23 31  0d 06 04 14 4d 4f 56 20  |OV R2,#1....MOV |
00000ac0  52 31 2c 52 32 2c 4c 53  4c 20 52 31 0d 06 0e 10  |R1,R2,LSL R1....|
00000ad0  4d 55 4c 20 52 32 2c 52  30 2c 52 31 0d 06 18 13  |MUL R2,R0,R1....|
00000ae0  53 54 52 20 52 32 2c 5b  52 31 32 2c 23 34 5d 0d  |STR R2,[R12,#4].|
00000af0  06 22 05 3a 0d 06 2c 1a  4c 44 4d 46 44 20 52 31  |.".:..,.LDMFD R1|
00000b00  33 21 2c 7b 52 30 2d 52  31 32 2c 50 43 7d 0d 06  |3!,{R0-R12,PC}..|
00000b10  36 05 3a 0d 06 40 17 2e  69 6e 70 75 74 5f 62 6c  |6.:..@..input_bl|
00000b20  6f 63 6b 20 45 51 55 44  20 34 0d 06 4a 17 20 20  |ock EQUD 4..J.  |
00000b30  20 20 20 20 20 20 20 20  20 20 20 45 51 55 44 20  |           EQUD |
00000b40  35 0d 06 54 18 20 20 20  20 20 20 20 20 20 20 20  |5..T.           |
00000b50  20 20 45 51 55 44 20 31  31 0d 06 5e 18 20 20 20  |  EQUD 11..^.   |
00000b60  20 20 20 20 20 20 20 20  20 20 45 51 55 44 20 31  |          EQUD 1|
00000b70  32 0d 06 68 18 20 20 20  20 20 20 20 20 20 20 20  |2..h.           |
00000b80  20 20 45 51 55 44 20 2d  31 0d 06 72 18 2e 6f 75  |  EQUD -1..r..ou|
00000b90  74 70 75 74 5f 62 6c 6f  63 6b 20 45 51 55 44 20  |tput_block EQUD |
00000ba0  30 0d 06 7c 18 20 20 20  20 20 20 20 20 20 20 20  |0..|.           |
00000bb0  20 20 20 45 51 55 44 20  30 0d 06 86 18 20 20 20  |   EQUD 0....   |
00000bc0  20 20 20 20 20 20 20 20  20 20 20 45 51 55 44 20  |           EQUD |
00000bd0  30 0d 06 90 18 20 20 20  20 20 20 20 20 20 20 20  |0....           |
00000be0  20 20 20 45 51 55 44 20  30 0d 06 9a 18 20 20 20  |   EQUD 0....   |
00000bf0  20 20 20 20 20 20 20 20  20 20 20 45 51 55 44 20  |           EQUD |
00000c00  30 0d 06 a4 05 3a 0d 06  ae 12 2e 54 69 6d 65 72  |0....:.....Timer|
00000c10  5f 52 6f 75 74 69 6e 65  0d 06 b8 1b 53 54 4d 46  |_Routine....STMF|
00000c20  44 20 52 31 33 21 2c 7b  52 30 2d 52 31 32 2c 52  |D R13!,{R0-R12,R|
00000c30  31 34 7d 0d 06 c2 05 3a  0d 06 cc 11 4c 44 52 20  |14}....:....LDR |
00000c40  52 31 32 2c 5b 52 31 32  5d 0d 06 d6 05 3a 0d 06  |R12,[R12]....:..|
00000c50  e0 13 53 57 49 20 22 58  4f 53 5f 4d 6f 75 73 65  |..SWI "XOS_Mouse|
00000c60  22 0d 06 ea 13 4c 44 52  20 52 32 2c 5b 52 31 32  |"....LDR R2,[R12|
00000c70  2c 23 30 5d 0d 06 f4 13  4c 44 52 20 52 33 2c 5b  |,#0]....LDR R3,[|
00000c80  52 31 32 2c 23 34 5d 0d  06 fe 13 4c 44 52 20 52  |R12,#4]....LDR R|
00000c90  34 2c 5b 52 31 32 2c 23  38 5d 0d 07 08 05 3a 0d  |4,[R12,#8]....:.|
00000ca0  07 12 0d 43 4d 50 20 52  30 2c 52 34 0d 07 1c 18  |...CMP R0,R4....|
00000cb0  53 55 42 4c 54 20 52 30  2c 52 32 2c 52 34 2c 4c  |SUBLT R0,R2,R4,L|
00000cc0  53 4c 23 31 0d 07 26 15  42 4c 4c 54 20 4d 6f 76  |SL#1..&.BLLT Mov|
00000cd0  65 5f 50 6f 69 6e 74 65  72 0d 07 30 1a 42 4c 54  |e_Pointer..0.BLT|
00000ce0  20 45 78 69 74 5f 54 69  6d 65 72 5f 52 6f 75 74  | Exit_Timer_Rout|
00000cf0  69 6e 65 0d 07 3a 05 3a  0d 07 44 0d 43 4d 50 20  |ine..:.:..D.CMP |
00000d00  52 31 2c 52 34 0d 07 4e  18 53 55 42 4c 54 20 52  |R1,R4..N.SUBLT R|
00000d10  31 2c 52 33 2c 52 34 2c  4c 53 4c 23 31 0d 07 58  |1,R3,R4,LSL#1..X|
00000d20  15 42 4c 4c 54 20 4d 6f  76 65 5f 50 6f 69 6e 74  |.BLLT Move_Point|
00000d30  65 72 0d 07 62 1a 42 4c  54 20 45 78 69 74 5f 54  |er..b.BLT Exit_T|
00000d40  69 6d 65 72 5f 52 6f 75  74 69 6e 65 0d 07 6c 05  |imer_Routine..l.|
00000d50  3a 0d 07 76 10 53 55 42  20 52 35 2c 52 32 2c 52  |:..v.SUB R5,R2,R|
00000d60  34 0d 07 80 0d 43 4d 50  20 52 30 2c 52 35 0d 07  |4....CMP R0,R5..|
00000d70  8a 15 4d 4f 56 47 54 20  52 30 2c 52 34 2c 4c 53  |..MOVGT R0,R4,LS|
00000d80  4c 23 31 0d 07 94 15 42  4c 47 54 20 4d 6f 76 65  |L#1....BLGT Move|
00000d90  5f 50 6f 69 6e 74 65 72  0d 07 9e 1a 42 47 54 20  |_Pointer....BGT |
00000da0  45 78 69 74 5f 54 69 6d  65 72 5f 52 6f 75 74 69  |Exit_Timer_Routi|
00000db0  6e 65 0d 07 a8 05 3a 0d  07 b2 10 53 55 42 20 52  |ne....:....SUB R|
00000dc0  36 2c 52 33 2c 52 34 0d  07 bc 0d 43 4d 50 20 52  |6,R3,R4....CMP R|
00000dd0  31 2c 52 36 0d 07 c6 15  4d 4f 56 47 54 20 52 31  |1,R6....MOVGT R1|
00000de0  2c 52 34 2c 4c 53 4c 23  31 0d 07 d0 15 42 4c 47  |,R4,LSL#1....BLG|
00000df0  54 20 4d 6f 76 65 5f 50  6f 69 6e 74 65 72 0d 07  |T Move_Pointer..|
00000e00  da 05 3a 0d 07 e4 17 2e  45 78 69 74 5f 54 69 6d  |..:.....Exit_Tim|
00000e10  65 72 5f 52 6f 75 74 69  6e 65 0d 07 ee 1a 4c 44  |er_Routine....LD|
00000e20  4d 46 44 20 52 31 33 21  2c 7b 52 30 2d 52 31 32  |MFD R13!,{R0-R12|
00000e30  2c 50 43 7d 0d 07 f8 05  3a 0d 08 02 11 2e 4d 6f  |,PC}....:.....Mo|
00000e40  76 65 5f 50 6f 69 6e 74  65 72 0d 08 0c 14 53 54  |ve_Pointer....ST|
00000e50  4d 46 44 20 52 31 33 21  2c 7b 52 31 34 7d 0d 08  |MFD R13!,{R14}..|
00000e60  16 05 3a 0d 08 20 0d 4d  4f 56 20 52 38 2c 52 30  |..:.. .MOV R8,R0|
00000e70  0d 08 2a 0d 4d 4f 56 20  52 39 2c 52 31 0d 08 34  |..*.MOV R9,R1..4|
00000e80  13 41 44 44 20 52 31 31  2c 52 31 32 2c 23 31 35  |.ADD R11,R12,#15|
00000e90  0d 08 3e 05 3a 0d 08 48  17 84 52 20 52 31 30 2c  |..>.:..H..R R10,|
00000ea0  52 38 2c 52 39 2c 4c 53  4c 23 31 36 0d 08 52 05  |R8,R9,LSL#16..R.|
00000eb0  3a 0d 08 5c 0d 4d 4f 56  20 52 30 2c 23 33 0d 08  |:..\.MOV R0,#3..|
00000ec0  66 14 53 54 52 42 20 52  30 2c 5b 52 31 31 2c 23  |f.STRB R0,[R11,#|
00000ed0  30 5d 0d 08 70 14 53 54  52 20 52 31 30 2c 5b 52  |0]..p.STR R10,[R|
00000ee0  31 31 2c 23 31 5d 0d 08  7a 0e 4d 4f 56 20 52 30  |11,#1]..z.MOV R0|
00000ef0  2c 23 32 31 0d 08 84 0e  4d 4f 56 20 52 31 2c 52  |,#21....MOV R1,R|
00000f00  31 31 0d 08 8e 12 53 57  49 20 22 58 4f 53 5f 57  |11....SWI "XOS_W|
00000f10  6f 72 64 22 0d 08 98 05  3a 0d 08 a2 13 4c 44 4d  |ord"....:....LDM|
00000f20  46 44 20 52 31 33 21 2c  7b 50 43 7d 0d 08 ac 05  |FD R13!,{PC}....|
00000f30  3a 0d 08 b6 05 5d 0d 08  c0 05 ed 0d 08 ca 2c c8  |:....]........,.|
00000f40  99 20 22 4f 53 5f 46 69  6c 65 22 2c 31 30 2c 22  |. "OS_File",10,"|
00000f50  50 74 72 57 72 61 70 22  2c 26 46 46 41 2c 2c 63  |PtrWrap",&FFA,,c|
00000f60  6f 64 65 25 2c 4f 25 0d  08 d4 05 e0 0d ff        |ode%,O%.......|
00000f6e