LIST        P=12F629
        __CONFIG    0X3F84
        INCLUDE     "P12F629.INC"
;----------
RESW   EQU      0X20
RESS   EQU      0X21
GP_PREV   EQU      0X22
;----------
      ORG     0
      BSF     STATUS, RP0      ;BANK 1
        MOVLW   B'00000111'      ;PRESCALER VARIABLE
        GOTO    INIT
;----------
        ORG     4            ;INTERRUPT
      MOVWF   RESW
      MOVF   STATUS, W
      MOVWF   RESS

      BTFSC   GP_PREV, 3      ;TEST BUTTON 3
      BTFSC   GPIO, 3
      GOTO   GPTEST4
      BTFSS   GP_PREV, 2
      BSF      GPIO, 2
      BTFSC   GP_PREV, 2
      BCF      GPIO, 2

GPTEST4   BTFSC   GP_PREV, 4      ;TEST BUTTON 2
      BTFSC   GPIO, 4
      GOTO   GPTEST5
      BTFSS   GP_PREV, 1
      BSF      GPIO, 1
      BTFSC   GP_PREV, 1
      BCF      GPIO, 1

GPTEST5   BTFSC   GP_PREV, 5      ;TEST BUTTON 1
      BTFSC   GPIO, 5
      GOTO   ENDPROC
      BTFSS   GP_PREV, 0
      BSF      GPIO, 0
      BTFSC   GP_PREV, 0
      BCF      GPIO, 0
      
ENDPROC   MOVF   GPIO, W
      MOVWF   GP_PREV         ;SAVE GPIO
      BCF      INTCON, T0IF   ;CLEAR INTERRUPT FLAG

      MOVF   RESS, W
      MOVWF   STATUS
      MOVF   RESW, W
      RETFIE
;----------
INIT   MOVWF   OPTION_REG      ;TMR0 PRESCALER IS 1:256
      MOVLW   B'10100000'      ;INTERRUPN ON
        MOVWF   INTCON         ;TMR0 ONLY
        MOVLW   B'00111000'      ;GP0..2 DIGITAL OUT
        MOVWF   TRISIO         ;GP3..5 DIGITAL IN
      MOVLW   B'00110000'      ;PULL-UP FOR GP4, GP5
      MOVWF   WPU
      BCF      STATUS, RP0      ;BANK 0
      MOVLW   B'00000111'
      MOVWF   CMCON         ;COMPARATOR OFF
      MOVF   GPIO, W
      MOVWF   GP_PREV         ;SAVE GPIO

LOOP   NOP
      GOTO   LOOP         ;INFINITY CYCLE

      END

;***************************************
;                                      *
;     Фигнюшка для трех нагрузок :)    *
;                                      *
;***************************************
    list        P=12F629
    __CONFIG _INTRC_OSC_NOCLKOUT & _WDTE_OFF & _PWRTE_ON & _MCLRE_OFF & _BODEN_OFF & _CP_OFF & _CPD_OFF
    include     "P12F629.INC"
    errorlevel -302
;----------
    CBLOCK      0x20

gp_stat
CounterA
CounterB

    ENDC
;----------
        #define S1      GPIO,5
        #define S2      GPIO,4
        #define S3      GPIO,3
        #define L1      GPIO,0
        #define L2      GPIO,1
        #define L3      GPIO,2
        #define GPL1    gp_stat,0
        #define GPL2    gp_stat,1
        #define GPL3    gp_stat,2
;----------
        org     0
        goto    init
;----------
        org     0x4
        nop
;----------
init
        call    0x3ff
        bsf     STATUS, RP0
        movwf   OSCCAL
        movlw   b'10000111'     ; Pull-ups disabled (7), TMR0 1:256 (2-0)
        movwf   OPTION_REG
        clrf    INTCON          ; Interrupts off
        movlw   b'00111000'     ; GP0-GP2 out, GP3-GP5 in
        movwf   TRISIO
        clrf    WPU             ; Pull-ups off
        clrf    IOC             ; Interrupt-on-change off
        bcf     STATUS, RP0
        movlw   b'00000111'
        movwf   CMCON           ; COMPARATOR OFF
;----------
        clrf    GPIO
        call    saveport
; Вместо двух предыдущих команд надо будет прописать процедуру считывания
; из EEPROM предыдущего состояния порта.
;----------
loop1
        movf    GPIO,f          ; Фиксируем состояние порта
        ; Test S1
        btfsc   S1              ; Проверка кнопки
        goto    loop2           ; Если не нажата, проверяем следующую,
        call    delay5ms        ; иначе осуществляем антидребезг,
        btfsc   S1              ; проверяем повторно.
        goto    loop2           ; В случае ошибочного срабатывания проверяем другую.
        btfss   S1              ; Ожидаем отпускание кнопки
        goto    $-1             ; перед тем, как исполнить команду.
        btfss   GPL1            ; Проверяем предыдущее состояние порта.
        bsf     L1              ; Включаем нагрузку, если была отключена.
        btfsc   GPL1            ; Eсли же была включена,
        bcf     L1              ; отключаем ее.
        call    saveport        ; Сохраняем состояние порта
        goto    loop1
loop2
        ; Test S2
        btfsc   S2
        goto    loop3
        call    delay5ms
        btfsc   S2
        goto    loop3
        btfss   S2
        goto    $-1
        btfss   GPL2
        bsf     L2
        btfsc   GPL2
        bcf     L2
        call    saveport
        goto    loop1
loop3
        ; Test S3
        btfsc   S3
        goto    loop1
        call    delay5ms
        btfsc   S3
        goto    loop1
        btfss   S3
        goto    $-1
        btfss   GPL3
        bsf     L3
        btfsc   GPL3
        bcf     L3
        call    saveport
        goto    loop1

;**********************************
;           Подпрограммы          *
;**********************************
saveport
        movf    GPIO,w
        movwf   gp_stat
; Здесь надо добавить процедуру записи gp_stat в EEPROM.
        return

;PIC Time Delay = 0.00500100 s with Osc = 4000000 Hz
delay5ms
      movlw   D'7'
      movwf   CounterB
      movlw   D'124'
      movwf   CounterA
loop
        decfsz   CounterA,1
      goto   loop
      decfsz   CounterB,1
      goto   loop
      retlw   0
;**********************************
;        Конец подпрограмм        *
;**********************************

        org     0x3ff
        retlw   0                   ; Сюда можно вписать считанную константу

        end