*********************8路遙控開(kāi)關(guān)**************************
;
          SIGNAL EQU   3H
          BAORD1 EQU   2H
          BAORD2 EQU   1H
          BAORD3 EQU   0H
          BAORD4 EQU   3H

          ORG    0H
INTI:
          MOVLW  00000000B
          MOVWF  PORTC
          TRIS   PORTC
          MOVWF  PORTC
          MOVLW  11111111B
          TRIS   PORTA
          TRIS   PORTB
          CLRF   WEI1
;-------------------------------------------------------------
;檢測(cè)有無(wú)信號(hào)
CHECK:

 BTFSS  PORTB,SIGNAL
          GOTO   $-1
          SWAPF  PORTB,W
          ANDLW  00001111B
          ADDWF  PCL,F
          NOP
          GOTO   K1　　;按鍵１
          GOTO   K2　　;按鍵２
          GOTO   K3　　;按鍵３
          GOTO   K4　　;按鍵４
          GOTO   K5　　;按鍵５
          GOTO   K6　　;按鍵６
          GOTO   K7　　;按鍵７
          GOTO   K8　　;按鍵８
          GOTO   K9　　;按鍵９
          GOTO   K10　　;按鍵１０
          GOTO   K11　　;按鍵１１
          GOTO   K12　　;按鍵１２
          GOTO   CHECK
;-----------------------------------------------------------
K1:
          BTFSS  WEI1,0　　 　;檢測(cè)組群信號(hào)

       GOTO   CHECK
          MOVLW  10000000B
          XORWF  PORTC,F 　　;雙穩(wěn)反轉(zhuǎn)
          BTFSC  PORTB,SIGNAL　;檢測(cè)遙控器　按鍵是否松開(kāi)
          GOTO   $-1
          GOTO   CHECK
K2:
          BTFSS  WEI1,0
          GOTO   CHECK
          MOVLW  01000000B
          XORWF  PORTC,F
          BTFSC  PORTB,SIGNAL
          GOTO   $-1
          GOTO   CHECK
K3:
          BTFSS  WEI1,0
          GOTO   CHECK
          MOVLW  00100000B
          XORWF  PORTC,F
          BTFSC  PORTB,SIGNAL
          GOTO   $-1
          GOTO   CHECK
K4:
          BTFSS  WEI1,0
          GOTO   CHECK
          MOVLW  00010000B
          XORWF  PORTC,F
          BTFSC  PORTB,SIGNAL
          GOTO   $-1

GOTO   CHECK
K5:
          BTFSS  WEI1,0
          GOTO   CHECK
          MOVLW  00001000B
          XORWF  PORTC,F
          BTFSC  PORTB,SIGNAL
          GOTO   $-1
          GOTO   CHECK
K6:
          BTFSS  WEI1,0
          GOTO   CHECK
          MOVLW  00000100B
          XORWF  PORTC,F
          BTFSC  PORTB,SIGNAL

      GOTO   $-1
          GOTO   CHECK
K7:
          BTFSS  WEI1,0
          GOTO   CHECK
          MOVLW  00000010B
          XORWF  PORTC,F
          BTFSC  PORTB,SIGNAL
          GOTO   $-1
          GOTO   CHECK
K8:
          BTFSS  WEI1,0
          GOTO   CHECK
          MOVLW  00000001B
          XORWF  PORTC,F
          BTFSC  PORTB,SIGNAL
          GOTO   $-1
          GOTO   CHECK
K9:
          CLRF   WEI1
          BTFSS  PORTB,BAORD1
          GOTO   CHECK
          BSF    WEI1,0
          GOTO   CHECK
K10:

 CLRF   WEI1
          BTFSS  PORTB,BAORD2
          GOTO   CHECK
          BSF    WEI1,0
          GOTO   CHECK
K11:
          CLRF   WEI1
          BTFSS  PORTB,BAORD3
          GOTO   CHECK
          BSF    WEI1,0
          GOTO   CHECK
K12:
          CLRF   WEI1
          BTFSS  PORTA,BAORD4
          GOTO   CHECK
          BSF    WEI1,0
          GOTO   CHECK
          ORG    7FFH

 GOTO   INTI
          END