单片机打铃器设计

;**** 单片机打铃器设计 **************************************************
;* 编号：LRDZAVR0100　
;* 标题: 32点打铃器例程
;* 文件名：timecontr.asm
;* 版本: １.０
;* 开始日期: 02.06.13
;* 目标ＭＣＵ: AT90S8515
;* 技术支持: http://www.dianz.cn
;* 硬件结构： PA0-5对应６个ＬＥＤ数显管的位 ，PC0-7对应各ＬＥＤ数显管的段 ，PB4-7为键盘。
;* 软件描述： 上电后，时钟从00.00.00（时/分/秒）自动走时，在走时状态时 ， 按PB4（设定
;* 键）超过3秒可循环选择调整时间/工作参数 ，接着按PB5以确定选择的操作 ，进入调整操作后 ，
;* 按PB5选择欲调整参数，按PB6（增加键）完成调整参数操作 。按PB7，进入时控运行，PB1亮，
;* 再按PB7停止时控运行，回显走时。在定时到时，PB0点亮。
;******************************************************

.device AT90S8515
.include "8515def.inc"
.equ DISBUF = $0060 ;显示缓冲区起始地址
.equ TIMEDIS = $0066 ;时钟时分秒存放单元
.equ XSDBZ = $0073 ;小数点位标志
.equ DISTBL = $0f00 ;显示字符编码表起始地址
.equ TIMECTR = $0010 ;32段时间控制表首址（EEPRON）
.equ TIMECBZ = $0080 ;控制时间到标志
.cseg
.org $0000
rjmp RESET
.org $0007
rjmp TIM0_OVF

;****单片机打铃器设计主程序*****************************************************

.def cntms =r9
.def hour =r10
.def minute =r11
.def second =r12
.def EEdwr =r16
.def EEawr =r17
.def EEawrh =r18
.def EEdrd =r16
.def EEard =r17
.def EEardh =r18
.def temp =r20
.def temp1 =r21
.def temp2 =r22
.def temp3 =r23
.def temp4 =r24
.def TIM0INT =r19

.org $0020
RESET: ldi temp,low(ramend) ;设置堆栈指针
out spl,temp
ldi temp,high(ramend)
out sph,temp
ldi temp,0b11111111 ;设置各口线输入输出状态
out ddra,temp
ldi temp,0b00000011
out ddrb,temp
ldi temp,0b11111111
out ddrc,temp
ldi zl,TIMECBZ
clr zh
clr temp
st y,temp
clr r9 ;清各工作寄存器
clr r10
clr r11
clr r12
clr r13
clr r14
clr r15
clr r16
clr r17
clr r18
clr r19
clr r25
ldi temp,$5
out tccr0,temp ;T0设置ck/1024分频
ldi temp,256-195
out tcnt0,temp ;装T0时间常数
res1: ldi temp,$02 ;允许T0中断，并计时
out timsk,temp
sei ;开中断
res2: clr r6
clr r7
sbi PORTb,1
sbi PORTB,0
res3: ldi temp,$af
res4: rcall colodis ;时钟走时显示
dec temp
brne res4
sbis pinb,7 ;键扫描
rjmp PB7M
sbis pinb,4
rjmp BP4M ;去参数设置
rjmp res3

;****《系统功能程序》

.org $0080 ;定义系统功能程序存放区首址

;****32点打铃器工作程序*******************************************************

PB7M: cbi PORTb,1 ;置运行指示灯亮
clr r25
clr r7
GNCX11:ldi r17,TIMECTR ;首个控制点EEPRON地址
clr r18
lsl r25
lsl r25
add r17,r25 ;取得EEPRON中控制点地址（Aj=A0+4*j)，A=(r17),j=(r25)
lsr r25
lsr r25
rcall EERead
cpi r16,0
breq GNCX12 ;r16=(r17)=0为“ON”
inc r25
cpi r25,31
brmi GNCX11
rjmp GNCX16
GNCX12:inc r17
rcall EERead
cp r16,r10
brne GNCX13
inc r17
rcall EERead
cp r16,r11
brne GNCX14
inc r17
rcall EERead
mov r7,r16
inc r7
cbi PORTb,0
rjmp GNCX15
GNCX13:dec r17
inc r25
rjmp GNCX11
GNCX14:dec r17
dec r17
inc r25
rjmp GNCX11
GNCX15:cpi TIM0INT,1
brne GNCX17
clr TIM0INT
dec r7
brne GNCX17
clr r7
sbi PORTb,0
rjmp GNCX16
GNCX17:rcall colodis
sbic pinb,7
rjmp GNCX15
rjmp res2
GNCX16:ldi temp,$5f
GNCX18:rcall colodis
dec temp
brne GNCX18
sbic pinb,7
rjmp GNCX11
rjmp res2

