home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / desklib / Libraries / WimpSWIs / s / Wimp27 < prev    next >
Encoding:
Text File  |  1992-03-04  |  1.7 KB  |  55 lines
  1. ;
  2. ;       Title                  : Wimp Load Template.
  3. ;       System                 : Wimp Library
  4. ;       Version                : 1.0
  5. ;       Copyright              : (C) John Winters
  6. ;       Date                   : 12th January, 1990
  7. ;       Author                 : John H. Winters
  8. ;
  9. ;       Function               : Load a template from a file.
  10. ;
  11. ;
  12. ;       Modification history.
  13. ;
  14. ;       Version                : 1.1 (Reflect in header IDENT)
  15. ;       Date                   : 30th November, 1991
  16. ;       Author                 : John H. Winters
  17. ;       Changes                : Can't use R0 as a temporary pointer since
  18. ;                                the SWI corrupts it (contrary to Acorn's
  19. ;                                documentation).  Use R7 instead.
  20. ;
  21. ;       Version                : (Reflect in header IDENT)
  22. ;       Date                   : 
  23. ;       Author                 : 
  24. ;       Changes                : 
  25. ;
  26. ;
  27. ;============================================================================
  28. ;
  29. ;  Include files.
  30. ;
  31. ;============================================================================
  32. ;
  33.         GET     h.regdefs
  34.         GET     h.swinos
  35.         GET     h.macros
  36. ;
  37. ;============================================================================
  38. ;
  39. ;  Code.
  40. ;
  41. ;============================================================================
  42. ;
  43.         PREAMBLE
  44.         STARTCODE Wimp_LoadTemplate
  45. ;
  46.         STMFD   sp!, {v1, v2, v3, v4, lr}
  47.         LDMIA   a1!, {a2, a3, a4, v1, v2, v3}
  48.         MOV     v4, a1
  49.         SWI     SWI_Wimp_LoadTemplate + XOS_Bit
  50.         STMDB   v4!, {a2, a3, a4, v1, v2, v3}
  51.         MOVVC   a1, #0
  52.         LDMFD   sp!, {v1, v2, v3, v4, pc}^
  53. ;
  54.         END
  55.