|
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: »edlist«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦baac87bee⟧ »gi«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦baac87bee⟧ »gi«
└─⟦this⟧
mode list.yes
lkj=lookup listerrortx
if ok.no
extract from.gi listerrortx
tlisterror=edit listerrortx
i/
(mode list.yes
listerror=algol connect.no
if ok.no warning.yes
finisb
scope user listerror
mode list.no
finisb)
/,l./beg/,l1,i/
own long longzero;
/,
g b/,nl,/, "nl",/,f
alzq=edit tlisterror
g b/,ff,/, "ff",/,f
tlisterror=edit alzq
g b/sp,/ "sp",/,f
alzq=edit tlisterror
l./lookup_proc/,r/v/comment v/,l1,i/
val:=lookuptail(input_file,kind);
/,
l./stdtable/,r/std/iso/,f
tlisterror=edit alzq
g b;pump(;inc(;,f
alzq=edit tlisterror
l./in./,r/in.//,l-1,r/ //,l2,
r/ //,
l./bool/,r/;/,bossline;/,
l1,i/
array field af;
/,l./algol/,i/
af:=0;
/,l./***R/,d./open(zn/,i/
initfp;
readbfp(<:boss:>,bossline,false);
nbr:=1;
if -,readifp(<:l:>,writeline(nbr),0) then
alarm(<:***listerror no lines specified:>);
nbr:=2;
while readifpnext(fpnr,writeline(nbr)) do nbr:=nbr+1;
if -,readinfp(input_file.af,1) then
alarm(<:***listerror no input file specified:>);
val:=lookup_tail(inputfile,kind);
if val>0 then alarm(<:***listerror :>,string inc(inputfile.af),
<: does not exist:>);
if kind(1)<0 or kind(9)<>0 then
alarm(<:***listerror :>,string inc(inputfile.af),<: not text:>);
connectlso;
open(zn,4,inputfile,0);
/,
l./<<ddddd>/,r/,1/,1);
if bossline then write(out/,
r/nr,/nr);
write(out,/,
f
tlisterror=edit alzq
f
scope day tlisterror
mode list.no
▶EOF◀