www.elektronik.si

[Sokrat]

Tvoj opis je ena huda zmeda (ali je pa tak kar program) V prekinitvah preverjas stanja tipk in postavis ustrezne zastavice. Vse, kar je v zvezi z glavnim programom (odvizi na dogodke) pa potem preverjajo te zastavice in jih resetirajo, ko dogodek zaznajo oz. obdelajo, odvisno od tega kaksno delovanje zelis.

[kavelj22]

Hvala za tistega smeskota, ampak tudi jaz ne razumem niti besede kar si hotel povedati. Tako pac je ko srecata eden ki ze zna in drug ki se uci.

Takole:

[igo]

Problem je s skladom, zaradi napačne rabe goto, call in return ukazov.
Primer napake:

Delaj
...
call Cyc (ob izpolnjenem pogoju kličeš Cyc)
...
goto Delaj

Cyc
...
goto Go_back
goto Cyc (izbereš med Cyc in Go_back)

Go_back
...
goto Delaj

Manjka VSAJ en return. Ostale kode nisem gledal, ampak program se povsem zacikla.
Delalo bi tole, vendar upoštevaj, da se z return vrneš na naslednji ukaz, takoj za call Cyc:

Delaj
...
call Cyc (ob izpolnjenem pogoju kličeš Cyc)
btfsc Temp_key,Key_F_on
...
goto Delaj

Cyc
...
goto Go_back
goto Cyc (izbereš med Cyc in Go_back)

Go_back
...
return

Nisem gledal naprej, a verjetno se ti na podoben način zaplete še pri call F _on ...

Tudi
movlw Tabela
movwf PCLATH ni najboljše zaporedje ukazov, saj vrednost Tabela ni definirana. Zgolj po naključju je enaka 0.
LP,
Igor

DODANO: Sem bolje pogledal. "return" na koncu Go_back ti bo rešil marsikaj ... kar je okrog call return narobe pri btfsc skeniranju tipk. A pazi - če boš pritisnil več tipk hkrati , bodo izpolnjeni vsi podprogrami, ki jih kličeš za btfsc Temp_key,...

Vsak call MORA imeti nekje return, s katerim skočiš na naslednji ukaz za tistim, s katerim si klical podprogram.

DODANO2: Napaka se ponovi tudi v zaporedju Delaj1 ... Go_back1
Go_back1
...
return ; tole dodaj

In še glavna težava:
call Mode_menu; napaka je v obeh v obeh Delaj zankah

Mode_menu
...
goto Prelubrification
goto Lubrication

Tu se povsem zaciklaš z goto, call, goto, call,... brez return-ov.
Zadevo rešiš z
goto Mode_menu ; v obeh Delaj in Delaj1 zankah

[igo]

Eh, preveč zmede je s temi goto, call, return. Nariši si okrog in okrog na list papirja oblačke z imeni podprogramov.
Nato jih poveži med seboj z barvnimi puščicami. Modra ga goto, rdeča za call, zelena za return.
Ob sedanjem stanju je cela zmeda.
Legenda: kličeš = call, greš=goto, vrneš=return

Sem našel še napačno zaporedje:
Main
... call Stop_mode ; kličeš Stop_mode
goto Main

Stop_mode
... call Mode ; kličeš Mode
return ; do tega returna se nikoli ne vrneš, ker v Mode kličeš Mode_menu, odkoder greš v Lubrification/Prelubrification in naprej greš v Delaj/Delaj1.
Posledično se nikoli več ne vrneš v Main.

Rešitev:
Če upoštevaš, kar sem napisal v prejšnjem sporočilu (return na koncu Go-back in Goback1 ter goto Mode_menu v obeh Delaj in Delaj1), je potrebno še ustrezno predelati Delaj in Delaj1, da bo v njih ukaz return, s katerima se boš vrnil v Mode .
V Mode pa mora biti tudi return, da se boš vrnil v Spuscena1.
Od tam se že vračaš v Main, kjer čakaš na ukaz za novi Stop_Mode.

Zakaj imam občutek, da nikjer ne najdem prekinitvene procedure ??? Jo sploh uporabljaš?
Tudi org 0x005 ti nič ne pomaga, če pa imaš takoj za njim ukaz org 0x100. Daj tiste napise v tabelah, vključno z org 0x100, PRESTAVI povsem na konec programa - tik pred end.

Mode_menu
incf Mode_key_state,f ; Ne vem od kod ti xorwf za prištevanje. Tole je ekvivalent tvoji želji
btfsc Mode_key_state,0
goto Pre
goto Lub
LP,
Igor

p.s.: A to delaš za vijačni kompresor?

