程式名稱 : onoff.zip (下載)
;動作方式
;OFF 優先自保持電路
;輸出到 RELAY1
;
            CHIP    80152

PP0         EQU     080H
PP2         EQU     0A0H

DELTIM      EQU     30H
DELTIM_REG  EQU     31H

WATCHDOG    REG     PP2.7

RELAY1      REG     P3.4     ;  P3.4 RELAY1

ON          REG     PP0.0    ;  P0.0 ON BUTTON
OFF         REG     PP0.1    ;  P0.1 OFF BUTTON

;============================================================================
        ORG     0H  
;============================================================================
AGAIN:
        CPL     WATCHDOG
        MOV     P1,#11110000B
        MOV     P0,#11111111B
        CALL    DEL
;============================================================================
        MOV     P1,#11110000B
WORK:   
        CPL     WATCHDOG    
        JB      OFF,OFFACT
        JB      ON,ONACT
        JMP     WORK

ONACT:
        JB      OFF,OFFACT
        CALL    DEL1
        JNB     ON,WORK
        CLR     RELAY1
ONACT10:
        CPL     WATCHDOG
        JB      OFF,OFFACT
        JB      ON,ONACT10                  
        CALL    DEL1    
        JB      ON,ONACT10
        JMP     WORK

OFFACT: 
        CALL    DEL1
        JNB     OFF,WORK
        SETB    RELAY1
OFFACT10:
        CPL     WATCHDOG
        JB      OFF,OFFACT10
        CALL    DEL1
        JB      OFF,OFFACT10
        JMP     WORK
;============================================================================
DEL1:
        MOV     R3,#020H
DEL1A:
        MOV     R4,#0FFH
DEL1B:
        CPL     WATCHDOG
        DJNZ    R4,DEL1B
        DJNZ    R3,DEL1A
        RET
;============================================================================
DEL:
        MOV     R3,#0FFH
DELA:
        MOV     R4,#0FFH
DELB:
        CPL     WATCHDOG
        DJNZ    R4,DELB
        DJNZ    R3,DELA
        RET