Re: RTC bez zasilania awaryjnego - Grupy dyskusyjne w eGospodarka.pl

eGospodarka.pl › Grupy › pl.misc.elektronika › RTC bez zasilania awaryjnego › Re: RTC bez zasilania awaryjnego

Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.
atman.pl!news.nask.pl!news.nask.org.pl!news.internetia.pl!not-for-mail
From: Sylwester Łazar <i...@a...pl>
Newsgroups: pl.misc.elektronika
Subject: Re: RTC bez zasilania awaryjnego
Date: Mon, 24 Feb 2014 12:55:39 +0100
Organization: Netia S.A.
Lines: 52
Message-ID: <lefcqv$j35$1@mx1.internetia.pl>
References: <ledg3e$rh9$1@portraits.wsisiz.edu.pl> <ledjb2$4jq$1@node1.news.atman.pl>
<ledkj2$a2v$1@portraits.wsisiz.edu.pl> <lee12b$116$1@mx1.internetia.pl>
<leeu2j$9d2$1@portraits.wsisiz.edu.pl> <leevlq$6k9$1@mx1.internetia.pl>
<a...@n...neostrada.pl>
<lef7pf$1ti$1@mx1.internetia.pl>
<a...@n...neostrada.pl>
NNTP-Posting-Host: 87-205-63-255.adsl.inetia.pl
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: 8bit
X-Trace: mx1.internetia.pl 1393243807 19557 87.205.63.255 (24 Feb 2014 12:10:07 GMT)
X-Complaints-To: a...@i...pl
NNTP-Posting-Date: Mon, 24 Feb 2014 12:10:07 +0000 (UTC)
X-Notice1: This post has been postprocessed on the news.internetia.pl server.
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
X-Tech-Contact: u...@i...pl
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-Priority: 3
X-Server-Info: http://www.internetia.pl/
X-MSMail-Priority: Normal
X-Notice2: Subject line has been filtered and any Odp: strings removed.
Xref: news-archive.icm.edu.pl pl.misc.elektronika:660213
[ ukryj nagłówki ]
> Powiedzenia w próbie ogarnięcia tego programując pic32 w asm....
>
Dzięki.
S.

#SPRAWDZENIE KLAWIATURY
KEYCHECK:
LW KBREADA2,0x6190(BF88S6) #odczyt klawiszy i maskowanie
ORI KBREADA2,KBREADA2,KBMASK #jeśli nic nie wciśnięto, to
#KBREADA2=0x0000FFff
ORI TEMPS1,zero,0xFFff
BNE KBREADA2,TEMPS1,PRESSED #Czy klawisz wciśnięty ?
ANDI TEMPS1,FLAGST6,bKPRESS
BEQZ TEMPS1,KBEND #Czy był wciśnięty wcześniej?
NOP #1-TAK 0-NIE
OTHKEY:
ANDI FLAGST6,FLAGST6,(1<<16-1)-bKPRESS-bKBAUTO #zaznacz: klawisz zwolniony
J KBEND
PRESSED:
BEQZ TEMPS1,FIRSTK #Czy był wciśnięty wcześniej?
NOP
BNE KBFIRSTA3,KBREADA2,OTHKEY #Czy ten sam klawisz co za pierwszym razem ?
ADDIU KBCOUNTT7,KBCOUNTT7,-1
BNEZ KBCOUNTT7,KBEND #Czy już odczekano ustalony czas?
ANDI TEMPS1,FLAGST6,bKBDEB
BEQZ TEMPS1,KEYDOWN #Czy już zatwierdzono naciśnięcie klawisza?
XORI TEMPS1,KBREADA2,#kTWO
ORI FLAGST6,FLAGST6,bKBAUTO #od teraz samopowtarzanie klawiszy
ORI KBCOUNTT7,zero,KBNEXT #skróć czas oczekiwania
SETCODE:
ADDIU KBCODES2,KBREADA2,0 #zapamiętaj odczytany klawisz
J KBEND
KEYDOWN:
BNEZ TEMPS1,WREP #Czy naciśnięto równocześnie UP i DOWN?
ANDI TEMPS1,FLAGST6,bKBUD
BNEZ TEMPS1,WREP #Czy zainicjowano już odliczanie czasu dla UP+DOWN?
ORI KBCOUNTT7,zero,KBUD
ORI FLAGST6,FLAGST6,bKBUD #czekamy na podtrzymanie UP+DOWN
J KBEND
WREP:
ORI KBCOUNTT7,zero,KBAUTO #czekamy na samopowtarzanie
ORI FLAGST6,FLAGST6,bKBDEB
J SETCODE
FIRSTK:
ORI FLAGST6,FLAGST6,bKPRESS #naciśnięto klawisz o raz pierwszy
ANDI FLAGST6,FLAGST6,((1<<16-1)-bKBDEB-bKBUD) #nie wiadomo czy 2 na raz
ORI KBCOUNTT7,zero,KBPRESS #ustaw czas potrzebny do odczekania
ADDIU KBFIRSTA3,KBREADA2,0 #nadaj wartość pierwszemu odczytowi klawisza
KBEND:
J GENMAIN
NOP