[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / hptwai.ft

C	-+-+-+-+-+ \ e  T W A I T . F T  \ e -+-+-+-+-+\r
C\r
C	TIMED WAIT\r
C	CALL TWAIT (MILLI SECONDS)\r
C	STOPS THE PROGRAM FOR THE SPECIFIED TIME.\r
C	REMEMBER: THE CLOCK MUST BE ALREADY STARTED WITH CALL CLOCK (...)\r
C\r
	SUBROUTINE TWAIT (DELAY)\r
	INTEGER DELAY\r
	REAL TIME\r
	EXTERNAL TIME\r
C\r
	REAL I,J,K\r
C\r
	K=DELAY*0.001+TIME(I)\r
10	IF (K.GT.TIME(I)) GOTO 10\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
Commit	Line	Data
81e70d48 PH	1	C -+-+-+-+-+ \ e T W A I T . F T \ e -+-+-+-+-+\r
	2	C\r
	3	C TIMED WAIT\r
	4	C CALL TWAIT (MILLI SECONDS)\r
	5	C STOPS THE PROGRAM FOR THE SPECIFIED TIME.\r
	6	C REMEMBER: THE CLOCK MUST BE ALREADY STARTED WITH CALL CLOCK (...)\r
	7	C\r
	8	SUBROUTINE TWAIT (DELAY)\r
	9	INTEGER DELAY\r
	10	REAL TIME\r
	11	EXTERNAL TIME\r
	12	C\r
	13	REAL I,J,K\r
	14	C\r
	15	K=DELAY*0.001+TIME(I)\r
	16	10 IF (K.GT.TIME(I)) GOTO 10\r
	17	END\r
	18	\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0