Return to rstcomet.c CVS log

Up to [Research Unix] / researchv10dc / sys / md

Annotation of researchv10dc/sys/md/rstcomet.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * restart/boot the machine on big VAXes
                      3:  * (not MicroVAX)
                      4:  */
                      5: 
                      6: #include "sys/cons.h"
                      7: #include "sys/mtpr.h"
                      8: 
                      9: static tocons();
                     10: 
                     11: /*
                     12:  * arrange for restart on next halt
                     13:  */
                     14: 
                     15: setrestart()
                     16: {
                     17:        tocons(TXDB_CWSI);      /* clear warm start inhibit */
                     18:        tocons(TXDB_CCSI);      /* clear cold start inhibit too */
                     19: }
                     20: 
                     21: /*
                     22:  * arrange for a boot
                     23:  */
                     24: 
                     25: setboot()
                     26: {
                     27:        tocons(TXDB_BOOT);      /* boot; might not happen until halt */
                     28: }
                     29: 
                     30: static
                     31: tocons(c)
                     32: {
                     33: 
                     34:        while ((mfpr(TXCS)&TXCS_RDY) == 0)
                     35:                continue;
                     36:        mtpr(TXDB, c);
                     37: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.