programovani PIC v MicroPascal-u

[Zapletal Martin]

Jeste jsem to zkousel napatlat primo v ASM ale prakticky se stejnym 
vysledkem. Tady je kod. Kde delam chybu? co jsem nepochopil?

 LIST P=16F627A
 INCLUDE<P16F627A.INC>
 __CONFIG _PWRTE_ON & _WDT_OFF & _MCLRE_OFF & _BODEN_OFF & _LVP_OFF & 
_INTRC_OSC_NOCLKOUT

#DEFINE TLAC1 PORTA,0
#DEFINE TLAC2 PORTA,1
#DEFINE TLAC3 PORTA,2
#DEFINE TLAC4 PORTA,3
#DEFINE TLAC5 PORTA,4

#DEFINE LED1 PORTB,0
#DEFINE LED2 PORTB,1
#DEFINE LED3 PORTB,2
#DEFINE LED4 PORTB,3
#DEFINE LED5 PORTB,4

 MOVLW B'00000111'
 MOVWF CMCON

 BSF STATUS,RP0
 MOVLW B'00011111'
B'00000000'
 MOVWF TRISA
 BCF STATUS,RP0

 BSF STATUS,RP0
 MOVLW B'00000000'
 MOVWF TRISB
 BCF STATUS,RP0

 BSF LED1
 BCF LED2
 BCF LED3
 BCF LED4
 BCF LED5

 START BTFSC TLAC1
   GOTO LITLED1
   BTFSC TLAC2
   GOTO LITLED2
   BTFSC TLAC3
   GOTO LITLED3
   GOTO $-6

   GOTO START

 LITLED1 BSF  LED1
   BTFSC TLAC1
   BCF  LED2
   BCF  LED3
   BCF  LED4
   BCF  LED5
   GOTO START

 LITLED2 BSF  LED2
   BTFSC TLAC2
   BCF  LED1
   BCF  LED3
   BCF  LED4
   BCF  LED5
   GOTO START

 LITLED3 BSF  LED3
   BTFSC TLAC3
   BCF  LED1
   BCF  LED2
   BCF  LED4
   BCF  LED5
   GOTO START

END


> 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
>