Return to v_ex.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / ioex

Annotation of cci/d/ioex/v_ex.c, revision 1.1.1.1

1.1       root        1: 
                      2: #include "vioc.h"
                      3: #include "conf.h"
                      4: #include "const.h"
                      5: #include "pte.h"
                      6: 
                      7: #define  ON            0x80
                      8: #define  OFF           0
                      9: #define         LOOPBK         0
                     10: #define         ECHO           1
                     11: 
                     12: #define  MAXPORT       16
                     13: #define  MAXRLEN       50
                     14: #define  MAXSLEN       256
                     15: #define  HEAD          "\n\r\t** VIOC test **\n"
                     16: #define  PORT          "\rlogical port no "
                     17: #define  NL            writec('\n')
                     18: 
                     19: #define  TST_STR       "1234567890abcdefghigklmnopq"
                     20: 
                     21: extern long log_p0, log_pn;
                     22: extern char port_on[];
                     23: 
                     24: 
                     25: /*     Routine to exercise VIOC :
                     26:        (1) print a heading message to all terminals on VIOC
                     27:        (If receive Unsolicited interrupt from VIOC, dump silos)
                     28: */
                     29: v_ex()
                     30: {      long register pno, error;
                     31:        char no;
                     32: 
                     33:        writes("\n\t** VIOC test **\n");
                     34:        writes("start testing...\n");
                     35:        for(pno=log_p0; pno<=log_pn; pno++) {
                     36:                if (port_on[pno-1]) {
                     37:                        pstr(pno,HEAD);         /* Print heading to port */
                     38:                        pstr(pno,PORT);
                     39:                        if (pno>9) { pchar(pno,'1');
                     40:                                     pchar(pno,pno-10+'0');
                     41:                                   }
                     42:                                else pchar(pno,pno+'0'); 
                     43:                        pchar(pno,'\n');
                     44: 
                     45:                        v_autol(pno,ON,AUTOLP); /* Set auto loop back */
                     46:                        pstr(pno,TST_STR);      /* sent test string to port */
                     47:                        }
                     48:                }
                     49:        error = 0;
                     50:        for(pno=log_p0; pno<=log_pn; pno++) {
                     51:                if (port_on[pno-1])  {
                     52:                        if (chk_port(pno)) error++;
                     53:                        v_autol(pno,OFF,AUTOLP);  /* Disable auto loop back */
                     54:                        }
                     55:                }
                     56:        writes("\nDone with "); writeh(error); writes(" errors\n");
                     57: }
                     58: 
                     59: 
                     60: chk_port(pno)
                     61: long pno;
                     62: {
                     63:        register long strlen, ix, error;
                     64:        char *cptr, *tst_str, rd_str[100], port;
                     65:        char get1c(), ce, ca;
                     66: 
                     67:        writes("\nchecking port "); writed(pno);
                     68:        tst_str = cptr = TST_STR;
                     69:        for(strlen=0; cptr[strlen] != NULL; strlen++);          /* Get length */
                     70:        error = 0;
                     71:        port = '0';
                     72:        for(ix=0; ix<strlen; ix++) {
                     73:                rd_str[ix] = get1c(pno);        /* read them back */
                     74:                if (rd_str[ix]==(char)0xff) {
                     75:                        writes("\nbuffer ");
                     76:                        writec((char)port+pno); writes(" empty");
                     77:                        error++;
                     78:                        break;
                     79:                        }
                     80:                ca = ((long)rd_str[ix] & 0x7f);         /* 7 bit ASCII */       
                     81:                ce = ((long)tst_str[ix] & 0x7f);
                     82:                if (ce != ca) {
                     83:                        writes("\n** P");writed(pno);
                     84:                        writes("  expected : "); writeh(ce); 
                     85:                        writes("   *** actual : "); writeh(ca);
                     86:                        error++;
                     87:                        break;
                     88:                        }
                     89:                }
                     90: out:
                     91:        pstr(pno,"\n\rdone\n\r");
                     92:        return(error);
                     93: }

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