|
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: »intrpffjob«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦093e2ad1c⟧
└─⟦this⟧ »intrpffjob«
job hlv 3 1000 time 11 0 size 20000 temp disc 1000 10,
device punch
(mode list.yes
intrpffprom=set 1 disc
intrpffprom=algol list.yes bossline.yes
if ok.no
finis
head 1
headpunch
headpunch roa568
intrpffprom
finis)
begin
integer i,j;
zone z(128,1,stderror);
open(z,4 shift 12 + 12,<:punch:>,0);
write(z,false,100,false add 255,1);
for i:= 0 step 1 until 255 do
begin
j:=
(if i extract 1 = 1 then 63 else
if i shift (-4) extract 1 = 1 then 55 else
if i shift (-2) extract 1 = 1 then 47 else
if i shift (-6) extract 1 = 1 then 39 else
if i shift (-1) extract 1 = 1 then 31 else
if i shift (-5) extract 1 = 1 then 23 else
if i shift (-3) extract 1 = 1 then 15 else 7);
if i extract 4 = 0 then write(out,<:<10>adr: :>,<<ddd>,i,<: : :>)
else write(out,<: , :>);
write(out,<<ddd>,j);
write(z,false add (255-j),1);
end;
write(z,false,100);
close(z,true);
end;
▶EOF◀