ASCII => Real

[Anonymous]

Zuviel Werbung?
-> Hier kostenlos registrieren

Habe einen ASCII-CODE mit 10 Byt eingelesen über CP
Möchte diesen in einen Realwert umwandeln
Signal:
1Byt: Vorzeichen
2Byt: Leerzeichen
3-7Byt: Vorkommerwert
8Byt: Komma
9,10Byt: Nachkommawert

Gespeichert in DB (eingelesen über FB2 P_RCV)

Wert + 15639.89 (ASCII) soll +1.563989*10^4 entsprechen.

ASCII 48 = Real 0*10^0 usw.

Sophia

 

[Zottel]

L DBB3 //1. Ziffer Vorkomma
L 48 // Wert ist um Wert der 0 zu groß
-I // Wert der Ziffer
L 10
*I
L DBB4 //2. Ziffer Vorkomma
+I
L 48
-I
L 10
* I
L DBB5 //3. Ziffer Vorkomma
+I
L 48
-I
L 10
L DBB6 //4. Ziffer Vorkomma
+I
L 48
-I
L 10
* I
ITD // ab jetzt braucht's doppelworte
L DBB7 //5. Ziffer Vorkomma
+D
L 48
-D
L 10
* D
L DBB9 //1. Ziffer Nachkomma
+D
L 48
-D
L 10
* D
L DBB10 //2. Ziffer Nachkomma
+D
L 48
-D
DTR //nach real wandeln
L 0.01
*R
T LD 0 // irgendwo zwischenspeichern
L DBB0 // Vorzeichen
L 45 // Code eines Minuszeichens
<>I
SPB =M001//springe,wenn nicht Minus
L LD 0
NEGR // Vorzeichen umdrehen
M001: NOP 0