TIME     TITLE 'S1TIME.  TIME FROM COMPUTER CLOCK IN FORM HR:MN:SC.'    00000001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
*TITLES1TIME -- TIME FROM COMPUTER CLOCK IN FORM HR:MN:SC               00000002
*A    AUTHOR               HANS HOOGSTRAAT                              00000003
*A    DESIGNER             SAME                                         00000004
*A    LANGUAGE             S/370 ASSEMBLER                              00000005
*A    WRITTEN              UNKNOWN                                      00000006
*     ABSTRACT              1- 9-76 FAC                                 00000007
*     REVISED               1- 9-76 FAC.  HR.MN.SC TO HR:MN:SC          00000008
*A                                                                      00000009
*A                                                                      00000010
*A    CALL S1TIME (TIME)                                                00000011
*A         OUTPUT  TIME = TIME FROM COMPUTER CLOCK, HR:MN:SC.       R8  00000012
*AEND                                                                   00000013
*                                                                       00000014
*                                                                       00000015
S1TIME   CSECT                                                          00000020
*                                                                       00000030
*        S1TIME    (TIME)                                               00000040
*                                                                       00000050
*                                                                       00000060
*        ======================================================         00000070
*               *                PROGRAM DEVELOPED BY                   00000080
*             * H *       HOOGSTRAAT PROGRAMMING SERVICES LTD.          00000090
*           * P   S *            BOX 20, SITE 7, SS #1                  00000100
*         * * * * * * *   CALGARY, ALTA.  CANADA   PH 288-8088          00000110
*        ======================================================         00000120
*                                                                       00000130
         COPY      S1REG                                                00000140
BASE     EQU       R3                                                   00000150
         STM       R2,R3,28(R13)                                        00000160
         BALR      R3,0                                                 00000170
         USING     *,BASE                                               00000180
*                                                                       00000190
         L         R2,0(R1)                                             00000200
         TIME      DEC                                                  00000210
         LR        R1,R0                                                00000220
*                                                                       00000230
         MVI       2(R2),C':'                                           00000240
         MVI       5(R2),C':'                                           00000250
         LA        R0,15                                                00000260
         SLDL      R0,4                                                 00000270
         STC       R0,0(R2)                                             00000280
         LA        R0,15                                                00000290
         SLDL      R0,4                                                 00000300
         STC       R0,1(R2)                                             00000310
         LA        R0,15                                                00000320
         SLDL      R0,4                                                 00000330
         STC       R0,3(R2)                                             00000340
         LA        R0,15                                                00000350
         SLDL      R0,4                                                 00000360
         STC       R0,4(R2)                                             00000370
         LA        R0,15                                                00000380
         SLDL      R0,4                                                 00000390
         STC       R0,6(R2)                                             00000400
         LA        R0,15                                                00000410
         SLDL      R0,4                                                 00000420
         STC       R0,7(R2)                                             00000430
         LM        R2,R3,28(R13)                                        00000440
         BR        R14                                                  00000450
         LTORG                                                          00000460
         END                                                            00000470