;  LOGTIM  -  DISPLAY DATE, TIME, AND CONNECT TIME
;
;       1.0  CREATION  6/14/88  Marc McCauley
;

       VMAJOR=1
       VMINOR=0

       SEARCH  SYS
       SEARCH  SYSSYM
       SEARCH  TRM

       EXTERN  $ODTIM,$OTCON

LOGTIM: PHDR    -2,0,PH$REE!PH$REU
       JOBIDX  A0                      ; job index
       TSTW    JOBUSR(A0)              ; Is user logged in ?                   [106]
       JEQ     NOLOG                   ;  No. Tell 'em.                        [106]
;       TYPESP  <User>
;       PRPPN   JOBUSR(A0)              ; print account #
;       TYPESP  < on system at>
;Display current date/time
       CLR     D3                      ; use current date/time
       CLR     D5
       MOV     #-1,D5                  ;   and default format
       SUB     A2,A2                   ; output to terminal
       CALL    $ODTIM
       CRLF
;Display Connect time
       TYPESP  <Connect time:>
       MOV     JOBCON(A0),D1           ; get connect time
       SUB     A2,A2                   ; display on terminal
       CALL    $OTCON                  ; display connect time
       CRLF

       EXIT                            ; Outa here

NOLOG:  TYPECR  ?Not logged in          ; Dummy !                               [106]
       EXIT                            ;                                       [106]

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.