CIFS:BugFix for CAT....

This commit is contained in:
Rémy GIBERT 2021-06-27 18:59:52 +02:00
parent 4d884ee3b7
commit d52e51416b
3 changed files with 8 additions and 7 deletions

Binary file not shown.

View File

@ -647,7 +647,7 @@ CIFS.FRead ldy #4 hNod
ldy #1 DataLen HI ldy #1 DataLen HI
lda (pStack),y lda (pStack),y
bne .2 beq .2
lda #0 lda #0
ldx #1 256 bytes to read ldx #1 256 bytes to read
@ -679,7 +679,7 @@ CIFS2.FRead jsr ReadSocket
jsr CheckSMBStatus jsr CheckSMBStatus
bcs .90 bcs .90
ldy #S.NETBIOS+S.SMB.H+10 ldy #S.NETBIOS+S.SMB.H+11 DataLength LO
lda (ZPRespPtr),y lda (ZPRespPtr),y
iny iny
ora (ZPRespPtr),y ora (ZPRespPtr),y
@ -692,13 +692,14 @@ CIFS2.FRead jsr ReadSocket
bra .90 bra .90
.10 ldy #S.NETBIOS+S.SMB.H+13 DataOffset LO .10 ldy #S.NETBIOS+S.SMB.H+13 DataOffset LO
lda (ZPRespPtr),y lda (ZPRespPtr),y
inc * clc
inc adc #4 S.NETBIOS
* clc * clc
adc ZPRespPtr adc ZPRespPtr
sta ZPPtr1 sta ZPPtr1
lda #0 lda #0
adc ZPRespPtr+1 adc ZPRespPtr+1
sta ZPPtr1+1 sta ZPPtr1+1
@ -720,7 +721,7 @@ CIFS2.FRead jsr ReadSocket
ldy #S.NETBIOS+S.SMB.H+11 ldy #S.NETBIOS+S.SMB.H+11
jsr CIFS2.RWSetOfsY jsr CIFS2.RWSetOfsY
ldy #S.NETBIOS+S.SMB.H+11 DataLength HI ldy #S.NETBIOS+S.SMB.H+12 DataLength HI
lda (ZPRespPtr),y lda (ZPRespPtr),y
beq .2 less than 256 beq .2 less than 256

View File

@ -1217,7 +1217,7 @@ SMB.ComWrite.H .DA #12 WORD COUNT
.HS 0000 Remaining .HS 0000 Remaining
.HS 0000 Reserved .HS 0000 Reserved
.BS 2 DataLength .BS 2 DataLength
.DA S.SMB.H+SMB.ComWrite.H.Len DataOffset .DA S.SMB.H+SMB.ComWrite.H.Len+2 DataOffset (+2 skip ByteCount)
SMB.ComWrite.H.Len .EQ *-SMB.ComWrite.H SMB.ComWrite.H.Len .EQ *-SMB.ComWrite.H
* .BS 2 ByteCount * .BS 2 ByteCount
* DATA..... * DATA.....