home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FORTHCMP.ZIP / DOS1.4TH < prev    next >
Encoding:
Text File  |  1992-03-30  |  1.0 KB  |  42 lines
  1. \ DOSINT FILE INTERFACE                          08:52 12/08/86
  2.  
  3. \ Code Copyright (c) 1986 by Thomas Almy.  All rights reserved.
  4. \ Permission is granted to registered users of ForthCMP to sell or distribute
  5. \ computer programs incorporating the compiled contents of this file.
  6.  
  7. \ This file is intended to behave like UR/FORTH's "DOSINT" interface.
  8.  
  9. \ This file should be included before the application, and the
  10. \ file "DOS2" should be included just before "FORTHLIB".
  11.  
  12. \   Enjoy!
  13. \   Tom
  14.  
  15. 10 DECIMAL
  16.  
  17. H: HCB DSEG  CREATE  HERE 84 ALLOT DUP 84 0 FILL -1 SWAP ! ;
  18. DSEG
  19. 0 CONSTANT stdin
  20. 1 CONSTANT stdout
  21. 2 CONSTANT stderr
  22. 3 CONSTANT stdaux
  23. 4 CONSTANT stdprn
  24. 0 CONSTANT O_RD
  25. 1 CONSTANT O_WR
  26. 2 CONSTANT O_RDWR
  27. VARIABLE errno
  28. 2 1 IN/OUT NEED FREN 
  29. 1 0 IN/OUT NEED .FNAME
  30. 1 1 IN/OUT NEED FCHDIR
  31. 1 1 IN/OUT NEED FCLOSE
  32. 1 1 IN/OUT NEED FDEL
  33. 2 1 IN/OUT NEED FMAKE
  34. 1 1 IN/OUT NEED FMKDIR
  35. 1 1 IN/OUT NEED FRMDIR
  36. 1 1 IN/OUT NEED HCB>N
  37. 1 1 IN/OUT NEED HCB>H
  38. 2 0 IN/OUT NEED NAME>HCB
  39. 1 1 IN/OUT NEED ASCIIZ
  40.  
  41. 16 = #IF HEX #THEN
  42.