Return to main.fs CVS log | Up to [gforth] / gforth |
version 1.16, 1995/06/07 10:05:08 | version 1.17, 1995/07/25 15:28:08 |
---|---|
Line 14 include cross.fs \ include | Line 14 include cross.fs \ include |
decimal | decimal |
256 KB makekernal , 0 , 0 , 0 A, 0 A, 0 A, | cell 2 = [IF] 32 [ELSE] 256 [THEN] KB |
makekernal , 0 , 0 , 0 A, 0 A, 0 A, | |
UNLOCK ghost - drop \ ghost must exist because - would be treated as number | UNLOCK ghost - drop \ ghost must exist because - would be treated as number |
LOCK | LOCK |