;function isspace(ch: char): boolean;
;{ returns true if char is a space or a tab char }
;begin
	NAME ISSPACE
	ENTRY ISSPACE
ISSPACE:
	ENTR	D,2,0
;  isspace := ( (ch=' ') or (ch=CHR(9)) );
	MOV	H,A
	MOV	L,8(IX)
	MOV	A,L
	CMPI	D,32	;" "
	MOV	A,H
	JZ	L263
	MOV	H,A
	MOV	L,8(IX)
	PUSH	H
	LXI	H,9
	POP	D
	DSB1	D,0
	JRNZ	L258
L263:
	INR	A
L258:
	MOV	L,A
	XRA	A
	MOV	H,A
	MOV	2(IX),L
;end;
	EXIT	D,1
	H
	LXI	H,9
	POP	D
	DSB1	D,0
	JRNZ	L258
L263:
	INR	A
L258:
	MOV	L,A
	XRA	A
	M