FH.rar_fh_复合_复合开关

;单项复合开关 list p=12C508A, f=INHX8M, r=DEC, b=8, C=80 __config (_MCLRE_OFF & _CP_ON & _WDT_ON & _IntRC_OSC) __idlocs H'0001' ;special function register INDF equ 0x00 TIMER0 equ 0x01 PCL equ 0x02 STATUS equ 0x03 FSR equ 0x04 OSCCAL equ 0x05 GPIO equ 0x06 BIT7 equ 0x07 BIT6 equ 0x06 BIT5 equ 0x05 BIT4 equ 0x04 BIT3 equ 0x03 BIT2 equ 0x02 BIT1 equ 0x01 BIT0 equ 0x00 W equ 0x00 F equ 0x01 ; STATUS Register GPWUF equ BIT7 PA0 equ BIT5 NOT_TO equ BIT4 NOT_PD equ BIT3 Z equ BIT2 DC equ BIT1 C equ BIT0 ; Configuration BITs _MCLRE_ON equ 0x0fff _MCLRE_OFF equ 0x0fef _CP_ON equ 0x0ff7 _CP_OFF equ 0x0fff _WDT_ON equ 0x0fff _WDT_OFF equ 0x0ffb _LP_OSC equ 0x0ffc _XT_OSC equ 0x0ffd _IntRC_OSC equ 0x0ffe _ExtRC_OSC equ 0x0fff ;PowerUpSystem MACRO ;bsf GPIO, bSystemPowerOut0 ;ENDM ; General Purpose Register COUNTER1 EQU 0X07 COUNTER2 EQU 0X08 COUNTER3 EQU 0X09 COUNTER4 EQU 0X0A COUNTER5 EQU 0X0B CON EQU 0X0C TEMP EQU 0X0D ORG 0000H MOVWF OSCCAL GOTO MAIN READPIN: CLRWDT MOVLW B'11000010' OPTION MOVLW 0X03 MOVWF TIMER0 MOVLW 0X04 MOVWF COUNTER3 SUB_INIC12: MOVLW 0X0C MOVWF COUNTER1 MOVLW 0X01 MOVWF COUNTER2 MOVF GPIO,W MOVWF CON SUB_1ms: BTFSS TIMER0,BIT7 GOTO SUB_1ms MOVLW 0X03 ;reset timer0 MOVWF TIMER0 INCF COUNTER3,F BTFSC COUNTER3,BIT6 BCF GPIO,BIT5 BTFSC GPIO,BIT4 INCF COUNTER2,F MOVF GPIO,W XORWF CON,F BTFSC CON,BIT3 GOTO SUB_INIC12 INCF COUNTER1,F BTFSS COUNTER1,BIT5 GOTO SUB_1ms CLRWDT CLRF TIMER0 MOVLW B'11001010' OPTION RETLW 0X00 MAIN: MOVLW B'11001010' OPTION MOVLW B'00011000' TRIS GPIO MOVLW B'00100001' ;00100001 MOVWF GPIO MAIN_CLRWDT: CLRWDT CALL READPIN BTFSS GPIO,BIT3 GOTO MAIN_RIGHT BTFSC COUNTER2,BIT4 GOTO MAIN_CLRWDT BCF GPIO,0 MAIN_1: CALL READPIN BTFSS COUNTER2,BIT4 GOTO MAIN_1 BTFSS GPIO,BIT3 GOTO MAIN_5 MAIN_2: BSF GPIO,BIT1 BCF GPIO,BIT2 MOVLW 0X07 MOVWF COUNTER4 MAIN_3: CALL READPIN INCF COUNTER4,F BTFSS COUNTER4,BIT5 GOTO MAIN_3 BCF GPIO,BIT1 BCF GPIO,BIT2 CALL READPIN BTFSS COUNTER2,4 BCF GPIO,BIT5 GOTO MAIN_CLRWDT MAIN_RIGHT: BTFSS COUNTER2,4 GOTO MAIN_CLRWDT BCF GPIO,BIT1 BSF GPIO,BIT2 MOVLW 0X07 MOVWF COUNTER5 MAIN_4: CALL READPIN INCF COUNTER5,F BTFSS COUNTER5,BIT5 GOTO MAIN_4 BCF GPIO,BIT1 BCF GPIO,BIT2 CALL READPIN BTFSS COUNTER2,4 GOTO MAIN_CLRWDT BTFSC GPIO,BIT3 GOTO MAIN_2 MAIN_5: BSF GPIO,BIT0 CALL READPIN BTFSC COUNTER2,BIT4 BCF GPIO,BIT5 GOTO MAIN_CLRWDT END