wert deney 3.txt

3 simple AVR assembler code to use seven segment display. These 3 codes realy simple way using seven

.include"m8def.inc"

;Seven Segment connected to portD
.equ segA = 0
.equ segB = 1
.equ segC = 3
.equ segD = 2
.equ segE = 7
.equ segF = 5
.equ segG = 6
.equ segP = 4

; Portb 4,5 connected to Seven segment common pins (common Anode)
.equ  DispL = 4
.equ  DispR = 5

.DSEG 
rakaml:	.byte	1
rakamr:	.byte	1
sayi:	.byte	1



.CSEG
.org 0

; Setting Stack
	ldi r16,low (RAMEND)
	out spl,r16
	ldi r16,high (RAMEND)
	out sph,r16

; Setup ports

	ldi	r16,255
	out	ddrd,r16	;Portd Hepsi out

	sbi ddrb,DispL
	cbi portb,DispL   ;display se鏼e 

	sbi ddrb,DispR
	sbi portb,DispR    ;display se鏼e

;initialize others
	clr	r16
	sts	sayi,r16
	clr	r19

;main function
Main:
	rcall 	set_sayi

loop1:
	lds		r16,rakaml
	out		portd,r16
	cbi 	portb,DispR   ;display se鏼e 
	sbi 	portb,DispL   ;display se鏼e 
	ldi		r17,5
	rcall	delayms
	lds		r16,rakamr
	out		portd,r16
	cbi 	portb,DispL   ;display se鏼e 
	sbi 	portb,DispR   ;display se鏼e 
	ldi		r17,5
	rcall	delayms

	inc		r19
	cpi		r19,50
	brne	loop1
	clr		r19
	rcall	sayi_arttir
	rjmp	main


sayi_arttir:
	lds		r16,sayi
	inc	  	r16
	cpi   	r16,100
	breq  	sayilar_sil
	rjmp	sayilar_cik
sayilar_sil:
	clr	  	r16
sayilar_cik:
	sts		sayi,r16
	ret
set_sayi:
	lds		r16,sayi
	ldi		r17,10
	rcall	div8u
	;sts		rakamr,r15	; kalan
	;sts 	rakaml,r16	; sonu