github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-04 15:53:01 +00:00
Code Issues Releases Wiki Activity

TTYTST - echo characters exactly as typed.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-10-15 13:13:20 +00:00
parent be91713a38
commit 935e53a458
3 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/sysen2/ttytst.3 Executable file
View File

@@ -0,0 +1,23 @@
;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