programovani PIC v MicroPascal-u

[RV]

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