* $Source: /commtar/monoBANK/RTS/tKmisc.a,v $ 
* $Revision: 1.1 $ $Date: 88/02/29 17:30:08 $ $Author: callen $ 
    ENTRY TIO@PUTL,CL@GETCL
    PUNCH ' ALIAS TIO@PUTL,CL@GETCL'
TIO@PUTL START
    BR   14        PAR1 pts to string, PAR2 pts to dope
*                  someday, convert to ebcdic and send-text
*                  or implement more of this in Ada
*
CL@GETCL EQU *
    LA   10,1
    ST   10,0(4)  First = 1
    XR   10,10
    ST   10,4(4)  Last = 0
    BALR 10,0   Put some garbage in 10
    BR   14        Return (null string)
    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$