A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk4_5 / rka / paroff / haecny.fi
CommitLineData
81e70d48
PH
1C - - - - - \ e H A E C N Y . F I - - - - -\r
2C\r
3C COMMON DATA FOR HAENYA AND HAENYX ROUTINE\r
4C\r
5 REAL SMOTAB (2,8) @ ERSTER UND ZWEITER STUETZPUNKT\r
6 * ,SMOTBL (2,8) @ STEIGUNG UND ACHSENABSCHNITT DAZU JEWEILS\r
7 * ,ORDMIN(8),ORDMAX(8) @ ORDINATE SCALING FOR EACH CHANNEL\r
8 * ,NORM(8) @ FACTOR FOR CALIBRATION AND NORMALIZATION\r
9 INTEGER NYAFIL @ FILTER FUER TISCHPOSITION\r
10 * ,TABDIR @ DIRECTION OF TABLE/SACCADE DIRECTION DESIRED\r
11 INTEGER CA,COSTRT,STEP\r
12 COMMON /CNYADD/ NYAFIL,TABDIR,ORDMIN,ORDMAX,NORM,SMOTAB,SMOTBL\r
13 COMMON /CPLOTT/ CA,COSTRT,STEP\r
14C\r
15C -----\r
16\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