Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.15, 1999/01/03 21:48:38 | version 1.16, 1999/01/21 20:09:15 |
---|---|
Line 632 Variable init8 | Line 632 Variable init8 |
[ has? os [IF] ] | [ has? os [IF] ] |
r0 @ forthstart 6 cells + @ - | r0 @ forthstart 6 cells + @ - |
[ [ELSE] ] | [ [ELSE] ] |
sp@ $40 + | sp@ $10 cells + |
[ [THEN] ] | [ [THEN] ] |
[ [THEN] ] | [ [THEN] ] |
dup >tib ! tibstack ! #tib off >in off ; | dup >tib ! tibstack ! #tib off >in off ; |