projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E C C H . F T \ e -+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C CHANGES THE CHANNEL OF THE SAMPLE IN THE BUFFER\r | |
| 4 | C\r | |
| 5 | SUBROUTINE CCHNEL\r | |
| 6 | INCLUDE HAEPTI.FI\r | |
| 7 | INCLUDE HAEBUF.FI\r | |
| 8 | INCLUDE HAETTY.FI\r | |
| 9 | C\r | |
| 10 | \f COMP=.FALSE. @ RESET THE COMPUTATION FLAG\r | |
| 11 | IF (OPTION.EQ.0) GOTO 15 @ NO SPECIAL COMMAND, READ CHANNEL NUMBER\r | |
| 12 | OPTION=OPTION-1 @ CH1 --> 1, CH0 --> 0\r | |
| 13 | IF (OPTION.GE.0 .AND. OPTION.LE.CHNLS-1) GOTO 10 @ TEST FOR VALID CHANNEL NUMBER\r | |
| 14 | WRITE (TTO,1) OPTION @ PRINT ERROR MSG (MAY BE INCORRECT FOR * - ETC.)\r | |
| 15 | RETURN\r | |
| 16 | 15 WRITE (TTO,2) @ CHANNELNUMBER?\r | |
| 17 | READ (TTI,3) OPTION @ I1 FORMAT\r | |
| 18 | IF (SAMCNT.EQ.0 .AND. OPTION.GT.0) GOTO 20 @ NO SAMPLE ONLY CHANNEL 0 ALLOWED!\r | |
| 19 | IF (OPTION.GE.0 .AND. OPTION.LE.CHNLS-1) GOTO 10 @ TEST FOR VALID CHANNELNUMBER\r | |
| 20 | WRITE (TTO,1) OPTION @ CHANNELNUMBER IS NOT VALID\r | |
| 21 | GOTO 15\r | |
| 22 | 10 IF (SAMCNT.EQ.0 .AND. OPTION.GT.0) GOTO 20\r | |
| 23 | CHANEL=OPTION @ SET THE CORRECT INDEX USED BY ESAM\r | |
| 24 | RETURN\r | |
| 25 | 20 WRITE (TTO,4) @ NO SAMPLE: ONLY CHANNEL # 0 ALLOWED!\r | |
| 26 | GOTO 15\r | |
| 27 | 1 FORMAT (' KANALBEZEICHNUNG',I3,' UNZULAESSIG.')\r | |
| 28 | 2 FORMAT (' KANALNUMMER? (I1) ',$)\r | |
| 29 | 3 FORMAT (I1)\r | |
| 30 | 4 FORMAT (' SOLANGE KEIN DATENSATZ GELESEN IST NUR KANAL ',\r | |
| 31 | * '# 0 ERLAUBT.')\r | |
| 32 | END\r | |
| 33 | \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 |