--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mc09/stdio2.txt	Tue Feb 05 09:03:07 2019 +0900
@@ -0,0 +1,296 @@
+
+
+#define	FBSIZE	sizeof(FILE)
+#define	NFILES	16
+
+#define	NULL	0
+#define EOF	(-1)
+
+#define	stdin	_fptbl[0]
+#define	stdout	_fptbl[1]
+#define	stderr	_fptbl[2]
+
+#define	STDIN	0xffff
+#define	STDOUT	0xfffe
+#define	STDERR	0xfffd
+
+typedef struct {
+	int _fcb[FCBSIZE];
+	int _fbp;
+	char _fbuf[1024];
+	} FILE;
+
+FILE *_fptbl[NFILES];
+
+char _ch;
+int _fch = 0;
+
+_main(argc,argv)
+int argc;
+char **argv;
+{int i;
+	initheap();
+        stdin = STDIN;
+        stdout = STDOUT;
+        stderr = STDERR;
+        for (i = 3; i < NFILES; ++i) _fptbl[i] = NULL;
+        main(argc,argv);
+	for (i = 0; i < NFILES; ++i) fflush(_fptbl[i]);
+}
+
+ungetc(c,fp)
+char c;
+FILE *fp;
+{       if (fp == STDIN)
+        {       _fch = 1;
+                return _ch = c;
+        }
+        fp->_fcb[62] = 1;
+        return fp->_fcb[61] = c;
+}
+
+getc(fp)
+FILE *fp;
+{
+        switch ( fp ) {
+        case STDIN:
+                if (_fch) { _fch = 0; return _ch; }
+                return GETCH();
+        case STDOUT:
+        case STDERR:
+                return EOF;
+        default:
+                if (fp->_fcb[2] != 1) return EOF;
+                if (fp->_fcb[62]) { fp->_fcb[62] = 0; return fp->_fcb[61]; }
+                return FMS(fp->_fcb,0);
+        }
+}
+
+putc(c,fp)
+char c;
+FILE *fp;
+{       switch ( fp ) {
+        case STDIN:
+                return EOF;
+        case STDOUT:
+                return PUTCH(c);
+        case STDERR:
+                return PUTCH2(c);
+        default:
+                if (fp->_fcb[2] != 2) return EOF;
+                if (FMS(fp->_fcb,0,c) < 0) return EOF;
+                return c;
+        }
+}
+
+ugetch(c)
+char c;
+{       return ungetc(c,stdin);
+}
+
+getchar()
+{       return getc(stdin);
+}
+
+putchar(c)
+char c;
+{       return putc(c,stdout);
+}
+
+printf(s)
+char *s;
+{       _fprintf(stdout,s,(int *)&s+1);
+}
+
+fprintf(fp,s)
+FILE *fp;
+char *s;
+{       _fprintf(fp,s,(int *)&s+1);
+}
+
+_fprintf(fp,s,p)
+FILE *fp;
+char *s;
+int *p;
+{int l,m,n;
+ char c,buf[8];
+        while(c = *s++)
+                if (c != '%') putc(c,fp);
+                else
+                {       if (l=(*s == '-')) ++s;
+                        if (isdigit(*s)) s += _getint(&m,s);
+                        else m = 0;
+                        if (*s == '.') ++s;
+                        if (isdigit(*s)) s += _getint(&n,s);
+                        else n = 32767;
+                        switch(c = *s++)
+                        {case 'd':
+                                itoa(*p++,buf);
+                                break;
+                        case 'o':
+                                itooa(*p++,buf);
+                                break;
+                        case 'x':
+                                itoxa(*p++,buf);
+                                break;
+                        case 'u':
+                                itoua(*p++,buf);
+                                break;
+                        case 'c':
+                                ctos(*p++,buf);
+                                break;
+                        case 's':
+                                _putstr(fp,*p++,l,m,n);
+                                continue;
+                        case '\0':
+                                return;
+                        default:
+                                ctos(c,buf);
+                                break;
+                        }
+                        _putstr(fp,buf,l,m,n);
+                }
+}
+
+_getint(p,s)
+int *p;
+char *s;
+{int i;
+        for(*p = i = 0; isdigit(*s); ++i) *p = *p * 10 + *s++ - '0';
+        return i;
+}
+
+_putstr(fp,s,l,m,n)
+FILE fp;
+char *s;
+int l,m,n;
+{int k;
+        k = (strlen(s) < n ? strlen(s) : n);
+        m = (k < m ? m - k : 0);
+        if (l)
+        {       _putsn(fp,s,n);
+                _putspc(fp,m);
+        }
+        else
+        {       _putspc(fp,m);
+                _putsn(fp,s,n);
+        }
+}
+        
+_putsn(fp,s,n)
+FILE fp;
+char *s;
+int n;
+{       while(*s)
+                if (--n >= 0) putc(*s++,fp);
+                else break;
+}
+
+_putspc(fp,n)
+FILE *fp;
+int n;
+{       while(--n >= 0) putc(' ',fp);
+}
+
+itoa(n,s)
+int n;
+char *s;
+{       if (n < 0)
+        {       *s++ = '-';
+                return (itoua(-n,s) + 1);
+        }
+        return itoua(n,s);
+}
+
+itoua(n,s)
+int n;
+char *s;
+{       return _itoda(n,s,10);
+}
+
+ctos(c,s)
+char c,*s;
+{       s[0] = c;
+        s[1] = '\0';
+        return s;
+}
+
+itooa(n,s)
+int n;
+char *s;
+{       return _itoda(n,s,8);
+}
+
+itoxa(n,s)
+int n;
+char *s;
+{       return _itoda(n,s,16);
+}
+
+_itoac(n);
+int n;
+{       return (n + ((n < 10) ? '0' : ('A'-10)));
+}
+
+_itoda(n,s,r)
+unsigned n;
+int r;
+char *s;
+{int i;
+ char t[8],*u;
+        u = t;
+        *u++ = '\0';
+        do *u++ = _itoac(n % r); while(n /= r);
+        for (i=0; *s++ = *--u; ++i);
+        return i;
+}
+
+isdigit(c)
+char c;
+{       return ('0' <= c && c <= '9');
+}
+
+isspace(c)
+char c;
+{       return (c == ' ' || c == '\t' || c == '\n');
+}
+
+isalpha(c)
+char c;
+{       return (isupper(c) || islower(c) || c == '_');
+}
+
+isupper(c)
+char c;
+{       return ('A' <= c && c <= 'Z');
+}
+
+islower(c)
+char c;
+{       return ('a' <= c && c <= 'z');
+}
+
+toupper(c)
+char c;
+{       return (islower(c) ? c + ('A'-'a') : c);
+}
+
+tolower(c)
+char c;
+{       return (isupper(c) ? c + ('a'-'A') : c);
+}
+
+atoi(s)
+char *s;
+{int i,m;
+        while (isspace(*s)) ++s;
+        if (m = (*s == '-')) ++s;
+        for (i = 0; isdigit(*s);) i = i * 10 + *s++ - '0';
+        return (m ? -i : i);
+}
+strlen(s)
+char *s;
+{int i;
+        for (i = 0; *s++; ++i);
+        return i;
+}