Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap4_198111 - decus/20-0125/getbyt.lst
There is 1 other file named getbyt.lst in the archive. Click here to see a list.
GETBYT	GETBYT.FOR	FORTRAN V.5A(621) /KI	1-FEB-81	11:37	PAGE 1


00001		INTEGER FUNCTION GETBYT(CSUM)
00002	
00003	C  THIS FUNCTION IS USED TO RETRIEVE FOUR
00004	C  EIGHT BIT BYTES FROM ONE THIRTY SIX
00005	C  BIT WORD AND SUM INTO CHECKSUM
00006	C  THIS ROUTINE RETURNS ONE BYTE FOR EACH CALL
00007	
00008		INTEGER CSUM, DSK, LOG, POS, WORD36, GFIELD
00009		DATA DSK, LOG, POS /20, 21, 0/
00010	
00011	1	FORMAT(' ? PREMATURE END OF FILE')
00012	
00013		POS = MOD(POS, 4)
00014		IF(POS .GT. 0) GO TO 10
00015		READ(DSK, END = 1000) WORD36
00016	10	POS = POS + 1
00017		IF(POS .EQ. 1) GETBYT = GFIELD(WORD36, 10, 8)
00018		IF(POS .EQ. 2) GETBYT = GFIELD(WORD36, 2, 8)
00019		IF(POS .EQ. 3) GETBYT = GFIELD(WORD36, 28, 8)
00020		IF(POS .EQ. 4) GETBYT = GFIELD(WORD36, 20, 8)
00021		CSUM = CSUM + GETBYT
00022		RETURN
00023	1000	WRITE(LOG, 1)
00024		CLOSE(UNIT=LOG)
00025		STOP
00026		END


SUBPROGRAMS CALLED

MOD.
GFIELD	

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

 GETBYT	1	 POS	2	 LOG	3	 DSK	4	 CSUM	5	
 WORD36	6	

TEMPORARIES

 .A0016	15	 .A0002	16	 .A0003	17	

GETBYT	[ NO ERRORS DETECTED ]