;
; SYSLIB Module Name:  SCAPS
; Author:  Richard Conn
; SYSLIB Version Number:  2.0
; Module Version Number:  1.0
; Module Entry Points:
;	CAPS
; Module External References:
;	None
;

;
;  CAPS -- Capitalize ASCII Character in A
;
CAPS::
	ANI	7FH	; MASK OUT MSB
	CPI	61H	; LESS THAN SMALL LETTER A?
	RC
	CPI	7AH+1	; BETWEEN SMALL A AND SMALL Z?
	RNC
	ANI	5FH	; REMOVE BIT 5 TO CAPITALIZE (0X0X XXXX)
	RET

	END
