![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to disasm.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / 386|
Return to disasm.fs CVS log | Up to [gforth] / gforth / arch / 386 |
| version 1.7, 2003/05/13 09:37:00 | version 1.8, 2012/10/08 01:39:04 |
|---|---|
| Line 30 CREATE SPCS SPCS-MAX ALLOT | Line 30 CREATE SPCS SPCS-MAX ALLOT |
| \ : nfa-count ( nfa -- addr u ) | \ : nfa-count ( nfa -- addr u ) |
| \ name>string ; | \ name>string ; |
| [IFUNDEF] w@ | |
| : w@ ( addr -- w ) | : w@ ( addr -- w ) |
| @ $ffff and ; | @ $ffff and ; |
| [THEN] | |
| : col ( n -- ) drop space ; | : col ( n -- ) drop space ; |