Browse Source

Speed up binary file Send routine.

master
Alec Murphy 5 years ago
parent
commit
effa54dbea
  1. 3
      Uriel.HC

3
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;

Loading…
Cancel
Save