Byte auswerten ?

[Blamaster]

Hi,

ich müsste für mein Projekt ein Byte auswerten und damit einen Port Des Controllers für 500ms schalten.

Das Byte wird über rs485 an den Controller übertragen. Wenn es nun z.B. eine 1 enthält, soll es PORTB.0 schalten. Wenn es eine 2 enthält PORTA.1 usw.

Hat da jemand eine bessere Lösung als für jeden einzelnen zu schaltenden Port eine If Abfrage zu machen ?

mfg Blamaster

[Monday]

Hi Blamaster,

Wie du wahrscheinlich weist, besteht ein Byte aus 8 Bit. Wenn du nun ein Byte überträgst, kann es es z.B. in einer Variablen speichern und mit dem PortB gleichsetzen, z.B.

Config Portb as output
PortB=Empfangenes_Byte

Wenn du also einfach den Ascii-Code per RS485 überträgst, kannst du damit den gesamten Port schalten wie du möchtest.
Ist der Ascii-Code 0 so schaltet kein Ausgang, bei 1 schaltet PortB.0 bei 2 PortB.1, bei 4 PortB.2 usw.
Natürlich kannst du so auch mehrere Ports gleichzeitig schalten.

Gruß
Monday

[Blamaster]

Öhm joa aber was ist mit PORTA , PORTB , PORTC dann haut es ja nichtmehr hin.

Denn dann würde ja jeweils auf allen 3 PORTS der entsprechende pin schalten.

[chr-mt]

Hi,
dann musst du wohl doch eine If Abfrage (oder select case) machen..
Sind ja nur 8.. (Wenn du pro Bit einen Pin schalten willst)

if meinbyte.0 = 1 then
   portb.0=1
 else 
  portb.0=1
endif
..
..
..
..
if meinbyte.7 = 1 then
   portba.5=1
else 
  porta.5=1
endif

Gruß
Christopher

[mare_crisium]

Blamaster,

die Alternative ist eine Tabelle: Das Datenbyte, das Du über den RS485 empfangen hast, dient als Zeiger auf ein Element in einer Tabelle von bis zu 255 Bytes. Jedes Byte in der Tabelle enthält die Angabe, an welchem Port welche Pins zu setzen sind. Das hat den Vorteil, dass Du alle möglichen Bitkombinationen im Datenbyte verarbeiten kannst.

mare_crisium

[Monday]

Öhm joa aber was ist mit PORTA , PORTB , PORTC dann haut es ja nichtmehr hin.

Denn dann würde ja jeweils auf allen 3 PORTS der entsprechende pin schalten.

Nein, das ist nicht der Fall, da du nur ja nur einen Port, in dem Fall PortB der Variablen gleich setzt.

Ich benutze die Gleiche Technik um einen SRAM zu beschreiben, bzw auszulesen. Da wird auch ein Byte auf einem Port ausgegeben.

Gruß
Monday

[Blamaster]

@ mare_crisium
Hört sich sehr interessant an. Praktisch eine Sprungtabelle. Könntest du ggf. anhand von einem code beispiel verdeutlichen wie das funkt ?

mfg Blamaster


Edit. hatte garnicht gesehen da so viel gepostet wurde. Ich sollte vielleicht nochmal näher beschreiben was geschehen soll. Datenspeicher(3) ist ein Byte welches die Nummer des Kanals enthält. Diese soll nun folgende Kanäle auslösen:

Datenspeicher(3) = 1 Löse aus PORTA.0
Datenspeicher(3) = 2 Löse aus PORTA.1
Datenspeicher(3) = 3 Löse aus PORTA.2
Datenspeicher(3) = 4 Löse aus PORTA.3
Datenspeicher(3) = 5 Löse aus PORTA.4
Datenspeicher(3) = 6 Löse aus PORTA.5
Datenspeicher(3) = 7 Löse aus PORTA.6
Datenspeicher(3) = 8 Löse aus PORTA.7
Datenspeicher(3) = 9 Löse aus PORTB.0
Datenspeicher(3) = 10 Löse aus PORTB.1
.
.
.
usw.

Nun ist es aber wohl sehr unschlauf nachher "hundert" ifs zu haben die jeden zustand einzeln abfragen.

[PicNick]

Am einfachsten ist für sowas eine Tabelle mit Port-Adresse und Pin-Maske
(sieht schräger aus, als es ist)

PORT_TAB:
   DATA    &H3B, 1     ' PORTA  Pin 0            virtuell 0
   DATA    &H3B, 2     ' PORTA  Pin 1            virtuell 1
   DATA    &H3B, 4     ' PORTA  Pin 2            virtuell 2
   DATA    &H3B, 8     ' PORTA  Pin 3            virtuell 3
   DATA    &H3B, 16     ' PORTA  Pin 4          virtuell 4
   DATA    &H3B, 32     ' PORTA  Pin 5          virtuell 5
   DATA    &H3B, 64     ' PORTA  Pin 6          virtuell 6
   DATA    &H3B, 128     ' PORTA  Pin 7        virtuell 7
   DATA    &H38, 128     ' PORTB  Pin 0        virtuell 8

   DATA    &H38, 128     ' Port B  Pin 7         virtuell 9
   DATA    &H38, 2         ' Pin 1                   virtuell 10
   DATA    &H38, 128     ' Pin 7                    virtuell 11

 u.s.w.
   DATA    &H35, 1     ' Port C  Pin 0         virtuell xxx

   DATA    &H32, 1     ' Port D  Pin 0         virtuell xxx

