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

Update NAMDRG to not need running with a fixed TTY number.

Browse Source
This commit is contained in:
Lars Brinkhoff 2019-01-02 11:16:45 +01:00
parent 5983d11663
commit 80726fc72c
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/sysen2/namdrg.148 → src/sysen2/namdrg.149
View File

@ -227,11 +227,15 @@ name: .close 1, ;close the channel we were loaded on
.suset [.roption,,a]
tlo a,%opint+%opliv+%opopc
.suset [.soption,,a]
move a,[squoze 0,nf11ty]
.eval a,
move b,[squoze 0,nf11ty]
.eval b, ;TTY # of console free display
.value
caie a,52
.value ;TTY # of console free display changed
setz c,
rotc b,-3 ;Compute the SIXBIT device name Tnn.
lsh b,3
rotc b,3
iori b,'T00
lsh b,18.
.suset [.s40addr,,[forty]]
.suset [.roption,,a]
skipe debug
@ -247,9 +251,10 @@ name: .close 1, ;close the channel we were loaded on
.value
jrst name2
name1: .open tyoc,[%tjmor+%tjctn+%tjdis+.uao,,'t52] ;char unit out, disp. mode, no continuation lns
name1: ;char unit out, disp. mode, no continuation lns
syscal OPEN,[ [%tjmor+%tjctn+%tjdis+.uao,,tyoc] ? setz b ]
.value
.open tybc,[%tjmor+%tjctn+%tjdis+.bao,,'t52]
syscal OPEN,[ [%tjmor+%tjctn+%tjdis+.bao,,tybc] ? setz b ]
.value
name2: .call [ setz ? 'cnsget ? 1000,,tyoc ? 2000,,tcmxv ? 2000,,tcmxh
2000,,a ? 2000,,a ? setzm a]