/*
	This C language subroutine returns non-zero
	if the input if alphabetic zero otherwise.

	The Run Time Library for the C Language.

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

	Updated on 5/94 by AS

	#include <ctype.h>			<Header>
	int isalpha(int c);			<Prototype>
*/

#include "lib_glob.h"
#include "cty_glob.h"

.SEGMENT/CODE	Code_Space_Name;
.FILE RTL_FILENAME;

.GLOBAL	    _isalpha;

_isalpha:	R2=32;			/*Caps mask*/
		R4=R4 OR R2, FETCH_RETURN	
		R2=122;			/*122 = ASC('z')*/
		COMP(R4,R2), R0=dm_1;	/*Set return to true*/
		IF GT R0=R0-R0;
		R2=97;			/*97 = ASC('a');*/
		COMP(R4,R2);
		IF LT R0=R0-R0;

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