home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / datafiles / text / howtocode / utils / ced / argasm.ced next >
Text File  |  1995-02-27  |  480b  |  29 lines
  1. /*   ARGASM.CED - Macro to call Argonauts ArgAsm from CygnusEd
  2.  */
  3. options results
  4. LF = '0A'X
  5.  
  6. rawkey 17 128
  7.  
  8. status 19
  9. FileName = result
  10.  
  11.  
  12. getstring 'ram:test'  '"Destination file name:"'
  13.  
  14.  
  15.  
  16. TestFile = result
  17.  
  18. If (Testfile = "RESULT") then exit 0
  19.  
  20. address command "c:arg > ram:errors " Filename  "-m 1000000 -o " TestFile
  21.  
  22. /* If you have less than ram than me :-) change the 1000000 to a lower
  23.    value */
  24. address command "ed ram:errors -o"
  25.  
  26. jump to file "errors"
  27.  
  28. editable file
  29.