;function tolower(ch: char): char;
;begin
	NAME TOLOWER
	ENTRY TOLOWER
TOLOWER:
	ENTR	D,2,0
;  if ( ('A'<=ch) and (ch<='Z') ) then
	MOV	H,A
	MOV	L,8(IX)
	LXI	D,65	;"A"
	XCHG
	LE	D,0
	JNC	L348
	MOV	H,A
	MOV	L,8(IX)
	MOV	A,L
	CMPI	D,91	;"Z"
	MOV	A,H
	JNC	L348
;    tolower := chr(ord(ch)+32)
	MOV	H,A
	MOV	L,8(IX)
	LXI	D,32	;add in offset 32
	DADD	D,0
	MOV	2(IX),L ;save it and exit
	JMP	L381
;  else
;    tolower := ch;
L348:
	MOV	H,A
	MOV	L,8(IX)
	MOV	2(IX),L
L381:
;end;
	EXIT	D,1

 it and exit
	JMP	L381
;  else
;    tolower := ch;
L348:
	MOV	H,A
	MOV	L,8(IX)
	MOV	2(IX),L
L381:
;end;
	EXIT	