|
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: »outblocktx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »outblocktx «
begin
long array mtname, modename (1:2);
integer i, j, modekind, segm, counter, blocks, maxblocks, maxcounter;
write (out, "nl", 1, <:magtape name : :>); setposition (out, 0, 0);
readstring (in, mtname, 1);
write (out, "nl", 1, <:modekind : :>); setposition (out, 0, 0);
readstring (in, modename, 1);
write (out, "nl", 1, <:blocklength : :>); setposition (out, 0, 0);
read (in, segm);
write (out, "nl", 1, <:delay count : :>); setposition (out, 0, 0);
read (in, maxcounter);
write (out, "nl", 1, <:blocks : :>); setposition (out, 0, 0);
read (in, maxblocks);
<*write (out, "nl", 1, mtname, <: :>, modename, <: :>, segm,
maxcounter, maxblocks);
*>
begin
zone ztape (2 * segm * 128, 2, stderror);
j := 0;
for i := 1 step 1 until 8 do
if modename (1) = long ( case i of (
<:mto:>, <:mte:>, <:nrz:>, <:nrze:>,
<:mthh:>, <:mthl:>, <:mtlh:>, <:mtll:> )) then
begin j := i; i := 8; end;
if j > 0 then
modekind := case j of (
0, 2, 4, 6, 128, 132, 0, 4)
else
modekind := 0; <*default : mtlh*>
modekind := modekind shift 12 + 18;
open (ztape, modekind, mtname, 0);
setposition (ztape, 1, 0);
blocks := 0;
repeat
outrec6 (ztape, segm * 512);
counter := 0;
repeat
counter := counter + 1;
until counter = maxcounter;
blocks := blocks + 1;
until blocks = maxblocks;
end <*inner block*>;
end;
▶EOF◀