projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+\ e H A E N Y T . F T \ f-+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C MUST BE MAPPED INTO THE SAME LEVEL AND OVERLAY WITH HAENYA.FT\r | |
| 4 | C\r | |
| 5 | C THIS ROUTINE IS CALLED FROM HAENYX.\r | |
| 6 | C IT RETURNS THE FILTERED TABLE POSITION ( CH2 )\r | |
| 7 | C \r | |
| 8 | C * OR 24-APR-84 HA\r | |
| 9 | C * UP 28-MAY-84 HA INSERTS THREE POINT FILTER\r | |
| 10 | C\r | |
| 11 | C NYAFIL: 0 ORIGINAL VALUE OF TABLE POSITION\r | |
| 12 | C 1 11 POINT FILTER\r | |
| 13 | C 2 LINEAR APPROXIMATION\r | |
| 14 | C 3 3 POINT FILTER\r | |
| 15 | C\r | |
| 16 | REAL FUNCTION NYTASM (ID)\r | |
| 17 | C\r | |
| 18 | C INPUT PARAMETER IS\r | |
| 19 | INTEGER ID @ HOLDS THE INDEX TO THE DATA POINTS\r | |
| 20 | C\r | |
| 21 | INCLUDE HAECNY.FI\r | |
| 22 | REAL XYSAM\r | |
| 23 | LOGICAL BETW\r | |
| 24 | EXTERNAL XYSAM,BETW\r | |
| 25 | C\r | |
| 26 | \f INTEGER T1,J,I\r | |
| 27 | REAL C(6) @ 11 POINT FILTER CONSTANTS\r | |
| 28 | DATA C /.1038,.1956,.1608,.0488,.021,-.03/\r | |
| 29 | C\r | |
| 30 | C\r | |
| 31 | IF (NYAFIL.GT.0.AND.NYAFIL.LE.3) GOTO 9\r | |
| 32 | NYTASM=XYSAM(ID,2) @ NO FILTERING, RETURN ORIGINAL VALUE\r | |
| 33 | RETURN\r | |
| 34 | C\r | |
| 35 | C\r | |
| 36 | 9 GOTO (10,20,30),NYAFIL\r | |
| 37 | C\r | |
| 38 | 10 CONTINUE\r | |
| 39 | C 11 POINT FILTER\r | |
| 40 | T1=MAX0(ID,6)\r | |
| 41 | NYTASM=0\r | |
| 42 | DO 11 J=0,5\r | |
| 43 | 11 NYTASM=C(J+1)*(XYSAM(T1-J,2)+XYSAM(T1+J,2))+NYTASM @ 11 POINT FILTER OF TURN TABLE SIGNAL\r | |
| 44 | RETURN\r | |
| 45 | C\r | |
| 46 | C LINEAR APPROXIMATION\r | |
| 47 | C\r | |
| 48 | 20 CONTINUE @ LINEAR APROXIMATION\r | |
| 49 | DO 21 I=1,8\r | |
| 50 | IF (SMOTAB(1,I).LT.0) GOTO 23\r | |
| 51 | IF (BETW(SMOTAB(1,I),ID,SMOTAB(2,I))) GOTO 22\r | |
| 52 | IF (ID.LT.SMOTAB(1,I)) GOTO 22\r | |
| 53 | IF (BETW(SMOTAB(2,I),ID,SMOTAB(1,MIN0(I+1,8)))) GOTO 23\r | |
| 54 | 21 CONTINUE\r | |
| 55 | I=9 @ SAVE A JUMP OVER 23\r | |
| 56 | 23 I=MAX0(1,I-1) @ TAKE THE LAST VALUES\r | |
| 57 | 22 CONTINUE\r | |
| 58 | NYTASM=SMOTBL(1,I)*ID+SMOTBL(2,I) @ STEIGUNG*ID+Y-ACHSENABSCHNITT\r | |
| 59 | RETURN\r | |
| 60 | C\r | |
| 61 | C 3 POINT FILTER\r | |
| 62 | C\r | |
| 63 | 30 T1=MAX0(ID,2)\r | |
| 64 | NYTASM=XYSAM(T1,2)*.5+(XYSAM(T1-1,2)+XYSAM(T1+1,2))*.25\r | |
| 65 | RETURN\r | |
| 66 | END\r | |
| 67 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |