roboforum.ru

Недавно занялся програмированием пиков. Решил начать с PIC16F628A. Первой прогой была мигалка. Она заработала нормально. Теперь пытаюсь узнать состояние на входе RA1. Не получается. Для питания использую таблетку 3 вольта. Частоту задаёт кварц на 4 МГц. Для его запуска заюзаны два кондёра по 20 пкФ. Светодиод подключён к RA0 плюсом а минусом к общей точке. Вот код прошивки на микропаскале (сам знаю что извращение)
program pic628;
begin
TRISA.0 := 0;
TRISA.1 := 1;
while TRUE do
porta.0:=porta.1;
end.
Скажите, что я делаю не так ?

Можно открыть мануал и почитать, например:

Note 1: RA5 shares function with V PP . When V PP
voltage levels are applied to RA5, the
device will enter Programming mode.
2: On Reset, the TRISA register is set to all
inputs. The digital inputs (RA<3:0>) are
disabled and the comparator inputs are
forced to ground to reduce current
consumption.
3: TRISA<6:7> is overridden by oscillator
configuration. When PORTA<6:7> is
overridden, the data reads ‘0’ and the
TRISA<6:7> bits are ignored.

Т.е. при вкл. контроллера "digital inputs (RA<3:0>) are disabled and the comparator inputs". И в мануале есть инициализация порта:

EXAMPLE 5-1: Initializing PORTA
CLRF PORTA ;Initialize PORTA by
;setting
;output data latches
MOVLW 0x07 ;Turn comparators off and
MOVWF CMCON ;enable pins for I/O
;functions
BCF STATUS, RP1
BSF STATUS, RP0;Select Bank1
MOVLW 0x1F ;Value used to initialize
;data direction
MOVWF TRISA ;Set RA<4:0> as inputs
;TRISA<5> always
;read as ‘1’.
;TRISA<7:6>
;depend on oscillator
;mode

РЕЗИСТОР писал(а):Вот код прошивки на микропаскале (сам знаю что извращение)

Да уж...

Советую СИ !!!

РЕЗИСТОР писал(а):Вот код прошивки на микропаскале

у mikroe.com есть руководство паскаль для PIC - дам все разжевано и код весь и схемы и архивом тоже.

Там же супер руководства и для Си для AVR PIC ARM

Ответ прямо на страничке паскаля для пик
http://www.mikroe.com/mikropascal/pic/my-first-project/