From: rich <rich>
Date: Sat, 8 Sep 2007 22:23:16 +0000 (+0000)
Subject: Added JONESFORTH VERSION ... when starting up.
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=508d77c9cdea77a1954e5a65ad0e6e233ae5cd58;p=rrq%2Fjonesforth.git

Added JONESFORTH VERSION ... when starting up.
---

diff --git a/jonesforth.S b/jonesforth.S
index 04c3cf5..2d2b09a 100644
--- a/jonesforth.S
+++ b/jonesforth.S
@@ -1,10 +1,12 @@
 /*	A sometimes minimal FORTH compiler and tutorial for Linux / i386 systems. -*- asm -*-
 	By Richard W.M. Jones <rich@annexia.org> http://annexia.org/forth
 	This is PUBLIC DOMAIN (see public domain release statement below).
-	$Id: jonesforth.S,v 1.17 2007-09-08 22:10:43 rich Exp $
+	$Id: jonesforth.S,v 1.18 2007-09-08 22:23:16 rich Exp $
 
 	gcc -m32 -nostdlib -static -Wl,-Ttext,0 -o jonesforth jonesforth.S
-
+*/
+	.set JONES_VERSION,18
+/*
 	INTRODUCTION ----------------------------------------------------------------------
 
 	FORTH is one of those alien languages which most working programmers regard in the same
@@ -993,6 +995,7 @@ var_\name :
 	_Z
 	S0		Stores the address of the top of the parameter stack.
 	R0		Stores the address of the top of the return stack.
+	VERSION		Is the current version of this FORTH.
 
 */
 	defvar "STATE",5,,STATE
@@ -1003,6 +1006,7 @@ var_\name :
 	defvar "_Z",2,,TZ
 	defvar "S0",2,,SZ
 	defvar "R0",2,,RZ,return_stack
+	defvar "VERSION",7,,VERSION,JONES_VERSION
 
 /*
 	RETURN STACK ----------------------------------------------------------------------
@@ -1813,7 +1817,7 @@ interpret_is_lit:
 	CHAR puts the ASCII code of the first character of the following word on the stack.  For example
 	CHAR A puts 65 on the stack.
 
-	SYSEXIT pops the status off the stack and exits the process (using Linux exit syscall).
+	SYSEXIT exits the process using Linux exit syscall.
 */
 
 	defcode "CHAR",4,,CHAR
@@ -2075,10 +2079,11 @@ buffer:
 
 \\ ALLOT is used to allocate (static) memory when compiling.  It increases HERE by
 \\ the amount given on the stack.
-: ALLOT HERE +! ;
+\\: ALLOT HERE +! ;
 
 
 \\ Finally print the welcome prompt.
+.\" JONESFORTH VERSION \" VERSION @ . CR
 .\" OK \"
 "