/* testaud.c   Stewart, January 25, 1982  2:06 PM   */

extern char IAudio;

main()
  {
  for (;;) {
    portstr(&IAudio);
    if (getchar()=='q') return;
    };
  };

portstr(p)
  char *p;
  {
  int port;
  int count;
  while(*p != 0x00ff) {
    port = *p++;
    count = *p++;
    while (count--) {
      outbyte(port, *p++);
      };
    };
  };