Home » Archimedes archive » Acorn User » AU 1995-02.adf » !StarInfo_StarInfo » Kemp/Source006
Kemp/Source006
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1995-02.adf » !StarInfo_StarInfo |
| Filename: | Kemp/Source006 |
| Read OK: | ✔ |
| File size: | 18E2 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM >Source (StopStart)
2REM By KCE Software (Andrew Kemp)
3REM LEN June 1994
4:
5REM workspace :
6REM __________________________________________________________________________
7REM | offset | contents |
8REM |--------------------------------------------------------------------------|
9REM | 0 | module flags : bit 0 => intercept desktop welcome banner |
10REM | | bit 1 => perform command on shutdown |
11REM | 4 | pointer to *command for execution on desktop welcome |
12REM | 8 | pointer to *command for execution on shutdown |
13REM --------------------------------------------------------------------------
14:
15moduleflags = 0
16welcomeptr = 4
17shutdownptr = 8
18:
19grabwelcome = 1<<0
20grabshutdown = 1<<1
21:
22run%=TRUE
23ON ERROR VDU 7:PRINT REPORT$;" at line ";STR$(ERL):END
24:
25PROCinit
26PROCassemble
27PROCsave("adfs::Diamond.$.Program'ng.Assembler.StopStart.StopStart",&ffa,code%,O%)
28END
29:
30DEF PROCinit
31date$=MID$(TIME$,5,11)
32version$="0.06"
33DIM code% &10000
34ENDPROC
35:
36DEF PROCsave(file$,type%,base%,end%)
37SYS "OS_File",10,file$,type%,,base%,end%
38IF run% THEN SYS "OS_CLI","Run "+file$
39ENDPROC
40:
41DEF PROCassemble
42wp=12: sp=13: link=14: pc=15
43FOR pass%=4 TO 6 STEP 2
44P%=0: O%=code%
45[OPT pass%
46 EQUD 0
47 EQUD initcode
48 EQUD finalcode
49 EQUD servicecode
50 EQUD titlestring
51 EQUD helpstring
52 EQUD helptable
53
54.titlestring
55 EQUS "StopStart"
56 EQUB 0
57 ALIGN
58
59.helpstring
60 EQUS "StopStart"
61 EQUB 9
62 EQUS version$+" ("+date$+")"
63 EQUB 0
64 ALIGN
65
66.helptable
67 EQUS "Start"
68 EQUB 0
69 ALIGN
70 EQUD startcode
71 EQUD &000FF000 ; min zero parameters, max 255 parameters
72 EQUD 0
73 EQUD starthelp
74 EQUS "Stop"
75 EQUB 0
76 ALIGN
77 EQUD stopcode
78 EQUD &000FF000 ; min zero parameters, max 255 parameters
79 EQUD 0
80 EQUD stophelp
81 EQUB 0
82
83.starthelp
84 EQUS "*Start allows a *command to be specified to be executed "
85 EQUS "instead of the standard desktop welcome. If used with no "
86 EQUS "parameter it restores the standard banner."
87 EQUB 13
88 EQUS "Syntax: *Start [<command>]"
89 EQUB 0
90 ALIGN
91
92.startcode
93 STMFD (sp)!,{link}
94 LDR R12,[R12]
95 LDR R7,[R12,#moduleflags]
96 MOV R8,R0
97
98 TST R7,#grabwelcome
99 BEQ dontdeallocate
100 MOV R0,#7
101 LDR R2,[R12,#welcomeptr]
102 SWI "XOS_Module"
103
104.dontdeallocate
105 TEQ R1,#0
106 BICEQ R7,R7,#grabwelcome
107 BEQ endstart
108
109 MOV R0,#6
110 BL stringlength
111 SWI "XOS_Module"
112 BVS endstart
113 STR R2,[R12,#welcomeptr]
114
115 BL stringcopy
116 ORR R7,R7,#grabwelcome
117.endstart
118 STR R7,[R12,#moduleflags]
119 LDMFD (sp)!,{pc}
120
121.stophelp
122 EQUS "*Stop allows a *command to be specified to be executed when "
123 EQUS "a shutdown is performed. If used with no parameter it "
124 EQUS "disables any command previously applied."
125 EQUB 13
126 EQUS "Syntax: *Stop [<command>]"
127 EQUB 0
128 ALIGN
129
130.stopcode
131 STMFD (sp)!,{link}
132 LDR R12,[R12]
133 LDR R7,[R12,#moduleflags]
134 MOV R8,R0
135
136 TST R7,#grabshutdown
137 BEQ dontdeallocate2
138 MOV R0,#7
139 LDR R2,[R12,#shutdownptr]
140 SWI "XOS_Module"
141
142.dontdeallocate2
143 TEQ R1,#0
144 BICEQ R7,R7,#grabshutdown
145 BEQ endstart
146
147 MOV R0,#6
148 BL stringlength
149 SWI "XOS_Module"
150 BVS endstart
151 STR R2,[R12,#shutdownptr]
152
153 BL stringcopy
154 ORR R7,R7,#grabshutdown
155 B endstart
156
157.stringcopy
158 STMFD (sp)!,{link}
159.stringcopyloop
160 LDRB R4,[R8],#1
161 CMP R4,#32
162 MOVLT R4,#0
163 STRB R4,[R2],#1
164 BGE stringcopyloop
165 LDMFD (sp)!,{pc}
166
167.stringlength
168 STMFD (sp)!,{link}
169 MOV R3,#0
170.stringloop
171 LDRB R4,[R8,R3]
172 ADD R3,R3,#1
173 CMP R4,#32
174 BGE stringloop
175 LDMFD (sp)!,{pc}
176
177.initcode
178 STMFD (sp)!,{R7-R11,link}
179 MOV R0,#6
180 MOV R3,#12
181 SWI "XOS_Module"
182 BVS initexit
183 STR R2,[R12]
184 MOV R0,#0
185 STR R0,[R2,#moduleflags]
186.initexit
187 LDMFD (sp)!,{R7-R11,pc}
188
189.finalcode
190 STMFD (sp)!,{R7-R11,link}
191
192 MOV R0,#7
193
194 LDR R12,[R12]
195 LDR R7,[R12,#moduleflags]
196 TST R7,#grabwelcome
197 LDRNE R2,[R12,#welcomeptr]
198 SWINE "XOS_Module"
199 TST R7,#grabshutdown
200 LDRNE R2,[R12,#shutdownptr]
201 SWINE "XOS_Module"
202
203 MOV R2,R12
204 SWI "XOS_Module"
205 LDMFD (sp)!,{R7-R11,pc}
206
207.servicecode
208 STMFD (sp)!,{link}
209 LDR R12,[R12]
210 TEQ R1,#&7C
211 BEQ welcome
212 TEQ R1,#&80
213 BEQ shutdown
214 LDMFD (sp)!,{pc}
215
216.welcome
217 LDR R0,[R12,#moduleflags]
218 TST R0,#grabwelcome
219 LDMEQFD (sp)!,{pc}
220 LDR R0,[R12,#welcomeptr]
221 SWI "XOS_CLI"
222 MOV R1,#0
223 LDMFD (sp)!,{pc}
224
225.shutdown
226 LDR R0,[R12,#moduleflags]
227 TST R0,#grabshutdown
228 LDMEQFD (sp)!,{pc}
229 LDR R0,[R12,#shutdownptr]
230 SWI "XOS_CLI"
231 LDMFD (sp)!,{pc}
232
233]
234NEXT pass%
235ENDPROC
� >Source (StopStart)
#� By KCE Software (Andrew Kemp)
� � June 1994
:
� workspace :
Q� __________________________________________________________________________
R� | offset | contents |
R� |--------------------------------------------------------------------------|
R� | 0 | module flags : bit 0 => intercept desktop welcome banner |
R� | | bit 1 => perform command on shutdown |
R� | 4 | pointer to *command for execution on desktop welcome |
R� | 8 | pointer to *command for execution on shutdown |
Q� --------------------------------------------------------------------------
:
moduleflags = 0
welcomeptr = 4
shutdownptr = 8
:
grabwelcome = 1<<0
grabshutdown = 1<<1
:
run%=�
#� � � 7:� �$;" at line ";�(�):�
:
�init
�assemble
S�save("adfs::Diamond.$.Program'ng.Assembler.StopStart.StopStart",&ffa,code%,O%)
�
:
� �init
date$=��$,5,11)
version$="0.06"
!� code% &10000
"�
#:
$#� �save(file$,type%,base%,end%)
%+ș "OS_File",10,file$,type%,,base%,end%
&%� run% � ș "OS_CLI","Run "+file$
'�
(:
)� �assemble
* wp=12: sp=13: link=14: pc=15
+� pass%=4 � 6 � 2
,P%=0: O%=code%
-[OPT pass%
. EQUD 0
/ EQUD initcode
0 EQUD finalcode
1 EQUD servicecode
2 EQUD titlestring
3 EQUD helpstring
4 EQUD helptable
5
6.titlestring
7 EQUS "StopStart"
8 EQUB 0
9 ALIGN
:
;.helpstring
< EQUS "StopStart"
= EQUB 9
>( EQUS version$+" ("+date$+")"
? EQUB 0
@ ALIGN
A
B.helptable
C EQUS "Start"
D EQUB 0
E ALIGN
F EQUD startcode
GK EQUD &000FF000 ; min zero parameters, max 255 parameters
H EQUD 0
I EQUD starthelp
J EQUS "Stop"
K EQUB 0
L ALIGN
M EQUD stopcode
NK EQUD &000FF000 ; min zero parameters, max 255 parameters
O EQUD 0
P EQUD stophelp
Q EQUB 0
R
S.starthelp
TN EQUS "*Start allows a *command to be specified to be executed "
UO EQUS "instead of the standard desktop welcome. If used with no "
V@ EQUS "parameter it restores the standard banner."
W EQUB 13
X1 EQUS "Syntax: *Start [<command>]"
Y EQUB 0
Z ALIGN
[
\.startcode
] STMFD (sp)!,{link}
^ LDR R12,[R12]
_) LDR R7,[R12,#moduleflags]
` MOV R8,R0
a
b# TST R7,#grabwelcome
c" BEQ dontdeallocate
d MOV R0,#7
e( LDR R2,[R12,#welcomeptr]
f SWI "XOS_Module"
g
h.dontdeallocate
i TEQ R1,#0
j& BICEQ R7,R7,#grabwelcome
k BEQ endstart
l
m MOV R0,#6
n BL stringlength
o SWI "XOS_Module"
p BVS endstart
q( STR R2,[R12,#welcomeptr]
r
s BL stringcopy
t% �R R7,R7,#grabwelcome
u
.endstart
v) STR R7,[R12,#moduleflags]
w LDMFD (sp)!,{pc}
x
y
.stophelp
zR EQUS "*Stop allows a *command to be specified to be executed when "
{L EQUS "a shutdown is performed. If used with no parameter it "
|> EQUS "disables any command previously applied."
} EQUB 13
~0 EQUS "Syntax: *Stop [<command>]"
EQUB 0
� ALIGN
�
�
.stopcode
� STMFD (sp)!,{link}
� LDR R12,[R12]
�) LDR R7,[R12,#moduleflags]
� MOV R8,R0
�
�$ TST R7,#grabshutdown
�# BEQ dontdeallocate2
� MOV R0,#7
�) LDR R2,[R12,#shutdownptr]
� SWI "XOS_Module"
�
�.dontdeallocate2
� TEQ R1,#0
�' BICEQ R7,R7,#grabshutdown
� BEQ endstart
�
� MOV R0,#6
� BL stringlength
� SWI "XOS_Module"
� BVS endstart
�) STR R2,[R12,#shutdownptr]
�
� BL stringcopy
�& �R R7,R7,#grabshutdown
� B endstart
�
�.stringcopy
� STMFD (sp)!,{link}
�.stringcopyloop
� LDRB R4,[R8],#1
� CMP R4,#32
� MOVLT R4,#0
� STRB R4,[R2],#1
�" BGE stringcopyloop
� LDMFD (sp)!,{pc}
�
�.stringlength
� STMFD (sp)!,{link}
� MOV R3,#0
�.stringloop
� LDRB R4,[R8,R3]
� ADD R3,R3,#1
� CMP R4,#32
� BGE stringloop
� LDMFD (sp)!,{pc}
�
�
.initcode
�' STMFD (sp)!,{R7-R11,link}
� MOV R0,#6
� MOV R3,#12
� SWI "XOS_Module"
� BVS initexit
� STR R2,[R12]
� MOV R0,#0
�( STR R0,[R2,#moduleflags]
�
.initexit
�% LDMFD (sp)!,{R7-R11,pc}
�
�.finalcode
�' STMFD (sp)!,{R7-R11,link}
�
� MOV R0,#7
�
� LDR R12,[R12]
�) LDR R7,[R12,#moduleflags]
�# TST R7,#grabwelcome
�( LDRNE R2,[R12,#welcomeptr]
� SWINE "XOS_Module"
�$ TST R7,#grabshutdown
�) LDRNE R2,[R12,#shutdownptr]
� SWINE "XOS_Module"
�
� MOV R2,R12
� SWI "XOS_Module"
�% LDMFD (sp)!,{R7-R11,pc}
�
�.servicecode
� STMFD (sp)!,{link}
� LDR R12,[R12]
� TEQ R1,#&7C
� BEQ welcome
� TEQ R1,#&80
� BEQ shutdown
� LDMFD (sp)!,{pc}
�
� .welcome
�) LDR R0,[R12,#moduleflags]
�# TST R0,#grabwelcome
� LDMEQFD (sp)!,{pc}
�( LDR R0,[R12,#welcomeptr]
� SWI "XOS_CLI"
� MOV R1,#0
� LDMFD (sp)!,{pc}
�
�
.shutdown
�) LDR R0,[R12,#moduleflags]
�$ TST R0,#grabshutdown
� LDMEQFD (sp)!,{pc}
�) LDR R0,[R12,#shutdownptr]
� SWI "XOS_CLI"
� LDMFD (sp)!,{pc}
�
�]
� � pass%
��
� 00000000 0d 00 01 19 f4 20 3e 53 6f 75 72 63 65 20 28 53 |..... >Source (S|
00000010 74 6f 70 53 74 61 72 74 29 0d 00 02 23 f4 20 42 |topStart)...#. B|
00000020 79 20 4b 43 45 20 53 6f 66 74 77 61 72 65 20 28 |y KCE Software (|
00000030 41 6e 64 72 65 77 20 4b 65 6d 70 29 0d 00 03 11 |Andrew Kemp)....|
00000040 f4 20 a9 20 4a 75 6e 65 20 31 39 39 34 0d 00 04 |. . June 1994...|
00000050 05 3a 0d 00 05 11 f4 20 77 6f 72 6b 73 70 61 63 |.:..... workspac|
00000060 65 20 3a 0d 00 06 51 f4 20 20 5f 5f 5f 5f 5f 5f |e :...Q. ______|
00000070 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________|
*
000000b0 5f 5f 5f 5f 0d 00 07 52 f4 20 7c 20 20 6f 66 66 |____...R. | off|
000000c0 73 65 74 20 7c 20 63 6f 6e 74 65 6e 74 73 20 20 |set | contents |
000000d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00000100 20 20 20 20 20 7c 0d 00 08 52 f4 20 7c 2d 2d 2d | |...R. |---|
00000110 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000150 2d 2d 2d 2d 2d 2d 2d 7c 0d 00 09 52 f4 20 7c 20 |-------|...R. | |
00000160 20 20 20 20 20 20 30 20 7c 20 6d 6f 64 75 6c 65 | 0 | module|
00000170 20 66 6c 61 67 73 20 3a 20 62 69 74 20 30 20 3d | flags : bit 0 =|
00000180 3e 20 69 6e 74 65 72 63 65 70 74 20 64 65 73 6b |> intercept desk|
00000190 74 6f 70 20 77 65 6c 63 6f 6d 65 20 62 61 6e 6e |top welcome bann|
000001a0 65 72 20 20 20 20 20 20 20 7c 0d 00 0a 52 f4 20 |er |...R. |
000001b0 7c 20 20 20 20 20 20 20 20 20 7c 20 20 20 20 20 || | |
000001c0 20 20 20 20 20 20 20 20 20 20 20 62 69 74 20 31 | bit 1|
000001d0 20 3d 3e 20 70 65 72 66 6f 72 6d 20 63 6f 6d 6d | => perform comm|
000001e0 61 6e 64 20 6f 6e 20 73 68 75 74 64 6f 77 6e 20 |and on shutdown |
000001f0 20 20 20 20 20 20 20 20 20 20 20 7c 0d 00 0b 52 | |...R|
00000200 f4 20 7c 20 20 20 20 20 20 20 34 20 7c 20 70 6f |. | 4 | po|
00000210 69 6e 74 65 72 20 74 6f 20 2a 63 6f 6d 6d 61 6e |inter to *comman|
00000220 64 20 66 6f 72 20 65 78 65 63 75 74 69 6f 6e 20 |d for execution |
00000230 6f 6e 20 64 65 73 6b 74 6f 70 20 77 65 6c 63 6f |on desktop welco|
00000240 6d 65 20 20 20 20 20 20 20 20 20 20 20 7c 0d 00 |me |..|
00000250 0c 52 f4 20 7c 20 20 20 20 20 20 20 38 20 7c 20 |.R. | 8 | |
00000260 70 6f 69 6e 74 65 72 20 74 6f 20 2a 63 6f 6d 6d |pointer to *comm|
00000270 61 6e 64 20 66 6f 72 20 65 78 65 63 75 74 69 6f |and for executio|
00000280 6e 20 6f 6e 20 73 68 75 74 64 6f 77 6e 20 20 20 |n on shutdown |
00000290 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c | ||
000002a0 0d 00 0d 51 f4 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d |...Q. ---------|
000002b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000002f0 2d 0d 00 0e 05 3a 0d 00 0f 17 6d 6f 64 75 6c 65 |-....:....module|
00000300 66 6c 61 67 73 20 20 3d 20 20 20 20 30 0d 00 10 |flags = 0...|
00000310 17 77 65 6c 63 6f 6d 65 70 74 72 20 20 20 3d 20 |.welcomeptr = |
00000320 20 20 20 34 0d 00 11 17 73 68 75 74 64 6f 77 6e | 4....shutdown|
00000330 70 74 72 20 20 3d 20 20 20 20 38 0d 00 12 06 3a |ptr = 8....:|
00000340 20 0d 00 13 17 67 72 61 62 77 65 6c 63 6f 6d 65 | ....grabwelcome|
00000350 20 20 3d 20 31 3c 3c 30 0d 00 14 17 67 72 61 62 | = 1<<0....grab|
00000360 73 68 75 74 64 6f 77 6e 20 3d 20 31 3c 3c 31 0d |shutdown = 1<<1.|
00000370 00 15 05 3a 0d 00 16 0a 72 75 6e 25 3d b9 0d 00 |...:....run%=...|
00000380 17 23 ee 20 85 20 ef 20 37 3a f1 20 f6 24 3b 22 |.#. . . 7:. .$;"|
00000390 20 61 74 20 6c 69 6e 65 20 22 3b c3 28 9e 29 3a | at line ";.(.):|
000003a0 e0 0d 00 18 05 3a 0d 00 19 09 f2 69 6e 69 74 0d |.....:.....init.|
000003b0 00 1a 0d f2 61 73 73 65 6d 62 6c 65 0d 00 1b 53 |....assemble...S|
000003c0 f2 73 61 76 65 28 22 61 64 66 73 3a 3a 44 69 61 |.save("adfs::Dia|
000003d0 6d 6f 6e 64 2e 24 2e 50 72 6f 67 72 61 6d 27 6e |mond.$.Program'n|
000003e0 67 2e 41 73 73 65 6d 62 6c 65 72 2e 53 74 6f 70 |g.Assembler.Stop|
000003f0 53 74 61 72 74 2e 53 74 6f 70 53 74 61 72 74 22 |Start.StopStart"|
00000400 2c 26 66 66 61 2c 63 6f 64 65 25 2c 4f 25 29 0d |,&ffa,code%,O%).|
00000410 00 1c 05 e0 0d 00 1d 05 3a 0d 00 1e 0b dd 20 f2 |........:..... .|
00000420 69 6e 69 74 0d 00 1f 13 64 61 74 65 24 3d c1 91 |init....date$=..|
00000430 24 2c 35 2c 31 31 29 0d 00 20 13 76 65 72 73 69 |$,5,11).. .versi|
00000440 6f 6e 24 3d 22 30 2e 30 36 22 0d 00 21 12 de 20 |on$="0.06"..!.. |
00000450 63 6f 64 65 25 20 26 31 30 30 30 30 0d 00 22 05 |code% &10000..".|
00000460 e1 0d 00 23 05 3a 0d 00 24 23 dd 20 f2 73 61 76 |...#.:..$#. .sav|
00000470 65 28 66 69 6c 65 24 2c 74 79 70 65 25 2c 62 61 |e(file$,type%,ba|
00000480 73 65 25 2c 65 6e 64 25 29 0d 00 25 2b c8 99 20 |se%,end%)..%+.. |
00000490 22 4f 53 5f 46 69 6c 65 22 2c 31 30 2c 66 69 6c |"OS_File",10,fil|
000004a0 65 24 2c 74 79 70 65 25 2c 2c 62 61 73 65 25 2c |e$,type%,,base%,|
000004b0 65 6e 64 25 0d 00 26 25 e7 20 72 75 6e 25 20 8c |end%..&%. run% .|
000004c0 20 c8 99 20 22 4f 53 5f 43 4c 49 22 2c 22 52 75 | .. "OS_CLI","Ru|
000004d0 6e 20 22 2b 66 69 6c 65 24 0d 00 27 05 e1 0d 00 |n "+file$..'....|
000004e0 28 05 3a 0d 00 29 0f dd 20 f2 61 73 73 65 6d 62 |(.:..).. .assemb|
000004f0 6c 65 0d 00 2a 20 77 70 3d 31 32 3a 20 73 70 3d |le..* wp=12: sp=|
00000500 31 33 3a 20 6c 69 6e 6b 3d 31 34 3a 20 70 63 3d |13: link=14: pc=|
00000510 31 35 0d 00 2b 15 e3 20 70 61 73 73 25 3d 34 20 |15..+.. pass%=4 |
00000520 b8 20 36 20 88 20 32 0d 00 2c 12 50 25 3d 30 3a |. 6 . 2..,.P%=0:|
00000530 20 4f 25 3d 63 6f 64 65 25 0d 00 2d 0e 5b 4f 50 | O%=code%..-.[OP|
00000540 54 20 70 61 73 73 25 0d 00 2e 15 20 20 20 20 20 |T pass%.... |
00000550 20 20 20 45 51 55 44 20 20 20 20 30 0d 00 2f 1c | EQUD 0../.|
00000560 20 20 20 20 20 20 20 20 45 51 55 44 20 20 20 20 | EQUD |
00000570 69 6e 69 74 63 6f 64 65 0d 00 30 1d 20 20 20 20 |initcode..0. |
00000580 20 20 20 20 45 51 55 44 20 20 20 20 66 69 6e 61 | EQUD fina|
00000590 6c 63 6f 64 65 0d 00 31 1f 20 20 20 20 20 20 20 |lcode..1. |
000005a0 20 45 51 55 44 20 20 20 20 73 65 72 76 69 63 65 | EQUD service|
000005b0 63 6f 64 65 0d 00 32 1f 20 20 20 20 20 20 20 20 |code..2. |
000005c0 45 51 55 44 20 20 20 20 74 69 74 6c 65 73 74 72 |EQUD titlestr|
000005d0 69 6e 67 0d 00 33 1e 20 20 20 20 20 20 20 20 45 |ing..3. E|
000005e0 51 55 44 20 20 20 20 68 65 6c 70 73 74 72 69 6e |QUD helpstrin|
000005f0 67 0d 00 34 1d 20 20 20 20 20 20 20 20 45 51 55 |g..4. EQU|
00000600 44 20 20 20 20 68 65 6c 70 74 61 62 6c 65 0d 00 |D helptable..|
00000610 35 04 0d 00 36 10 2e 74 69 74 6c 65 73 74 72 69 |5...6..titlestri|
00000620 6e 67 0d 00 37 1f 20 20 20 20 20 20 20 20 45 51 |ng..7. EQ|
00000630 55 53 20 20 20 20 22 53 74 6f 70 53 74 61 72 74 |US "StopStart|
00000640 22 0d 00 38 15 20 20 20 20 20 20 20 20 45 51 55 |"..8. EQU|
00000650 42 20 20 20 20 30 0d 00 39 11 20 20 20 20 20 20 |B 0..9. |
00000660 20 20 41 4c 49 47 4e 0d 00 3a 04 0d 00 3b 0f 2e | ALIGN..:...;..|
00000670 68 65 6c 70 73 74 72 69 6e 67 0d 00 3c 1c 20 20 |helpstring..<. |
00000680 20 20 20 20 20 20 45 51 55 53 20 22 53 74 6f 70 | EQUS "Stop|
00000690 53 74 61 72 74 22 0d 00 3d 12 20 20 20 20 20 20 |Start"..=. |
000006a0 20 20 45 51 55 42 20 39 0d 00 3e 28 20 20 20 20 | EQUB 9..>( |
000006b0 20 20 20 20 45 51 55 53 20 76 65 72 73 69 6f 6e | EQUS version|
000006c0 24 2b 22 20 28 22 2b 64 61 74 65 24 2b 22 29 22 |$+" ("+date$+")"|
000006d0 0d 00 3f 12 20 20 20 20 20 20 20 20 45 51 55 42 |..?. EQUB|
000006e0 20 30 0d 00 40 11 20 20 20 20 20 20 20 20 41 4c | 0..@. AL|
000006f0 49 47 4e 0d 00 41 04 0d 00 42 0e 2e 68 65 6c 70 |IGN..A...B..help|
00000700 74 61 62 6c 65 0d 00 43 1b 20 20 20 20 20 20 20 |table..C. |
00000710 20 45 51 55 53 20 20 20 20 22 53 74 61 72 74 22 | EQUS "Start"|
00000720 0d 00 44 15 20 20 20 20 20 20 20 20 45 51 55 42 |..D. EQUB|
00000730 20 20 20 20 30 0d 00 45 11 20 20 20 20 20 20 20 | 0..E. |
00000740 20 41 4c 49 47 4e 0d 00 46 1d 20 20 20 20 20 20 | ALIGN..F. |
00000750 20 20 45 51 55 44 20 20 20 20 73 74 61 72 74 63 | EQUD startc|
00000760 6f 64 65 0d 00 47 4b 20 20 20 20 20 20 20 20 45 |ode..GK E|
00000770 51 55 44 20 20 20 20 26 30 30 30 46 46 30 30 30 |QUD &000FF000|
00000780 20 20 20 20 20 3b 20 6d 69 6e 20 7a 65 72 6f 20 | ; min zero |
00000790 70 61 72 61 6d 65 74 65 72 73 2c 20 6d 61 78 20 |parameters, max |
000007a0 32 35 35 20 70 61 72 61 6d 65 74 65 72 73 0d 00 |255 parameters..|
000007b0 48 15 20 20 20 20 20 20 20 20 45 51 55 44 20 20 |H. EQUD |
000007c0 20 20 30 0d 00 49 1d 20 20 20 20 20 20 20 20 45 | 0..I. E|
000007d0 51 55 44 20 20 20 20 73 74 61 72 74 68 65 6c 70 |QUD starthelp|
000007e0 0d 00 4a 1a 20 20 20 20 20 20 20 20 45 51 55 53 |..J. EQUS|
000007f0 20 20 20 20 22 53 74 6f 70 22 0d 00 4b 15 20 20 | "Stop"..K. |
00000800 20 20 20 20 20 20 45 51 55 42 20 20 20 20 30 0d | EQUB 0.|
00000810 00 4c 11 20 20 20 20 20 20 20 20 41 4c 49 47 4e |.L. ALIGN|
00000820 0d 00 4d 1c 20 20 20 20 20 20 20 20 45 51 55 44 |..M. EQUD|
00000830 20 20 20 20 73 74 6f 70 63 6f 64 65 0d 00 4e 4b | stopcode..NK|
00000840 20 20 20 20 20 20 20 20 45 51 55 44 20 20 20 20 | EQUD |
00000850 26 30 30 30 46 46 30 30 30 20 20 20 20 20 3b 20 |&000FF000 ; |
00000860 6d 69 6e 20 7a 65 72 6f 20 70 61 72 61 6d 65 74 |min zero paramet|
00000870 65 72 73 2c 20 6d 61 78 20 32 35 35 20 70 61 72 |ers, max 255 par|
00000880 61 6d 65 74 65 72 73 0d 00 4f 15 20 20 20 20 20 |ameters..O. |
00000890 20 20 20 45 51 55 44 20 20 20 20 30 0d 00 50 1c | EQUD 0..P.|
000008a0 20 20 20 20 20 20 20 20 45 51 55 44 20 20 20 20 | EQUD |
000008b0 73 74 6f 70 68 65 6c 70 0d 00 51 15 20 20 20 20 |stophelp..Q. |
000008c0 20 20 20 20 45 51 55 42 20 20 20 20 30 0d 00 52 | EQUB 0..R|
000008d0 04 0d 00 53 0e 2e 73 74 61 72 74 68 65 6c 70 0d |...S..starthelp.|
000008e0 00 54 4e 20 20 20 20 20 20 20 20 45 51 55 53 20 |.TN EQUS |
000008f0 20 20 20 22 2a 53 74 61 72 74 20 61 6c 6c 6f 77 | "*Start allow|
00000900 73 20 61 20 2a 63 6f 6d 6d 61 6e 64 20 74 6f 20 |s a *command to |
00000910 62 65 20 73 70 65 63 69 66 69 65 64 20 74 6f 20 |be specified to |
00000920 62 65 20 65 78 65 63 75 74 65 64 20 22 0d 00 55 |be executed "..U|
00000930 4f 20 20 20 20 20 20 20 20 45 51 55 53 20 20 20 |O EQUS |
00000940 20 22 69 6e 73 74 65 61 64 20 6f 66 20 74 68 65 | "instead of the|
00000950 20 73 74 61 6e 64 61 72 64 20 64 65 73 6b 74 6f | standard deskto|
00000960 70 20 77 65 6c 63 6f 6d 65 2e 20 49 66 20 75 73 |p welcome. If us|
00000970 65 64 20 77 69 74 68 20 6e 6f 20 22 0d 00 56 40 |ed with no "..V@|
00000980 20 20 20 20 20 20 20 20 45 51 55 53 20 20 20 20 | EQUS |
00000990 22 70 61 72 61 6d 65 74 65 72 20 69 74 20 72 65 |"parameter it re|
000009a0 73 74 6f 72 65 73 20 74 68 65 20 73 74 61 6e 64 |stores the stand|
000009b0 61 72 64 20 62 61 6e 6e 65 72 2e 22 0d 00 57 16 |ard banner."..W.|
000009c0 20 20 20 20 20 20 20 20 45 51 55 42 20 20 20 20 | EQUB |
000009d0 31 33 0d 00 58 31 20 20 20 20 20 20 20 20 45 51 |13..X1 EQ|
000009e0 55 53 20 20 20 20 22 53 79 6e 74 61 78 3a 20 2a |US "Syntax: *|
000009f0 53 74 61 72 74 20 5b 3c 63 6f 6d 6d 61 6e 64 3e |Start [<command>|
00000a00 5d 22 20 0d 00 59 15 20 20 20 20 20 20 20 20 45 |]" ..Y. E|
00000a10 51 55 42 20 20 20 20 30 0d 00 5a 11 20 20 20 20 |QUB 0..Z. |
00000a20 20 20 20 20 41 4c 49 47 4e 0d 00 5b 04 0d 00 5c | ALIGN..[...\|
00000a30 0e 2e 73 74 61 72 74 63 6f 64 65 0d 00 5d 20 20 |..startcode..] |
00000a40 20 20 20 20 20 20 20 53 54 4d 46 44 20 20 20 28 | STMFD (|
00000a50 73 70 29 21 2c 7b 6c 69 6e 6b 7d 0d 00 5e 1d 20 |sp)!,{link}..^. |
00000a60 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 | LDR R|
00000a70 31 32 2c 5b 52 31 32 5d 0d 00 5f 29 20 20 20 20 |12,[R12].._) |
00000a80 20 20 20 20 4c 44 52 20 20 20 20 20 52 37 2c 5b | LDR R7,[|
00000a90 52 31 32 2c 23 6d 6f 64 75 6c 65 66 6c 61 67 73 |R12,#moduleflags|
00000aa0 5d 0d 00 60 19 20 20 20 20 20 20 20 20 4d 4f 56 |]..`. MOV|
00000ab0 20 20 20 20 20 52 38 2c 52 30 0d 00 61 04 0d 00 | R8,R0..a...|
00000ac0 62 23 20 20 20 20 20 20 20 20 54 53 54 20 20 20 |b# TST |
00000ad0 20 20 52 37 2c 23 67 72 61 62 77 65 6c 63 6f 6d | R7,#grabwelcom|
00000ae0 65 0d 00 63 22 20 20 20 20 20 20 20 20 42 45 51 |e..c" BEQ|
00000af0 20 20 20 20 20 64 6f 6e 74 64 65 61 6c 6c 6f 63 | dontdealloc|
00000b00 61 74 65 0d 00 64 19 20 20 20 20 20 20 20 20 4d |ate..d. M|
00000b10 4f 56 20 20 20 20 20 52 30 2c 23 37 0d 00 65 28 |OV R0,#7..e(|
00000b20 20 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 20 | LDR |
00000b30 52 32 2c 5b 52 31 32 2c 23 77 65 6c 63 6f 6d 65 |R2,[R12,#welcome|
00000b40 70 74 72 5d 0d 00 66 20 20 20 20 20 20 20 20 20 |ptr]..f |
00000b50 53 57 49 20 20 20 20 20 22 58 4f 53 5f 4d 6f 64 |SWI "XOS_Mod|
00000b60 75 6c 65 22 0d 00 67 04 0d 00 68 13 2e 64 6f 6e |ule"..g...h..don|
00000b70 74 64 65 61 6c 6c 6f 63 61 74 65 0d 00 69 19 20 |tdeallocate..i. |
00000b80 20 20 20 20 20 20 20 54 45 51 20 20 20 20 20 52 | TEQ R|
00000b90 31 2c 23 30 0d 00 6a 26 20 20 20 20 20 20 20 20 |1,#0..j& |
00000ba0 42 49 43 45 51 20 20 20 52 37 2c 52 37 2c 23 67 |BICEQ R7,R7,#g|
00000bb0 72 61 62 77 65 6c 63 6f 6d 65 0d 00 6b 1c 20 20 |rabwelcome..k. |
00000bc0 20 20 20 20 20 20 42 45 51 20 20 20 20 20 65 6e | BEQ en|
00000bd0 64 73 74 61 72 74 0d 00 6c 04 0d 00 6d 19 20 20 |dstart..l...m. |
00000be0 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 52 30 | MOV R0|
00000bf0 2c 23 36 0d 00 6e 20 20 20 20 20 20 20 20 20 42 |,#6..n B|
00000c00 4c 20 20 20 20 20 20 73 74 72 69 6e 67 6c 65 6e |L stringlen|
00000c10 67 74 68 0d 00 6f 20 20 20 20 20 20 20 20 20 53 |gth..o S|
00000c20 57 49 20 20 20 20 20 22 58 4f 53 5f 4d 6f 64 75 |WI "XOS_Modu|
00000c30 6c 65 22 0d 00 70 1c 20 20 20 20 20 20 20 20 42 |le"..p. B|
00000c40 56 53 20 20 20 20 20 65 6e 64 73 74 61 72 74 0d |VS endstart.|
00000c50 00 71 28 20 20 20 20 20 20 20 20 53 54 52 20 20 |.q( STR |
00000c60 20 20 20 52 32 2c 5b 52 31 32 2c 23 77 65 6c 63 | R2,[R12,#welc|
00000c70 6f 6d 65 70 74 72 5d 0d 00 72 04 0d 00 73 1e 20 |omeptr]..r...s. |
00000c80 20 20 20 20 20 20 20 42 4c 20 20 20 20 20 20 73 | BL s|
00000c90 74 72 69 6e 67 63 6f 70 79 0d 00 74 25 20 20 20 |tringcopy..t% |
00000ca0 20 20 20 20 20 84 52 20 20 20 20 20 52 37 2c 52 | .R R7,R|
00000cb0 37 2c 23 67 72 61 62 77 65 6c 63 6f 6d 65 0d 00 |7,#grabwelcome..|
00000cc0 75 0d 2e 65 6e 64 73 74 61 72 74 0d 00 76 29 20 |u..endstart..v) |
00000cd0 20 20 20 20 20 20 20 53 54 52 20 20 20 20 20 52 | STR R|
00000ce0 37 2c 5b 52 31 32 2c 23 6d 6f 64 75 6c 65 66 6c |7,[R12,#modulefl|
00000cf0 61 67 73 5d 0d 00 77 1e 20 20 20 20 20 20 20 20 |ags]..w. |
00000d00 4c 44 4d 46 44 20 20 20 28 73 70 29 21 2c 7b 70 |LDMFD (sp)!,{p|
00000d10 63 7d 0d 00 78 04 0d 00 79 0d 2e 73 74 6f 70 68 |c}..x...y..stoph|
00000d20 65 6c 70 0d 00 7a 52 20 20 20 20 20 20 20 20 45 |elp..zR E|
00000d30 51 55 53 20 20 20 20 22 2a 53 74 6f 70 20 61 6c |QUS "*Stop al|
00000d40 6c 6f 77 73 20 61 20 2a 63 6f 6d 6d 61 6e 64 20 |lows a *command |
00000d50 74 6f 20 62 65 20 73 70 65 63 69 66 69 65 64 20 |to be specified |
00000d60 74 6f 20 62 65 20 65 78 65 63 75 74 65 64 20 77 |to be executed w|
00000d70 68 65 6e 20 22 0d 00 7b 4c 20 20 20 20 20 20 20 |hen "..{L |
00000d80 20 45 51 55 53 20 20 20 20 22 61 20 73 68 75 74 | EQUS "a shut|
00000d90 64 6f 77 6e 20 69 73 20 70 65 72 66 6f 72 6d 65 |down is performe|
00000da0 64 2e 20 49 66 20 75 73 65 64 20 77 69 74 68 20 |d. If used with |
00000db0 6e 6f 20 70 61 72 61 6d 65 74 65 72 20 69 74 20 |no parameter it |
00000dc0 22 0d 00 7c 3e 20 20 20 20 20 20 20 20 45 51 55 |"..|> EQU|
00000dd0 53 20 20 20 20 22 64 69 73 61 62 6c 65 73 20 61 |S "disables a|
00000de0 6e 79 20 63 6f 6d 6d 61 6e 64 20 70 72 65 76 69 |ny command previ|
00000df0 6f 75 73 6c 79 20 61 70 70 6c 69 65 64 2e 22 0d |ously applied.".|
00000e00 00 7d 16 20 20 20 20 20 20 20 20 45 51 55 42 20 |.}. EQUB |
00000e10 20 20 20 31 33 0d 00 7e 30 20 20 20 20 20 20 20 | 13..~0 |
00000e20 20 45 51 55 53 20 20 20 20 22 53 79 6e 74 61 78 | EQUS "Syntax|
00000e30 3a 20 2a 53 74 6f 70 20 5b 3c 63 6f 6d 6d 61 6e |: *Stop [<comman|
00000e40 64 3e 5d 22 20 0d 00 7f 15 20 20 20 20 20 20 20 |d>]" .... |
00000e50 20 45 51 55 42 20 20 20 20 30 0d 00 80 11 20 20 | EQUB 0.... |
00000e60 20 20 20 20 20 20 41 4c 49 47 4e 0d 00 81 04 0d | ALIGN.....|
00000e70 00 82 0d 2e 73 74 6f 70 63 6f 64 65 0d 00 83 20 |....stopcode... |
00000e80 20 20 20 20 20 20 20 20 53 54 4d 46 44 20 20 20 | STMFD |
00000e90 28 73 70 29 21 2c 7b 6c 69 6e 6b 7d 0d 00 84 1d |(sp)!,{link}....|
00000ea0 20 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 20 | LDR |
00000eb0 52 31 32 2c 5b 52 31 32 5d 0d 00 85 29 20 20 20 |R12,[R12]...) |
00000ec0 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 37 2c | LDR R7,|
00000ed0 5b 52 31 32 2c 23 6d 6f 64 75 6c 65 66 6c 61 67 |[R12,#moduleflag|
00000ee0 73 5d 0d 00 86 19 20 20 20 20 20 20 20 20 4d 4f |s].... MO|
00000ef0 56 20 20 20 20 20 52 38 2c 52 30 0d 00 87 04 0d |V R8,R0.....|
00000f00 00 88 24 20 20 20 20 20 20 20 20 54 53 54 20 20 |..$ TST |
00000f10 20 20 20 52 37 2c 23 67 72 61 62 73 68 75 74 64 | R7,#grabshutd|
00000f20 6f 77 6e 0d 00 89 23 20 20 20 20 20 20 20 20 42 |own...# B|
00000f30 45 51 20 20 20 20 20 64 6f 6e 74 64 65 61 6c 6c |EQ dontdeall|
00000f40 6f 63 61 74 65 32 0d 00 8a 19 20 20 20 20 20 20 |ocate2.... |
00000f50 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 37 0d | MOV R0,#7.|
00000f60 00 8b 29 20 20 20 20 20 20 20 20 4c 44 52 20 20 |..) LDR |
00000f70 20 20 20 52 32 2c 5b 52 31 32 2c 23 73 68 75 74 | R2,[R12,#shut|
00000f80 64 6f 77 6e 70 74 72 5d 0d 00 8c 20 20 20 20 20 |downptr]... |
00000f90 20 20 20 20 53 57 49 20 20 20 20 20 22 58 4f 53 | SWI "XOS|
00000fa0 5f 4d 6f 64 75 6c 65 22 0d 00 8d 04 0d 00 8e 14 |_Module"........|
00000fb0 2e 64 6f 6e 74 64 65 61 6c 6c 6f 63 61 74 65 32 |.dontdeallocate2|
00000fc0 0d 00 8f 19 20 20 20 20 20 20 20 20 54 45 51 20 |.... TEQ |
00000fd0 20 20 20 20 52 31 2c 23 30 0d 00 90 27 20 20 20 | R1,#0...' |
00000fe0 20 20 20 20 20 42 49 43 45 51 20 20 20 52 37 2c | BICEQ R7,|
00000ff0 52 37 2c 23 67 72 61 62 73 68 75 74 64 6f 77 6e |R7,#grabshutdown|
00001000 0d 00 91 1c 20 20 20 20 20 20 20 20 42 45 51 20 |.... BEQ |
00001010 20 20 20 20 65 6e 64 73 74 61 72 74 0d 00 92 04 | endstart....|
00001020 0d 00 93 19 20 20 20 20 20 20 20 20 4d 4f 56 20 |.... MOV |
00001030 20 20 20 20 52 30 2c 23 36 0d 00 94 20 20 20 20 | R0,#6... |
00001040 20 20 20 20 20 42 4c 20 20 20 20 20 20 73 74 72 | BL str|
00001050 69 6e 67 6c 65 6e 67 74 68 0d 00 95 20 20 20 20 |inglength... |
00001060 20 20 20 20 20 53 57 49 20 20 20 20 20 22 58 4f | SWI "XO|
00001070 53 5f 4d 6f 64 75 6c 65 22 0d 00 96 1c 20 20 20 |S_Module".... |
00001080 20 20 20 20 20 42 56 53 20 20 20 20 20 65 6e 64 | BVS end|
00001090 73 74 61 72 74 0d 00 97 29 20 20 20 20 20 20 20 |start...) |
000010a0 20 53 54 52 20 20 20 20 20 52 32 2c 5b 52 31 32 | STR R2,[R12|
000010b0 2c 23 73 68 75 74 64 6f 77 6e 70 74 72 5d 0d 00 |,#shutdownptr]..|
000010c0 98 04 0d 00 99 1e 20 20 20 20 20 20 20 20 42 4c |...... BL|
000010d0 20 20 20 20 20 20 73 74 72 69 6e 67 63 6f 70 79 | stringcopy|
000010e0 0d 00 9a 26 20 20 20 20 20 20 20 20 84 52 20 20 |...& .R |
000010f0 20 20 20 52 37 2c 52 37 2c 23 67 72 61 62 73 68 | R7,R7,#grabsh|
00001100 75 74 64 6f 77 6e 0d 00 9b 1c 20 20 20 20 20 20 |utdown.... |
00001110 20 20 42 20 20 20 20 20 20 20 65 6e 64 73 74 61 | B endsta|
00001120 72 74 0d 00 9c 04 0d 00 9d 0f 2e 73 74 72 69 6e |rt.........strin|
00001130 67 63 6f 70 79 0d 00 9e 20 20 20 20 20 20 20 20 |gcopy... |
00001140 20 53 54 4d 46 44 20 20 20 28 73 70 29 21 2c 7b | STMFD (sp)!,{|
00001150 6c 69 6e 6b 7d 0d 00 9f 13 2e 73 74 72 69 6e 67 |link}.....string|
00001160 63 6f 70 79 6c 6f 6f 70 0d 00 a0 1e 20 20 20 20 |copyloop.... |
00001170 20 20 20 20 4c 44 52 42 20 20 20 20 52 34 2c 5b | LDRB R4,[|
00001180 52 38 5d 2c 23 31 0d 00 a1 1a 20 20 20 20 20 20 |R8],#1.... |
00001190 20 20 43 4d 50 20 20 20 20 20 52 34 2c 23 33 32 | CMP R4,#32|
000011a0 0d 00 a2 19 20 20 20 20 20 20 20 20 4d 4f 56 4c |.... MOVL|
000011b0 54 20 20 20 52 34 2c 23 30 0d 00 a3 1e 20 20 20 |T R4,#0.... |
000011c0 20 20 20 20 20 53 54 52 42 20 20 20 20 52 34 2c | STRB R4,|
000011d0 5b 52 32 5d 2c 23 31 0d 00 a4 22 20 20 20 20 20 |[R2],#1..." |
000011e0 20 20 20 42 47 45 20 20 20 20 20 73 74 72 69 6e | BGE strin|
000011f0 67 63 6f 70 79 6c 6f 6f 70 0d 00 a5 1e 20 20 20 |gcopyloop.... |
00001200 20 20 20 20 20 4c 44 4d 46 44 20 20 20 28 73 70 | LDMFD (sp|
00001210 29 21 2c 7b 70 63 7d 0d 00 a6 04 0d 00 a7 11 2e |)!,{pc}.........|
00001220 73 74 72 69 6e 67 6c 65 6e 67 74 68 0d 00 a8 20 |stringlength... |
00001230 20 20 20 20 20 20 20 20 53 54 4d 46 44 20 20 20 | STMFD |
00001240 28 73 70 29 21 2c 7b 6c 69 6e 6b 7d 0d 00 a9 19 |(sp)!,{link}....|
00001250 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 | MOV |
00001260 52 33 2c 23 30 0d 00 aa 0f 2e 73 74 72 69 6e 67 |R3,#0.....string|
00001270 6c 6f 6f 70 0d 00 ab 1e 20 20 20 20 20 20 20 20 |loop.... |
00001280 4c 44 52 42 20 20 20 20 52 34 2c 5b 52 38 2c 52 |LDRB R4,[R8,R|
00001290 33 5d 0d 00 ac 1c 20 20 20 20 20 20 20 20 41 44 |3].... AD|
000012a0 44 20 20 20 20 20 52 33 2c 52 33 2c 23 31 0d 00 |D R3,R3,#1..|
000012b0 ad 1a 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 |.. CMP |
000012c0 20 20 52 34 2c 23 33 32 0d 00 ae 1e 20 20 20 20 | R4,#32.... |
000012d0 20 20 20 20 42 47 45 20 20 20 20 20 73 74 72 69 | BGE stri|
000012e0 6e 67 6c 6f 6f 70 0d 00 af 1e 20 20 20 20 20 20 |ngloop.... |
000012f0 20 20 4c 44 4d 46 44 20 20 20 28 73 70 29 21 2c | LDMFD (sp)!,|
00001300 7b 70 63 7d 0d 00 b0 04 0d 00 b1 0d 2e 69 6e 69 |{pc}.........ini|
00001310 74 63 6f 64 65 0d 00 b2 27 20 20 20 20 20 20 20 |tcode...' |
00001320 20 53 54 4d 46 44 20 20 20 28 73 70 29 21 2c 7b | STMFD (sp)!,{|
00001330 52 37 2d 52 31 31 2c 6c 69 6e 6b 7d 0d 00 b3 19 |R7-R11,link}....|
00001340 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 | MOV |
00001350 52 30 2c 23 36 0d 00 b4 1a 20 20 20 20 20 20 20 |R0,#6.... |
00001360 20 4d 4f 56 20 20 20 20 20 52 33 2c 23 31 32 0d | MOV R3,#12.|
00001370 00 b5 20 20 20 20 20 20 20 20 20 53 57 49 20 20 |.. SWI |
00001380 20 20 20 22 58 4f 53 5f 4d 6f 64 75 6c 65 22 0d | "XOS_Module".|
00001390 00 b6 1c 20 20 20 20 20 20 20 20 42 56 53 20 20 |... BVS |
000013a0 20 20 20 69 6e 69 74 65 78 69 74 0d 00 b7 1c 20 | initexit.... |
000013b0 20 20 20 20 20 20 20 53 54 52 20 20 20 20 20 52 | STR R|
000013c0 32 2c 5b 52 31 32 5d 0d 00 b8 19 20 20 20 20 20 |2,[R12].... |
000013d0 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 30 | MOV R0,#0|
000013e0 0d 00 b9 28 20 20 20 20 20 20 20 20 53 54 52 20 |...( STR |
000013f0 20 20 20 20 52 30 2c 5b 52 32 2c 23 6d 6f 64 75 | R0,[R2,#modu|
00001400 6c 65 66 6c 61 67 73 5d 0d 00 ba 0d 2e 69 6e 69 |leflags].....ini|
00001410 74 65 78 69 74 0d 00 bb 25 20 20 20 20 20 20 20 |texit...% |
00001420 20 4c 44 4d 46 44 20 20 20 28 73 70 29 21 2c 7b | LDMFD (sp)!,{|
00001430 52 37 2d 52 31 31 2c 70 63 7d 0d 00 bc 04 0d 00 |R7-R11,pc}......|
00001440 bd 0e 2e 66 69 6e 61 6c 63 6f 64 65 0d 00 be 27 |...finalcode...'|
00001450 20 20 20 20 20 20 20 20 53 54 4d 46 44 20 20 20 | STMFD |
00001460 28 73 70 29 21 2c 7b 52 37 2d 52 31 31 2c 6c 69 |(sp)!,{R7-R11,li|
00001470 6e 6b 7d 0d 00 bf 04 0d 00 c0 19 20 20 20 20 20 |nk}........ |
00001480 20 20 20 4d 4f 56 20 20 20 20 20 52 30 2c 23 37 | MOV R0,#7|
00001490 0d 00 c1 04 0d 00 c2 1d 20 20 20 20 20 20 20 20 |........ |
000014a0 4c 44 52 20 20 20 20 20 52 31 32 2c 5b 52 31 32 |LDR R12,[R12|
000014b0 5d 0d 00 c3 29 20 20 20 20 20 20 20 20 4c 44 52 |]...) LDR|
000014c0 20 20 20 20 20 52 37 2c 5b 52 31 32 2c 23 6d 6f | R7,[R12,#mo|
000014d0 64 75 6c 65 66 6c 61 67 73 5d 0d 00 c4 23 20 20 |duleflags]...# |
000014e0 20 20 20 20 20 20 54 53 54 20 20 20 20 20 52 37 | TST R7|
000014f0 2c 23 67 72 61 62 77 65 6c 63 6f 6d 65 0d 00 c5 |,#grabwelcome...|
00001500 28 20 20 20 20 20 20 20 20 4c 44 52 4e 45 20 20 |( LDRNE |
00001510 20 52 32 2c 5b 52 31 32 2c 23 77 65 6c 63 6f 6d | R2,[R12,#welcom|
00001520 65 70 74 72 5d 0d 00 c6 20 20 20 20 20 20 20 20 |eptr]... |
00001530 20 53 57 49 4e 45 20 20 20 22 58 4f 53 5f 4d 6f | SWINE "XOS_Mo|
00001540 64 75 6c 65 22 0d 00 c7 24 20 20 20 20 20 20 20 |dule"...$ |
00001550 20 54 53 54 20 20 20 20 20 52 37 2c 23 67 72 61 | TST R7,#gra|
00001560 62 73 68 75 74 64 6f 77 6e 0d 00 c8 29 20 20 20 |bshutdown...) |
00001570 20 20 20 20 20 4c 44 52 4e 45 20 20 20 52 32 2c | LDRNE R2,|
00001580 5b 52 31 32 2c 23 73 68 75 74 64 6f 77 6e 70 74 |[R12,#shutdownpt|
00001590 72 5d 0d 00 c9 20 20 20 20 20 20 20 20 20 53 57 |r]... SW|
000015a0 49 4e 45 20 20 20 22 58 4f 53 5f 4d 6f 64 75 6c |INE "XOS_Modul|
000015b0 65 22 0d 00 ca 04 0d 00 cb 1a 20 20 20 20 20 20 |e"........ |
000015c0 20 20 4d 4f 56 20 20 20 20 20 52 32 2c 52 31 32 | MOV R2,R12|
000015d0 0d 00 cc 20 20 20 20 20 20 20 20 20 53 57 49 20 |... SWI |
000015e0 20 20 20 20 22 58 4f 53 5f 4d 6f 64 75 6c 65 22 | "XOS_Module"|
000015f0 0d 00 cd 25 20 20 20 20 20 20 20 20 4c 44 4d 46 |...% LDMF|
00001600 44 20 20 20 28 73 70 29 21 2c 7b 52 37 2d 52 31 |D (sp)!,{R7-R1|
00001610 31 2c 70 63 7d 0d 00 ce 04 0d 00 cf 10 2e 73 65 |1,pc}.........se|
00001620 72 76 69 63 65 63 6f 64 65 0d 00 d0 20 20 20 20 |rvicecode... |
00001630 20 20 20 20 20 53 54 4d 46 44 20 20 20 28 73 70 | STMFD (sp|
00001640 29 21 2c 7b 6c 69 6e 6b 7d 0d 00 d1 1d 20 20 20 |)!,{link}.... |
00001650 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 31 32 | LDR R12|
00001660 2c 5b 52 31 32 5d 0d 00 d2 1b 20 20 20 20 20 20 |,[R12].... |
00001670 20 20 54 45 51 20 20 20 20 20 52 31 2c 23 26 37 | TEQ R1,#&7|
00001680 43 0d 00 d3 1b 20 20 20 20 20 20 20 20 42 45 51 |C.... BEQ|
00001690 20 20 20 20 20 77 65 6c 63 6f 6d 65 0d 00 d4 1b | welcome....|
000016a0 20 20 20 20 20 20 20 20 54 45 51 20 20 20 20 20 | TEQ |
000016b0 52 31 2c 23 26 38 30 0d 00 d5 1c 20 20 20 20 20 |R1,#&80.... |
000016c0 20 20 20 42 45 51 20 20 20 20 20 73 68 75 74 64 | BEQ shutd|
000016d0 6f 77 6e 0d 00 d6 1e 20 20 20 20 20 20 20 20 4c |own.... L|
000016e0 44 4d 46 44 20 20 20 28 73 70 29 21 2c 7b 70 63 |DMFD (sp)!,{pc|
000016f0 7d 0d 00 d7 04 0d 00 d8 0c 2e 77 65 6c 63 6f 6d |}.........welcom|
00001700 65 0d 00 d9 29 20 20 20 20 20 20 20 20 4c 44 52 |e...) LDR|
00001710 20 20 20 20 20 52 30 2c 5b 52 31 32 2c 23 6d 6f | R0,[R12,#mo|
00001720 64 75 6c 65 66 6c 61 67 73 5d 0d 00 da 23 20 20 |duleflags]...# |
00001730 20 20 20 20 20 20 54 53 54 20 20 20 20 20 52 30 | TST R0|
00001740 2c 23 67 72 61 62 77 65 6c 63 6f 6d 65 0d 00 db |,#grabwelcome...|
00001750 1e 20 20 20 20 20 20 20 20 4c 44 4d 45 51 46 44 |. LDMEQFD|
00001760 20 28 73 70 29 21 2c 7b 70 63 7d 0d 00 dc 28 20 | (sp)!,{pc}...( |
00001770 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 20 52 | LDR R|
00001780 30 2c 5b 52 31 32 2c 23 77 65 6c 63 6f 6d 65 70 |0,[R12,#welcomep|
00001790 74 72 5d 0d 00 dd 1d 20 20 20 20 20 20 20 20 53 |tr].... S|
000017a0 57 49 20 20 20 20 20 22 58 4f 53 5f 43 4c 49 22 |WI "XOS_CLI"|
000017b0 0d 00 de 19 20 20 20 20 20 20 20 20 4d 4f 56 20 |.... MOV |
000017c0 20 20 20 20 52 31 2c 23 30 0d 00 df 1e 20 20 20 | R1,#0.... |
000017d0 20 20 20 20 20 4c 44 4d 46 44 20 20 20 28 73 70 | LDMFD (sp|
000017e0 29 21 2c 7b 70 63 7d 0d 00 e0 04 0d 00 e1 0d 2e |)!,{pc}.........|
000017f0 73 68 75 74 64 6f 77 6e 0d 00 e2 29 20 20 20 20 |shutdown...) |
00001800 20 20 20 20 4c 44 52 20 20 20 20 20 52 30 2c 5b | LDR R0,[|
00001810 52 31 32 2c 23 6d 6f 64 75 6c 65 66 6c 61 67 73 |R12,#moduleflags|
00001820 5d 0d 00 e3 24 20 20 20 20 20 20 20 20 54 53 54 |]...$ TST|
00001830 20 20 20 20 20 52 30 2c 23 67 72 61 62 73 68 75 | R0,#grabshu|
00001840 74 64 6f 77 6e 0d 00 e4 1e 20 20 20 20 20 20 20 |tdown.... |
00001850 20 4c 44 4d 45 51 46 44 20 28 73 70 29 21 2c 7b | LDMEQFD (sp)!,{|
00001860 70 63 7d 0d 00 e5 29 20 20 20 20 20 20 20 20 4c |pc}...) L|
00001870 44 52 20 20 20 20 20 52 30 2c 5b 52 31 32 2c 23 |DR R0,[R12,#|
00001880 73 68 75 74 64 6f 77 6e 70 74 72 5d 0d 00 e6 1d |shutdownptr]....|
00001890 20 20 20 20 20 20 20 20 53 57 49 20 20 20 20 20 | SWI |
000018a0 22 58 4f 53 5f 43 4c 49 22 0d 00 e7 1e 20 20 20 |"XOS_CLI".... |
000018b0 20 20 20 20 20 4c 44 4d 46 44 20 20 20 28 73 70 | LDMFD (sp|
000018c0 29 21 2c 7b 70 63 7d 0d 00 e8 04 0d 00 e9 05 5d |)!,{pc}........]|
000018d0 0d 00 ea 0b ed 20 70 61 73 73 25 0d 00 eb 05 e1 |..... pass%.....|
000018e0 0d ff |..|
000018e2 
.