10/5/2023 0 Comments Turbo pascal 32 bitsDim Mantissa As Double Dim Value As Double Value = 1 For ByteNo = 5 To 1 Step -1 Dim StartBit As Byte StartBit = 7 If ByteNo = 5 Then StartBit = 6 ' Skip the sign bit. ![]() ![]() Dim Exponent As Double Exponent = Real48 ( 0 ) - 129.0 ' Calculate the mantissa. Open "Real.bin" For Binary As # 1 Dim Real48 ( 0 To 5 ) As UByte Dim ByteNo As Byte For ByteNo = 0 To 5 Get # 1, , Real48 ( ByteNo ) Next ByteNo Close # 1 ' Get the exponent value, and eliminate the 129 offset. ![]() ![]() ' Load the real from a file into a byte array.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |