
Var 0001, name Float32, Link SUBRUTINE
{
L0 = TESTBIT &Float32 ,31
IF L0 = 1
{
&Signe = -1
}
ELSE
{
&Signe = 1
}
&exp = -127
L0 = TESTBIT &Float32 ,23
&exp = L0 + &exp
L0 = TESTBIT &Float32 ,24
L0 = 2 * L0
&exp = L0 + &exp
L0 = TESTBIT &Float32 ,25
L0 = 4 * L0
&exp = L0 + &exp
L0 = TESTBIT &Float32 ,26
L0 = 8 * L0
&exp = L0 + &exp
L0 = TESTBIT &Float32 ,27
L0 = 16 * L0
&exp = L0 + &exp
L0 = TESTBIT &Float32 ,28
L0 = 32 * L0
&exp = L0 + &exp
L0 = TESTBIT &Float32 ,29
L0 = 64 * L0
&exp = L0 + &exp
L0 = TESTBIT &Float32 ,30
L0 = 128 * L0
&exp = L0 + &exp
&Mantisse = 0
L0 = TESTBIT &Float32 ,22
L0 = L0 / 2
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,21
L0 = L0 / 4
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,20
L0 = L0 / 8
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,19
L0 = L0 / 16
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,18
L0 = L0 / 32
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,17
L0 = L0 / 64
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,16
L0 = L0 / 128
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,15
L0 = L0 / 256
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,14
L0 = L0 / 512
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,13
L0 = L0 / 1024
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,12
L0 = L0 / 2048
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,11
L0 = L0 / 4096
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,10
L0 = L0 / 8192
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,9
L0 = L0 / 16384
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,8
L0 = L0 / 32768
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,7
L0 = L0 / 65536
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,6
L0 = L0 / 131072
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,5
L0 = L0 / 262144
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,4
L0 = L0 / 524288
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,3
L0 = L0 / 1048576
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,2
L0 = L0 / 2097152
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,1
L0 = L0 / 4194304
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = TESTBIT &Float32 ,0
L0 = L0 / 8388608
L0 = L0 * 10000000
&Mantisse = L0 + &Mantisse
L0 = &Mantisse / 10000000
L0 = L0 + 1
L1 = POWER 2 ,&exp
L2 = &Signe * L0
L2 = L2 * L1
&Resultat = TRUNC L2
}
Var 0002, name Signe
Var 0003, name exp
Var 0004, name Mantisse
Var 0006, name Resultat
Var 0007, name eng1fuel, Link FSUIPC_INOUT, Offset $090C, Length 4
{
CALL &Float32, &eng1fuel
}
JeeHell a écrit:Voilà, j'espère ne pas t'avoir trop troublé
Retourner vers Programmes testés et prêts à l'emploi
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 11 invités