Speed up binary file Send routine.

Uriel.HC

@@ -3,6 +3,7 @@
 #define URIEL_FCMD_GET "*[U_GET]"
 #define URIEL_FCMD_PUT "*[U_PUT]"
 #define URIEL_PORT 2
+#define URIEL_RAW_PORT 0x02F8
 #include "::/Doc/Comm"
 
 U8 UrielPageBuf[2097152];
@@ -66,7 +67,7 @@ U0 Send(U8 *local_file, U8 *remote_file="") {
     for (f_pos=0;f_pos<d_file->size;f_pos++) {
         Sleep(0);
         progress1=f_pos;
-        CommPutChar(URIEL_PORT, s_file[f_pos]);
+        OutU8(URIEL_RAW_PORT, s_file[f_pos]);
     }
     CommPutS(URIEL_PORT, URIEL_BINARY_EOF);
     ProgressBarsRst;