;****单片机打铃器参数设置

BP4M: ldi temp3,$ff
ldi temp4,$f
BP4M1: nop
rcall colodis
sbic pinb,4
rjmp res1
dec temp3 ;PB4有按下
brne BP4M1
inc temp3
dec temp4
brne BP4M1
ldi temp3,$ff ;超3秒进入
ldi temp4,$f
BP4M2: clr yh
ldi yl,low(DISBUF) ;设置显示cloc.
ldi temp,25
st y+,temp
st y+,temp
ldi temp,18
st y+,temp
ldi temp,19
st y+,temp
ldi temp,20
st y+,temp
ldi temp,18
st y,temp
ldi zl,low(XSDBZ)
clr zh
ldi temp,0b00100000 ;b0-5对应LED自左到右1-6位的小数点，置“1”在该位置小数点。
st z,temp
rcall display
sbis pinb,5
rjmp cloc ;进入时间设置
dec temp3
brne BP4M2
inc temp3
dec temp4
brne BP4M2
BP4M3: ldi temp3,$ff
ldi temp4,$f
BP4M4: clr yh
ldi yl,low(DISBUF) ;设置显示labor.
ldi temp,25
st y+,temp
ldi temp,19
st y+,temp
ldi temp,10
st y+,temp
ldi temp,11
st y+,temp
ldi temp,20
st y+,temp
ldi temp,22
st y,temp
ldi zl,low(XSDBZ)
clr zh
ldi temp,0b00100000 ;b0-5对应LED自左到右1-6位的小数点，置“1”在该位置小数点。
st z,temp
rcall display
sbis pinb,5
rjmp GNCS1 ;进入工作参数设置
dec temp3
brne BP4M4
inc temp3
dec temp4
brne BP4M4
sbic pinb,4
rjmp BP4M
rjmp res1
;****时钟调整***********************************************
cloc: clr temp
out timsk,temp ;不许T0中断
cli ;关中断
rcall colodis
mov temp,r10
clr temp4
ldi temp1,20
ldi temp3,$80
cloc3: ldi yl,low(DISBUF)
add yl,temp4
sbic pinb,5 ;选择时分秒
rjmp cloc4
dec temp1
brne cloc4
ldi temp1,80
inc temp4
inc temp4
add yl,temp4
cpi yl,$68
brmi cloc4
clr temp4
ldi yl,low(DISBUF)
cloc4: nop
sbic pinb,6 ;调整时分秒值
rjmp cloc8
dec temp3
brne cloc8
ldi temp3,$20
cloc5: cpi yl,$60
brne cloc6
inc r10
mov temp,r10
cpi temp,24
brmi cloc8
clr temp
clr r10
cloc6: cpi yl,$62
brne cloc7
inc r11
mov temp,r11
cpi temp,60
brmi cloc8
clr temp
clr r11
cloc7: cpi yl,$64
brne cloc8
inc r12
mov temp,r12
cpi temp,60
brmi cloc8
clr temp
clr r12
cloc8: cpi yl,$60
brne cloc9
ldi zl,low(XSDBZ)
clr zh
ldi temp,0b00000010 ;b0-5对应LED自左到右1-6位的小数点，置“1”在该位置小数点。
st z,temp
mov r16,r10
rjmp cloc11
cloc9: cpi yl,$62
brne cloc10
ldi zl,low(XSDBZ)
clr zh
ldi temp,0b00001000 ;b0-5对应LED自左到右1-6位的小数点，置“1”在该位置小数点。
st z,temp
mov r16,r11
cloc10: cpi yl,$64
brne cloc11
ldi zl,low(XSDBZ)
clr zh
ldi temp,0b00100000 ;b0-5对应LED自左到右1-6位的小数点，置“1”在该位置小数点。
st z,temp
mov r16,r12
cloc11: rcall bto
st y+,r3
st y,r4
rcall display
sbis pinb,4 ;退出
rjmp cloc12
rjmp cloc3
cloc12: ldi temp,$02
out timsk,temp ;允许T0中断
sei ;开中断
rjmp res1

;****32点打铃器工作参数调整**********************************************************