|
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: »gonimd«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦1248b0c55⟧ »gobib«
└─⟦this⟧
;gosav
o gopr
dtext=set 50
dtext=edit gonimfreq7
d6,l./nrc:=/,r/24/19/,l4,i/
nrc:= res(2) shift (-12) extract 12;
/,l./khi/,d,l./<:kb/,d./array u1/,
l./16000/,g15/000//,l1,s,i/
for i:= 1 step 1 until 10 do
write(res,nl,1,<:D:>,<<d>,if i<6 then i else
if i=6 then 0 else i-1,<< -ddddd.dddddd>,D(i));
for i:=11 step 1 until 14 do
write(res,nl,1,<:D:>,<<dd>,i-1,<< -ddddd.dddddd>,D(i));
for i:=1 step 1 until 6 do
write(res,nl,1,<:tau:>,<<d>,i,<< -ddddd.dddddd>,tau(i));
stop: write(res,nl,1,<:<25>:>); close(res,closeres);
end end;
/,f
nimd=set 50
nimd=algol dtext list.yes
permanent nimd.15
▶EOF◀