sumex/tty.muddle

   1 <PACKAGE "TTY"> ;"TENEX VERSION"\r
   2 \r
   3 <ENTRY TTY-SET TTY-GET TTY-ON TTY-OFF>\r
   4 \r
   5 <SETG CALICO-MOD #WORD *700000*>        ;"wakeup on all but alpha, no echo"\r
   6 MUDDLE-MOD      ;"gunnasigned initially"\r
   7 \r
   8 <GDECL (CALICO-MOD MUDDLE-MOD) WORD>\r
   9 \r
  10 <TITLE TTY-GET>\r
  11 <PSEUDO <SET SFMOD #OPCODE *104000000110*>>     ;"JSYS 110"\r
  12 <PSEUDO <SET RFMOD #OPCODE *104000000107*>>     ;"JSYS 107"\r
  13 <DECLARE ("VALUE" WORD)>\r
  14 <HRRZI A* -1>   ;"controlling tty file desig"\r
  15 <RFMOD>\r
  16 <MOVSI  A* TWORD>\r
  17 <JRST FINIS>\r
  18 \r
  19 <TITLE TTY-SET>\r
  20 <DECLARE ("VALUE" WORD <PRIMTYPE WORD>)>\r
  21 <HRRZI A* -1>\r
  22 <MOVE   B* 1 (AB)>\r
  23 <SFMOD>\r
  24 <MOVE   A* (AB)>\r
  25 <MOVE   B* 1 (AB)>\r
  26 <JRST FINIS>\r
  27 \r
  28 <END>\r
  29 \r
  30 <DEFINE TTY-OFF ()\r
  31 <COND (<NOT <GASSIGNED? MUDDLE-MOD>>\r
  32         <SETG MUDDLE-MOD <TTY-GET>>)>\r
  33         <TTY-SET ,CALICO-MOD>>\r
  34 \r
  35 <DEFINE TTY-ON ()\r
  36 <COND (<NOT <GASSIGNED? MUDDLE-MOD>>\r
  37         <SETG MUDDLE-MOD <TTY-GET>>)\r
  38         (<TTY-SET ,MUDDLE-MOD>)>>\r
  39 \r
  40 \r
  41 <ENDPACKAGE>\r
  42 \f