--- a/os9/mc09/mclibos9.c	Mon Dec 31 15:57:24 2018 +0900
+++ b/os9/mc09/mclibos9.c	Mon Dec 31 17:51:27 2018 +0900
@@ -1,6 +1,4 @@
-/*
- *  os9  driver
- */
+/* os9 driver  */ 
 
 
 int errno  = 0;
@@ -50,13 +48,13 @@
         argc = 0;
         argv = 0;
         for( i = 0; i < 2 ; i++ ) {
+            q = p = args;
             if (i==1) { 
                 argv = (char**)malloc(sizeof(char*)*(argc+1)); 
                 argv[0] = prog; 
             }
             n = 1;
             quote = 0;
-            q = p = args;
             if (i==1) argv[n] = args;
             while((c = *p) && c!='\r') {
                 if (c=='\'') { 
@@ -98,9 +96,9 @@
 		case 'r':
 			rd = 1; cm |= 1; break;
 		case 'w':
-			wt = 1; cm |= 2; break;
-		case 'c':
-			cm = 2; break;
+			wt = 1; cm |= 3; break;
+		case 'c':     /* charcter mode */
+			cm = 1; break;
 		default:
 			return NULL;
 		}
@@ -162,6 +160,7 @@
         pshs      x,y,u
         ldx       -2,u
         lda       7,u          mode
+        ldb       #3
         ldx       6,x          name
         os9       I$Create
         bcs        _LC0003