Google
 

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