PIC16F628A PORTA
Народ помогите, где опять туплю?
---
Не "мигает" порт А пятый бит...
---
LIST P=PIC16F628A
#include "P16F628A.INC" ; Include header file
__CONFIG _LVP_OFF &_INTOSC_OSC_NOCLKOUT &_WDT_OFF &_PWRTE_ON &_BOREN_OFF &_CP_OFF &_DATA_CP_OFF &_MCLRE_OFF
Digit1 EQU 20h
Digit2 EQU 21h
ORG 0
GOTO START
ORG 5
START
BCF STATUS,RP1
BSF STATUS,RP0 ; Выбор банка 1
CLRF TRISA ; все биты порта А на выход
MOVLW 007h ; Порт A ВЫКЛЮЧАЕМ источник опорного напряженияя
MOVWF VRCON
MOVLW 00h ; Порт A ВЫКЛЮЧАЕМ КОМПАРАТОРЫ
MOVWF CMCON
BCF STATUS,RP0 ; Выбор банка 0
BEGIN MOVLW b'11111111'
MOVWF PORTA
CALL PAUSE
MOVLW b'00000000'
MOVWF PORTA
CALL PAUSE
GOTO BEGIN ; Перейти на начало
PAUSE
MOVLW 01h ;Загрузить 0FFh в регистр W
MOVWF Digit1 ;Загрузить регистр W в SCRATCH
MOVLW 0FFh ;Загрузить 0FFh в регистр W
MOVWF Digit2 ;Загрузить регистр W в DIGITLOOP
LOOP
DECFSZ Digit1,1 ;Уменьшить SCRATCH на 1
GOTO LOOP ;и переходить обратно, пока не станет =0
DECFSZ Digit2,1 ;Уменьшить DIGIT на 1
GOTO LOOP ;и переходить на метку LOOP, пока не станет =0
RETURN ;Вернуться из подпрограммы
;
END
|
