projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | / |
| 2 | / | |
| 3 | / T A N | |
| 4 | / - - - | |
| 5 | / | |
| 6 | /SUBROUTINE TAN(X) | |
| 7 | / | |
| 8 | / VERSION 5A 4-27-77 PT | |
| 9 | / | |
| 10 | SECT TAN | |
| 11 | JA #TAN | |
| 12 | EXTERN #ARGER | |
| 13 | TANER, TRAP4 #ARGER | |
| 14 | TEXT +TAN + | |
| 15 | TANXR, SETX XRTAN | |
| 16 | SETB BPTAN | |
| 17 | BPTAN, FNOP | |
| 18 | 0 | |
| 19 | 0 | |
| 20 | XRTAN, F 0.0 | |
| 21 | TAN1, F 0.0 | |
| 22 | TAN2, F 0.0 | |
| 23 | ORG 10*3+BPTAN | |
| 24 | FNOP | |
| 25 | JA TANXR | |
| 26 | 0 | |
| 27 | TANRTN, JA . | |
| 28 | BASE 0 | |
| 29 | #TAN, STARTD | |
| 30 | FLDA 10*3 | |
| 31 | FSTA TANRTN | |
| 32 | FLDA 0 | |
| 33 | SETX XRTAN | |
| 34 | SETB BPTAN | |
| 35 | BASE BPTAN | |
| 36 | LDX 1,1 | |
| 37 | FSTA BPTAN | |
| 38 | FLDA% BPTAN,1 /ADDR OF X | |
| 39 | FSTA BPTAN | |
| 40 | STARTF | |
| 41 | FLDA% BPTAN /GET X | |
| 42 | JEQ TANRTN /IF 0 RTN NOW | |
| 43 | FSTA TAN1 /SAVE FOR A SECOND | |
| 44 | EXTERN COS | |
| 45 | JSR COS /TAKE COS(X) | |
| 46 | JA .+4 | |
| 47 | JA TAN1 | |
| 48 | JEQ TANER /COS=0. A NO-NO | |
| 49 | FSTA TAN2 /SAV IT | |
| 50 | EXTERN SIN | |
| 51 | JSR SIN /NOW TAKE SIN(X) | |
| 52 | JA .+4 | |
| 53 | JA TAN1 | |
| 54 | FDIV TAN2 /DIV BY COS(X) | |
| 55 | JA TANRTN | |
| 56 | \f |