From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 26-JUL-1989 13:26
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Re: Re: FORTRAN TYPE='SCRATCH' files

Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Wed, 26 JUL 89 09:43:33 PDT
Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Wed, 26 Jul 89 09:37:34 PDT
Received: by ucbvax.Berkeley.EDU (5.61/1.37)
	id AA17654; Wed, 26 Jul 89 09:27:59 -0700
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 26 Jul 89 16:05:19 GMT
From: mailrus!sharkey!atanasoff!hascall@purdue.edu  (John Hascall)
Organization: Iowa State Univ. Computation Center
Subject: Re: Re: FORTRAN TYPE='SCRATCH' files
Message-Id: <1250@atanasoff.cs.iastate.edu>
References: <8907251953.AA14588@ucbvax.Berkeley.EDU>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

In article <8907251953.AA14588> GHC@NIHKLMB.BITNET (Gerson H Cohen) writes:
 
>> That would work except that these images are quite old (~1986) and are all
>> linked /TRACEBACK and thus can not be installed.  Do you happen to know how I
>> can zap the file header such that I can install these?

          Here is a PATCH journal file:

$ patch/absolute foo.exe

  PATCH  Version 4-00    15-Sep-1984

IMAGE FILE BEING PATCHED:       "STAFF:[JOHN]FOO.EXE;6"
JOURNAL FILE:                   "STAFF:[JOHN]FOO.JNL;1"
DATE/TIME OF PATCH:             26-JUL-1989 10:55:25.81

Some or all global symbols not accessible
Image does not contain local symbols     
PATCH>exam 20:38   
00000020:  01000028              ! link flags [low bit (/DEBUG) should be off]
00000024:  051C7399
00000028:  00000000
0000002C:  00000400
00000030:  7FFEDF68              ! 1st transfer address (traceback init)
00000034:  00000200              ! 2nd transfer address (program)
00000038:  00000000              ! 3rd transfer address (unused)
PATCH>dep 30 = 200               ! xfer[1] <--- xfer[2]
old:    00000030:  7FFEDF68
new:    00000030:  00000200
PATCH>dep 34 = 0                 ! xfer[2] <--- 0
old:    00000034:  00000200
new:    00000034:  00000000
PATCH>update
Updating image file STAFF:[JOHN]FOO.EXE;7
PATCH>exit


Happy patching,
John

