07E50 |
#>ROMPTR
|
( #lib #cmd → ROMPTR )
Creates rompointer.
|
08CCC |
ROMPTR>#
|
( ROMPTR → #lib #cmd )
Splits rompointer.
|
07E99 |
ROMPTR@
|
( ROMPTR → ob T )
( ROMPTR → F )
Recalls contents of rompointer.
|
62C19 |
DUPROMPTR@
|
( ROMPTR → ROMPTR ob T )
( ROMPTR → ROMPTR F )
Does DUP then ROMPTR@.
|
02FEF |
(ROMSEC)
|
( ROMPTR → ? )
Recalls contents of rompointer and EVAL.
Generates "Undefined XLIB Error" if not
found.
|
62A61 |
?>ROMPTR
|
( ob → ob' )
If ROM-WORD? and TYPECOL? then RPL@.
|
62A84 |
?ROMPTR>
|
( ob → ob' )
If <REF>TYPEROMP? and content exists
<REF>INHARDROM? then return contents.
|
62BD8 |
RESOROMP
|
( → ob )
Recalls contents of next object in the
runstream (which must be a rompointer).
|
07E76 |
(PTR>ROMPTR)
|
( ob → ROMPTR T )
( ob → F )
If the object is a library command, returns
its rompointer and TRUE, if not just FALSE.
|
081FB |
(ROMPTRDECOMP)
|
( ROMPTR → id T )
( ROMPTR → F )
If the library command exists and has a name,
returns that name and TRUE, otherwise FALSE.
|
081E3 |
(PTR>ID)
|
( ob → id T )
( ob → F )
If the object is a library command and has a
name, returns its name and TRUE, if not
returns just FALSE.
|
07C18 |
(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.
|
61FB6 |
ROM-WORD?
|
( ob → flag )
|
61FA9 |
DUPROM-WORD?
|
( ob → ob flag )
|