时间加1 减1部分功能程序PIC

2020-02-08 12:17发布

TIME:
DECFSZ TMA,1
RETLW 0
MOVLW 100
MOVLW TMA
DECFSZ TMB,1
RETLW 0
MOVLW 10
MOVWF TMB
INCF SEC,1
MOVF SEC,0
ANDLW 0FH
SUBLW 9
BTFSC STATUS,0
RETLW 0
MOVLW 6
ADDWF SEC,1
SWAPF SEC,0
ANDLW 0FH
SUBLW 5
BTFSC STATUS,0
RETLW 0
CLRF SEC
INCF MIN,1
MOVF MIN,0
ANDLW 0FH
SUBLW 9
BTFSC STATUS,0
RETLW 0
MOVLW 6
ADDWF MIN,1
SWAPF MIN,0
ANDLW 0FH
SUBLW 5
BTFSC STATUS,0
RETLW 0
CLRF MIN
INCF HOU,1
BTFSC HOU,5
GOTO ADD3
MOVF HOU,0
ANDLW 0FH
SUBLW 9
BTFSC STATUS,0
RETLW 0
MOVLW 6
ADDWF HOU,1
RETLW 0
ADD3:
BTFSS HOU,2
RETLW 0
CLRF HOU
RETLW 0
TIME：
INCF SEC,1
MOVF SEC,0
ANDLW 0FH
XORLW 0AH
BNZ TMEXT
MOVLW 6
ADDWF SEC,1
SWAPF SEC,0
ANDLW 0FH
XORLW 6
BNZ TMEXT
CLRF SEC
INCF MIN,1
MOVF MIN,0
ANDLW 0FH
XORLW 0AH
BNZ TMEXT
MOVLW 6
ADDWF MIN,1
SWAPF MIN,0
ANDLW 0FH
XORLW 6
BNZ TMEXT
CLRF MIN
INCF HOU,1
BTFSC HOU,5
GOTO ADD3
MOVF HOU,0
ANDLW 0FH
XORLW 0AH
BNZ TMEXT
MOVLW 6
ADDWF HOU,1
TMEXT:
RETLW 0
ADD3:
BTFSS HOU,2
RETLW 0
CLRF HOU
RETLW 0
DECTIM:
MOVF SEC,0
BNZ DECS
MOVLW 59H
MOVWF SEC
MOVF MIN,0
BNZ DECM
MOVLW 59H
MOVWF MIN
MOVF HOU,0
BNZ DECH
MOVLW 23H
MOVWF HOU
TEXT: RETLW 0
DECS:DECF SEC,1
MOVF SEC,0
ANDLW 0FH
XORLW 0FH
BNZ TEXT
MOVLW 6
SUBWF SEC,1
RETLW 0
DECM:DECF MIN,1
MOVF MIN,0
ANDLW 0FH
XORLW 0FH
BNZ TEXT
MOVLW 6
SUBWF MIN,1
RETLW 0
DECH:DECF HOU,1
MOVF HOU,0
ANDLW 0FH
XORLW 0FH
BNZ TEXT
MOVLW 6
SUBWF HOU,1
RETLW 0
CONV:
MOVF SEC,0
ANDLW 0FH
MOVWF SECL
SWAPF SEC,0
ANDLW 0FH
MOVWF SECH
MOVF MIN,0
ANDLW 0FH
MOVWF MINL
SWAPF MIN,0
ANDLW 0FH
MOVWF MINH
MOVF HOU,0
ANDLW 0FH
MOVWF HOUL
SWAPF HOU,0
ANDLW 0FH
MOVWF HOUH
RETLW 0

友情提示: 此问题已得到解决，问题已经关闭,关闭后问题禁止继续编辑，回答。