home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / forth / 3821 < prev    next >
Encoding:
Internet Message Format  |  1993-01-11  |  1.3 KB
  1. Path: sparky!uunet!gatech!pitt!willett!ForthNet
  2. From: ForthNet@willett.pgh.pa.us (ForthNet articles from GEnie)
  3. Newsgroups: comp.lang.forth
  4. Subject: PYGMY Forth
  5. Message-ID: <4236.UUL1.3#5129@willett.pgh.pa.us>
  6. Date: 11 Jan 93 11:17:38 GMT
  7. Organization: EIEI-U
  8. Lines: 35
  9.  
  10. Category 7,  Topic 22
  11. Message 136       Sun Jan 10, 1993
  12. B.RODRIGUEZ2 [Brad]          at 14:27 EST
  13.  
  14. For anyone who's interested, I had occasion to define ;CODE for Pygmy 1.4 the
  15. other day:
  16.  
  17. COMPILER
  18.  : ;CODE
  19.    \ DOES>  -3 ALLOT     ( COMPILE does)
  20.    \ RECURSIVE  POP DROP
  21.    ASM-RESET ;
  22.  FORTH
  23.  
  24. If you recompile the kernel so that 'does' has a header, you can use 'COMPILE
  25. does' instead of ' \ DOES> -3 ALLOT '.  Example usage:
  26.  
  27. : OFFSET    ( build words which add an offset to TOS)
  28.    CREATE ,
  29.    ;CODE
  30.       BX AX XCHG,  3 [BX] AX ADD,  BX AX XCHG,  NXT,
  31.    END-CODE
  32.  
  33. 3 OFFSET 3+
  34.  
  35. Brad Rodriguez    B.RODRIGUEZ2 on GEnie
  36.  b.rodriguez2@genie.geis.com   (at last! preferred, fastest response)
  37.  bradford@maccs.dcss.mcmaster.ca  (use this for long messages, > 4Kb)
  38.  So many projects....so little time.
  39.  
  40. -----
  41. This message came from GEnie via willett.  You *cannot* reply to the author
  42. using e-mail.  Please post a follow-up article, or use any instructions
  43. the author may have included (USMail addresses, telephone #, etc.).
  44. Report problems to: dwp@willett.pgh.pa.us
  45.