Jak podzielić w Bascomie port na dwa 4-bitowe
Masz problem? Zapytaj na forum elektroda.pl
From: "ele mid" <elemid_at_nospam_wp.pl>
Subject: Jak podzielić w Bascomie port na dwa 4-bitowe
Date: Tue, 15 Jul 2003 20:43:52 +0200
Mam pytanie.
Czy komuś z Was udało się może napisać sprawną procedurkę, ptóra pozwala
podzielić port 8-bitowy na dwa niezależne 4-bitowe?
Chodzi oczywiście o to, by wysłanie danej na jednen z dwóch "podportów" nie
powodowało zmian na tym drugim.
Pozdrawiam
Mariusz
elemid_at_nospam_wp.pl
========
Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai
From: "BartekK" <sibi_at_nospam_terror.org.pl>
Subject: Re: Jak podzielić w Bascomie port na dwa 4-bitowe
Date: Wed, 16 Jul 2003 04:35:13 +0200
Czy komuś z Was udało się może napisać sprawną procedurkę, ptóra pozwala
podzielić port 8-bitowy na dwa niezależne 4-bitowe?
Chodzi oczywiście o to, by wysłanie danej na jednen z dwóch "podportów"
nie
powodowało zmian na tym drugim.
nie znam bascoma wogole (w zyciu nie widzialem)
ale w dowolnym asemblerze i innych jezykach zrobilbym to tak:
P1 - liczba 8 bitowa z czego 4 bity to port 1
P2 - liczba 8 bitowa z czego 4 bity to port 2
P3 - port wyjsciowy (czyli ten ktory naprawde przepisujesz na fizyczne
wyjscie)
w programie modyfikujesz dane na P1 i P2 (4 bitowo oczywiscie)
potem gdzies wrzucasz taka obsluge (zapisane wedlug jakiegos widzimisie, w
konkretnym asemblerze trzeba by to przez acc robic itp... ale chyba
zrozumiesz co chce uzyskac)
P1 <= P1 or #00001111b /na wszelki wypadek wyrzucamy wyzsze 4
bity
P2 <= P2 or #00001111b
P3 <= P1 + ( P2 * #0Fh ) /pomnozenie przez 16 (=0fh) daje tyle
samo co przesuniecie o 4 bity w lewo
Portfizyczny <= P3 / przepisanie P3 do prawdziwego
portu fizycznego 8 bitowego
--
Bartlomiej Kuzniewski tel0-604.246371
sibi_at_nospam_terror.org.pl gg# 23319
========
Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.gazeta.pl!news.ipartners.pl!not-for-mai
From: Ireneusz Niemczyk <i.niemczyk_at_nospam_multispedytor.com.pl>
Subject: Re: Jak =?iso-8859-2?Q?podzieli=E6?= w Bascomie port na dwa 4-bitowe
Date: Wed, 16 Jul 2003 13:57:54 +0200
--------------7BB77D4B905DD59352ACADBF
Content-Type: text/plain; charset=iso-8859-2
Content-Transfer-Encoding: 8bit
nie znam bascoma wogole (w zyciu nie widzialem)
ale w dowolnym asemblerze i innych jezykach zrobilbym to tak:
No własnie, może wstawke ?
DANA1 EQU 010h ;4 bity LSB w bajcie znacza
DANA2 EQU 011h ;j.w.
PORT EQU P1 ;przykladowy port wyjciowy
PUSH B
MOV A,DANA2
ANL A,#00001111B
MOV B,A
MOV A,DANA1
ANL A,#00001111B
SWAP A
ORL A,B
MOV PORT,A ;DANA1|DANA2
POP B
END
--
PZD, Irek.N.
--------------7BB77D4B905DD59352ACADBF
Content-Type: text/html; charset=iso-8859-2
Content-Transfer-Encoding: 8bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<blockquote TYPE=CITE>nie znam bascoma wogole (w zyciu nie widzialem)
<br>ale w dowolnym asemblerze i innych jezykach zrobilbym to tak:</blockquote>
No własnie, może wstawke ?
<br>
<p><tt>DANA1 EQU 010h
;4 bity LSB w bajcie znacza</tt>
<br><tt>DANA2 EQU 011h
;j.w.</tt>
<br><tt>PORT EQU
P1 ;przykladowy port wyjciowy</tt>
<br><tt></tt> <tt></tt>
<p><tt> PUSH B</tt>
<br><tt> MOV A,DANA2</tt>
<br><tt> ANL A,#00001111B</tt>
<br><tt> MOV B,A</tt>
<br><tt> MOV A,DANA1</tt>
<br><tt> ANL A,#00001111B</tt>
<br><tt> SWAP A</tt>
<br><tt> ORL A,B</tt>
<br><tt> MOV PORT,A
;DANA1|DANA2</tt>
<br><tt> POP B</tt><tt></tt>
<p><tt> END</tt>
<p>--
<br>PZD, Irek.N.
<br> </html>
--------------7BB77D4B905DD59352ACADBF--
========
Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mai