|
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: »tlistentry«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »tlistentry«
mode list.yes
(listentry=set 1
global listentry
listentry=algol list.yes
test=algol
test
mode list.no
)
1981.11.04 Anders Lindgård
external procedure listentry(z,entry);
zone z; integer array entry;
begin
long array field name,doc;
integer array field t;
t:=14; name:=6; doc:=2;
write(z,"nl",1,true,11,entry.name,<:= set :>,entry.t(1),
"sp",1,true,11,entry.t.doc);
outshortcl(z,entry.t(6));
write(z,<< ddd>,entry.t(7),entry.t(8),entry.t(9),entry.t(10),"nl",1,
"sp",12,<:; :>,entry(1) extract 3,entry(2),entry(3));
end;
end;
begin
integer array t(1:17);
headandtail(<:algol:>,t);
listentry(out,t);
end
▶EOF◀