|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 13312 (0x3400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Conversion_Cb, seg_05b82a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Cb_Lincoln;
package body Conversion_Cb is
-- type Conversion_Vers_Frequence is array (canal) of Mhz;
-- Canal_Vers_Frequence : Conversion_Vers_Frequence:=( 1 => 26.965,
-- 2 => 26.975,
-- 3 => 26.985,
-- 4 => 27.005,
-- 5 => 27.015,
-- 6 => 27.025,
-- 7 => 27.035,
-- 8 => 27.055,
-- 9 => 27.065,
-- 10 => 27.075,
-- 11 => 27.085,
-- 12 => 27.105,
-- 13 => 27.115,
-- 14 => 27.125,
-- 15 => 27.135,
-- 16 => 27.155,
-- 17 => 27.165,
-- 18 => 27.175,
-- 19 => 27.185,
-- 20 => 27.205,
-- 21 => 27.215,
-- 22 => 27.225,
-- 23 => 27.255,
-- 24 => 27.235,
-- 25 => 27.245,
-- 26 => 27.265,
-- 27 => 27.275,
-- 28 => 27.285,
-- 29 => 27.295,
-- 30 => 27.305,
-- 31 => 27.315,
-- 32 => 27.325,
-- 33 => 27.335,
-- 34 => 27.345,
-- 35 => 27.355,
-- 36 => 27.365,
-- 37 => 27.375,
-- 38 => 27.385,
-- 39 => 27.395,
-- 40 => 27.405);
function Frequence_Vers_Canal
(La_Frequence : in Cb_Lincoln.Mhz) return Cb_Lincoln.Canal is
use Cb_Lincoln;
begin
if La_Frequence >= 26.960 and La_Frequence <= 26.969 then
return 1;
elsif La_Frequence >= 26.970 and La_Frequence <= 26.979 then
return 2;
elsif La_Frequence >= 26.980 and La_Frequence <= 26.994 then
return 3;
elsif La_Frequence >= 26.995 and La_Frequence <= 27.009 then
return 4;
elsif La_Frequence >= 27.010 and La_Frequence <= 27.019 then
return 5;
elsif La_Frequence >= 27.020 and La_Frequence <= 27.029 then
return 6;
elsif La_Frequence >= 27.030 and La_Frequence <= 27.044 then
return 7;
elsif La_Frequence >= 27.045 and La_Frequence <= 27.059 then
return 8;
elsif La_Frequence >= 27.060 and La_Frequence <= 27.069 then
return 9;
elsif La_Frequence >= 27.070 and La_Frequence <= 27.079 then
return 10;
elsif La_Frequence >= 27.080 and La_Frequence <= 27.094 then
return 11;
elsif La_Frequence >= 27.095 and La_Frequence <= 27.109 then
return 12;
elsif La_Frequence >= 27.110 and La_Frequence <= 27.119 then
return 13;
elsif La_Frequence >= 27.120 and La_Frequence <= 27.129 then
return 14;
elsif La_Frequence >= 27.130 and La_Frequence <= 27.144 then
return 15;
elsif La_Frequence >= 27.145 and La_Frequence <= 27.159 then
return 16;
elsif La_Frequence >= 27.160 and La_Frequence <= 27.169 then
return 17;
elsif La_Frequence >= 27.170 and La_Frequence <= 27.179 then
return 18;
elsif La_Frequence >= 27.180 and La_Frequence <= 27.194 then
return 19;
elsif La_Frequence >= 27.195 and La_Frequence <= 27.209 then
return 20;
elsif La_Frequence >= 27.210 and La_Frequence <= 27.219 then
return 21;
elsif La_Frequence >= 27.220 and La_Frequence <= 27.229 then
return 22;
elsif La_Frequence >= 27.250 and La_Frequence <= 27.259 then
return 23;
elsif La_Frequence >= 27.230 and La_Frequence <= 27.239 then
return 24;
elsif La_Frequence >= 27.240 and La_Frequence <= 27.249 then
return 25;
elsif La_Frequence >= 27.260 and La_Frequence <= 27.269 then
return 26;
elsif La_Frequence >= 27.270 and La_Frequence <= 27.279 then
return 27;
elsif La_Frequence >= 27.280 and La_Frequence <= 27.289 then
return 28;
elsif La_Frequence >= 27.290 and La_Frequence <= 27.299 then
return 29;
elsif La_Frequence >= 27.300 and La_Frequence <= 27.309 then
return 30;
elsif La_Frequence >= 27.310 and La_Frequence <= 27.319 then
return 31;
elsif La_Frequence >= 27.320 and La_Frequence <= 27.329 then
return 32;
elsif La_Frequence >= 27.330 and La_Frequence <= 27.339 then
return 33;
elsif La_Frequence >= 27.340 and La_Frequence <= 27.349 then
return 34;
elsif La_Frequence >= 27.350 and La_Frequence <= 27.359 then
return 35;
elsif La_Frequence >= 27.360 and La_Frequence <= 27.369 then
return 36;
elsif La_Frequence >= 27.370 and La_Frequence <= 27.379 then
return 37;
elsif La_Frequence >= 27.380 and La_Frequence <= 27.389 then
return 38;
elsif La_Frequence >= 27.390 and La_Frequence <= 27.399 then
return 39;
else
return 40; --pour une frequence de 27.400 a 27.409 Mhz.
end if;
end Frequence_Vers_Canal;
function Canal_Vers_Frequence
(Le_Canal : in Cb_Lincoln.Canal) return Cb_Lincoln.Mhz is
begin
case Le_Canal is
when 1 =>
return 26.965;
when 2 =>
return 26.975;
when 3 =>
return 26.985;
when 4 =>
return 27.005;
when 5 =>
return 27.015;
when 6 =>
return 27.025;
when 7 =>
return 27.035;
when 8 =>
return 27.055;
when 9 =>
return 27.065;
when 10 =>
return 27.075;
when 11 =>
return 27.085;
when 12 =>
return 27.105;
when 13 =>
return 27.115;
when 14 =>
return 27.125;
when 15 =>
return 27.135;
when 16 =>
return 27.155;
when 17 =>
return 27.165;
when 18 =>
return 27.175;
when 19 =>
return 27.185;
when 20 =>
return 27.205;
when 21 =>
return 27.215;
when 22 =>
return 27.225;
when 23 =>
return 27.255;
when 24 =>
return 27.235;
when 25 =>
return 27.245;
when 26 =>
return 27.265;
when 27 =>
return 27.275;
when 28 =>
return 27.285;
when 29 =>
return 27.295;
when 30 =>
return 27.305;
when 31 =>
return 27.315;
when 32 =>
return 27.325;
when 33 =>
return 27.335;
when 34 =>
return 27.345;
when 35 =>
return 27.355;
when 36 =>
return 27.365;
when 37 =>
return 27.375;
when 38 =>
return 27.385;
when 39 =>
return 27.395;
when 40 =>
return 27.405;
end case;
end Canal_Vers_Frequence;
end Conversion_Cb;
nblk1=c
nid=0
hdr6=18
[0x00] rec0=10 rec1=00 rec2=01 rec3=066
[0x01] rec0=0d rec1=00 rec2=0b rec3=086
[0x02] rec0=0e rec1=00 rec2=09 rec3=00c
[0x03] rec0=15 rec1=00 rec2=08 rec3=062
[0x04] rec0=04 rec1=00 rec2=07 rec3=03c
[0x05] rec0=15 rec1=00 rec2=06 rec3=020
[0x06] rec0=15 rec1=00 rec2=05 rec3=060
[0x07] rec0=19 rec1=00 rec2=04 rec3=028
[0x08] rec0=23 rec1=00 rec2=03 rec3=006
[0x09] rec0=00 rec1=00 rec2=0c rec3=00c
[0x0a] rec0=23 rec1=00 rec2=02 rec3=01e
[0x0b] rec0=10 rec1=00 rec2=0a rec3=000
tail 0x2176afde4894b4ff949e2 0x42a00088462060003