**********************************************************************
* Name:		ADDR
* Stack:	( ob --> addr )
* Desc:		Return address of object
* Warning:	No GC is forced, thus next GC might invalidate the address
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME ADDR
::
  CK1
  CODE
	GOSBVL	=PopASavptr
	P=	5-1			5-nibble number
	GOVLNG	=PUSHhxsLoop
  ENDCODE
;

**********************************************************************