From:	ADVAX::"mcnc!WKUVX1.BITNET!MACRO32" 14-JUN-1991 14:29:59.50
To:	MACRO32@WKUVX1.BITNET
CC:	
Subj:	SHODEF addition...

Received: by ADVAX.DECnet (utk-mail11 v1.5) ; Fri, 14 Jun 91 14:26:50 EDT
Received:  from mcnc by ge-dab.GE.COM (5.61/GE-DAB 1.15) with UUCP
	id AA15735 for ; Fri, 14 Jun 91 13:26:25 -0400
Received: from UKCC.uky.edu by mcnc.mcnc.org (5.59/MCNC/3-21-91)
	id AA12449; Tue, 11 Jun 91 17:44:13 -0400
	for ARISIA.DNET.ge.com!EVERHART
Message-Id: <9106112144.AA12449@mcnc.mcnc.org>
Received: from ukcc.uky.edu by UKCC.uky.edu (IBM VM SMTP V2R1)
   with BSMTP id 7763; Tue, 11 Jun 91 17:43:38 EST
Received: from UKCC by ukcc.uky.edu (Mailer R2.07) with BSMTP id 7647; Tue, 11
 Jun 91 17:43:14 EST
Received: from WKUVX1.BITNET by ukcc.uky.edu (Mailer R2.07) with BSMTP id 7592;
 Tue, 11 Jun 91 17:42:26 EST
Received: from FNDCD (FAGAN) by WKUVX1.BITNET (MX V2.3-1) with Jnet; Tue, 11
          Jun 1991 16:41:40 CDT
Date: Tue, 11 Jun 1991 16:40 CDT
From: "The Silicon Sorcerer ! Use FAGAN@FNAL ONLY" <mcnc!FNDCD.BITNET!FAGAN>
Reply-To: mcnc!WKUVX1.BITNET!MACRO32
Subject: SHODEF addition...
To: MACRO32@WKUVX1.BITNET
Original_To:  jnet%"MACRO32@WKUVX1"
 
        You might want to put something in these ast routines to check to
        see if it's allready been run.   or it WILL do it twice, three
        times, etc...
        Should be right but it's just a quicky,
        If not scream and I'll wake up and do it right.
 
prc_m_verify=^x80
prc_w_flags=^x68
ppd$L_prc=^x8
ucb$L_TT_LogUCB=^xd4
ucb$L_TL_OutBand=^xac                                   Date sent: 11-JUN-1991 1
6:39
 
 
sys_command:
        .ascid  'TT'            ; Device to set the out of band ast on
K_ARG:                          ; Argument list for kernel-mode routine.
        .Long    1              ; Just one argument.
        .Address Sys_Command    ; Pass descriptor for device name.
Bands:  .Long   0
 
        $cmkrnl_S -                             ;
                Routin=Get_Ucb,-
                ArgLST=K_Arg
        blbc    r0,10$
        bitl    #^x400000,Bands ; control v for set ver toggle...
        Bneq    AllReady_done
        ...
        ...
 
        .Entry  Get_UCB,^M<R2,R4
        Movl    g^ctl$gl_pcb,r4         ;
        JSB     G^SCH$IOLockW           ;
        Movl    4(AP),R1                ;
        JSB     G^IOC$SearchDev         ;
        BLBS    R0,50$
        BRW     UCB_Exit
50$:    Movl    Ucb$L_TT_LogUCB(r1),r2
        Movl    Ucb$L_TL_OutBand(r2),Bands
UCB_Exit:
        JSB     G^SCH$IOUnLock          ;
        MOVL    #SS$_NORMAL,R0
        RET
 
--------------------------------------------------------------------------------
David J. Fagan   | The Silcon Sorcerer  | Bitnet:    Fagan@fnal
Systems Manager                         | Internet:  Fagan@fndcd.fnal.gov
Fermi National Accelerator Laboratory   | MaBellnet: 1 (708) 840-2914
 WARNING: Please keep the flashlights away from the blondes!!!
--------------------------------------------------------------------------------
