Members/kono/os9/sbc09: vdisk.c annotate

annotate vdisk.c @ 46:ec9f494497e1

vdisk fix

author	Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date	Fri, 20 Jul 2018 11:48:19 +0900
parents	07c84761da6f
children	15f1e1b49928

rev	line source
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	1 /********************************************************************
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	2 * Virtual RBF - Random Block File Manager
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	3 *
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	4 * Shinji KONO (kono@ie.u-ryukyu.ac.jp) 2018/7/17
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	5 * GPL v1 license
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	6 */
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	7
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	8 #define engine extern
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	9 #include "v09.h"
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	10 #include <stdio.h>
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	11 #include <stdlib.h>
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	12 #include <unistd.h>
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	13 #include <sys/stat.h>
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	14 #include <sys/select.h>
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	15 #include <dirent.h>
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	16 #include <string.h>
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	17
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	18
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	19 #ifdef USE_MMU
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	20 extern char *prog ; // for disass
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	21 extern Byte * mem0(Byte iphymem, Word adr, Byte immu) ;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	22 #define pmem(a) mem0(phymem,a,mmu)
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	23 #define smem(a) mem0(phymem,a,&mem[0x20+IOPAGE])
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	24 #define umem(a) (mem[0x42+IOPAGE]?mem0(phymem,a,&mem[0x21+IOPAGE]):mem0(phymem,a,&mem[0x20+IOPAGE]))
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	25 #else
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	26 #define pmem(a) (&mem[a])
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	27 #define umem(a) (&mem[a])
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	28 #define smem(a) (&mem[a])
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	29 #endif
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	30
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	31 #define MAXPDV 256
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	32
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	33
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	34 typedef struct pathDesc {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	35 char *name;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	36 FILE *fp;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	37 int mode;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	38 int inode ; // lower 24 bit of unix inode, os9 lsn
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	39 int num ;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	40 int sz ; // used only for directory
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	41 char drv ;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	42 char use ;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	43 char dir;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	44 char *fd ;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	45 char *dirfp;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	46 } PathDesc, *PathDescPtr;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	47
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	48 #define MAXVDRV 4
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	49
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	50 char *drvRoot[] = { ".",".",".","."};
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	51 PathDesc pdv[MAXPDV];
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	52
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	53 int setVdisk(int drv,char *name) {
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	54 if (drv<0 \|\| drv>=MAXVDRV) return -1;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	55 drvRoot[drv] = name;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	56 return 0;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	57 }
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	58
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	59 PathDesc *findPD() {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	60 for(int i=0;i<MAXPDV;i++) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	61 if (!pdv[i].use) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	62 pdv[i].use = 1;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	63 pdv[i].num = i;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	64 pdv[i].mode = 0;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	65 pdv[i].fp = 0;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	66 pdv[i].dirfp = 0;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	67 pdv[i].name = 0;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	68 pdv[i].fd = 0;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	69 return &pdv[i];
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	70 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	71 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	72 return 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	73 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	74
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	75 void closepd(PathDesc *pd) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	76 int err = fclose(pd->fp) ;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	77 pd->use = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	78 pd->fp = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	79 pd->mode = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	80 free(pd->dirfp); pd->dirfp = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	81 free(pd->name); pd->name = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	82 free(pd->fd); pd->fd = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	83 }
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	84
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	85 #define MAXPAHTLEN 256
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	86
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	87 char addCurdir(char name, PathDesc pd, PathDesc curdir) {
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	88 int ns =0 ;
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	89 if (name[0]=='/') {
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	90 while(*name++ =='/') ; // skip /d0
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	91 while(name[ns]!=0) ns++;
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	92 } else if (curdir==0 ) return 0; // no current directory
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	93 int ps = ns;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	94 char *base ;
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	95 if (name[0]!='/') { name++; base = curdir->name; ps += strlen(curdir->name)+1; }
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	96 else { base = drvRoot[pd->drv]; ps += strlen(drvRoot[pd->drv])+1; }
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	97 char path = (char)malloc(ps+1);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	98 int i = 0;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	99 for(;base[i];i++) path[i] = base[i];
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	100 path[i++] = '/';
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	101 for(int j=0;j<ns;j++,i++) path[i] = name[j];
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	102 path[i++] = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	103 return path;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	104 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	105
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	106 char * checkFileName(char path, PathDesc pd, PathDesc *curdir) {
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	107 char *p = path;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	108 char *name = path;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	109 int maxlen = MAXPAHTLEN;
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	110 while(p!=0 && (p&80)==0 && maxlen-->0) p++;
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	111 if (maxlen==MAXPAHTLEN) return 0;
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	112 if (*p!=0) {
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	113 name = (char *)malloc(p-path+1);
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	114 strncpy(path,p, MAXPAHTLEN-maxlen);
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	115 }
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	116 char *name1 = addCurdir(name,pd,curdir);
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	117 if (name1!=name && name1!=path) free(name);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	118 pd->name = name1;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	119 return p;
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	120 }
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	121
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	122 void os9setmode(char *os9mode,int mode) {
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	123 char m = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	124 if (mode&S_IFDIR) m\|=0x80;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	125 if (mode&S_IRUSR) m\|=0x01;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	126 if (mode&S_IWUSR) m\|=0x02;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	127 if (mode&S_IXUSR) m\|=0x04;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	128 if (mode&S_IROTH) m\|=0x08;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	129 if (mode&S_IWOTH) m\|=0x10;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	130 if (mode&S_IXOTH) m\|=0x20;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	131 m\|=0x60; // always sharable
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	132 *os9mode = m;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	133 }
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	134
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	135 char * os9toUnixAttr(Byte attr) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	136 if ((attr&0x1) && (attr&0x2)) return "r+";
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	137 if (!(attr&0x1) && (attr&0x2)) return "w";
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	138 if ((attr&0x1) && !(attr&0x2)) return "r";
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	139 return "r";
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	140 }
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	141
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	142 /*
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	143 * os9 file descriptor
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	144 * * File Descriptor Format
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	145 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	146 * The file descriptor is a sector that is present for every file
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	147 * on an RBF device. It contains attributes, modification dates,
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	148 * and segment information on a file.
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	149 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	150 * ORG 0
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	151 *FD.ATT RMB 1 Attributes
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	152 *FD.OWN RMB 2 Owner
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	153 *FD.DAT RMB 5 Date last modified
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	154 *FD.LNK RMB 1 Link count
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	155 *FD.SIZ RMB 4 File size
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	156 *FD.Creat RMB 3 File creation date (YY/MM/DD)
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	157 *FD.SEG EQU . Beginning of segment list
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	158 * Segment List Entry Format
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	159 ORG 0
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	160 * FDSL.A RMB 3 Segment beginning physical sector number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	161 * FDSL.B RMB 2 Segment size
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	162 * FDSL.S EQU . Segment list entry size
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	163 * FD.LS1 EQU FD.SEG+((256-FD.SEG)/FDSL.S-1)*FDSL.S
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	164 * FD.LS2 EQU (256/FDSL.S-1)*FDSL.S
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	165 * MINSEC SET 16
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	166 */
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	167
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	168 #define FD_ATT 0
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	169 #define FD_OWN 1
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	170 #define FD_DAT 3
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	171 #define FD_LNK 8
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	172 #define FD_SIZ 9
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	173 #define FD_Creat 13
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	174 #define FD_SEG 16
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	175
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	176
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	177 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	178 * os9 directory structure
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	179 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	180 * ORG 0
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	181 *DIR.NM RMB 29 File name
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	182 *DIR.FD RMB 3 File descriptor physical sector number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	183 *DIR.SZ EQU . Directory record size
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	184 */
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	185 #define DIR_SZ 32
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	186 #define DIR_NM 29
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	187
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	188
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	189 /* read direcotry entry */
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	190 int os9opendir(PathDesc *pd) {
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	191 DIR *dir;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	192 struct dirent *dp;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	193 dir = opendir(pd->name);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	194 int dircount = 0;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	195 while ((dp = readdir(dir)) != NULL) dircount++; // pass 1 to determine the size
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	196 if (dircount==0) return 0; // should contains . and .. at least
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	197 pd->sz = dircount*DIR_SZ;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	198 pd->dirfp = (char )malloc(dircountDIR_SZ);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	199 rewinddir(dir);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	200 int i = 0;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	201 while ((dp = readdir(dir)) != NULL) {
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	202 i += DIR_SZ;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	203 if (i>pd->sz) return 0;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	204 int j = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	205 for(j = 0; j < DIR_NM ; j++) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	206 if (j< dp->d_namlen)
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	207 pd->dirfp[j] = dp->d_name[j];
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	208 else
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	209 pd->dirfp[j] = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	210 }
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	211 pd->dirfp[j] = (dp->d_ino&0xff0000)>>16;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	212 pd->dirfp[j+1] = (dp->d_ino&0xff00)>>8;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	213 pd->dirfp[j+2] = dp->d_ino&0xff;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	214 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	215 pd->fp = fmemopen(pd->dirfp,pd->sz,"r");
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	216 return 0;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	217 }
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	218
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	219 void os9setdate(char d,struct timespec unixtime) {
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	220 // yymmddhhss
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	221 }
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	222
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	223 /* read file descriptor of Path Desc
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	224 * create file descriptor sector if necessary
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	225 * if buf!=0, copy it
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	226 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	227 int filedescriptor(Byte buf, int len, PathDesc pd) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	228 struct stat st;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	229 if (pd->fd) return 1;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	230 pd->fd = (char *)malloc(256);
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	231 stat(pd->name,&st);
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	232 os9setmode(pd->fd+FD_ATT,st.st_mode);
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	233 pd->fd[FD_OWN]=(st.st_uid&0xff00)>>8;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	234 pd->fd[FD_OWN+1]=st.st_uid&0xff;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	235 os9setdate(pd->fd + FD_DAT,&st.st_mtimespec);
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	236 pd->fd[FD_LNK+0]=(st.st_uid&0xff000000)>>24;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	237 pd->fd[FD_LNK+1]=(st.st_uid&0xff0000)>>16;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	238 pd->fd[FD_LNK+2]=(st.st_uid&0xff00)>>8;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	239 pd->fd[FD_LNK+3]=st.st_nlink&0xff;
07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	240 os9setdate(pd->fd+FD_Creat,&st.st_ctimespec);
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	241 // dummy segment list
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	242 for(int i=FD_SEG ; i < 256; i++) pd->fd[i] = 0;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	243 return 0;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	244 }
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	245
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	246 /* read direcotry entry for any file in the directory
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	247 * we only returns a file descriptor only in the current opened directory
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	248 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	249 * inode==0 should return disk id section
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	250 * inode==bitmap should return disk sector map for os9 free command
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	251 */
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	252 int fdinfo(Byte buf,int len, int inode, PathDesc pd) {
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	253 int i;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	254 for(i=0;i<MAXPDV;i++) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	255 PathDesc *pd = pdv+i;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	256 if (!pd->use \|\| !pd->dir) continue;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	257 // find inode in directory
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	258 char dir = (char )pd->dirfp;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	259 while( dir < dir + pd->sz ) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	260 Byte p = (Byte )(dir + DIR_NM);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	261 int dinode = (p[0]<<16)+(p[1]<<8)+p[2];
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	262 if (inode == dinode) {
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	263 filedescriptor(buf,len,pd);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	264 return 1;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	265 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	266 }
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	267 }
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	268 return 0;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	269 }
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	270
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	271 /*
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	272 * each command should have preallocated os9 path descriptor on Y
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	273 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	274 * name or buffer, can be in a user map, pmem check that drive number ( mem[0x41+IOPAGE] 0 sys 1 user )
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	275 * current directory path number mem[0x42+IOPAGE]
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	276 * yreg has pd number
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	277 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	278 void do_vdisk(Byte cmd) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	279 int err;
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	280 Byte mode = yreg&0xff;
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	281 PathDesc *pd = pdv + ((yreg>>8)&0xff);
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	282 PathDesc *curdir = pdv+mem[0x44+IOPAGE]; // garbage until set
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	283 pd->drv = mem[0x41+IOPAGE];
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	284 Byte attr ;
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	285 Word u = mem[0x45+IOPAGE]; // caller's stack in system segment
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	286 xreg = (smem(u+4)<<8)+smem(u+5);
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	287 areg = smem(u+1);
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	288 breg = smem(u+2);
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	289 char path,next,*buf;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	290
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	291 switch(cmd) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	292 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	293 * I$Create Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	294 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	295 * Entry: A = access mode desired
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	296 * B = file attributes
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	297 * X = address of the pathlist
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	298 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	299 * Exit: A = pathnum
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	300 * X = last byte of pathlist address
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	301 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	302 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	303 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	304 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	305 case 0xd1:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	306 pd = findPD();
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	307 if (pd==0) { *breg = 0xff; break; }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	308 mode = *areg;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	309 attr = *breg;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	310 path = (char *)pmem(xreg);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	311 next = pd->name = checkFileName(path,pd,curdir);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	312 pd->dir = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	313 pd->fp = fopen(pd->name, os9toUnixAttr(attr));
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	314 if (next!=0 && pd->fp ) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	315 xreg += ( next - path );
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	316 pd->use = 1;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	317 } else {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	318 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	319 free(pd->name);
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	320 }
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	321 break;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	322
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	323 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	324 * I$Open Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	325 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	326 * Entry: A = access mode desired
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	327 * X = address of the pathlist
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	328 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	329 * Exit: A = pathnum
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	330 * X = last byte of pathlist address
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	331 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	332 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	333 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	334 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	335 case 0xd2:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	336 pd = findPD();
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	337 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	338 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	339 mode = *areg;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	340 attr = *breg;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	341 pd->fp = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	342 path = (char*)pmem(xreg);
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	343 next = checkFileName(path,pd,curdir);
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	344 if (next!=0) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	345 struct stat buf;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	346 if (stat(pd->name,&buf)!=0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	347 if ((buf.st_mode & S_IFMT) == S_IFDIR) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	348 pd->dir = 1;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	349 os9opendir(pd);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	350 } else {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	351 pd->dir = 0;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	352 pd->fp = fopen( pd->name,os9toUnixAttr(mode));
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	353 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	354 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	355 if (next!=0 && pd->fp !=0) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	356 *areg = pd->num;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	357 xreg += ( next - path );
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	358 }
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	359 break;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	360
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	361 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	362 * I$MakDir Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	363 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	364 * Entry: X = address of the pathlist
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	365 * B = directory attributes
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	366 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	367 * Exit: X = last byte of pathlist address
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	368 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	369 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	370 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	371 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	372
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	373 case 0xd3:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	374 pd = findPD();
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	375 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	376 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	377 path = (char*)pmem(xreg);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	378 next = checkFileName(path,pd,curdir);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	379 if (next!=0 && mkdir(pd->name,0)!= 0 ) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	380 xreg += ( next - path );
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	381 *breg = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	382 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	383 closepd(pd);
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	384 break;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	385
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	386 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	387 * I$ChgDir Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	388 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	389 * data dir P$DIO 3-5 contains open dir Path number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	390 * exec dir P$DIO 9-11 contains open dir Path number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	391 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	392 * Entry:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	393 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	394 * *areg = access mode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	395 * 0 = Use any special device capabilities
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	396 * 1 = Read only
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	397 * 2 = Write only
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	398 * 3 = Update (read and write)
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	399 * Entry: X = address of the pathlist
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	400 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	401 * Exit: X = last byte of pathlist address
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	402 * A = open directory Path Number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	403 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	404 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	405 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	406 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	407 case 0xd4:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	408 pd = findPD();
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	409 if (pd==0) { *breg = 0xff; break; }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	410 path = (char*)pmem(xreg);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	411 next = checkFileName(path,pd,curdir);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	412 if (next!=0 && os9opendir(pd)) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	413 if (curdir!=pd) closepd(curdir);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	414 if (pd->name != path) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	415 free(path);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	416 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	417 xreg += ( next - path );
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	418 *areg = pd->num;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	419 *breg = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	420 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	421 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	422 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	423 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	424
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	425 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	426 * I$Delete Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	427 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	428 * Entry:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	429 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	430 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	431 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	432 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	433 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	434 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	435 case 0xd5: {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	436 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	437 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	438 struct stat st;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	439 path = (char*)pmem(xreg);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	440 next = checkFileName(path,pd,curdir);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	441 if (next!=0 && stat(pd->name,&st)!=0) break;
45 07c84761da6f dd vrbf asm code Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 44 diff changeset	442 if (next!=0 && ((st.st_mode&S_IFDIR)?rmdir(pd->name):unlink(pd->name)) == 0) {
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	443 xreg += ( next - path );
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	444 *breg = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	445 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	446 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	447 break;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	448
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	449 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	450 * I$Seek Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	451 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	452 * Entry Conditions
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	453 * A path number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	454 * X MS 16 bits of the desired file position
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	455 * Y LS 16 bits of the desired file position
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	456 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	457 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	458 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	459 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	460 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	461 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	462 case 0xd6: {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	463 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	464 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	465 off_t seek = (xreg<<16)+yreg;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	466 *breg = fseek(pd->fp,(off_t)seek,SEEK_SET);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	467 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	468 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	469 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	470 * I$ReadLn Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	471 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	472 * Entry:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	473 * Entry Conditions in correct mmu map
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	474 * A path number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	475 * X address at which to store data
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	476 * Y maximum number of bytes to read
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	477 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	478 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	479 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	480 * Y number of bytes read
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	481 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	482 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	483 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	484 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	485 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	486 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	487 case 0xd7:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	488 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	489 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	490 if (pd->dir) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	491 buf = (char*)pmem(xreg);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	492 if (fgets(buf,yreg,pd->fp)) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	493 int len = yreg;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	494 int i;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	495 for(i=0;i<len && buf[i];i++);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	496 if (i>0 && buf[i-1]=='\n') {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	497 buf[i-1] = '\r';
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	498 yreg = i;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	499 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	500 *breg = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	501 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	502 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	503
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	504 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	505 * I$Read Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	506 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	507 * Entry:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	508 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	509 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	510 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	511 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	512 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	513 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	514 case 0xd8:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	515 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	516 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	517 buf = (char*)pmem(xreg);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	518 err = fread(buf,yreg,1,pd->fp);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	519 *breg = err==0?0xff:0 ;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	520 yreg = err ;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	521 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	522
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	523 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	524 * I$WritLn Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	525 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	526 * Entry:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	527 * A path number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	528 * X address of the data to write
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	529 * Y maximum number of bytes to read
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	530
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	531 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	532 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	533 * Y number of bytes written
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	534 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	535 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	536 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	537 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	538 case 0xd9:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	539 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	540 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	541 if (pd->dir) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	542 int len = yreg;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	543 int i = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	544 Byte *buf = pmem(xreg);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	545 while(len>0 && *buf !='\r') {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	546 fputc(buf[i++],pd->fp);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	547 len--;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	548 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	549 if (buf[i]=='\r') {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	550 fputc('\n',pd->fp);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	551 i++;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	552 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	553 *breg = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	554 yreg = i;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	555 break;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	556
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	557 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	558 * I$Write Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	559 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	560 * Entry:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	561 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	562 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	563 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	564 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	565 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	566 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	567 case 0xda :
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	568 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	569 if (!pd->dir) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	570 Byte *buf = pmem(xreg);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	571 int len = yreg;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	572 int err = fwrite(buf,len,1,pd->fp);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	573 *breg = err?0xff:0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	574 yreg = err;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	575 }
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	576 break;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	577
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	578 /* I$Close Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	579 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	580 * Entry: A = path number
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	581 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	582 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	583 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	584 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	585 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	586 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	587 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	588 case 0xdb:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	589 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	590 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	591 closepd(pd);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	592 *breg = 0;
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	593 break;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	594
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	595 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	596 * I$GetStat Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	597 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	598 * Entry:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	599 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	600 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	601 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	602 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	603 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	604 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	605 case 0xdc: {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	606 struct stat st;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	607 off_t pos;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	608 switch (*breg) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	609 case 01: // SS.Ready
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	610 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	611 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	612 fstat(fileno(pd->fp),&st);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	613 if ((pos = ftell(pd->fp))) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	614 xreg = st.st_size - pos;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	615 *breg = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	616 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	617 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	618 case 02: // SS.SIZ
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	619 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	620 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	621 fstat(fileno(pd->fp),&st);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	622 xreg = st.st_size ;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	623 *breg = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	624 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	625 case 05: // SS.Pos
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	626 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	627 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	628 xreg = ftell(pd->fp);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	629 *breg = 0;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	630 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	631 case 15: // SS.FD
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	632 /* SS.FD ($0F) - Returns a file descriptor
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	633 * Entry: R$A=Path #
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	634 * R$B=SS.FD ($0F)
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	635 * R$X=Pointer to a 256 byte buffer
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	636 * R$Y=# bytes of FD required
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	637 * this should be handled in vrbf
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	638 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	639 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	640 if (pd==0) break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	641 *breg = filedescriptor(pmem(xreg), yreg,pd) ;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	642 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	643 case 0x20: // Pos.FDInf mandatry for dir command
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	644 /* SS.FDInf ($20) - Directly reads a file descriptor from anywhere
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	645 * on drive.
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	646 * Entry: R$A=Path #
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	647 * R$B=SS.FDInf ($20)
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	648 * R$X=Pointer to a 256 byte buffer
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	649 * R$Y= MSB - Length of read
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	650 * LSB - MSB of logical sector #
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	651 * R$U= LSW of logical sector #
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	652 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	653 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	654 if (pd==0) break;
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	655 yreg = (smem(u+6)<<8)+smem(u+7);
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	656 ureg = (smem(u+8)<<8)+smem(u+9);
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	657 breg = fdinfo(pmem(xreg),yreg,xreg0x10000+ureg,pd);
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	658 break;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	659 default:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	660 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	661 }
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	662 break;
44 b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	663 }
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	664
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	665 /*
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	666 * I$SetStat Entry Point
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	667 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	668 * Entry:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	669 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	670 * Exit:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	671 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	672 *
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	673 * Error: CC Carry set
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	674 * B = errcode
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	675 */
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	676 case 0xdd:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	677 switch (*breg) {
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	678 case 0: // SS.Opt
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	679 case 02: // SS.SIZ
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	680 case 15: // SS.FD
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	681 case 0x11: // SS.Lock
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	682 case 0x10: // SS.Ticks
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	683 case 0x20: // SS.RsBit
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	684 case 0x1c: // SS.Attr
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	685 default:
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	686 *breg = 0xff;
b26c23331d02 add more function on vdisk Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 43 diff changeset	687 }
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	688 break;
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	689 }
46 ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	690 // return value
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	691 mem[0xffc0] = *breg;
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	692 smem(u+2) = breg ;
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	693 *smem(u+4) = (xreg & 0xff00) >> 8;
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	694 *smem(u+5) = xreg & 0xff;
ec9f494497e1 vdisk fix Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: 45 diff changeset	695
43 7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	696 }
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	697
7a83a6a1685a vdisk start Shinji KONO <kono@ie.u-ryukyu.ac.jp> parents: diff changeset	698

Mercurial > hg > Members > kono > os9 > sbc09

annotate vdisk.c @ 46:ec9f494497e1