* $Source: /commtar/monoBANK/RTS/tKclkasm.a,v $ 
* $Revision: 1.1 $ $Date: 88/03/28 19:02:55 $ $Author: rac $ 
	 PUNCH ' ALIAS TSK$LOCZ'
         PUNCH ' ALIAS TSK$STIM,TSK$SALM,TSK$STAL,TSK$EAHA,TSK$RAHA'
         SPACE
CLKASM   ADASTART 'Clock support routines'
*********************************************************************
*                                                                   *
*        This module contains code for a number of assembler        *
*        routines that were coded for UTS and then MVS.             *
*                                                                   *
*        These routines do not need to use the stack                *
*        frame and therefore don't use the usual Ada linkage        *
*        macros.                                                    *
*                                                                   *
*********************************************************************
         SPACE
         ENTRY TSK$LOCZ
TSK$LOCZ DS    0H
*********************************************************************
*                                                                   *
*        function ASM_Local_Time_Zone return Fix_Int;               *
*            --| return the time zone difference between            *
*            --| clock and local time                               *
*                                                                   *
*********************************************************************
         USING *,RUDAPRI
         LA    RVAL,DZERO                rtn 0 as the local time diff
         ENTRY TSK$STIM
TSK$STIM DS    0H
         ENTRY TSK$SALM
TSK$SALM DS    0H
         ENTRY TSK$STAL
TSK$STAL DS    0H
         ENTRY TSK$EAHA
TSK$EAHA DS    0H
         ENTRY TSK$RAHA
TSK$RAHA DS    0H
*********************************************************************
*                                                                   *
*        these 5 functions are 1750A specific and are null          *
*        on CICS, except TSK$LOCZ which returns 0                   *
*                                                                   *
*********************************************************************
         BR    RRET                      return
DZERO    DC    2F'0'
         SPACE
         ORG
         END
* $Cprt start$
*  
* Copyright (C) 1988 by Intermetrics, Inc. 
*  
*     This material may be used duplicated or disclosed by or for the 
* U.S. Government pursuant to the copyright license under DAR clause 
* 7-104.9(a) (May 1981). 
*  
*     This project was spnsored by the STARS Foundation 
*     Naval Research Laboratory, Washington DC 
*  
* $Cprt end$