721.asm

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

.include "8535def.inc"
rjmp reset
tab:.db $3f,$06,$5b,$4f,$66,$6d,$7d,$07,$7f,$6f  ;七段码表
reset:ldi r16,$02            ;栈指针置初值
      out sph,r16          
      ldi r16,$5f
      out spl,r16
      ldi r16,0              ;定义B口输入带上拉 
      ldi r16,$ff            
      out portb,r16
      out ddrc,r16           ;定义C口、D口为输出
      out ddrd,r16
      in r20,pinb            ;读B口引脚
      com r20                ;取反
      mov r21,r20
      andi r16,$0f           ;取个位BCD码
      swap r21               ;半字节交换
      andi r17,$0f           ;取十位BCD码
      ldi ZH,high(tab*2)     ;查个位七段码
      ldi ZL,low(tab*2)
      add ZL,r16
      lpm
      out portc,r0           ;送C口静态输出
      ldi ZH,high(tab*2)     ;查十位七段码
      ldi ZL,low(tab*2)
      add ZL,r17
      lpm
      out portd,r0          ;送D口静态输出
h:    rjmp  h