Google
 

Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - fortran/ots-debugger/fdbm6.for
There are 3 other files named fdbm6.for in the archive. Click here to see a list.
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
C   OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
C 
C COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1982, 1983

	OPEN(UNIT=1,MODE='IMAGE',ACCESS='SEQIN',FILE='DBMSF.REL')
	OPEN(UNIT=20,MODE='IMAGE',ACCESS='SEQOUT',FILE='DBMSF.REL')
100	READ(1,END=200)J
C	CHANGE "FUNCT%" TO "FUNCT."
	IF ((J.AND."037777777777).EQ."014636533027)
     1	J=(J.AND."740000000000)+"014636533025
C	CHANGE SBIND TO %SBIND
	IF ((J.AND."037777777777).EQ."00436201216)
     1  J=(J.AND."740000000000)+"036240501216
	WRITE(20)J
	GOTO 100
200	CLOSE(UNIT=20)
	END