Twenex Muddle.

[pdp10-muddle.git] / <mdl.int> / bufmod.mid.4

diff --git a/<mdl.int>/bufmod.mid.4 b/<mdl.int>/bufmod.mid.4
new file mode 100644 (file)
index 0000000..0d96216
--- /dev/null
+++ b/<mdl.int>/bufmod.mid.4
@@ -0,0 +1,18 @@
+TITLE BUFMOD BUFFER MODULE
+
+RELOCA
+
+; HERE TO DEFINE MUDDLES BUFFER SPACE
+
+.GLOBAL STRBUF,STRPAG
+
+HERE==$.+1777
+
+.LOP ANDCM HERE 1777
+
+STRBUF==.LVAL1
+.LOP <ASH @> STRBUF <,-10.>
+STRPAG==.LVAL1
+
+END
+\f\ 3\ 3\ 3\ 3
\ No newline at end of file