Files from TOPS-20 <mdl.comp>.

[pdp10-muddle.git] / <mdl.comp> / sbrnam.mud.1

diff --git a/<mdl.comp>/sbrnam.mud.1 b/<mdl.comp>/sbrnam.mud.1
new file mode 100644 (file)
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>
+
+
+
+\ 3\ 3
\ No newline at end of file