From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  3-MAY-1989 08:41
To:	MRGATE::"ARISIA::EVERHART"
Subj:	TTUCB fix for FINGER under VMS 5

Message-Id:  <8905021943.AA17880@crdgw1.ge.com>
Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Tue,  2 MAY 89 12:12:04 PDT
Received: from AAMRL.AF.MIL by KL.SRI.COM with TCP; Tue, 2 May 89 11:49:19 PDT
Received: from FALCON by AAMRL.AF.MIL; Tue, 2 May 89 14:47 EDT
Date: Tue, 2 May 89 14:47 EST
From: Ted Nieland - SRL <@AAMRL.AF.MIL:TNIELAND@FALCON>
Subject: TTUCB fix for FINGER under VMS 5
To: info-vax@kl.sri.COM
X-Vms-To: IN%"info-vax@kl.sri.com"


I have been able to get the TTUCB.MAR Fixed to get the idle times and 
NETWORK connections for FINGER under VMS 5  (at least 5.1, which is waht I am 
running).  Attached are the differences between what I am running and the
FINGER distribution on the FALL 1988 VAX SIG tape (and is available from a
a few FTP sites).  You will also have to edit FINGER.FOR the uncomment the
calls to TT_UCB.


Ted Nieland
TNIELAND@AAMRL.AF.MIL



************
File DECUS$:[SOURCE.FINGER]TTUCB.MAR;7
    5   ; 2-May-1989    Fix idle times for VMS 5.X      Ted Nieland (SRL)
    6   ;22-Jun-1988	Fix idle time code.		Alaric S. Haag (LSU)
    7   ;			(xx(R10) -> xx(R1) after LOGUCB obtained.)
    8   ;			(UCB$V_TIM symbol ref. changed to UCB$V_TIMOUT)
    9   ; As near as I can tell, pseudo-term. devices (RT, LT, WT drivers) don't wait
   10   ; for interrupt (WFIKPCH), so no idle time (DUETIM) gets logged by system.
   11   ; "Real" term. devices (TT, TX, etc) do. (ASH)
   12   ; 8-Mar-1985	Get RTT stuff to work after Craig Leres (LBL).
******
File DUA6:[VAX88B2.FINGER.SRC]TTUCB.MAR;4
    5   ; 8-Mar-1985	Get RTT stuff to work after Craig Leres (LBL).
************
************
File DECUS$:[SOURCE.FINGER]TTUCB.MAR;7
   54   	$devdef
   55   	$ssdef
   56   	$dcdef
   57   	$prdef
   58   ;
******
File DUA6:[VAX88B2.FINGER.SRC]TTUCB.MAR;4
   47   ;
************
************
File DECUS$:[SOURCE.FINGER]TTUCB.MAR;7
  208   					  	;; is this redirected terminal?
  209   						;; if so, skip process test
  210   3$:	tstl	ucb$l_pid(r10)			;; check for a process
  211   	beql	loop2	  			;; skip if no process
  212   
  213   5$:	movl	ucb$l_tt_logucb(r10),r1		;; get logical UCB address
  214   	bbc	#dev$v_rtt,ucb$l_devchar2(r10),6$ ;; if not remote skip
  215   	movl	r10,r1				;; fake logical ucb for rtt
  216   6$:	subl3	ucb$l_duetim(r10),r3,r2		;; idle time in r2
  217   	bbc	#ucb$v_timout,ucb$w_sts(r1),10$	;; see if unit is timed out
  218   	brb	20$				;; timed out so go zero time
******
File DUA6:[VAX88B2.FINGER.SRC]TTUCB.MAR;4
  197   						;; is this redirected terminal?
  198   						;; if so, skip process test
  199   3$:	tstl	ucb$l_pid(r10)			;; check for a process
  200   	beql	loop2				;; skip if no process
  201   
  202   5$:	movl	ucb$l_tt_logucb(r10),r1		;; get logical UCB address
  203   	bbc	#dev$V_rtt,ucb$l_devchar2(r10),6$ ;; if not remote skip
  204   	movl	r10,r1				;; fake logical ucb for rtt
  205   6$:	subl3	ucb$l_duetim(r10),r3,r2		;; idle time in r2
  206   	bbc	#ucb$v_tim,ucb$w_sts(r10),10$	;; see if unit is timed out
  207   	brb	20$				;; timed out so go zero time
************
************

