Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/sdblk8.for
There is 1 other file named sdblk8.for in the archive. Click here to see a list.
	SUBROUTINE SDBLK8(BLOCK, COUNT)

C  THIS ROUTINE TAKES THE BLOCK AS BUFFERED
C  IN GETBLK AND TRANSMITS IT TO THE GT40

	IMPLICIT INTEGER (A - Z)
	INTEGER BLOCK(500)
	WORD = 1
	BYTEP = 0
	DO 10 I = 1, COUNT + 1
		BYTEP = BYTEP + 1
		BYTE = GFIELD(BLOCK(WORD), (BYTEP - 1) * 8 + 4, 8)
		CALL SNDCHR(BYTE)
		IF(BYTEP .LT. 4) GO TO 10
		WORD = WORD + 1
		BYTEP = 0
10	CONTINUE
	RETURN
	END