pic单片机8路遥控开关
;*********************8路遥控开关**************************
;
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
;-------------------------------------------------------------
;检测有无信号
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 ;检测组群信号
GOTO CHECK
MOVLW 10000000B
XORWF PORTC,F ;双稳反转
BTFSC PORTB,SIGNAL ;检测遥控器 按键是否松开
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
