Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-22 16:31:07 +00:00
Code Issues Projects Releases Wiki Activity

UTHERNET2:Debugging session #4

Browse Source
This commit is contained in:
Rémy GIBERT 2016-04-11 16:40:25 +02:00
parent a0079c0108
commit 8aabb64c55
3 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A2OSX.BOOT.po
View File

Binary file not shown.

BIN
A2OSX.SRC.po
View File

Binary file not shown.

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

@ -206,15 +206,6 @@ OPEN jsr Reset
lda #W5100.MR.AI+W5100.MR.IND lda #W5100.MR.AI+W5100.MR.IND
sta W5100.MR,x sta W5100.MR,x
>AR.SELECT RMSR
lda #3 8k
sta W5100.DR,x ...for Socket0 RX Buffer
sta W5100.DR,x ...for Socket0 TX Buffer
>AR.SELECT S0.MR
lda #W5100.AR.S0.MR.MACRAW+W5100.AR.S0.MR.MF
sta W5100.DR,x
>AR.SELECT SHAR >AR.SELECT SHAR
ldy #0 ldy #0
@ -223,6 +214,16 @@ OPEN jsr Reset
iny iny
cpy #6 cpy #6
bne .1 bne .1
>AR.SELECT RMSR
lda #3 8k,0k,0k,0k
sta W5100.DR,x ...for Socket RX Buffers
sta W5100.DR,x ...for Socket TX Buffers
>AR.SELECT S0.MR
lda #W5100.AR.S0.MR.MACRAW+W5100.AR.S0.MR.MF
sta W5100.DR,x
>AR.SELECT S0.CR >AR.SELECT S0.CR
lda #1 OPEN lda #1 OPEN
@ -254,19 +255,20 @@ GETEVENT.RxOK >AR.SELECT S0.RX.RD
tya tya
sta W5100.AR+1,x sta W5100.AR+1,x
ldy W5100.DR,x get RX.Size HI lda W5100.DR,x get RX.Size HI
sty RXTX.Size+1 >PUSHA for SYS.GetMem
tay
lda W5100.DR,x get RX.Size LO lda W5100.DR,x get RX.Size LO
sta RXTX.Size >PUSHA for SYS.GetMem
clc
adc #2
pha
tya
adc #0
ply
>PUSHYA sec
sbc #2
sta RXTX.Size
bcs .1
dey
.1 sty RXTX.Size+1
* >PUSHYA Already pushed....
>PUSHBI 0 >PUSHBI 0
>SYSCALL SYS.GetMem >SYSCALL SYS.GetMem
bcs GETEVENT.Err bcs GETEVENT.Err
@ -284,6 +286,7 @@ GETEVENT.RxOK >AR.SELECT S0.RX.RD
sta Counter sta Counter
ldy #1 ldy #1
lda RXTX.Size+1 lda RXTX.Size+1
sta (ZPTmpPTR),y sta (ZPTmpPTR),y
eor #$ff eor #$ff