(bind-func audiofile_16bitPCM_to_sample_be (let ((range (i64tod (<< 1 16)))) (lambda (src:i8* dest:SAMPLE* nsamp) (doloop (i nsamp) (pset! dest i (dtof (/ (i16tod (swapi16 (pref (cast src i16*) i))) range)))))))