81C0C |
#>ROMPTR
|
( #lib #cmd → ROMPTR )
Creates rompointer.
|
81C66 |
ROMPTR>#
|
( ROMPTR → #lib #cmd )
Splits rompointer.
|
81C6B |
ROMPTR@
|
( ROMPTR → ob T )
( ROMPTR → F )
Recalls contents of rompointer.
|
83688 |
DUPROMPTR@
|
( ROMPTR → ROMPTR ob T )
( ROMPTR → ROMPTR F )
Does DUP then ROMPTR@.
|
82FFD |
?>ROMPTR
|
( ob → ob' )
If ROM-WORD? and TYPECOL? then RPL@.
|
83007 |
?ROMPTR>
|
( ob → ob' )
If <REF>TYPEROMP? and content exists
<REF>INHARDROM? then return contents.
|
83011 |
RESOROMP
|
( → ob )
Recalls contents of next object in the
runstream (which must be a rompointer).
|
81C20 |
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.
|
81496 |
ROM-WORD?
|
( ob → flag )
|