Byte in 2*4Bit aufteilen

[Robin W. (robo11)]

Hallo,

ich brauche euren Rat:

Ich habe jetzt wie ihr sicher erkennen könnt den PortA als Byte in die 
Variable A geschrieben. Jetzt möchte ich dieses Byte in 2*4 aufteilen, 
denn ich möchte 4 Bit + 4 Bit rechnen und diese auf PortB ausgeben. Wie 
mache ich das am besten, das Byte A in 2 Byte jeweils 4 Bit aufteilen?

 Dim A As Byte
 Config Porta = Input
 Config Portb = Output


  Do

  A = Pina

  Loop
  End

Mit freundlichen Grüßen

Robin Wenert

[Werner (Gast)]

Maskieren und schieben in der Programmiersprache deine Wahl?

[Robin W. (robo11)]

Bascom bitte!

[Klaus D. (kolisson)]

dim a as byte
dim b as byte


A = wert
b = wert

a = a and &b00001111
b = b and &b11110000

shift b, right,4

[Robin W. (robo11)]

THX! ich werde es gleich testen! Vielen Dank für die schnelligkeit :D

[Robin W. (robo11)]

Aber wie könnte ich jetzt A und B addieren, wahrscheinlich in DEC 
umwandeln oder? Hierzu finden ich leider nichts kann mir da nochmal 
jemand helfen? Dann müsste ich es aber auch wieder von DEC in BIN 
wandeln damit ich es auf einem anderen Port ausgeben kann!

[Werner (Gast)]

Klaus De lisson schrieb:
> b = b and &b11110000
> shift b, right,4

Wozu die erste Zeile? Wenn in BASCOM Shift hält, was der Name 
verspricht, ist es kein Rotate-Befehlt.

[Klaus D. (kolisson)]

Werner schrieb:
> Wozu die erste Zeile? Wenn in BASCOM Shift hält, was der Name
> verspricht, ist es kein Rotate-Befehlt.

Recht hast du ja aber ich glaube ich habe es so geschrieben
dass dem fragesteller der Weg klarer wird.

Robin Wenert schrieb:
> Aber wie könnte ich jetzt A und B addieren, wahrscheinlich in DEC
> umwandeln oder?

c = a + b

Gruss k.

[Robin W. (robo11)]

OK! Hätt ich mir denken sollen ;)

Und zur ausgabe einfach? :
PORTB = C


Dann würde das Programm so aussehen oder?:

 $regfile = "m32def.dat"
 $framesize = 32
 $swstack = 32
 $hwstack = 32
 $crystal = 1000000
 $sim

 Dim A As Byte
 Dim B As Byte
 Dim C As Byte
 Config Porta = Input
 Config Portb = Output


  Do


   A = Pina
   B = Pina

   A = A And &B00001111
   B = B And &B11110000

   Shift B , Right , 4

   C = A + B

   Portb = C

  Loop
  End

[Werner (Gast)]

Robin Wenert schrieb:
> Und zur ausgabe einfach? :
...
> C = A + B
...
> PORTB = C

Ist das wirklich das, was du erreichen möchtest?

Vielleicht meinst du

C = Shift (B,Left,4) OR A
PORTB = C

[Robin W. (robo11)]

Nunja ich möchte das Ergebnis der Addition auf PORTB in BCD-Code 
ausgeben!

[Robin W. (robo11)]

OK mit der Lösung von Klaus funktioniert es perfekt!
Vielen Vielen Dank an euch!