home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / help / sedcode.hlp < prev    next >
Encoding:
Text File  |  1988-01-11  |  981 b   |  31 lines
  1. \ SEDCODE.HLP   The Assembly code needed for SED        by Tom Zimmer
  2.  
  3.  
  4. linelist        ( --- a1 )
  5.         A constant that returns the address of the beginning of the
  6.         line pointer list.
  7.  
  8.  
  9. tb:             ( W -- tsegb W )
  10.         Put the text segment under the top entry on the stack.
  11.  
  12. tl:             ( W -- lseg  W )
  13.         Put the line list segment under the top entry on the
  14.         stack.
  15.  
  16. ?exit           ( f1 -- )
  17.         Leave the current definition, if the boolean f1 is true.
  18.  
  19. getdiskfree     ( dv --- avail.clusters bytes/sec secs/cluster )
  20.         Return the available clusters, bytes per sector, and sectors
  21.         per cluster for dv the current drive.
  22.  
  23. >lineptr        ( n1 --- a1 )
  24.         Index from line n1 to the offset in the line pointer table
  25.         of that line.
  26.  
  27. 39clipline      ( a1 n1 n2 --- a2 n3 )
  28.         while n2 is greater than 77, subtract 39 from n1 and add
  29.         39 to a1. Return the result a2, and n3.
  30.  
  31.