Deal is off. Blizio se best before datum cokolade, a kako za mesec dana niko nije bio u stanju da protumaci 2-3 programska reda, istu sam morao da uništim.

Hmm stvarno, šta je sa ASM programerima, mrzi ih ili ne znaju ili...?

mislim da je ovo drugo...
ja sam tu za x86 asm stvari za ostalo sam prilican laik

Samo da kazem, ja licno mislim da ovde nema nikog koji se zanim sa tim PIC ili sta vec. Kod nas je jedno zlatno pravilo, koji CPU imas za njega rdis asm. Mislim da ja imam SPARC radio bi asm za SPARC a ne za x86. Da idem preko telnet-a na neki SPARC da vezbam je malo sporo, tako da mozda nadjes odgovor kod nekih bogatijih zemljica ali kod nas... tesko :(

PIC je serija mikrokontrolera firme Microchip. Starting price je $1.5 za najjednostavnije modele. Razvojno okruženje je besplatno. Programator se može namestiti u samogradnji za $3. Pošto je mikrokontroler mali kompjuter u jednom chip-u, tj. procesorskom jezgru je pridodata periferija, programska memorija (ROM,EPROM,EEPROM,FLASH) i data memorija (RAM, EEPROM) , upotrebljivost je praktično neograničena.
Slabija serija PIC mikrokontrolera koristi svega 35 (trideset pet) instrukcija.

Zbog jednostavnosti upotrebe i niske cene kod nas ima mnogo ljudi koji se bave ovom serijom mikrokontrolera (Bar ih ja znam mnogo.) Doduše, možda ih na ES nema toliko...

Sad ćete reci.....ahh.mikrokontroleri...to su igračke....JOK...u svakom mobilnom telefonu, pejdžeru, mp3 plejeru, itd...naći ćete bar jedan

Ova mala diskusija me podstakla da se prijavim na forum.

incf PIC

GetDayOfWeek movf Day,w (W is accumulator_register of this microprocessor)
btfsc YearH,3 (BitTestFile_register_andSkip_next_instruction_ifClear)
addlw 0x0002
movwf DayOfWeek DayOfWeek=Day[+2 if year=%1000 00xxxxxx>=2048,+0 if year=%0111 11xxxxxx<2048] ********************* 1)


movf YearL,w
movwf Temp1 Temp1=YearL (because we can't shift w register by self later where needed,so we must use local temp)
call AddMod7 DayOfWeek=(DayOfWeek+YearL)mod7 ********************* 2)
rrf Temp1
rrf Temp1,w
call AddMod7 DayOfWeek=(DayOfWeek+int(YearL/4))mod7 ********************* 3)


btfss YearL,0
btfsc YearL,1
goto Cont1
movlw 0x0002
subwf Month,w
btfss c
decf DayOfWeek if 1 extra day (29th feb.) of the 366day-year isn't passed yet,adjust by adding -1


Cont1 decf Month,w prepare W for (addwf PCL) instruction (1 instruction cycle wasted)


call GetMonthVal get ((which day of the 365days-year is the 1st day of this month) mod 7)


call AddMod7
call AddMod7 adjust to mod7 by calling adjust procedure not once,but 3 times(because of the trickiest summ 17octal->10octal->01octal)


(empty line,AKA goto AddMod7)
----------------------------
AddMod7 andlw 0x003f limiting input parameter by masking (affecting if year=%0111 11xxxxxx<2048 ) ********************* 2)

addwf DayOfWeek DayOfWeek=DayOfWeek+W=%0aaaabbb=8a+b=7a+a+b=7a+(a+b)

movlw 0x0007
andwf DayOfWeek,w W=%00000bbb
xorwf DayOfWeek DayOfWeek=[%0aaaabbb XOR %00000bbb]=%0aaaa000
rlf DayOfWeek DayOfWeek=%aaaa0000
swapf DayOfWeek DayOfWeek=%0000aaaa (swap nibbles)
addwf DayOfWeek DayOfWeek=%0000aaaa+W=aaaa+bbb <=> (DayOfWeek=DayOfWeek-7*INT(DayOfWeek/8 ))
retlw 0
----------------------------
GetMonthVal addwf PCL get ((which day of the 365days-year is the 1st day of this month) mod 7)
retlw 1
retlw 4
retlw 4
retlw 0
retlw 2
retlw 5
retlw 0
retlw 3
retlw 6
retlw 1
retlw 4
retlw 6

