mirror of
https://github.com/PDP-10/its.git
synced 2026-01-19 01:27:05 +00:00
40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
'<PCODE "DATA">
|
|
|
|
<PACKAGE "DATA">
|
|
|
|
<ENTRY DATA-TYPE DATA-ITEM NUMBER>
|
|
|
|
'<USE-DEFER "TEMPLATE">
|
|
|
|
|
|
<SETG DATA-ITEM %<RSUBR!- '[ %<PCODE!- "DATA" 0> DATA-ITEM #DECL ("VALUE" ATOM
|
|
<OR ATOM <LIST ATOM <OR FALSE ATOM>>> ATOM "ARGS" LIST) MANIFEST TEMPLATE W-DATA
|
|
VUL-DECL TEMPLATE DECL ("ARGS" T) FORM !.T VECTOR UVECTOR LIST CHTYPE WORD
|
|
TUPLE BAD-TYPE-NAME!-ERRORS DATA-ITEM "OPTIONAL" "REST" DATA-TYPE T ANY
|
|
BAD-ARGUMENT!-ERRORS DATA!-PACKAGE [REST <NOT ANY>] REST PRIMTYPE OR
|
|
NOT-IMPLEMENTED!-ERRORS TOO-MANY-BITS!-ERRORS QUOTE LVAL PUTBITS COND ASSIGNED?
|
|
SET BODY "EXTRA" ALREADY-DEFINED-ERRET-NON-FALSE-TO-REDEFINE!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,DATA-ITEM PGLUE ![717225983 -1 -16777216!]>>
|
|
|
|
|
|
<SETG DATA-TYPE %<RSUBR-ENTRY '[DATA-ITEM DATA-TYPE #DECL ("VALUE" ATOM <OR ATOM
|
|
<LIST ATOM <OR FALSE ATOM>>> ATOM "ARGS" LIST)] 263>>
|
|
|
|
<SETG IDATA %<RSUBR-ENTRY '[DATA-ITEM IDATA #DECL ("VALUE" <UVECTOR LIST LIST
|
|
LIST> LIST)] 508>>
|
|
|
|
<SETG VUL-DECL %<RSUBR-ENTRY '[DATA-ITEM VUL-DECL #DECL ("VALUE" FORM ATOM LIST
|
|
LIST LIST)] 688>>
|
|
|
|
<SETG W-DATA %<RSUBR-ENTRY '[DATA-ITEM W-DATA #DECL ("VALUE" MACRO ATOM LIST)]
|
|
857>>
|
|
|
|
<SETG NUMBER %<RSUBR-ENTRY '[DATA-ITEM NUMBER #DECL ("VALUE" <UVECTOR [REST ATOM
|
|
]> FIX "TUPLE" <TUPLE [REST ATOM]>)] 1431>>
|
|
|
|
<SETG WORD-SIZE 36>
|
|
|
|
<MANIFEST WORD-SIZE>
|
|
|
|
<ENDPACKAGE>
|