;程式名稱 : Dipsw07.zip (下載)
;
;*** 指撥開關讀取並顯示到relay1-4 ****
;
;讀取電路板上內建 dip swith -> sc7 
;指定方法:  
;數值   8   4   2   1        
;P1     3   2   1   0
;設定   0   1   1   1   = 7
;
;讀取位置 P14 - P17

            CHIP    80152

PP0         EQU     080H
PP2         EQU     0A0H

WATCHDOG    REG     PP2.7       ;  Watch-Dog 觸發

RELAY1      REG     P3.4    ;  P3.4  繼電器 1
RELAY2      REG     P3.5    ;  P3.5  繼電器 2
RELAY3      REG     P3.6    ;  P3.7  繼電器 3
RELAY4      REG     P3.7    ;  P3.7  繼電器 4

;============================================================================
        ORG     0H
        JMP     AGAIN
        ORG     0BH             ;TIMER0 中斷向量
;============================================================================
AGAIN:
        CPL     WATCHDOG
        SETB    RELAY1          ;繼電器 1 OFF
        SETB    RELAY2          ;繼電器 2 OFF
        SETB    RELAY3          ;繼電器 3 OFF
        SETB    RELAY4          ;繼電器 4 OFF

RUN:
        CPL     WATCHDOG
        SETB    P1.0            ;指定指撥開關掃描位置 7
        SETB    P1.1
        SETB    P1.2
        CLR     P1.3
        CALL    DEL_RD          ;延遲一點時間穩定掃描數值
        
        MOV     A,P1            ; 讀取掃描數值 P1
        ORA     A,#00001111B
        MOV     P3,A            ; 輸出到 RELAY1-4

        JMP     RUN
;============================================================================
DEL_RD:
        MOV     R4,#20
DEL_RD2:
        CPL     WATCHDOG
        DJNZ    R4,DEL_RD2
        RET