projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | / |
| 2 | / | |
| 3 | / T A N H | |
| 4 | / - - - - | |
| 5 | / | |
| 6 | /SUBROUTINE TANH(X) | |
| 7 | / | |
| 8 | / VERSION 5A 4-27-77 PT | |
| 9 | / | |
| 10 | SECT TANH | |
| 11 | JA #TANH | |
| 12 | TEXT +TANH + | |
| 13 | TANHXR, SETX XRTANH | |
| 14 | SETB BPTANH | |
| 15 | BPTANH, FNOP | |
| 16 | 0 | |
| 17 | 0 | |
| 18 | XRTANH, F 0.0 | |
| 19 | TANH1, F 0.0 | |
| 20 | TANH2, F 0.0 | |
| 21 | ORG 10*3+BPTANH | |
| 22 | FNOP | |
| 23 | JA TANHXR | |
| 24 | 0 | |
| 25 | TNHRTN, JA . | |
| 26 | BASE 0 | |
| 27 | #TANH, STARTD | |
| 28 | FLDA 10*3 | |
| 29 | FSTA TNHRTN | |
| 30 | FLDA 0 | |
| 31 | SETX XRTANH | |
| 32 | SETB BPTANH | |
| 33 | BASE BPTANH | |
| 34 | LDX 1,1 | |
| 35 | FSTA BPTANH | |
| 36 | FLDA% BPTANH,1 /ADDR OF X | |
| 37 | FSTA BPTANH | |
| 38 | STARTF | |
| 39 | FLDA% BPTANH /GET X | |
| 40 | FSTA TANH1 /SAV IT | |
| 41 | EXTERN COSH | |
| 42 | JSR COSH /CALL COSH | |
| 43 | JA .+4 | |
| 44 | JA TANH1 | |
| 45 | FSTA TANH2 /SAVE COSH(X) | |
| 46 | EXTERN SINH | |
| 47 | JSR SINH /CALL SINH | |
| 48 | JA .+4 | |
| 49 | JA TANH1 | |
| 50 | FDIV TANH2 /SINH/COSH=TANH | |
| 51 | JA TNHRTN | |
| 52 | \f |