mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-10 12:23:45 +00:00
Kernel version 0.9 : Investigating missed frames in TCP
This commit is contained in:
parent
36799257be
commit
d2ceda42bb
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.DEV.po
BIN
A2OSX.DEV.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
@ -51,12 +51,17 @@ Dev.Detect >STYA ARGS
|
|||||||
lda A2osX.SLOTS,y
|
lda A2osX.SLOTS,y
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
>LDYAI PP.ID
|
lda /PP.ID
|
||||||
>STYA PacketPagePTR,x
|
sta PacketPagePTR,x
|
||||||
>LDYA PacketPageDATA,x
|
lda #PP.ID
|
||||||
cpy #DEVID
|
sta PacketPagePTR+1,x
|
||||||
bne .2
|
|
||||||
|
lda PacketPageDATA,x
|
||||||
cmp /DEVID
|
cmp /DEVID
|
||||||
|
bne .2
|
||||||
|
|
||||||
|
lda PacketPageDATA+1,x
|
||||||
|
cmp #DEVID
|
||||||
beq .3
|
beq .3
|
||||||
|
|
||||||
.2 dec DEV.HEADER.NAME+4
|
.2 dec DEV.HEADER.NAME+4
|
||||||
@ -83,10 +88,15 @@ Dev.Detect >STYA ARGS
|
|||||||
lda #A2osX.SLOTS.NET
|
lda #A2osX.SLOTS.NET
|
||||||
sta A2osX.SLOTS,y
|
sta A2osX.SLOTS,y
|
||||||
|
|
||||||
>LDYAI PP.ID+2 Get Revision# of ths chip...
|
lda #PP.ID+2 Get Revision# of ths chip...
|
||||||
>STYA PacketPagePTR,x
|
sta PacketPagePTR,x
|
||||||
>LDYA PacketPageDATA,x
|
lda /PP.ID+2
|
||||||
>STYA DEVSTAT+S.DEVSTAT.VERSION set Hardware version
|
sta PacketPagePTR+1,x
|
||||||
|
|
||||||
|
lda PacketPageDATA,x
|
||||||
|
sta DEVSTAT+S.DEVSTAT.VERSION set Hardware version
|
||||||
|
lda PacketPageDATA+1,x
|
||||||
|
sta DEVSTAT+S.DEVSTAT.VERSION+1
|
||||||
|
|
||||||
>LDYA ARGS
|
>LDYA ARGS
|
||||||
>STYA ZPTmpPTR
|
>STYA ZPTmpPTR
|
||||||
|
@ -7,7 +7,7 @@ AUTO 6
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* CS8900A IO Registers
|
* CS8900A IO Registers
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DEVID .EQ $630E
|
DEVID .EQ $0E63
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
RTDATA .EQ $C080 Receive/Transmit Data (DWORD)
|
RTDATA .EQ $C080 Receive/Transmit Data (DWORD)
|
||||||
TxCMD .EQ $C084 Transmit Command
|
TxCMD .EQ $C084 Transmit Command
|
||||||
@ -58,8 +58,8 @@ PP.SelfCTL.RESET .EQ %00000000.01000000
|
|||||||
*PP.SelfCTL.HWStndby .EQ %00000010.00000000
|
*PP.SelfCTL.HWStndby .EQ %00000010.00000000
|
||||||
PP.BufCTL .EQ $0116
|
PP.BufCTL .EQ $0116
|
||||||
PP.TestCTL .EQ $0118
|
PP.TestCTL .EQ $0118
|
||||||
*PP.TestCTL.LID .EQ %00000000.00011001
|
PP.TestCTL.LID .EQ %00000000.00011001
|
||||||
*PP.TestCTL.DisLT .EQ %00000000.10000000
|
PP.TestCTL.DisLT .EQ %00000000.10000000
|
||||||
PP.TestCTL.FDX .EQ %01000000.00000000
|
PP.TestCTL.FDX .EQ %01000000.00000000
|
||||||
PP.ISQ .EQ $0120
|
PP.ISQ .EQ $0120
|
||||||
PP.RxEvent .EQ $0124 Receiver Event (RO)
|
PP.RxEvent .EQ $0124 Receiver Event (RO)
|
||||||
@ -83,7 +83,8 @@ PP.LineST.10BT .EQ %00000010.00000000
|
|||||||
PP.LineST.PolOK .EQ %00010000.00000000
|
PP.LineST.PolOK .EQ %00010000.00000000
|
||||||
PP.LineST.CRS .EQ %01000000.00000000
|
PP.LineST.CRS .EQ %01000000.00000000
|
||||||
PP.SelfST .EQ $0136 Self Status (RO)
|
PP.SelfST .EQ $0136 Self Status (RO)
|
||||||
PP.SelfST.INITD .EQ %00000000.10000000
|
PP.SelfST.LID .EQ %00000000.00010110
|
||||||
|
PP.SelfST.InitDone .EQ %00000000.10000000
|
||||||
PP.BusST .EQ $0138 Bus Status (RO)
|
PP.BusST .EQ $0138 Bus Status (RO)
|
||||||
PP.BusST.LID .EQ %00000000.00011000
|
PP.BusST.LID .EQ %00000000.00011000
|
||||||
PP.BusST.TxBidErr .EQ %00000000.10000000
|
PP.BusST.TxBidErr .EQ %00000000.10000000
|
||||||
|
@ -114,6 +114,11 @@ CS.RUN >PUSHW L.Socket
|
|||||||
ldy #hSocket
|
ldy #hSocket
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
|
ldy #bSocketClose
|
||||||
|
lda #$ff
|
||||||
|
sta (pData),y
|
||||||
|
|
||||||
|
|
||||||
>LDYA L.MSG.CFG1
|
>LDYA L.MSG.CFG1
|
||||||
>SYSCALL CPrintFYA
|
>SYSCALL CPrintFYA
|
||||||
|
|
||||||
@ -238,11 +243,14 @@ CS.DOEVENT lda (pEvent)
|
|||||||
.9 sec do not discard TIMER event
|
.9 sec do not discard TIMER event
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT ldy #hSocket
|
CS.QUIT ldy #bSocketClose
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
beq .1
|
beq .1
|
||||||
|
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.CLOSEA
|
ldy #hSocket
|
||||||
|
lda (pData),y
|
||||||
|
|
||||||
|
>LIBCALL hLIBTCPIP,LIBTCPIP.SKT.CloseA
|
||||||
|
|
||||||
.1 lda hLIBTCPIP
|
.1 lda hLIBTCPIP
|
||||||
>SYSCALL UnloadLibA
|
>SYSCALL UnloadLibA
|
||||||
@ -459,7 +467,7 @@ Socket .DA #S.SOCKET.SOCK.DGRAM
|
|||||||
DHCP.DISC .HS 01010600 OP,HTYPE,HLEN,HOPS
|
DHCP.DISC .HS 01010600 OP,HTYPE,HLEN,HOPS
|
||||||
DHCP.DISC.XID .BS 4
|
DHCP.DISC.XID .BS 4
|
||||||
.HS 0000 SECS
|
.HS 0000 SECS
|
||||||
.DA 0000 S.DHCP.FLAGS.BRDCST
|
.DA S.DHCP.FLAGS.BRDCST
|
||||||
.HS 00000000 CIADDR
|
.HS 00000000 CIADDR
|
||||||
DHCP.DISC.YIADDR .HS 00000000
|
DHCP.DISC.YIADDR .HS 00000000
|
||||||
.HS 00000000 SIADDR
|
.HS 00000000 SIADDR
|
||||||
@ -476,7 +484,7 @@ DHCP.DISC.LEN .EQ *-DHCP.DISC
|
|||||||
DHCP.REQ .HS 01010600 OP,HTYPE,HLEN,HOPS
|
DHCP.REQ .HS 01010600 OP,HTYPE,HLEN,HOPS
|
||||||
DHCP.REQ.XID .BS 4
|
DHCP.REQ.XID .BS 4
|
||||||
.HS 0000 SECS
|
.HS 0000 SECS
|
||||||
.DA 0000 S.DHCP.FLAGS.BRDCST
|
.DA S.DHCP.FLAGS.BRDCST
|
||||||
.HS 00000000 CIADDR
|
.HS 00000000 CIADDR
|
||||||
DHCP.REQ.YIADDR .HS 00000000
|
DHCP.REQ.YIADDR .HS 00000000
|
||||||
.HS 00000000 SIADDR
|
.HS 00000000 SIADDR
|
||||||
@ -496,6 +504,7 @@ DHCP.REQ.LEN .EQ *-DHCP.REQ
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DS.START
|
DS.START
|
||||||
TimeOut .BS 1
|
TimeOut .BS 1
|
||||||
|
bSocketClose .BS 1
|
||||||
hSocket .BS 1
|
hSocket .BS 1
|
||||||
hFrame .BS 1
|
hFrame .BS 1
|
||||||
DS.END
|
DS.END
|
||||||
|
Loading…
Reference in New Issue
Block a user