DODANO: Z gornjimi popravki boš ob pritisku tipke Temp_key,Key_Mode prišel v Mode_menu, tam pa izbral med goto Pre/Lub. Ta del ti bo torej povsem pravilno deloval.
Sedaj samo še razmisli, pod katerimi pogoji se bi rad iz Delaj in Delaj1 vrnil v Mode. To sta edini mesti, od koder se lahko vrneš v Mode, sicer je potrebna popolna prenovitev call/goto klicev/skokov. Zgoraj omenjaš, da bi rad samo z resetiranjem začel od začetka. Brez return-ov v Delaj, Delaj1 in Mode je to dejansko res edina možnost za vrnitev v Main.
Imaš Main, kličeš Stop_mode, kličeš Mode, kličeš Mode_menu, greš Pre/Lub in se vrtiš najdlje do Mode_menu.
Potrebno je paziti še na globino sklada, saj je Mode_menu že na tretji globini od osmih - vmes pa še kup klicev pavz, LCD rutin, EEprom rutin, ... . Vsak klic je skok v eno globino nižje, z vrnitvijo skočiš eno globino višje. Pri skokih z goto pa ostajaš na trenutni globini sklada.

Zato predlagam še združitev Main, Stop_mode in Mode v eno veliko zanko, od koder kličeš Mode_menu. Naprej pa že dela z gornjimi popravki.

[kavelj22]

Igo najprej en velik hvala pa se nekrat hvala. Zdaj bom tole do dobra prestudiral in se lotil zadeve.

Ja drugace pa se trudim nardit krmilje za mazalni sistem za mazanje vreten od enega stroja v sluzbi. Crpalka dva tlacna stikala ter plovec za nivo olja. V bistvu je cisto samostojna enota, z strojem povezana samo z Enable signalom ki ga vklopi po preteku predmazanja. Po vklopu Enable signala ima samo krmilje stroja se dodatno zascito tako da lahko vretena vklopis sele po desetih minutah. Po vsaki napaki ali spremembi parametrov bi rad krozil samo v meniju za nastavljanje parametrov ( se pravi v Mode_menu), ker je po vsaki prekinitvi Enable signala tako ali tako potrebno zaceti cikelj od zacetka. Zato bi kar reset izvedel. Se pravi ce zelimo se kar spremenimo kaksne parametre in lepo reset in gremo od zacetka.

Mogoce sem si kar velik zalogaj zastavil za prvi projekt ampak se mi zdi da vseeno ni tako napacno.

Bomo videli mogoce kaj rata

Hvala,LP

[kavelj22]

[igo]

[kavelj22]

Ze sam Build ni sel skozi ce sem dal tabele na konec. To bom ze porihtal.

Ja to sem pripel samo del programa za Menu. Doma imam celotnega kjer je se delovanje crpalke in tlacnih stikal ampak bi rad zdaj najprej tole porihtal. Drugace je pa nastalo ze kar nekaj razlicic.
Nekaj stvari sem ze resil...pocasi bo!

Hvala,LP

[kavelj22]

Ok, resil sem call - return zadeve, imam pa drug problem. Sklad je 8 globinski meni pa se ugrezne za 9 in mi povozi prvo lokacijo sklada.
Ampak!!! jaz se na to lokacijo sploh ne vrnem vec-namenoma ker program restartam z reset-om. A bi to delovalo! Pac uporabljam potem globino od 3 do 9, ce me razumete!

Hvala,LP

[igo]

[Silvo]

Očitno si nekaj hudo zavozlal oz se pisanja programa nisi lotil na pravi način. Pisal sem kar zahtevne aplikacije kjer sem porabil do 90% pomnilnika a sklada ni bilo nikoli premalo. Rabil sem ga do globine max 5 nivojev.

PS.
Kako bi napisal program za recimo kaj iz serije 16C5x kjer je sklad le dvonivojski.
Tukaj recimo imaš en moj primer, kjer je uporablljen mikorokontroler z le dvonivojskem skladom, a je kar precej dejaven. (multipreksira displej, bere 1Wire vodilo) Kot zanimivost - mikrokontroler je brez prekinitev.

[kavelj22]

[igo]

Key_scan
Wait_for_rls
Wait_key_loop
Key_test ; vse to za branje tipk, nikjer pa nimaš debounce .

V Stop_Mode portD shraniš v spremenljivko Vhod, tukaj pa v Temp_key .
movf PORTD,w v Stop_mode nadomesti s call Key_scan. Nato preverjaj btfsc/s Temp_key .

Pazi, kateri bit od PORTD,x, je kateri bit v Temp_key,y !!! x Mora biti enako y !

