clear
;CRC32
unalias -all

;l					

	define_mem 10000 10000 BE     BA -f
					
	add_mem_area	ram	8000 2000 2 RW;
	
set -s 8000 "123456789"
get -s 8000 -b10

;-----------------------------------------
print @crc32R(8000, 9, 4C11DB7, -1)
print @crc32L(8000, 9, 4C11DB7, -1, -1)	;CRC-32/BZIP2


print @crc16R(8000, 9, 8005, -1, -1)
print @crc16R(8000, 9, 8005, 0)
print @crc16L(8000, 9, 8005, -1, -1)
print @crc16L(8000, 9, 8005, 0)		;CRC-16

print @crc16R(8000, 9, 1021, -1)
print @crc16R(8000, 9, 1021, 0)
print @crc16L(8000, 9, 1021, -1, -1)	;CRC-16/CCITT
print @crc16L(8000, 9, 1021, 0)		;



set -s 8010 -b 01 01 ef
set -s 8020 -b 80 80 f7

print @crc7L(8010, 3, 45 << 1)	;bit7-1Bʂbit6-07rbg
print @crc7R(8020, 3, 51)	;bit6-0Bʂbit6-07rbg

print @crc8L(8000, 9, 07, 0)	;CRC-8/ATM
print @crc8L(8000, 9, 8d, 0)	;CRC-8/CCITT


