projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | / |
| 2 | / | |
| 3 | / | |
| 4 | / C O S D | |
| 5 | / - - - - | |
| 6 | / | |
| 7 | /SUBROUTINE COSD(X) | |
| 8 | / | |
| 9 | / VERSION 5A 4-27-77 PT | |
| 10 | / | |
| 11 | SECT COSD | |
| 12 | JA #COSD | |
| 13 | TEXT +COSD + | |
| 14 | COSDXR, SETX XRCOSD | |
| 15 | SETB BPCOSD | |
| 16 | BPCOSD, FNOP | |
| 17 | 0 | |
| 18 | 0 | |
| 19 | XRCOSD, F 0.0 | |
| 20 | COSD90, F 90. | |
| 21 | COSD91, 6 | |
| 22 | 3451 | |
| 23 | 3560 | |
| 24 | COSD1, F 0.0 | |
| 25 | ORG 10*3+BPCOSD | |
| 26 | FNOP | |
| 27 | JA COSDXR | |
| 28 | 0 | |
| 29 | CSDRTN, JA . | |
| 30 | BASE 0 | |
| 31 | #COSD, STARTD | |
| 32 | FLDA 10*3 | |
| 33 | FSTA CSDRTN | |
| 34 | FLDA 0 | |
| 35 | SETX XRCOSD | |
| 36 | SETB BPCOSD | |
| 37 | BASE BPCOSD | |
| 38 | LDX 1,1 | |
| 39 | FSTA BPCOSD | |
| 40 | FLDA% BPCOSD,1 /ADDR OF X | |
| 41 | FSTA BPCOSD | |
| 42 | STARTF | |
| 43 | FLDA% BPCOSD /GET X IN DEGREES | |
| 44 | FADD COSD90 /ADD IN 90 | |
| 45 | FDIV COSD91 /CONVERT TO REDIANS | |
| 46 | FSTA COSD1 | |
| 47 | EXTERN SIN | |
| 48 | JSR SIN /CALL THE SINE | |
| 49 | JA CSDRTN | |
| 50 | JA COSD1 | |
| 51 | \f |