Progress on B stuff

Setup argv array based on Phil Budne's assembly.  Added string and ctype
libraries (untested).

src/other/test.b

@@ -7,14 +7,41 @@
    perl a7out test.out
 */
 
+/* convert command line argument into a string */
+strarg(s, a) {
+  auto i, c;
+  i = 0;
+  while (i < 8) {
+    if ((c = char(a,i)) == ' ')
+      goto done;
+    lchar(s,i,c);
+    i = i+1;
+  }
+done:
+  lchar(s,i,'*e');
+  return(s);
+}
+
 main {
-  extrn fname, fin;
-  auto ch,p;
+  extrn fname, fin, fout, argv;
+  auto ch,p,n,str 5;
 
   p = 017777;
   printf("mem[0%o] = 0%o*n",p,*p);
   printf("mem[0%o] = %d*n",*p,**p);
   
+  printf("argv = %d*n",argv);
+  printf("**argv = %d*n",*argv);
+  printf("argv[0] = %d*n",argv[0]);
+  n = 0;
+  while (n < argv[0]) {
+    n = n+1;
+    printf("argv[%d] = 0%o *"%s*"*n",n,argv[n],strarg(str,argv[n]));
+  }
+
+  printf("array(0)  = 0%o*n",array(0));
+  printf("array(64) = 0%o*n",array(64));
+  printf("array(0)  = 0%o*n",array(0));
   
 /*  fin = open(fname, 0); */
   fin = open("abc     ", 0);