DIM  Portadr as byte
DIM  Portmsk as byte 
DIM  Tabv as word  at Portadr overlay
DIM  Temp as byte

          Temp =  datenspeicher(3)
          Tabv = lookup ( temp,  PORT_TAB)

' z.B.  einzelnes PortPin setzen (die anderen nicht anrühren):
          Temp = INP ( Portadr)               
          TEMP = TEMP OR Portmsk
          OUT ( Portadr, TEMP)               

' z.B.  einzelnes PortPin löschen (die anderen nicht anrühren):
          Temp = INP ( Portadr)               
          Portmsk = Portmsk XOR &HFF     
          TEMP = TEMP AND portmsk
          OUT ( Portadr, TEMP)

[mare_crisium]

blamaster,

so wie's PicNick in Basic geschrieben hat, hatte ich's auch gemeint. In Assembler sieht's ganz ähnlich aus. Nach ein bisschen Herumprobieren kam mir eine echte Sprungtabelle als die einfachste Methode (in Assembler) vor. Dann braucht man aber doppelt soviel Platz für die Tabelle, als wenn man Port- und Pin-Nummer in einem Byte kodiert ablegt. Es ist aber einfacher, über die Sprungtabelle direkt eine Auswertungsprozedur anzuspringen, als das gelesene Tabellenbyte zu dekodieren. Das kommt daher, dass man beim Atmel die Ports nur direkt (immediate) adressieren kann.

Zur Information hänge ich das Beispiel unten an.

mare_crisium

;*-----------------------------------
; BEISPIEL Tabelle_V01.asm
; Entwicklungsversion
;*-----------------------------------
;* 	Einbinden
;*

.device  ATmega8
.include "m8def.inc"

;*-----------------------------------
;* 	Definitionen
;*

.equ	PORTA = 0x1B


;*------------------------------------
;*	PROCEDURE TBL_CALL
;*
;* Die Prozedure TBL_JMP liest aus einer Sprung-
;* tabelle, die im Programmspeicher abgelegt 
;* ist, ein 2-Byte-Adresse aus. Sie wird als
;* Programmadresse angesprungen.
;
; Eingangsvariablen
;	zh:zl:  enhält den Zeiger auf die RAM-Adresse,
;	     an der die Sprungtabelle beginnt
;	r16: enthält den Index der Adresse, die 
;	     angesprungen werden soll
;
; Ausgangsvariablen
;	keine
;
; geänderte Register
;	zh,zl
;
; geänderte Ports
;	keine
;

TBL_CALL:
	push r17
	in r17,SREG
	push r17


	clr r17
	add zl,r16
	adc zh,r17
	add zl,zl
	adc zh,zh

	lpm r17,z+
	lpm zh,z
	mov zl,r17

	pop r17
	out SREG,r17
	pop r17

	ijmp	


/*------------------------------------ 

SPRUNGTABELLE


*/
//   0.0  0.1   0.2   0.3   0.4   0.5   0.6  0.7 
SPRUNG_TBL:
.dw SET_PORTA0,	RES_PORTA0						; ... usw.

//...

.dw SET_PORTC7,	RES_PORTC7


/*------------------------------------
	PROCEDURE EVAL_RS485

Die Prozedure EVAL_RS485 wertet ein Datenbyte aus,
das über die RS485 empfangen wurde. Das Datenbyte dient
als Zeiger in die Sprungtabelle SPRUNG_TBL. Die Einträge 
enthalten die Adresse je einer Prozedur, die an einem
bestimmten Port einen bestimmten Pin setzt oder zurücksetzt.

Eingangsvariablen
	r16: enthält den das Datenbyte, das 
	     ausgewertet werden soll

Ausgangsvariablen
	r16: enthält das ungeänderte Datenbyte

geänderte Register
	keine

geänderte Ports
	PORTA,PORTB,PORTC, je nach Datenbyte
*/


EVAL_RS485:
	push r16
	push zl
	in zl,SREG
	push zl
	push zh

	ldi zl,low(SPRUNG_TBL); zh:zl := Adresse der Tabelle
	ldi zh,high(SPRUNG_TBL)
	rcall TBL_CALL	; ausgewählte Prozedure anspringen

	pop zh
	pop zl
	out SREG,zl
	pop r16
	ret			;

/*------------------------------------
	PROZEDUREN SET_PORTA0/RES_PORTA0 bis SET_PORTC7/RES_PORTC7

Hier kommen die Prozeduren, die die ausgewählten Ports und
Pins ansprechen.

Eingangsvariablen
	keine

Ausgangsvariablen
	keine

geänderte Register
	keine

geänderte Ports
	PORTA,PORTB,PORTC, je nach Datenbyte
*/

SET_PORTA0:
	sbi PORTA,0
	ret

RES_PORTA0:
	cbi PORTA,0
	ret

// und so weiter

SET_PORTC7:
	sbi PORTC,7
	ret

RES_PORTC7:
	cbi PORTC,7
	ret

//------------------------

[Vitis]

a_byte=udr
if a_byte.0=1 then
set relais_0
else
reset relais_0
endif
if a_byte.1=1 then
set relais_1
else
reset relais_1
endif
if a_byte.2=1 then
set relais_2
else
reset relais_2
endif

... and so on