PRO tki_push16, num
;
   
;#############################################################################
;#                                                                           #
;# Procedure name   : TKI_PUSH16                                             #
;#                                                                           #
;# Author           : Dietmar Germerott                                      #
;# Language         : IDL                                                    #
;# Purpose          : Push a 16 bit number to the Stack                      #
;# Creation date    : 20-APR-1995                                            #
;# Update date      : 14-FEB-1996                                            #
;# External modules :                                                        #
;#                                                                           #
;# Call Sequence    : tki_push16, num                                        #
;#                                                                           #
;# Arguments        : num - 16 bit number                                    #
;#                                                                           #
;# Description      :                                                        #
;#                                                                           #
;#                                                                           #
;#############################################################################


@tki_common_priv                ;/* INSERT TKI COMMON VARIABLES */

   memo__(sbp + sp) = BYTE(num, 0, 2)
   tki_spupd, 2
END


;---------------------------------------------------------------------------
; End of 'TKI_PUSH16.PRO'.
;---------------------------------------------------------------------------