|
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: »tapecopytx«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦0f6e8048b⟧ »preditfile«
└─⟦this⟧
\f
comment predit text * page 3 11 02 80, 16.42
0 1 2 3 4 5 6 7 8 9 ;
comment case 1, tapecopy;
_________________________
begin
integer cl, ch;
integer array alfa(0:255);
boolean cont;
zone zin(250, 1, endblock), zout(250, 1, stderror);
procedure endblock(z, s, b);
zone z;
integer s, b;
if s extract 1 = 1 then stderror(z, s, b)
else
if cont and b = 0
and (s shift (-18) extract 1) = 1 then
begin
cont := false; b := 4;
z(1) := real <::>;
end;
for cl := 0 step 1 until 255 do
alfa(cl) := (6 shift 12) + cl;
intable(alfa);
open(zin, (4 shift 12) + 10, <:reader:>, 1 shift 18);
open(zout, (4 shift 12) + 12, <:punch:>, 0);
cont := true;
write(zout, false, 100);
for cl := read_char(zin, ch) while cont do
write(zout, false add ch, 1);
write(zout, false, 150);
close(zin, true);
close(zout, true);
end case 1, tapecopy;
▶EOF◀