#include	<ADUC841.H>
//kare alma uygulamasi
//yalnizca en anlamsiz 4 bit kullanilabilir. 
//diger 4 bit 0 olmalidir. 
org		0000h
	sjmp	basla
basla:
	mov 	DPTR,#Tablo
	mov 	A,#0FFh
	mov 	P1,A
dongu:	
	mov 	A,P1
	movc 	A,@A+DPTR
	mov 	P3,A
	sjmp 	dongu
	Tablo: 	DB 00h, 01d, 04d, 09d, 16d, 25d, 36d, 49d, 64d, 81d, 100d, 121d, 144d, 169d, 196d, 225d
end