From:	CSBVAX::MRGATE!@KL.SRI.Com,@dewey.udel.edu,@localhost:galvin@UDEL.EDU@SMTP 29-JUN-1987 08:48
To:	EVERHART
Subj:	Traceback,notraceback

Received: from UDEL.EDU by KL.SRI.Com with TCP; Mon 29 Jun 87 05:18:06-PDT
Received: from dewey.udel.edu by Louie.UDEL.EDU id a018435; 29 Jun 87 8:15 EDT
Received: from localhost by Dewey.UDEL.EDU id aa03959; 29 Jun 87 8:12 EDT
Received: from [192.5.57.130] by Louie.UDEL.EDU id a001136; 27 Jun 87 16:15 EDT
Date: 27 Jun 87 16:13:00 EST
From: "Michael J. Porter" <mike%udel-oitvax.arpa@UDEL.EDU>
Subject: Traceback,notraceback
To: info-vax <info-vax@louie.udel.edu>
cc: mike@UDEL.EDU
Reply-To: "Michael J. Porter" <mike%udel-oitvax.arpa@UDEL.EDU>
Message-ID: <8706271615.a001136@Louie.UDEL.EDU>
Resent-To: info-vax@kl.sri.com
Resent-Date: Mon, 29 Jun 87 08:12:29 -0400
Resent-Message-ID: <3953.551967149@udel.edu>
Resent-From: James M Galvin <galvin@UDEL.EDU>

The following two files mark images with either NOTRACEBACK or TRACEBACK.
I have not tested them on V4.5 yet, but they should still work.

Obviously, converting a NOTRACEBACK image to a TRACEBACK image will not
get you the symbols (or, at least not with a simple program like this),
but it will let you run the image /DEBUG.

When VMS 4.0 was introduced, it was necessary to link all program /NOTRACE
if they were to be installed.  I believe this is why NO_TRACEBACK was
written.  I converted NO_TRACEBACK to TRACEBACK.
*---- NO_TRACEBACK.COM
$ ! This procedure converts a .EXE file linked TRACEBACK to NOTRACEBACK.
$ !
$ ! See the January 1985 VAX/VMS Systems Dispatch, pp. 33-35
$ !
$ patch /absolute /noout /nojou 'p1'
examine /word 2
define base = \
replace /long base
80000168
exit
80000168
exit
exit
$ if $status then goto patch_image
$ patch /absolute /noout /nojou 'p1'
examine /word 2
define base = \
replace /long base
7ffedf68
exit
7ffedf68
exit
exit
$ if $status then goto patch_image
$ exit
$ !
$patch_image:
$ patch /absolute /out='p1' /jou='p1' 'p1'
examine /word 2
define base = \
examine /long base+4
define contents = \
deposit /long base + 0 = contents
examine /long base+8
define contents = \
deposit /long base + 4 = contents
examine /long base+0c
define contents = \
deposit /long base + 8 = contents
update
exit
*---- TRACEBACK.COM
$ ! This procedure converts a .EXE file linked NOTRACEBACK to TRACEBACK.
$ !
$ ! See the January 1985 VAX/VMS Systems Dispatch, pp. 33-35
$ !
$patch_image:
$ patch /absolute /out='p1' /jou='p1' 'p1'
examine /word 2
define base = \
examine /long base+08
define contents = \
deposit /long base + 0c = contents
examine /long base+4
define contents = \
deposit /long base + 8 = contents
examine /long base+0
define contents = \
deposit /long base + 4 = contents
deposit /long base + 0 = 80000168
update
exit
$ EXIT
------