;****************************************************************************
;*
;*	Copyright (C) 1984-2004 Micro Focus International Ltd.
;*
;*      All rights reserved.  Unpublished, all rights reserved under
;*      copyright law and international treaty.  Use of a copyright notice
;*      is precautionary only and does not imply publication or disclosure.
;*      This software contains confidential information and trade secrets of
;*      Micro Focus Ltd. and no part of this program or publication may be
;*      reproduced, transmitted, transcribed, stored in a retrieval system,
;*      or translated into any language or computer language, in any form
;*      or by any means, electronic, mechanical, magnetic, optical, chemical,
;*      manual or otherwise, without the prior written permission of:
;*
;*      Micro Focus Ltd,
;*      The Lawn, Old Bath Road, Newbury, Berkshire, RG14 1QN, UK.
;*      (01635) 32646
;*
;*      RESTRICTED RIGHTS LEGEND
;*      Use, duplication, or disclosure by the Government is subject to
;*      restrictions as set forth in subparagraph (c)(1)(ii) of the Rights
;*      in Technical Data and Computer Software clause at DFARS 52.227-7013
;*      or subparagraphs (c)(1) and (2) of Commercial Computer Software -
;*      Restricted Rights at 48 CFR 52.227-19, as applicable.  Contact
;*      Micro Focus Incorporated, 1001 W. Maude Avenue, Sunnyvale, California 94085, USA
;*
;*	Assembler files for use in Genesis Unix builds.
;*
;*	Source Module map.hp.app	Sccs Identification 5.3
;*
;*	Last Modified on 04/06/24 at 15:45:10
;*
;****************************************************************************/
;** Start of source module map.hp.app **/
        .SPACE  $TEXT$
        .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
        .IMPORT &mFNAM2,code
        .IMPORT $$dyncall,millicode
        .export &mFNAME,entry
C.&mFNAME .equ 0x4bc23fd1
&mFNAME
	.proc
	.callinfo
	.entry
	; Kill the intermediate stub that handles inter-space return
	; - rely on $$dyncall to store r2 in -24(sp) and go to a stub
        ;   that handles interspace returns
	copy	%r2,%r1
	depi    0,31,2,%r1
        ldw     0(%r1),%r22
        ldil    L'C.&mFNAME,%r1
        ldo     R'C.&mFNAME(%r1),%r31
        combf,=,n  %r22,%r31,.+8
	ldw     -24(%sp),%r2
	addil   LT'PL.m.&mFNAME,%r19,%r1
	ldw     RT'PL.m.&mFNAME(%r1),%r1
	ldw	0(%r1),%r22
	b,l	.+8,%r1
	addil   l'$$dyncall-P2.&mFNAME,%r1,%r1
P2.&mFNAME
        ldo     r'$$dyncall-P2.&mFNAME(%r1),%r1
	ldsid   (%r1),%r31
	mtsp    %r31,%sr0
	be 	0(%sr0,%r1)
	nop
	.procend
	.SPACE	$TEXT$
	.SUBSPA	$CODE$
	.SPACE	$PRIVATE$,SORT=16
	.SUBSPA	$DATA$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=16
PL.m.&mFNAME
	.ALIGN	8
	.WORD  P'&mFNAM2
