;**** 單片機(jī)打鈴器設(shè)計(jì) ********************************************************************
;* 編號(hào)：LRDZAVR0100
;* 標(biāo)題: 32點(diǎn)打鈴器例程
;* 文件名：timecontr.asm
;* 版本: １.０
;* 開(kāi)始日期: 02.06.13
;* 目標(biāo)ＭＣＵ: AT90S8515
;* 技術(shù)支持:
;* 硬件結(jié)構(gòu)： PA0-5對(duì)應(yīng)６個(gè)ＬＥＤ數(shù)顯管的位 ，PC0-7對(duì)應(yīng)各ＬＥＤ數(shù)顯管的段 ，PB4-7為鍵盤。
;* 軟件描述： 上電后，時(shí)鐘從00.00.00（時(shí)/分/秒）自動(dòng)走時(shí)，在走時(shí)狀態(tài)時(shí) ， 按PB4（設(shè)定
;* 鍵）超過(guò)3秒可循環(huán)選擇調(diào)整時(shí)間/工作參數(shù) ，接著按PB5以確定選擇的操作 ，進(jìn)入調(diào)整操作后 ，
;* 按PB5選擇欲調(diào)整參數(shù)，按PB6（增加鍵）完成調(diào)整參數(shù)操作 。按PB7，進(jìn)入時(shí)控運(yùn)行，PB1亮，
;* 再按PB7停止時(shí)控運(yùn)行，回顯走時(shí)。在定時(shí)到時(shí)，PB0點(diǎn)亮。
;*************************************************************************************
.device AT90S8515
.include "8515def.inc"
.equ DISBUF = $0060 ;顯示緩沖區(qū)起始地址
.equ TIMEDIS = $0066 ;時(shí)鐘時(shí)分秒存放單元
.equ XSDBZ = $0073 ;小數(shù)點(diǎn)位標(biāo)志
.equ DISTBL = $0f00 ;顯示字符編碼表起始地址
.equ TIMECTR = $0010 ;32段時(shí)間控制表首址（EEPRON）
.equ TIMECBZ = $0080 ;控制時(shí)間到標(biāo)志
.cseg
.org $0000
rjmp RESET
.org $0007
rjmp TIM0_OVF
;****單片機(jī)打鈴器設(shè)計(jì)主程序***************************************************************************
.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) ;設(shè)置堆棧指針
out spl,temp
ldi temp,high(ramend)
out sph,temp
ldi temp,0b11111111 ;設(shè)置各口線輸入輸出狀態(tài)
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設(shè)置ck/1024分頻
ldi temp,256-195
out tcnt0,temp ;裝T0時(shí)間常數(shù)
res1: ldi temp,$02 ;允許T0中斷，并計(jì)時(shí)
out timsk,temp
sei ;開(kāi)中斷
res2: clr r6
clr r7
sbi PORTb,1
sbi PORTB,0
res3: ldi temp,$af
res4: rcall colodis ;時(shí)鐘走時(shí)顯示
dec temp
brne res4
sbis pinb,7 ;鍵掃描
rjmp PB7M
sbis pinb,4
rjmp BP4M ;去參數(shù)設(shè)置
rjmp res3
;****《系統(tǒng)功能程序》
.org $0080 ;定義系統(tǒng)功能程序存放區(qū)首址
;****32點(diǎn)打鈴器工作程序*************************************************************************
PB7M: cbi PORTb,1 ;置運(yùn)行指示燈亮
clr r25
clr r7
GNCX11:ldi r17,TIMECTR ;首個(gè)控制點(diǎn)EEPRON地址
clr r18
lsl r25
lsl r25
add r17,r25 ;取得EEPRON中控制點(diǎn)地址（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
;****單片機(jī)打鈴器參數(shù)設(shè)置
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秒進(jìn)入
ldi temp4,$f
BP4M2: clr yh
ldi yl,low(DISBUF) ;設(shè)置顯示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對(duì)應(yīng)LED自左到右1-6位的小數(shù)點(diǎn)，置“1”在該位置小數(shù)點(diǎn)。
st z,temp
rcall display
sbis pinb,5
rjmp cloc ;進(jìn)入時(shí)間設(shè)置
dec temp3
brne BP4M2
inc temp3
dec temp4
brne BP4M2
BP4M3: ldi temp3,$ff
ldi temp4,$f
BP4M4: clr yh
ldi yl,low(DISBUF) ;設(shè)置顯示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對(duì)應(yīng)LED自左到右1-6位的小數(shù)點(diǎn)，置“1”在該位置小數(shù)點(diǎn)。
st z,temp
rcall display
sbis pinb,5
rjmp GNCS1 ;進(jìn)入工作參數(shù)設(shè)置
dec temp3
brne BP4M4
inc temp3
dec temp4
brne BP4M4
sbic pinb,4
rjmp BP4M
rjmp res1
;****時(shí)鐘調(diào)整******************************************************************
cloc: clr temp
out timsk,temp ;不許T0中斷
cli ;關(guān)中斷
rcall colodis
mov temp,r10
clr temp4
ldi temp1,20
ldi temp3,$80
cloc3: ldi yl,low(DISBUF)
add yl,temp4
sbic pinb,5 ;選擇時(shí)分秒
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 ;調(diào)整時(shí)分秒值
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對(duì)應(yīng)LED自左到右1-6位的小數(shù)點(diǎn)，置“1”在該位置小數(shù)點(diǎn)。
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對(duì)應(yīng)LED自左到右1-6位的小數(shù)點(diǎn)，置“1”在該位置小數(shù)點(diǎn)。
st z,temp
mov r16,r11
cloc10: cpi yl,$64
brne cloc11
ldi zl,low(XSDBZ)
clr zh
ldi temp,0b00100000 ;b0-5對(duì)應(yīng)LED自左到右1-6位的小數(shù)點(diǎn)，置“1”在該位置小數(shù)點(diǎn)。
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 ;開(kāi)中斷
rjmp res1
;****32點(diǎn)打鈴器工作參數(shù)調(diào)整**********************************************************
GNCS1: clr r25 ;首個(gè)控制點(diǎn)
clr r22 ;r22為0顯示開(kāi)關(guān)頁(yè)面，為1顯示h-xx頁(yè)面,為2顯示m-xx頁(yè)面,為3顯示c-xx頁(yè)面
ldi zl,low(XSDBZ)
clr zh
ldi r19,0b00000010
st z,r19
gncs: ldi r17,TIMECTR ;首個(gè)控制點(diǎn)EEPRON地址
clr r18
ldi yl,low(DISBUF) ;設(shè)置顯示緩沖區(qū)起始地址
clr yh
lsl r25
lsl r25
add r17,r25 ;取得EEPRON中控制點(diǎn)地址（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 ;翻頁(yè)
rjmp fycz ;有，去翻頁(yè)
sbis pinb,6 ;變值
rjmp bzcz ;有，去變值
sbis pinb,4 ;復(fù)位
rjmp res1 ;有，去復(fù)位
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顯示緩沖區(qū)存放的數(shù)送數(shù)碼管顯示
;* 入口：DISBUF---顯示緩沖區(qū)起始地址（SRAM）
;* Y--顯示緩沖區(qū)的指針
;* DISTBL---顯示字符編碼表起始地址(FLASH)
;* LEDSXW---LED閃顯寄存器位設(shè)置
;* XSDBZ----小數(shù)點(diǎn)設(shè)置
;* 出口：Y--顯示緩沖區(qū)的指針，指向高地址
;*
;****程序段
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 ;關(guān)顯示
dec temp1
brne disp1
pop r6
pop temp4
pop temp3
pop temp2
pop temp1
pop temp
ret
;****時(shí)鐘顯示子程序*********************************************************************
colodis: push temp
ldi yl,low(DISBUF) ;設(shè)置顯示緩沖區(qū)起始地址
clr yh
ldi xl,low(TIMEDIS) ;設(shè)置時(shí)鐘時(shí)分秒存放單元
clr xh
ldi zl,low(XSDBZ)
clr zh
ldi temp,0b00001010 ;b0-5對(duì)應(yīng)LED自左到右1-6位的小數(shù)點(diǎn)，置“1”在該位置小數(shù)點(diǎn)。
st z,temp
rcall ram6ram
rcall display
pop temp
ret
;****延時(shí)子程序**********************************************************************
delay: nop ;延時(shí)子程序
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 ;子程序返回
;****寫(xiě)EEPRON子程序*********************************************************************
;*
;*功能：將EEDWR(r16)內(nèi)容寫(xiě)入以EEAWR(r18:r17)內(nèi)容為地址的EEPRON單元內(nèi)。
;*
;****程序段
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)內(nèi)容為地址的EEPRON單元讀區(qū)內(nèi)容送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字節(jié)SRAM內(nèi)容傳送子程序************************************************************
;*
;* 功能：將SRAM內(nèi)連續(xù)6字節(jié)由BLOCK1傳送到BLOCK2
;* x---欲傳送6字節(jié)起始地址（SRAM）指針
;* y---欲放置6字節(jié)起始地址（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位二進(jìn)制數(shù)轉(zhuǎn)3位BCD數(shù)子程序********************************************************
;*
;*功能：把一個(gè)8位無(wú)符號(hào)二進(jìn)制數(shù)轉(zhuǎn)換為3位BCD碼數(shù)。
;*入口：r16---內(nèi)裝8位無(wú)符號(hào)二進(jìn)制數(shù)。
;*出口：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
;****時(shí)鐘0中斷服務(wù)程序******************************************************
.org $0bf0
TIM0_OVF: push temp
ldi temp,256-195
out tcnt0,temp ;重裝T0時(shí)間常數(shù)
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