BCD - Revision history

Admin: Created page with "= Action = Converts a variable stored in BCD format into a string.
2013-02-07T10:48:46Z

Created page with "= <span class="f_Header">Action</span> = Converts a variable stored in BCD format into a string. <span style="font-family: Arial;"> </span> <span style="font-family: A..."

New page
= <span class="f_Header">Action</span> =

Converts a variable stored in BCD format into a string.

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">Syntax</span> =

PRINT <span class="f_Syntax">BCD</span>( var )

LCD <span class="f_Syntax">BCD</span>( var)

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">Remarks</span> =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="11%" style="width: 63px; border: 1px solid rgb(0, 0, 0);" |
Var

| valign="top" width="100%" style="width: 532px; border: 1px solid rgb(0, 0, 0);" |
Numeric variable to convert.

|}
</div>
<span style="font-family: Arial;"> </span>

When you want to use an I2C clock device which stores its values in BCD format you can use this function to print the value correctly.

BCD() displays values with a leading zero.

<span style="font-family: Arial;"> </span>

The BCD() function is intended for the PRINT/LCD statements.

Use the MAKEBCD function to convert variables from decimal to BCD.

Use the MAKEDEC function to convert variables from BCD to decimal.

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">See also</span> =

[[MAKEDEC]] , [[MAKEBCD]]

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">ASM</span> =

Calls: _BcdStr

Input: X hold address of variable

Output: R0 with number of bytes, frame with data.

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">Example</span> =

<br/><source lang="bascomavr">
'--------------------------------------------------------------------------------
'name : bcd.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstration of split and combine BCD Bytes
'suited for demo : yes
'commercial addon needed : no
'use in simulator : possible
'--------------------------------------------------------------------------------
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'===============================================================================
' Set up Variables
'===============================================================================
Dim A As Byte 'Setup A Variable
Dim B As Byte 'Setup B Variable
Dim C As Byte 'Setup C Variable

A = &H89
'===============================================================================
' Main
'===============================================================================
Main:
Print "Combined : " ; Hex(a) 'Print A

'-------------------------------------------------------------------------------
B = A And &B1111_0000 'Mask To Get Only High Nibble Of Byte
Shift B , Right , 4 'Shift High Nibble To Low Nibble Position , Store As B

C = A And &B0000_1111 'Mask To Get Only Low Nibble Of Byte , Store As C

Print "Split : " ; B ; " " ; C 'Print B (High Nibble) , C(low Nibble)

'-------------------------------------------------------------------------------
Shift B , Left , 4 'Shift Data From Low Nibble Into High Nibble Position

A = B + C 'Add B (High Nibble) And C(low Nibble) Together

Print "Re-Combined: " ; Hex(a); " " ; Bcd(a) 'Print A (re -combined Byte)
End 'End Program
</source><br/>{{Languages}}

[[Category:BASCOM_Language_Reference]]