Sharp PYTHAGORUS - Page 88

80 | Page
Vancouver airport 14’ ASL
Temperature -25’C
Minimum Safe Altitude (MSA) 10,00’
FINAL APPROACH FIX (FAF) 1400’
DH / DA / MDA 214’
Once the first two inputs are made, they remain constant and the

LINE
CODE

00;
DSP “ALTITUDE CORRECTION” 
Roune name.
01;
DSP “ATMP AASL FASL” 
Variable prompt order.
02;
HLT A,B,C

Input:
- airport temperature.
- Airport altude above seal level.
- Fix altude (this is the variable that
changes each me the subroune is
called).
03;
.00198 => R 
constant
04;
A + R * B => T 
05;
“A” 
Subrou�ne which is used for the next corrected
al�tude computa�on.
06;
C *( (15 – T) / ( (273 + T) -.5 * R * (B + C)))=> H 
07;
H + C => H 
08;
INT (H) => H 
09;
DSP “ CORR. ALTITUDE=” 
10;
H => HLT, PRT H 
11;
DSP “NEXT FIX. ALT?” 
prompt request for the next fix altude
12;
HLT C

stop and input next altude. Press the
“A” key and the new corrected altude is
displayed.
13;
END END 