mirror of
https://github.com/PDP-10/its.git
synced 2026-03-26 10:12:37 +00:00
24 lines
523 B
Groff
Executable File
24 lines
523 B
Groff
Executable File
;Program to echo characters exactly as typed (super image output).
|
|
a=1
|
|
|
|
ch==777777 ;Bit typeout mode mask.
|
|
chttyi==1
|
|
chttyo==2
|
|
|
|
start: .open chttyi,['tty]
|
|
.lose
|
|
.open chttyo,[%tjsio+.uao,,'tty]
|
|
.lose
|
|
; Turn off normal echoing. Make everything activate.
|
|
.call [setz ? 'ttyget ? %climm,,chttyi
|
|
%clout,,a ? %clout,,a ? 400000+%clout,,a]
|
|
.lose %lsfil
|
|
.call [setz ? 'ttyset ? %climm,,chttyi
|
|
[020202,,020202] ? [020202,,020202] ? 400000,,a]
|
|
.lose %lsfil
|
|
loop: .iot chttyi,a
|
|
.iot chttyo,a
|
|
jrst loop
|
|
|
|
end start
|