【正文】 6 。判斷鍵6 GOTO JIAN6 。是，跳至鍵6功能子程序 BTFSS PORTC,7 。判斷鍵7 GOTO JIAN7 。是，跳至鍵7功能子程序 MOVLW 0FBH 。RC2=0 MOVWF PORTC BTFSS PORTC,4 。判斷鍵8 GOTO JIAN8 。是，跳至鍵8功能子程序 BTFSS PORTC,5 。判斷鍵9 GOTO JIAN9 。是，跳至鍵9功能子程序 BTFSS PORTC,6 。判斷鍵A GOTO JIANA 。是，跳至鍵A功能子程序 BTFSS PORTC,7 。判斷鍵B GOTO JIANB 。是，跳至鍵B功能子程序 MOVLW 0F7H 。RC3=0 MOVWF PORTC BTFSS PORTC,4 。判斷鍵C GOTO JIANC 。是，跳至鍵C功能子程序 BTFSS PORTC,5 。判斷鍵D GOTO JIAND 。是，跳至鍵D功能子程序 BTFSS PORTC,6 。判斷鍵E GOTO JIANE 。是，跳至鍵E功能子程序 BTFSS PORTC,7 。判斷鍵F GOTO JIANF 。是，跳至鍵F功能子程序 RETURN 。0到9按鍵，用于鍵入數(shù)字JIAN0 CALL SFANG 。釋放 MOVLW 00H 。將0放入W寄存器 MOVWF NUM8 。NUM8帶0返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶0顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURNJIAN1 CALL SFANG 。釋放 MOVLW 01H 。將1放入W寄存器 MOVWF NUM8 。NUM8帶1返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶1顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURN JIAN2 CALL SFANG 。釋放 MOVLW 02H 。將2放入W寄存器 MOVWF NUM8 。NUM8帶2返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶2顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURNJIAN3 CALL SFANG 。釋放 MOVLW 03H 。將3放入W寄存器 MOVWF NUM8 。NUM8帶3返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶3顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURNJIAN4 CALL SFANG 。釋放 MOVLW 04H 。將4放入W寄存器 MOVWF NUM8 。NUM8帶4返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶4顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURNJIAN5 CALL SFANG 。釋放 MOVLW 05H 。將5放入W寄存器 MOVWF NUM8 。NUM8帶5返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶5顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURNJIAN6 CALL SFANG 。釋放 MOVLW 06H 。將6放入W寄存器 MOVWF NUM8 。NUM8帶6返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶6顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURNJIAN7 CALL SFANG 。釋放 MOVLW 07H 。將7放入W寄存器 MOVWF NUM8 。NUM8帶7返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶7顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURNJIAN8 CALL SFANG 。釋放 MOVLW 08H 。將8放入W寄存器 MOVWF NUM8 。NUM8帶8返回 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶8顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURNJIAN9 CALL SFANG 。釋放 MOVLW 09H 。NUM8帶9返回 MOVWF NUM8 。將9放入W寄存器 CALL CHABIAO 。調(diào)用查表子程序 MOVWF BIAN 。BIAN帶9顯示碼返回 RLF KEYFLAG,1 。鍵按下一次，KEYFLAG左移一位 RETURN 。A鍵，用于倒計時的開始JIANA CALL SFANG 。釋放 BSF INTCON,5 。T0使能打開，為定時器開啟做準備 MOVLW 3DH 。為定時器送初值，定時開始 MOVWF TMR0 GOTO LOOP6 。進入倒計時顯示大循環(huán) RETURN 。B鍵，用于計數(shù)暫停JIANB CALL SFANG 。釋放 BCF INTCON,5 。T0使能關閉，計數(shù)停止 RETURN 。C鍵，用于計數(shù)繼續(xù)JIANC CALL SFANG 。釋放 BSF INTCON,5 。T0使能打開，計數(shù)繼續(xù) RETURN 。D鍵，用于計數(shù)加一JIAND CALL SFANG 。釋放 INCF NUMB 。顯示變量加一 RETURN 。E鍵，用于計數(shù)減一JIANE CALL SFANG 。釋放 DECF NUMB 。顯示變量減一 RETURN 。F鍵，用于清零和重新開始JIANF CALL SFANG 。調(diào)用釋放子程序 BCF INTCON,5 。T0使能關閉，停止計時 MOVLW 01H 。鍵盤次數(shù)判斷恢復初始值 MOVWF KEYFLAG CLRF NUM9 。中間變量的初始化 CLRF NUM10 GOTO LOOP 。跳轉(zhuǎn)至LOOP大循環(huán) 。釋放子程序SFANG MOVLW 00H 。RC口低四位輸出賦低電平 MOVWF PORTC MOVLW 0F0H 。屏蔽低四位 ANDWF PORTC,W SUBLW 0F0H BTFSS STATUS,Z 。判斷高四位是否有低電平 GOTO SFANG 。有低電平，未釋放，返回繼續(xù)判斷 CALL DELAY10MS 。無低電平，延時10毫秒 MOVLW 0F0H 。再次確認 ANDWF PORTC,W SUBLW 0F0H BTFSS STATUS,Z 。再次判斷 GOTO SFANG 。虛假釋放，返回繼續(xù)判斷 BSF PORTB,5 。已釋放，蜂鳴器停止鳴叫 RETURN 。返回 。10毫秒延時子程序DELAY10MS MOVLW 0DH MOVWF 23HLOOP4 MOVLW 0FFH MOVWF 24HLOOP5 DECFSZ 24H GOTO LOOP5 DECFSZ 23H GOTO LOOP4 RETURN 。短時間延時子程序 DELAY DECFSZ 0X30,F GOTO DELAY RETURN 。小燈閃爍子程序，3種顏色的小燈每隔1秒交替亮滅1秒SHANSHU BCF PORTE,0 。燈0亮 BCF PORTB,5 。蜂鳴器開 CALL DELAY1S MOVLW 0FFH 。燈0滅 BSF PORTB,5 。蜂鳴器關 MOVWF PORTE CALL DELAY1S BCF PORTE,1 。燈1亮 BCF PORTB,5 。蜂鳴器開 CALL DELAY1S MOVLW 0FFH 。燈1滅 BSF PORTB,5 。蜂鳴器關 MOVWF PORTE CALL DELAY1S BCF PORTE,2 。燈2亮 BCF PORTB,5 。蜂鳴器開 CALL DELAY1S MOVLW 0FFH 。燈2滅 BSF PORTB,5 。蜂鳴器關 MOVWF PORTE CALL DELAY1S RETURN 。1秒延時子程序 DELAY1S MOVLW 06H MOVWF 20HLOOP1 MOVLW 0EBH MOVWF 21HLOOP2 MOVLW 0ECH MOVWF 22HLOOP3 DECFSZ 22H GOTO LOOP3 DECFSZ 21H GOTO LOOP2 DECFSZ 20H GOTO LOOP1 RETURN END 。 directive 39。end of program39。42