|
DataMuseum.dkPresents historical artifacts from the history of: RC3500 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC3500 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFileVerbose
Names: »comparepas«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »comparepas«
job jaba 9 600 perm disc 5 1 time 2 0 size 70000
mode list.yes
(compare = pascal list.yes
finis)
program compare(output,input,fil1='p1',fil2='p2');
var
fil1, fil2 : file of integer;
startseg, lastseg, segcount, wcount, val1, val2 : integer;
begin
read(startseg,lastseg);
reset(fil1);
reset (fil2);
writeln('segm word fil1 fil2');
writeln;
for segcount := 0 to startseg-1 do
for wcount := 0 to 255 do
get(fil1);
for segcount := 0 to startseg - 1 do
for wcount := 0 to 255 do
get(fil2);
for segcount := startseg to lastseg do
begin
writeln(segcount);
for wcount := 0 to 255 do
begin
if fil1^ <> fil2^ then
writeln(segcount : 3, wcount * 2 : 4, ':', fil1^:8, fil2^ : 8 );
get(fil1); get(fil2);
end;
end;
end.
«eof»