home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / newcom.seq < prev    next >
Text File  |  1988-09-13  |  1KB  |  37 lines
  1. \ NEWCOM.SEQ    A simple utility to allow you to make small COM files.
  2.  
  3. comment:
  4.  
  5.         This file gives you a way to make small COM files out of
  6.         single CODE definitions. Simply place your code in the code
  7.         definition as shown by the comments. When you laod this file
  8.         the code will be automatically saved ina file TEST.COM as
  9.         shown at the bottom of the file.
  10.  
  11. comment;
  12.  
  13. code test       ( --- )
  14.                 clear_labels
  15. \
  16. \ ********** Insert YOUR code here **********
  17. \
  18. \ Leave the following code at the end, it returns to DOS.
  19. \
  20.                 mov ax, # 0
  21.                 mov dx, ax
  22.                 int $21
  23.                 end-code
  24.  
  25. ' test here over -
  26.  
  27. : docom         ( Addr len | filename -- ) \ Save code from external segment.
  28.                 seqhandle+ !HCB
  29.                 seqhandle+ HDELETE   DROP
  30.                 seqhandle+ HCREATE   ABORT" Save Create ERR!"
  31.                 seqhandle+ HWRITE 0= ABORT" Save Write  ERR!"
  32.                 seqhandle+ HCLOSE    ABORT" Save Close  ERR!" ;
  33.  
  34. docom test.com          \ makes a small COM file.
  35.  
  36.  
  37.