*-----------------------------------------------------------
* UPCHAR - Read one ASCII character, covert to uppercase,
*          and print it
*-----------------------------------------------------------
UPCHAR	ORG	$8000

	TRAP	#0		;read char from keyboard -> D0
	CMP.B	#'a',D0
	BLT	EXIT		;if smaller than 'a'
	CMP.B	#'z',D0
	BGT	EXIT		;if bigger than 'z'

	AND.B	#%11011111,D0	;clear bit 5 of D0 (convert to upcase)

EXIT	TRAP	#1		;output D0 -> screen
	TRAP	#14		;Return to MON68K

	END	UPCHAR
*~Font name~Courier New~
*~Font size~10~
*~Tab type~1~
*~Tab size~8~