【正文】 0 RETURN BTFSS PORTC,3 。等待抬起 GOTO $1 CALL DELAY INCF FSR,1 INCF SPTEMP,1 DECFSZ TEMP,1 GOTO LOOPX MOVLW 0CH CALL WRIT CHECK BSF BIAO2,6 BSF BIAO2,7 SWAPF SHI2,0 IORWF SHI1,0 SUBLW 23H BTFSC STATUS,0 GOTO NEXT1 MOVLW 02H MOVWF SHI2 MOVLW 03H MOVWF SHI1 NEXT1 BSF BIAO2,4 BSF BIAO2,5 SWAPF FEN2,0 IORWF FEN1,0 SUBLW 59H BTFSC STATUS,0 GOTO NEXT2 MOVLW 05H MOVWF FEN2 MOVLW 09H MOVWF FEN1 NEXT2 BSF BIAO2,2 BSF BIAO2,3 SWAPF MIAO2,0 IORWF MIAO1,0 SUBLW 59H 29 BTFSC STATUS,0 GOTO NEXT3 MOVLW 05H MOVWF MIAO2 MOVLW 09H MOVWF MIAO1 NEXT3 SWAPF YUE2,0 IORWF YUE1,0 MOVWF TEMP SUBLW 12H BTFSC STATUS,0 GOTO NEXT4 MOVLW 01H MOVWF YUE2 MOVLW 02H MOVWF YUE1 GOTO NEXT41 NEXT4 CLRW ADDWF TEMP BTFSS STATUS,2 GOTO NEXT41 CLRF YUE2 MOVLW 01H MOVWF YUE2 NEXT41 MOVLW 88H CALL WRIT MOVFW YUE2 ADDLW 30H CALL WRRAM MOVFW YUE1 ADDLW 30H CALL WRRAM NEXT5 BSF BIAO1,1 BSF BIAO1,0 SWAPF YUE2,0 IORWF YUE1,0 CALL TABLE4 MOVWF TEMP SWAPF RI2,0 IORWF RI1,0 SUBWF TEMP,0 BTFSC STATUS,0 GOTO NEXT6 SWAPF TEMP,0 30 ANDLW 0FH MOVWF RI2 MOVFW TEMP ANDLW 0FH MOVWF RI1 GOTO NEXT7 NEXT6 CLRW ADDWF TEMP,0 BTFSS STATUS,2 GOTO NEXT7 CLRF RI2 MOVLW 01H MOVWF RI1 NEXT7 MOVLW 8BH CALL WRIT MOVFW RI2 ADDLW 30H CALL WRRAM MOVFW RI1 ADDLW 30H CALL WRRAM OUT1 BSF BIAO1,7 BSF BIAO1,6 BSF BIAO1,5 BSF BIAO1,4 BCF BIAO2,0 。0 有鍵下 GOTO $6 CALL DELAY BTFSC PORTC,2 。1 跳 等待鍵抬起 GOTO $1 MOVLW 0EH MOVWF TEMP MOVLW 0FH CALL WRIT CALL DELAY MOVLW NIAN4 MOVWF FSR CLRF SPTEMP LOOPX MOVFW SPTEMP CALL TABLE3 MOVWF SPBTEMP CALL WRIT BCF BIAO2,0 。調(diào)時(shí)高位 CALL DELAY BTFSC PORTC,2 。寫數(shù)據(jù) BCF PORTE,RW MOVWF PORTD BCF PORTE,E BSF PORTE,E NOP NOP BCF PORTE,E CALL DELAY1 RETURN WRIT BCF PORTE,RS 。跳轉(zhuǎn)到 LP1 處 return 。送入用作內(nèi)循環(huán)變量的 21H 單元 27 decfsz TTEMP2,1 。返回主程序 DELAY1 movlw 010h 。變量 20H 內(nèi)容遞減，若為 0 跳躍 goto $5 。變量 21H 內(nèi)容遞減，若為 0跳躍 goto $1 。將內(nèi)層循環(huán)參數(shù)值 FFH 經(jīng)過 W movwf TTEMP2 。將外層循環(huán)參數(shù)值 FFH 經(jīng)過 W movwf TTEMP1 。B 口上拉允許 CLRF STATUS CLRF PORTE CLRF PORTD RETURN DELAY 。0 BSF STATUS,RP0 。置秒高位 CLRF NIAN3 。置秒高位 CLRF NIAN2 。置秒高位 CLRF NIAN1 。置 NIAN 低位 INCF NIAN1,1 MOVFW NIAN1 SUBLW 09H BTFSC STATUS,0 。超過范圍調(diào)整 SWAPF TEMP,1 INCF TEMP,1 SWAPF TEMP,1 MOVFW TEMP ANDLW 0FH MOVWF YUE1 SWAPF TEMP,0 ANDLW 0FH MOVWF YUE2 SWAPF YUE2,0 IORWF YUE1,0 ADDLW 0FFH BTFSS STATUS,2 。1 MOVWF TEMP MOVFW TEMP ANDLW 0FH SUBLW 09H MOVLW 0F0H BTFSC STATUS,0 。0 GOTO LOOP6 MOVLW 12H MOVWF SPTEMP BSF BIAO1,2 。超過范圍調(diào)整 SWAPF TEMP,1 INCF TEMP,1 SWAPF TEMP,1 MOVFW TEMP ANDLW 0FH MOVWF RI1 SWAPF TEMP,0 ANDLW 0FH MOVWF RI2 SWAPF RI2,0 。1 MOVWF TEMP MOVFW TEMP ANDLW 0FH SUBLW 09H MOVLW 0F0H BTFSC STATUS,0 。1 GOTO LOOP6 SWAPF YUE2,0 24 IORWF YUE1,0 BCF INTCON,GIE CALL TABLE4 MOVWF SPTEMP BSF INTCON,GIE BSF BIAO1,1 。超過范圍調(diào)整 SWAPF TEMP,1 INCF TEMP,1 SWAPF TEMP,1 MOVFW TEMP ANDLW 0FH MOVWF SHI1 SWAPF TEMP,0 ANDLW 0FH MOVWF SHI2 CLRW ADDWF SHI2,0 BTFSS STATUS,2 。1 CLRF TEMP MOVFW TEMP ANDLW 0FH SUBLW 09H MOVLW 0F0H BTFSC STA