【正文】 子程序 LOOP1: JB , KEYA ；A鍵是否按下，是跳轉(zhuǎn)到A鍵功能程序 JB , KEYB ；B鍵是否按下，是跳轉(zhuǎn)到B鍵功能程序 JB , KEYC ；C鍵是否按下，是跳轉(zhuǎn)到C鍵功能程序JB , KEYD ；D鍵是否按下，是跳轉(zhuǎn)到D鍵功能程序 LCALL DIR LJMP LOOP ；跳轉(zhuǎn)到監(jiān)控程序；A鍵功能子程序**************************************************** KEYA: CPL TR0H ；開(kāi)啟/關(guān)閉定時(shí)器 SETB AJMP LOOP ；返回；B鍵功能子程序**************************************************** KEYB: JB TR0H, KEYBO ；定時(shí)器是否運(yùn)行，是跳轉(zhuǎn) JNB , KEYBOO MOV R0, 36H ；時(shí)值存儲(chǔ)單元地址送R0 LCALL DAAD1 ；調(diào)加1子程序 MOV A, R3 ；時(shí)值加1后的值送累加器A XRL A, 24H JNZ KEYBO ；時(shí)值是否到24時(shí)，否返回 LCALL CLR0 ；時(shí)值存儲(chǔ)單元清零 KEYBO: MOV 7DH, 35H MOV 7EH, 36H KEYBOO: LJMP LOOP ；返回監(jiān)控程序；C鍵功能子程序**************************************************** KEYC: JB 8CH, KEYCO ；定時(shí)器是否運(yùn)行，否跳轉(zhuǎn) JNB , KEYCOO MOV R0, 34H ；分值存儲(chǔ)單元地址送R0 LCALL DAAD1 ；調(diào)加1子程序 MOV A, R3 ；分值加1后的值送累加器A XRL A, 60H JNZ KEYCO ；分值是否到60分，否返回 LCALL CLR0 ；分值存儲(chǔ)單元清零 KEYCO: MOV 7CH, 34H MOV 7BH, 33H KEYCOO: LJMP LOOP ；返回監(jiān)控程序；D鍵功能子程序**************************************************** KEYD: JB 8CH, KEYDO ；定時(shí)器是否運(yùn)行，否跳轉(zhuǎn) JNB , KEYDOO MOV R0, 32H ；秒值存儲(chǔ)單元地址送R0 LCALL DAAD1 ；調(diào)加1子程序 MOV A, R3 ；秒值加1后的值送R0 XRL A, 60H JNZ KEYDO ；秒值是否到60秒，否返回 LCALL CLR0 ；秒值存儲(chǔ)單元清0 KEYDO: MOV 79H, 31H MOV 7AH, 32H KEYDOO: LJMP LOOP ；返回監(jiān)控程序；中斷服務(wù)程序****************************************************** PITO: PUSH PSW ；中斷服務(wù)程序，現(xiàn)場(chǎng)保護(hù) PUSH A SETB RS0 ；選第三組通用寄存器 SETB RS1 MOV TL0, 0DCH ；計(jì)數(shù)器重新加載 MOV TH0, 0BH MOV A, 30H ；循環(huán)次數(shù)減1 DEC A MOV 30H, A JNZ RETO ；不滿16次，轉(zhuǎn)RET0返回 MOV 30H, 10H ；滿16次開(kāi)始計(jì)時(shí)操作 MOV R0, 32H ；秒顯示單元地址 ACALL DAAD1 ；秒加1 MOV A, R3 ；加1后秒值在R3中 XRL A, 60H ；判是否到60秒 JNZ RETO ；不到轉(zhuǎn)RET0返回 ACALL CLR0 ；到60秒顯示單元清0 MOV R0, 34H ；分顯示單元地址 ACALL DAAD1 ；分加1 MOV A, R3 ；加1后分值在R3中 XRL A, 60H ；判是否到60分 JNZ RETO ；不到轉(zhuǎn)RET0返回 ACALL CLR0 ；到60分顯示單元清0 MOV R0, 36H ；時(shí)顯示單元地址 ACALL DAAD1 ；時(shí)加1 MOV A, R3 ；加1后時(shí)值在R3中 XRL A, 24H ；判是否到24時(shí) JNZ RETO ；不到轉(zhuǎn)RET0返回 ACALL CLR0 ；到24時(shí)顯示單元清0 RETO: CLR RS0 ；返回第0組通用寄存器 CLR RS1 POP A ；現(xiàn)場(chǎng)恢復(fù) POP PSW MOV 79H, 31H ；時(shí)、分、秒值放緩沖區(qū) MOV 7AH, 32H MOV 7BH, 33H MOV 7CH, 34H MOV 7DH, 35H MOV 7EH, 36H RETI ；中斷返回；加1子程序******************************************************* DAAD1: MOV A, R0 ；加1子程序，十位送A DEC R0 SWAP A ；十位數(shù)占高4位 ORL A, R0 ；個(gè)位數(shù)占低4位 ADD A, 01H ；加1 DA A ；十進(jìn)制調(diào)整 MOV R3, A ；全值暫存R3中 ANL A, 0FH ；屏蔽十位數(shù)，取出個(gè)位數(shù) MOV R0, A ；個(gè)位值送顯示緩沖單元 MOV A, R3 INC R0 ANL A, 0F0H ；屏蔽個(gè)位數(shù)取出十位數(shù) SWAP A ；使十位數(shù)占低四位 MOV R0, A ；十位數(shù)送緩沖單元 RET ；返回 CLR0: CLR A ；清緩沖單元子程序 MOV R0, A ；十位緩沖單元清“0” DEC R0 MOV R0, A ；個(gè)位數(shù)緩沖單元清“0” RET ；返回 ；鍵盤(pán)掃描子程序*************************************************** KEY: LCALL KEYCHULI ；調(diào)鍵值處理子程序 JZ EXIT ；沒(méi)有鍵按下轉(zhuǎn)到返回 LCALL DIR LCALL DIR ；調(diào)顯示去抖動(dòng) LCALL KEYCHULI ；調(diào)鍵值處理子程序