From:	AITGW::"MACRO32@WKUVX1.BITNET" 26-FEB-1992 18:43:26.25
To:	MACRO32@WKUVX1.BITNET
CC:	
Subj:	Re: This can cause bad things to happen to your system.

Received: by AITGW.DECnet (utk-mail11 v1.5) ; Wed, 26 Feb 92 18:44:06 EST
Received: from ukcc.uky.edu by aitgw.ge.com (5.65/GE Gateway 1.4)
	id AA26047; Wed, 26 Feb 92 18:44:00 -0500
Received: from ukcc.uky.edu by UKCC.uky.edu (IBM VM SMTP V2R2)
   with BSMTP id 2022; Wed, 26 Feb 92 18:36:14 EST
Received: from UKCC by ukcc.uky.edu (Mailer R2.08) with BSMTP id 8845; Wed, 26
 Feb 92 18:35:50 EST
Received: from WKUVX1.BITNET by ukcc.uky.edu (Mailer R2.08) with BSMTP id 8757;
 Wed, 26 Feb 92 18:34:52 EST
Errors-To: MacroMan@WKUVX1.BITNET
X-Listname: "VMS Internals, MACRO, and BLISS Discussions"
    <MACRO32@WKUVX1.BITNET>
Received: from CUNYVM.BITNET (MAILER) by WKUVX1 (MX V3.0A) with BSMTP; Wed, 26
          Feb 1992 16:29:18 EST
Received: from CUNYVM by CUNYVM.BITNET (Mailer R2.08) with BSMTP id 7727; Wed,
          26 Feb 92 17:18:30 EST
Received: from optima.cs.arizona.edu by CUNYVM.CUNY.EDU (IBM VM SMTP V2R2) with
          TCP; Wed, 26 Feb 92 17:18:28 EST
Received: from VESTA.SUNQUEST.COM by optima.cs.arizona.edu (4.1/15) id AA09677;
          Wed, 26 Feb 92 15:18:34 MST
Date: Wed, 26 Feb 1992 15:18:15 -0700 (MST)
From: <GAVRON@vesta.sunquest.com>
Reply-To: MACRO32@WKUVX1.BITNET
Message-Id: <920226151815.103@VESTA.SUNQUEST.COM>
Subject: Re: This can cause bad things to happen to your system.
To: MACRO32@WKUVX1.BITNET
X-Vmsmail-To: SMTP%"MACRO32@WKUVX1.BITNET"
 
Date sent:  26-FEB-1992 15:09:21
 
 
>It's obvious that Ehud was NOT going for efficency in his program since:
 
        No, I was coding so you couldn't TYPE out the .EXE and
        see something useful ("EHUD 1.0" :-)
 
...
>and not left R8 pointing to SYS$GQ_VERSION upon return from the call to
>SYS$CMKRNL.
 
Irrelevant.  The program exits after the call to sys$cmkrnl and makes
no use of r8.  Neither does the image activator.
 
>I wonder if that would cause any real damage.
 
        Of course not.  See above.
 
>I'm certainly NOT going to try!
 
        And I though you were a LIBERAL ;-)
 
 
        If you want QUICK code, see below the sig...
 
>Mark Pizzolato - INFO COMM Computer Consulting, Redwood City, Ca
 
 
        Ehud
 
--
Ehud Gavron        (EG76)
gavron@vesta.sunquest.com
"The world bores you when you're cool."
        .psect  $$code,exe,rd,wrt,pic
        .entry  code,^m<>
        .long   ^x00DD0000
        .long   ^x0010EF9F
        .long   ^x02FB0000
        .long   ^x0FEDE909F
        .long   ^x0FB50DD7F
        .long   ^x0DF409F01
        .long   ^x013C7FFE
        .long   ^x68458FD0
        .long   ^x0B89F6475
        .long   ^x0D0800044
        .long   ^x2E31208F
        .long   ^x44BC9F30
        .long   ^x01D08000
        .long   ^x00000450
        .end    code
 
Macro version:
        .entry  t,^m<>
        $cmkrnl_s       routin=t_k
        $exit_s r0
 
        .entry  t_k,^m<r2,r3,r4,r5,r8>
        movl    #^A/Ehud/,@#sys$gq_version
        movl    #^A/ 1.0/,@#sys$gq_version+4
        movl    #1,r0
        ret                             ; and return
        .end    t
