mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-28 10:52:33 +00:00
256 lines
3.9 KiB
Plaintext
256 lines
3.9 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
INIT.Setup >LDYAI 512
|
||
>SYSCALL GetMem
|
||
bcs .9
|
||
|
||
stx hReq
|
||
|
||
jsr INIT.Negotiate
|
||
bcs .9
|
||
|
||
jsr INIT.SessionSetup
|
||
bcs .9
|
||
|
||
lda #2
|
||
>SYSCALL ArgV
|
||
>STYA pPath
|
||
jsr INIT.TreeConnect
|
||
bcs .9
|
||
|
||
lda #3
|
||
>SYSCALL ArgV
|
||
>PUSHYA
|
||
>PUSHW L.IO.CallBack
|
||
>SYSCALL Mount
|
||
bcs .9
|
||
|
||
sta hMount
|
||
|
||
* clc
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
INIT.Negotiate >PUSHB hSocket
|
||
>PUSHW L.NETBIOS.H
|
||
>PUSHWI SMB.NegReq.end-NETBIOS.H
|
||
|
||
>LIBCALL hLIBTCPIP,LIBTCPIP.Send
|
||
bcs .99
|
||
|
||
jsr INIT.ReadSocket
|
||
bcs .99
|
||
|
||
jsr CORE.GetRespData
|
||
|
||
ldy #S.NETBIOS+S.SMB.H.STATUS
|
||
lda (ZPRespPtr),y
|
||
bne .97
|
||
|
||
ldy #S.NETBIOS.LEN+2
|
||
lda (ZPRespPtr),y
|
||
|
||
clc
|
||
adc #S.NETBIOS
|
||
sta ZPPtr1
|
||
tay
|
||
lda #0
|
||
|
||
>SYSCALL GetMem
|
||
bcs .99
|
||
|
||
>STYA ZPCtxPtr
|
||
stx hSMBContext
|
||
|
||
ldy ZPPtr1
|
||
|
||
.4 dey
|
||
lda (ZPRespPtr),y
|
||
sta (ZPCtxPtr),y
|
||
tya
|
||
bne .4
|
||
|
||
ldy #S.NETBIOS+S.SMB.H.FLAGS
|
||
sta (ZPCtxPtr),y
|
||
|
||
jsr CORE.FreeRespData
|
||
|
||
clc
|
||
rts
|
||
|
||
.97 jsr CORE.FreeRespData
|
||
|
||
lda #MLI.E.INVPARAM
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
INIT.SessionSetup
|
||
ldx #S.SMB.H.CMD.SESSION.SETUP.ANDX
|
||
jsr CORE.ReqSetupX
|
||
|
||
ldx #0
|
||
|
||
.2 lda SMB.SessionSetup.H,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.SessionSetup.H.Len
|
||
bne .2
|
||
|
||
jsr CORE.ReqSetupPtr2
|
||
|
||
ldy #0
|
||
|
||
ldx #0
|
||
|
||
.3 lda SMB.SessionSetup.Guest,x
|
||
jsr CORE.PutBytePtr2
|
||
iny
|
||
inx
|
||
cpx #SMB.SessionSetup.Guest.Len
|
||
bne .3
|
||
|
||
ldx #0
|
||
|
||
.4 lda SMB.SessionSetup.T,x
|
||
jsr CORE.PutBytePtr2
|
||
iny
|
||
inx
|
||
cpx #SMB.SessionSetup.T.Len
|
||
bne .4
|
||
|
||
tya
|
||
ldy ByteCountOfs
|
||
sta (ZPReqPtr),y
|
||
|
||
jsr CORE.SetReqLen
|
||
jsr INIT.WriteSocket
|
||
bcs .99
|
||
|
||
jsr INIT.ReadSocket
|
||
bcs .99
|
||
|
||
jsr CORE.GetRespData
|
||
|
||
ldy #S.NETBIOS+S.SMB.H.STATUS
|
||
lda (ZPRespPtr),y
|
||
bne .97
|
||
|
||
ldy #S.NETBIOS+S.SMB.H.UID
|
||
lda (ZPRespPtr),y
|
||
sta (ZPCtxPtr),y
|
||
iny
|
||
lda (ZPRespPtr),y
|
||
sta (ZPCtxPtr),y
|
||
|
||
jsr CORE.FreeRespData
|
||
|
||
clc
|
||
rts
|
||
|
||
.97 jsr CORE.FreeRespData
|
||
|
||
.98 lda #MLI.E.LOCKED
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
INIT.TreeConnect
|
||
ldx #S.SMB.H.CMD.TREE.CONNECT.ANDX
|
||
jsr CORE.ReqSetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.TreeConnect.H,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.TreeConnect.H.Len
|
||
bne .1
|
||
|
||
jsr CORE.ReqSetupPtr2
|
||
|
||
lda #0
|
||
jsr CORE.PutBytePtr2 PASSWORD = "\0"
|
||
|
||
jsr CORE.AppendPathPtr2
|
||
jsr CORE.AddYReqLenPtr2
|
||
|
||
iny + \0 from password
|
||
|
||
ldx #0
|
||
|
||
.4 lda SMB.TreeConnect.T,x
|
||
jsr CORE.PutBytePtr2
|
||
iny
|
||
inx
|
||
cpx #SMB.TreeConnect.T.Len
|
||
bne .4
|
||
|
||
tya
|
||
ldy ByteCountOfs
|
||
sta (ZPReqPtr),y
|
||
|
||
jsr CORE.SetReqLen
|
||
jsr INIT.WriteSocket
|
||
bcs .99
|
||
|
||
jsr INIT.ReadSocket
|
||
bcs .99
|
||
|
||
jsr CORE.GetRespData
|
||
|
||
ldy #S.NETBIOS+S.SMB.H.STATUS
|
||
lda (ZPRespPtr),y
|
||
bne .97
|
||
|
||
ldy #S.NETBIOS+S.SMB.H.TID
|
||
lda (ZPRespPtr),y
|
||
sta (ZPCtxPtr),y
|
||
iny
|
||
lda (ZPRespPtr),y
|
||
sta (ZPCtxPtr),y
|
||
|
||
.8 jsr CORE.FreeRespData
|
||
|
||
clc
|
||
rts
|
||
|
||
.97 jsr CORE.FreeRespData
|
||
|
||
.98 lda #MLI.E.IO
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
INIT.ReadSocket lda #TIMEOUT.MAX
|
||
sta TimeOut
|
||
|
||
.1 >SLEEP
|
||
|
||
lda hSocket
|
||
>LIBCALL hLIBTCPIP,LIBTCPIP.Recv
|
||
bcc .99
|
||
|
||
cmp #E.NODATA
|
||
sec
|
||
bne .99
|
||
|
||
lda TimeOut
|
||
bne .1
|
||
|
||
lda #MLI.E.OFFLINE
|
||
|
||
.99 rts
|
||
*--------------------------------------
|
||
INIT.WriteSocket
|
||
>PUSHB hSocket
|
||
>PUSHW ZPReqPtr
|
||
>PUSHW ZPReqLen
|
||
>LIBCALL hLIBTCPIP,LIBTCPIP.Send
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/sbin/cifsd.s.init
|
||
LOAD usr/src/sbin/cifsd.s
|
||
ASM
|