github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 07:19:57 +00:00
Code Issues Releases Wiki Activity

Debug TM03.

Browse Source
This commit is contained in:
Lars Brinkhoff 2016-11-09 21:58:35 +01:00
parent 95cb6f4a9e
commit 4b2c35ffd1
1 changed files with 76 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
tools/klh10.diff Normal file
View File

@ -0,0 +1,76 @@
diff --git a/src/dvtm03.c b/src/dvtm03.c
index effe3ad..c0e74b2 100644
--- a/src/dvtm03.c
+++ b/src/dvtm03.c
@@ -1322,7 +1322,12 @@ tm_ssta(register struct tmdev *tm)
if (tm->tm_state != TM03_ST_OFF && dptm) {
/* Slave present, see if ready for commands */
if (tm->tm_state == TM03_ST_READY || tm->tm_srew)
+ {
+ fprintf(stderr, "[tm_ssta: ready]\r\n");
sts |= TM_SDRY; /* Slave present & ready for commands */
+ }
+ else
+ fprintf(stderr, "[tm_ssta: not ready]\r\n");
/* SLA is a little peculiar as it is not a static state like MOL; it
is set only when the slave comes online (MOL->1) while selected by
@@ -1346,6 +1351,7 @@ tm_ssta(register struct tmdev *tm)
# endif
sts |= TM_SDRY; /* Assume "slave" always there */
+ fprintf(stderr, "[tm_ssta: ready]\r\n");
if (vmt_ismounted(&(tm->tm_vmt))) sts |= TM_SMOL; /* Medium online */
if (vmt_isatbot(&(tm->tm_vmt))) sts |= TM_SBOT; /* Phys BOT */
@@ -1510,6 +1516,7 @@ tm_cmdxct(register struct tmdev *tm, int cmd)
case TM_ER3: /* Erase three inch gap */
#if KLH10_DEV_DPTM03
TMREG(tm, RHR_STS) &= ~TM_SDRY; /* Drive busy, note GO still on! */
+ fprintf(stderr, "[tm_cmdxct 1: not ready]\r\n");
tm_dpcmd(tm, DPTM_ER3, (size_t)0); /* Send ERASE-3 command to DP */
return; /* Don't signal attn til done */
#else
@@ -1524,6 +1531,7 @@ tm_cmdxct(register struct tmdev *tm, int cmd)
}
#if KLH10_DEV_DPTM03
TMREG(tm, RHR_STS) &= ~TM_SDRY; /* Drive busy, note GO still on! */
+ fprintf(stderr, "[tm_cmdxct 2: not ready]\r\n");
tm_dpcmd(tm, DPTM_WTM, (size_t)0); /* Send WTM command to DP */
return; /* Don't signal attn til done */
#else
@@ -1576,6 +1584,7 @@ tm_cmdxct(register struct tmdev *tm, int cmd)
TMREG(tm, RHR_CSR) &= ~TM_1GO; /* Turn off GO */
}
TMREG(tm, RHR_STS) &= ~TM_SDRY; /* Drive busy, note GO still on! */
+ fprintf(stderr, "[tm_cmdxct 3: not ready]\r\n");
#else
(void) tm_io(tm, 0); /* Errors handled by tm_io now */
tm_cmddon(tm); /* Do post-xct stuff, includes clearing GO */
@@ -1598,7 +1607,10 @@ tm_cmdxct(register struct tmdev *tm, int cmd)
if (!tm_io(tm, 1)) { /* Errors handled by tm_io now */
TMREG(tm, RHR_CSR) &= ~TM_1GO; /* Turn off GO */
}
+#if 0
TMREG(tm, RHR_STS) &= ~TM_SDRY; /* Drive busy, note GO still on! */
+#endif
+ fprintf(stderr, "[tm_cmdxct 4: not ready]\r\n");
#else
(void) tm_io(tm, 1); /* Errors handled by tm_io now */
tm_cmddon(tm); /* Do post-xct stuff, includes clearing GO */
@@ -1616,6 +1628,7 @@ tm_cmdxct(register struct tmdev *tm, int cmd)
TMREG(tm, RHR_CSR) &= ~TM_1GO; /* Turn off GO */
}
TMREG(tm, RHR_STS) &= ~TM_SDRY; /* Drive busy, note GO still on! */
+ fprintf(stderr, "[tm_cmdxct 5: not ready]\r\n");
#else
(void) tm_io(tm, -1); /* Errors handled by tm_io now */
tm_cmddon(tm); /* Do post-xct stuff, includes clearing GO */
@@ -2445,6 +2458,7 @@ tm_space(register struct tmdev *tm, int revf)
TMREG(tm, RHR_STS) &= ~(TM_SBOT|TM_STM|TM_SEOT);
#if KLH10_DEV_DPTM03
TMREG(tm, RHR_STS) &= ~TM_SDRY; /* Drive busy, note GO still on! */
+ fprintf(stderr, "[tm_space: not ready]\r\n");
TMREG(tm, RHR_STS) |= TM_SPIP; /* Positioning in progress */
tm_dpcmd(tm, /* Send spacing command to DP */
(cnt ? (revf ? DPTM_SPR : DPTM_SPF)