Easyelectronics.ru

            LIST        p=16F870
            __CONFIG    03F3AH      
status      equ         03h
portb       equ         06h
trisb       equ         06h
Reg_1       equ      10h
Reg_2       equ      11h
Reg_3       equ      12h      
;------------------------------------------------       
       org 0
;------------------------------------------------      
       bsf      status,5
       bcf      trisb,2
       bcf      trisb,4
       bcf      trisb,5
       bcf      status,5
;------------------------------------------------
       bcf      portb,2
       bcf      portb,4
       bcf      portb,5
      
LED1       call   key_on
       bcf      portb,5
       bsf      portb,2
       call        delay_2
LED2       call   key_on
       bcf      portb,2
       bsf      portb,4
       call        delay_2
LED3       call   key_on
       bcf      portb,4
       bsf      portb,5
       call        delay_2
       goto   LED1
;-----------ОПРОС КНОПКИ--------------------------
key_on       btfsc   portb,1
       goto   key_on
       call   delay        ;защита от дребезга
       btfsc   portb,1
       goto   key_on
       return
;-----------ЗАДЕРЖКА 50 млсек. при кварце 20 МГц-----------------------------
delay       movlw       .169
            movwf       Reg_1
            movlw       .69
            movwf       Reg_2
            movlw       .2
            movwf       Reg_3
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            decfsz      Reg_3,F
            goto        $-5
            nop
            nop
       return
;-----------ЗАДЕРЖКА 1 сек. при кварце 20 МГц-----------------------------
delay_2       movlw       .110
            movwf       Reg_1
            movlw       .94
            movwf       Reg_2
            movlw       .26
            movwf       Reg_3
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            decfsz      Reg_3,F
            goto        $-5
            nop
       return
;------------------------------------------------      
            end

#include <xc.h>

#define _XTAL_FREQ 20000000

// CONFIG
#pragma config FOSC = HS        // Oscillator Selection bits (HS oscillator)
#pragma config WDTE = OFF       // Watchdog Timer Enable bit (WDT disabled)
#pragma config PWRTE = ON       // Power-up Timer Enable bit (PWRT enabled)
#pragma config CP = OFF         // FLASH Program Memory Code Protection bits (Code protection off)
#pragma config BOREN = ON       // Brown-out Reset Enable bit (BOR enabled)
#pragma config LVP = OFF        // Low Voltage In-Circuit Serial Programming Enable bit (RB3 is digital I/O, HV on MCLR must be used for programming)
#pragma config CPD = OFF        // Data EE Memory Code Protection (Code Protection off)
#pragma config WRT = ALL        // FLASH Program Memory Write Enable (Unprotected program memory may be written to by EECON control)

//--------------------------------------------
unsigned char CheckButton(void)
{
  unsigned char result=0;
  unsigned int butcount=0;
  while(!RB1)
  {
    if(butcount < 10000)
    {
      butcount++;
    }
    else
    {
      result = 1;
      break;
    }
  }
  return result;
}
//--------------------------------------------
void main(void) {
    TRISB &= ~0x34;
    PORTB &= ~0x34;
    while(1)
    {
        if(CheckButton())
        {
            PORTBbits.RB2 = 1;
            __delay_ms(1000);
            PORTBbits.RB2 = 0;
            PORTBbits.RB4 = 1;
            __delay_ms(1000);
            PORTBbits.RB4 = 0;
            PORTBbits.RB5 = 1;
            __delay_ms(1000);
            PORTBbits.RB5 = 0;
        }
    }
    return;
}

            LIST        p=16F870
#include "p16f870.inc"

; CONFIG
; __config 0x3F3A
__CONFIG _FOSC_HS & _WDTE_OFF & _PWRTE_OFF & _CP_OFF & _BOREN_OFF & _LVP_OFF & _CPD_OFF & _WRT_ALL
;------------------------------------------------------------------------------------------------------
Reg_1       equ      20h
Reg_2       equ      21h
Reg_3       equ      22h      
;------------------------------------------------       
       org 0
;------------------------------------------------
       bsf      STATUS,5
       bcf      TRISB,2
       bcf      TRISB,4
       bcf      TRISB,5
       bcf      STATUS,5
;------------------------------------------------
       bcf      PORTB,2
       bcf      PORTB,4
       bcf      PORTB,5
      
LED1       call   key_on
       bcf      PORTB,5
       bsf      PORTB,2
       call        delay_2
LED2       call   key_on
       bcf      PORTB,2
       bsf      PORTB,4
       call        delay_2
LED3       call   key_on
       bcf      PORTB,4
       bsf      PORTB,5
       call        delay_2
       goto   LED1
;-----------ОПРОС КНОПКИ--------------------------
key_on       btfsc   PORTB,1
       goto   key_on
       call   delay       ;защита от дребезга
       btfsc   PORTB,1
       goto   key_on
       return   
;-----------ЗАДЕРЖКА 50 млсек. при кварце 4 МГц-----------------------------
delay       movlw       .238
            movwf       Reg_1
            movlw       .65
            movwf       Reg_2
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            nop
       return
;-----------ЗАДЕРЖКА 1 сек. при кварце 4 МГц-----------------------------
delay_2    movlw       .173
            movwf       Reg_1
            movlw       .19
            movwf       Reg_2
            movlw       .6
            movwf       Reg_3
            decfsz      Reg_1,F
            goto        $-1
            decfsz      Reg_2,F
            goto        $-3
            decfsz      Reg_3,F
            goto        $-5
            nop
            nop
       return
;------------------------------------------------      
            end