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

Make 340D optionally use the Stanford keyboard for input.

Browse Source
This commit is contained in:
Lars Brinkhoff
2019-01-06 21:48:32 +01:00
parent bf3adaa8dd
commit 5db214a38d
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/stan_k/340d.3 → src/stan_k/340d.4
View File

@@ -18,6 +18,7 @@ width=117
height=50
ifndef new,new=0 ;Use new ASCII characters instead of old.
ifndef stkp,stkp=1 ;Use Stanford keyboard.
a=1
b=2
@@ -43,6 +44,10 @@ verti==200000
lshift==7
lchars==<1_lshift>
;STK device ITS mode: meta = 200, and the control bucky bit is
;converted to ASCII control characters.
%its==40
loc 42
tsint
@@ -56,7 +61,8 @@ start: move p,[-pdllen,,pdl-1]
.lose
.open styi,[.uii,,'STY]
.lose
.open ttyi,[.uii,,'TTY]
ifn stkp,.open ttyi,[%its+.uii,,'STK] ;ITS mode.
.else, .open ttyi,[.uii,,'TTY]
.lose
.call [ setz
sixbit /cnsget/