Código de verificación crc16 en lenguaje fácil de recompensa en RMB

.¿Versión? 2

.¿Montaje? Montaje de ventana 1

.¿Subrutina? __Launch Window_Created

.Variable local?Byteset

.Variable local?t, entero

b?=?Convertir el conjunto de bytes en blanco (1048576?×?100 )? ¿Al conjunto de bytes ("100M")

t? ()

¿Salir texto de depuración? ("Resultado de la suma de comprobación:"??¿Obtener texto hexadecimal?(Asm_CRC16?(b?[1],?¿Obtener longitud del conjunto de bytes?(b))))

¿Salir texto de depuración? ("Tiempo transcurrido: "?? al texto? (¿tomar tiempo de inicio? (?-?t))

b?=?{?}

.Subrutina Asm_CRC16, corta entero, público

. Parámetro ?arg, byte, ?referencia

.Parámetro ?arg1, ?Entero

Colocar código ({?129, ?236, ?4, ?2, ?0, ? 0,?83,?86,?87,?51,?219,?141,?149,?252,?253,?255,?255,?255,?51,?255,?106,?8, ?137,?125,?252,?138,?203,?94,?235,?3,?139,?125,?252,?102,?209,?109,?252,?138,? ,?131,?231,?1,?131,?224,?1,?51,?199,?133,?192,?116,?7,?129,?117,?252,?1,? 160,?0,?0,?208,?,?233,?78,?117,?223,?102,?139,?69,?252,?67,?102,?137,?2,? 66,?66,?129,?251,?0,?1,?0,?0,?124,?193,?131,?101,?252,?0,?51,?192,?57, 69, 12, 95, 94, 91, 118, 43, 139, 77, 8, 139, 85, 252, 129, 226, 255, 0 ,?0,?0,?0,?15,?182,?12,?8,?51,?202,?51,?210,?138,?85,?253,?102,?139,? 140, 77, 252, 253, 255, 255, 102, 51, 202, 64, 59, 69, 12, 137, 77, 252, 114, ?213,?102,?139,?69,?252,?201,?194,?8,?0?})

Volver?(0)

Lenguaje fácil ¿Se ha guardado el código fuente de suma de comprobación del ensamblaje crc16 y espero que le resulte útil?