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$