software: Added more and more
[pdp8.git] / sw / os8 / v3d / sources / fortran / dectapes / dectape2 / tand.ra
CommitLineData
7af5ad59
PH
1/
2/
3/ T A N D
4/ - - - -
5/
6/SUBROUTINE TAND(X)
7/
8/ VERSION 5A 4-27-77 PT
9/
10 SECT TAND
11 JA #TAND
12 TEXT +TAND +
13TANDXR, SETX XRTAND
14 SETB BPTAND
15BPTAND, FNOP
16 0
17 0
18XRTAND, F 0.0
19TAND91, 6
20 3451
21 3560
22TAND1, F 0.0
23 ORG 10*3+BPTAND
24 FNOP
25 JA TANDXR
26 0
27TNDRTN, JA .
28 BASE 0
29#TAND, STARTD
30 FLDA 10*3
31 FSTA TNDRTN
32 FLDA 0
33 SETX XRTAND
34 SETB BPTAND
35 BASE BPTAND
36 LDX 1,1
37 FSTA BPTAND
38 FLDA% BPTAND,1 /ADDR OF X
39 FSTA BPTAND
40 STARTF
41 FLDA% BPTAND /GT X IN DEGREES
42 FDIV TAND91 /CONVERT TO RADIANS
43 FSTA TAND1
44 EXTERN TAN
45 JSR TAN /CALL THE TANGENT
46 JA TNDRTN
47 JA TAND1
48\f