Najveca komplikacija je deo koda oznacen sa *********************.Da pojasnim:

----------------------------------------------------------------------------------------------------------------------------------
ukupna formula za racunanje dana u nedelji je

[
Day
+(which day of the 365days-year is the 1st day of this Month) //(ovde uradjeno pomocu tablice)
+(Year*365.25-3) //(Year+INT(Year/4) otprilike sa shacovanjem)
-(1 extra day (29th feb.) of the 366day-year IF it isn't passed yet) //(popravak za prestupan dan prestupne godine)
]
MOD 7 //(svedeno na ostatak pri deljenju sa 7)
----------------------------------------------------------------------------------------------------------------------------------
Clan (Year*365.25-3) je problematican zbog parcijalnog racunanja,stedilo se...

1984<=Year<=2099<=2111 (godine 2100-2111 su izbegnute jer bi trebao popravak -1 zbog datuma posle 28.feb.2100)
---------------- ==>
Year=binarno=%0111 11xxxxxx ili %1000 00xxxxxx

U slucaju %0111 11000000=Year=1984 treba da dobijemo (Year*365.25-3)mod7=6

da vidimo delove koda sa *********************:
*********************1) nemamo +2,znaci ovde imamo +0=n1
*********************2) zbog maskiranja gornja 2 bita od YearL imamo +0=n2
*********************3) ovde imamo INT(YearL/4)=%00110000=48dec=n3 =>n1+n2+n3=0+0+48=48 a 48mod7=48-7*6=48-42=6=(1984*365.25-3)mod7=>OK

A u slucaju %1000 00000000=Year=2048 treba da dobijemo (Year*365.25-3)mod7=2
da vidimo:
*********************1) imamo +2=n1
*********************2) +0=n2
*********************3) +0=n3 => n1+n2+n3=2=(2048*365.25-3)mod7 OK

slazze se,znaci kod - izgleda shashavo,ali mene vishe kalendar ne bole (znam ga napamet)

A inace time sam se bavio davno pa mi je ostala u glavi formula za racunanje koju ponekad koristim (napamet )
naprimer datum 23.sep.2007 (danas,i to ce biti nedelja;)
1) 23->mod7 (radis tako sto oduzmes najveci broj deljiv sa 7)
znaci 23-21=2(pamtis)
2)sep->iz tablice,samo ja koristim broj manji za 1=>sep->5
saberes sa prethodnim brojem i uradis mod7,tj. -7 ako predje>=7
u ovom slucaju 2+5=7-7=0(pamtis kumulativnu sumu mod7)
3)2007 rastavis na 20|07
4)za 20|xx tj. stotine godina ima "tablica" 16xx->6 17xx->4 18xx->2 19xx->0
20xx->6 21xx->4 22xx->2 23xx->0 itd.
u ovom slucaju 20xx->6 sto je isto sto i -1 po mod7 (ja koristim 0 za 19xx i -1 za 20xx)
pa je kumulativna suma 0-1=-1+7=6 (pamtis) (da se vrati u opseg 0-6)
5)za jedinice i desetice godina,u ovom slucaju 07,radi se ovako:
dopises 0 sa desne strane i delis 3 puta sa 2 bez ostatka;
sto znaci da neparan broj pre deljenja mozes smanjiti za 1 radi lakseg deljenja
u ovom slucaju 07|0->070 /2
=035-1=034 /2
=017-1=016 /2
=008
sada mod7,a ovaj broj moze biti povelik,pa se koristi napr.
ako je >=100 -> -100 +2 (<=>-98=7*14)
ako je >=70 -> -70
ako je >=50 -> -50 +1 (<=>-49)
u ovom slucaju 008-7=1+kumulativna suma dosad=1+6=7-7=0(pamtis)
6)i jos samo popravak rezultata zbog prestupnog dana:
ako je mesec januar ili februar (verovatnoca 1:6) i
ako je godina prestupna (otprilike 1:4) onda -> -1.
u ovom slucaju ni jedno nije tacno,znaci dobili smo 0=7=nedelja.

