--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/os9/mc09/uf.c	Thu Dec 27 11:01:16 2018 +0900
@@ -0,0 +1,176 @@
+#include "STDIO.TXT"
+#include "STRING.TXT"
+#include "FILEIO.TXT"
+#include "ALLOC.TXT"
+
+#define CONSTAT *0xff80
+#define CONDATA *0xff81
+#define REMSTAT *0xff90
+#define REMDATA *0xff91
+
+#define RXRDY   0x01
+#define TXRDY   0x02
+
+#define BREAK   0x00
+#define EOT     0x04
+#define ESC     0x1b
+
+main()
+{       printf("Terminal emulator\n");
+        reminit();
+        while (1)
+        {       printf("\nT(erm , F(ile , E(xit : ");
+                switch ( toupper(getchar()) )
+                {       case 'T' : term(); break;
+                        case 'F' : filer(); break;
+                        case 'E' : exit();
+                }
+        }
+}
+
+term()
+{char c;
+        printf("\n>>> enter terminal mode <ctl-@ to exit>\n");
+#asm
+        ORCC    #$50    disable interrupt
+#endasm
+        while (1)
+        {       if ( remstat() ) conwrite(remread());
+                if ( constat() )
+                {       if ( (c = conread()) == BREAK ) break;
+                        remwrite(c);
+                }
+        }
+        ;
+#asm
+        ANDCC   #$AF    restore interrupt mask
+#endasm
+}
+
+filer()
+{       printf("\n>>> enter file transfer mode\n");
+        while (1)
+        {       printf("\nDirection F(lex->unix , U(nix->flex , E(xit : ");
+                switch ( toupper(getchar()) )
+                {       case 'F' : flex_unix(); break;
+                        case 'U' : unix_flex(); break;
+                        case 'E' : return;
+                }
+        }
+}
+
+flex_unix()
+{char   fn0[80],fn1[80],c;
+ FILE *fp;
+        printf("\nFLEX to UNIX file transfer\n");
+        printf("FLEX file name : ");
+        gets(fn0,80);
+        printf("\n");
+        toupstr(fn0);
+        if ( (fp = fopen(fn0,"rc")) < 0 )
+        {       printf("Can't open %s\n",fn0);
+                return;
+        }
+        printf("UNIX file name : ");
+        gets(fn1,80);
+        printf("\n");
+        tx_str("cat /dev/tty >");
+        tx_str(fn1);
+        tx_char('\n');
+        while ( (c = getc(fp)) != EOF ) tx_char(c);
+        remwrite(EOT);
+        fclose(fp);
+}
+
+unix_flex()
+{char   fn0[80],fn1[80],c;
+ FILE *fp;
+ int    i;
+ char linebuf[256];
+        printf("\nUNIX to FLEX file transfer\n");
+        printf("UNIX file name : ");
+        gets(fn0,80);
+        printf("\nFLEX file name : ");
+        gets(fn1,80);
+        printf("\n");
+        toupstr(fn1);
+        if ( (fp = fopen(fn1,"wc")) < 0 )
+        {       printf("Can't create %s\n",fn1);
+                return;
+        }
+        tx_str("/mnt/sys/tezuka/unix_flex/unix_flex ");
+        tx_str(fn0);
+        tx_char('\n');
+        while ( 1 ) {
+                i = 0;
+                while ( (c = remread()) != '\n' ) {
+                        if ( c == ESC ) {
+                                fclose(fp);
+                                return;
+                        }
+                        linebuf[i++] = c;
+                }
+                linebuf[i++] = '\n';
+                linebuf[i] = '\0';
+                for ( i = 0; linebuf[i]; i++ ) putc(linebuf[i],fp);
+                remwrite(ESC);
+                putchar('.');
+        }
+}
+
+toupstr(s)
+char *s;
+{       while ( *s )
+        {       *s = toupper(*s);
+                ++s;
+        }
+}
+
+tx_str(s)
+char *s;
+{       while ( *s ) tx_char(*s++);
+}
+
+tx_char(c)
+char c;
+{       remwrite(c);
+        while ( c != remread() );
+/*    */putchar(c);
+}
+
+constat()
+{       return ( CONSTAT & RXRDY );
+}
+
+conread()
+{       while ( !constat() );
+        return ( CONDATA & 0x7f);
+}
+
+conwrite(ch)
+char ch;
+{       while ( !(CONSTAT & TXRDY) );
+        CONDATA = ch;
+}
+
+reminit()
+{
+        REMSTAT = 0x43;
+        REMSTAT = 0x15;
+}
+
+remstat()
+{       return ( REMSTAT & RXRDY );
+}
+
+remread()
+{       while ( !remstat() );
+        return ( REMDATA & 0x7f );
+}
+
+remwrite(ch)
+char ch;
+{       while ( !(REMSTAT & TXRDY) );
+        REMDATA = ch;
+}
+