proton ile internet haberleşmesi

[MCansız]

arkadaşlar proton ile ethernet haberleşmesi yapılabiliniyormu

internetten şöle bir uygulama buldum 

***********   

Gabi,

Thanks for all you have done. I seem to have a problem that maybe you can help with.

Then ENC28J60_Driver.Inc has NOT been modified

The only mods to the .BAS are I'm using a 18F452 not a 458 but they look the same except for the CAN stuff. I added a couple HRSOUT for debug

ESTAT_CLKRDY is never getting set so I'm stuck in the loop below forever

Code:
While ESTAT_CLKRDY = 0                      ; Loop until ESTAT_CLKRDY = 1
  ESTAT = READ_ETH_REGISTER ADR_ESTAT   ; so we know that the PHY module is ready
  Wend
I'm using a enc28J60 board from SparkFun.com
I do see SDI, SDO,CLK and CS on a scope

Code:
Device = 18F452                ' tested host was 18F458
XTAL = 20                      ' tested Xtal
UNSIGNED_DWORDS = On
ALL_DIGITAL = TRUE
HSERIAL_BAUD = 115200                ' Set baud rate
HSERIAL_RCSTA = %10110000              ' Enable serial port and continuous receive
HSERIAL_TXSTA = %00100100              ' Enable transmit and asynchronous mode
HSERIAL_CLEAR  = On   
Include "ENC28J60_Driver.Inc"  ' the driver file

;##############################################################################

; Continuous DEMO -- Polling Loop
; supports ARP reply, ICMP reply And UDP reply

;##############################################################################
DelayMS 100      ; some delay
HRSOut "start"
INIT_ENC28J60    ; initialise the ENC28J60
HRSOut "start"                                   '******I NEVER GET HERE
DelayMS 1000     ; some delay

; Example on how to read the Revision ID of your chip
; un-comment following 3 lines to test it
READ_ETH_CHIP_VERSION:
   EREVID = READ_MAC_REGISTER ADR_EREVID
   HRSOut "Testing EREVID",10,13
   HRSOut BIN8 EREVID," ", DEC5 EREVID

SIMPLE_LOOP:                                       ; continuous demo LOOP
          While 1 = 1                              ;
                EIR = READ_ETH_REGISTER  ADR_EIR   ; poll the interrupts flags
                If EIR_PKTIF = 1 Then              ; if there are new, un-processed packets in rx buffer
                   READ_RX_BUFS                    ; go parse them 
                EndIf 
          Wend
I'm using the .inc
* Date : 04-Dec-06 *
'* Version : 0.0.2.1


Any Ideas?
Thank you.

BU ENC28J60 İLE YAPILMIŞ ama bişi anlamadım
elinizde farklı örnekler varmı