From ab60f86a32f12b5a002b5d15f1b7cbbf4a194490 Mon Sep 17 00:00:00 2001
From: Joerg Deckert <jdeckert@unitas-network.de>
Date: Fri, 13 Dec 2013 08:00:29 +0100
Subject: [PATCH] minor timing changes

---
 lib/reg-ios.spin                     | 12 +++++++++++-
 system/administra/admnet/admnet.spin | 13 ++++++++++++-
 system/regnatix/ftp.spin             | 15 ++++++++++++---
 3 files changed, 35 insertions(+), 5 deletions(-)

diff --git a/lib/reg-ios.spin b/lib/reg-ios.spin
index c083af7..dc06d6e 100644
--- a/lib/reg-ios.spin
+++ b/lib/reg-ios.spin
@@ -1080,7 +1080,17 @@ PUB lan_isconnected(handle): connected
   connected := bus_getchar1
 
 PUB lan_rxcount
-PUB lan_resetbuffers
+PUB lan_resetbuffers(handle)
+''funktionsgruppe               : lan
+''funktion                      : Sende- und Empfangspuffer zurücksetzen
+''eingabe                       : -
+''ausgabe                       : -
+''busprotokoll                  : [078][put.handle]
+''                              : handle - lfd. Nr. der Verbindung
+
+  bus_putchar1(gc#a_lanResetBuffers)
+  bus_putchar1(handle)
+
 PUB lan_waitconntimeout(handle, timeout): connected
 ''funktionsgruppe               : lan
 ''funktion                      : bestimmte Zeit auf Verbindung warten
diff --git a/system/administra/admnet/admnet.spin b/system/administra/admnet/admnet.spin
index ac4f3d9..f18fdac 100644
--- a/system/administra/admnet/admnet.spin
+++ b/system/administra/admnet/admnet.spin
@@ -1211,7 +1211,18 @@ PRI lan_isconnected | handle
   bus_putchar(sock.isConnected(handle))
 
 PRI lan_rxcount
-PRI lan_resetbuffers
+PRI lan_resetbuffers | handle
+''funktionsgruppe               : lan
+''funktion                      : Sende- und Empfangspuffer zurücksetzen
+''eingabe                       : -
+''ausgabe                       : -
+''busprotokoll                  : [078][get.handle]
+''                              : handle - lfd. Nr. der Verbindung
+
+  handle := bus_getchar
+
+  sock.resetBuffers(handle)
+
 PRI lan_waitconntimeout | handle, timeout, t, connected
 ''funktionsgruppe               : lan
 ''funktion                      : bestimmte Zeit auf Verbindung warten
diff --git a/system/regnatix/ftp.spin b/system/regnatix/ftp.spin
index eebccc3..9928794 100644
--- a/system/regnatix/ftp.spin
+++ b/system/regnatix/ftp.spin
@@ -65,13 +65,19 @@ PUB main
         other: ios.print(@help)
 
   if (ip_addr)  ' Adresse nicht 0.0.0.0
-    ios.lanstart
-    handle_control := ios.lan_connect(ip_addr, 21)
+    ios.print(string("Starte LAN..."))
     ios.printnl
+    ios.lanstart
+    delay_ms(5000) 'nach ios.lanstart dauert es, bis der Stack funktioniert
+    ios.print(string("Verbinde mit FTP-Server..."))
+    ios.printnl
+    handle_control := ios.lan_connect(ip_addr, 21)
+    ios.lan_resetbuffers(handle_control)
     ios.print(string("Handle Connect: "))
     ios.print(num.ToStr(handle_control, num#DEC))
     ios.printnl
-    if (ios.lan_waitconntimeout(handle_control, 1500))
+    if (ios.lan_waitconntimeout(handle_control, 2000))
+      delay_ms(5000)
       ios.print(string("Verbindung mit FTP-Server hergestellt."))
       ios.printnl
       if getResponse(string("220 "))
@@ -93,6 +99,9 @@ PUB main
 
  ios.stop
 
+PRI delay_ms(Duration)
+  waitcnt(((clkfreq / 1_000 * Duration - 3932)) + cnt)
+
 PRI setaddr (ipaddr) | pos, count                       'IP-Adresse in Variable schreiben
 
   count := 3