;function isdigit(ch: char): boolean;
;begin
	NAME ISDIGIT
	ENTRY ISDIGIT
ISDIGIT:
	ENTR	D,2,0
;  isdigit := (('0'<=ch) and (ch<='9'));
	MOV	H,A
	MOV	L,8(IX)
	LXI	D,48	;"0"
	XCHG
	LE	D,0
	jrnc	L240
	MOV	H,A
	MOV	L,8(IX)
	MOV	A,L
	CMPI	D,58	;"9"
	MOV	A,H
	jrnc	L240
	INR	A
L240:
	MOV	L,A
	XRA	A
	MOV	H,A
	MOV	2(IX),L
;end;
	EXIT	D,1


	MOV	A,L
	CMPI	D,58	