Files from TOPS-20 <mdl.comp>.

[pdp10-muddle.git] / <mdl.comp> / nhelp.mud.4

diff --git a/<mdl.comp>/nhelp.mud.4 b/<mdl.comp>/nhelp.mud.4
new file mode 100644 (file)
index 0000000..c3aba06
--- /dev/null
+++ b/<mdl.comp>/nhelp.mud.4
@@ -0,0 +1,36 @@
+<NEWTYPE TOKEN VECTOR>
+
+<PUT SYMBOL DECL '<OR SYMTAB COMMON TEMP>>
+
+<REMOVE MUDREF!-OP!-PACKAGE>
+
+<NEWTYPE COMMON VECTOR '<VECTOR [4 ANY]>>
+
+<NEWTYPE MUDREF!-OP!-PACKAGE WORD>
+
+<SET REASONABLE T>
+<SET HELP-COMPIL T>
+<NEWTYPE SAVED-STATE
+        LIST
+        '<LIST [REST
+                <LIST AC
+                      <OR FALSE <LIST [REST SYMTAB]>>
+                      [REST <LIST SYMTAB ANY>]>]>>
+
+<NEWTYPE TEMPV LIST>
+
+
+<OR <GASSIGNED? DISPATCH> <DEFINE DISPATCH ("ARGS" FOO) []>>
+<SET GLUE!- T>
+
+<SETG IF!- ,AND>
+<SETG TEMPLATE-NTH T>
+<SETG TEMPLATE-PUT T>
+<SETG IF-NOT!- ,OR>
+<BLOCK (!.OBLIST <GET PACKAGE OBLIST>)>
+<FLOAD "CMP:BOPHAC">
+<FLOAD "CMP:MUDHAK">
+<BEGIN-HACK "COMPIL">
+<BEGIN-MHACK>
+<FLOAD "CMP:NN">
+\f
\ No newline at end of file