home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / forth / 3461 < prev    next >
Encoding:
Internet Message Format  |  1992-11-09  |  2.0 KB

  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!swrinde!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: <4140.UUL1.3#5129@willett.pgh.pa.us>
  6. Date: 9 Nov 92 11:58:12 GMT
  7. Organization: EIEI-U
  8. Lines: 58
  9.  
  10. Category 7,  Topic 22
  11. Message 120       Sun Nov 08, 1992
  12. ELLIOTT.C                    at 08:49 EST
  13.  
  14.  -----via CRS Premium Bulletin Board - USR 16.8K Dual Standard
  15.  (416) 629-7000
  16.  Date: 11-06-92 (21:21)
  17.    To: FRANK SERGEANT
  18.  From: IAN WATTERS
  19.  Subj: PYGMY FORTH
  20.  FS>>  ** Pygmy Forth version 1.4 has now been released **
  21.  
  22.  Thanks for the disk, Frank.  I've been working with it <g>
  23.  
  24.  
  25.    Screen 175 needs HEX at the start.
  26.  
  27.    Using headerless constants crashes the metacompiler at the end
  28.  of its work.  Cure: redefine CONSTANT in the metacompiler.
  29.  
  30.    I bumped into that one when changing .S to :
  31.  
  32.  CODE PICK  ( +N -- Nth-item )  ( 0-based: 0 PICK = DUP etc )
  33.    BX BX ADD,  SP BX ADD,  SS: 0 [BX] BX MOV,  NXT,  END-CODE
  34.  
  35.  | 8 CONSTANT SM  ( "Show Me" max number of stack items )
  36.  
  37.  : .S  ( -) ." << " DEPTH  DUP 0< ABORT"  underflow "
  38.     ?DUP IF  SM OVER U< IF  ." +" SM - U. ." < " SM  THEN
  39.     FOR  I PICK .  NEXT  THEN  ." >>" ;
  40.  
  41.    The CR in QUIT is then replaced by a DEFER'd word STATUS,
  42.    vectored to .S CR, to show the stack after each line.
  43.  
  44.    Use DECIMAL not 10 BASE ! in several places.
  45.  
  46.    Something I've been meaning to ask... why does INTERPRET take
  47.    arguments? Get (LOAD to set up >IN instead and read that?
  48.  
  49.  
  50.  A disk will be in the post to you, sooner or later, with
  51.  assorted suggestions and goodies.  Say around Christmas?  <g>
  52.  
  53.    //\/\/
  54.  
  55.  
  56.   * OLX 2.2 * The Devil made me steal that tagline
  57.  ---
  58.   * O.L.E.F. BBS.  London UK. +44-81-882-9808
  59.   * PostLink(tm) v1.01  OLEF (#181) : RelayNet (tm).
  60.  
  61.  
  62.  
  63. -----
  64. This message came from GEnie via willett.  You *cannot* reply to the author
  65. using e-mail.  Please post a follow-up article, or use any instructions
  66. the author may have included (USMail addresses, telephone #, etc.).
  67. Report problems to: dwp@willett.pgh.pa.us
  68.