--- /dev/null
+/
+/
+/ T A N D
+/ - - - -
+/
+/SUBROUTINE TAND(X)
+/
+/ VERSION 5A 4-27-77 PT
+/
+ SECT TAND
+ JA #TAND
+ TEXT +TAND +
+TANDXR, SETX XRTAND
+ SETB BPTAND
+BPTAND, FNOP
+ 0
+ 0
+XRTAND, F 0.0
+TAND91, 6
+ 3451
+ 3560
+TAND1, F 0.0
+ ORG 10*3+BPTAND
+ FNOP
+ JA TANDXR
+ 0
+TNDRTN, JA .
+ BASE 0
+#TAND, STARTD
+ FLDA 10*3
+ FSTA TNDRTN
+ FLDA 0
+ SETX XRTAND
+ SETB BPTAND
+ BASE BPTAND
+ LDX 1,1
+ FSTA BPTAND
+ FLDA% BPTAND,1 /ADDR OF X
+ FSTA BPTAND
+ STARTF
+ FLDA% BPTAND /GT X IN DEGREES
+ FDIV TAND91 /CONVERT TO RADIANS
+ FSTA TAND1
+ EXTERN TAN
+ JSR TAN /CALL THE TANGENT
+ JA TNDRTN
+ JA TAND1
+\f