|
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: 768 (0x300)
Types: TextFile
Names: »tgetcspterm «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »tgetcspterm «
external
boolean procedure getcspterm(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);
getcspterm:= false;
open(z,8,navn,0);
getshare6(z,shd,1);
shd(1):= 1;
shd(4):= 134 shift 12 + 0;
for i:= 5 step 1 until 11 do shd(i):= 0;
setshare6(z,shd,1);
monitor(16,z,1,shd);
if monitor(18,z,1,attr)=1 then
begin
param(1):= attr(2) extract 11;
param(2):= attr(2) shift (-11) extract 1;
param(3):= attr(4) shift (-8);
param(4):= attr(7) shift (-8);
getcspterm:= true;
end;
close(z,false);
end;
end
▶EOF◀