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 / ENTERPRS / CPM / UTILS / S / SUPERMIT.ARK / FIXIF.SUB < prev    next >
Text File  |  1989-09-27  |  2KB  |  63 lines
  1. ;fixif.sub                FIX IF.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 IF.COM (v3.0) to make it operate even
  6. ;when console output has been disabled by ECHO3.COM.
  7. ;
  8. ;The patched version of IF.COM produced by this submit file will be named
  9. ;IFX.COM.
  10. ;
  11. ;(IF.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. ;            IF.COM
  22. ;            FIXIF.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 FIXIF
  30. ;
  31. ;    []  When the job finishes, consult the "IMPORTANT" note displayed
  32. ;        at the end of the job.
  33. ;
  34.  
  35. XSUB
  36.  
  37. DDT IF.COM
  38. a8b8
  39. mov b,a
  40. mov a,d
  41. sub h
  42. mov a,b
  43. .
  44. S883
  45. 2
  46. .
  47. s843
  48. 4
  49. .
  50.  
  51. G0
  52. SAVE 9 IFX.com
  53.  
  54. ;***********************************
  55. ;========> IMPORTANT!!!  <==========
  56. ;
  57. ;Is "OE" to the left of "2" above?
  58. ;And is "0A" to the left of "4"?
  59. ;  If NO,  discard IFX.COM.
  60. ;  If YES, discard IF.COM and use
  61. ;          IFX.COM from now on.
  62. ;                              (end)
  63.