home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / desktop / t / taskensure / s / module < prev   
Encoding:
Text File  |  1993-08-11  |  1.3 KB  |  66 lines
  1.   ; ************ TaskEnsure module wrapper
  2.  
  3.   ; Project title: TaskEnsure
  4.   ; Purpose:       Ensure a WIMP task is present
  5.   ; File name:     s.module
  6.   ; Last modified: 11/8/93
  7.   ; Author:        Ben Summers
  8.   ; Version:       0.00
  9.   ; Dependancies:  s.taskensure
  10.  
  11.  GET "h.regdefs"
  12.  GET "adfs::Ben.$.DDE.date.asmdate"
  13.  
  14. XOS_Module EQU &2001E
  15.  
  16.  GBLS version
  17. version SETS "0.00 "
  18.  
  19. module EQU 1
  20.  
  21. ms
  22.  DCD start - ms
  23.  DCD 0   ; init
  24.  DCD 0   ; final
  25.  DCD 0   ; service
  26.  DCD title - ms
  27.  DCD help - ms
  28.  DCD command_table - ms
  29.  DCD 0   ; SWI base
  30.  
  31. title
  32.  DCB "TaskEnsure",0
  33.  
  34. help
  35.  DCB "TaskEnsure",9,version,module_date," © Ben Summers 1993",0
  36.  ALIGN
  37.  
  38. command_table
  39.  DCB "TaskEnsure",0
  40.  ALIGN
  41.  DCD start_code - ms
  42.  DCB 0,0,255,0
  43.  DCD 0,start_help - ms
  44.  DCB 0
  45.  ALIGN
  46.  
  47. start_help
  48.  DCB "*TaskEnsure checks to see if a WIMP task is present, and executes a command if it is/is not present.",13
  49.  DCB "If the -p flag is in the command, the command will be excuted if the task IS present.",13
  50.  DCB "Enclose the task name in ",34,"s if the task name contains a space. Task name matching is case sensitive.",13
  51.  DCB "Syntax: TaskEnsure [-p] <task name> <command to execute>",0
  52.  
  53. start_code
  54.  STMFD R13!,{R14}
  55.  MOV   R2,R0
  56.  MOV   R0,#2
  57.  ADR   R1,title
  58.  SWI   XOS_Module
  59.  LDMFD R13!,{PC}^
  60.  
  61. start
  62.  MOV   R12,#&8000
  63.  GET "s.taskensure"
  64.  
  65.  END
  66.