slavr734.asm

单片机开发资料光盘-双龙-686M.zip

;*********************十进制计数程序 **********************************
;*
;* 标题:	用二位LED显示十进制计数	
;* 版本:		1.0
;*最后更新日期:	2000.08.08
;*
;* 支援 E-mail:	[e-mail]
;*
;* 描述
;*    用AVR AT90S1200的D口接二只LED数目管,PB7,PB6作片选,硬件设定D口高电平LED灯
;*   亮,B口低电平选中LED,即选用共阴极数目管。硬件接线原理图如下:
;*  
;* 
;* 作者: SL.Z
;*程序适用于所有单片机
;***************************************************************************

.include"1200def.inc"
.org $0000
	rjmp reset
.org $0010
  reset:ldi r20,$ff
        out ddrb,r20
        out ddrd,r20
        sbi $18,7
        sbi $18,6
        ldi r20,$fe
	mov r0,r20
        ldi r20,$b0
	mov r1,r20
        ldi r20,$ed
	mov r2,r20
        ldi r20,$f9
	mov r3,r20
        ldi r20,$b3
	mov r4,r20
        ldi r20,$db
	mov r5,r20
        ldi r20,$df
	mov r6,r20
        ldi r20,$f0
	mov r7,r20
        ldi r20,$ff
	mov r8,r20
        ldi r20,$f3
	mov r9,r20
        ldi r20,$f7
	mov r10,r20
        ldi r20,$9f
	mov r11,r20
        ldi r20,$ce
	mov r12,r20
        ldi r20,$bd
	mov r13,r20
        ldi r20,$cf
	mov r14,r20
        ldi r20,$c7
	mov r15,r20
	bclr 7
	clr r28
main:   ldi r20,$28
start:  mov r30,r28
display:andi r30,$f0    ;load high 4 bit
	swap r30
ledh:   ld r25,z
        out portd,r25
        sbi $18,6
        cbi $18,7
        ldi r27,$10
delay1:	dec r26
	brne delay1
	dec r27
	brne delay1
        sbi $18,7
        nop
	mov r30,r28
	andi r30,$0f
ledl:   ld r25,z
        out portd,r25
        sbi $18,7
        cbi $18,6
        ldi r27,$10
delay2: dec r26
        brne delay2
	dec r27
        brne delay2
        sbi $18,6
	nop
        dec r20
        brne start
        inc r28
        rjmp main