UTHERNET2:Debugging session #4

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

Binary file not shown.

Binary file not shown.

View File

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