mirror of
https://github.com/PDP-10/its.git
synced 2026-02-17 21:27:17 +00:00
68 lines
767 B
Groff
Executable File
68 lines
767 B
Groff
Executable File
;-*-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=<PUSHJ P,>
|
|
Return=<POPJ P,>
|
|
|
|
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
|