Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | EXTERNAL SYNC\r |
2 | INTEGER FUNC,RATE,WORD(2),CLENTS,I,J\r | |
3 | EXTERNAL CLENTS\r | |
4 | C\r | |
5 | 10 WRITE (4,5)\r | |
6 | READ (4,1) FUNC,RATE\r | |
7 | CALL CLOCK (FUNC,RATE)\r | |
8 | CALL OCTAL (CLENTS(0),WORD)\r | |
9 | WRITE (4,2) WORD\r | |
10 | IF (FUNC.EQ.8) GOTO 10\r | |
11 | WRITE (4,3)\r | |
12 | DO 20 J=1,30000\r | |
13 | IF (SYNC(1,FIRE).NE.0) WRITE (4,4) FIRE\r | |
14 | 20 CONTINUE\r | |
15 | GO TO 10\r | |
16 | 1 FORMAT (I2,I4)\r | |
17 | 2 FORMAT (' CLOCK STATUS REGISTER:',3(A6,1X))\r | |
18 | 3 FORMAT (' JETZT WIRD AUF SCHMITT TRIGGER GEWARTET.'/)\r | |
19 | 4 FORMAT (1H+,I5)\r | |
20 | 5 FORMAT (' FUNCTION,RATE (I2,I4) :',$)\r | |
21 | END\r | |
22 | \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 |