Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/listn6.for
There is 1 other file named listn6.for in the archive. Click here to see a list.
	SUBROUTINE LISTN6(ERROR)

C  THIS SUBROUTINE IS USED TO LISTEN TO THE GT40 IN
C  CASE OF A CHECKSUM ERROR, OR FINAL BLOCK. IT WILL
C  CHECK THE LINE FOR A CERTAIN PERIOD OF TIME
C  DEFINED BY THE DO LOOP

C  SUBROUTINE GETCHR RETURNS AN ASCII 
C  CHARACTER FROM THE GT40

	IMPLICIT INTEGER (A - Z)
	DATA LOG /21/

1	FORMAT(' PROGRAM LOADED BUT NO SELF START')

	ERROR = 0
	DO 10 I = 1, 2000
		CHAR = GETCHR(0)
		IF(CHAR .NE. -1) GO TO 20
10	CONTINUE
	RETURN
20	CHAR2 = GETCHR(0)

C  WAS THERE A CHECKSUM ERROR ?

	IF(CHAR .EQ. "102) ERROR = 1

C  DID THE PROGRAM SELF-START ?

	IF(CHAR .NE. "107) RETURN
	WRITE(LOG, 1)
	RETURN
	END