FTN4  
      PROGRAM TIME(5), 92080-16213 REV.2026  800515 
C 
C 
C 
C  NAME: TIME 
C  SOURCE:  &TIME     92080-18213 
C  BINARY:  %TIME     92080-16203 
C 
C  PMGR:  STEVE WITTEN, 
C         DATA SYSTEMS DIVISION 
C         CUPERTINO, CA.
C 
C 
C  *************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS   *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE-*
C  * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- *
C  * OUT PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.     *
C  *************************************************************
C 
C  THIS PROGRAM GENERATES A CHARACTER STRING TO CONFIGURE THE 
C    CLOCK AND SET THE TIME ON AN HP3077 TERMINAL.
C 
C  INVOCATION IS BY : 
C 
C     RU,TIME,LU,FLAG 
C 
C               WHERE 'LU' IS THE HP3077 TERMINAL LU# AND 
C                   'FLAG' IS ZERO IF THE CLOCK IS TO DISPLAY TIME
C                             ON A 12-HOUR CLOCK AND
C                          IS ONE IF THE CLOCK IS TO DISPLAY TIME 
C                             ON A 24-HOUR CLOCK. 
C 
C  THIS PROGRAM SHOULD BE SP'ED ON LU#2 AT '*DATCA-TIME', AND 
C     RP'ED, RU'ED, AND OF'ED IN A TRANSFER FILE TO 'UP' THE HP 3077
C     TERMINALS 
C 
      INTEGER TIME(5),PARM(5),MSG(6)
      EQUIVALENCE (LU,PARM(1))
      DATA MSG/015455B,2Ht ,2Hc ,2H h,2H  ,2HM /
      CALL RMPAR(PARM)
      CALL EXEC(11,TIME)
      IF(PARM(2).EQ.0.AND.TIME(4).GT.12)TIME(4)=TIME(4)-12
      PARM(2)=IASC(PARM(2))*256 
      TIME(4)=IASC(TIME(4)) 
      CALL PUTCA(MSG,PARM(2),4) 
      CALL MOVCA(TIME(4),1,MSG,6,2) 
      TIME(3)=IASC(TIME(3)) 
      CALL MOVEW(TIME(3),MSG(5),1)
      CALL EXEC(2,LU,MSG,-11) 
      CALL EXEC(6)
      END 
END$
                                                                                                                                                                                                                                                        