Jak podzielić w Bascomie port na dwa 4-bitowe



Masz problem? Zapytaj na forum elektroda.pl

Poprzedni Następny
Wiadomość
Spis treści
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

Poprzedni Następny
Wiadomość
Spis treści
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

Poprzedni Następny
Wiadomość
Spis treści
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 wyj˜ciowy


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>&nbsp;
<p><tt>DANA1&nbsp;&nbsp;&nbsp;&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp; 010h&nbsp;
;4 bity LSB w bajcie znacza</tt>
<br><tt>DANA2&nbsp;&nbsp;&nbsp;&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp; 011h&nbsp;
;j.w.</tt>
<br><tt>PORT&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EQU&nbsp;&nbsp;&nbsp;&nbsp;
P1&nbsp;&nbsp;&nbsp; ;przykladowy port wyj˜ciowy</tt>
<br><tt></tt>&nbsp;<tt></tt>
<p><tt>&nbsp;&nbsp;&nbsp;&nbsp; PUSH&nbsp;&nbsp;&nbsp; B</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; MOV&nbsp;&nbsp;&nbsp;&nbsp; A,DANA2</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; ANL&nbsp;&nbsp;&nbsp;&nbsp; A,#00001111B</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; MOV&nbsp;&nbsp;&nbsp;&nbsp; B,A</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; MOV&nbsp;&nbsp;&nbsp;&nbsp; A,DANA1</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; ANL&nbsp;&nbsp;&nbsp;&nbsp; A,#00001111B</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; SWAP&nbsp;&nbsp;&nbsp; A</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; ORL&nbsp;&nbsp;&nbsp;&nbsp; A,B</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; MOV&nbsp;&nbsp;&nbsp;&nbsp; PORT,A&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
;DANA1|DANA2</tt>
<br><tt>&nbsp;&nbsp;&nbsp;&nbsp; POP&nbsp;&nbsp;&nbsp;&nbsp; B</tt><tt></tt>
<p><tt>&nbsp;&nbsp;&nbsp;&nbsp; END</tt>
<p>--
<br>PZD, Irek.N.
<br>&nbsp;</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