'<PCODE "UVBYTE">

<PACKAGE "UVBYTES"> 

<ENTRY UV-BYTES> 

<SETG UV-BYTES  %<RSUBR!- '[ %<PCODE!- "UVBYTE" 0> UV-BYTES #DECL ("VALUE" BYTES
<UVECTOR [REST <PRIMTYPE WORD>]> FIX) UV-BYTES INVALID.BYTE.SIZE]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,UV-BYTES PGLUE ![1006632960!]>> 


<ENDPACKAGE>