1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-20 09:55:52 +00:00
PDP-10.its/bin/librm4/uvbyte.fbin

13 lines
293 B
Plaintext

'<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>