Návrh jednoduchého stroboskopu so štyrmi ledkami

Zdravím, začínam sa učiť programovať(MPLAB), zatial som len rozsvecoval ledky pomocou switchov. A chcel by som navrhnúť zapojenie stroboskopu so štyrmi ledkami. Tu je schéma ako by som si to predstavoval." Spínaním switchu by sa menili rôzne efekty" Neviem či je to takto realizovatelné.

postimage.org/image.php?v=Ts1SVQm9
postimage.org/Ts1SVQm9.jpg

Keby ste mi niekto pomohol s programom, sám program ešte nedokážem napísať, keby som ho videl tak na takomto jednoduchšom zapojení tak by som tomu viac pochopil. Ďakujem

:arrow_right: administrator: přejmenováno z “Programovanie PIC 16f84”

:arrow_right: administrator: přiloženy externí soubory

Mělo by ti to takto chodit.
Na naučení doporučuju použít nějakou literaturu, mě strašně pomohla “Moderní učebnice programování 1” a 2 od Hrbáčka. Přečteš a naprogramuješ si to bez cizí pomoci sám. Nejsou moc drahý, případně je najdeš v download sekci.

Práve tú knihu som si na internete zohnal, aj by som ju kúpil len sa mi nechcelo čakať. Dnes som ju vytlačil a celý deň študoval, ale rád by som nejaký podobný program tomu stroboskopu, potom by som si ho upravil a tak.
Inak neexistuje nejaký simulátor, niečo podobné ako multisim 10, ten mám ale neviem v nom rozchodiť MCU.

Existuje : MPLAB (cca 90Mb)

k stroboskopu :
pandatron.cz/?485&led_stroboskop
elektrolukis.estranky.cz/stranka/bezici-pas-s-pic-16f84a

koukni se na okazi a pak se kdyztak este zeptej :wink:

EDIT: v Moderní učebnice programování 2 na str.31 je priklad “Cekej3” , sice je trochu richlej ale na pochopeni staci

No abych Ti pravdu řekl, tak učebnice programování PIC je opravdu dobrý základ. Později “Komunikace mikrokontroléru s okolím” a tak dál…
A ve schématu máš opačně zapojené LEDky :wink:

Konečne som si našiel čas :smiley:
Ziatial som stvoril toto:

[code]
;***************************************************************

EFEKT1 MOVLW B’00111111’
MOVWF PORTB
CALL CAKAJ

    MOVLW B'11001111'
    MOVWF PORTB
    CALL CAKAJ 

    GOTO EFEKT1

;***************************************************************

EFEKT2 MOVLW B’01101111’
MOVWF PORTB
CALL CAKAJ2

    MOVLW B'10011111'
    MOVWF PORTB
    CALL CAKAJ2 

    GOTO EFEKT2

;***************************************************************

EFEKT3 MOVLW B’11111111’ ;-*
MOVWF PORTB
CALL CAKAJ3

    MOVLW B'00001111'
    MOVWF PORTB
    CALL CAKAJ3

    GOTO EFEKT3

;***************************************************************

EFEKT4 MOVLW B’01111111’
MOVWF PORTB
CALL CAKAJ4

    MOVLW B'10111111'
    MOVWF PORTB
    CALL CAKAJ4

MOVLW B'11011111'   
    MOVWF PORTB
    CALL CAKAJ4  

    MOVLW B'11101111'
    MOVWF PORTB
    CALL CAKAJ4

MOVLW B'11011111'   
    MOVWF PORTB
    CALL CAKAJ4  

    MOVLW B'10111111'
    MOVWF PORTB
    CALL CAKAJ4

GOTO EFEKT4

;***************************************************************

EFEKT5 MOVLW B’00111111’ ;--
MOVWF PORTB
CALL CAKAJ5

    MOVLW B'11111111'
    MOVWF PORTB
    CALL CAKAJ5

MOVLW B'00111111'   
    MOVWF PORTB
    CALL CAKAJ5  

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11001111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11001111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5


