;function isalpha(ch: char): boolean;
;begin
	NAME ISALPHA
	ENTRY ISALPHA
ISALPHA:
	ENTR	D,2,0
;  isalpha := ( ('A'<=ch) and (ch<='Z') ) or
	MOV	H,A
	MOV	L,8(IX)
	LXI	D,65
	XCHG
	LE	D,0
	jrnc	L147
	MOV	H,A
	MOV	L,8(IX)
	MOV	A,L
	CMPI	D,91
	MOV	A,H
	jrc	L141
L147:
;	     ( ('a'<=ch) and (ch<='z') );
	MOV	H,A
	MOV	L,8(IX)
	LXI	D,97
	XCHG
	LE	D,0
	jrnc	L165
	MOV	H,A
	MOV	L,8(IX)
	MOV	A,L
	CMPI	D,123
	MOV	A,H
	jrnc	L165
L141:
	INR	A
L165:
	MOV	L,A
	XRA	A
	MOV	H,A
	MOV	2(IX),L
;end;
	EXIT	D,1

OV	A,L
	CMPI	D,123
	MOV	A,H
	jrnc	L165
L141:
	INR	A
L165:
	MOV	L,A
	XRA	A
	MOV	H,A
	MOV	2(IX