From:	AITGW::"MACRO32@WKUVX1.BITNET" 10-MAR-1992 09:49:12.33
To:	macro32@WKUVX1.BITNET
CC:	
Subj:	Crude but quick

Received: by AITGW.DECnet (utk-mail11 v1.5) ; Tue, 10 Mar 92 09:48:54 EST
Received: from ukcc.uky.edu by aitgw.ge.com (5.65/GE Gateway 1.5)
	id AA26553; Tue, 10 Mar 92 09:48:49 -0500
Message-Id: <9203101448.AA26553@aitgw.ge.com>
Received: from ukcc.uky.edu by UKCC.uky.edu (IBM VM SMTP V2R2)
   with BSMTP id 0950; Tue, 10 Mar 92 09:45:07 EST
Received: from UKCC by ukcc.uky.edu (Mailer R2.08) with BSMTP id 9830; Tue, 10
 Mar 92 09:44:31 EST
Received: from WKUVX1.BITNET by ukcc.uky.edu (Mailer R2.08) with BSMTP id 9708;
 Tue, 10 Mar 92 09:43:29 EST
Errors-To: MacroMan@WKUVX1.BITNET
X-Listname: "VMS Internals, MACRO, and BLISS Discussions"
    <MACRO32@WKUVX1.BITNET>
Received: from FNAL (FAGAN) by WKUVX1.BITNET (MX V3.0A) with Jnet; Tue, 10 Mar
          1992 08:44:10 CST
Date: Tue, 10 Mar 1992 08:34 CST
From: The Silicon Sorcerer <FAGAN@FNAL.BITNET>
Reply-To: MACRO32@WKUVX1.BITNET
Subject: Crude but quick
To: macro32@WKUVX1.BITNET
Original_To:  JNET%"macro32@wkuvx1"
 
 
        .TITLE  MODIFY_IMAGE_HEADER
        .IDENT  "Version 1.0"
        .LIBRARY "SYS$LIBRARY:LIB"
        $IHDDEF
        $IHADEF
FAB:    $FAB    DNM=<UTIL$EXE:.EXE>,FAC=<GET,UPD>
RAB:    $RAB    FAB=FAB,UBF=UBF,USZ=512
UBF:    .BLKB   512
PMT:    .ASCID  "Image name: "
DYN:    .LONG   ^X020E0000,0
 
        .ENTRY  MODIFY_IMAGE_HEADER,^M<>
        PUSHAQ  PMT
        PUSHAQ  DYN
        CALLS   #2,G^LIB$GET_INPUT
        BLBC    R0,10$
        MOVB    DYN,FAB+FAB$B_FNS
        MOVL    DYN+4,FAB+FAB$L_FNA
        $OPEN   FAB=FAB
        BLBC    R0,10$
        $CONNECT RAB=RAB
        BLBC    R0,10$
        $GET    RAB=RAB
        BLBC    R0,10$
        BICL2   #IHD$M_DBGDMT,IHD$L_LNKFLAGS+UBF
        BISL2   #IHD$M_LNKDEBUG,IHD$L_LNKFLAGS+UBF
        MOVZWL  IHD$W_ACTIVOFF+UBF,R0
        MOVAB   UBF(R0),R0
        MOVL    IHA$L_TFRADR1(R0),IHA$L_TFRADR2(R0)
        MOVL    #^X7FFEDF68,IHA$L_TFRADR1(R0)
        $UPDATE RAB=RAB
10$:    RET
 
        .END    MODIFY_IMAGE_HEADER
