0876D |
#>ROMPTR
|
( #lib #cmd → ROMPTR )
Creates rompointer.
|
095D2 |
ROMPTR>#
|
( ROMPTR → #lib #cmd )
Splits rompointer.
|
087B6 |
ROMPTR@
|
( ROMPTR → ob T )
( ROMPTR → F )
Recalls contents of rompointer.
|
0F4F3 |
DUPROMPTR@
|
( ROMPTR → ROMPTR ob T )
( ROMPTR → ROMPTR F )
Does DUP then ROMPTR@.
|
0E5DC |
?>ROMPTR
|
( ob → ob' )
If ROM-WORD? and TYPECOL? then RPL@.
|
0E5FF |
?ROMPTR>
|
( ob → ob' )
If <REF>TYPEROMP? and content exists
<REF>INHARDROM? then return contents.
|
161CC |
RESOROMP
|
( → ob )
Recalls contents of next object in the
runstream (which must be a rompointer).
|
0852B |
COMPILEID
|
( id → id T )
( id → ROMPTR T )
( id → F )
Searches id in current path, if found returns
TRUE. Else searches attached libraries. If
nothing was found, return FALSE.
|
0DB30 |
ROM-WORD?
|
( ob → flag )
|