~mdw / ssr / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Initial revision
[ssr] / StraySrc / Libraries / Steel / s / wimp_main
1 ;
2 ; wimp_main.s
3 ;
4 ; APCS interface to WIMP SWIs
5 ;
6 ; © 1994-1998 Straylight
7 ;
8
9 ;----- Licensing note -------------------------------------------------------
10 ;
11 ; This file is part of Straylight's Steel library.
12 ;
13 ; Steel 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 ; Steel 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 Steel. If not, write to the Free Software Foundation,
25 ; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
26
27 ;----- Initialising the WIMP ------------------------------------------------
28
29 ; --- wimp_initialise ---
30 ;
31 ; On entry: a1 == pointer to where to put the version number
32
33 EXPORT wimp_initialise
34 wimp_initialise STMFD sp!,{lr} ;Save the link register
35 MOV ip,a1 ;Save this away for a bit
36 MOV a1,#120 ;Make sure it's Arthur :-)
37 MOV a2,#0 ;Don't start a WIMP task
38 SWI XWimp_Initialise ;Start up the WIMP
39 STRVC a1,[ip] ;Store the version number
40 MOVVC a1,#0 ;If no error, return no error
41 LDMFD sp!,{pc}^ ;Return to caller
42
43 ; --- wimp_taskinit ---
44 ;
45 ; On entry: a1 == pointer to name of task
46 ; a2 == pointer to version number (to be updated)
47 ; a3 == pointer to task handle to set
48 ; a4 == optional pointer to messages block
49
50 EXPORT wimp_taskinit
51 wimp_taskinit STMFD sp!,{a2,a3,lr} ;Stash lots of registers
52 MOV a3,a1 ;Point to the task name
53 LDR a1,[a2] ;Get the version number
54 LDR a2,wimp__magic ;Load the strange magic value
55 SWI XWimp_Initialise ;Initialise the WIMP
56 LDMIA sp!,{a3,a4,lr} ;Get the pointers back
57 STRVC a1,[a3] ;Store the version number
58 STRVC a2,[a4] ;Store the task handle too
59 MOVVC a1,#0 ;If no error, clear return
60 MOVS pc,lr ;Return to caller
61
62 wimp__magic DCB "TASK" ;The magic value for initing
63
64 ;----- Closing the WIMP down again ------------------------------------------
65
66 ; --- wimp_closedown ---
67 ;
68 ; On entry: --
69
70 EXPORT wimp_closedown
71 wimp_closedown SWI XWimp_CloseDown ;Close down the WIMP
72 MOVVC a1,#0 ;If no error, return clear
73 MOVS pc,lr ;Return to caller
74
75 ; --- wimp_taskclose ---
76 ;
77 ; On entry: a1 == my task handle to use
78
79 EXPORT wimp_taskclose
80 wimp_taskclose LDR a2,wimp__magic ;Get the magic number again
81 SWI XWimp_CloseDown ;Close down my task only
82 MOVVC a1,#0 ;Clear error if it worked
83 MOVS pc,lr ;Return to caller
84
85 ;----- Everything else :-) --------------------------------------------------
86
87 ; --- wimp_create_wind ---
88 ;
89 ; On entry: a1 == pointer to window definition
90 ; a2 == pointer to window handle to fill in
91
92 EXPORT wimp_create_wind
93 wimp_create_wind
94 MOV a4,a2 ;Keep pointer to handle too
95 MOV a2,a1 ;Point to window definition
96 SWI XWimp_CreateWindow ;Create the new window
97 STRVC a1,[a4] ;Store the handle away
98 MOVVC a1,#0 ;And clear the error code
99 MOVS pc,lr ;Return to caller
100
101 ; --- wimp_create_icon ---
102 ;
103 ; On entry: a1 == pointer to icon creation block
104 ; a2 == pointer to icon handle to fill in
105
106 EXPORT wimp_create_icon
107 wimp_create_icon
108 MOV a4,a2 ;Keep pointer to icon handle
109 MOV a2,a1 ;Point to the icon block
110 SWI XWimp_CreateIcon ;Create the icon now
111 STRVC a1,[a4] ;Store the icon handle away
112 MOVVC a1,#0 ;Clear any error code
113 MOVS pc,lr ;Return to caller
114
115 ; --- wimp_delete_wind ---
116 ;
117 ; On entry: a1 == window handle
118
119 EXPORT wimp_delete_wind
120 wimp_delete_wind
121 STMFD sp!,{a1} ;Store window handle on stack
122 MOV a2,sp ;Point to saved handle
123 SWI XWimp_DeleteWindow ;Delete the window
124 MOVVC a1,#0 ;Return no error if success
125 ADD sp,sp,#4 ;Restore stack pointer
126 MOVS pc,lr ;Return to caller
127
128 ; --- wimp_delete_icon ---
129 ;
130 ; On entry: a1 == window handle
131 ; a2 == icon handle
132
133 EXPORT wimp_delete_icon
134 wimp_delete_icon
135 STMFD sp!,{a1,a2} ;Stack registers for block
136 MOV a2,sp ;Point to the block
137 SWI XWimp_DeleteIcon ;Do the SWI
138 MOVVC a1,#0 ;Clear the error indicator
139 ADD sp,sp,#8 ;Restore stack pointer
140 MOVS pc,lr ;Return to caller
141
142 ; --- wimp_open_wind ---
143 ;
144 ; On entry: a1 == pointer to window block
145
146 EXPORT wimp_open_wind
147 wimp_open_wind MOV a2,a1 ;Point to window block
148 SWI XWimp_OpenWindow ;Do the SWI
149 MOVVC a1,#0
150 MOVS pc,lr
151
152 ; --- wimp_close_wind ---
153 ;
154 ; On entry: a1 == window handle
155
156 EXPORT wimp_close_wind
157 wimp_close_wind STMFD sp!,{a1} ;Store window handle away
158 MOV a2,sp ;Point to the `block'
159 SWI XWimp_CloseWindow ;Close the window
160 MOVVC a1,#0
161 ADD sp,sp,#4 ;Restore the stack
162 MOVS pc,lr
163
164 ; --- wimp_redraw_wind ---
165 ;
166 ; On entry: a1 == pointer to a redraw structure to fill in
167 ; a2 == pointer to a `more' variable to fill in
168
169 EXPORT wimp_redraw_wind
170 wimp_redraw_wind
171 MOV a3,a2 ;Keep this pointer safe
172 MOV a2,a1 ;Point to redraw structure
173 SWI XWimp_RedrawWindow ;Do the redraw window call
174 STRVC a1,[a3] ;Store the `more' variable
175 MOVVC a1,#0
176 MOVS pc,lr ;Return to caller
177
178 ; --- wimp_update_wind ---
179 ;
180 ; On entry: a1 == pointer to a redraw structure to fill in
181 ; a2 == pointer to a `more' variable to fill in
182
183 EXPORT wimp_update_wind
184 wimp_update_wind
185 MOV a3,a2 ;Keep this pointer safe
186 MOV a2,a1 ;Point to redraw structure
187 SWI XWimp_UpdateWindow ;Do the update window call
188 STRVC a1,[a3] ;Store the `more' variable
189 MOVVC a1,#0
190 MOVS pc,lr ;Return to caller
191
192 ; --- wimp_get_rectangle ---
193 ;
194 ; On entry: a1 == pointer to a redraw structure to fill in
195 ; a2 == pointer to a `more' variable to fill in
196
197 EXPORT wimp_get_rectangle
198 wimp_get_rectangle
199 MOV a3,a2 ;Keep this pointer safe
200 MOV a2,a1 ;Point to redraw structure
201 SWI XWimp_GetRectangle ;Get the next rectangle
202 STRVC a1,[a3] ;Store the `more' variable
203 MOVVC a1,#0
204 MOVS pc,lr ;Return to caller
205
206 ; --- wimp_get_wind_state ---
207 ;
208 ; On entry: a1 == window handle
209 ; a2 == pointer to block to fill in
210
211 EXPORT wimp_get_wind_state
212 wimp_get_wind_state
213 STR a1,[a2,#0] ;Fill in the window handle
214 SWI XWimp_GetWindowState
215 MOVVC a1,#0
216 MOVS pc,lr
217
218 ; --- wimp_get_wind_info ---
219 ;
220 ; On entry: a1 == pointer to block to fill in
221
222 EXPORT wimp_get_wind_info
223 wimp_get_wind_info
224 MOV a2,a1
225 SWI XWimp_GetWindowInfo
226 MOVVC a1,#0
227 MOVS pc,lr
228
229 ; --- wimp_set_icon_state ---
230 ;
231 ; On entry: a1 == window handle
232 ; a2 == icon handle
233 ; a3 == EOR mask
234 ; a4 == BIC mask
235
236 EXPORT wimp_set_icon_state
237 wimp_set_icon_state
238 STMFD sp!,{a1-a4}
239 MOV a2,sp
240 SWI XWimp_SetIconState
241 ADD sp,sp,#16
242 MOVVC a1,#0
243 MOVS pc,lr
244
245 ; --- wimp_get_icon_info ---
246 ;
247 ; On entry: a1 == window handle
248 ; a2 == icon handle
249 ; a3 == pointer to structure to fill in
250
251 EXPORT wimp_get_icon_info
252 wimp_get_icon_info
253 SUB sp,sp,#40 ;Make space for icon block
254 STMIA sp,{a1,a2} ;Fill in the handles nicely
255 MOV a2,sp ;Point to the block
256 SWI XWimp_GetIconState ;Get information about icon
257 ADDVS sp,sp,#40 ;If it failed, restore stack
258 MOVVSS pc,lr ;And return to caller
259 ADD sp,sp,#8 ;Point to icon info
260 LDMIA sp!,{a1,a2,a4,ip} ;Get some of the data
261 STMIA a3!,{a1,a2,a4,ip} ;Store in the caller's buffer
262 LDMIA sp!,{a1,a2,a4,ip} ;Get the rest of the icon
263 STMIA a3!,{a1,a2,a4,ip} ;And store that away too
264 MOV a1,#0 ;Nothing went wrong
265 MOVS pc,lr ;Return to caller
266
267 ; --- wimp_get_point_info ---
268 ;
269 ; On entry: a1 == pointer to block to fill in
270
271 EXPORT wimp_get_point_info
272 wimp_get_point_info
273 MOV a2,a1 ;Point to the block
274 SWI XWimp_GetPointerInfo ;Get the mouse information
275 MOVVC a1,#0
276 MOVS pc,lr
277
278 ; --- wimp_drag_box ---
279 ;
280 ; On entry: a1 == pointer to a drag structure
281
282 EXPORT wimp_drag_box
283 wimp_drag_box MOV a2,a1 ;Point to the block
284 SWI XWimp_DragBox ;Perform the drag
285 MOVVC a1,#0
286 MOVS pc,lr
287
288 ; --- wimp_force_redraw ---
289 ;
290 ; On entry: a1 == pointer to a redraw block
291
292 EXPORT wimp_force_redraw
293 wimp_force_redraw
294 STMFD sp!,{v1,lr} ;Store v1 away nicely
295 LDMIA a1,{a1-a4,v1} ;Get registers from the block
296 SWI XWimp_ForceRedraw
297 MOVVC a1,#0
298 LDMFD sp!,{v1,pc}^
299
300 ; --- wimp_set_caret_pos ---
301 ;
302 ; On entry: a1 == pointer to a caret structure to set
303
304 EXPORT wimp_set_caret_pos
305 wimp_set_caret_pos
306 STMFD sp!,{v1,v2,lr} ;Store v1 and v2 away nicely
307 LDMIA a1,{a1-a4,v1,v2}
308 SWI XWimp_SetCaretPosition
309 MOVVC a1,#0
310 LDMFD sp!,{v1,v2,pc}^
311
312 ; --- wimp_get_caret_pos ---
313 ;
314 ; On entry: a1 == pointer to caret structure to fill in
315
316 EXPORT wimp_get_caret_pos
317 wimp_get_caret_pos
318 MOV a2,a1
319 SWI XWimp_GetCaretPosition
320 MOVVC a1,#0
321 MOVS pc,lr
322
323 ; --- wimp_create_menu ---
324 ;
325 ; On entry: a1 == pointer to menu
326 ; a2 == x coordinate to open menu
327 ; a3 == y coordinate to open menu
328
329 EXPORT wimp_create_menu
330 wimp_create_menu
331 MOV a4,a3
332 MOV a3,a2
333 MOV a2,a1
334 SWI XWimp_CreateMenu
335 MOVVC a1,#0
336 MOVS pc,lr
337
338 ; --- wimp_decode_menu ---
339 ;
340 ; On entry: a1 == pointer to menu
341 ; a2 == pointer to menu hit array
342 ; a3 == pointer to buffer for string
343
344 EXPORT wimp_decode_menu
345 wimp_decode_menu
346 MOV a4,a3
347 MOV a3,a2
348 MOV a2,a1
349 SWI XWimp_DecodeMenu
350 MOVVC a1,#0
351 MOVS pc,lr
352
353 ; --- wimp_which_icon ---
354 ;
355 ; On entry: a1 == pointer to strange which block thing
356 ; a2 == pointer to where to store the results
357
358 EXPORT wimp_which_icon
359 wimp_which_icon LDMIA a1,{a1,a3,a4} ;Get arguments from block
360 SWI XWimp_WhichIcon
361 MOVVC a1,#0
362 MOVS pc,lr
363
364 ; --- wimp_set_extent ---
365 ;
366 ; On entry: a1 == pointer to strange block with window handle
367
368 EXPORT wimp_set_extent
369 wimp_set_extent ADD a2,a1,#4 ;Point to extent block
370 LDR a1,[a1] ;Get the window handle
371 SWI XWimp_SetExtent
372 MOVVC a1,#0
373 MOVS pc,lr
374
375 ; --- wimp_set_point_shape ---
376 ;
377 ; On entry: a1 == pointer to a freaky pointer shape structure
378
379 EXPORT wimp_set_point_shape
380 wimp_set_point_shape
381 STMFD sp!,{v1,v2,lr}
382 LDMIA a1,{a1-a4,v1,v2}
383 SWI XWimp_SetPointerShape
384 MOVVC a1,#0
385 LDMFD sp!,{v1,v2,pc}^
386
387 ; --- wimp_open_template ---
388 ;
389 ; On entry: a1 == pointer to name of template file
390
391 EXPORT wimp_open_template
392 wimp_open_template
393 MOV a2,a1
394 SWI XWimp_OpenTemplate
395 MOVVC a1,#0
396 MOVS pc,lr
397
398 ; --- wimp_close_template ---
399 ;
400 ; On entry: --
401
402 EXPORT wimp_close_template
403 wimp_close_template
404 SWI XWimp_CloseTemplate
405 MOVVC a1,#0
406 MOVS pc,lr
407
408 ; --- wimp_load_template ---
409 ;
410 ; On entry: a1 == pointer to a template structure
411
412 EXPORT wimp_load_template
413 wimp_load_template
414 MOV ip,a1 ;Keep the pointer safe
415 STMFD sp!,{v1-v3,lr} ;Save lots of registers
416 LDMIA ip,{a1-a4,v1-v3} ;Get all the arguments
417 CMP v1,#0 ;If no font array specified
418 MOVEQ v1,#-1 ;Pass the *correct* value
419 SWI XWimp_LoadTemplate ;Load the template
420 STMVCIA ip,{a1-a4,v1-v3} ;Store the information back
421 MOVVC a1,#0 ;Clear error indicator
422 LDMFD sp!,{v1-v3,pc}^ ;Return to caller
423
424 ; --- wimp_processkey ---
425 ;
426 ; On entry: a1 == key to process
427
428 EXPORT wimp_processkey
429 wimp_processkey SWI XWimp_ProcessKey
430 MOVVC a1,#0
431 MOVS pc,lr
432
433 ; --- wimp_starttask ---
434 ;
435 ; On entry: a1 == pointer to command to execute
436
437 EXPORT wimp_starttask
438 wimp_starttask SWI XWimp_StartTask
439 MOVVC a1,#0
440 MOVS pc,lr
441
442 ; --- wimp_reporterror ---
443 ;
444 ; On entry: a1 == pointer to error block
445 ; a2 == Wimp_ReportError flags word
446 ; a3 == pointer to application name
447
448 EXPORT wimp_reporterror
449 wimp_reporterror
450 SWI XWimp_ReportError
451 MOVVC a1,#0
452 MOVS pc,lr
453
454 ; --- wimp_getwindowoutline ---
455 ;
456 ; On entry: a1 == pointer to a block to fill in
457
458 EXPORT wimp_getwindowoutline
459 wimp_getwindowoutline
460 MOV a2,a1
461 SWI XWimp_GetWindowOutline
462 MOVVC a1,#0
463 MOVS pc,lr
464
465 ; --- wimp_ploticon ---
466 ;
467 ; On entry: a1 == pointer to icon to plot
468
469 EXPORT wimp_ploticon
470 wimp_ploticon MOV a2,a1
471 SWI XWimp_PlotIcon
472 MOVVC a1,#0
473 MOVS pc,lr
474
475 ; --- wimp_setmode ---
476 ;
477 ; On entry: a1 == new mode to set
478
479 EXPORT wimp_setmode
480 wimp_setmode SWI XWimp_SetMode
481 MOVVC a1,#0
482 MOVS pc,lr
483
484 ; --- wimp_setpalette ---
485 ;
486 ; On entry: a1 == pointer to palette to set
487
488 EXPORT wimp_setpalette
489 wimp_setpalette MOV a2,a1
490 SWI XWimp_SetPalette
491 MOVVC a1,#0
492 MOVS pc,lr
493
494 ; --- wimp_readpalette ---
495 ;
496 ; On entry: a1 == pointer to palette block to fill in
497
498 EXPORT wimp_readpalette
499 wimp_readpalette
500 MOV a2,a1
501 SWI XWimp_ReadPalette
502 MOVVSS pc,lr
503
504 ; --- It seems we must mangle the colours now ---
505 ;
506 ; Since Wimp_ReadPalette leaves the bottom nibbles clear for
507 ; no sensible reason, and RISC_OSLib's wimp.c bodges the
508 ; palette to try and make it sensible, we must do the same
509 ; here, being careful to preserve the GCOL numbers at the
510 ; bottom of the palette words.
511
512 MOV a1,#20 ;Do this once for each entry
513 LDR a4,=&F0F0F000 ;Mask for copying nibbles
514 00 LDR a3,[a2] ;Get the next palette word
515 AND ip,a3,a4 ;Get the top nibbles
516 BIC a3,a3,a4,LSR #4 ;Clear the bottom nibbles
517 ORR a3,a3,ip,LSR #4 ;Shift down to copy nibbles
518 STR a3,[a2],#4 ;Store and bump a2 along
519 SUBS a1,a1,#1 ;Done another one
520 BNE %b00 ;If there's any more, loop
521
522 MOVVC a1,#0
523 MOVS pc,lr
524
525 ; --- wimp_setcolour ---
526 ;
527 ; On entry: a1 == colour to set
528
529 EXPORT wimp_setcolour
530 wimp_setcolour SWI XWimp_SetColour
531 MOVVC a1,#0
532 MOVS pc,lr
533
534 ; --- wimp_sendmessage ---
535 ;
536 ; On entry: a1 == the event type of the message
537 ; a2 == pointer to the message to send
538 ; a3 == the task handle of the recipient
539
540 ; --- wimp_sendwmessage ---
541 ;
542 ; On entry: a1 == the event type again
543 ; a2 == pointer to the message to send
544 ; a3 == the window handle of the recipient
545 ; a4 == the icon handle of the recipient
546
547 ; --- Note ---
548 ;
549 ; Since the registers are set up perfectly in both cases, we can use the
550 ; same routine!
551
552 EXPORT wimp_sendmessage
553 EXPORT wimp_sendwmessage
554 wimp_sendmessage
555 wimp_sendwmessage
556 SWI XWimp_SendMessage
557 MOVVC a1,#0
558 MOVS pc,lr
559
560 ; --- wimp_create_submenu ---
561 ;
562 ; On entry: a1 == pointer to menu to open
563 ; a2 == x coordinate to open it at
564 ; a3 == y coordinate to open it at
565
566 EXPORT wimp_create_submenu
567 wimp_create_submenu
568 MOV a4,a3
569 MOV a3,a2
570 MOV a2,a1
571 SWI XWimp_CreateSubMenu
572 MOVVC a1,#0
573 MOVS pc,lr
574
575 ; --- wimp_spriteop ---
576 ;
577 ; On entry: a1 == the reason code to pass
578 ; a2 == the name of the sprite to do it on
579
580 EXPORT wimp_spriteop
581 wimp_spriteop STMFD sp!,{v1-v6,lr}
582 MOV a3,a2
583 SWI XWimp_SpriteOp
584 MOVVC a1,#0
585 LDMFD sp!,{v1-v6,pc}^
586
587 ; --- wimp_spriteop_full ---
588 ;
589 ; On entry: a1 == pointer to registers to use
590
591 EXPORT wimp_spriteop_full
592 wimp_spriteop_full
593 STMFD sp!,{v1-v6,lr}
594 MOV ip,a1
595 LDMIA ip,{a1-a4,v1-v6}
596 SWI XWimp_SpriteOp
597 STMVCIA ip,{a1-a4,v1-v6}
598 MOVVC a1,#0
599 LDMFD sp!,{v1-v6,pc}^
600
601 ; --- wimp_baseofsprites ---
602 ;
603 ; On entry: --
604 ; On exit: a1 == pointer to WIMP sprite pool in RMA
605
606 EXPORT wimp_baseofsprites
607 wimp_baseofsprites
608 SWI XWimp_SpriteOp
609 MOV a1,a2
610 MOVS pc,lr
611
612 ; --- wimp_blockcopy ---
613 ;
614 ; On entry: a1 == window handle
615 ; a2 == pointer to source rectangle
616 ; a3 == destination x coordinate
617 ; a4 == destination y coordinate
618
619 EXPORT wimp_blockcopy
620 wimp_blockcopy STMFD sp!,{v1-v3,lr}
621 MOV v3,a4
622 MOV v2,a3
623 LDMIA a2,{a2,a3,a4,v1}
624 SWI XWimp_BlockCopy
625 MOVVC a1,#0
626 LDMFD sp!,{v1-v3,pc}^
627
628 ; --- wimp_slotsize ---
629 ;
630 ; On entry: a1 == pointer to current slot size
631 ; a2 == pointer to next slot size
632 ; a3 == pointer to free pool size
633
634 EXPORT wimp_slotsize
635 wimp_slotsize STMFD sp!,{v1-v3,lr} ;Stack registers
636 MOV a4,a1 ;Keep pointer to current
637 MOV v2,a2 ;Keep pointer to next
638 MOV v3,a3 ;Keep pointer to free
639 LDR a1,[a1] ;Get the actual current slot
640 LDR a2,[a2] ;Get the actual next slot
641 SWI XWimp_SlotSize ;Set or read the slot size
642 STRVC a1,[a4] ;Store current slot size
643 STRVC a2,[v2] ;Store next slot size
644 STRVC a3,[v3] ;Store free area size
645 MOVVC a1,#0 ;Clear error marker
646 LDMFD sp!,{v1-v3,pc}^ ;Return to caller
647
648 ; --- wimp_readpixtrans ---
649 ;
650 ; On entry: a1 == pointer to sprite area
651 ; a2 == pointer to sprite id (yuk)
652 ; a3 == pointer to scale factors to fill in
653 ; a4 == pointer to translation table to fill in
654
655 EXPORT wimp_readpixtrans
656 wimp_readpixtrans
657 STMFD sp!,{v3,v4,lr}
658
659 ; --- Put the registers in the right places ---
660
661 MOV v4,a4
662 MOV v3,a3
663 MOV a3,a2
664 MOV a2,a1
665
666 ; --- Set up the reason code properly ---
667
668 CMP a2,#0 ;Is it the WIMP or system
669 CMPNE a2,#1 ;sprite area?
670 MOVEQ a1,#&000 ;Then say it's system area
671 BEQ %f00 ;And branch ahead
672
673 ; --- Munge the sprite ID to get the right reason code ---
674
675 LDR lr,[a3,#4] ;Get the sprite ID tag
676 CMP lr,#0 ;Is it a name
677 MOVEQ a1,#&100 ;Yes -- user area, named
678 MOVNE a1,#&200 ;No -- user area, pointer
679
680 ; --- Now get the pixel translation ---
681
682 00 LDR a3,[a3,#0] ;Get sprite name or pointer
683 SWI XWimp_ReadPixTrans ;Do the actual operation
684
685 MOVVC a1,#0 ;If it succeeded, no error
686 LDMFD sp!,{v3,v4,pc}^ ;Return to caller
687
688 ; --- Missing call ---
689 ;
690 ; We omit a veneer for Wimp_ClaimFreeMemory, since it's not much use unless
691 ; you're in SVC mode, in which case you'd better be writing in assembler
692 ; anyway.
693
694 ; --- wimp_commandwindow ---
695 ;
696 ; On entry: a1 == pointer to a funny structure
697
698 EXPORT wimp_commandwindow
699 wimp_commandwindow
700 MOV a2,a1 ;Keep pointer to structure
701 LDR a3,[a2,#0] ;Get the operation code
702
703 ; --- Work out what the operation is meant to be ---
704 ;
705 ; If we don't recognise the `tag' then all hell breaks loose.
706
707 CMP a3,#0 ;Create window with title
708 LDREQ a1,[a2,#4] ;Then find the title
709 CMP a3,#1 ;Just make window `active'
710 MOVEQ a1,#1 ;Horrors -- that's right
711 CMP a3,#2 ;Close the window, prompting
712 MOVEQ a1,#0 ;Then set up the code
713 CMP a3,#3 ;Close the window, no prompt
714 MOVEQ a1,#-1 ;Do that right too
715
716 ; --- Now just do it ---
717
718 SWI XWimp_CommandWindow
719 MOVVC a1,#0
720 MOVS pc,lr
721
722 ; --- wimp_textcolour ---
723 ;
724 ; On entry: a1 == colour to set
725
726 EXPORT wimp_textcolour
727 wimp_textcolour SWI XWimp_TextColour
728 MOVVC a1,#0
729 MOVS pc,lr
730
731 ; --- wimp_transferblock ---
732 ;
733 ; On entry: a1 == source task's handle
734 ; a2 == address of buffer in source task
735 ; a3 == destination task's handle
736 ; a4 == address of buffer in destination task
737 ; [sp] == amount of data to transfer
738
739 EXPORT wimp_transferblock
740 wimp_transferblock
741 STMFD sp!,{v1,lr} ;Save v1 on the stack
742 LDR v1,[sp,#8] ;Get the buffer length
743 SWI XWimp_TransferBlock ;Do the operation
744 MOVVC a1,#0
745 LDMFD sp!,{v1,pc}^
746
747 ; --- wimp_readsysinfo ---
748 ;
749 ; On entry: a1 == information to read
750 ; a2 == where to put R0 on exit
751 ; a3 == where to put R1 on exit
752
753 EXPORT wimp_readsysinfo
754 wimp_readsysinfo
755 CMP a1,#5
756 MOVNE a3,#0
757 MOV a4,a2
758 SWI XWimp_ReadSysInfo
759 MOVVSS pc,lr
760 CMP a4,#0
761 STRNE a1,[a4]
762 CMP a3,#0
763 STRNE a2,[a3]
764 MOV a1,#0
765 MOVS pc,lr
766
767 ; --- wimp_setfontcolours ---
768 ;
769 ; On entry: a1 == background colour
770 ; a2 == foreground colour
771
772 EXPORT wimp_setfontcolours
773 wimp_setfontcolours
774 SWI XWimp_SetFontColours
775 MOVVC a1,#0
776 MOVS pc,lr
777
778 ; --- wimp_getmenustate ---
779 ;
780 ; On entry: a1 == what to do
781 ; a2 == pointer to buffer to fill in
782 ; a3 == window handle (optional)
783 ; a4 == icon handle (optional too)
784
785 EXPORT wimp_getmenustate
786 wimp_getmenustate
787 SWI XWimp_GetMenuState
788 MOVVC a1,#0
789 MOVS pc,lr
790
791 ; --- wimp_addmessages ---
792 ;
793 ; On entry: a1 == pointer to messages array
794
795 EXPORT wimp_addmessages
796 wimp_addmessages
797 SWI XWimp_AddMessages
798 MOVVC a1,#0
799 MOVS pc,lr
800
801 ; --- wimp_removemessages ---
802 ;
803 ; On entry: a1 == pointer to messages array
804
805 EXPORT wimp_removemessages
806 wimp_removemessages
807 SWI XWimp_RemoveMessages
808 MOVVC a1,#0
809 MOVS pc,lr
810
811 ; --- Missing call ---
812 ;
813 ; We omit a veneer for Wimp_SetColourMapping, since it's for specialised use
814 ; only probably, and not of use to an average application.
815
816 ;----- That's all, folks ----------------------------------------------------
817
818 END
The Straylight Source Distribution (obsolete software for RISC OS)