**********************************************************************
* Name:		BY
* Stack:	( ob --> %bytes )
* Desc:		Restricted version of internal BYTES command
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME BY
::
  CK1
  OSIZE UNCOERCE %2 %/
;
**********************************************************************