clear

data = 123456789abcdef0

// x = obe_crc16( $data )

// x = crc16_x25( 8005, 0000, 0000, $data )

// x = crc16_x25( c867, ffff, 0000, $data )

x = crc16_buypass( $data )
x = crc16_umts( $data )
if $x != 151f
    ?
    pause
endif

x = crc16_modbus( $data )
if $x != aff9
    ?
    pause
endif

x = crc16_xmodem( $data )
if $x != 341a
    ?
    pause
endif

x = crc16_buypass( D26B20B067BE3974288FC708F5D1421136BFDDE4FE483CF32311D037AD4CBEB4 )
x = crc16_umts( D26B20B067BE3974288FC708F5D1421136BFDDE4FE483CF32311D037AD4CBEB4 )
if $x != 17a5
    ?
    pause
endif

x = crc16_umts( 3BF824F3EAF35428B5598D56B4DA6FC9118D94818C8A3C49F8 )
if $x != dadb
    ?
    pause
endif