时间加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
友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。