Split up files.

[pdp10-muddle.git] / sumex / tty.muddle

diff --git a/sumex/tty.muddle b/sumex/tty.muddle
new file mode 100644 (file)
index 0000000..dceb10a
--- /dev/null
+++ b/sumex/tty.muddle
@@ -0,0 +1,42 @@
+<PACKAGE "TTY">        ;"TENEX VERSION"\r
+\r
+<ENTRY TTY-SET TTY-GET TTY-ON TTY-OFF>\r
+\r
+<SETG CALICO-MOD #WORD *700000*>       ;"wakeup on all but alpha, no echo"\r
+MUDDLE-MOD     ;"gunnasigned initially"\r
+\r
+<GDECL (CALICO-MOD MUDDLE-MOD) WORD>\r
+\r
+<TITLE TTY-GET>\r
+<PSEUDO <SET SFMOD #OPCODE *104000000110*>>    ;"JSYS 110"\r
+<PSEUDO <SET RFMOD #OPCODE *104000000107*>>    ;"JSYS 107"\r
+<DECLARE ("VALUE" WORD)>\r
+<HRRZI A* -1>  ;"controlling tty file desig"\r
+<RFMOD>\r
+<MOVSI A* TWORD>\r
+<JRST FINIS>\r
+\r
+<TITLE TTY-SET>\r
+<DECLARE ("VALUE" WORD <PRIMTYPE WORD>)>\r
+<HRRZI A* -1>\r
+<MOVE  B* 1 (AB)>\r
+<SFMOD>\r
+<MOVE  A* (AB)>\r
+<MOVE  B* 1 (AB)>\r
+<JRST FINIS>\r
+\r
+<END>\r
+\r
+<DEFINE TTY-OFF ()\r
+<COND (<NOT <GASSIGNED? MUDDLE-MOD>>\r
+       <SETG MUDDLE-MOD <TTY-GET>>)>\r
+       <TTY-SET ,CALICO-MOD>>\r
+\r
+<DEFINE TTY-ON ()\r
+<COND (<NOT <GASSIGNED? MUDDLE-MOD>>\r
+       <SETG MUDDLE-MOD <TTY-GET>>)\r
+       (<TTY-SET ,MUDDLE-MOD>)>>\r
+\r
+\r
+<ENDPACKAGE>\r
+\f
\ No newline at end of file