;C************************************************************************
;C*
;C*  COPYRIGHT (c) 1981,1983,1984,1987,1988
;C*  Westinghouse Electric Corporation
;C*
;C*  THIS SOFTWARE IS FURNISHED WITHOUT LICENSE AND MAY BE USED AND
;C*  COPIED ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.
;C*
;C*  THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;C*  AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY WESTINGHOUSE.
;C*
;C*  WESTINGHOUSE ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
;C*  OF THIS SOFTWARE.
;C*
;C****************************************************************************
	.entry return_astprm, ^m<r2>
	movl  8(fp), r2        ;  old argument pointer
        movl  4(r2), r0
        ret
	.end