Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
	INTEGER FUNCTION ZERBLK(WORD)
	INTEGER WORD,WARR(5),LSH,OUTWRD
	OUTWRD = 0
	DECODE(5,10,WORD) WARR
10	FORMAT(5A1)
	DO 20 I = 1,5
20	WARR(I) = LSH(WARR(I),-29)
	ISHFT = 29
	DO 30 I = 1,5
	IF(WARR(I) .EQ. "40) GOTO 40
	IF(WARR(I) .EQ.   0) GOTO 40
	OUTWRD = OUTWRD+LSH(WARR(I),ISHFT)
	ISHFT = ISHFT-7
30	CONTINUE
40	ZERBLK = OUTWRD
	RETURN
	END