github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-03 14:49:18 +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

20
bin/mudbug/unlink.fbin Normal file
View File

@@ -0,0 +1,20 @@
'<PCODE "UNLINK">
<PACKAGE "UNLINK">
<ENTRY UNLINK PURE? UNPURIFY>
<SETG PURE? %<RSUBR!- '[ %<PCODE!- "UNLINK" 0> PURE? #DECL ("VALUE" <OR ATOM
FALSE> ANY) T %<RGLOC MUDDLE T> %<RGLOC UNPURIFY-PAGE T> COPY-FAILED
CANT-GET-NEW-CORE CANT-GET-PAGE "TMP" OBLIST SETG DEFINE #FALSE ("NOT A GROUP")
]>>
<AND <ASSIGNED? GLUE> .GLUE <PUT ,PURE? PGLUE ![1073741568!]>>
<SETG UNPURIFY %<RSUBR-ENTRY '[PURE? UNPURIFY #DECL ("VALUE" ATOM <OR <PRIMTYPE
VECTOR> <PRIMTYPE UVECTOR>>)] 15>>
<SETG UNLINK %<RSUBR-ENTRY '[PURE? UNLINK #DECL ("VALUE" <OR ATOM !<FALSE STRING
!>> <OR FALSE ATOM <LIST [REST ATOM]>> "OPTIONAL" <OR ATOM FALSE>)] 120>>
<ENDPACKAGE>