Byte in 2*4Bit aufteilen

Bascom bitte!

dim a as byte
dim b as byte


A = wert
b = wert

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

shift b, right,4

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

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 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.

OK! Hätt ich mir denken sollen ;)

Und zur ausgabe einfach? :
PORTB = C


Dann würde das Programm so aussehen oder?:

1

 $regfile = "m32def.dat"

2

 $framesize = 32

3

 $swstack = 32

4

 $hwstack = 32

5

 $crystal = 1000000

6

 $sim

7

8

 Dim A As Byte

9

 Dim B As Byte

10

 Dim C As Byte

11

 Config Porta = Input

12

 Config Portb = Output

13

14

15

  Do

16

17

18

   A = Pina

19

   B = Pina

20

21

   A = A And &B00001111

22

   B = B And &B11110000

23

24

   Shift B , Right , 4

25

26

   C = A + B

27

28

   Portb = C

29

30

  Loop

31

  End

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

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