--16-bit Digital to Analogue ConverterUSE WORK.rampac.ALL;USE WORK.adcpac.ALL;ENTITY dac16 ISPORT(vout : INOUT analogue; digin : IN data16; --input and outputen : IN BIT); --latches in dataEND dac16;ARCHITECTURE behaviour OF dac16 ISCONSTANT vlsb : analogue := (analogue'HIGH - analogue'LOW)/REAL(2*ABS(data16'LOW));BEGIN--store analogue equivalent of digin on vout when negative edge on envout <= REAL(digin)*vlsb WHEN (en'EVENT AND en = '0') ELSE vout;END behaviour;