/*
	This C language subroutine supports the localization
	header defined in ANSI C.  The standard C translation
	environment is also the implementation defined environment.

	The Run Time Library for the C Language.

	Gordon A. Sterling	(617) 461 - 3076
	DSP Development Tools Engineering

	Created on 01/14/91
	Updated on 5/94 by AS
	Updated on 3/95 by AS - separated polymorphic functions

	#include <locale.h>				    <Header>
	char *setlocaleP(int category, const char *locale);  <Prototype>
*/

#include "lib_glob.h"
#include "loc_glob.h"

.SEGMENT/CODE	Code_Space_Name;
.FILE 		RTL_FILENAME;
.EXTERN		___lib_locale;

.GLOBAL	     ___setlocaleP;

___setlocaleP:	R0=___lib_locale;	/*Return lib_locale address for most*/

setlocale_core:	R4=PASS R4;		/*Test for implementation */
		IF EQ JUMP (PC, restore_state) (DB);
		FETCH_RETURN
		nop;

read_pm:	pm_ptr=R4;
		R4=PM(pm_ptr,0);

finish_up:	R2=67;			/*67 = ASC('C')*/
		COMP(R4,R2), FETCH_RETURN
		IF NE R0=R0-R0;		/*Error return*/

restore_state:	RETURN (DB);
		RESTORE_STACK
		RESTORE_FRAME
.ENDSEG;