--- xmil/io/ctc.c	2004/08/01 05:31:30	1.1
+++ xmil/io/ctc.c	2004/08/05 11:30:12	1.3
@@ -67,6 +67,7 @@ void x1_ctc_int(void) {
 				else if (ctcint_flg) {
 					ctcint_flg = 0;
 					ch->int_flag ^= bit;
+					TRACEOUT(("ctc%u int -- %d", 3 - r, i));
 					Z80_INT((REG8)(ch->vector + (i << 1)));
 				}
 			}
@@ -115,7 +116,7 @@ static void ctcch_o(CTCCH *ch, UINT port
 
 static REG8 ctcch_i(CTCCH *ch, UINT port) {
 
-	UINT	scale;
+	REG8	scale;
 
 	port &= 3;
 	if (port != 3) {
@@ -157,6 +158,7 @@ void IOOUTCALL ctc_o(UINT port, REG8 val
 
 	CTCCH	*ch;
 
+	TRACEOUT(("ctc - %.4x %.2x [%.4x]", port, value, Z80_PC));
 	ch = getctcch(port);
 	if (ch != NULL) {
 		ctcch_o(ch, port, value);