SDBLK8	SDBLK8.FOR	FORTRAN V.5A(621) /KI	1-FEB-81	11:37	PAGE 1


00001		SUBROUTINE SDBLK8(BLOCK, COUNT)
00002	
00003	C  THIS ROUTINE TAKES THE BLOCK AS BUFFERED
00004	C  IN GETBLK AND TRANSMITS IT TO THE GT40
00005	
00006		IMPLICIT INTEGER (A - Z)
00007		INTEGER BLOCK(500)
00008		WORD = 1
00009		BYTEP = 0
00010		DO 10 I = 1, COUNT + 1
00011			BYTEP = BYTEP + 1
00012			BYTE = GFIELD(BLOCK(WORD), (BYTEP - 1) * 8 + 4, 8)
00013			CALL SNDCHR(BYTE)
00014			IF(BYTEP .LT. 4) GO TO 10
00015			WORD = WORD + 1
00016			BYTEP = 0
00017	10	CONTINUE
00018		RETURN
00019		END


SUBPROGRAMS CALLED

SNDCHR
GFIELD	

SCALARS AND ARRAYS [ "*" NO EXPLICIT DEFINITION - "%" NOT REFERENCED ]

*BYTE	1	 BLOCK	2	*WORD	3	*COUNT	4	 .S0000	5	
*I	6	*BYTEP	7	

TEMPORARIES

 .A0016	10	 .Q0000	11	 .Q0001	12	

SDBLK8	[ NO ERRORS DETECTED ]