32点打铃器例程（****R）

;**** ****R编程说明 ********************************************************************
;* 编号：LRDZ****R0100　
;* 标题: 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存放百位。
;*
;****程序段

bt      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***************************************