Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
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