home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / s / supermit.ark / FIX#.SUB < prev    next >
Encoding:
Text File  |  1989-09-27  |  1.5 KB  |  65 lines
  1. ;fix#.sub                FIX #.COM
  2. ;1/12/87        Copyright 1987, Logic Associates, Chicago
  3. ;Roy Lipscomb        Not to be sold.  For free distribution only.
  4. ;
  5. ;This submit file will patch #.COM (v3.0) to make it operate even
  6. ;when console output has been disabled by ECHO3.COM.
  7. ;
  8. ;The patched version of #.COM produced by this submit file will be named
  9. ;#X.COM.
  10. ;
  11. ;(#.COM is one of the modules of SUPERMT3.LBR.  The latter is a batch-
  12. ;language extension that brings BASIC-like capabilities to most batch
  13. ;processors, including SUBMIT, EX15, SUPERSUB, and others.  SUPERMIT is
  14. ;distributed free by many RCP/Ms and computer clubs, or can be ordered from
  15. ;Logic Associates.)
  16. ;
  17. ;The patching procedure is as follows:
  18. ;
  19. ;    []  Copy the following files to drive A:
  20. ;    
  21. ;            #.COM
  22. ;            FIX#.SUB   (this file)
  23. ;            DDT.COM
  24. ;            SUBMIT.COM
  25. ;            XSUB.COM
  26. ;
  27. ;    []  Type--    A:<cr>        where "<cr>" is carriage return.
  28. ;    
  29. ;    []  Type--    SUBMIT FIX#
  30. ;
  31. ;    []  When the job finishes, consult the "IMPORTANT" note displayed
  32. ;        at the end of the job.
  33. ;
  34.  
  35. XSUB
  36. ^C
  37. DDT #.COM
  38. ac5e
  39. mov a,d
  40. sub h
  41. mvi a,0
  42. .
  43. ac6c
  44. ret
  45. .
  46. sc3d
  47. 2
  48. .
  49. sbf3
  50. 4
  51. .
  52.  
  53. G0
  54. SAVE 13 #X.com
  55.  
  56. ;***********************************
  57. ;========> IMPORTANT!!!  <==========
  58. ;
  59. ;Is "OE" to the left of "2" above?
  60. ;And is "0A" to the left of "4"?
  61. ;  If NO,  discard #X.COM.
  62. ;  If YES, discard #.COM and use
  63. ;          #X.COM from now on.
  64. ;                              (end)
  65.