home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsm / newfiler / !NewFiler / FilerPatch (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1993-03-05  |  1KB  |  42 lines
  1.  ><NewFiler$Dir>.FilerPatch
  2.  Patch for Risc OS 3.10 Filer module to identify apps with ! OR [160]
  3.  Nick Jarman Sat,19 Dec 1992
  4.  "Enter the pathname of the directory where NewFiler should be saved: "pathname$
  5.  pathname$<>"" 
  6. ("Set NewFiler$Name "+pathname$+".NewFiler")
  7. patch
  8. ("Unset NewFiler$Name")
  9.  "New filer module saved."
  10.  "New filer module NOT saved."
  11. patch
  12. module_start%=&38E8570
  13. module_length%=&6C68
  14. patch_length%=&14
  15. jump_offset%=&48F8
  16. check_pos%=&467
  17. check_word%=&34362E31
  18. ("Save <NewFiler$Name> "+
  19. ~module_start%+" +"+
  20. ~module_length%)
  21.  code% module_length%+patch_length%
  22. ("Load <NewFiler$Name> "+
  23. ~code%)
  24.  code%!check_pos%=check_word% 
  25. !  patch%=code%+module_length%
  26.   P%=code%+jump_offset%
  27.   [OPT 2
  28.   BL patch%
  29.   LDRB R14,[R6,#0]
  30.   P%=patch%
  31.   [OPT2
  32.   STMDB R13!,{R14}
  33.   LDRB R14,[R6,#0]
  34.   TEQ R14,#&21
  35.   TEQNE R14,#&A0
  36.   LDMIA R13!,{PC}
  37. ("Save <NewFiler$Name> "+
  38. ~code%+" "+
  39. *%  *SetType <NewFiler$Name> Module
  40. ("Delete <NewFiler$Name>")
  41.  0,"This program can only patch Filer version 1.64"
  42.