GOTO EFEKT5

;***************************************************************

EFEKT5 MOVLW B’00001111’
MOVWF PORTB
CALL CAKAJ5

    MOVLW B'11111111'
    MOVWF PORTB
    CALL CAKAJ5

MOVLW B'00001111'   
    MOVWF PORTB
    CALL CAKAJ5  

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

MOVLW B'00001111'   	
    MOVWF PORTB
    CALL CAKAJ5  

    MOVLW B'11111111'
    MOVWF PORTB
    CALL CAKAJ5

MOVLW B'00001111'   
    MOVWF PORTB
    CALL CAKAJ5 

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

    MOVLW B'11111111'
MOVWF PORTB
    CALL CAKAJ5

GOTO EFEKT5

;***************************************************************[/code]

Nieje tam všetko, mali byť ešte dalšie efekty, program som obkukal odtialto : bazypv.net/elektro/konstrukce/pic.htm

Neviem či je to takto možné robyť, hlavne ak mám čakaciu, log.0, MOVWF B’11111111’ či ju nemôžem nahradiť NOP?
Dalej to musím celé nejako spomaliť, kedže kryštál pracuje na 4MHz, ale to si ešte musím preštudovať. Dalšia vec kotrú som si práve všimol že musím všetky log. 0 a 1 znegovať, pretože budem spínať NPN tranzistorom, alebo nie?

:arrow_right: administrator: příspěvek byl upraven

Cau, tomu nak nerozumym ? :unamused:

pokud pouzijes tu cekaci smycku co je v tom puvodnim kodu tak staci zmenit hodnotu co se zapysuje do “TMP2”, 0x01 = 90mS,0x02 = 180mS …,

;Delay 5000 cycles (PicDelay)
CEKEJ MOVLW 0x01 ;1 DEC / 0x01 = 90mS,0x02 = 180mS …,
MOVWF TMP2
MOVLW 0x87 ;135 DEC
MOVWF TMP1
MOVLW 0x0B ;11 DEC
MOVWF TMP0
DECFSZ TMP0,F
GOTO $-1
DECFSZ TMP1,F
GOTO $-5
DECFSZ TMP2,F
GOTO $-9
;End of Delay
RETURN

a jestli to musis znegovat ? to zalezi na tobe , jakej budes chtit efekt ,
jestli
-------
-
------
-----
nebo negovane
-
******
-*****
-***

// tak už som to celé rozchodil, boli tam v programe nejaké chyby. Zapojenie som už aj odskúšal, ešte doladiť časovanie. Zatial vám dakujem

Cau, vysvetleni tech hlaseni je napsany v “Moderní učebnice programování 1” , tak se koukni o co de , nebo , cislo pred dvojiteckou a nazvem hlaseni je cislo radku “Warning[216] C:\DOCUME~1\JOPI\DOKUME~1\MPLAB_~1\STROBE.ASM** 27 **: Radix superceded by command line.” kde se nachazi chyba, mozna tam mas preklep nabo to spravi Tabulator ([216],[207])
hlaseni [302] te jenom upozornuje ze si v jine bance ,to se da odstranit kdyz na zacatek pridas “ERRORLEVEL -302”

ERRORLEVEL -302 LIST p=16F628A, R=DEC INCLUDE<P16f628A.INC>
a Error[113], nemas ho nadefinovanej ,staci pridat EFEKT EQU h’22’ , pokud je to mysleno jako pomocnej reg.,
a k programu , mas tam jednu CHYBU , kdyz pouzijes funkci CALL tak z ni musis funkci RETURN ! je to v tech cekacich smyckach po zmacknuti tlacitka,tady to mozna nevadi ale v slozitejsich programech by to bylo horsi
a pokud tam mas vic cekacich smycek tak abys nemusel furt psat “wait 0 … wait 1000” tak se to da nahradit goto $-x

