|
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: 2304 (0x900)
Types: TextFile
Names: »help«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »help«
l./freefound:/,
l./w3:=address(zero);/,
d./!test 447;/,
i#
p_nr := w0 := 0;
try_next:
w3:=address(zero);
f1:=stdbase;
monitor(72);! set sos own cat base !
!test 445;
w3:=address(b.t_mdul);
monitor(80); !create pseudo process !
if w0 <> 0 then
begin
if w0 = 3 and w1 := p_nr < 9 then
begin
p_nr:=w1+1;
f1:=stdbase;
w0+1;w1+1;
stdbase:=f1;
goto try_next;
end
else
outtext(.w3.,w0:=8'31,w1:=procentry,w2:=6);
! process creation not ok !
goto error1;
end;
if w0 := p_nr > 0 then
begin
w2 := address(namestring);
copy(.w3.,w0:=8,w1:=string2,w2+2);
p_nr:=w0:=p_nr*2;
string2:=w2-2;
copy(.w3.,w0:=2,w1:=address(pn1)+p_nr,w2:=string2);
end;
if w3:=jobfile > 0 then
begin
tail(w1:=1);
w3:=jobfile;
monitor(42); ! lookup jobfile !
if w0 <> 0 then
begin
outtext(.w3.,w0:=8'31,w1:=procentry,w2:=10); ! no jobfile !
goto error1;
end;
end;
f1:=b.startbase;
w3:=address(zero);
monitor(72); ! reset sos own cat base !
!test 447;
#
▶EOF◀