home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / demon / amstrad / logofix.arc / RENAME.CMP < prev    next >
Encoding:
Text File  |  1993-05-28  |  1.6 KB  |  66 lines
  1. 27DB CD 0E    RENAME patch for DR LOGO (v2.0). By J. Elliott, May 1993.
  2. 27DC 05 98    Instructions:
  3. 27DD 85 11    1. Store the old filename (eg FILE.LOG) at addresses 128 onwards.
  4. 27DE DC 16       End it with a zero (char 0).
  5. 27DF FF 27    2. Store the new filename at addresses 144 onwards and end with
  6. 27E1 B8 05       char 0.
  7. 27E2 24 00    3. Execute the primitive 'changef' with no inputs.
  8. 27E3 21 24    4. If .examine 91 is 0, no problems were encountered. Otherwise,
  9. 27E4 14 3E       if .examine 91 is:
  10. 27E5 00 01       1: Old filename is invalid.
  11. 27E6 39 28       2: New filename is invalid.
  12. 27E7 44 28       3: Old file not found (or write-protected).
  13. 27E8 4D 0E       4: New file already exists.
  14. 27E9 E5 98
  15. 27EA CD 11    An example procedure is already on this disc, called RENAME.LOG.
  16. 27EB FA 1A    The syntax for this procedure is 'rename "newfile "oldfile'.
  17. 27EC 24 27
  18. 27ED D1 CD
  19. 27EE C5 05
  20. 27EF CD 00   9  <-Countdown until completion.
  21. 27F0 D3 24
  22. 27F1 24 3E
  23. 27F2 D1 02
  24. 27F3 21 28
  25. 27F4 14 1B   8
  26. 27F5 00 11
  27. 27F6 39 6C
  28. 27F7 7E 00
  29. 27F8 B7 0E
  30. 27F9 28 11    7
  31. 27FA 16 CD
  32. 27FB 21 05
  33. 27FC 14 00
  34. 27FD 00 3C
  35. 27FE 39 3E    6
  36. 27FF 5E 04
  37. 2800 16 20
  38. 2801 00 0E
  39. 2802 21 11
  40. 2803 04 5C    5
  41. 2805 39 0E
  42. 2806 6E 17
  43. 2807 26 CD
  44. 2808 00 05
  45. 2809 CD 00    4
  46. 280A 48 3C
  47. 280B 85 3E
  48. 280C 28 03
  49. 280D 03 28
  50. 280E CD 01    3
  51. 280F 3B AF
  52. 2810 55 32
  53. 2811 C5 5B
  54. 2812 21 00
  55. 2813 17 C3    2
  56. 2814 00 7C
  57. 2815 E5 4B
  58. 2816 CD 80
  59. 2817 BC 00
  60. 2818 86 5C    1
  61. 2819 D1 00
  62. 281A D1 90
  63. 281B C3 00
  64. 281C 7C 6C
  65. 281D 4B 00    0 - Finished!
  66.