A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk4_5 / rka / paroff / haeceo.fi
CommitLineData
81e70d48
PH
1C ----- H A E C E O . F I -----\r
2C\r
3C DEFINITION OF EOGSCN, CALSAC COMMUNICATION AREA\r
4C\r
5 INTEGER SPKCN,MODCN @ CHANNEL NUMBER FOR SPEAKERS, MODE (QUADRO, STEREO, MONO)\r
6 REAL EICH(2,9),CALIBR, @ HERE WE STORE THE CALIBRATION FACTORS\r
7 * PEICH(2,9),\r
8 * SPKFAC,SPKOFS @ CALIBRATION FOR SPEAKERS POSITION SIGNAL\r
9 EQUIVALENCE (EICH(2,1),CALIBR) @ OFFSET FOR ZERO DEGREES\r
10 COMMON /CEOG/ EICH,PEICH,SPKCN,MODCN,SPKOFS,SPKFAC\r
11C DATA STATEMENTS: SEE BLOCK DATA\r
12C -----\r
13\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