#CPU=80C52
#Byte SZ

	main:		
		mov SCON, #40h
		mov RCAP2L, #D9h
		mov RCAP2H, #FFh
		mov T2CON, #34h
		mov A, #30h			

	For SZ = #4Bh		;gibt die Zeichen von "0" bis "z" aus					
		mov SBUF, A
		inc A
		jnb TI, hier
		clr TI
	next

End