From:	SMTP%"MAILER-DAEMON@bort.mv.net"  8-OCT-1996 08:44:59.74
To:	<everhart@star.zko.dec.com>
CC:	
Subj:	Warning: could not send message for past 1 day

This is a MIME-encapsulated message

--IAB09732.844778358/bort.mv.net

    **********************************************
    **      THIS IS A WARNING MESSAGE ONLY      **
    **  YOU DO NOT NEED TO RESEND YOUR MESSAGE  **
    **********************************************

The original message was received at Mon, 7 Oct 1996 08:22:08 -0400 (EDT)
from mail11.digital.com [192.208.46.10]

   ----- The following addresses have delivery notifications -----
<everhart@gce.com>  (transient failure)

   ----- Transcript of session follows -----
<everhart@gce.com>... Deferred: Connection timed out with gce.mv.com
Warning: message still undelivered after 1 day
Will keep trying until message is 3 days old

--IAB09732.844778358/bort.mv.net
Content-Type: message/delivery-status

Reporting-MTA: dns; bort.mv.net
Arrival-Date: Mon, 7 Oct 1996 08:22:08 -0400 (EDT)

Final-Recipient: rfc822; everhart@GCE.MV.COM
Action: delayed
Status: 4.2.0
Remote-MTA: dns; gce.mv.com
Last-Attempt-Date: Tue, 8 Oct 1996 08:39:18 -0400 (EDT)
Will-Retry-Until: Thu, 10 Oct 1996 08:22:08 -0400 (EDT)

--IAB09732.844778358/bort.mv.net
Content-Type: message/rfc822

Return-Path: everhart@star.zko.dec.com
Received: from mail11.digital.com (mail11.digital.com [192.208.46.10]) by bort.mv.net (8.7.5/mem-951016) with ESMTP id IAA26296 for <everhart@gce.com>; Mon, 7 Oct 1996 08:22:08 -0400 (EDT)
Received: from DELPHI by mail11.digital.com (8.7.5/UNX 1.2/1.0/WV)
	id IAA17927; Mon, 7 Oct 1996 08:20:51 -0400 (EDT)
Date: Mon, 7 Oct 1996 08:22:14 -0400
Message-Id: <96100708221369@star.zko.dec.com>
From: everhart@star.zko.dec.com (Glenn C. Everhart 603 881 1497)
To: everhart@gce.com
Subject: xdt-load alpha  xdtload.mar
X-VMS-To: SMTP%"everhart@gce.com"

	.macro declare_psect nam
	.psect nam
	.endm
	.macro instruction_mb
	evax_imb
	.endm
evax=0
; This little gem checks to see if xdelta is loaded and if it isn't
; loads the execlet. In either case, a breakpoint will be taken.

	DECLARE_PSECT EXEC$NONPAGED_DATA

ref_inf: .blkl	3

filnam: .ascid /SYSTEM_DEBUG/


	DECLARE_PSECT EXEC$NONPAGED_CODE

start::	.call_entry

	tstl	xdt$gl_scb		; is there an xdelta scb page?
	beql	load_xdelta		; assume if not zero, xdelta is already
					; loaded, so just take the breakpoint
do_bpt:	$cmkrnl_s bpt

exit:   ret

; SYSTEM_DEBUG is not loaded, so load it...

load_xdelta:

	$cmkrnl_s mem			; allocate scb page for xdelta
	blbc r0,exit

	$cmexec_s routin=load		; load SYSTEM_DEBUG 
	blbs	r0,do_bpt		; if ok, take breakpoint

	cmpl	#ss$_duplnam,r0		; is error duplicate name?
	beql	do_bpt			; assume xdelta is loaded and OK
	
; Close it up only if there was an error loading. XDELTA closes up the system
; after a breakpoint, so in the normal case, it will do it for us.

	pushl	r0
	$cmkrnl_s close			; close up system
	popl	r0
	ret				

; Routine to change the NOP at the ini$brk to a BPT and to allocate
; XDELTA's private SCB page.

mem:    .call_entry

	movl	#1,r1                   ; allocate 1 page
	jsb	exe$alophycntg		; do it
	blbc	r0,15$			; ooops
	movl	r2,xdt$gl_scb		; put the address here
	movc5	#0,(r2),#0,#8192,(r2)	; zero fill the scb 

	jsb	ini$writable		; make system writeable, turn
					; off fault-on-read and GH
	moval	ini$brk,r0		; get pd address for ini$brk
	movl	8(r0),r0		; get code address 
	movl	#^x80,(r0)		; set instruction = BPT
	instruction_mb			; and make it stick
	movl	#ss$_normal,r0

15$:	ret

; This routine make the exec code readonly and turns on fault-on-read and
; granularity hints for the code region.  The SCB page is not deallocated
; but the data cell is zeroed so another load attempt may succeed, but the 
; page of memory is lost.

close:	.call_entry
	clrl	xdt$gl_scb		; throw the scb page away
	jsb	ini$rdonly		; lock it up
	movl	#ss$_normal,r0
	ret

; This routine calls the exec loader to load the system_debug image

load:	.call_entry
        pushal  ref_inf
	pushl   #0
	pushal  filnam
        calls   #3,ldr$load_image 
	ret

; This routine will result in a BPT

bpt:	.call_entry
	jsb ini$brk
	movl	#ss$_normal,r0
	ret

        .END	start

--IAB09732.844778358/bort.mv.net--

================== RFC 822 Headers ==================
Return-Path: 
Received: by galaxy.zko.dec.com (UCX V4.1-12, OpenVMS V6.2 VAX);
	Tue, 8 Oct 1996 08:44:55 -0400
Received: from bort.mv.net by mail11.digital.com (8.7.5/UNX 1.2/1.0/WV)
	id IAA13501; Tue, 8 Oct 1996 08:43:04 -0400 (EDT)
Received: from localhost (localhost) by bort.mv.net (8.7.5/mem-951016) with internal id IAB09732; Tue, 8 Oct 1996 08:39:18 -0400 (EDT)
Date: Tue, 8 Oct 1996 08:39:18 -0400 (EDT)
From: Mail Delivery Subsystem <MAILER-DAEMON@bort.mv.net>
Subject: Warning: could not send message for past 1 day
Message-Id: <199610081239.IAB09732@bort.mv.net>
To: <everhart@star.zko.dec.com>
MIME-Version: 1.0
Content-Type: multipart/report; report-type=delivery-status;
	boundary="IAB09732.844778358/bort.mv.net"
Auto-Submitted: auto-generated (warning-timeout)
