home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / f / forth010.zip / FORTH.DOC next >
Text File  |  1993-01-01  |  6KB  |  204 lines
  1.                                  KA9DGX Forth
  2.  
  3.  KA9DGX forth - Copyright(C) 1992,1993 - Michael A. Warot, all rights reserved
  4.  Produced in the United States of America
  5.  
  6.    This software is furnished under a license agreement or nondisclosure
  7.  agreement. TThe software may be used or copied only in accordance with
  8.  the terms of the agreement. No part of this program may be reproduced
  9.  or transmitted in any form or by any means, electronic or mechanical,
  10.  including photo-copying and recording, for any purpose without the
  11.  express written permission of the author.
  12.  
  13.    The following paragraph does not apply in the United Kingdom or any
  14.  country where such provisions are inconsistent with local law:
  15.    MICHAEL A. WAROT OFFERS THIS PROGRAM "AS IS" WITHOUT WARRANTY OF
  16.  ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
  17.  IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
  18.  Some states do not allow disclaimer of express or implied warranties in
  19.  certain transactions, therefore, this statement may not apply to you.
  20.  
  21.  MICHAEL A. WAROT may have patents or pending patent applications covering
  22.  the subject matter in this program. The furnishing of this program does
  23.  not give you any license to these patents. You can send license inquiries,
  24.  in writing, to MICHAEL A. WAROT, 7751 Chestnut Ave. Hammond, Indiana 46324
  25.  
  26.  MICHAEL A. WAROT hereby grants you permission for this distribution of
  27.  this program, provided it is distributed in it's complete, un-altered form,
  28.  and a no fee exceeding $3.00(US) is charged for is distribution.
  29.  
  30.  MICHAEL A. WAROT hereby grants you permission to use this program for a
  31.  trial period of thirty(30) days, after which time you must obtain a
  32.  license for it's continued use.
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  Abstract: This program is a small, 32Bit TEXT MODE forth for OS/2.
  39.  
  40.  Version:  Version 0.010 ßeta
  41.  
  42.  Requirements: OS/2 version 2.0 or later
  43.                P3+ (iAPX386 or better)
  44.  
  45.  Licensing information:
  46.  
  47.    Licensing fees:
  48.  
  49.      First Computer   - $2.00
  50.      Additional CPU's - $1.00
  51.  
  52.    A copy of the source code, is available for $10.00
  53.  
  54.    To obtain a license for this program, please complete the following
  55.  and send with payment to:
  56.  
  57.        Michael A. Warot
  58.        7751 Chestnut Avenue
  59.        Hammond, Indiana 46324-3223
  60.  
  61.  
  62.  
  63.  
  64.     NAME:
  65.  
  66.     COMPANY:
  67.  
  68.     ADDRESS:
  69.  
  70.     CITY:
  71.  
  72.     STATE/PROVINCE:
  73.  
  74.     ZIP CODE:
  75.  
  76.     COUNTRY:
  77.  
  78.  
  79.  
  80.     Number of program licenses:
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.     Please send any comments to the above address or via Email at
  90.  
  91.       ka9dgx@chinet.chi.il.us
  92.  
  93.  
  94.  
  95.  
  96.   **************************** Authors Notes ******************************
  97.  
  98.  
  99.   This is my first attempt at doing OS/2 Full Screen, FLAT32 code.
  100.  
  101.   It was written using the editor from Borland's Turbo Pascal 6.0
  102.  
  103.   It is compiled using MicroSoft's MASM version 6.0
  104.  
  105.   It was linked using LINK386 supplied with IBM's OS/2 version 2.0
  106.  
  107.   This program requires OS/2 version 2.0 or later, and ONLY runs in
  108.   full screen text mode.
  109.  
  110.   Because of the limited nature of this compiler, no file saving features
  111.   have been added at this time, however future versions of this program
  112.   will have the ability to load and save ASCII files.
  113.  
  114.   I haven't done much FORTH in my life, so if this seems non-standard,
  115.   it probably is.
  116.  
  117.  
  118.   The source code for this fine program is available for $10.00 (US)
  119. (3 Orders of magnitude less than the $500 and 100 Hours I've put in so far)
  120.  
  121.   ************************* MODIFICATION HISTORY ***********************
  122.  
  123.   This document was last updated January 1, 1993
  124.  1/ 1/93 - Version 0.010
  125.    Add MASM macros PushForth, PullForth, and Compiles
  126.    Add FOR/NEXT, which is a much better DO ... LOOP
  127.    Add DO ... LOOP and IF ... ELSE ... THEN
  128.  
  129. 12/31/92 - Version 0.009
  130.    Add CONSTANT, CREATE, VARIABLE, ALLOT, "," and "C," and the supporting
  131.    routines DoesConstant and DoesVariable
  132.    (Need to have places to put file handles, etc)
  133.    ** Look for version 0.010 to have conditional branching...
  134.  
  135. 11/13/92 - Version 0.008
  136.    Make literal, Compile Only, and Immediate
  137.    Add COMPILE, the ultimate in sneaky forth words
  138.    Fix CR
  139.  
  140. 11/10/92 - Version 0.007
  141.    Add Brian Mathewson's code for SP!, [, and ]
  142.    Add header for ?STACK
  143.    Make LITERAL an Immediate word
  144.    Add RESET, improve logic
  145.  
  146. 11/08/92 - Version 0.006
  147.    Add new words:
  148.      ROT, .S, MOD, ( comments ), IMMEDIATE, ." show string",
  149.      CRLF, DEBUG ( a debugging variable )
  150.  
  151.  
  152. 11/08/92 - Version 0.005
  153.    Add new macro CodeDef, to make maintenance easier
  154.  
  155.    Add new words:
  156.      OVER, DROP, W, S0, SP@, DEPTH, C@, C!, W@, W!, STATE
  157.  
  158.    Current Vocabulary:
  159.      OVER DROP W S0 SP@ DEPTH SWAP DUP .
  160.      HEX DECIMAL BASE W! W@ C! C@ ! @
  161.      XOR OR AND U/ U* / * - + STATE
  162.      : ; COMPILECALL LITERAL
  163.      EMIT KEY BYE VLIST
  164.  
  165.    Note: KEY returns the ascii code in the low byte, and the scan code
  166.    in the upper byte. This is not standard, but it does allow the use
  167.    of F1-F10, etc.
  168.  
  169.  
  170. 10/12/92 - Version 0.004
  171.    Fix bugs:
  172.       Error handling routine got contents of stack, instead of address
  173.       Correct handling of IMMEDIATE definitions
  174.  
  175.    Add EMIT - Uses VioWrtTTY, and not STDOUT
  176.      * Thanks to Larry Bank for his VIO32.ASM sample program.
  177.        I only wish I had that sooner.
  178.      * Emit makes it possible to use ANSI strings to set colors for output
  179.  
  180.    I will soon add GotoXY, GetXY and ClrScr....!
  181.   Current Vocabulary:
  182.     : ; COMPILECALL LITERAL KEY HEX DECIMAL BASE ! @ BYE VLIST
  183.     SWAP DUP XOR OR AND U/ U* / * - + .
  184.  
  185.  
  186. 10/08/92 - Version 0.003
  187.    Add code to do handle compiling constants, etc.
  188.    Add : ; LITERAL and COMPILECALL to vocabulary
  189.  
  190.    Add internal routine to dump registers, when needed for debugging.
  191.  
  192.    Add a real set of legal disclaimers to documentation.
  193.  
  194.  
  195.  
  196. 10/07/92 - Version 0.002
  197.  
  198.    Finally figure out how to get a keystroke from OS/2
  199.    (No help from IBM what so ever!)
  200.  
  201.    Add KEY to vocabulary list (Whew)
  202.  
  203.  
  204.