X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=jonesforth.S;h=c885150b0a9348812e337afaefe2b5d8e773613a;hb=bedb4b2f3f229eb41f7eb6af84aff5d1d660c805;hp=624eba46460c14f1e560a7eaeaa5072afc854a9c;hpb=7bd36863d6d71c4e4f94ba745d37b21f47e2ea9c;p=rrq%2Fjonesforth.git

diff --git a/jonesforth.S b/jonesforth.S
index 624eba4..c885150 100644
--- a/jonesforth.S
+++ b/jonesforth.S
@@ -1,7 +1,7 @@
 /*	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.40 2007-09-29 22:12:07 rich Exp $
+	$Id: jonesforth.S,v 1.41 2007-09-29 23:11:27 rich Exp $
 
 	gcc -m32 -nostdlib -static -Wl,-Ttext,0 -o jonesforth jonesforth.S
 */
@@ -1167,6 +1167,15 @@ var_\name :
 	defconst "SYS_WRITE",9,,SYS_WRITE,__NR_write
 	defconst "SYS_CREAT",9,,SYS_CREAT,__NR_creat
 
+	defconst "O_RDONLY",8,,__O_RDONLY,0
+	defconst "O_WRONLY",8,,__O_WRONLY,1
+	defconst "O_RDWR",6,,__O_RDWR,2
+	defconst "O_CREAT",7,,__O_CREAT,0100
+	defconst "O_EXCL",6,,__O_EXCL,0200
+	defconst "O_TRUNC",7,,__O_TRUNC,01000
+	defconst "O_APPEND",8,,__O_APPEND,02000
+	defconst "O_NONBLOCK",10,,__O_NONBLOCK,04000
+
 /*
 	RETURN STACK ----------------------------------------------------------------------