		#include		"aduc841.h"
		org		0000h
			
			
			basla:
			
			//1. SORU
			
			setb		p3.1
			setb		p3.3		
			anl			p3,#11111010b      //p3 ün düsük nibblesi si 10d yapildi yüksek nibbleye ellenmedi
			jnb		p1.0,etiket1			
			jnb		p1.2,etiket2			
			sjmp	etiket3
			
			etiket1:
			
			mov			a,p3
			anl			a,#00001111b			
			rl			a
			mov			p0,a
			
			etiket2:
			
			mov			a,p3
			anl			a,#00001111b			
			mov			b,#3d
			mul			ab
			mov			p0,a
			
			etiket3:
						
			//2.SORU
						
			setb		p3.1
			setb		p3.3		
			anl			p3,#11111010b      //p3 ün düsük nibblesi si 10d yapildi yüksek nibbleye ellenmedi			
			jnb		p1.0,etiket4			
			jnb		p1.2,etiket5			
			sjmp	etiket6
			
			etiket4:
			
			acall		alt1
			
			etiket5:
			
			acall		alt2
			
			etiket6:
			
			
			//SORU3 gözlemlendi
			//SORU4	veritabani olusturuldu en altta
			
			//SORU5
			
			mov			dptr,#veritabani
			mov			a,#8d
			movc		a,@a+dptr
			mov			p0,a
			
			//SORU6 A SIKKI
					
			mov			r0,#10d
			
			etiket7:
			mov			a,r0
			movc		a,@a+dptr
			mov			p0,a						
			djnz		r0,etiket7
			
			//SORU6 B SIKKI            //***HATA BU SORUDA YAPAMADIM****       				
			
			//mov			r0,#10d
			//mov			a,#0d
			
			//etiket8:
			//mov			r1,a
			//movc		a,@a+dptr
			//mov			p0,a		       
			//mov			a,r1
			//add			a,#1d
			//djnz		r0,etiket8             
			
			
			//SORU7	A SIKKI
			
			mov			r0,#0ah
			mov			a,#0d
			etiket9:
			mov			r0,a
			movc		a,@a+dptr
			mov			p0,a
			mov			a,r0
			add			a,#1d
			dec			r0
			cjne		r0,#00h,etiket9  
				
			//SORU 7 B SIKKI
			
			mov			r0,#00h
			mov			a,#0d
			etiket10:
			movc		a,@a+dptr
			mov			p0,a	
			add			a,#1d
			inc			r0
			cjne		r0,#0ah,etiket10           
						
			//SORU	8   veritabaninda 6d degeri varsa p0.1 yak yoksa p0.2 yak
			
			mov			r1,#0ah
			mov			r0,#6d
			mov			a,#0d
			etiket11:
			mov			r2,a
			movc		a,@a+dptr
			mov			r0,a
			mov			a,r2
			add			a,#1d
			dec			r1
			cjne		r0,#6d,etiket11
		    djnz		r1,etiket12			
			setb		p0.2
			sjmp		etiket13			
			etiket12:
			setb p0.1
			etiket13:
			
			//SORU 9

				
			sjmp basla
			
			ALT1:
			mov			a,p3
			anl			a,#00001111b
			rl			a
			mov			p0,a
			ret
			
			
			ALT2:
			mov			a,p3
			anl			a,#00001111b
			mov			b,#3d
			mul			ab
			mov			p0,a
			ret
			
	    	veritabani:	db	19d,8d,17d,6d,15d,4d,13d,2d,11d,0d 
				end