![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
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 ; |