[code]CAKAJ2 MOVLW h’FF’ ;podprogram čakanie
MOVWF c2 ;trvá asi 0,2s
wait22 MOVLW h’FF’
MOVWF c1
wait12 DECFSZ c1,1
GOTO $-1
DECFSZ c2,1
GOTO $-5

            RETURN 

[/code]

Ako som písal chybu som už našiel :smiley:
Ešte by som tam chcel pridať tlačítko Test a 4 dlašie ledky ktoré by indikovali aký efetkt je zvolený, cyklus efektu by sa opakoval raz. Dalo by sa to nejako zaradiť do programu?

Ty 4 ledky klidne i 5 by se daly napojit na RA0-4, a tlacitka treba na RA0 RA4,zalezi co by delaly, pred kazdym volanim CEKEJ by si odskocil treba do TEST a tam testoval jestli je naky Tl. zmackly, pak by ti odpadly ty smycky a stacila by ti jenom jedna , teda jestli sou ve skutecnosti stejne dlouhy, puvodne jo 200mS,

tie 4 ledky by som zapojil na RB0-3 a tlačidlo TEST na RA1(viac v schéme).
Neviem či to testovanie sa bude dať takto spraviť.

[code];***************************************************************

EFEKT1 MOVLW B’00111111’
MOVWF PORTB
CALL CAKAJ

    MOVLW B'11001111'
    MOVWF PORTB
    CALL CAKAJ
CALL TEST
    GOTO EFEKT1

;***************************************************************

;Podprogramy-časovanie

CAKAJ MOVLW h’FF’ ;podprogram čakanie
MOVWF c2 ;trvá asi 0,2s
wait2 MOVLW h’FF’
MOVWF c1
wait1 DECFSZ c1,1
GOTO wait1
DECFSZ c2,1
GOTO wait2

    BTFSS TLAC0          ; Test tlacitka mode
    GOTO EFEKT2

    RETURN 

;testovanie efektu

TEST BTFSS TLACIDLO TEST ; stalecene tlacitko TEST
; ak áno, tak rozsvieť PORTB, ak nie vrat sa a opakuj efekt
MOVLW B’00110011’
MOVWF PORTB
CALL CAKAJ

    MOVLW B'11001100'
    MOVWF PORTB
    CALL CAKAJ

RETURN

END[/code]

neviem toto mi na rýchlo vzišlo z hlavy, dalo by sa?

sry sem se nekouk na puvodni schema mas tam jenom 4 led , sem myslel ze 8, jo schema je v poho , ale kod NE ,
uz sem ti rikal ze pokud volas CALL tak RETURN ! este sis to neopravil , to zaprvi a za druhy co budou myt ty tlacitka za funkci ?? (TEST ,TLAC0 ) a za treti pouzivas spatne funkci BTFSS nebo to mas neuplny, nejdriv ty tlacitka my objasni prosim

Nechápem čo myslíš s tým CALL a RETURN. Inak tie programy hore sú zlé s chybami.
Tlacítko TLAC0 prepína efekty a TEST indikuje práve zvolený efekt tak, že ak ho stlačím spraví jeden cyklus efektu ktorý je práve zvolený(pretože výkonové led nieje vidieť).
Inak tu je celý program: je overený a funkčný, zatial bez toho testovania tlačitkom TEST


  	LIST P = 16F84, R = DEC
  	include <p16f84.inc>

	__CONFIG	_CP_OFF & _WDT_OFF & _PWRTE_ON & _RC_OSC


	c1 equ h'20'		;premenné pre cykly
	c2 equ h'21'

	#DEFINE TLAC0 PORTA,0

        ORG 0

        BSF STATUS,5
        MOVLW B'00000001'   	; Nastavenie portu A 0 na vstupny
        MOVWF TRISA
        BCF STATUS,5

        BSF STATUS,5
        MOVLW B'00000000'   	; Nastavenie portu B na vystupny
        MOVWF TRISB
        BCF STATUS,5

;***************************************************************

