Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-08 08:33:37 +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.DR .EQ $C087
*--------------------------------------
RX.BASE .EQ $4000
TX.BASE .EQ $6000
TX.BASE .EQ $4000
RX.BASE .EQ $6000
RXTX.MASK .EQ $1FFF
*--------------------------------------
* File Header (16 Bytes)
@ -235,28 +235,19 @@ GETEVENT.RxOK >AR.SELECT S0.RX.RD
lda W5100.DR,x
sta RX.IP+3
lda W5100.DR,x get RX.Size HI
sta RXTX.Size+1
tay
ldy W5100.DR,x get RX.Size HI
sty RXTX.Size+1
lda W5100.DR,x get RX.Size LO
sta RXTX.Size
clc
adc #S.IP-2
sta FRAMELEN
adc #S.IP
pha
tya
adc /S.IP-2
sta FRAMELEN+1
adc /S.IP
ply
iny
bne .10
inc
.10 iny
bne .11
inc
.11 >PUSHYA
>PUSHYA
>PUSHBI 0
>SYSCALL SYS.GetMem
bcs GETEVENT.Err
@ -265,11 +256,11 @@ GETEVENT.RxOK >AR.SELECT S0.RX.RD
ldy #S.EVT.DATALO
sta (pEvent),y
lda FRAMELEN
lda RXTX.Size
sta (ZPTmpPTR)
ldy #1
lda FRAMELEN+1
lda RXTX.Size+1
sta (ZPTmpPTR),y
lda #S.EVT.F.NET+S.EVT.F.hMEM1
@ -499,7 +490,6 @@ Reset ldx DEVSLOTx0
*--------------------------------------
DRV.CS.END
DEVSLOTx0 .BS 1
FRAMELEN .BS 2
RX.IP .BS 4
RXTX.Size .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.DR .EQ $C087
*--------------------------------------
RX.BASE .EQ $4000
TX.BASE .EQ $6000
TX.BASE .EQ $4000
RX.BASE .EQ $6000
RXTX.MASK .EQ $1FFF
*--------------------------------------
* File Header (16 Bytes)
@ -207,7 +207,7 @@ OPEN jsr Reset
lda #4 MACRAW
sta W5100.DR,x
>AR.SELECT SHAR Implicit, next to SUBR
>AR.SELECT SHAR
ldy #0
.1 lda MAC,y
@ -245,11 +245,8 @@ GETEVENT.RxOK >AR.SELECT S0.RX.RD
lda W5100.DR,x get RX.Size HI
sta RXTX.Size+1
pha
lda W5100.DR,x get RX.Size LO
sta RXTX.Size
tay
pla
ldy W5100.DR,x get RX.Size LO
sty RXTX.Size
iny
bne .10