programovani PIC v MicroPascal-u

[Zapletal Martin]

Dik, uz to dela co ma. Bylo to tim  vypnutim komparatoru a take mi tam 
chybela nekonecna smycka takze proletel jen jednou a hotovo. Ted uz to dela 
co ma.

Dik Martin Zapletal.


----- Original Message ----- 
From: "RV" <vicek.radek@cpost.cz>
To: "HW-news" <hw-list@list.hw.cz>
Sent: Thursday, September 21, 2006 3:15 PM
Subject: Re: programovani PIC v MicroPascal-u


>V mikrPascalu delam, ale musim ted odjet takz ekdyztak se ozvu vecer
> pokud nekdo neporadi.
>
> V kazdem pripade Vam tam chybi to z toho ASM tedy vypnout komparatory:
>
> MOVLW B'00000111'
> MOVWF CMCON
>
> tedy v pascalu treba takto :
>
> CMCON := %00000111; //komparatory off
>
>
> Zapletal Martin napsal(a):
>> Omlouvam se za zacatecnicky dotaz ale pokousim se o jednoduchou vec a 
>> nejak
>> se mi nedari. Napsal jsem nasledujici kod ale rozsviti se mi jen prvni 
>> LED a
>> pri stisku tlacitka mi dalsi nechodi. Pritom pokud to krokuji a menim 
>> stav
>> na PORTA tak to dela co ma. Nevim co delam spatne. Poradi mi nekdo 
>> prosim?
>> Procesor je 16F627 a nastaveno mam _PWRTE_ON & _WDT_OFF & _MCLRE_OFF &
>> _BODEN_OFF & _LVP_OFF & _INTRC_OSC_NOCLKOUT
>>
>> program TDS01;
>>
>> begin
>>   TRISA  := $FF;                    // PORTA vstup
>>   TRISB  := $0;                     // PORTB vystup
>>   PORTB  := $01;                    // prvni LED roznout
>>
>>   while true do
>>   begin
>>     if (TestBit(PORTA,0) = 1)then
>>       PORTB :=$01;
>>     if (TestBit(PORTA,1) = 1)then
>>       PORTB :=$02;
>>     if (TestBit(PORTA,2) = 1)then
>>       PORTB :=$04;
>>   end;
>> end.
>>
>> dik Martin
>>
>> _______________________________________________
>> HW-list mailing list  -  sponsored by www.HW.cz
>> Hw-list@list.hw.cz
>> http://list.hw.cz/mailman/listinfo/hw-list
>>
>>
>
> -- 
> RadekCX - http://www.cncnet.info
>
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list@list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list
>