|
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 - download
Length: 96768 (0x17a00)
Types: TextFile
Names: »stopbyatttx «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─ ⟦this⟧ »stopbyatttx «
(
message stopbyatt
stopbyatt=set 1
stopbyatt=algol message.no
;scope project stopbyatt
)
external
boolean procedure stop_by_att(name);
long array name;
begin
boolean procedure att(stop,navn);
boolean stop; long array navn;
if stop then
begin
att:= true;
stop_by_att:= stop;
write(out,<:<10>Stopcommand from :>);
if stop shift (-1) then
write(out,<:internal process :>,navn) else
write(out,<:operator:>);
outchar(out,10)
end else att:= false;
integer array ia(1:9);
zone z(1,1,stderror);
integer res,i;
stop_by_att:= false;
i:= 0;
for res:= ventatt(false,z,i,ia,name,att) while res>=0 do
if res=0 then
begin
monitor(26) get event :(z,i,ia);
ia(9):= 2;
monitor(22) send answer :(z,i,ia);
i:= 0
end
end stop_by_att;
end
▶EOF◀