35 lines
903 B
Modula-2
35 lines
903 B
Modula-2
|
autogen definitions pcm_test.tpl;
|
||
|
|
|
||
|
|
data_type = {
|
||
|
|
name = "bits_8" ;
|
||
|
|
item_count = 127 ;
|
||
|
|
short_func = "arith_shift_left (k * ((k % 2) ? 1 : -1), 8)" ;
|
||
|
|
int_func = "arith_shift_left (k * ((k % 2) ? 1 : -1), 24)" ;
|
||
|
|
float_func = "(k * ((k % 2) ? 1 : -1))" ;
|
||
|
|
} ;
|
||
|
|
|
||
|
|
data_type = {
|
||
|
|
name = "bits_16" ;
|
||
|
|
item_count = 1024 ;
|
||
|
|
short_func = "(k * ((k % 2) ? 3 : -3))" ;
|
||
|
|
int_func = "arith_shift_left (k * ((k % 2) ? 3 : -3), 16)" ;
|
||
|
|
float_func = "(k * ((k % 2) ? 3 : -3))" ;
|
||
|
|
} ;
|
||
|
|
|
||
|
|
data_type = {
|
||
|
|
name = "bits_24" ;
|
||
|
|
item_count = 1024 ;
|
||
|
|
short_func = "(k * ((k % 2) ? 3 : -3))" ;
|
||
|
|
int_func = "arith_shift_left (k * ((k % 2) ? 3333 : -3333), 8)" ;
|
||
|
|
float_func = "(k * ((k % 2) ? 3333 : -3333))" ;
|
||
|
|
} ;
|
||
|
|
|
||
|
|
data_type = {
|
||
|
|
name = "bits_32" ;
|
||
|
|
item_count = 1024 ;
|
||
|
|
short_func = "(k * ((k % 2) ? 3 : -3))" ;
|
||
|
|
int_func = "(k * ((k % 2) ? 333333 : -333333))" ;
|
||
|
|
float_func = "(k * ((k % 2) ? 333333 : -333333))" ;
|
||
|
|
} ;
|
||
|
|
|