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'. ;---------------------------------------------------------------------------