# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1532526399 -32400
# Node ID 1887f7098f154db43c67073c5f38301097b42d62
# Parent  5b3871f8bdaa396c6aa1bd97b987b5aca69895db
makdir/del checked

diff -r 5b3871f8bdaa -r 1887f7098f15 src/vdisk.c
--- a/src/vdisk.c	Wed Jul 25 20:27:11 2018 +0900
+++ b/src/vdisk.c	Wed Jul 25 22:46:39 2018 +0900
@@ -561,9 +561,11 @@
 
         case 0xd3:
             *breg = 0xff;
+            mode = *areg;
+            attr = *breg;
             path = (char*)pmem(xreg);
             next =  checkFileName(path,pd,curdir);
-            if (next!=0 &&  mkdir(pd->name,0)!= 0 ) {
+            if (next!=0 &&  mkdir(pd->name,os9mode(attr))== 0 ) {
                 xreg += ( next - path );
                 *breg = 0;
             }