A large commit.

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rka / paroff / strig.ft

	EXTERNAL SYNC\r
	INTEGER FUNC,RATE,WORD(2),CLENTS,I,J\r
	EXTERNAL CLENTS\r
C\r
10	WRITE (4,5)\r
	READ (4,1) FUNC,RATE\r
	CALL CLOCK (FUNC,RATE)\r
	CALL OCTAL (CLENTS(0),WORD)\r
	WRITE (4,2) WORD\r
	IF (FUNC.EQ.8) GOTO 10\r
	WRITE (4,3)\r
	DO 20 J=1,30000\r
	IF (SYNC(1,FIRE).NE.0) WRITE (4,4) FIRE\r
20	CONTINUE\r
	GO TO 10\r
1	FORMAT (I2,I4)\r
2	FORMAT (' CLOCK STATUS REGISTER:',3(A6,1X))\r
3	FORMAT (' JETZT WIRD AUF SCHMITT TRIGGER GEWARTET.'/)\r
4	FORMAT (1H+,I5)\r
5	FORMAT (' FUNCTION,RATE (I2,I4)  :',$)\r
	END\r
\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