echo
echo
echo #########################################
echo " Simulation Script 'MULuva16' using ModelSimXE 5.3d     #"
echo " v010411  Ok  Santiago de Pablo (sanpab@eis.uva.es)   #"
echo #########################################
echo

-- Test of the four-step multiplier.

restart -force
delete wave -r *
radix hexadecimal
echo

add wave Clk
add wave Phase
add wave InA
add wave InB
add wave AxB

--add wave Op1
--add wave Op2
--add wave Op3
--add wave Op4
--add wave Op5
--add wave Op6
--add wave Op7
--add wave Op8


-- Global signals

force Clk 1 0ns, 0 50ns -repeat 100ns
force Phase 0 15ns, 1 115ns, 3 215 ns, 2 315 ns -repeat 400ns

-- Initialize

force InA 0	  0ns
force InB 0	  0ns

run 400ns


-- 0x53A2 (+0'6533) * 0x6B1F (+0'8368) = 0x22FED69E => 0x45FDAD (+0'5468) ok

force InB 16#6B1F	 15ns
force InA 16#2		 15ns
force InA 16#A		115ns
force InA 16#3		215ns
force InA 16#5		315ns

run 400ns


-- 0xDB1F (-0'2881) * 0x53A2 (+0'6533) = 0xF3F3B69E => 0xE7E76D (-0,1882) ok

force InB 16#53A2	 15ns
force InA 16#F		 15ns
force InA 16#1		115ns
force InA 16#B		215ns
force InA 16#D		315ns

run 150ns
echo "$now ns: AxB is 0x[examine -hex AxB] vs 0x22fed69e."
run 250ns


-- 0x53A2 (+0'6533) * 0xDB1F (-0'2881) = 0xF3F3B69E => 0xE7E76D (-0,1882) ok

force InB 16#DB1F	 15ns
force InA 16#2		 15ns
force InA 16#A		115ns
force InA 16#3		215ns
force InA 16#5		315ns

run 150ns
echo "$now ns: AxB is 0x[examine -hex AxB] vs 0xf3f3b69e."
run 250ns


-- 0xDB1F (-0'2881) * 0xB3A2 (-0,5966) = 0x0B00569E => 0x1600AD (+0,1719) ok

force InB 16#B3A2	 15ns
force InA 16#F		 15ns
force InA 16#1		115ns
force InA 16#B		215ns
force InA 16#D		315ns

run 150ns
echo "$now ns: AxB is 0x[examine -hex AxB] vs 0xf3f3b69e."
run 250ns


run 150ns
echo "$now ns: AxB is 0x[examine -hex AxB] vs 0x0b00569e."
run 250ns


echo
echo All lines above must match.

-- End of file