EFEKT1  MOVLW B'00111111'   
        MOVWF PORTB
        CALL CAKAJ  

        MOVLW B'11001111'
        MOVWF PORTB
        CALL CAKAJ 

        GOTO EFEKT1

;***************************************************************

EFEKT2  MOVLW B'01101111'   
        MOVWF PORTB
        CALL CAKAJ2
  
        MOVLW B'10011111'
        MOVWF PORTB
        CALL CAKAJ2 

        GOTO EFEKT2

;***************************************************************

EFEKT3  MOVLW B'11111111'	;-*   
        MOVWF PORTB
        CALL CAKAJ3 

        MOVLW B'00001111'
        MOVWF PORTB
        CALL CAKAJ3

        GOTO EFEKT3

;***************************************************************

EFEKT4	MOVLW B'01111111'   
        MOVWF PORTB
        CALL CAKAJ4  

        MOVLW B'10111111'
        MOVWF PORTB
        CALL CAKAJ4

	MOVLW B'11011111'   
        MOVWF PORTB
        CALL CAKAJ4  

        MOVLW B'11101111'
        MOVWF PORTB
        CALL CAKAJ4

	MOVLW B'11011111'   
        MOVWF PORTB
        CALL CAKAJ4  

        MOVLW B'10111111'
        MOVWF PORTB
        CALL CAKAJ4
	
	GOTO EFEKT4

;***************************************************************

EFEKT5	MOVLW B'00111111'   	;*-*---*-*---
        MOVWF PORTB
        CALL CAKAJ5  

        MOVLW B'11111111'
        MOVWF PORTB
        CALL CAKAJ5

	MOVLW B'00111111'   
        MOVWF PORTB
        CALL CAKAJ5  

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ5

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ5
   
        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ5

        MOVLW B'11001111'
	MOVWF PORTB
        CALL CAKAJ5

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ5

        MOVLW B'11001111'
	MOVWF PORTB
        CALL CAKAJ5

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ5

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ5
   
        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ5


	GOTO EFEKT5

;***************************************************************

EFEKT6	MOVLW B'00001111'   	
        MOVWF PORTB
        CALL CAKAJ6  

        MOVLW B'11111111'
        MOVWF PORTB
        CALL CAKAJ6

	MOVLW B'00001111'   
        MOVWF PORTB
        CALL CAKAJ6  

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ6

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ6
   
        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ6

	MOVLW B'00001111'   	
        MOVWF PORTB
        CALL CAKAJ6  

        MOVLW B'11111111'
        MOVWF PORTB
        CALL CAKAJ6

	MOVLW B'00001111'   
        MOVWF PORTB
        CALL CAKAJ6 

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ6

        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ6
   
        MOVLW B'11111111'
	MOVWF PORTB
        CALL CAKAJ6

	GOTO EFEKT6

;***************************************************************


	;Podprogramy-časovanie

CAKAJ	MOVLW h'FF'		;podprogram čakanie
	MOVWF c2		;trvá asi 0,2s
wait2	MOVLW h'FF'
	MOVWF c1
wait1	DECFSZ c1,1
	GOTO wait1
	DECFSZ c2,1
	GOTO wait2

        BTFSS TLAC0       	; Test tlacitka mode
        GOTO EFEKT2

        RETURN

CAKAJ2	MOVLW h'FF'		;podprogram čakanie
	MOVWF c2		;trvá asi 0,2s
wait22	MOVLW h'FF'
	MOVWF c1
wait12	DECFSZ c1,1
	GOTO wait12
	DECFSZ c2,1
	GOTO wait22

        BTFSS TLAC0       	; Test tlacitka mode
        GOTO EFEKT3

        RETURN

CAKAJ3	MOVLW h'FF'		;podprogram čakanie
	MOVWF c2		;trvá asi 0,2s
wait23	MOVLW h'FF'
	MOVWF c1
wait13	DECFSZ c1,1
	GOTO wait13
	DECFSZ c2,1
	GOTO wait23

        BTFSS TLAC0     	; Test tlacitka mode
        GOTO EFEKT4

        RETURN

