Bit := (Eingangsbyte and 2^4)
if Bit then Ausgangsbyte := Ausgangsbyte or 2^7
*
L EB 0
SLD 3
L EB 1
+D
LAR1
U E [AR1,P#0.0]
= M 10.0
L EB 2
SLD 3
L EB 3
+D
LAR1
U E [AR1,P#0.0]
= M 10.1
L EB 4
SLD 3
L EB 5
+D
LAR1
L EB 6 //funktionsauswahl
SPL noth
SPA und
SPA oder
SPA exod
noth: SPA end
und: U M 10.0
U M 10.1
= A [AR1,P#0.0]
SPA end
oder: U M 10.0
O M 10.1
= A [AR1,P#0.0]
SPA end
exod: U M 10.0
X M 10.1
= A [AR1,P#0.0]
SPA end
end: NOP 0
War mal wieder einer schneller,
mein Code ist bei den ersten 14Zeilen genau gleich
inclusive M10.0 und M10.1... bemerkenswert, oder?
Das 4L das dann auch noch mit einem Merker macht , hatte mich dann gewundert.
Und den Tip mit dem "lesen müsste man können" kann man sich auch sparen.
Nach einer so langen Ausbildung durch 4L für uns alle hier werden wir auch mal gut
Gruss: Vladi
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?