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 @crcL(32t, 8000, 9, 04C11DB7, -1, -1)	;CRC-32/BZIP2
print @crcR(32t, 8000, 9, edb88320, -1, -1)


print @crcL(16t, 8000, 9, 8005, -1, -1)
print @crcL(16t, 8000, 9, 8005)			;CRC-16
print @crcR(16t, 8000, 9, a001, -1, -1)
print @crcR(16t, 8000, 9, a001)

print @crcL(16t, 8000, 9, 1021, -1, -1)	;CRC-16/CCITT
print @crcL(16t, 8000, 9, 1021)		;
print @crcR(16t, 8000, 9, 8408, -1, -1)
print @crcR(16t, 8000, 9, 8408)

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



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

print @crcL(7, 8010, 3, 45)	;bit6-0Bʂbit6-07rbg
print @crcR(7, 8020, 3, 51)	;bit6-0Bʂbit6-07rbg

print @crcL(12t, 8000, 9, 80f)	;
print @crcR(12t, 8000, 9, 80f)	;

set -s 8030 -b f8 4a 9d 0b
print @crcR(16t, 8030, 4, 8408, 0, -1)



