Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-08-14 13:29:02 +00:00
Code Issues Projects Releases Wiki Activity

UTHERNETII:Debugging session #3

Browse Source
This commit is contained in:
Rémy GIBERT 2016-04-05 17:46:11 +02:00
parent 4318fabb2c
commit 7962934a3f
2 changed files with 15 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
DRV/UTHER2.AI.DRV.S.txt
View File

@ -64,8 +64,8 @@ W5100.AR.S0.RX.RSR .EQ $0426
W5100.AR.S0.RX.RD .EQ $0428 W5100.AR.S0.RX.RD .EQ $0428
W5100.DR .EQ $C087 W5100.DR .EQ $C087
*-------------------------------------- *--------------------------------------
RX.BASE .EQ $4000 TX.BASE .EQ $4000
TX.BASE .EQ $6000 RX.BASE .EQ $6000
RXTX.MASK .EQ $1FFF RXTX.MASK .EQ $1FFF
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -235,28 +235,19 @@ GETEVENT.RxOK >AR.SELECT S0.RX.RD
lda W5100.DR,x lda W5100.DR,x
sta RX.IP+3 sta RX.IP+3
lda W5100.DR,x get RX.Size HI ldy W5100.DR,x get RX.Size HI
sta RXTX.Size+1 sty RXTX.Size+1
tay
lda W5100.DR,x get RX.Size LO lda W5100.DR,x get RX.Size LO
sta RXTX.Size sta RXTX.Size
clc clc
adc #S.IP-2 adc #S.IP
sta FRAMELEN
pha pha
tya tya
adc /S.IP-2 adc /S.IP
sta FRAMELEN+1
ply ply
iny
bne .10 >PUSHYA
inc
.10 iny
bne .11
inc
.11 >PUSHYA
>PUSHBI 0 >PUSHBI 0
>SYSCALL SYS.GetMem >SYSCALL SYS.GetMem
bcs GETEVENT.Err bcs GETEVENT.Err
@ -265,11 +256,11 @@ GETEVENT.RxOK >AR.SELECT S0.RX.RD
ldy #S.EVT.DATALO ldy #S.EVT.DATALO
sta (pEvent),y sta (pEvent),y
lda FRAMELEN lda RXTX.Size
sta (ZPTmpPTR) sta (ZPTmpPTR)
ldy #1 ldy #1
lda FRAMELEN+1 lda RXTX.Size+1
sta (ZPTmpPTR),y sta (ZPTmpPTR),y
lda #S.EVT.F.NET+S.EVT.F.hMEM1 lda #S.EVT.F.NET+S.EVT.F.hMEM1
@ -499,7 +490,6 @@ Reset ldx DEVSLOTx0
*-------------------------------------- *--------------------------------------
DRV.CS.END DRV.CS.END
DEVSLOTx0 .BS 1 DEVSLOTx0 .BS 1
FRAMELEN .BS 2
RX.IP .BS 4 RX.IP .BS 4
RXTX.Size .BS 2 RXTX.Size .BS 2
Counter .BS 2 Counter .BS 2

13
DRV/UTHERNET2.DRV.S.txt
View File

@ -64,8 +64,8 @@ W5100.AR.S0.RX.RSR .EQ $0426
W5100.AR.S0.RX.RD .EQ $0428 W5100.AR.S0.RX.RD .EQ $0428
W5100.DR .EQ $C087 W5100.DR .EQ $C087
*-------------------------------------- *--------------------------------------
RX.BASE .EQ $4000 TX.BASE .EQ $4000
TX.BASE .EQ $6000 RX.BASE .EQ $6000
RXTX.MASK .EQ $1FFF RXTX.MASK .EQ $1FFF
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -207,7 +207,7 @@ OPEN jsr Reset
lda #4 MACRAW lda #4 MACRAW
sta W5100.DR,x sta W5100.DR,x
>AR.SELECT SHAR Implicit, next to SUBR >AR.SELECT SHAR
ldy #0 ldy #0
.1 lda MAC,y .1 lda MAC,y
@ -245,11 +245,8 @@ GETEVENT.RxOK >AR.SELECT S0.RX.RD
lda W5100.DR,x get RX.Size HI lda W5100.DR,x get RX.Size HI
sta RXTX.Size+1 sta RXTX.Size+1
pha ldy W5100.DR,x get RX.Size LO
lda W5100.DR,x get RX.Size LO sty RXTX.Size
sta RXTX.Size
tay
pla
iny iny
bne .10 bne .10