|
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: »ncpret«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »ncpret«
tncp1= edit tncp
l./dure linkup(/,
l1, i/
value hostno, devicehost;
/, l1, p-2
l./ifi=1/, d 1, i!
hostconnected := false;
linkup := -1; <*shdescr(1) was 0 before wait answer *>
!,
l./else/, r/else/else if i = 1 then/, p-5
l./host_connected:=/, d-1, p-1
l./raf:=2/, l1, i!
close(z, true);
i :=1; open(z, 12, string process_description.raf(increase(i)),0);
getshare6(z, shdescr, 1);
shdescr(4) := 8 shift 12; shdescr(5) := 0;
setshare6(z, shdescr, 1);
monitor(16)send_message:(z, 1, shdescr);
i := monitor(18)wait_answer:(z, 1, shdescr);
if i > 1 or shdescr(1)<>0 then
monitor(64)remove_process:(z, 1, shdescr) else
begin
linkup := 0;
host_connected := true;
!,
l./end/,r/;/ end;/,
l./endelse/, d./close(z,true)/,
f
end
▶EOF◀