X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=jonesforth.f;fp=jonesforth.f;h=58599e695e2c9d29769c7dd4e23504816fd3da63;hb=a9bb8b18891404c2fd315f2fc5cbeaf6c25e9b43;hp=82642f1d0ed874154a5869c5fe8afe5599c4371f;hpb=aa173d5f30ea45f0c06799c858c4a91681cf0cf7;p=jonesforth.git diff --git a/jonesforth.f b/jonesforth.f index 82642f1..58599e6 100644 --- a/jonesforth.f +++ b/jonesforth.f @@ -2,7 +2,7 @@ \ A sometimes minimal FORTH compiler and tutorial for Linux / i386 systems. -*- asm -*- \ By Richard W.M. Jones http://annexia.org/forth \ This is PUBLIC DOMAIN (see public domain release statement below). -\ $Id: jonesforth.f,v 1.15 2007-10-11 07:39:51 rich Exp $ +\ $Id: jonesforth.f,v 1.16 2007-10-12 01:46:12 rich Exp $ \ \ The first part of this tutorial is in jonesforth.S. Get if from http://annexia.org/forth \ @@ -822,6 +822,10 @@ Notice that the parameters to DUMP (address, length) are compatible with string words such as WORD and S". + + You can dump out the raw code for the last word you defined by doing something like: + + LATEST @ 128 DUMP ) : DUMP ( addr len -- ) BASE @ ROT ( save the current BASE at the bottom of the stack )