Key_scan:
clrf Temp_key
movlw b'00111111'
andwf PORTD,w ; preberi D,0...D,5 --> rezultat v W
btfsc STATUS,Z
return ; Če ni nič, ni treba čakati 15ms za izhod iz podprograma
movwf Temp_key ; Če pa je kaj pritisnjeno, shrani v Temp_key
call Debounce ; čakaj vsaj 15 ms
movlw b'00111111' , Tipke PortD,0...5
andwf PORTD,w ; še enkrat preberi D,0...D,5 --> rezultat v W
andwf Temp_key,f ; rezultat prejšnji D "AND" sedanji D shraniš v Temp_key
call Key_test ; Če je hkrati pritisnjenih več tipk, upošteva samo prvo
movwf Temp_key ; Temp_key z največ enim aktivnim bitom - TA JE TISTI PRAVI
Key_scan1:
btfsc STATUS,Z ; Je kaj pritisnjeno?
return ; NE Nobena tipka ni (več) pritisnjena
; Nekaj je bilo pritisnjeno, zato čaka, da spustim tipko
call Debounce ; čakaj vsaj 15 ms
movlw b'00111111' , Tipke PortD,0...5
andwf PORTD,w ; še enkrat preberi D --> rezultat v W
movwf Key_temp
goto Key_scan1 ; Je (še) kaj pritisnjeno?

Key_test:
btfsc STATUS,Z
retlw b'00000000' ; Če ni nobene tipke, se vrni z 0
btfss Temp_key,0
retlw b'00000001'
btfss Temp_key,1
retlw b'00000010'
btfss Temp_key,2
retlw b'00000100'
btfss Temp_key,3
retlw b'00001000'
btfss Temp_key,4
retlw b'00010000'
;btfss Temp_key,5
retlw b'00100000' ; nekaj je bilo zagotovo pritisnjeno, torej ostane le Temp_key,5
; Z vrstnim redom je možno nastaviti prioriteto tipk

To bi moralo delovati.
Možno je tudi kaj poenostaviti, a sem gradil iz tvojega primera, ker ne poznam pomembnosti tipk.
LP,
Igor

[igo]

Sem komaj zdaj opazil, da zaznavaš tipke, ki so ob pritisku vezane na GND.
Gornji program sem popravil.

Key_scan:
clrf Key_scan
call NegirajD
movlw b'00111111'
andwf Vhod,w ; preberi D,0...D,5 --> rezultat v W
btfsc STATUS,Z
return ; Če ni nič, ni treba čakati 15ms za izhod iz podprograma
movwf Temp_key ; Če pa je kaj pritisnjeno, shrani v Temp_key
call Debounce ; čakaj vsaj 15 ms
call NegirajD
movlw b'00111111' , Tipke PortD,0...5
andwf Vhod,w ; še enkrat preberi D,0...D,5 --> rezultat v W
andwf Temp_key,f ; rezultat prejšnji D "AND" sedanji D shraniš v Temp_key
call Key_test ; Če je hkrati pritisnjenih več tipk, upošteva samo prvo
movwf Temp_key ; Temp_key z največ enim aktivnim bitom - TA JE TISTI PRAVI
Key_scan1:
btfsc STATUS,Z ; Je kaj pritisnjeno?
return ; NE Nobena tipka ni (več) pritisnjena
; Nekaj je bilo pritisnjeno, zato čaka, da spustim tipko
call Debounce ; čakaj vsaj 15 ms
call NegirajD
movlw b'00111111' , Tipke PortD,0...5
andwf Vhod,w ; še enkrat preberi D --> rezultat v W
movwf Key_temp
goto Key_scan1 ; Je (še) kaj pritisnjeno?

Key_test:
btfsc STATUS,Z
retlw b'00000000' ; Če ni nobene tipke, se vrni z 0
btfss Temp_key,0
retlw b'00000001'
btfss Temp_key,1
retlw b'00000010'
btfss Temp_key,2
retlw b'00000100'
btfss Temp_key,3
retlw b'00001000'
btfss Temp_key,4
retlw b'00010000'
;btfss Temp_key,5
retlw b'00100000' ; nekaj je bilo zagotovo pritisnjeno, torej ostane le Temp_key,5
; Z vrstnim redom je možno nastaviti prioriteto tipk

NegirajD:
movlw b'11111111'
xorwf PORTD,w
movwf Vhod
return

LP,
Igor

[kavelj22]

Igor zelo cenim tvojo pomoc ampak mi vseeno ne da miru kar sem napisal jaz. Sem pac trmast in hocem priti zadevi do dna.