Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-07 - 43,50446/listn6.f4
There are no other files named listn6.f4 in the archive.
	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