|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »tsetcspterm «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »tsetcspterm «
external
<* procedure setcspterm sætter terminalkarakteristikker for en cspterminal
kald:
setcspterm(navn,param);
setcspterm (retur,boolean) karakteristikker sat (true)
fejl (false)
navn (kald,long array) terminalnavn
param (kald,integer array) (1): mode 1/2/3/9
(2): echo 0/1
(3): prompt
(4): timeout
*>
boolean procedure setcspterm(navn,param);
long array navn;
integer array param;
begin
zone z(16,1,stderror);
integer i,j,k;
integer array shd(1:12), attr(1:8);
setcspterm:= false;
open(z,8,navn,0);
getshare6(z,shd,1);
shd(1):= 1;
shd(4):= 132 shift 12 + 0;
for i:= 5 step 1 until 11 do shd(i):= 0;
shd(5):= (param(2) extract 1) shift 11 + param(1) extract 11;
shd(7):= param(3) shift 8;
shd(10):= param(4) shift 8;
setshare6(z,shd,1);
monitor(16,z,1,shd);
if monitor(18,z,1,attr)=1 then
setcspterm:= true;
close(z,false);
end;
end
▶EOF◀