CAKAJ4	MOVLW h'FF'		;podprogram čakanie
	MOVWF c2		;trvá asi 0,2s
wait24	MOVLW h'FF'
	MOVWF c1
wait14	DECFSZ c1,1
	GOTO wait14
	DECFSZ c2,1
	GOTO wait24

        BTFSS TLAC0     	; Test tlacitka mode
        GOTO EFEKT5

        RETURN

CAKAJ5	MOVLW h'FF'		;podprogram čakanie
	MOVWF c2		;trvá asi 0,2s
wait25	MOVLW h'FF'
	MOVWF c1
wait15	DECFSZ c1,1
	GOTO wait15
	DECFSZ c2,1
	GOTO wait25

        BTFSS TLAC0     	; Test tlacitka mode
        GOTO EFEKT6

        RETURN

CAKAJ6	MOVLW h'FF'		;podprogram čakanie
	MOVWF c2		;trvá asi 0,2s
wait26	MOVLW h'FF'
	MOVWF c1
wait16	DECFSZ c1,1
	GOTO wait16
	DECFSZ c2,1
	GOTO wait26

        BTFSS TLAC0     	; Test tlacitka mode
        GOTO EFEKT1

        RETURN

	END

doporucuju procist kapitolu "2.1 PODPROGRAMY kniha Moderní učebnice programování 2 , str 51, pokud pouzijes CALL tak se do STACKu ulozi adresa kde je CALL , pri RETURN je ta adresa vyjmuta +1 a vlozena do PC a program vse rati tam od kat prisel , receno v rychlosti, pokud ale pouzijes GOTO coz se stane pokud zmacknes TL tak se nevyprazni STACK coz je spatne ale v tomdle programu to nevadi v jinym by to delalo problemy, no procti,
img5.rajce.idnes.cz/…/capture_13102009_184026.jpg

ohledne tech hlaseni : dopln si “errorlevel -302” a c1 equ h’20’
c2 equ h’21 si soupni uplne do leva , zmiznou ti ty hlaseni :wink:

a este kdyby nevadilo kdyby byly na PA0-3 ledky a Tlacitka na PB0-1 ?? bylo by to snazsi

:arrow_right: administrator: přiloženy externí soubory
hardware-stack.jpg

nejako v rýchlosti so tomu porozumel tak že najlepšie by bolo túto časť

BTFSS TLAC0 ; Test tlacitka mode GOTO EFEKT1
dať za RETURN??

skúsim teda tlačítka prehodiť na druhý port

Poradill som si s tým takto:

[code]
LIST P = 16F84, R = DEC
include <p16f84.inc>

__CONFIG	_CP_OFF & _WDT_OFF & _PWRTE_ON & _RC_OSC


c1 equ h'20'		;premenné pre cykly
c2 equ h'21'

#DEFINE TLAC0 PORTB,0
#DEFINE TEST1 PORTB,1

    ORG 0

    BSF STATUS,5
    MOVLW B'00000000'   	; Nastavenie portu A  na vystupy
    MOVWF TRISA
    BCF STATUS,5

    BSF STATUS,5
    MOVLW B'00000011'   	; Nastavenie portu B na RB2/7 vystupy a RB0/1 na vsupy
    MOVWF TRISB
    BCF STATUS,5

;***************************************************************

EFEKT1 MOVLW B’00111111’
MOVWF PORTB
CALL CAKAJ
;----------------------Program-testuje--------------------------
BTFSS TEST1 ; kontrola stavu tlacitka
CALL TEST ; ak je zopnuté tak vyvolá podprogram TEST, ak nie nulujuje PORTA
MOVLW B’00000000’
MOVWF PORTA
;---------------------------------------------------------------
MOVLW B’11001111’
MOVWF PORTB
CALL CAKAJ
;----------------------Program-testuje--------------------------
BTFSS TEST1 ; kontrola stavu tlacitka
CALL TEST ; ak je zopnuté tak vyvolá podprogram TEST, ak nie nulujuje PORTA
MOVLW B’00000000’
MOVWF PORTA
;---------------------------------------------------------------
GOTO EFEKT1

