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