home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MEX / FIX165.MEX < prev    next >
Text File  |  2000-06-30  |  1KB  |  55 lines
  1. .
  2. . There is a bug in MEX versions 1.65 (both 8 and 16 bit) that
  3. . affects the colon display at the beginning of each line of an
  4. . ASCII save-in-memory.  This script fixes that bug.
  5. .
  6. .        03/26/86   --Ron Fowler, NightOwl Software
  7. screen off
  8.   ver
  9.   %a=value    ;.%A=version #
  10.   peek $100
  11.   %b=value    ;.%B=CPU value
  12. screen on
  13. .
  14. . validate version
  15. .
  16. if %a<>165
  17.   say "Sorry, this script is only for MEX version 1.65"
  18.   stop
  19. endif
  20. .
  21. . get patch code
  22. .
  23. screen off        ;.disable screen, PEEK shows on the tube
  24. if %b=233        ;.if DOS version
  25.   peek $7FEE        ;.get patch level for DOS version
  26. else            ;.if CPM version
  27.   peek $2832        ;.get patch level for CPM version
  28. endif
  29. screen on
  30. if value<>32        ;.if we don't have blank patch level ...
  31.   say "Patch already present/n"
  32.   stop
  33. endif
  34. .
  35. if %b=233        ;.DOS version
  36.   say "Patching 16-bit MEX/n"
  37.   poke $b725 $b0
  38.   poke $b72a $b0
  39.   poke $7fee $41
  40. else            ;.CPM version
  41.   say "Patching 8-bit MEX/n"
  42.   poke $573e $3e
  43.   poke $5743 $3e
  44.   poke $2832 $41
  45. endif
  46. .
  47. . now ready to clone MEX
  48. .
  49. say "Saving MEX to disk .../n"
  50. say "Enter filename (e.g. MEX.COM): "
  51. accept d        ;.get name from console
  52. clone {d}        ;.note use of curly brace, useful for substituting
  53. ;.            ;.strings into commands that don't take string args
  54. say "All done. {d} is now fixed./n"
  55.