;***************************************************************

;Podprogramy-časovanie

CAKAJ MOVLW h’FF’ ;podprogram čakanie
MOVWF c2 ;trvá asi 0,2s
wait2 MOVLW h’FF’
MOVWF c1
wait1 DECFSZ c1,1
GOTO wait1
DECFSZ c2,1
GOTO wait2

    BTFSS TLAC0       	; Test tlacitka mode
    GOTO EFEKT2

    RETURN

;podprogram testovanie

TEST MOVLW B’00000011’
MOVWF PORTA
CALL CAKAJ

    MOVLW B'00001100'
    MOVWF PORTA
    CALL CAKAJ

MOVLW B'00000011
    MOVWF PORTA
    CALL CAKAJ

    MOVLW B'00001100'
    MOVWF PORTA
    CALL CAKAJ

RETURN	

;***************************************************************

END		;koniec programu[/code]

Dalo by sa to aj jednoduchšie spraviť? Je to len ukážka pre efekt 1

Cet si si jak se pouziva CALL :question:
takle by to mohlo nak vypadat,napsal sem to jen tak na rychlo , mozna naka chybka tam bude,odpoledne to doma testnu

#DEFINE TLAC0 PORTB,0 
#DEFINE TEST1 PORTB,1 
;led na PA0-3

EFEKT1  MOVLW B'00111111'    
        MOVWF PORTB 
        BTFSS   TLTEST       ;Test tlacitka pro zobrazeni modu
        CALL     ZOBRAZ
        CALL CAKAJ  
        CLRF   PORTA          ;vynuluje PORTA
        BTFSS TLAC0          ; Test tlacitka mode 
        GOTO EFEKT2 

       MOVLW B'11001111'    
        MOVWF PORTB 
        BTFSS   TLTEST
        CALL     ZOBRAZ
        CALL CAKAJ  
        CLRF   PORTA
       BTFSS TLAC0          ; Test tlacitka mode 
        GOTO EFEKT2 

       GOTO   EFEKT1

ZOBRAZ   ;TL test stlaceno,stav PORTB prohodit hori a dolni 
               ; polivinu bitu a zapsat na PORTA
      MOVWF   FSR
      SWAPF    FSR,W
      MOVWF   PORTA
     RETURN


CAKAJ   MOVLW h'FF'      ;podprogram čakanie 
   MOVWF c2      ;trvá asi 0,2s 
wait2   MOVLW h'FF' 
   MOVWF c1 
wait1   DECFSZ c1,1 
   GOTO wait1 
   DECFSZ c2,1 
   GOTO wait2

        RETURN 

tady je v simulatoru funkcni program pro efekt1/2, tak se na nej koukni a prudni ho
dod.asm (4.6 KB)

toto riešenie je dobré, ale pri mojom stačilo stlačiť raz a test sa vykonal, takto treba držať tlačidlo TEST. To som už mohol zobrať výstupy PORTU B pripojiť na jeden vstup dvojicu led, a tie testované by som zopol tlačidlom.

ešte by som potreboval poradiť zo zápisom posledného zvoleného efektu do eeprom.

testoval sem to jenom v simulatoru tak nevim jak to vipada realne , muzez si to i upravit podle sebe ,snazim se ti jenom ukazat jak na to , jak pouzivat instrukce, samozrejme ti to nevnucuju, je to jen na tobe jak si to napises, ALE muj navrh ma i +, pokud mas tlacitko na PB0 da se treba do budoucna pouzit pro preruseni :bulb: , a zamezilo se preteceni STACKu a spravneho pouzivani CALL , no je to na tobe, pouze ti radime

tak se koukni tady naforu jiste tu neco nebude, treba “EEPROM PIC16F84A” je tam ale jenom zapis, nebo si zaloz nove vlakno