mirror of
https://github.com/PDP-10/its.git
synced 2026-01-20 09:55:52 +00:00
13 lines
293 B
Plaintext
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>
|