-- u-255 law conversion

-- Takes 12 bit linear pcm and converts to u-255 8-bit and back.

-- L. Stewart, last updated: September 20, 1979 3:46 PM

u255Defs: DEFINITIONS =

BEGIN

-- Encode expects a left justified 12 bit two’s complement integer and will return a right justified 8 bit u255 value;

Encode: PROCEDURE [INTEGER] RETURNS[INTEGER];

EncodeMesa: PROCEDURE [INTEGER] RETURNS[INTEGER];

-- Decode expects a right justified 8 bit u255 value and will return a left justified 12 bit two’s complement value;

Decode: PROCEDURE [INTEGER] RETURNS[INTEGER];

DecodeMesa: PROCEDURE [INTEGER] RETURNS[INTEGER];

END.