projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C ----- H A E B U F . F I -----\r |
| 2 | C DEFINITION OF THE FILE HEADER BLOCK CBUFR\r | |
| 3 | C\r | |
| 4 | C * UP 6-OCT-82 REVISION 5.0 \r | |
| 5 | C * UP 18-OCT-83 REVISION 5.5\r | |
| 6 | C * UP 12-JUL-85 REVISION 6.0\r | |
| 7 | C\r | |
| 8 | REAL REVSON @ REVISION NUMBER OF HAE PROGRAM SYSTEM\r | |
| 9 | LOGICAL COMP @ WITH THIS DATA SET AN FFT IS ALREADY COMPUTED\r | |
| 10 | INTEGER SAMRAT, @ SAMPLE RATE [HZ] MAXIMUM\r | |
| 11 | * SAMCNT, @ NUMBER OF SAMPLES FOR ONE CHANNEL AT MAXIMUM (SAMRAT) RATE\r | |
| 12 | * TOTSAM, @ NUMBER OF ALL SAMPLES TAKEN\r | |
| 13 | * CHNLS, @ NUMBER OF AD CHANNELS, TOTAL SAMPLES=CHNLS*SAMCNT\r | |
| 14 | * LABEL(10),LABCNT, @ DATA SET IDENTIFICATION, NUMBER OF WORDS IN LABEL\r | |
| 15 | * REDVAL @ READ VALID FLAG TO SELECT FROM EMPTY RECORDS\r | |
| 16 | INTEGER LASREC, @ BLOCK NUMBER OF THE LAST BLOCK IN THIS DATA SET\r | |
| 17 | * BLKCNT, @ TOTAL NUMBER OF BLOCKS IN THIS FILE UNIT (MAXREC)\r | |
| 18 | * SPEED, @ EADC TAPE SPEED MULTIPLIER\r | |
| 19 | * PACK(7), @ HOLDS FOR EACH CHANNEL THE RATIO SAMRAT/(CHANNEL SAMPLE RATE) MUST BE FROM (1,2,4,8,....,128)\r | |
| 20 | * PCKMAX, @ HOLDS MAXIMUM OF PACK VECTOR\r | |
| 21 | * STRIGS, @ NUMBER OF STRIGG CHANNELS SAMPLED\r | |
| 22 | * FXPAND(15), @ HERE TO ALLOW COMMON BLOCK EXPANSION FOR FUTURE REVISIONS\r | |
| 23 | * BUFFER(85), @ HERE TO FILL CBUFR TO AT LEAST 85 WORDS LENGTH USED BY ESSAM FOR INPUT FROM UNIT 6 OR 7\r | |
| 24 | * RCRD0(1) @ EQUIVALENCED TO THE FIRST WORD OF CBUFR IN \r | |
| 25 | C @ ORDER TO READ THE HEADER BLOCK WITH ONE STATEMENT\r | |
| 26 | EQUIVALENCE (REVSON,RCRD0(1))\r | |
| 27 | COMMON /CBUFR/ REVSON,SAMRAT,SAMCNT,TOTSAM,CHNLS,LABEL,LABCNT,\r | |
| 28 | * REDVAL,LASREC,BLKCNT,COMP,SPEED,PACK,PCKMAX,STRIGS,FXPAND,\r | |
| 29 | * BUFFER\r | |
| 30 | C\r | |
| 31 | C I/O CONTROL COMMON BLOCK CDSAM\r | |
| 32 | C\r | |
| 33 | INTEGER\r | |
| 34 | * CHANEL, @ NUMBER OF THE CHANNEL TO BE INVESTIGATED\r | |
| 35 | * OFFSET, @ STARTING BLOCK OF SAMPLE BUFFER SPACE ON DISK\r | |
| 36 | * MAXREC, @ HIGHEST BLOCK ASSIGNED TO A WHOLE FILE AT OPENING\r | |
| 37 | * REC5,REC6,REC7, @ INDEX TO FILE 5 (COMPUT), 6 (WRITE), TO FILE 7(READ)\r | |
| 38 | * SETNUM @ NUMBER OF THE ACTUAL DATA SET ON INPUT/ OUTPUT FILE\r | |
| 39 | INTEGER NUM7, @ NUMBER OF THE DATA SET TO BE READ BY READB\r | |
| 40 | * SIXCNT, @ COUNTS THE DATA SET'S FOUND ON UNIT 6\r | |
| 41 | * UNIT, @ WHERE TO FETCH THE SAMPLE (6 OR 7 IN ESAM)\r | |
| 42 | * XSAML, @ MAXIMUM NUMBER OF SAMPLES FITTING INTO THE REMAINING FILE SPACE\r | |
| 43 | * MAXBL5 @ LENGTH OF THE SCRATCH FILE 5 IN BLOCKS\r | |
| 44 | C\r | |
| 45 | COMMON /CDSAM/CHANEL,OFFSET,\r | |
| 46 | * MAXREC,REC5,MAXBL5,REC6,SIXCNT,REC7,SETNUM,\r | |
| 47 | * NUM7,UNIT,XSAML \r | |
| 48 | C -----\r | |
| 49 | \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 |