|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 15485 (0x3c7d)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
-- ada tasking tester
-- task head is the controller
-- tasks link are the chain of tasks
with Instrument;
use Instrument;
procedure Tpotc2 is
task Head;
task Link1 is
entry Give1;
entry Give2;
entry Give3;
entry Give4;
entry Give5;
entry Give6;
entry Give7;
entry Give8;
entry Give9;
entry Give10;
entry Give11;
entry Give12;
entry Give13;
entry Give14;
entry Give15;
entry Give16;
entry Give17;
entry Give18;
entry Give19;
entry Give20;
entry Give21;
entry Give22;
entry Give23;
entry Give24;
entry Give25;
entry Give26;
entry Give27;
entry Give28;
entry Give29;
entry Give30;
entry Give31;
entry Give32;
entry Give33;
entry Give34;
entry Give35;
entry Give36;
entry Give37;
entry Give38;
entry Give39;
entry Give40;
entry Give41;
entry Give42;
entry Give43;
entry Give44;
entry Give45;
entry Give46;
entry Give47;
entry Give48;
entry Give49;
entry Give50;
entry Give51;
entry Give52;
entry Give53;
entry Give54;
entry Give55;
entry Give56;
entry Give57;
entry Give58;
entry Give59;
entry Give60;
entry Give61;
entry Give62;
entry Give63;
entry Give64;
entry Give65;
entry Give66;
entry Give67;
entry Give68;
entry Give69;
entry Give70;
entry Give71;
entry Give72;
entry Give73;
entry Give74;
entry Give75;
entry Give76;
entry Give77;
entry Give78;
entry Give79;
entry Give80;
entry Give81;
entry Give82;
entry Give83;
entry Give84;
entry Give85;
entry Give86;
entry Give87;
entry Give88;
entry Give89;
entry Give90;
entry Give91;
entry Give92;
entry Give93;
entry Give94;
entry Give95;
entry Give96;
entry Give97;
entry Give98;
entry Give99;
entry Give100;
end Link1;
task body Head is
begin
Start ("TPOTC2", "Task Perf., Order Test (test)");
for I in 1 .. 100 loop
Link1.Give1;
Link1.Give2;
Link1.Give3;
Link1.Give4;
Link1.Give5;
Link1.Give6;
Link1.Give7;
Link1.Give8;
Link1.Give9;
Link1.Give10;
Link1.Give11;
Link1.Give12;
Link1.Give13;
Link1.Give14;
Link1.Give15;
Link1.Give16;
Link1.Give17;
Link1.Give18;
Link1.Give19;
Link1.Give20;
Link1.Give21;
Link1.Give22;
Link1.Give23;
Link1.Give24;
Link1.Give25;
Link1.Give26;
Link1.Give27;
Link1.Give28;
Link1.Give29;
Link1.Give30;
Link1.Give31;
Link1.Give32;
Link1.Give33;
Link1.Give34;
Link1.Give35;
Link1.Give36;
Link1.Give37;
Link1.Give38;
Link1.Give39;
Link1.Give40;
Link1.Give41;
Link1.Give42;
Link1.Give43;
Link1.Give44;
Link1.Give45;
Link1.Give46;
Link1.Give47;
Link1.Give48;
Link1.Give49;
Link1.Give50;
Link1.Give51;
Link1.Give52;
Link1.Give53;
Link1.Give54;
Link1.Give55;
Link1.Give56;
Link1.Give57;
Link1.Give58;
Link1.Give59;
Link1.Give60;
Link1.Give61;
Link1.Give62;
Link1.Give63;
Link1.Give64;
Link1.Give65;
Link1.Give66;
Link1.Give67;
Link1.Give68;
Link1.Give69;
Link1.Give70;
Link1.Give71;
Link1.Give72;
Link1.Give73;
Link1.Give74;
Link1.Give75;
Link1.Give76;
Link1.Give77;
Link1.Give78;
Link1.Give79;
Link1.Give80;
Link1.Give81;
Link1.Give82;
Link1.Give83;
Link1.Give84;
Link1.Give85;
Link1.Give86;
Link1.Give87;
Link1.Give88;
Link1.Give89;
Link1.Give90;
Link1.Give91;
Link1.Give92;
Link1.Give93;
Link1.Give94;
Link1.Give95;
Link1.Give96;
Link1.Give97;
Link1.Give98;
Link1.Give99;
Link1.Give100;
end loop;
Stop;
abort Link1;
end Head;
task body Link1 is
begin
loop
select
accept Give1 do
null;
end Give1;
or
accept Give2 do
null;
end Give2;
or
accept Give3 do
null;
end Give3;
or
accept Give4 do
null;
end Give4;
or
accept Give5 do
null;
end Give5;
or
accept Give6 do
null;
end Give6;
or
accept Give7 do
null;
end Give7;
or
accept Give8 do
null;
end Give8;
or
accept Give9 do
null;
end Give9;
or
accept Give10 do
null;
end Give10;
or
accept Give11 do
null;
end Give11;
or
accept Give12 do
null;
end Give12;
or
accept Give13 do
null;
end Give13;
or
accept Give14 do
null;
end Give14;
or
accept Give15 do
null;
end Give15;
or
accept Give16 do
null;
end Give16;
or
accept Give17 do
null;
end Give17;
or
accept Give18 do
null;
end Give18;
or
accept Give19 do
null;
end Give19;
or
accept Give20 do
null;
end Give20;
or
accept Give21 do
null;
end Give21;
or
accept Give22 do
null;
end Give22;
or
accept Give23 do
null;
end Give23;
or
accept Give24 do
null;
end Give24;
or
accept Give25 do
null;
end Give25;
or
accept Give26 do
null;
end Give26;
or
accept Give27 do
null;
end Give27;
or
accept Give28 do
null;
end Give28;
or
accept Give29 do
null;
end Give29;
or
accept Give30 do
null;
end Give30;
or
accept Give31 do
null;
end Give31;
or
accept Give32 do
null;
end Give32;
or
accept Give33 do
null;
end Give33;
or
accept Give34 do
null;
end Give34;
or
accept Give35 do
null;
end Give35;
or
accept Give36 do
null;
end Give36;
or
accept Give37 do
null;
end Give37;
or
accept Give38 do
null;
end Give38;
or
accept Give39 do
null;
end Give39;
or
accept Give40 do
null;
end Give40;
or
accept Give41 do
null;
end Give41;
or
accept Give42 do
null;
end Give42;
or
accept Give43 do
null;
end Give43;
or
accept Give44 do
null;
end Give44;
or
accept Give45 do
null;
end Give45;
or
accept Give46 do
null;
end Give46;
or
accept Give47 do
null;
end Give47;
or
accept Give48 do
null;
end Give48;
or
accept Give49 do
null;
end Give49;
or
accept Give50 do
null;
end Give50;
or
accept Give51 do
null;
end Give51;
or
accept Give52 do
null;
end Give52;
or
accept Give53 do
null;
end Give53;
or
accept Give54 do
null;
end Give54;
or
accept Give55 do
null;
end Give55;
or
accept Give56 do
null;
end Give56;
or
accept Give57 do
null;
end Give57;
or
accept Give58 do
null;
end Give58;
or
accept Give59 do
null;
end Give59;
or
accept Give60 do
null;
end Give60;
or
accept Give61 do
null;
end Give61;
or
accept Give62 do
null;
end Give62;
or
accept Give63 do
null;
end Give63;
or
accept Give64 do
null;
end Give64;
or
accept Give65 do
null;
end Give65;
or
accept Give66 do
null;
end Give66;
or
accept Give67 do
null;
end Give67;
or
accept Give68 do
null;
end Give68;
or
accept Give69 do
null;
end Give69;
or
accept Give70 do
null;
end Give70;
or
accept Give71 do
null;
end Give71;
or
accept Give72 do
null;
end Give72;
or
accept Give73 do
null;
end Give73;
or
accept Give74 do
null;
end Give74;
or
accept Give75 do
null;
end Give75;
or
accept Give76 do
null;
end Give76;
or
accept Give77 do
null;
end Give77;
or
accept Give78 do
null;
end Give78;
or
accept Give79 do
null;
end Give79;
or
accept Give80 do
null;
end Give80;
or
accept Give81 do
null;
end Give81;
or
accept Give82 do
null;
end Give82;
or
accept Give83 do
null;
end Give83;
or
accept Give84 do
null;
end Give84;
or
accept Give85 do
null;
end Give85;
or
accept Give86 do
null;
end Give86;
or
accept Give87 do
null;
end Give87;
or
accept Give88 do
null;
end Give88;
or
accept Give89 do
null;
end Give89;
or
accept Give90 do
null;
end Give90;
or
accept Give91 do
null;
end Give91;
or
accept Give92 do
null;
end Give92;
or
accept Give93 do
null;
end Give93;
or
accept Give94 do
null;
end Give94;
or
accept Give95 do
null;
end Give95;
or
accept Give96 do
null;
end Give96;
or
accept Give97 do
null;
end Give97;
or
accept Give98 do
null;
end Give98;
or
accept Give99 do
null;
end Give99;
or
accept Give100 do
null;
end Give100;
end select;
end loop;
end Link1;
begin
null;
end Tpotc2;