	#include "aduc841.h"
	org		0000
	sjmp	ayar
ayar:
	; burada mikro 
	; ayarlari yapilir
basla:
	mov		r0,#04h
	mov		a,#33h
xx:
	mov		@r0,a
	inc		a
	djnz 	r0,xx
	
	// cevap 9 kismi
	
	mov		r7,#0h ; toplam
	mov		r0,#04h  ; r0 guncelle
	
	// 3 aliyoruz
	mov		a,@r0
	anl		a,#0f0h ; ilk 30 alindi, bunu swapla
	swap	a       ; 3 geldi				
	mov		r7,a    ; r7=3 oldu
	
	// 34'un 4'ünü alalim ve toplayalim
	dec		r0
	mov		a,@r0
	anl		a,#0fh   ; 34 oldu 04 ve toplayalim
	clr		c
	add		a,r7
	mov		r7,a     ; son toplam
	
	// 35'in 3 unu alalim
	dec		r0
	mov		a,@r0
	anl		a,#0f0h ; 35 oldu 30, swap la 3 u elde et
	swap	a
	clr		c
	add		a,r7
	mov		r7,a	; son toplam
	
	// 36'in 6 sini alalim
	dec		r0
	mov		a,@r0
	anl		a,#0fh  ; 36 oldu 06
	clr		c
	add		a,r7
	mov		r7,a   ; son toplam ve btii
	
	mov		p0,a
	
	
	bekle:  sjmp	bekle
	
	sjmp	basla
	
	end