github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-04 15:16:32 +00:00
Code Issues Releases Wiki Activity

Added files and directories that support the MDL 55 runtime.

Browse Source
This commit is contained in:
Eric Swenson
2023-02-27 16:17:12 -08:00
parent e6cc51f558
commit d65e766017
647 changed files with 84263 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
bin/mbprog/data.fbin Normal file
View File

@@ -0,0 +1,39 @@
'<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>