mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
34 lines
1.2 KiB
Plaintext
34 lines
1.2 KiB
Plaintext
'<PCODE "4SDML">
|
|
<PACKAGE "VCTMAN">
|
|
|
|
<ENTRY VCTBNS VCTINS UVCTINS VCTDLW BLT-THRU-UV>
|
|
|
|
<SETG VCTBNS %<RSUBR!- '[ %<PCODE!- "4SDML" 1606> VCTBNS #DECL ("VALUE" VECTOR
|
|
<OR VECTOR UVECTOR> <OR STRING <PRIMTYPE WORD>> "OPTIONAL" FIX FIX)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,VCTBNS PGLUE ![0!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,VCTBNS GLUE '![4316218448 21541945344
|
|
339742992 4294968384 4521988 21475885056 1 17179869184!]>>
|
|
|
|
<SETG VCTINS %<RSUBR!- '[ %<PCODE!- "4SDML" 1741> VCTINS #DECL ("VALUE" VECTOR
|
|
VECTOR FIX ANY "TUPLE" ANY) OUT-OF-BOUNDS!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,VCTINS PGLUE ![805306368!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,VCTINS GLUE '![67125252 67174417 4112
|
|
1073811456 263168 263424 268435712 17184064513 335544320 269485057 17179869232 0
|
|
!]>>
|
|
|
|
<SETG UVCTINS %<RSUBR-ENTRY '[VCTINS UVCTINS #DECL ("VALUE" UVECTOR UVECTOR FIX
|
|
ANY "TUPLE" ANY)] 116>>
|
|
|
|
<SETG VCTDLW %<RSUBR-ENTRY '[VCTINS VCTDLW #DECL ("VALUE" <OR VECTOR UVECTOR> <
|
|
OR VECTOR UVECTOR> FIX "OPTIONAL" FIX)] 79>>
|
|
|
|
<SETG BLT-THRU-UV %<RSUBR!- '[ %<PCODE!- "4SDML" 1956> BLT-THRU-UV #DECL (
|
|
"VALUE" UVECTOR UVECTOR)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,BLT-THRU-UV PGLUE ![0!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,BLT-THRU-UV GLUE '![67108864!]>>
|
|
|
|
<ENDPACKAGE>
|