home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / thand1.seq < prev    next >
Text File  |  1989-12-19  |  685b  |  20 lines
  1. \ THANDLES.SEQ          Handle impementation file       by Tom Zimmer
  2.  
  3. \ This file contains some handle manipulation primitives
  4.  
  5. FORTH DECIMAL TARGET >LIBRARY       \ A library file
  6.  
  7. 70 CONSTANT B/HCB
  8. VARIABLE RWERR
  9.  
  10.                 \ Attrib is normally  zero (0) for Read/Write.
  11.                 \ Attrib may be set to one (1) for Write ONLY.
  12.                 \ Attrib may be set to two (2) for Read  ONLY.
  13. : >ATTRIB       ( handle --- attrib-addr )      66 + ;
  14. : >HNDLE        ( handle --- handle-addr )      68 + ;
  15. : >NAM          ( handle --- name-string-addr ) 1+   ;
  16. : CLR-HCB       ( HANDLE - ) DUP B/HCB ERASE -1 SWAP >HNDLE ! ;
  17.  
  18. FORTH DECIMAL TARGET >TARGET
  19.  
  20.