;****************************************************************************
;*
;*	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 main.hp.app	Sccs Identification 5.3
;*
;*	Last Modified on 04/06/24 at 15:45:09
;*
;****************************************************************************/
;
;** Start of source module main.hp.app **
        .SPACE  $TEXT$,SPNUM=0,SORT=8
        .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44,SORT=16
        .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY,SORT=24
        .EXPORT main,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,RTNVAL=GR
	.import _mFargc,data
	.import _mFargv,data
        .import _mFgmain,code
        .IMPORT &mFNAME,CODE
	.IMPORT	$global$,DATA
main
        .PROC
        .CALLINFO CALLER,FRAME=0,SAVE_RP
        .ENTRY
        STW     %r2,-20(0,%r30)     ;offset 0x0
        LDO     64(%r30),%r30       ;offset 0x4
       ;
       ; call _mFgmain( entrypt )
       ;
	addil   lr'_mFargc-$global$,%r27,%r1
	stw     %r26,rr'_mFargc-$global$(%r1)
	addil   lr'_mFargv-$global$,%r27,%r1
	stw     %r25,rr'_mFargv-$global$(%r1)
	addil   lr'PL.&mFNAME-$global$,%r27,%r1
	.call   ARGW0=GR,ARGW1=GR,RTNVAL=GR 
	bl      _mFgmain,%r2
	ldw     rr'PL.&mFNAME-$global$(%r1),%r26
        .EXIT
	ldw     -64-20(%r30),%r2
	bv      0(%r2)
        LDO     -64(%r30),%r30      ;offset 0x48
        .PROCEND ;in=28,29;
	.space  $PRIVATE,SORT=16
	.subspa $DATA$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=16
	.align  8
PL.&mFNAME
	.word	P'&mFNAME
	.END
