;**************************************************************************************************************** ;* * ;* KÜLSŐ HARDVERES (GP2 INT LÁBRÓL ) MEGSZAKÍTÁS * ;* * ;* * ;**************************************************************************************************************** list p=12f675 #include __CONFIG _CP_OFF & _CPD_OFF & _BODEN_ON & _MCLRE_OFF & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT CBLOCK 0x20 T1 T2 T3 T4 T5 T6 T7 T8 ENDC ORG 0 ; processor reset vector GOTO MAIN ORG 4 ; INTERRUPT VECTOR GOTO INT ;------------------------------------------------------------- MEGSZAKÍTÁS ------------------------------------------------------------- INT BCF INTCON,INTF MOVLW B'00000100' MOVWF GPIO CALL DELAY1 MOVLW B'00000110' MOVWF GPIO CALL DELAY1 MOVLW B'00000100' MOVWF GPIO CALL DELAY1 MOVLW B'00000110' MOVWF GPIO CALL DELAY1 MOVLW B'00000100' MOVWF GPIO CALL DELAY1 MOVLW B'00000110' MOVWF GPIO CALL DELAY1 MOVLW B'00000100' MOVWF GPIO SLEEP ;------------------------------------------------------------ ININICIALIZÁLÁS -------------------------------------------------------- MAIN INI BCF STATUS,RP0 MOVLW B'00000111' MOVWF CMCON MOVLW B'10010000' MOVLW INTCON BSF STATUS,RP0 MOVLW B'00000100' MOVWF TRISIO MOVLW B'10000000' MOVWF OPTION_REG MOVLW B'00000000' MOVWF ANSEL MOVLW B'00000000' MOVWF WPU BCF STATUS,RP0 ;--------------------------------------------------------------- FŐPROGRAM --------------------------------------------------------- MOVLW B'00000000' MOVWF GPIO CALL DELAY2 MOVLW B'00000000' MOVWF GPIO CALL DELAY2 MOVLW B'00000001' MOVWF GPIO CALL DELAY2 MOVLW B'00000000' MOVWF GPIO X CALL DELAY3 MOVLW B'00000001' MOVWF GPIO CALL DELAY2 MOVLW B'00000000' MOVWF GPIO GOTO X ;--------------------------------------------------------------------------------------------------------------------------------- ; KÉSLELTETÉS RUTINOK ;--------------------------------------------------------------------------------------------------------------------------------- DELAY1 MOVLW d'255' MOVWF T1 MOVLW d'255' MOVWF T2 MOVLW d'010' MOVWF T3 MOVLW d'255' MOVWF T4 MOVLW d'020' MOVWF T5 MOVLW d'001' MOVWF T6 MOVLW d'001' MOVWF T7 MOVLW d'001' MOVWF T8 DEL: NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP DEL1: DECFSZ T2,f GOTO DEL1 DECFSZ T1,f GOTO DEL DEL2: DECFSZ T4,f GOTO DEL2 DECFSZ T3,f GOTO DEL DEL3: DECFSZ T6,f GOTO DEL3 DECFSZ T5,f GOTO DEL DEL4: DECFSZ T8,f GOTO DEL4 DECFSZ T7,f GOTO DEL RETURN ;----------------------------------------------------------------------------------------------------------------------------------- DELAY2 MOVLW d'255' MOVWF T1 MOVLW d'255' MOVWF T2 MOVLW d'010' MOVWF T3 MOVLW d'255' MOVWF T4 MOVLW d'001' MOVWF T5 MOVLW d'001' MOVWF T6 MOVLW d'001' MOVWF T7 MOVLW d'001' MOVWF T8 DEL0: NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP DEL11: DECFSZ T2,f GOTO DEL11 DECFSZ T1,f GOTO DEL0 DEL22: DECFSZ T4,f GOTO DEL22 DECFSZ T3,f GOTO DEL0 DEL33: DECFSZ T6,f GOTO DEL33 DECFSZ T5,f GOTO DEL0 DEL44: DECFSZ T8,f GOTO DEL44 DECFSZ T7,f GOTO DEL0 RETURN ;-------------------------------------------------------------------------------------------------------------------------------- DELAY3 MOVLW d'005' MOVWF T1 MOVLW d'255' MOVWF T2 MOVLW d'010' MOVWF T3 MOVLW d'255' MOVWF T4 MOVLW d'001' MOVWF T5 MOVLW d'001' MOVWF T6 MOVLW d'001' MOVWF T7 MOVLW d'001' MOVWF T8 DEL111: NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP DEL1111: DECFSZ T2,f GOTO DEL1111 DECFSZ T1,f GOTO DEL111 DEL222: DECFSZ T4,f GOTO DEL222 DECFSZ T3,f GOTO DEL111 DEL333: DECFSZ T6,f GOTO DEL333 DECFSZ T5,f GOTO DEL111 DEL444: DECFSZ T8,f GOTO DEL444 DECFSZ T7,f GOTO DEL111 RETURN ;---------------------------------------------------------------------------------------------------------------------------------------------- DELAY4 MOVLW d'255' MOVWF T1 MOVLW d'255' MOVWF T2 MOVLW d'001' MOVWF T3 MOVLW d'255' MOVWF T4 MOVLW d'001' MOVWF T5 MOVLW d'001' MOVWF T6 MOVLW d'001' MOVWF T7 MOVLW d'001' MOVWF T8 DEL00: NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP DEL11111: DECFSZ T2,f GOTO DEL11111 DECFSZ T1,f GOTO DEL00 DEL2222: DECFSZ T4,f GOTO DEL2222 DECFSZ T3,f GOTO DEL00 DEL3333: DECFSZ T6,f GOTO DEL3333 DECFSZ T5,f GOTO DEL00 DEL44444: DECFSZ T8,f GOTO DEL44444 DECFSZ T7,f GOTO DEL00 RETURN END