• PicŪ Basic


  • GetParity

    A library module for use withLibrary Manager by JohnGB. This module has been written by Tim Box (Tim on PDS forum). The library module is offered on an as-is basis with no warranty as to its effectiveness, operation or reliability. Users use it at their own risk.

    Adds a new command called GetParity

    Syntax

    Assignment Variable = GetParity (Variable)

    Overview

    Returns the parity of the Variable. 1 if parity is odd and 0 if parity is even.

    Operators

    Assignment Variable – A byte variable. Variable - a byte sized constant, or variable

    Code:
    Include "PROTON_4.INC"
    
        Dim ParityResult As Byte  
        Dim OutByte As Byte
    
        Symbol TX9D = TXSTA.0    ' 9th bit of transmit data. Can be parity bit.
        Symbol TX9 = TXSTA.6     ' 9-bit Transmit Enable
    
        TX9 = 1                  ' Enable 9 bit data  
    
        OutByte = 255
    
        ParityResult = GetParity OutByte
    
        TX9D = ParityResult      ' Load the 9th (parity) bit
    
        HRSOut OutByte
    
        Stop
    The example above will set up as 16f877 to transmit 9 bits of data setting bit 9 as the parity bit. Data is sent Parity Even

    Download module

    Download: Usart Tools Get Parity