From: Leandro Lucarella <llucax@gmail.com>
Date: Sat, 3 Dec 2005 05:52:31 +0000 (+0000)
Subject: Primer ejemplo con la red funcionando.
X-Git-Tag: 0.1-recibe-matriz-raw-por-udp~42
X-Git-Url: https://git.llucax.com/z.facultad/66.09/etherled.git/commitdiff_plain/9a65cd82189d89b3ad54b02b6ab5f3e3082a8bad?ds=inline

Primer ejemplo con la red funcionando.
---

diff --git a/pruebas/keil/red_test_anda/REG51.H b/pruebas/keil/red_test_anda/REG51.H
new file mode 100644
index 0000000..4703bdd
--- /dev/null
+++ b/pruebas/keil/red_test_anda/REG51.H
@@ -0,0 +1,88 @@
+/*--------------------------------------------------------------------------
+REG51.H
+
+         Header file for generic 80C51 and 80C31 microcontroller.
+
+--------------------------------------------------------------------------*/
+#ifndef REG51_H
+#define REG51_H
+
+/*  BYTE Register  */
+sfr P0   = 0x80;
+sfr P1   = 0x90;
+sfr P2   = 0xA0;
+sfr P3   = 0xB0;
+sfr PSW  = 0xD0;
+sfr ACC  = 0xE0;
+sfr B    = 0xF0;
+sfr SP   = 0x81;
+sfr DPL  = 0x82;
+sfr DPH  = 0x83;
+sfr PCON = 0x87;
+sfr TCON = 0x88;
+sfr TMOD = 0x89;
+sfr TL0  = 0x8A;
+sfr TL1  = 0x8B;
+sfr TH0  = 0x8C;
+sfr TH1  = 0x8D;
+sfr IE   = 0xA8;
+sfr IP   = 0xB8;
+sfr SCON = 0x98;
+sfr SBUF = 0x99;
+
+/*  BIT Register  */
+/*  PSW   */
+sbit CY   = 0xD7;
+sbit AC   = 0xD6;
+sbit F0   = 0xD5;
+sbit RS1  = 0xD4;
+sbit RS0  = 0xD3;
+sbit OV   = 0xD2;
+sbit P    = 0xD0;
+
+/*  TCON  */
+sbit TF1  = 0x8F;
+sbit TR1  = 0x8E;
+sbit TF0  = 0x8D;
+sbit TR0  = 0x8C;
+sbit IE1  = 0x8B;
+sbit IT1  = 0x8A;
+sbit IE0  = 0x89;
+sbit IT0  = 0x88;
+
+/*  IE   */
+sbit EA   = 0xAF;
+sbit ES   = 0xAC;
+sbit ET1  = 0xAB;
+sbit EX1  = 0xAA;
+sbit ET0  = 0xA9;
+sbit EX0  = 0xA8;
+
+/*  IP   */ 
+sbit PS   = 0xBC;
+sbit PT1  = 0xBB;
+sbit PX1  = 0xBA;
+sbit PT0  = 0xB9;
+sbit PX0  = 0xB8;
+
+/*  P3  */
+sbit RD   = 0xB7;
+sbit WR   = 0xB6;
+sbit T1   = 0xB5;
+sbit T0   = 0xB4;
+sbit INT1 = 0xB3;
+sbit INT0 = 0xB2;
+sbit TXD  = 0xB1;
+sbit RXD  = 0xB0;
+
+/*  SCON  */
+sbit SM0  = 0x9F;
+sbit SM1  = 0x9E;
+sbit SM2  = 0x9D;
+sbit REN  = 0x9C;
+sbit TB8  = 0x9B;
+sbit RB8  = 0x9A;
+sbit TI   = 0x99;
+sbit RI   = 0x98;
+
+#endif /* REG51_H */
diff --git a/pruebas/keil/red_test_anda/STARTUP.A51 b/pruebas/keil/red_test_anda/STARTUP.A51
new file mode 100644
index 0000000..8f652d2
--- /dev/null
+++ b/pruebas/keil/red_test_anda/STARTUP.A51
@@ -0,0 +1,157 @@
+$NOMOD51
+;------------------------------------------------------------------------------
+;  This file is part of the C51 Compiler package
+;  Copyright (c) 1988-2002 Keil Elektronik GmbH and Keil Software, Inc.
+;------------------------------------------------------------------------------
+;  STARTUP.A51:  This code is executed after processor reset.
+;
+;  To translate this file use A51 with the following invocation:
+;
+;     A51 STARTUP.A51
+;
+;  To link the modified STARTUP.OBJ file to your application use the following
+;  BL51 invocation:
+;
+;     BL51 <your object file list>, STARTUP.OBJ <controls>
+;
+;------------------------------------------------------------------------------
+;
+;  User-defined Power-On Initialization of Memory
+;
+;  With the following EQU statements the initialization of memory
+;  at processor reset can be defined:
+;
+;               ; the absolute start-address of IDATA memory is always 0
+IDATALEN        EQU     80H     ; the length of IDATA memory in bytes.
+;
+XDATASTART      EQU     0H      ; the absolute start-address of XDATA memory
+XDATALEN        EQU     400H    ; the length of XDATA memory in bytes.
+;
+PDATASTART      EQU     0H      ; the absolute start-address of PDATA memory
+PDATALEN        EQU     0H      ; the length of PDATA memory in bytes.
+;
+;  Notes:  The IDATA space overlaps physically the DATA and BIT areas of the
+;          8051 CPU. At minimum the memory space occupied from the C51 
+;          run-time routines must be set to zero.
+;------------------------------------------------------------------------------
+;
+;  Reentrant Stack Initilization
+;
+;  The following EQU statements define the stack pointer for reentrant
+;  functions and initialized it:
+;
+;  Stack Space for reentrant functions in the SMALL model.
+IBPSTACK        EQU     0       ; set to 1 if small reentrant is used.
+IBPSTACKTOP     EQU     0FFH+1  ; set top of stack to highest location+1.
+;
+;  Stack Space for reentrant functions in the LARGE model.      
+XBPSTACK        EQU     0       ; set to 1 if large reentrant is used.
+XBPSTACKTOP     EQU     0FFFFH+1; set top of stack to highest location+1.
+;
+;  Stack Space for reentrant functions in the COMPACT model.    
+PBPSTACK        EQU     0       ; set to 1 if compact reentrant is used.
+PBPSTACKTOP     EQU     0FFFFH+1; set top of stack to highest location+1.
+;
+;------------------------------------------------------------------------------
+;
+;  Page Definition for Using the Compact Model with 64 KByte xdata RAM
+;
+;  The following EQU statements define the xdata page used for pdata
+;  variables. The EQU PPAGE must conform with the PPAGE control used
+;  in the linker invocation.
+;
+PPAGEENABLE     EQU     0       ; set to 1 if pdata object are used.
+;
+PPAGE           EQU     0       ; define PPAGE number.
+;
+PPAGE_SFR       DATA    0A0H    ; SFR that supplies uppermost address byte
+;               (most 8051 variants use P2 as uppermost address byte)
+;
+;------------------------------------------------------------------------------
+
+; Standard SFR Symbols 
+ACC     DATA    0E0H
+B       DATA    0F0H
+SP      DATA    81H
+DPL     DATA    82H
+DPH     DATA    83H
+
+                NAME    ?C_STARTUP
+
+
+?C_C51STARTUP   SEGMENT   CODE
+?STACK          SEGMENT   IDATA
+
+                RSEG    ?STACK
+                DS      1
+
+                EXTRN CODE (?C_START)
+                PUBLIC  ?C_STARTUP
+
+                CSEG    AT      0
+?C_STARTUP:     LJMP    STARTUP1
+
+                RSEG    ?C_C51STARTUP
+
+STARTUP1:
+
+IF IDATALEN <> 0
+                MOV     R0,#IDATALEN - 1
+                CLR     A
+IDATALOOP:      MOV     @R0,A
+                DJNZ    R0,IDATALOOP
+ENDIF
+
+IF XDATALEN <> 0
+                MOV     DPTR,#XDATASTART
+                MOV     R7,#LOW (XDATALEN)
+  IF (LOW (XDATALEN)) <> 0
+                MOV     R6,#(HIGH (XDATALEN)) +1
+  ELSE
+                MOV     R6,#HIGH (XDATALEN)
+  ENDIF
+                CLR     A
+XDATALOOP:      MOVX    @DPTR,A
+                INC     DPTR
+                DJNZ    R7,XDATALOOP
+                DJNZ    R6,XDATALOOP
+ENDIF
+
+IF PPAGEENABLE <> 0
+                MOV     PPAGE_SFR,#PPAGE
+ENDIF
+
+IF PDATALEN <> 0
+                MOV     R0,#LOW (PDATASTART)
+                MOV     R7,#LOW (PDATALEN)
+                CLR     A
+PDATALOOP:      MOVX    @R0,A
+                INC     R0
+                DJNZ    R7,PDATALOOP
+ENDIF
+
+IF IBPSTACK <> 0
+EXTRN DATA (?C_IBP)
+
+                MOV     ?C_IBP,#LOW IBPSTACKTOP
+ENDIF
+
+IF XBPSTACK <> 0
+EXTRN DATA (?C_XBP)
+
+                MOV     ?C_XBP,#HIGH XBPSTACKTOP
+                MOV     ?C_XBP+1,#LOW XBPSTACKTOP
+ENDIF
+
+IF PBPSTACK <> 0
+EXTRN DATA (?C_PBP)
+                MOV     ?C_PBP,#LOW PBPSTACKTOP
+ENDIF
+
+                MOV     SP,#?STACK-1
+; This code is required if you use L51_BANK.A51 with Banking Mode 4
+; EXTRN CODE (?B_SWITCH0)
+;               CALL    ?B_SWITCH0      ; init bank mechanism to code bank 0
+                LJMP    ?C_START
+
+                END
diff --git a/pruebas/keil/red_test_anda/etherdev.c b/pruebas/keil/red_test_anda/etherdev.c
new file mode 100644
index 0000000..623a05a
--- /dev/null
+++ b/pruebas/keil/red_test_anda/etherdev.c
@@ -0,0 +1,634 @@
+/*       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+         º    TITLE:  RTL8019AS ethernet routines for 8051 and      º
+         º            Keil C51 v7.00 port of Adam Dunkels' uIP v0.9 º
+         º FILENAME:  etherdev.c                                    º
+         º REVISION:  VER 0.0                                       º
+         º REV.DATE:  21-01-05                                      º
+         º  ARCHIVE:                                                º
+         º   AUTHOR:  Copyright (c) 2005, Murray R. Van Luyn.       º
+         º   Refer to National Semiconductor DP8390 App Note 874.   º
+         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ        */
+
+/*  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
+    ³  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS  ³ 
+    ³  OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED  ³ 
+    ³  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ³ 
+    ³  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY    ³ 
+    ³  DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ³ 
+    ³  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE  ³ 
+    ³  GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS      ³ 
+    ³  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,       ³ 
+    ³  WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING          ³ 
+    ³  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ³ 
+    ³  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.       ³ 
+    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  */
+
+
+#include "etherdev.h"
+
+void sleep(unsigned char);
+
+static xdata leds1 _at_ 0x0080;
+static xdata leds2 _at_ 0x00c0;
+
+unsigned char uip_buf[64] =
+{
+	//0x00, 0x0c, 0x6e, 0x37, 0x19, 0xbf, // MAC destino
+	0x00, 0x80, 0xc7, 0x42, 0x8d, 0x27, // MAC destino
+	0x00, 0x0c, 0x6e, 0x37, 0x19, 0xbe, // MAC fuente
+	0x00, 0x00, // Type
+};
+
+unsigned int uip_len = 14;
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                            Private defines.                         º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+#define ETH_CPU_CLOCK      ETH_CPU_XTAL / 12    // 8051 clock rate (X1 mode)
+
+// Delay routine timing parameters
+#define ETH_DELAY_CONST    9.114584e-5          // Delay routine constant
+#define ETH_DELAY_MULTPLR  (unsigned char)(ETH_DELAY_CONST * ETH_CPU_CLOCK)
+
+// X1 CPU mode timing parameters
+#define ETH_T0_CLOCK             ETH_CPU_XTAL / 12 // Timer 0 mode 1 clock rate
+#define ETH_T0_INT_RATE          24                // Timer 0 intrupt rate (Hz)
+#define ETH_T0_RELOAD            65536 - (ETH_T0_CLOCK / ETH_T0_INT_RATE)
+
+// Packet transmit & receive buffer configuration
+#define ETH_TX_PAGE_START  0x40    // 0x4000 Tx buffer is  6 * 256 = 1536 bytes
+#define ETH_RX_PAGE_START  0x46    // 0x4600 Rx buffer is 26 * 256 = 6656 bytes
+#define ETH_RX_PAGE_STOP   0x60    // 0x6000
+
+#define ETH_ADDR_PORT_MASK 0x1F                 // 00011111y
+#define ETH_DATA_PORT_MASK 0xFF                 // 11111111y
+
+#define ETH_MIN_PACKET_LEN 0x3C
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                       Private Function Prototypes                   º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+static void etherdev_reg_write(unsigned char reg, unsigned char wr_data);
+static unsigned char etherdev_reg_read(unsigned char reg);
+static void etherdev_delay_ms(unsigned int count);
+static unsigned int etherdev_poll(void);
+//static void etherdev_timer0_isr(void) interrupt 1 using 1;
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                          Private Macro Defines                      º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+// Manipulate PS1 & PS0 in CR to select RTL8019AS register page. 
+#define ETHERDEV_SELECT_REG_PAGE(page)                                      \
+          do                                                                \
+          {                                                                 \
+              etherdev_reg_write(CR, etherdev_reg_read(CR) & ~(PS1 | PS0)); \
+              etherdev_reg_write(CR, etherdev_reg_read(CR) | (page << 6));  \
+          } while(0)
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                              Global Variables                       º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+static unsigned char tick_count = 0;
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                     Private Function Implementation                 º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                          etherdev_reg_write()                       º
+    º                                                                     º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+static void etherdev_reg_write(unsigned char reg, unsigned char wr_data)
+{
+    // Select register address.
+    ETH_ADDR_PORT &= ~ETH_ADDR_PORT_MASK; 
+    ETH_ADDR_PORT |= reg;
+
+    // Output register data to port.
+    ETH_DATA_PORT = wr_data;
+
+    // Clock register data into RTL8019AS.
+    // IOR & IOW are both active low.
+	NICE = 0;
+    IOW = 0;
+    IOW = 1;
+	NICE = 1;
+
+    // Set register data port as input again.
+    ETH_DATA_PORT = ETH_DATA_PORT_MASK;
+
+    return;
+} 
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                          etherdev_reg_read()                        º
+    º                                                                     º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+static unsigned char etherdev_reg_read(unsigned char reg)
+{
+    unsigned char rd_data;
+
+    // Select register address.
+    ETH_ADDR_PORT &= ~ETH_ADDR_PORT_MASK;
+    ETH_ADDR_PORT |= reg;
+
+    // Enable register data output from RTL8019AS.
+	NICE = 0;
+    IOR = 0;
+
+    // Read register data from port.
+    rd_data = ETH_DATA_PORT;
+
+    // Disable register data output from RTL8019AS.
+    IOR = 1; 
+	NICE = 1;   
+
+    return rd_data;
+} 
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                          etherdev_delay_ms()                        º
+    º                                                                     º
+    º  1 to 255+ ms delay.                                                º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+static void etherdev_delay_ms(unsigned int count)
+{
+
+    for(count *= ETH_DELAY_MULTPLR; count > 0; count--) continue;
+
+    return;
+}
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                           etherdev_timer0_isr()                     º
+    º                                                                     º
+    º This function is invoked each 1/24th of a second and updates a      º
+    º 1/24th of a second tick counter.                                    º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+static void etherdev_timer0_isr(void) interrupt 1 using 1
+{
+    // Reload timer/ counter 0 for 24Hz periodic interrupt.   
+    TH0 = ETH_T0_RELOAD >> 8;
+    TL0 = ETH_T0_RELOAD;
+
+    // Increment 24ths of a second counter.
+    tick_count++;
+
+    return;
+}
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                     Public Function Implementation                  º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                            etherdev_init()                          º
+    º                                                                     º
+    º  Returns: 1 on success, 0 on failure.                               º
+    º  Refer to National Semiconductor DP8390 App Note 874, July 1993.    º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+bit etherdev_init(void)
+{
+    // Set IOR & IOW as they're active low.
+    IOR = 1;
+    IOW = 1;
+	NICE = 1;
+
+    // Set register data port as input.
+    ETH_DATA_PORT = ETH_DATA_PORT_MASK;
+
+#ifdef ETH_DEBUG
+    init_sio_poll();
+#endif /* ETH_DEBUG */
+
+    // Configure RTL8019AS ethernet controller.
+
+    // Keil startup code takes 4ms to execute (18.432MHz, X1 mode).
+    // That leaves plenty of time for the RTL8019AS to read it's
+    // configuration in from the 9346 EEPROM before we get here.
+
+    // Select RTL8019AS register page 0.
+    ETHERDEV_SELECT_REG_PAGE(0);
+
+    // Check if RTL8019AS fully reset.
+    if(!(etherdev_reg_read(ISR) & RST))
+    {
+leds1 = ~0xff;
+leds2 = ~0xff;
+while(1);
+        return 0;
+    }
+/*
+    // Select RTL8019AS register page 3.
+    ETHERDEV_SELECT_REG_PAGE(3);
+
+    // Temporarily disable config register write protection.
+    etherdev_reg_write(_9346CR, EEM1 | EEM0);
+
+    // Disable boot ROM & select 10BaseT with TP/CX auto-detect.
+    etherdev_reg_write(CONFIG2, BSELB);
+
+    // Select half-duplex, awake, power-up & LED_TX/ LED_RX/ LED_LNK behaviour.
+    etherdev_reg_write(CONFIG3, LEDS0);
+
+    // Re-enable config register write protection.
+    etherdev_reg_write(_9346CR, 0x00);
+*/
+    // Select RTL8019AS register page 0.
+    ETHERDEV_SELECT_REG_PAGE(0);
+
+    // Stop RTL8019AS, select page 0 and abort DMA operation.
+    etherdev_reg_write(CR, RD2 | STP);
+
+    // Initialise data configuration register. 
+    // FIFO threshold 8 bytes, no loopback, don't use auto send packet.
+    etherdev_reg_write(DCR, FT1 | LS);
+
+    // Reset remote byte count registers.
+    etherdev_reg_write(RBCR0, 0x00);
+    etherdev_reg_write(RBCR1, 0x00);
+
+    // Receive configuration register to monitor mode.
+    etherdev_reg_write(RCR, MON);
+
+    // Initialise transmit configuration register to loopback internally.
+    etherdev_reg_write(TCR, LB0);
+
+    // Clear interrupt status register bits by writing 1 to each.
+    etherdev_reg_write(ISR, 0xFF);
+
+    // Mask all interrupts in mask register.
+    etherdev_reg_write(IMR, 0x00);
+
+	// Obtengo MAC de la placa
+    //etherdev_reg_write(CR, 0x21);
+
+
+    // Set transmit page start.
+    etherdev_reg_write(TPSR, ETH_TX_PAGE_START);
+
+    // Set receive buffer page start.
+    etherdev_reg_write(PSTART, ETH_RX_PAGE_START);
+
+    // Initialise last receive buffer read pointer.
+    etherdev_reg_write(BNRY, ETH_RX_PAGE_START);
+
+    // Set receive buffer page stop.
+    etherdev_reg_write(PSTOP, ETH_RX_PAGE_STOP);
+
+    // Select RTL8019AS register page 1.
+    etherdev_reg_write(CR, RD2 | PS0 | STP);
+
+    // Initialise current packet receive buffer page pointer
+    etherdev_reg_write(CURR, ETH_RX_PAGE_START);
+
+    // Set physical address
+    etherdev_reg_write(PAR0, 0x00);
+    etherdev_reg_write(PAR1, 0x0c);
+    etherdev_reg_write(PAR2, 0x6e);
+    etherdev_reg_write(PAR3, 0x37);
+    etherdev_reg_write(PAR4, 0x19);
+    etherdev_reg_write(PAR5, 0xbe);
+
+    // Select RTL8019AS register page 0 and abort DMA operation.
+    etherdev_reg_write(CR, RD2 | STP);
+
+    // Restart RTL8019AS. 
+    etherdev_reg_write(CR, RD2 | STA);
+
+    // Initialise transmit configuration register for normal operation.
+    etherdev_reg_write(TCR, 0x00);
+
+    // Receive configuration register to accept broadcast packets.
+    etherdev_reg_write(RCR, AB);
+
+
+    // Initialize Timer 0 to generate a periodic 24Hz interrupt. 
+
+    // Stop timer/ counter 0.                                         
+    TR0  = 0;          
+
+    // Set timer/ counter 0 as mode 1 16 bit timer.      
+    TMOD &= 0xF0;
+    TMOD |= 0x01;
+
+    // Preload for 24Hz periodic interrupt.    
+    TH0 = ETH_T0_RELOAD >> 8; 
+    TL0 = ETH_T0_RELOAD;
+
+    // Restart timer/ counter 0 running.
+    TR0 = 1;
+
+    // Enable timer/ counter 0 overflow interrupt.            
+    ET0 = 1;
+
+    // Enable global interrupt.
+    EA = 1;
+
+    return 1;
+}
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                           etherdev_send()                           º
+    º                                                                     º
+    º Send the packet in the uip_buf and uip_appdata buffers using the    º
+    º RTL8019AS ethernet card.                                            º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+void etherdev_send(void)
+{
+    unsigned int i;
+    unsigned char *ptr;
+
+    ptr = uip_buf;
+
+    // Setup for DMA transfer from uip_buf & uip_appdata buffers to RTL8019AS.
+
+    // Select RTL8019AS register page 0 and abort DMA operation.
+    etherdev_reg_write(CR, RD2 | STA);
+
+leds1 = ~0x01;
+i = etherdev_reg_read(CR);
+leds2 = ~i;
+    // Wait until pending transmit operation completes.
+    while(etherdev_reg_read(CR) & TXP) continue;
+
+    // Clear remote DMA complete interrupt status register bit.
+    etherdev_reg_write(ISR, RDC);
+
+    // Set remote DMA start address registers to indicate where to load packet.
+    etherdev_reg_write(RSAR0, 0x00);
+    etherdev_reg_write(RSAR1, ETH_TX_PAGE_START);
+
+    // Set remote DMA byte count registers to indicate length of packet load.
+    etherdev_reg_write(RBCR0, (unsigned char)(uip_len & 0xFF));
+    etherdev_reg_write(RBCR1, (unsigned char)(uip_len >> 8));
+
+    // Initiate DMA transfer of uip_buf & uip_appdata buffers to RTL8019AS.
+    etherdev_reg_write(CR, RD1 | STA);
+
+    // DMA transfer packet from uip_buf & uip_appdata to RTL8019AS local
+    // transmit buffer memory.
+    for(i = 0; i < uip_len; i++)
+    {
+        etherdev_reg_write(RDMA, *ptr++);
+    }
+
+    // Wait until remote DMA operation complete.
+leds1 = ~0x02;
+leds2 = ~etherdev_reg_read(ISR);
+    while(!(etherdev_reg_read(ISR) & RDC)) continue;
+
+    // Abort/ complete DMA operation.
+    etherdev_reg_write(CR, RD2 | STA);
+
+    // Set transmit page start to indicate packet start.
+    etherdev_reg_write(TPSR, ETH_TX_PAGE_START);
+
+    // Ethernet packets must be > 60 bytes, otherwise are rejected as runts.
+    if(uip_len < ETH_MIN_PACKET_LEN)
+    {
+        uip_len = ETH_MIN_PACKET_LEN;
+    }
+
+    // Set transmit byte count registers to indicate packet length.
+    etherdev_reg_write(TBCR0, (unsigned char)(uip_len & 0xFF));
+    etherdev_reg_write(TBCR1, (unsigned char)(uip_len >> 8));
+
+    // Issue command for RTL8019AS to transmit packet from it's local buffer.
+    etherdev_reg_write(CR, RD2 | TXP | STA);
+
+    return;
+}
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                           etherdev_read()                           º
+    º                                                                     º
+    º This function will read an entire IP packet into the uip_buf.       º
+    º If it must wait for more than 0.5 seconds, it will return with      º
+    º the return value 0. Otherwise, when a full packet has been read     º
+    º into the uip_buf buffer, the length of the packet is returned.      º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+unsigned int etherdev_read(void)
+{    
+    unsigned int bytes_read;
+
+    /* tick_count threshold should be 12 for 0.5 sec bail-out
+       One second (24) worked better for me, but socket recycling
+       is then slower. I set UIP_TIME_WAIT_TIMEOUT 60 in uipopt.h
+       to counter this. Retransmission timing etc. is affected also. */
+    while ((!(bytes_read = etherdev_poll())) && (tick_count < 12)) continue;
+
+    tick_count = 0;
+
+    return bytes_read;
+}
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                           etherdev_poll()                           º
+    º                                                                     º
+    º Poll the RTL8019AS ethernet device for an available packet.         º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+static unsigned int etherdev_poll(void)
+{
+    unsigned int len = 0;
+
+    // Check if there is a packet in the rx buffer.
+    if(etherdev_reg_read(ISR) & PRX)
+    {
+        // Check if the rx buffer has overflowed.
+        if(etherdev_reg_read(ISR) & OVW)
+        {
+            bit retransmit = 0;
+
+            // If the receive buffer ring has overflowed we dump the whole
+            // thing and start over. There is no way of knowing whether the
+            // data it contains is uncorrupted, or will cause us grief.
+
+            // Stop RTL8019AS and abort DMA operation.
+            etherdev_reg_write(CR, RD2 | STP);
+
+            // Reset remote byte count registers.
+            etherdev_reg_write(RBCR0, 0x00);
+            etherdev_reg_write(RBCR1, 0x00);
+
+            // Wait for controller to halt after any current tx completes.
+            while(!(etherdev_reg_read(ISR) & RST)) continue;
+
+            // Check whether currently transmitting a packet.
+            if(etherdev_reg_read(CR) & TXP)
+            {
+                // If neither a successful transmission nor a tx abort error 
+                // has occured, then flag current tx packet for resend.
+                if(!((etherdev_reg_read(ISR) & PTX)
+                                          || (etherdev_reg_read(ISR) & TXE)))
+                {
+                    retransmit = 1;
+                }
+            }
+
+            // Set transmit configuration register to loopback internally.
+            etherdev_reg_write(TCR, LB0);
+
+            // Restart the RTL8019AS.
+            etherdev_reg_write(CR, RD2 | STA);
+
+            // Re-initialise last receive buffer read pointer.
+            etherdev_reg_write(BNRY, ETH_RX_PAGE_START);
+
+            // Select RTL8019AS register page 1.
+            ETHERDEV_SELECT_REG_PAGE(1);
+
+            // Re-initialise current packet receive buffer page pointer.
+            etherdev_reg_write(CURR, ETH_RX_PAGE_START);
+
+            // Select RTL8019AS register page 0.
+            ETHERDEV_SELECT_REG_PAGE(0);
+
+            // Clear rx buffer overflow & packet received interrupt flags.
+            etherdev_reg_write(ISR, PRX | OVW);
+
+            // Re-itialise transmit configuration reg for normal operation.
+            etherdev_reg_write(TCR, 0x00);
+        
+            if(retransmit)
+            {
+                // Retransmit packet in RTL8019AS local tx buffer.
+                etherdev_reg_write(CR, RD2 | TXP | STA);
+            }
+        }
+        else // Rx buffer has not overflowed, so read a packet into uip_buf.
+        {
+            unsigned int i;
+            unsigned char next_rx_packet;
+            unsigned char current;
+
+            // Retrieve packet header. (status, next_ptr, length_l, length_h)
+
+            // Clear remote DMA complete interrupt status register bit.
+            etherdev_reg_write(ISR, RDC);
+
+            // Set remote DMA start address registers to packet header.
+            etherdev_reg_write(RSAR0, 0x00);
+            etherdev_reg_write(RSAR1, etherdev_reg_read(BNRY));
+
+            // Set remote DMA byte count registers to packet header length.
+            etherdev_reg_write(RBCR0, 0x04);
+            etherdev_reg_write(RBCR1, 0x00);
+
+            // Initiate DMA transfer of packet header.
+            etherdev_reg_write(CR, RD0 | STA);
+
+            // Drop packet status. We don't use it.
+            etherdev_reg_read(RDMA);
+
+            // Save next packet pointer.
+            next_rx_packet = etherdev_reg_read(RDMA);
+
+            // Retrieve packet data length and subtract CRC bytes.
+            len =  etherdev_reg_read(RDMA);
+            len += etherdev_reg_read(RDMA) << 8;
+            len -= 4;
+
+            // Wait until remote DMA operation completes.
+            while(!(etherdev_reg_read(ISR) & RDC)) continue;
+
+            // Abort/ complete DMA operation.
+            etherdev_reg_write(CR, RD2 | STA);
+
+
+            // Retrieve packet data.
+
+            // Check if incoming packet will fit into rx buffer.
+            if(len <= sizeof(uip_buf))
+            {
+                // Clear remote DMA complete interrupt status register bit.
+                etherdev_reg_write(ISR, RDC);
+
+                // Set remote DMA start address registers to packet data.
+                etherdev_reg_write(RSAR0, 0x04);
+                etherdev_reg_write(RSAR1, etherdev_reg_read(BNRY));
+
+                // Set remote DMA byte count registers to packet data length.
+                etherdev_reg_write(RBCR0, (unsigned char)(len & 0xFF));
+                etherdev_reg_write(RBCR1, (unsigned char)(len >> 8));
+
+                // Initiate DMA transfer of packet data.
+                etherdev_reg_write(CR, RD0 | STA);
+
+                // Read packet data directly into uip_buf.
+                for(i = 0; i < len; i++)
+                {
+                    *(uip_buf + i) = etherdev_reg_read(RDMA);
+                }
+
+                // Wait until remote DMA operation complete.
+                while(!(etherdev_reg_read(ISR) & RDC)) continue;
+
+                // Abort/ complete DMA operation.
+                etherdev_reg_write(CR, RD2 | STA);
+
+            }
+            else
+            {
+                // Incoming packet too big, so dump it.
+                len = 0;
+            }
+
+            // Advance boundary pointer to next packet start.
+            etherdev_reg_write(BNRY, next_rx_packet);
+
+            // Select RTL8019AS register page 1.
+            ETHERDEV_SELECT_REG_PAGE(1);
+
+            // Retrieve current receive buffer page
+            current = etherdev_reg_read(CURR);
+
+            // Select RTL8019AS register page 0.
+            ETHERDEV_SELECT_REG_PAGE(0);
+
+            // Check if last packet has been removed from rx buffer.
+            if(next_rx_packet == current)
+            {
+                // Clear packet received interrupt flag.
+                etherdev_reg_write(ISR, PRX);
+            }
+        }
+    }
+
+    return len;
+}
+
+
+
+
+
+
+
+
diff --git a/pruebas/keil/red_test_anda/etherdev.h b/pruebas/keil/red_test_anda/etherdev.h
new file mode 100644
index 0000000..ce0aef9
--- /dev/null
+++ b/pruebas/keil/red_test_anda/etherdev.h
@@ -0,0 +1,297 @@
+/*       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+         º    TITLE:  RTL8019AS ethernet routines for 8051 and      º
+         º            Keil C51 v7.00 port of Adam Dunkels' uIP v0.9 º
+         º FILENAME:  etherdev.h                                    º
+         º REVISION:  VER 0.0                                       º
+         º REV.DATE:  21-01-05                                      º
+         º  ARCHIVE:                                                º
+         º   AUTHOR:  Copyright (c) 2005, Murray R. Van Luyn.       º
+         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ        */
+
+/*  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
+    ³  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS  ³ 
+    ³  OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED  ³ 
+    ³  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ³ 
+    ³  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY    ³ 
+    ³  DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ³ 
+    ³  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE  ³ 
+    ³  GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS      ³ 
+    ³  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,       ³ 
+    ³  WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING          ³ 
+    ³  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ³ 
+    ³  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.       ³ 
+    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  */
+
+
+#ifndef ETHERDEV_H
+#define ETHERDEV_H
+
+#include "REG51.h"
+
+extern unsigned char uip_buf[64];
+extern unsigned int uip_len;
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                             Public defines.                         º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+// Change ETH_CPU_XTAL to match hardware
+#define ETH_CPU_XTAL       24000000             // 8051 crystal freq in Hz
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º            ISA Expansion slot signal to 8051 port mapping.          º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+#define ETH_DATA_PORT P2     // Adjust this to suit hardware.
+#define ETH_ADDR_PORT P1     // Adjust this to suit hardware.
+#define ETH_CTRL_PORT P3     // Adjust this to suit hardware.
+sbit IOW = ETH_CTRL_PORT^4;  // ISA slot pin B13, RTL8019AS pin 30, active low
+sbit IOR = ETH_CTRL_PORT^5;  // ISA slot pin B14, RTL8019AS pin 29, active low
+sbit NICE = ETH_CTRL_PORT^2; // A7, usado para activar placa de red
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                   Required additional ISA slot wiring.              º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+//      SD0   ETH_DATA_PORT^0  // ISA slot pin A9,  RTL8019AS pin 36
+//      SD1   ETH_DATA_PORT^1  // ISA slot pin A8,  RTL8019AS pin 37
+//      SD2   ETH_DATA_PORT^2  // ISA slot pin A7,  RTL8019AS pin 38
+//      SD3   ETH_DATA_PORT^3  // ISA slot pin A6,  RTL8019AS pin 39
+//      SD4   ETH_DATA_PORT^4  // ISA slot pin A5,  RTL8019AS pin 40
+//      SD5   ETH_DATA_PORT^5  // ISA slot pin A4,  RTL8019AS pin 41
+//      SD6   ETH_DATA_PORT^6  // ISA slot pin A3,  RTL8019AS pin 42
+//      SD7   ETH_DATA_PORT^7  // ISA slot pin A2,  RTL8019AS pin 43
+//      SA0   ETH_ADDR_PORT^0  // ISA slot pin A31, RTL8019AS pin 5
+//      SA1   ETH_ADDR_PORT^1  // ISA slot pin A30, RTL8019AS pin 7
+//      SA2   ETH_ADDR_PORT^2  // ISA slot pin A29, RTL8019AS pin 8
+//      SA3   ETH_ADDR_PORT^3  // ISA slot pin A28, RTL8019AS pin 9
+//      SA4   ETH_ADDR_PORT^4  // ISA slot pin A27, RTL8019AS pin 10
+//      SA5   GND              // ISA slot pin A26, RTL8019AS pin 11
+//      SA6   GND              // ISA slot pin A25, RTL8019AS pin 12
+//      SA7   GND              // ISA slot pin A24, RTL8019AS pin 13
+//      SA8   +5V              // ISA slot pin A23, RTL8019AS pin 15
+//      SA9   +5V              // ISA slot pin A22, RTL8019AS pin 16
+//      SA10  GND              // ISA slot pin A21, RTL8019AS pin 18
+//      SA11  GND              // ISA slot pin A20, RTL8019AS pin 19
+//      SA12  GND              // ISA slot pin A19, RTL8019AS pin 20
+//      SA13  GND              // ISA slot pin A18, RTL8019AS pin 21
+//      SA14  GND              // ISA slot pin A17, RTL8019AS pin 22
+//      SA15  GND              // ISA slot pin A16, RTL8019AS pin 23
+//      SA16  GND              // ISA slot pin A15, RTL8019AS pin 24
+//      SA17  GND              // ISA slot pin A14, RTL8019AS pin 25
+//      SA18  GND              // ISA slot pin A13, RTL8019AS pin 26
+//      SA19  GND              // ISA slot pin A12, RTL8019AS pin 27
+//      AEN   GND              // ISA slot pin A11, RTL8019AS pin 34
+//      SMEMW +5V              // ISA slot pin B11, RTL8019AS pin 32
+//      SMEMR +5V              // ISA slot pin B12, RTL8019AS pin 31
+//      GND   GND              // ISA slot pin B1
+//     +5VDC  +5V              // ISA slot pin B3
+//      GND   GND              // ISA slot pin B31
+//     +5VDC  +5V              // ISA slot pin B29
+//     RESET   ?               // ISA slot pin B2, active high reset input
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                 ISA 16 bit expansion slot edge connector.           º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+
+//       ³                ÚÄÄÄÄÄ¿                                     ³
+//       ³C18           C1³     ³A31         Component side         A1³
+//       ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;     ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ; 
+//        D18           D1       B31          Solder side           B1
+
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                        RTL8019AS Register defines.                  º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+
+// Register base address
+#define ETH_REG_BASE 0x0000                // Hardwired to 0x0300
+
+// Registers common to all pages.
+#define CR           ETH_REG_BASE + 0x00   // Control register
+    // Control register bits
+    #define PS1      0x80                  // Page select bit 1
+    #define PS0      0x40                  // Page select bit 0
+    #define RD2      0x20                  // Remote DMA control bit 2
+    #define RD1      0x10                  // Remote DMA control bit 1
+    #define RD0      0x08                  // Remote DMA control bit 0
+    #define TXP      0x04                  // Transmit packet bit
+    #define STA      0x02                  // Start bit (a flag only)
+    #define STP      0x01                  // Stop bit transceiver ctrl
+#define RDMA         0x10                  // Remote DMA port
+#define RESET        0x18                  // Reset port
+
+// Page 0 read/write registers.
+#define BNRY         ETH_REG_BASE + 0x03   // Boundary register
+#define ISR          ETH_REG_BASE + 0x07   // Interrupt status register
+    // Interrupt status register bits
+    #define RST      0x80                  // Reset state indicator bit
+    #define RDC      0x40                  // Remote DMA complete bit
+    #define CNT      0x20                  // Network tally counter MSB set
+    #define OVW      0x10                  // Receive buffer exhausted
+    #define TXE      0x08                  // Transmit abort error bit
+    #define RXE      0x04                  // Receive error report bit
+    #define PTX      0x02                  // Successful packet transmit
+    #define PRX      0x01                  // Successful packet receive
+
+// Page 0 read only registers.
+#define CLDA0        ETH_REG_BASE + 0x01
+#define CLDA1        ETH_REG_BASE + 0x02
+#define TSR          ETH_REG_BASE + 0x04
+#define NCR          ETH_REG_BASE + 0x05
+#define FIFO         ETH_REG_BASE + 0x06
+#define CRDA0        ETH_REG_BASE + 0x08
+#define CRDA1        ETH_REG_BASE + 0x09
+#define _8019ID0     ETH_REG_BASE + 0x0A
+#define _8019ID1     ETH_REG_BASE + 0x0B
+#define RSR          ETH_REG_BASE + 0x0C
+#define CNTR0        ETH_REG_BASE + 0x0D
+#define CNTR1        ETH_REG_BASE + 0x0E
+#define CNTR2        ETH_REG_BASE + 0x0F
+
+// Page 0 write only registers.
+#define PSTART       ETH_REG_BASE + 0x01   // Receive page start register
+#define PSTOP        ETH_REG_BASE + 0x02   // Receive page stop register
+#define TPSR         ETH_REG_BASE + 0x04   // Transmit page start register
+#define TBCR0        ETH_REG_BASE + 0x05   // Transmit byte count register 0
+#define TBCR1        ETH_REG_BASE + 0x06   // Transmit byte count register 1
+#define RSAR0        ETH_REG_BASE + 0x08   // Remote start address register 0
+#define RSAR1        ETH_REG_BASE + 0x09   // Remote start address register 0
+#define RBCR0        ETH_REG_BASE + 0x0A   // Remote byte count register 0
+#define RBCR1        ETH_REG_BASE + 0x0B   // Remote byte count register 1
+#define RCR          ETH_REG_BASE + 0x0C   // Receive configuration register
+    // Receive configuration register bits (write in page 0, read in page 2)
+    #define MON      0x20                  // Monitor mode select bit
+    #define PRO      0x10                  // Promiscuous mode select bit
+    #define AM       0x08                  // Multicast packet accept bit
+    #define AB       0x04                  // Broadcast packet accept bit
+    #define AR       0x02                  // Runt packet accept bit
+    #define SEP      0x01                  // Error packet accept bit
+#define TCR          ETH_REG_BASE + 0x0D   // Transmit configuration register
+    // Transmit configuration register bits
+    #define OFST     0x10                  // Collision offset enable bit
+    #define ATD      0x08                  // Auto transmit disable select bit
+    #define LB1      0x04                  // Loopback mode select bit 1
+    #define LB0      0x02                  // Loopback mode select bit 0
+    #define CRC      0x01                  // CRC generation inhibit bit
+#define DCR          ETH_REG_BASE + 0x0E   // Data configuration register
+    // Data configuration register bits (write in page 0, read in page 2)
+    #define FT1      0x40                  // FIFO threshold select bit 1
+    #define FT0      0x20                  // FIFO threshold select bit 0
+    #define ARM      0x10                  // Auto-initialise remote
+    #define LS       0x08                  // Loopback select bit
+    #define LAS      0x04                  // Set to 0 (pwrup = 1)
+    #define BOS      0x02                  // Byte order select bit
+    #define WTS      0x01                  // Word transfer select bit
+#define IMR          ETH_REG_BASE + 0x0F   // Interrupt mask register
+    // Interrupt mask register bits
+    // Each enable bit correspons with an interrupt flag in ISR
+
+// Page 1 read/write registers.
+#define PAR0         ETH_REG_BASE + 0x01   // Physical address register 0
+#define PAR1         ETH_REG_BASE + 0x02   // Physical address register 1
+#define PAR2         ETH_REG_BASE + 0x03   // Physical address register 2
+#define PAR3         ETH_REG_BASE + 0x04   // Physical address register 3
+#define PAR4         ETH_REG_BASE + 0x05   // Physical address register 4
+#define PAR5         ETH_REG_BASE + 0x06   // Physical address register 5
+#define CURR         ETH_REG_BASE + 0x07   // Current receive buffer page
+#define MAR0         ETH_REG_BASE + 0x08
+#define MAR1         ETH_REG_BASE + 0x09
+#define MAR2         ETH_REG_BASE + 0x0A
+#define MAR3         ETH_REG_BASE + 0x0B
+#define MAR4         ETH_REG_BASE + 0x0C
+#define MAR5         ETH_REG_BASE + 0x0D
+#define MAR6         ETH_REG_BASE + 0x0E
+#define MAR7         ETH_REG_BASE + 0x0F
+
+// Page 2 read only registers.
+// Each previously defined in page 0 write only.
+//#define PSTART     ETH_REG_BASE + 0x01
+//#define PSTOP      ETH_REG_BASE + 0x02
+//#define TPSR       ETH_REG_BASE + 0x04
+//#define RCR        ETH_REG_BASE + 0x0C
+//#define TCR        ETH_REG_BASE + 0x0D
+//#define DCR        ETH_REG_BASE + 0x0E
+//#define IMR        ETH_REG_BASE + 0x0F
+
+// Page 3 read/write registers.
+#define _9346CR      ETH_REG_BASE + 0x01   // 9346 EEPROM command register
+    // 9346 EEPROM command register bits
+    #define EEM1     0x80                  // RTL8019AS operating mode bit 1
+    #define EEM0     0x40                  // RTL8019AS operating mode bit 0
+    #define EECS     0x08                  // 9346 EEPROM chip select bit
+    #define EESK     0x04                  // 9346 EEPROM serial clock bit
+    #define EEDI     0x02                  // 9346 EEPROM data input bit
+    #define EEDO     0x01                  // 9346 EEPROM data output bit
+#define BPAGE        ETH_REG_BASE + 0x02
+#define CONFIG1      ETH_REG_BASE + 0x04   // RTL9019AS config register 1
+    // RTL9019AS config register 1 bits
+    #define IRQEN    0x80                  // IRQ enable bit (WR protected)
+    #define IRQS2    0x40                  // IRQ line select bit 2
+    #define IRQS1    0x20                  // IRQ line select bit 1
+    #define IRQS0    0x10                  // IRQ line select bit 0
+    #define IOS3     0x08                  // I/O base address select bit 3
+    #define IOS2     0x04                  // I/O base address select bit 2
+    #define IOS1     0x02                  // I/O base address select bit 1
+    #define IOS0     0x01                  // I/O base address select bit 0
+#define CONFIG2      ETH_REG_BASE + 0x05   // 
+    // RTL9019AS config register 2 bits
+    #define PL1      0x80                  // Network medium type select bit 1
+    #define PL0      0x40                  // Network medium type select bit 0
+    #define BSELB    0x20                  // Boot ROM disable (WR protected)
+    #define BS4      0x10                  // Boot ROM configuration bit 4
+    #define BS3      0x08                  // Boot ROM configuration bit 3
+    #define BS2      0x04                  // Boot ROM configuration bit 2
+    #define BS1      0x02                  // Boot ROM configuration bit 1
+    #define BS0      0x01                  // Boot ROM configuration bit 0
+#define CONFIG3      ETH_REG_BASE + 0x06   // RTL9019AS config register 3
+    // RTL9019AS config register 3 bits
+    #define PNP      0x80                  // Plug & play mode indicator bit
+    #define FUDUP    0x40                  // Full duplex mode select bit
+    #define LEDS1    0x20                  // LED output select bit 1
+    #define LEDS0    0x10                  // LED output select bit 0
+    #define SLEEP    0x04                  // Sleep mode select bit
+    #define PWRDN    0x02                  // Power down mode select bit
+    #define ACTIVEB  0x01                  // Inverse of bit 0, PNP active reg
+
+// Page 3 read only registers.
+#define CONFIG0      ETH_REG_BASE + 0x03   // RTL9019AS config register 0
+    // RTL9019AS config register 0 bits
+    #define VERID1   0x80                  // RTL9019AS version ID bit 1 (R/W)
+    #define VERID0   0x40                  // RTL9019AS version ID bit 0 (R/W)
+    #define AUI      0x20                  // AUI input pin state bit
+    #define PNPJP    0x10                  // PNP jumper pin state bit
+    #define JP       0x08                  // JP input pin state bit
+    #define BNC      0x04                  // Thinnet mode indication bit
+#define CSNSAV       ETH_REG_BASE + 0x08
+#define INTR         ETH_REG_BASE + 0x0B
+#define CONFIG4      ETH_REG_BASE + 0x0D
+
+// Page 3 write only registers.
+#define TEST         ETH_REG_BASE + 0x07
+#define HLTCLK       ETH_REG_BASE + 0x09
+#define FMWP         ETH_REG_BASE + 0x0C
+
+
+
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                        Public Function Prototypes                   º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+bit etherdev_init(void);
+void etherdev_send(void);
+unsigned int etherdev_read(void);
+
+#endif
diff --git a/pruebas/keil/red_test_anda/main.c b/pruebas/keil/red_test_anda/main.c
new file mode 100644
index 0000000..e7cc4e6
--- /dev/null
+++ b/pruebas/keil/red_test_anda/main.c
@@ -0,0 +1,85 @@
+/*       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+         º    TITLE:  Keil C51 v7.00 port of Adam Dunkels' uIP v0.9 º
+         º REVISION:  VER 0.1                                       º
+         º REV.DATE:  30-01-05                                      º
+         º  ARCHIVE:                                                º
+         º   AUTHOR:  Murray R. Van Luyn, 2005.                     º
+         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ        */
+
+/*  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
+    ³  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS  ³ 
+    ³  OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED  ³ 
+    ³  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ³ 
+    ³  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY    ³ 
+    ³  DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ³ 
+    ³  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE  ³ 
+    ³  GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS      ³ 
+    ³  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,       ³ 
+    ³  WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING          ³ 
+    ³  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ³ 
+    ³  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.       ³ 
+    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  */
+
+#include "main.h"
+
+static xdata leds1 _at_ 0x0080;
+static xdata leds2 _at_ 0x00c0;
+
+void sleep(unsigned char times)
+{
+	unsigned int i;
+	unsigned char j;
+	for (i = 0; i < 0xffff; ++i)
+		for (j = 0; j < times; ++j);
+}
+
+/*  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+    º                                                                     º
+    º                                  main()                             º
+    º                                                                     º
+    º Simple Web Server test application.                                 º
+    º                                                                     º
+    º                                                                     º
+    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ  */
+void main(void)
+{
+	unsigned int len;
+	leds1 = ~0x00;
+	leds2 = ~0x00;
+	sleep(3);
+    /* Initialise the device driver. */ 
+    if (!etherdev_init())
+		while(1); // Si falla init nos quedamos bobos
+
+    etherdev_send();
+	leds1 = ~0xaa;
+	leds2 = ~0xaa;
+
+
+	// leemos
+do
+{
+	len = etherdev_read();
+	if (len)
+	{
+		leds1 = ~0x55;
+		leds2 = len;
+		sleep(2);
+		for (len = 0; len < uip_len; ++len)
+		{
+			leds1 = ~(1 << (len % 8));
+			leds2 = ~uip_buf[len];
+			sleep(5);
+		}
+		leds1 = ~0x55;
+		leds2 = ~0x55;
+	}
+	else
+	{
+		leds1 = ~0xff;
+		leds2 = ~0xff;
+	}
+}
+while (1); // Quedamos paveando forever
+}
+
diff --git a/pruebas/keil/red_test_anda/main.h b/pruebas/keil/red_test_anda/main.h
new file mode 100644
index 0000000..33962c0
--- /dev/null
+++ b/pruebas/keil/red_test_anda/main.h
@@ -0,0 +1,33 @@
+/*       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
+         º    TITLE:  Keil C51 v7.00 port of Adam Dunkels' uIP v0.9 º
+         º REVISION:  VER 0.0                                       º
+         º REV.DATE:  30-01-05                                      º
+         º  ARCHIVE:                                                º
+         º   AUTHOR:  Murray R. Van Luyn, 2005.                     º
+         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ        */
+
+/*  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
+    ³  THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS  ³ 
+    ³  OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED  ³ 
+    ³  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ³ 
+    ³  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY    ³ 
+    ³  DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL ³ 
+    ³  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE  ³ 
+    ³  GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS      ³ 
+    ³  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,       ³ 
+    ³  WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING          ³ 
+    ³  NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ³ 
+    ³  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.       ³ 
+    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  */
+
+
+#ifndef MAIN_H
+#define MAIN_H
+
+#include "etherdev.h"
+
+#ifndef NULL
+#define NULL (void *)0
+#endif /* NULL */
+
+#endif /* MAIN_H */
diff --git a/pruebas/keil/red_test_anda/red.Uv2 b/pruebas/keil/red_test_anda/red.Uv2
new file mode 100644
index 0000000..e231975
--- /dev/null
+++ b/pruebas/keil/red_test_anda/red.Uv2
@@ -0,0 +1,127 @@
+### uVision2 Project, (C) Keil Software
+### Do not modify !
+
+Target (Target 1), 0x0000 // Tools: 'MCS-51'
+
+Group (Source Group 1)
+
+File 1,5,<.\etherdev.h><etherdev.h> 0x0 
+File 1,1,<.\etherdev.c><etherdev.c> 0x0 
+File 1,5,<.\main.h><main.h> 0x0 
+File 1,1,<.\main.c><main.c> 0x0 
+File 1,2,<.\STARTUP.A51><STARTUP.A51> 0x0 
+File 1,5,<.\REG51.H><REG51.H> 0x0 
+
+
+Options 1,0,0  // Target 'Target 1'
+ Device (AT89S8252)
+ Vendor (Atmel)
+ Cpu (IRAM(0-0xFF) IROM(0-0x1FFF) CLOCK(24000000) MODA2)
+ FlashUt ()
+ StupF ("LIB\STARTUP.A51" ("Standard 8051 Startup Code"))
+ FlashDR ()
+ DevID ()
+ Rgf (REG8252.H)
+ Mem ()
+ C ()
+ A ()
+ RL ()
+ OH ()
+ DBC_IFX ()
+ DBC_CMS ()
+ DBC_AMS ()
+ DBC_LMS ()
+ UseEnv=0
+ EnvBin ()
+ EnvInc ()
+ EnvLib ()
+ EnvReg (ÿAtmel\)
+ OrgReg (ÿAtmel\)
+ TgStat=16
+ OutDir (.\)
+ OutName (red)
+ GenApp=1
+ GenLib=0
+ GenHex=1
+ Debug=1
+ Browse=0
+ LstDir (.\)
+ HexSel=0
+ MG32K=0
+ TGMORE=0
+ RunUsr 0 0 <>
+ RunUsr 1 0 <>
+ BrunUsr 0 0 <>
+ BrunUsr 1 0 <>
+ SVCSID <>
+ MODEL5=0
+ RTOS5=0
+ ROMSZ5=2
+ DHOLD5=0
+ XHOLD5=0
+ T51FL=208
+ XT51FL=0
+ CBANKS5=0
+ XBANKS5=0
+ RCB51 { 0,0,0,0,0,255,255,0,0 }
+ RXB51 { 0,0,0,0,0,0,0,0,0 }
+ OCM51 { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
+ OCR51 { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
+ IRO51 { 1,0,0,0,0,0,32,0,0 }
+ IRA51 { 0,0,0,0,0,0,1,0,0 }
+ XRA51 { 0,0,0,0,0,0,0,0,0 }
+ XRA512 { 0,0,0,0,0,0,0,0,0 }
+ IROM512 { 0,0,0,0,0,0,0,0,0 }
+ C51FL=21630224
+ C51VA=0
+ C51MSC ()
+ C51DEF ()
+ C51UDF ()
+ INCC5 ()
+ AX51FL=4
+ AX51MSC ()
+ AX51SET ()
+ AX51RST ()
+ INCA5 ()
+ PropFld { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }
+ IncBld=1
+ AlwaysBuild=0
+ GenAsm=0
+ AsmAsm=0
+ PublicsOnly=0
+ StopCode=3
+ CustArgs ()
+ LibMods ()
+ BankNo=65535
+ LX51FL=300
+ LX51OVL ()
+ LX51MSC ()
+ LX51DWN ()
+ LX51LFI ()
+ LX51ASN ()
+ LX51RES ()
+ LX51CCL ()
+ LX51UCL ()
+ LX51CSC ()
+ LX51UCS ()
+ LX51COB ()
+ LX51XDB ()
+ LX51PDB ()
+ LX51BIB ()
+ LX51DAB ()
+ LX51IDB ()
+ LX51PRC ()
+ LX51STK ()
+ LX51COS ()
+ LX51XDS ()
+ LX51BIS ()
+ LX51DAS ()
+ LX51IDS ()
+  OPTDL (S8051.DLL)()(DP51.DLL)(-p8252)(S8051.DLL)()(TP51.DLL)(-p8252)
+  OPTDBG 48125,0,()()()()()()()()()() ()()()()
+ FLASH1 { 1,0,0,0,0,0,0,0,255,255,255,255,0,0,0,0,0,0,0,0 }
+ FLASH2 ()
+ FLASH3 ()
+ FLASH4 ()
+EndOpt
+
diff --git a/pruebas/keil/red_test_anda/red.plg b/pruebas/keil/red_test_anda/red.plg
new file mode 100644
index 0000000..db1be04
--- /dev/null
+++ b/pruebas/keil/red_test_anda/red.plg
@@ -0,0 +1,301 @@
+<html>
+<body>
+<pre>
+<h1>µVision3 Build Log</h1>
+<h2>Project:</h2>
+C:\Documents and Settings\labi\Mis documentos\6609\red\red.uv2
+Project File Date:  12/02/2005
+
+<h2>Output:</h2>
+Build target 'Target 1'
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=85.1 xdata=8 code=1303
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=85.1 xdata=8 code=1309
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=85.1 xdata=8 code=1309
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=85.1 xdata=8 code=1289
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=85.1 xdata=8 code=1309
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=85.1 xdata=8 code=1303
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+compiling etherdev.c...
+compiling main.c...
+MAIN.C(28): error C141: syntax error near '=', expected ')'
+MAIN.C(65): error C202: 'ip_len': undefined identifier
+MAIN.C(68): error C202: 'ip_buf': undefined identifier
+Target not created
+Build target 'Target 1'
+compiling main.c...
+MAIN.C(59): error C202: 'i': undefined identifier
+MAIN.C(60): error C202: 'i': undefined identifier
+MAIN.C(63): error C202: 'i': undefined identifier
+MAIN.C(65): error C202: 'i': undefined identifier
+MAIN.C(67): error C202: 'i': undefined identifier
+MAIN.C(68): error C202: 'i': undefined identifier
+Target not created
+Build target 'Target 1'
+compiling main.c...
+MAIN.C(65): error C202: 'ip_len': undefined identifier
+MAIN.C(68): error C202: 'ip_buf': undefined identifier
+Target not created
+Build target 'Target 1'
+compiling etherdev.c...
+compiling main.c...
+MAIN.C(65): error C202: 'ip_len': undefined identifier
+MAIN.C(68): error C202: 'ip_buf': undefined identifier
+assembling STARTUP.A51...
+Target not created
+Build target 'Target 1'
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=81.1 xdata=8 code=1464
+creating hex file from "red"...
+"red" - 0 Error(s), 3 Warning(s).
+Build target 'Target 1'
+"red" - 0 Error(s), 0 Warning(s).
+Build target 'Target 1'
+compiling etherdev.c...
+compiling main.c...
+MAIN.C(46): warning C280: 'len': unreferenced local variable
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=87.1 xdata=8 code=1372
+creating hex file from "red"...
+"red" - 0 Error(s), 5 Warning(s).
+Build target 'Target 1'
+compiling etherdev.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=87.1 xdata=8 code=1354
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+compiling etherdev.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=87.1 xdata=8 code=1301
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+"red" - 0 Error(s), 0 Warning(s).
+Build target 'Target 1'
+compiling etherdev.c...
+compiling main.c...
+MAIN.C(46): warning C280: 'len': unreferenced local variable
+assembling STARTUP.A51...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=87.1 xdata=8 code=1301
+creating hex file from "red"...
+"red" - 0 Error(s), 5 Warning(s).
+Build target 'Target 1'
+compiling main.c...
+MAIN.C(46): warning C280: 'len': unreferenced local variable
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=87.1 xdata=8 code=1301
+creating hex file from "red"...
+"red" - 0 Error(s), 5 Warning(s).
+Build target 'Target 1'
+compiling main.c...
+MAIN.C(46): warning C280: 'len': unreferenced local variable
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=87.1 xdata=8 code=1301
+creating hex file from "red"...
+"red" - 0 Error(s), 5 Warning(s).
+Build target 'Target 1'
+compiling etherdev.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?ETHERDEV_READ?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=87.1 xdata=8 code=1319
+creating hex file from "red"...
+"red" - 0 Error(s), 4 Warning(s).
+Build target 'Target 1'
+compiling etherdev.c...
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=81.1 xdata=8 code=1464
+creating hex file from "red"...
+"red" - 0 Error(s), 3 Warning(s).
+Build target 'Target 1'
+compiling main.c...
+linking...
+*** WARNING L16: UNCALLED SEGMENT, IGNORED FOR OVERLAY PROCESS
+    SEGMENT: ?PR?_ETHERDEV_DELAY_MS?ETHERDEV
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    0080H
+    TO:      0081H
+*** WARNING L6: XDATA SPACE MEMORY OVERLAP
+    FROM:    00C0H
+    TO:      00C1H
+Program Size: data=81.1 xdata=8 code=1465
+creating hex file from "red"...
+"red" - 0 Error(s), 3 Warning(s).
+Build target 'Target 1'
+"red" - 0 Error(s), 0 Warning(s).