;**** AVR编程说明 ******************************************************************** ;* 编号：LRDZAVR0100　 ;* 标题: 32点打铃器例程 ;* 文件名：timecontr.asm ;* 版本: １.０ ;* 开始日期: 02.06.13 ;* 目标ＭＣＵ: AT90S8515 ;* 技术支持: webmaster@lrdz.51.net ;* 硬件结构： 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点打铃器工作参数调整********************************************************** GNCS1: clr r25 ;首个控制点 clr r22 ;r22为0显示开关页面，为1显示h-xx页面,为2显示m-xx页面,为3显示c-xx页面 ldi zl,low(XSDBZ) clr zh ldi r19,0b00000010 st z,r19 gncs: ldi r17,TIMECTR ;首个控制点EEPRON地址 clr r18 ldi yl,low(DISBUF) ;设置显示缓冲区起始地址 clr yh lsl r25 lsl r25 add r17,r25 ;取得EEPRON中控制点地址（Aj=A0+4*j)，A=(r17),j=(r25) lsr r25 lsr r25 mov r16,r25 rcall bto st y+,r3 st y+,r4 cpi r22,0 breq kgymxs cpi r22,1 breq hymxs cpi r22,2 breq mymxs cpi r22,3 breq cymxs clr r22 rjmp gncs kgymxs: rcall EERead cpi r16,0 brne offxs ldi r23,27 ;显示xx.--on st y+,r23 st y+,r23 ldi r23,20 st y+,r23 ldi r23,26 st y,r23 rjmp gzcsxs offxs: ldi r23,27 ;显示xx.-off st y+,r23 ldi r23,20 st y+,r23 ldi r23,15 st y+,r23 st y,r23 rjmp gzcsxs hymxs: ldi r23,28 ;显示xx.h-aa st y+,r23 ldi r23,27 st y+,r23 inc r17 rcall EERead rcall bto st y+,r3 st y+,r4 dec r17 rjmp gzcsxs mymxs: ldi r23,26 ;显示xx.n-aa st y+,r23 ldi r23,27 st y+,r23 inc r17 inc r17 rcall EERead rcall bto st y+,r3 st y+,r4 dec r17 dec r17 rjmp gzcsxs cymxs: ldi r23,18 ;显示xx.c-aa st y+,r23 ldi r23,27 st y+,r23 inc r17 inc r17 inc r17 rcall EERead rcall bto st y+,r3 st y+,r4 dec r17 dec r17 dec r17 gzcsxs: ldi r23,40 ldi r24,40 gzcsxs1: rcall display sbis pinb,5 ;翻页 rjmp fycz ;有，去翻页 sbis pinb,6 ;变值 rjmp bzcz ;有，去变值 sbis pinb,4 ;复位 rjmp res1 ;有，去复位 rjmp gncs fycz: dec r23 brne gzcsxs1 rcall EERead cpi r16,0 brne fycz1 inc r22 cpi r22,4 brmi fycz2 clr r22 fycz1: inc r25 cpi r25,32 brmi fycz2 clr r25 fycz2: rjmp gncs bzcz: dec r24 brne gzcsxs1 cpi r22,0 brne bzcz2 bzcz1: rcall EERead cpi r16,0 breq bzcz11 clr r16 rjmp bzcz12 bzcz11: ldi r16,1 bzcz12: rcall EEWrite rjmp gncs bzcz2: add r17,r22 rcall EERead inc r16 cpi r22,1 breq bzcz21 cpi r16,60 brmi bzcz22 clr r16 rjmp bzcz22 bzcz21: cpi r16,24 brmi bzcz22 clr r16 bzcz22: rcall EEWrite sub r17,r22 rjmp gncs ;****显示子程序*********************************************************************** ;* ;* 功能：将SRAM显示缓冲区存放的数送数码管显示 ;* 入口：DISBUF---显示缓冲区起始地址（SRAM） ;* Y--显示缓冲区的指针 ;* DISTBL---显示字符编码表起始地址(FLASH) ;* LEDSXW---LED闪显寄存器位设置 ;* XSDBZ----小数点设置 ;* 出口：Y--显示缓冲区的指针，指向高地址 ;* ;****程序段 display: nop push temp push temp1 push temp2 push temp3 push temp4 push r6 ldi temp1,6 ldi temp3,0b11011111 ldi yl,low(DISBUF) ldi yh,high(DISBUF) ldi xl,low(XSDBZ) clr xh ld r6,x disp1: ld temp,y+ ldi zl,low(DISTBL) ldi zh,high(DISTBL) add zl,temp lsl zl rol zh lpm lsr r6 brcc disp2 ldi temp4,0b10000000 or r0,temp4 disp2: out PORTC,r0 in temp2,PORTA ori temp2,0b00111111 and temp2,temp3 out PORTA,temp2 sec ror temp3 rcall delay in temp2,PORTA ori temp2,0b00111111 out PORTA,temp2 ;关显示 dec temp1 brne disp1 pop r6 pop temp4 pop temp3 pop temp2 pop temp1 pop temp ret ;****时钟显示子程序********************************************************************* colodis: push temp ldi yl,low(DISBUF) ;设置显示缓冲区起始地址 clr yh ldi xl,low(TIMEDIS) ;设置时钟时分秒存放单元 clr xh ldi zl,low(XSDBZ) clr zh ldi temp,0b00001010 ;b0-5对应LED自左到右1-6位的小数点，置“1”在该位置小数点。 st z,temp rcall ram6ram rcall display pop temp ret ;****延时子程序********************************************************************** delay: nop ;延时子程序 push temp2 push temp1 ldi temp2,$ff lp1: ldi temp1,$f lp2: dec temp1 brne lp2 dec temp2 brne lp1 pop temp1 pop temp2 ret ;子程序返回 ;****写EEPRON子程序********************************************************************* ;* ;*功能：将EEDWR(r16)内容写入以EEAWR(r18:r17)内容为地址的EEPRON单元内。 ;* ;****程序段 EEWrite:sbic EECR,EEWE rjmp EEWrite out EEARH,EEawrh out EEARL,EEawr out EEDR,EEdwr sbi EECR,EEMWE sbi EECR,EEWE ret ;****读EEPRON子程序********************************************************************* ;* ;*功能：从以EEARD(r18:r17)内容为地址的EEPRON单元读区内容送EEDRD(r16)寄存器。 ;* ;****程序段 EERead: sbic EECR,EEWE rjmp EERead out EEARH,EEardh out EEARL,EEard sbi EECR,EERE sbi EECR,EERE in EEdrd,EEDR ret ;****6字节SRAM内容传送子程序************************************************************ ;* ;* 功能：将SRAM内连续6字节由BLOCK1传送到BLOCK2 ;* x---欲传送6字节起始地址（SRAM）指针 ;* y---欲放置6字节起始地址（SRAM）指针 ;* ;****程序段 ram6ram:push temp1 push temp2 ldi temp1,$06 ramd1: ld temp2,x+ st y+,temp2 dec temp1 brne ramd1 pop temp2 pop temp1 ret ;****8位二进制数转3位BCD数子程序******************************************************** ;* ;*功能：把一个8位无符号二进制数转换为3位BCD码数。 ;*入口：r16---内装8位无符号二进制数。 ;*出口：BCD码放在r2:r3:r4,r2存放百位。 ;* ;****程序段 bto: push r16 clr r2 clr r3 clr r4 rjmp bto2 bto1: inc r2 bto2: subi r16,100 brpl bto1 ldi temp,100 add r16,temp rjmp bto4 bto3: inc r3 bto4: subi r16,10 brpl bto3 ldi temp,10 add r16,temp mov r4,r16 pop r16 ret ;****时钟0中断服务程序****************************************************** .org $0bf0 TIM0_OVF: push temp ldi temp,256-195 out tcnt0,temp ;重装T0时间常数 inc cntms mov temp,cntms cpi temp,40 brne timecunt clr cntms inc second mov temp,second cpi temp,60 brne timecunt clr second ldi TIM0INT,1 inc minute mov temp,minute cpi temp,60 brne timecunt clr minute inc hour mov temp,hour cpi temp,24 brne timecunt clr hour timecunt: ldi xl, low(TIMEDIS) clr xh mov r16,hour rcall bto st x+,r3 st x+,r4 mov r16,minute rcall bto st x+,r3 st x+,r4 mov r16,second rcall bto st x+,r3 st x+,r4 pop temp reti ;****字形表***************************************************************** .cseg .org DISTBL .dw 0x003f,0x0006,0x005b,0x004f,0x0066,0x006d,0x007d,0x0007,0x007f,0x006f .dw 0x0077,0x007c,0x0039,0x005e,0x0079,0x0071,0x0073,0x0076,0x0058,0x0038 .dw 0x005c,0x0067,0x0050,0x006e,0x0078,0x0000,0x0054,0x0040,0x0074,0x0000 ;*********************************END***************************************