;function toupper(ch: char): char;
;begin
	NAME TOUPPER
	ENTRY TOUPPER
TOUPPER:
	ENTR	D,2,0
;  if  (('a'<=ch) and (ch<='z')) then
	MOV	H,A
	MOV	L,8(IX)
	LXI	D,97	;"a"
	XCHG
	LE	D,0
	JNC	L297
	MOV	H,A
	MOV	L,8(IX)
	MOV	A,L
	CMPI	D,123	;"z"
	MOV	A,H
	JNC	L297
;    toupper := chr(ord(ch)-32)
	MOV	H,A
	MOV	L,8(IX)
	LXI	D,-32	; subtract offset - 32
	DADD	D,0
	MOV	2(IX),L
	JMP	L330
;  else
;    toupper := ch;
L297:
	MOV	H,A
	MOV	L,8(IX)
	MOV	2(IX),L
L330:
;end;
	EXIT	D,1
;
MOV