~mdw / ssr / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Initial revision
[ssr] / StraySrc / Libraries / Sapphire / s / keyString
1 ;
2 ; keyString.s
3 ;
4 ; Translating key codes to strings (MDW)
5 ;
6 ; © 1994-1998 Straylight
7 ;
8
9 ;----- Licensing note -------------------------------------------------------
10 ;
11 ; This file is part of Straylight's Sapphire library.
12 ;
13 ; Sapphire is free software; you can redistribute it and/or modify
14 ; it under the terms of the GNU General Public License as published by
15 ; the Free Software Foundation; either version 2, or (at your option)
16 ; any later version.
17 ;
18 ; Sapphire is distributed in the hope that it will be useful,
19 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ; GNU General Public License for more details.
22 ;
23 ; You should have received a copy of the GNU General Public License
24 ; along with Sapphire. If not, write to the Free Software Foundation,
25 ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
26
27 ;----- Standard header ------------------------------------------------------
28
29 GET libs:header
30 GET libs:swis
31
32 ;----- External dependencies ------------------------------------------------
33
34 GET sapphire:msgs
35 GET sapphire:keyMap
36 GET sapphire:string
37
38 ;----- Constants ------------------------------------------------------------
39
40 kstr__shift EQU (1<<8)
41 kstr__ctrl EQU (1<<9)
42 kstr__keypad EQU (1<<10)
43 kstr__func EQU (1<<11)
44
45 ;----- Macros ---------------------------------------------------------------
46
47 MACRO
48 $label KENTRY $char,$shift,$ctrl,$keypad,$func
49 $label DCB $char
50 DCB ($shift<<0)+($ctrl<<1)+($keypad<<2)+($func<<3)
51 MEND
52
53 ;----- KeyString tables -----------------------------------------------------
54
55 AREA |Sapphire$$Code|,CODE,READONLY
56
57 ; --- &000 - &00F ---
58
59 kstr__lower KENTRY ' ', 0,1,0,0
60 KENTRY 'A', 0,1,0,0
61 KENTRY 'B', 0,1,0,0
62 KENTRY 'C', 0,1,0,0
63 KENTRY 'D', 0,1,0,0
64 KENTRY 'E', 0,1,0,0
65 KENTRY 'F', 0,1,0,0
66 KENTRY 'G', 0,1,0,0
67 KENTRY 'H', 0,1,0,0
68 KENTRY 'I', 0,1,0,0
69 KENTRY 'J', 0,1,0,0
70 KENTRY 'K', 0,1,0,0
71 KENTRY 'L', 0,1,0,0
72 KENTRY 'M', 0,1,0,0
73 KENTRY 'N', 0,1,0,0
74 KENTRY 'O', 0,1,0,0
75
76 ; --- &010 - &01F ---
77
78 KENTRY 'P', 0,1,0,0
79 KENTRY 'Q', 0,1,0,0
80 KENTRY 'R', 0,1,0,0
81 KENTRY 'S', 0,1,0,0
82 KENTRY 'T', 0,1,0,0
83 KENTRY 'U', 0,1,0,0
84 KENTRY 'V', 0,1,0,0
85 KENTRY 'W', 0,1,0,0
86 KENTRY 'X', 0,1,0,0
87 KENTRY 'Y', 0,1,0,0
88 KENTRY 'Z', 0,1,0,0
89 KENTRY &01B, 0,0,0,0
90 KENTRY &01C, 0,0,0,0
91 KENTRY &01D, 0,0,0,0
92 KENTRY &01E, 0,0,0,0
93 KENTRY &07F, 0,1,0,0
94
95 ; --- &100 - &10F ---
96
97 kstr__upper KENTRY ' ', 1,1,0,0
98 KENTRY 'A', 1,1,0,0
99 KENTRY 'B', 1,1,0,0
100 KENTRY 'C', 1,1,0,0
101 KENTRY 'D', 1,1,0,0
102 KENTRY 'E', 1,1,0,0
103 KENTRY 'F', 1,1,0,0
104 KENTRY 'G', 1,1,0,0
105 KENTRY 'H', 1,1,0,0
106 KENTRY 'I', 1,1,0,0
107 KENTRY 'J', 1,1,0,0
108 KENTRY 'K', 1,1,0,0
109 KENTRY 'L', 1,1,0,0
110 KENTRY 'M', 1,1,0,0
111 KENTRY 'N', 1,1,0,0
112 KENTRY 'O', 1,1,0,0
113
114 ; --- &110 - &11F ---
115
116 KENTRY 'P', 1,1,0,0
117 KENTRY 'Q', 1,1,0,0
118 KENTRY 'R', 1,1,0,0
119 KENTRY 'S', 1,1,0,0
120 KENTRY 'T', 1,1,0,0
121 KENTRY 'U', 1,1,0,0
122 KENTRY 'V', 1,1,0,0
123 KENTRY 'W', 1,1,0,0
124 KENTRY 'X', 1,1,0,0
125 KENTRY 'Y', 1,1,0,0
126 KENTRY 'Z', 1,1,0,0
127 KENTRY &01B, 1,0,0,0
128 KENTRY &01C, 1,0,0,0
129 KENTRY &01D, 1,0,0,0
130 KENTRY &01E, 1,0,0,0
131 KENTRY &07F, 1,1,0,0
132
133 ; --- &120 - &12F ---
134
135 KENTRY ' ', 1,0,0,0
136 KENTRY '/', 0,1,1,0
137 KENTRY '*', 0,1,1,0
138 KENTRY '#', 0,1,1,0
139 KENTRY '-', 0,1,1,0
140 KENTRY '+', 0,1,1,0
141 KENTRY &01D, 0,1,1,0
142 KENTRY '.', 0,1,1,0
143 KENTRY 0, 0,0,0,0
144 KENTRY 0, 0,0,0,0
145 KENTRY 0, 0,0,0,0
146 KENTRY '[', 0,1,0,0
147 KENTRY '\', 0,1,0,0
148 KENTRY ']', 0,1,0,0
149 KENTRY 0, 0,0,0,0
150 KENTRY '-', 0,1,0,0
151
152 ; --- &130 - &13F ---
153
154 KENTRY '0', 0,1,0,0
155 KENTRY '1', 0,1,0,0
156 KENTRY '2', 0,1,0,0
157 KENTRY '3', 0,1,0,0
158 KENTRY '4', 0,1,0,0
159 KENTRY '5', 0,1,0,0
160 KENTRY '6', 0,1,0,0
161 KENTRY '7', 0,1,0,0
162 KENTRY '8', 0,1,0,0
163 KENTRY '9', 0,1,0,0
164 KENTRY 0, 0,0,0,0
165 KENTRY &01B, 0,1,0,0
166 KENTRY &01C, 0,1,0,0
167 KENTRY &01D, 0,1,0,0
168 KENTRY &01E, 0,1,0,0
169 KENTRY 0, 0,0,0,0
170
171 ; --- &140 - &14F ---
172
173 KENTRY 0, 0,0,0,0
174 KENTRY '/', 1,1,1,0
175 KENTRY '*', 1,1,1,0
176 KENTRY '#', 1,1,1,0
177 KENTRY '-', 1,1,1,0
178 KENTRY '+', 1,1,1,0
179 KENTRY &01D, 1,1,1,0
180 KENTRY '.', 1,1,1,0
181 KENTRY 0, 0,0,0,0
182 KENTRY 0, 0,0,0,0
183 KENTRY 0, 0,0,0,0
184 KENTRY '[', 1,1,0,0
185 KENTRY '\', 1,1,0,0
186 KENTRY ']', 1,1,0,0
187 KENTRY 0, 0,0,0,0
188 KENTRY '-', 1,1,0,0
189
190 ; --- &150 - &15F ---
191
192 KENTRY '0', 1,1,0,0
193 KENTRY '1', 1,1,0,0
194 KENTRY '2', 1,1,0,0
195 KENTRY '3', 1,1,0,0
196 KENTRY '4', 1,1,0,0
197 KENTRY '5', 1,1,0,0
198 KENTRY '6', 1,1,0,0
199 KENTRY '7', 1,1,0,0
200 KENTRY '8', 1,1,0,0
201 KENTRY '9', 1,1,0,0
202 KENTRY 0, 0,0,0,0
203 KENTRY &01B, 1,1,0,0
204 KENTRY &01C, 1,1,0,0
205 KENTRY &01D, 1,1,0,0
206 KENTRY &01E, 1,1,0,0
207 KENTRY 0, 0,0,0,0
208
209 ; --- &160 - &16F ---
210
211 KENTRY 0, 0,0,0,0
212 KENTRY '/', 0,0,1,0
213 KENTRY '*', 0,0,1,0
214 KENTRY '#', 0,0,1,0
215 KENTRY '-', 0,0,1,0
216 KENTRY '+', 0,0,1,0
217 KENTRY &01D, 0,0,1,0
218 KENTRY '.', 0,0,1,0
219 KENTRY 0, 0,0,0,0
220 KENTRY 0, 0,0,0,0
221 KENTRY 0, 0,0,0,0
222 KENTRY 0, 0,0,0,0
223 KENTRY 0, 0,0,0,0
224 KENTRY 0, 0,0,0,0
225 KENTRY 0, 0,0,0,0
226 KENTRY 0, 0,0,0,0
227
228 ; --- &170 - &17F ---
229
230 KENTRY 0, 0,0,0,0
231 KENTRY '/', 1,0,1,0
232 KENTRY '*', 1,0,1,0
233 KENTRY '#', 1,0,1,0
234 KENTRY '-', 1,0,1,0
235 KENTRY '+', 1,0,1,0
236 KENTRY &01D, 1,0,1,0
237 KENTRY '.', 1,0,1,0
238 KENTRY 0, 0,0,0,0
239 KENTRY 0, 0,0,0,0
240 KENTRY 0, 0,0,0,0
241 KENTRY 0, 0,0,0,0
242 KENTRY 0, 0,0,0,0
243 KENTRY 0, 0,0,0,0
244 KENTRY 0, 0,0,0,0
245 KENTRY &07F, 1,0,0,0
246
247 ; --- &180 - &18F ---
248
249 KENTRY 0, 0,0,0,1
250 KENTRY 1, 0,0,0,1
251 KENTRY 2, 0,0,0,1
252 KENTRY 3, 0,0,0,1
253 KENTRY 4, 0,0,0,1
254 KENTRY 5, 0,0,0,1
255 KENTRY 6, 0,0,0,1
256 KENTRY 7, 0,0,0,1
257 KENTRY 8, 0,0,0,1
258 KENTRY 9, 0,0,0,1
259 KENTRY 13, 0,0,0,1
260 KENTRY 14, 0,0,0,1
261 KENTRY 15, 0,0,0,1
262 KENTRY 16, 0,0,0,1
263 KENTRY 17, 0,0,0,1
264 KENTRY 18, 0,0,0,1
265
266 ; --- &190 - &19F ---
267
268 KENTRY 0, 1,0,0,1
269 KENTRY 1, 1,0,0,1
270 KENTRY 2, 1,0,0,1
271 KENTRY 3, 1,0,0,1
272 KENTRY 4, 1,0,0,1
273 KENTRY 5, 1,0,0,1
274 KENTRY 6, 1,0,0,1
275 KENTRY 7, 1,0,0,1
276 KENTRY 8, 1,0,0,1
277 KENTRY 9, 1,0,0,1
278 KENTRY 13, 1,0,0,1
279 KENTRY 14, 1,0,0,1
280 KENTRY 15, 1,0,0,1
281 KENTRY 16, 1,0,0,1
282 KENTRY 17, 1,0,0,1
283 KENTRY 18, 1,0,0,1
284
285 ; --- &1A0 - &1AF ---
286
287 KENTRY 0, 0,1,0,1
288 KENTRY 1, 0,1,0,1
289 KENTRY 2, 0,1,0,1
290 KENTRY 3, 0,1,0,1
291 KENTRY 4, 0,1,0,1
292 KENTRY 5, 0,1,0,1
293 KENTRY 6, 0,1,0,1
294 KENTRY 7, 0,1,0,1
295 KENTRY 8, 0,1,0,1
296 KENTRY 9, 0,1,0,1
297 KENTRY 13, 0,1,0,1
298 KENTRY 14, 0,1,0,1
299 KENTRY 15, 0,1,0,1
300 KENTRY 16, 0,1,0,1
301 KENTRY 17, 0,1,0,1
302 KENTRY 18, 0,1,0,1
303
304 ; --- &1B0 - &1BF ---
305
306 KENTRY 0, 1,1,0,1
307 KENTRY 1, 1,1,0,1
308 KENTRY 2, 1,1,0,1
309 KENTRY 3, 1,1,0,1
310 KENTRY 4, 1,1,0,1
311 KENTRY 5, 1,1,0,1
312 KENTRY 6, 1,1,0,1
313 KENTRY 7, 1,1,0,1
314 KENTRY 8, 1,1,0,1
315 KENTRY 9, 1,1,0,1
316 KENTRY 13, 1,1,0,1
317 KENTRY 14, 1,1,0,1
318 KENTRY 15, 1,1,0,1
319 KENTRY 16, 1,1,0,1
320 KENTRY 17, 1,1,0,1
321 KENTRY 18, 1,1,0,1
322
323 ; --- &1C0 - &1CF ---
324
325 KENTRY '0', 0,0,1,0
326 KENTRY '1', 0,0,1,0
327 KENTRY '2', 0,0,1,0
328 KENTRY '3', 0,0,1,0
329 KENTRY '4', 0,0,1,0
330 KENTRY '5', 0,0,1,0
331 KENTRY '6', 0,0,1,0
332 KENTRY '7', 0,0,1,0
333 KENTRY '8', 0,0,1,0
334 KENTRY '9', 0,0,1,0
335 KENTRY 10, 0,0,0,1
336 KENTRY 11, 0,0,0,1
337 KENTRY 12, 0,0,0,1
338 KENTRY 19, 0,0,0,1
339 KENTRY 20, 0,0,0,1
340 KENTRY 21, 0,0,0,1
341
342 ; --- &1D0 - &1DF ---
343
344 KENTRY '0', 1,0,1,0
345 KENTRY '1', 1,0,1,0
346 KENTRY '2', 1,0,1,0
347 KENTRY '3', 1,0,1,0
348 KENTRY '4', 1,0,1,0
349 KENTRY '5', 1,0,1,0
350 KENTRY '6', 1,0,1,0
351 KENTRY '7', 1,0,1,0
352 KENTRY '8', 1,0,1,0
353 KENTRY '9', 1,0,1,0
354 KENTRY 10, 1,0,0,1
355 KENTRY 11, 1,0,0,1
356 KENTRY 12, 1,0,0,1
357 KENTRY 19, 1,0,0,1
358 KENTRY 20, 1,0,0,1
359 KENTRY 21, 1,0,0,1
360
361 ; --- &1E0 - &1EF ---
362
363 KENTRY '0', 0,1,1,0
364 KENTRY '1', 0,1,1,0
365 KENTRY '2', 0,1,1,0
366 KENTRY '3', 0,1,1,0
367 KENTRY '4', 0,1,1,0
368 KENTRY '5', 0,1,1,0
369 KENTRY '6', 0,1,1,0
370 KENTRY '7', 0,1,1,0
371 KENTRY '8', 0,1,1,0
372 KENTRY '9', 0,1,1,0
373 KENTRY 10, 0,1,0,1
374 KENTRY 11, 0,1,0,1
375 KENTRY 12, 0,1,0,1
376 KENTRY 19, 0,1,0,1
377 KENTRY 20, 0,1,0,1
378 KENTRY 21, 0,1,0,1
379
380 ; --- &1F0 - &1FF ---
381
382 KENTRY '0', 1,1,1,0
383 KENTRY '1', 1,1,1,0
384 KENTRY '2', 1,1,1,0
385 KENTRY '3', 1,1,1,0
386 KENTRY '4', 1,1,1,0
387 KENTRY '5', 1,1,1,0
388 KENTRY '6', 1,1,1,0
389 KENTRY '7', 1,1,1,0
390 KENTRY '8', 1,1,1,0
391 KENTRY '9', 1,1,1,0
392 KENTRY 10, 1,1,0,1
393 KENTRY 11, 1,1,0,1
394 KENTRY 12, 1,1,0,1
395 KENTRY 19, 1,1,0,1
396 KENTRY 20, 1,1,0,1
397 KENTRY 21, 1,1,0,1
398
399 ;----- Main code ------------------------------------------------------------
400
401 ; --- keyString ---
402 ;
403 ; On entry: R0 == key number, from Straylight extended keymap
404 ; R1 == 0 => return full shortcuts (for e.g. writable icons)
405 ; 1 => return abbreviated shortcuts (for e.g. menus)
406 ;
407 ; On exit: CS if key number was recognised, and
408 ; R0 == pointer to short cut string
409 ; else CC and
410 ; R0 corrupted
411 ;
412 ; Use: Translates a key number into a string suitable for
413 ; displaying to a user, and returns a pointer to the
414 ; translated string.
415
416 EXPORT keyString
417 keyString ROUT
418
419 BIC R14,R14,#C_flag
420 STMFD R13!,{R1-R5,R14} ;Save some registers
421
422 ; --- Find the correct entry in the tables ---
423
424 CMP R0,#' ' ;Is it a control key?
425 ADRLT R2,kstr__lower ;Yes -- point to low table
426 ADDLT R2,R2,R0,LSL #1 ;And find the entry
427 BLT %10keyString ;Skip ahead after this
428
429 CMP R0,#&FF ;Is it in the upper half?
430 ADRGT R2,kstr__upper ;Yes -- point to high table
431 BICGT R0,R0,#&100 ;Chop off the top bit
432 ADDGT R2,R2,R0,LSL #1 ;And find the entry again
433 BGT %10keyString ;Skip ahead after this
434
435 CMP R0,#&7F ;Is it a delete?
436 ADREQ R2,kstr__delete ;Yes -- point to delete entry
437 LDMNEFD R13!,{R1-R5,PC}^ ;No -- return to caller
438
439 ; --- Load the entry from the table ---
440
441 10keyString AND R14,R2,#3 ;Get bottom two bits of R2
442 LDR R2,[R2,-R14] ;Load the word properly
443 MOV R14,R14,LSL #3 ;Get the correct shift value
444 MOV R2,R2,LSR R14 ;And shift R2 nicely
445
446 TST R2,#&FF ;Make sure bottom byte non-0
447 TSTEQ R2,#kstr__func ;Or is it a function key?
448 LDMEQFD R13!,{R1-R5,PC}^ ;Return to caller if neither
449
450 ; --- Find the base key name ---
451
452 TST R2,#kstr__func ;Is it really a function key?
453 BEQ %20keyString ;No -- skip this bit
454 AND R4,R2,#&ff ;Get the key byte out
455 CMP R4,#12 ;Is it F12?
456 LDMEQFD R13!,{R1-R5,PC}^ ;Yes -- always ignore F12
457
458 ADR R3,kstr__fkeys ;Point to key names table
459 LDR R0,[R3,R4,LSL #2] ;Get the correct entry out
460 CMP R0,#0 ;Is it a null pointer?
461 BLNE msgs_lookup ;No -- lookup message
462 BNE %30keyString ;And skip ahead nicely
463
464 ADR R0,kstr__fmsg ;Point to `kstrF:F%i2'
465 BL msgs_lookup ;Lookup the message
466 ADD R1,R11,#50 ;Point to scratchpad
467 BL str_subst ;And fill the string in
468 B %30keyString ;Now do the rest of it all
469
470 kstr__delete KENTRY &7F, 0,0,0,0 ;Dummy entry for delete
471
472 kstr__fkeys DCD kstr__print
473 DCD 0,0,0,0,0,0
474 DCD 0,0,0,0,0,0
475 DCD kstr__tab
476 DCD kstr__copy
477 DCD kstr__left
478 DCD kstr__right
479 DCD kstr__down
480 DCD kstr__up
481 DCD kstr__insert
482 DCD kstr__pageDown
483 DCD kstr__pageUp
484
485 kstr__fmsg DCB "kstrF",0
486 kstr__print DCB "kstrPRT",0
487 kstr__tab DCB "kstrTAB",0
488 kstr__copy DCB "kstrCOPY",0
489 kstr__left DCB "kstrLEFT",0
490 kstr__right DCB "kstrRIGHT",0
491 kstr__down DCB "kstrDOWN",0
492 kstr__up DCB "kstrUP",0
493 kstr__insert DCB "kstrINS",0
494 kstr__pageDown DCB "kstrPDN",0
495 kstr__pageUp DCB "kstrPUP",0
496
497 ; --- Handle strange keys in lower map ---
498
499 20keyString AND R4,R2,#&ff ;Get the key byte out
500 CMP R4,#key_Return ;Is it the return code?
501 BNE %21keyString ;No -- skip
502 TST R2,#kstr__keypad ;Is it on the keypad?
503 BNE %22keyString ;Yes -- handle it
504
505 21keyString CMP R4,#key_Delete ;Is it a delete key?
506 BEQ %23keyString ;Yes -- handle that too
507 CMP R4,#' ' ;Is it a space?
508 BEQ %24keyString ;Yes -- handle that too
509 SUB R14,R4,#&1B ;Is it a strange one?
510 CMP R14,#4 ;Is it one of the four?
511 BLO %25keyString ;Yes -- handle that
512
513 ADD R0,R11,#50 ;Point to spare bit of buffer
514 STRB R4,[R0,#0] ;Store character in buffer
515 MOV R3,#0 ;Terminate the string
516 STRB R3,[R0,#1] ;Store that in buffer too
517 B %30keyString ;Skip to final processing
518
519 ; --- Handle various special cases ---
520
521 22keyString BIC R2,R2,#kstr__keypad ;Yes -- remove keypad flag
522 ADR R0,kstr__enter ;Yes -- point to string
523 BL msgs_lookup ;Translate it as usual
524 B %30 ;We've got a base string
525
526 kstr__enter DCB "kstrENTER",0
527
528 23keyString ADR R0,kstr__delmsg ;Point to the string
529 BL msgs_lookup ;Translate it as usual
530 B %30 ;We've got a base string
531
532 kstr__delmsg DCB "kstrDEL",0
533
534 24keyString ADR R0,kstr__space ;Point to the string
535 BL msgs_lookup ;Translate it as usual
536 B %30 ;We've got a base string
537
538 kstr__space DCB "kstrSPC",0
539
540 25keyString ADR R0,kstr__lowtbl ;Point to the table
541 LDR R0,[R0,R14,LSL #2] ;Load the correct entry
542 BL msgs_lookup ;Translate it as usual
543 B %30 ;We've got a base string
544
545 kstr__lowtbl DCD kstr__escape
546 DCD kstr__backspc
547 DCD kstr__return
548 DCD kstr__home
549
550 kstr__escape DCB "kstrESC",0
551 kstr__backspc DCB "kstrBSP",0
552 kstr__return DCB "kstrRET",0
553 kstr__home DCB "kstrHOME",0
554
555 ; --- Finally, handle modifier strings ---
556
557 30keyString MOV R5,R0 ;Keep pointer to base key
558 LDR R4,[R13,#0] ;Get shortcut style wanted
559 MOV R0,R11 ;Point to the scratchpad
560
561 TST R2,#kstr__shift ;Is shift held down?
562 MOVNE R1,#'\8b' ;Yes -- short character
563 ADRNE R3,kstr__shmod ;And long message
564 BLNE %80keyString ;Sort everything out
565
566 TST R2,#kstr__ctrl ;Is shift held down?
567 MOVNE R1,#'^' ;Yes -- short character
568 ADRNE R3,kstr__ctmod ;And long message
569 BLNE %80keyString ;Sort everything out
570
571 TST R2,#kstr__keypad ;Is shift held down?
572 MOVNE R1,#'k' ;Yes -- short character
573 ADRNE R3,kstr__kpmod ;And long message
574 BLNE %80keyString ;Sort everything out
575
576 MOV R1,R5 ;Point to base string
577 BL str_cpy ;Copy the last string in
578 MOV R0,R11 ;Point to string in buffer
579 LDMFD R13!,{R1-R5,R14} ;Load the registers
580 ORRS PC,R14,#C_flag ;We handled it (eventually)
581
582 kstr__shmod DCB "kstrSH",0
583 kstr__ctmod DCB "kstrCTL",0
584 kstr__kpmod DCB "kstrKPD",0
585
586 ; --- Work out what a modifier should look like ---
587
588 80keyString CMP R4,#0 ;Do we want short mod chars?
589 STRNEB R1,[R0],#1 ;Yes -- store char nicely
590 MOVNES PC,R14 ;And return to caller
591 STMFD R13!,{R0,R14} ;Save some registers
592 MOV R0,R3 ;Point to message tag
593 BL msgs_lookup ;Translate the string
594 MOV R1,R0 ;Keep pointer to message
595 LDMFD R13!,{R0} ;Restore a register
596 BL str_cpy ;Attach string to end
597 LDMFD R13!,{PC}^ ;Return to caller
598
599 LTORG
600
601 ;----- That's all, folks ----------------------------------------------------
602
603 END
The Straylight Source Distribution (obsolete software for RISC OS)