Using the Xtender to Receive RS232

Submitted by:

Glenn Clark
VersaTech Electronics

This is a preliminary Application note. Please forgive the rough presentation. You may download the files referenced for this note by following the link: AN007.ZIP.

DEF tic57_e
LIB fbasic.lib

LIB xtn73e.lib

WATCH GLOBAL byte inval


FUNC none main
    LOCAL byte trash
BEGIN
    delay( 1000 )
    con_out( i2c_read( xtn_dev0 | xtn_reset ))
    i2c_write( xtn_dev0 | xtn_baud, 255b )          ; 1200 baud
    i2c_write( xtn_dev0 | xtn_trans, 0y10000000b )
    i2c_write( xtn_dev0 | xtn_rec, 0y10000000b )   ; dual 8 byte buffers
    REP
        =( inval, i2c_read( xtn_dev0 ))
        con_out( inval )
        con_out_char( ' ' )
        IF and( inval, 0y01110000b )
            i2c_write( 0x809aw, 0y10000000b )
        ENDIF


        REP
        UNTIL and( 0y00010000b, i2c_read( 0x8097w ))

        WHILE and( 0y00010000b, i2c_read( 0x8097w ))
            i2c_write( 0x809bw, 255b )
            =( inval, i2c_read( 0x8094w ))
            con_out_char( inval )
            i2c_write( 0x809cw, 255b )
        LOOP

        con_out_char( 10b )
        con_out_char( 13b )
        i2c_write( 0x809cw, 255b )
        delay( 2500 )
    LOOP
ENDFUN