Filter
Top Products
i
AP
X:286 MACRO ASSEMBLER
LOC
08,)
007F
007F
D9F2
OOBI
0081
F6C742
0094
?BIA
0096
D9Cl
OOBS
EllA
OOSA
DOBA DDDS
OOSC
7404
OOBE
7002
0090
D9FB
0092
0092
0092
C3
0o,3
0093
D9ES
009'
EBEA
0097
0097
OED.
0099
2ED9060AOO
009E
99
009F
C3
OOAO
OOAO
D9CO
00A2
D9CA
00A4
00A4
Dcea
OOA6
D9C9
00A8
DCCB
OOAA
DEC!
OOAC
D9FA
OOAE
80E701
0001
80E402-
0094
DAFe
0006
7A02
OODB
09EO
OOBA
OOBA
DEF'
DOBC
C3
NUMERIC PROGRAMMING EXAMPLES
B0287
T1'ignometl'ic
Functioni;
10: 13:
51
09/25/83
PAGE
LINE
207
20B
20.
210
211
212
213
.14
210
21.
.17
21B
.1.
220
221
2
••
22'
224
22'
22.
•
27
22B
229
230
231
=
233
.34
235
23.
237
2.B
23.
240
.41
.42
243
244
245
2
••
.47
.4B
•••
2.0
201
2.2
253
2
••
••
5
2
••
257
25B
•••
2.0
••
1
2
••
2.3
2.'
••
5
2
••
2.7
2.B
2
••
270
271
272
27.
274
27S
.7.
277
278
27.
2BO
2Bl
28.
28.
2B4
.B5
.8.
2B7
.88
2B.
2'0
2.1
2.2
2.3
2.4
2.'
296
+1
2.7
2.B
2.'
300
SOURCE
Assert::
0 (
steOl
<-
PII4
,
dD_sine_fphn:
flpten
, TAN
9nO)
•
STeu/snol
...
V/X
IIfte"
_sine_flpten:
te.t
bh.highCmilsk
c:and3
+
m.sk
cond!).
L.ao.
at
octant
angle
fell
into
JPo
X_numeT'atoT' I
C.lcul.te
cosine
'aT'
Dctenh
I
1,2.9.6
Calculate
the
sine
of
the
aT'~ument.
sinCA)
...
tanCA)/sq,T't<1+tanCA)**2)
if
tenCA)
...
V/X
then
sinCA)
...
V/sqrt(X_X
+ V-V)
'Id
Jmp
stCl)
shoT't
finhh_sine
I Cop V V
value
I
Put
V
value
in
numeT'atoT'
The
top
0'
the
stack
is
eUheT'
NAN.
infinitv.
OT'
emptv
.
,
funnv"paT'ameteT':
fstp
J'
JPO
steO)
retuT'n_empt"
T'.tuT'n..NAN
, Remove
PII4
I
Return
empt\l
if
no
paT'm
I Jump
if
st(OI
is
NAN
st(O)
is
infinit".
R.tuT'n·
an
indefinite
value.
'pT'em I
STell
can
be
·.n\lthing
T'etuT'n..NAN:
T'etuT'n_emp tV:
••
t
I
Ok
to
hillve
fpT'em
T'unning
I
Simuleh
'ptan
lIIith
~tCO)
...
0
,
Il.ne_aT'gument_zeT'o:
I
Simulate
tanCO)
I
RetuT'n
the
zeT'O
value
The
anllh
ilia.
tao
laT'lIe. Remove
the
modulull
and
divl.dend
fT'om
the
stack
and
retuT'n
an
indefinite
T'e~ult.
fcompp
Hd
indefinite
flllOl1t
rot
Calculate
the
cosine
of
the
aT'gument.
I
Pop
tlllO
valulls
for'om
the
stack
I
RetuT'n
indefinite
I
Wait
foT'
load
to
finish
cosCA)
-
1/sqrtC1+tanCA)**2)
if
tenIA)
III
V/X
then
cas
(A) =
X/sq,rtex*x
+
V*V)
,
X_numeT'atoT':
finish
fld
st(O)
,
COP\!
X
value
fxch
~t(2)
Put
X
in
numeT'atoT'
_sine:
fmul
st.
st(O)
,
FOT'm
x*x
+ V.V
Fxch
fmul
st,st(O)
hdd
st<O)
=
X'X
+ V*V
hq,rt
steOI
.
sqrteX*X
+
V*V)
FOT'm
the
sign
of
the
T'esult.
The
hID
conditions
are
the
Cl
flag
'T'tlm
FXAM
in
bh
and
the
CO
flag
fT'om IpT'em
in
ah.
and
.nd
D.
JPe
fchs
fdiv
rot
bh,
high
(mask
condO)
ah,
highemask
condl)
bh,
ah
positive_sine
Look
at
the
fprem
CO
flag
Look
at
the
ham
Cl
flag
Even
numbeT'
of
flags
cancel
TIllO
negatives
m.ake a
positive
FOT'ce
T'esult
negative
Form
final
result
Ok
to
leave
fdiv
running
casine
endp
'eJect
This
function
!IIill
calculate
the
tangent
of
an
angle.
The
angle,
in
T'adians
is
pa.sed
in
ST(O),
the
tangent
is
T'eturned
in
ST(OL
The
tangent
is
calculated
to
OIn
aCCUT'aCU
of
4
units
in
the
Figure 4-7. Calculating Trigonometric Functions (Cont'd.)
4-21