install copy, drtest, pcs750.bin
[unix-history] / usr / src / sys / vax / stand / tm.c
index b735f46..5011a1a 100644 (file)
@@ -1,4 +1,10 @@
-/*     tm.c    4.10    83/03/02        */
+/*
+ * Copyright (c) 1982 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ *
+ *     @(#)tm.c        6.2 (Berkeley) %G%
+ */
 
 /*
  * TM11/TE??
 
 /*
  * TM11/TE??
@@ -66,6 +72,7 @@ retry:
                tmaddr->tmcs = com | func | TM_GO;
        for (;;) {
                word = tmaddr->tmcs;
                tmaddr->tmcs = com | func | TM_GO;
        for (;;) {
                word = tmaddr->tmcs;
+               DELAY(100);
                if (word & TM_CUR)
                        break;
        }
                if (word & TM_CUR)
                        break;
        }
@@ -99,11 +106,13 @@ tmquiet(tmaddr)
        register word;
        for (;;) {
                word = tmaddr->tmcs;
        register word;
        for (;;) {
                word = tmaddr->tmcs;
+               DELAY(100);
                if (word&TM_CUR)
                        break;
        }
        for (;;) {
                word = tmaddr->tmer;
                if (word&TM_CUR)
                        break;
        }
        for (;;) {
                word = tmaddr->tmer;
+               DELAY(100);
                if ((word&TMER_TUR) && (word&TMER_SDWN)==0)
                        break;
        }
                if ((word&TMER_TUR) && (word&TMER_SDWN)==0)
                        break;
        }