diff --git a/tools/a7out b/tools/a7out
index 797d618..0d6a9c1 100755
--- a/tools/a7out
+++ b/tools/a7out
@@ -489,6 +489,7 @@ sub eae {
 
     if ( $instruction == 0653323 ) {    # idiv: integer division
 	my $divisor= $Mem[ $PC+1 ];
+        dprintf( "div AC %06o AC by %06o (decimal %d by %d)\n", $AC, $divisor, $AC, $divisor );
 	# Prevent division by zero :-)
 	my $quotient = ($divisor) ? $AC / $divisor : 0;
 	my $remainder = ($divisor) ? $AC % $divisor : 0;