Форум РадиоКот

Код: Выделить всё

        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