X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=%3Cmdl.comp%3E%2Fsbrnam.mud.1;fp=%3Cmdl.comp%3E%2Fsbrnam.mud.1;h=d6cc393dbd66d4fa0a49985d1b6871531649bd51;hb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413;hp=0000000000000000000000000000000000000000;hpb=363cc6ead5cf4df20759797fe46b5dc29b3886e9;p=pdp10-muddle.git

diff --git a/<mdl.comp>/sbrnam.mud.1 b/<mdl.comp>/sbrnam.mud.1
new file mode 100644
index 0000000..d6cc393
--- /dev/null
+++ b/<mdl.comp>/sbrnam.mud.1
@@ -0,0 +1,20 @@
+
+
+	<TITLE HACK-NAME>
+	<DECLARE ("VALUE" ATOM SUBR)>
+	<PUSH	TP* (AB)>
+	<PUSH	TP* 1(AB)>
+	<PUSHJ	P* IHACK-NAME>
+	<JRST	FINIS>
+
+	<INTERNAL-ENTRY IHACK-NAME 1>
+	<SUBM	M* (P)>
+	<MOVSI	A* <TYPE-CODE ATOM>>
+	<HRRZ	B* (TP)>
+	<MOVE	B* @ -1 (B)>
+	<SUB	TP* [<2 (2)>]>
+	<JRST	MPOPJ>
+
+
+
+
\ No newline at end of file