-#ifdef notdef
-#if VAX780
-/*
- * Check to make sure the UNIBUS adaptor is not hung,
- * with an interrupt in the register to be presented,
- * but not presenting it for an extended period (5 seconds).
- */
-unhang()
-{
- register int uban;
-
- for (uban = 0; uban < numuba; uban++) {
- register struct uba_hd *uh = &uba_hd[uban];
- register struct uba_regs *up = uh->uh_uba;
-
- if (up->uba_sr == 0)
- return;
- up->uba_sr = UBASR_CRD|UBASR_LEB;
- uh->uh_hangcnt++;
- if (uh->uh_hangcnt > 5*hz) {
- uh->uh_hangcnt = 0;
- printf("uba%d: hung\n", uban);
- ubareset(uban);
- }
- }
-}
-
-/*
- * This is a timeout routine which decrements the ``i forgot to
- * interrupt'' counts, on an 11/780. This prevents slowly growing
- * counts from causing a UBA reset since we are interested only
- * in hang situations.
- */
-ubawatch()
-{
- register struct uba_hd *uh;
- register int uban;
-
- if (panicstr)
- return;
- for (uban = 0; uban < numuba; uban++) {
- uh = &uba_hd[uban];
- if (uh->uh_hangcnt)
- uh->uh_hangcnt--;
- }
-}
-