|
version 1.48, 2006/01/28 17:55:32
|
version 1.50, 2006/01/28 18:57:20
|
|
Line 333 interpret/compile: what's ( interpretati
|
Line 333 interpret/compile: what's ( interpretati
|
| emit |
emit |
| loop ; |
loop ; |
| |
|
| \ w@ and l@ |
\ w and l stuff |
| |
|
| |
environment-wordlist >order |
| |
|
| |
16 address-unit-bits / 1 max constant /w ( -- u ) \ gforth slash-w |
| |
\G address units for a 16-bit value |
| |
|
| |
32 address-unit-bits / 1 max constant /l ( -- u ) \ gforth slash-l |
| |
\G address units for a 32-bit value |
| |
|
| |
previous |
| |
|
| [ifdef] uw@ |
[ifdef] uw@ |
| |
\ Open firmware names |
| ' uw@ alias w@ ( addr -- u ) |
' uw@ alias w@ ( addr -- u ) |
| ' ul@ alias l@ ( addr -- u ) |
' ul@ alias l@ ( addr -- u ) |
| \ ' sw@ alias <w@ ( addr -- n ) \ Open Firmware name |
\ ' sw@ alias <w@ ( addr -- n ) |
| [then] |
[then] |
| |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to stuff.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth