DDRA=&b11111111
DDRB=&b1011

PORTB=&b0000
PORTA=255

MCUCR.1=1
SREG.7=1
DIM tmp as Bit

DO
   rem PORTB=&b0010
   rem wait 1
   rem PORTB=&b0001
   rem wait 1

   IF PINB.2 = 1 THEN
      tmp=tmp
   ENDIF

   IF tmp = 1 THEN
      PORTB.0=1
      PORTB.1=0
   ELSE
      PORTB.1=1
      PORTB.0=0

   ENDIF
   wait 1
LOOP
END
rem koniec programu bassa komputera
                                
                            

Paste Hosted With By Wklejamy.pl