Google
 

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

C  THIS SUBROUTINE IS USED TO TRANSMIT A BLOCK
C  TO THE GT40. IN THE EVENT OF A CHECKSUM
C  ERROR THE ROUTINE WOULD BE CALLED TO
C  RETRANSMIT THE BLOCK

C	SUBPROGRAMS

C	CODE6 - CODES THE BYTES
C	LISTN6 - LISTN6S TO THE GT40 FOR ERROR MESSAGES

	IMPLICIT INTEGER (A - Z)
	INTEGER BLOCK(2000), BYTE(3)
	POS = 1
	DO 10 I =1, COUNT
		BYTE(POS) = BLOCK(I)

C  THIS IS A SIXBIT LOADER SO CODE THE BYTES

		IF(POS .EQ. 3) CALL CODE6(BYTE, 3)
		POS = MOD(POS + 1, 4)
		IF(POS .EQ. 0) POS = 1
10	CONTINUE
	BYTE(POS) = BLOCK(COUNT + 1)
	CALL CODE6(BYTE, POS)
	CALL LISTN6(ERROR)
	RETURN
	END