diff --git a/build/misc.tcl b/build/misc.tcl index f42171ea..9fc5370a 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -625,6 +625,10 @@ respond "*" ":midas sys3;ts yow_maeda; yow\r" expect ":KILL" respond "*" ":link device;chaos yow, sys3; ts yow\r" +# yow client +respond "*" ":midas sysnet;ts yow_sysen2; yow\r" +expect ":KILL" + # @ respond "*" ":midas sys;ts @_sysen1;@\r" expect ":KILL" diff --git a/src/sysen2/yow.5 b/src/sysen2/yow.5 new file mode 100755 index 00000000..91f97908 --- /dev/null +++ b/src/sysen2/yow.5 @@ -0,0 +1,67 @@ +;-*-Midas-*- + + Title :YOW + +A=1 +B=2 +C=3 +D=4 +E=5 +T=10 +TT=11 +P=17 + +PDLen==40 +BufLen==40 + +TTYo==1 +CHAOSi==2 +CHAOSo==3 + +Call= +Return= + +Define SYSCAL op,args + .Call [Setz ? Sixbit /op/ ? args ((Setz))] +Termin + +PDL: -PDLen,,. + Block PDLen + +Buffer: Block BufLen + +Debug: 0 + +HostNo: 16310 ;Kludge built-in host# for MIT-CCC + + +$$CHAOS==1 +$$ANALYZE==1 +$$ERRHAN==1 +$$SIMPLE==1 +.INSRT SYSENG;NETWRK + +Begin: Move P,PDL + Syscal OPEN,[%Clbit,,.uao + %Climm,,TTYo + [Sixbit /TTY/]] + .Lose %lsFile + Movei A,CHAOSi + Move B,HostNo + Movei C,[Asciz "YOW"] + Move D,[-BufLen,,Buffer] + Call NETWRK"CHASMP + Jrst Die + Jfcl + Move B,[440700,,Buffer] +Loop: Ildb A,B + Jumpe A,Die + .Iot TTYo,A + Jrst Loop + +Die: .Logout 1, + +PutChr: .Iot TTYo,T + Return + + End Begin