evo brzi primer2: 6.april.1941 (bombardovanje Beograda)
6+6+0+
(410/2=204/2=102/2=51-49=)2=14,popravak nema.
14mod7=14-14=0->nedelja

Imao sam i drugi algoritam za desetice i jedinice,ali ovaj sam trenutno koristim za racunanje napamet
evo asocijacije za pamcenje "moje" tablice za mesece:
jan - prvi mesec - od 1.januara do 1.januara=0 dana=>0
feb,mar,nov- 3 meseca imaju broj 3
april-6 (bombardovanje Beograda),juli-6
maj-1 (praznik rada)
juni-4
avgust-2
sep,dec-5
oktobar-0 kao 0ktobar
(vremenom/vezbom mozes zapamtiti tu tablicu)

ima neko prostiji/drukciji algoritam (za napamet ) ?

Ništa drugo do pogrešog dela foruma (Više nas ima na Elektronika - mikrokontroleri). A taman bi mi trebalo par čokoladica za osmi mart! Makar i sa lešnikom.

Moje iskustvo!
Trebala mi je svojevremeno upravo takva rutina ali za sat, pa sam za osnovu koristio neke projekte sa neta i TB28. Razvio sam program koji za razliku od vašeg nije optimizovan za mali kod, već za veliku brzinu, tako da poređenje ne bi imalo mnogo smisla. Nije mi trenutno dostupan da bih mu mogao proveriti veličinu. Mislim da je oko 200 bajtova, ali sa satom, korekcijom prestupne godine i prelaska letnjeg/zimskog računanja vremena (daylight savings).

Par primedbi!
1) Zbog čega od 1990? Sumnjam da će iko želeti da realizuje mikrokontrolerski program sa datumima manjim od tekuće godine. U redu je za produženje licence programa na PC, ali nije i za mikrokontrolere. Sasvim je dovoljno od 2000.

2) Zbog čega samo do 2099? Setite se kakvu je pometnju izazvao New Year Bug. Koliko se sećam svojevremeno je prodavan HARDVER u obliku PCI kartice koji omogućuje loše napisanom softveru da radi i nakon 2000-te. Moj program na primer radi do 2299 To sam realizovao korekcijom vrednosti za vekove. Ukoliko iko bude koristio moj mikrokontrolerski sat i nakon toga, verovatno zaslužuje da se nađe u Ginisovoj knjizi rekorda.

Vaš program nije lako prepraviti za više godina upravo zbog načina čuvanja vrednosti godine. Da bi se ono moglo lakše implementirati predlažem Vam da umesto heksadecimalnog oblika čuvanja broja godina

koristite običan decimalni oblik u kome se u YearH čuvaju vekovi, a u YearL godine ovako (za 2001 god.):


Naravno, ovo zahteva odgovarajuću korekciju algoritma.

3) U zavisnosti od primene koda provera validnosti datuma bi mogla biti bolje postavljena. Naime logičnije je ograničiti korisniku mogućnost unosa pogrešne pojedinačne vrednosti nego dozvoliti mu da je unese i da se nakon toga od njega zatraži da ponovi kompletan unos. To spada u user friendly design. Kako bi se to moglo implementirati? Na primer zatražiti od korisnika unos godine (za Vaš slučaj 1984-2099), pri čemu je korisnik u startu ograničen na ovu vrednost. Nakon unosa godine unos meseca (1-12), pa unos dana (1-31 sa ograničenjem i korekcijom 29 februara za slučaj prestupne godine). Dalje bi se kroz glavni program samo povećavale vrednosti dana sa odgovarajućim prekoračenjima. Kod mog programa korisnik u nastavku unosi sate (0-23), minute (0-59), a eventualno i sekunde (ili jos bolje reset sekundi na 0).

4) Offtopic koristite code /code tagove prilikom navođenja koda. Ovako se labele ne razlikuju od instrukcija. I praktičnije je i razumljivije korišćenje skraćenog oblika zapisa heksadecimalnih brojeva 0x07 umesto 0x0007.