From fe6742d33e11983efe5d3a3daa7ce40fda11c06a Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Sun, 22 Jul 2018 19:25:28 -0700 Subject: [PATCH] Set retry count back to 4 with longer delay - add debug print to uthernet2 --- src/libsrc/apple/uthernet2.pla | 1 + src/libsrc/dhcp.pla | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/libsrc/apple/uthernet2.pla b/src/libsrc/apple/uthernet2.pla index 6f80e80..f01e645 100644 --- a/src/libsrc/apple/uthernet2.pla +++ b/src/libsrc/apple/uthernet2.pla @@ -693,6 +693,7 @@ def wizServiceIP ir = peekreg(WIZ_IR) if ir + puth(ir);putln wiz = @wizChannel for i = 0 to 3 // diff --git a/src/libsrc/dhcp.pla b/src/libsrc/dhcp.pla index 1fd8311..2bc94d6 100644 --- a/src/libsrc/dhcp.pla +++ b/src/libsrc/dhcp.pla @@ -206,14 +206,14 @@ repeat optsSRV = 255 DHCP.dhcp_secs.1 = retry iNet:sendUDP(portDHCP, 0, DHCP_SERVER_PORT, @DHCP, @optsSRV - @DHCP + 1) - for timeout = 0 to 1000 + for timeout = 0 to 4000 iNet:serviceIP() if optsOP.2 == DHCP_ACK break fin next retry++ -until retry > 16 or optsOP.2 == DHCP_ACK +until retry > 4 or optsOP.2 == DHCP_ACK iNet:closeUDP(portDHCP) iNet:setInterfaceIP(@localip, @localnet, @localgw) puts("Apple II bound to:\n");putip(@localip);putc('/');putip(@localnet);putln