|
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: »prodtapetx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »prodtapetx «
mode list.yes
prodtape=algol survey.yes
begin
integer i, j, shares, segm, blocks, res;
integer array ia (1:20);
integer field mode, file, block, int;
integer array field name;
mode := 2;
name := 2;
file := 14;
block := 16;
int := 2;
read (in, shares, segm, blocks);
write (out, "nl", 1,
"nl", 1, <:shares = :>, shares,
"sp", 4, <:segm = :>, segm ,
"sp", 4, <:blocks = :>, blocks);
stopzone (out, false);
begin
zone z (shares * segm * 128, shares, stderror);
open (z, 0, <:t:>, 0);
close (z, true);
res := monitor (42, z, i, ia);
if res <> 0 then
system (9, res, <:<10>lookup t:>);
<* write (out, << ddd>,
"nl", 1, <:t = :>, ia.mode shift (-12) extract 11, ia.mode extract 12,
ia.name, ia.file, ia.block);
*>
open (z, ia.mode, ia.name, 0);
setposition (z, ia.file, ia.block);
for i := 1 step 1 until blocks do
begin
outrec6 (z, segm * 512);
z.int := i;
end;
close (z, true);
end;
end;
▶EOF◀