fm/scripts/buildcode.pl

82 # map codelen to number of data bits for dictval
85 # map codelen to the number of checksum bits used in diagcode
96 	my $bits;
124 			print "              2 bits code type\n";
125 			print "              2 bits size\n";
126 			print "             21 bits dictval\n";
127 			print "              8 bits checksum\n";
139 			print "              2 bits code type\n";
140 			print "              2 bits size\n";
141 			print "             38 bits dictval " .
143 			print "              8 bits checksum\n";
155 			print "              2 bits code type\n";
156 			print "              2 bits size\n";
157 			print "             55 bits dictval " .
159 			print "             11 bits checksum\n";
168 			print "              2 bits code type\n";
169 			print "              2 bits size\n";
170 			print "             72 bits dictval " .
172 			print "             14 bits checksum\n";
183 	$bits = "01";
187 	$bits .= $Codesize[$codelen];
189 	# data bits of the dictval
193 	    " bits instead of the expected $Dictvalbits[$codelen]\n"
195 	$bits .= $dictval;
197 	# csum bits, zeroed
198 	$bits .= '0' x $Csumbits[$codelen];
200 	# compute csum by taking 5 bits at a time from left to right
201 	my $bitscopy = $bits;
209 	# change the zeroed csum bits to the computed value, masking
210 	# the computed checksum down to the appropriate number of bits
213 	substr($bits, - $Csumbits[$codelen],  $Csumbits[$codelen]) =
217 	# convert to diagcode alphabet, 5 bits at a time from left to right
220 	while ($bits =~ /(.....)/) {
224 		$bits =~ s/.....//;
328 Format 0: "dict-XXXX-XX",                21 data bits,  5 checksum bits
332 Format 1: "dict-XXXX-XXXX-XX",           38 data bits,  8 checksum bits
336 Format 2: "dict-XXXX-XXXX-XXXX-XX",      55 data bits, 11 checksum bits
340 Format 3: "dict-XXXX-XXXX-XXXX-XXXX-XX", 72 data bits, 14 checksum bits