mirror of https://github.com/A2osX/A2osX.git
1724 lines
25 KiB
Plaintext
1724 lines
25 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
IO.CallBack >STYA SaveYA
|
||
|
||
bit CIFS.Status
|
||
bmi .1 Busy....
|
||
|
||
jsr IO.SaveZP
|
||
|
||
jmp (J.IO.Q,x)
|
||
|
||
.1 ldy #S.PS.PID
|
||
lda (pPS),y
|
||
cmp CIFS.PID
|
||
bne .2
|
||
|
||
jsr IO.SaveZP
|
||
|
||
jmp (J.IO.R,x)
|
||
|
||
.2 lda #0
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
IO.SaveZP ldy #ZS.END-ZS.START-1
|
||
|
||
.1 lda ZS.START,y
|
||
sta SaveZP,y
|
||
dey
|
||
bpl .1
|
||
|
||
>LDYA SaveYA
|
||
|
||
rts
|
||
*--------------------------------------
|
||
IO.Sleep ldy #S.PS.PID
|
||
lda (pPS),y
|
||
sta CIFS.PID
|
||
|
||
dec CIFS.Status
|
||
|
||
stz CIFS.Cnt
|
||
stz CIFS.Cnt+1
|
||
|
||
IO.SleepContZ lda #TIMEOUT.MAX
|
||
sta TimeOut
|
||
|
||
IO.SleepCont lda #0
|
||
sec
|
||
bra IO.RestoreZP
|
||
*--------------------------------------
|
||
IO.Exit stz CIFS.Status
|
||
*--------------------------------------
|
||
IO.RestoreZP php
|
||
pha
|
||
phx
|
||
phy
|
||
|
||
lda hResp
|
||
beq .1
|
||
|
||
stz hResp
|
||
|
||
>SYSCALL2 FreeMem
|
||
|
||
.1 ldy #ZS.END-ZS.START-1
|
||
|
||
.2 lda SaveZP,y
|
||
sta ZS.START,y
|
||
dey
|
||
bpl .2
|
||
|
||
ply
|
||
plx
|
||
pla
|
||
plp
|
||
rts
|
||
*--------------------------------------
|
||
IO.Q.ChOwn
|
||
IO.R.ChOwn
|
||
*--------------------------------------
|
||
IO.Q.ChTyp
|
||
IO.R.ChTyp
|
||
*--------------------------------------
|
||
IO.Q.ChAux
|
||
IO.R.ChAux
|
||
*--------------------------------------
|
||
IO.Q.SetAttr
|
||
IO.R.SetAttr
|
||
*--------------------------------------
|
||
IO.Q.ChMod
|
||
IO.R.ChMod
|
||
*--------------------------------------
|
||
IO.Q.FStat
|
||
*--------------------------------------
|
||
IO.R.FStat lda #MLI.E.BADCALL
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
IO.Q.Stat >STYA pPath resolved path
|
||
|
||
jsr CORE.ReqT2SetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.QueryPathInfo,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.QueryPathInfo.Len
|
||
bne .1
|
||
|
||
jsr CORE.ReqT2SetupPtr2
|
||
|
||
jsr CORE.AppendPathPtr2
|
||
|
||
jsr CORE.AddYReqLenPtr2
|
||
|
||
jsr CORE.SetT2ReqLen
|
||
|
||
jsr IO.WriteSocket
|
||
bcs .9
|
||
|
||
jmp IO.Sleep
|
||
|
||
.9 >POP 4
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.Stat jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
|
||
lda #MLI.E.INVPATH Return this for stat() match ProDOS Behavior
|
||
bcs .98
|
||
|
||
jsr CORE.GetRespDataPtr1
|
||
jsr IO.FileInfo2StatBuf
|
||
|
||
>PULLW ZPPtr2 Stat Buffer
|
||
|
||
inc pStack Skip Filename
|
||
inc pStack
|
||
|
||
jsr IO.StatBuf2Ptr2
|
||
|
||
clc
|
||
|
||
jmp IO.Exit
|
||
|
||
.98 >POP 4
|
||
|
||
jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
*--------------------------------------
|
||
IO.Q.MKDir >STYA pPath resolved path
|
||
|
||
jsr CORE.ReqT2SetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.CreateDirectory,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.CreateDirectory.Len
|
||
bne .1
|
||
|
||
jsr CORE.AppendPath
|
||
|
||
lda #0
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
|
||
jsr CORE.SetT2ReqLenYA
|
||
|
||
jsr IO.WriteSocket
|
||
bcs .99
|
||
|
||
jmp IO.Sleep
|
||
|
||
.99 >POP 4
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.MKDir jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
* bcs .98
|
||
|
||
.98 >POP 4
|
||
|
||
jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
*--------------------------------------
|
||
IO.Q.OpenDir >STYA pPath resolved path
|
||
|
||
jsr IO.NewFD
|
||
bcs .98
|
||
|
||
lda #S.FD.T.DIR
|
||
sta (pFD)
|
||
|
||
lda #0
|
||
ldy #S.FD.DIR.EPB
|
||
sta (pFD),y EOF Flag
|
||
iny
|
||
sta (pFD),y
|
||
iny
|
||
sta (pFD),y
|
||
|
||
>PUSHW pPath
|
||
>PUSHWZ
|
||
>PUSHB hFD
|
||
>SYSCALL2 mknod
|
||
bcc .98
|
||
|
||
pha
|
||
jsr IO.FreeFD
|
||
pla
|
||
sec
|
||
|
||
.98 jmp IO.Exit
|
||
*--------------------------------------
|
||
* IO.R.OpenDir
|
||
*--------------------------------------
|
||
* A = hDIR
|
||
*--------------------------------------
|
||
IO.Q.ReadDir jsr IO.GetFD
|
||
|
||
ldy #S.FD.DIR.EPB
|
||
lda (pFD),y
|
||
beq .1
|
||
|
||
lda #MLI.E.EOF
|
||
sec
|
||
jmp IO.Exit
|
||
|
||
.1 iny #S.FD.DIR.FC
|
||
lda (pFD),y
|
||
iny #S.FD.DIR.FC+1
|
||
ora (pFD),y
|
||
bne IO.Q.ReadDir.Next
|
||
|
||
jsr CORE.ReqT2SetupX
|
||
|
||
ldx #0
|
||
|
||
.2 lda SMB.FindFirst2,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.FindFirst2.Len
|
||
bne .2
|
||
|
||
bra IO.Q.ReadDir.Send
|
||
|
||
IO.Q.ReadDir.Next
|
||
jsr CORE.ReqT2SetupX
|
||
|
||
ldx #0
|
||
|
||
.2 lda SMB.FindNext2,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.FindNext2.Len
|
||
bne .2
|
||
|
||
phy
|
||
|
||
ldy #S.FD.DIR.FC+1
|
||
lda (pFD),y
|
||
tax
|
||
dey
|
||
lda (pFD),y
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+SMB.Trans2.H.Len+7 Search ID
|
||
sta (ZPReqPtr),y
|
||
txa
|
||
iny
|
||
sta (ZPReqPtr),y
|
||
|
||
ply
|
||
|
||
IO.Q.ReadDir.Send
|
||
lda (pPath)
|
||
beq .1
|
||
|
||
jsr CORE.AppendPath
|
||
|
||
lda #'\'
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
|
||
.1 lda #'*'
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
|
||
lda #0
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
|
||
jsr CORE.SetT2ReqLenYA
|
||
jsr IO.WriteSocket
|
||
bcs .99
|
||
|
||
jmp IO.Sleep
|
||
|
||
.99 jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.ReadDir jsr IO.GetFD
|
||
|
||
jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
bcs .98
|
||
|
||
ldy #S.FD.DIR.FC
|
||
lda (pFD),y
|
||
iny
|
||
ora (pFD),y
|
||
sta bFlag
|
||
bne .2
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H+1 Search ID
|
||
lda (ZPRespPtr),y
|
||
tax
|
||
dey
|
||
ora (ZPRespPtr),y
|
||
beq .97
|
||
|
||
lda (ZPRespPtr),y
|
||
|
||
ldy #S.FD.DIR.FC
|
||
sta (pFD),y
|
||
iny
|
||
txa
|
||
sta (pFD),y
|
||
|
||
.2 jsr CORE.GetRespDataPtr1
|
||
jsr IO.R.ReadDir.GetBuf
|
||
bcs .98
|
||
|
||
jsr CORE.GetRespDataPtr1
|
||
jsr IO.R.ReadDir.FillBuf
|
||
|
||
lda hBuf
|
||
>SYSCALL2 GetMemPtr
|
||
ldx hBuf
|
||
|
||
* clc
|
||
|
||
jmp IO.Exit
|
||
|
||
.97 lda #MLI.E.IO
|
||
|
||
sec
|
||
|
||
.98 jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
*--------------------------------------
|
||
IO.R.ReadDir.GetBuf
|
||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H Search Count
|
||
lda bFlag
|
||
bne .10
|
||
|
||
iny
|
||
iny
|
||
|
||
.10 iny
|
||
iny
|
||
lda (ZPRespPtr),y End Of Search
|
||
phy
|
||
ldy #S.FD.DIR.EPB
|
||
sta (pFD),y
|
||
ply
|
||
|
||
dey
|
||
dey
|
||
|
||
lda (ZPRespPtr),y Search Count
|
||
beq .98
|
||
|
||
tax
|
||
|
||
lda #1 +Ending 0
|
||
sta ZPPtr2
|
||
stz ZPPtr2+1
|
||
|
||
.1 jsr IO.AddSTAT2Ptr2
|
||
|
||
lda #22
|
||
clc
|
||
jsr IO.AddA2Ptr1
|
||
|
||
lda (ZPPtr1) Filename Len
|
||
sec +\0
|
||
jsr IO.AddA2Ptr2
|
||
|
||
lda (ZPPtr1) Filename Len
|
||
inc +1 skip Filename Len
|
||
sec +\0
|
||
jsr IO.AddA2Ptr1
|
||
|
||
dex
|
||
bne .1
|
||
|
||
>LDYA ZPPtr2
|
||
>SYSCALL2 GetMem
|
||
bcs .99
|
||
|
||
>STYA ZPPtr2
|
||
stx hBuf
|
||
|
||
* clc
|
||
|
||
rts
|
||
|
||
.98 lda #MLI.E.EOF
|
||
sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
IO.R.ReadDir.FillBuf
|
||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H Search Count
|
||
lda bFlag
|
||
bne .10
|
||
|
||
iny
|
||
iny
|
||
|
||
.10 lda (ZPRespPtr),y
|
||
tax
|
||
|
||
.1 phx
|
||
|
||
jsr IO.FileInfo2StatBuf
|
||
|
||
lda #22
|
||
clc
|
||
jsr IO.AddA2Ptr1
|
||
|
||
lda (ZPPtr1)
|
||
tax Save Filename Len
|
||
|
||
inc ZPPtr1 Skip Filename Len
|
||
bne .2
|
||
|
||
inc ZPPtr1+1
|
||
|
||
.2 ldy #$ff
|
||
|
||
.3 iny
|
||
lda (ZPPtr1),y
|
||
sta (ZPPtr2),y
|
||
bne .3
|
||
|
||
txa
|
||
sec
|
||
jsr IO.AddA2Ptr1
|
||
|
||
jsr IO.R.ReadDir.AuxT
|
||
|
||
jsr IO.R.ReadDir.Type
|
||
|
||
.7 txa
|
||
sec +\0
|
||
jsr IO.AddA2Ptr2
|
||
|
||
jsr IO.StatBuf2Ptr2
|
||
|
||
jsr IO.AddSTAT2Ptr2
|
||
|
||
.8 plx
|
||
dex
|
||
bne .1
|
||
|
||
lda #0
|
||
sta (ZPPtr2)
|
||
|
||
rts
|
||
*--------------------------------------
|
||
IO.R.ReadDir.AuxT
|
||
txa X = filename len
|
||
sec
|
||
sbc #5 "x.EXT_hhhh" ?
|
||
bcc .99
|
||
beq .99
|
||
|
||
tay
|
||
|
||
lda (ZPPtr2),y
|
||
cmp #'_'
|
||
bne .99
|
||
|
||
phy
|
||
|
||
iny
|
||
lda (ZPPtr2),y
|
||
|
||
jsr IO.IsHexDigit
|
||
bcs .9
|
||
|
||
asl
|
||
asl
|
||
asl
|
||
asl
|
||
sta StatBuf+S.STAT.P.AUXTYPE+1
|
||
|
||
iny
|
||
lda (ZPPtr2),y
|
||
|
||
jsr IO.IsHexDigit
|
||
bcs .9
|
||
|
||
ora StatBuf+S.STAT.P.AUXTYPE+1
|
||
sta StatBuf+S.STAT.P.AUXTYPE+1
|
||
|
||
iny
|
||
lda (ZPPtr2),y
|
||
|
||
jsr IO.IsHexDigit
|
||
bcs .9
|
||
|
||
asl
|
||
asl
|
||
asl
|
||
asl
|
||
sta StatBuf+S.STAT.P.AUXTYPE
|
||
|
||
iny
|
||
lda (ZPPtr2),y
|
||
|
||
jsr IO.IsHexDigit
|
||
bcs .9
|
||
|
||
ora StatBuf+S.STAT.P.AUXTYPE
|
||
sta StatBuf+S.STAT.P.AUXTYPE
|
||
|
||
pla
|
||
tax
|
||
tay
|
||
lda #0
|
||
sta (ZPPtr2),y
|
||
rts
|
||
|
||
.9 plx
|
||
|
||
.99 stz StatBuf+S.STAT.P.AUXTYPE
|
||
stz StatBuf+S.STAT.P.AUXTYPE+1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
IO.R.ReadDir.Type
|
||
txa X = filename len
|
||
sec
|
||
sbc #4 "x.EXT" ?
|
||
bcc .99
|
||
beq .99
|
||
|
||
tay
|
||
|
||
lda (ZPPtr2),y
|
||
cmp #'.'
|
||
bne .99
|
||
|
||
phx
|
||
|
||
ldx #0
|
||
|
||
.1 phy Y = '.' offset
|
||
|
||
.2 iny
|
||
lda (ZPPtr2),y
|
||
beq .4
|
||
|
||
cmp #'A'
|
||
bcc .3
|
||
|
||
cmp #'Z'+1
|
||
bcs .3
|
||
|
||
eor #$20
|
||
|
||
.3 cmp PRODOS.FT.TXT,x
|
||
bne .5
|
||
|
||
inx
|
||
bra .2
|
||
|
||
.4 txa
|
||
lsr
|
||
lsr
|
||
tax
|
||
lda PRODOS.FT.HEX,x
|
||
sta StatBuf+S.STAT.P.TYPE
|
||
|
||
ply
|
||
bra .8
|
||
|
||
.5 txa
|
||
and #$FC
|
||
clc
|
||
adc #4
|
||
tax
|
||
|
||
ply
|
||
|
||
cpx #PRODOS.FT.END
|
||
bne .1
|
||
|
||
iny
|
||
lda (ZPPtr2),y
|
||
cmp #'0'
|
||
bne .9
|
||
|
||
iny
|
||
lda (ZPPtr2),y
|
||
|
||
jsr IO.IsHexDigit
|
||
bcs .9
|
||
|
||
asl
|
||
asl
|
||
asl
|
||
asl
|
||
sta StatBuf+S.STAT.P.TYPE
|
||
|
||
iny
|
||
lda (ZPPtr2),y
|
||
|
||
jsr IO.IsHexDigit
|
||
bcs .9
|
||
|
||
ora StatBuf+S.STAT.P.TYPE
|
||
sta StatBuf+S.STAT.P.TYPE
|
||
|
||
.8 pla
|
||
sec
|
||
sbc #4
|
||
tax
|
||
|
||
tay
|
||
lda #0
|
||
sta (ZPPtr2),y
|
||
|
||
rts
|
||
|
||
.9 plx
|
||
|
||
.99 stz StatBuf+S.STAT.P.TYPE
|
||
|
||
rts
|
||
*--------------------------------------
|
||
|
||
*--------------------------------------
|
||
IO.Q.CloseReg
|
||
IO.Q.CloseDir tax
|
||
|
||
lda hFDs.hName-1,x
|
||
beq .1
|
||
|
||
phx
|
||
|
||
stz hFDs.hName-1,x
|
||
>SYSCALL2 FreeMem
|
||
|
||
plx
|
||
|
||
.1 lda hFDs-1,x
|
||
stz hFDs-1,x
|
||
>SYSCALL2 FreeMem
|
||
|
||
* clc
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
* IO.R.CloseDir
|
||
*--------------------------------------
|
||
* short int fopen ( const char *filename, short int flags, short int ftype, int auxtype );
|
||
*--------------------------------------
|
||
IO.Q.FOpen >STYA pPath resolved path
|
||
|
||
ldx #S.SMB.H.CMD.NT.CREATE.ANDX
|
||
jsr CORE.ReqSetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.ComCreate.H,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.ComCreate.H.Len
|
||
bne .1
|
||
|
||
jsr CORE.ReqSetupPtr2
|
||
|
||
jsr CORE.AppendPathPtr2
|
||
|
||
phy
|
||
|
||
ldy #2
|
||
lda (pStack),y TYPE
|
||
beq .2
|
||
|
||
ply
|
||
|
||
jsr CORE.AppendTypePtr2
|
||
|
||
phy
|
||
|
||
lda (pStack) AUXT
|
||
tax
|
||
|
||
ldy #1
|
||
ora (pStack),y
|
||
beq .2
|
||
|
||
lda (pStack),y AUXT
|
||
|
||
ply
|
||
|
||
jsr CORE.AppendAuxTPtr2
|
||
|
||
phy
|
||
|
||
.2 ply
|
||
|
||
lda #0 ending \0
|
||
sta (ZPPtr2),y
|
||
|
||
jsr CORE.AddYReqLen
|
||
|
||
tya
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+6 NameLength
|
||
sta (ZPReqPtr),y
|
||
|
||
* inc +1 for \0
|
||
jsr CORE.Add2ByteCount
|
||
|
||
ldx #1 FILE_OPEN
|
||
|
||
ldy #3 fopen flags
|
||
lda (pStack),y
|
||
bit #O.WRONLY
|
||
beq .8
|
||
|
||
bit #O.CREATE
|
||
bne .3
|
||
|
||
ldx #3 FILE_OPEN_IF
|
||
|
||
.3 bit #O.APPEND
|
||
bne .8
|
||
|
||
ldx #5 FILE_OVERWRITE_IF
|
||
|
||
.8 txa
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+SMB.Trans2.H.Len+7 CreateDisposition
|
||
sta (ZPReqPtr),y
|
||
|
||
jsr CORE.SetReqLen
|
||
jsr IO.WriteSocket
|
||
bcs .99
|
||
|
||
jmp IO.Sleep
|
||
|
||
.99 >POP 6
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.FOpen jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
bcs .98
|
||
|
||
jsr IO.NewFD
|
||
bcs .98
|
||
|
||
jsr IO.R.FOpen.SetFD
|
||
|
||
ldy #4 path
|
||
|
||
lda (pStack),y
|
||
>PUSHA
|
||
lda (pStack),y
|
||
>PUSHA
|
||
|
||
>PUSHWZ mod
|
||
>PUSHB hFD
|
||
>SYSCALL2 mknod
|
||
bcc .98
|
||
|
||
pha
|
||
|
||
jsr IO.FreeFD
|
||
|
||
pla
|
||
sec
|
||
|
||
.98 >POP 6
|
||
|
||
jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
*--------------------------------------
|
||
IO.R.FOpen.SetFD
|
||
lda #S.FD.T.REG
|
||
sta (pFD)
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+6 FileID
|
||
lda (ZPRespPtr),y
|
||
pha
|
||
iny
|
||
lda (ZPRespPtr),y
|
||
|
||
ldy #S.FD.REG.REF+1
|
||
sta (pFD),y
|
||
dey
|
||
pla
|
||
sta (pFD),y
|
||
|
||
ldy #3 fopen flags
|
||
lda (pStack),y
|
||
bit #O.APPEND
|
||
beq .3
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+56+3 EOF
|
||
ldx #4
|
||
|
||
.1 lda (ZPRespPtr),y
|
||
pha
|
||
dey
|
||
dex
|
||
bne .1
|
||
|
||
ldx #4
|
||
ldy #S.FD.REG.FPOS
|
||
|
||
.2 pla
|
||
sta (pFD),y
|
||
iny
|
||
dex
|
||
bne .2
|
||
|
||
rts
|
||
|
||
.3 jmp IO.Seek0
|
||
*--------------------------------------
|
||
IO.Q.FClose jsr IO.GetFD
|
||
|
||
ldx #S.SMB.H.CMD.CLOSE
|
||
jsr CORE.ReqSetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.ComClose.H,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.ComClose.H.Len
|
||
bne .1
|
||
|
||
sty ZPReqLen
|
||
stz ZPReqLen+1
|
||
|
||
ldy #S.FD.REG.REF
|
||
lda (pFD),y
|
||
pha
|
||
iny
|
||
lda (pFD),y
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+2 FileID
|
||
sta (ZPReqPtr),y
|
||
pla
|
||
dey
|
||
sta (ZPReqPtr),y
|
||
|
||
jsr CORE.SetReqLen
|
||
jsr IO.WriteSocket
|
||
bcs .99
|
||
|
||
jmp IO.Sleep
|
||
|
||
.99 jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.FClose sta hFILE
|
||
|
||
jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
bcs .98
|
||
|
||
lda hFILE
|
||
jsr IO.Q.CloseReg
|
||
|
||
clc
|
||
|
||
.98 jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
*--------------------------------------
|
||
IO.Q.FRead ldy #4 hFILE
|
||
lda (pStack),y
|
||
|
||
jsr IO.GetFD
|
||
|
||
ldx #S.SMB.H.CMD.READ.ANDX
|
||
jsr CORE.ReqSetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.ComRead.H,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.ComRead.H.Len
|
||
bne .1
|
||
|
||
jsr CORE.ReqSetupPtr2
|
||
|
||
jsr IO.RWGetFidOfs
|
||
|
||
ldy #1 DataLen HI
|
||
lda (pStack),y
|
||
beq .2
|
||
|
||
lda #0
|
||
ldx #1 256 bytes to read
|
||
bra .3
|
||
|
||
.2 lda (pStack) DataLen LO
|
||
ldx #0
|
||
|
||
.3 ldy #S.NETBIOS+S.SMB.H+11 MaxCountOfBytesToReturn
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
txa
|
||
sta (ZPReqPtr),y
|
||
|
||
jsr CORE.SetReqLen
|
||
jsr IO.WriteSocket
|
||
bcs .99
|
||
|
||
jmp IO.Sleep
|
||
|
||
.99 >POP 5
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.FRead jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
bcs .98
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+11 DataLength LO
|
||
lda (ZPRespPtr),y
|
||
iny
|
||
ora (ZPRespPtr),y
|
||
bne .10
|
||
|
||
lda #MLI.E.EOF
|
||
sec
|
||
bra .98
|
||
|
||
.10 ldy #S.NETBIOS+S.SMB.H+13 DataOffset LO
|
||
|
||
lda (ZPRespPtr),y
|
||
* clc
|
||
adc #4 S.NETBIOS
|
||
* clc
|
||
adc ZPRespPtr
|
||
sta ZPPtr1
|
||
|
||
lda #0
|
||
adc ZPRespPtr+1
|
||
sta ZPPtr1+1
|
||
|
||
ldy #3 DataPtr HI
|
||
lda (pStack),y
|
||
sta ZPPtr2+1
|
||
|
||
dey DataPtr LO
|
||
lda (pStack),y
|
||
sta ZPPtr2
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+11 DataLength LO
|
||
lda (ZPRespPtr),y
|
||
tax
|
||
|
||
jsr IO.CopyXPtr1Ptr2
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+11
|
||
jsr IO.RWSetPFosY
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+12 DataLength HI
|
||
lda (ZPRespPtr),y
|
||
beq .2 less than 256
|
||
|
||
inc CIFS.Cnt+1
|
||
|
||
ldy #1 DataLen HI
|
||
lda (pStack),y
|
||
dec
|
||
sta (pStack),y
|
||
|
||
ldy #3 DataPtr HI
|
||
lda (pStack),y
|
||
inc
|
||
sta (pStack),y
|
||
bra .7
|
||
|
||
.2 dey DataLength LO
|
||
lda (ZPRespPtr),y
|
||
|
||
sta CIFS.Cnt
|
||
|
||
lda #0
|
||
sta (pStack) DataLen LO
|
||
|
||
.7 ldy #1 DataLen HI
|
||
lda (pStack),y
|
||
ora (pStack) DataLen LO
|
||
bne .80
|
||
|
||
>LDYA CIFS.Cnt
|
||
|
||
clc
|
||
|
||
.98 >POP 5
|
||
|
||
jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
|
||
.80 stz CIFS.Status back to Q
|
||
|
||
jmp IO.SleepContZ Back to CIFS.FRead for next chunk
|
||
*--------------------------------------
|
||
* int fwrite ( short int stream, const void * ptr, int count );
|
||
*--------------------------------------
|
||
IO.Q.FWrite ldy #4 hFILE
|
||
lda (pStack),y
|
||
|
||
jsr IO.GetFD
|
||
|
||
ldx #S.SMB.H.CMD.WRITE.ANDX
|
||
jsr CORE.ReqSetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.ComWrite.H,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.ComWrite.H.Len
|
||
bne .1
|
||
|
||
jsr CORE.ReqSetupPtr2
|
||
|
||
jsr IO.RWGetFidOfs
|
||
|
||
ldy #3 DataPtr HI
|
||
lda (pStack),y
|
||
sta ZPPtr1+1
|
||
|
||
dey DataPtr LO
|
||
lda (pStack),y
|
||
sta ZPPtr1
|
||
|
||
dey DataLen HI
|
||
lda (pStack),y
|
||
beq .5
|
||
|
||
lda #0
|
||
ldx #1 write $100
|
||
|
||
bra .6
|
||
|
||
.5 dey DataLen LO
|
||
lda (pStack),y
|
||
ldx #0 write $0xx
|
||
|
||
.6 pha
|
||
ldy #S.NETBIOS+S.SMB.H+21 DataLength
|
||
sta (ZPReqPtr),y
|
||
|
||
iny
|
||
|
||
txa
|
||
sta (ZPReqPtr),y
|
||
|
||
pla
|
||
pha
|
||
clc
|
||
adc ZPReqLen
|
||
sta ZPReqLen
|
||
|
||
txa
|
||
adc ZPReqLen+1
|
||
sta ZPReqLen+1
|
||
|
||
pla
|
||
pha
|
||
ldy ByteCountOfs
|
||
sta (ZPReqPtr),y
|
||
|
||
txa
|
||
iny
|
||
sta (ZPReqPtr),y
|
||
|
||
plx
|
||
|
||
jsr IO.CopyXPtr1Ptr2
|
||
|
||
jsr CORE.SetReqLen
|
||
jsr IO.WriteSocket
|
||
bcs .99
|
||
|
||
ldy #1 DataLen HI
|
||
lda (pStack),y
|
||
beq .7
|
||
|
||
dec DataLen - $100
|
||
sta (pStack),y
|
||
|
||
ldy #3 DataPtr HI
|
||
lda (pStack),y
|
||
inc DataPtr + $100
|
||
sta (pStack),y
|
||
|
||
jmp IO.Sleep
|
||
|
||
.7 lda #0
|
||
sta (pStack) DataLen = 0
|
||
|
||
jmp IO.Sleep
|
||
|
||
.99 >POP 5
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.FWrite jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
bcs .98
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+5 Count LO
|
||
jsr IO.RWSetPFosY
|
||
|
||
ldy #S.NETBIOS+S.SMB.H+5 Count LO
|
||
lda (ZPRespPtr),y
|
||
bne .1
|
||
|
||
inc CIFS.Cnt+1
|
||
bra .7
|
||
|
||
.1 sta CIFS.Cnt
|
||
|
||
lda #0
|
||
sta (pStack) DataLen LO
|
||
|
||
.7 ldy #1 DataLen HI
|
||
lda (pStack),y
|
||
ora (pStack) DataLen LO
|
||
bne .80
|
||
|
||
>LDYA CIFS.Cnt
|
||
|
||
clc
|
||
|
||
.98 >POP 5
|
||
|
||
jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
|
||
.80 stz CIFS.Status back to Q
|
||
|
||
jmp IO.SleepContZ
|
||
*--------------------------------------
|
||
IO.Q.FFlush
|
||
IO.R.FFlush clc Nothing to do
|
||
rts
|
||
*--------------------------------------
|
||
* int fseek( short int stream, long offset, short int whence );
|
||
*--------------------------------------
|
||
IO.Q.FSeek ldy #5 hFILE
|
||
lda (pStack),y
|
||
|
||
jsr IO.GetFD
|
||
>PULLA
|
||
tax whence
|
||
|
||
>PULLL ZPPtr1 ZPPtr2
|
||
inc pStack
|
||
|
||
>POP 6
|
||
|
||
clc
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
* IO.R.FSeek
|
||
*--------------------------------------
|
||
* long ftell( short int stream );
|
||
*--------------------------------------
|
||
IO.Q.FTell jsr IO.GetFD
|
||
|
||
ldy #S.FD.REG.FPOS+3
|
||
|
||
.1 lda (pFD),y
|
||
>PUSHA
|
||
dey
|
||
cpy #S.FD.REG.FPOS-1
|
||
bne .1
|
||
|
||
clc
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
* IO.R.FTell
|
||
*--------------------------------------
|
||
IO.Q.FEOF
|
||
*--------------------------------------
|
||
IO.R.FEOF lda #MLI.E.BADCALL
|
||
sec
|
||
rts
|
||
*--------------------------------------
|
||
IO.Q.Remove >STYA pPath resolved path
|
||
|
||
ldx #S.SMB.H.CMD.DELETE
|
||
jsr CORE.ReqSetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.ComDelete.H,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.ComDelete.H.Len
|
||
bne .1
|
||
|
||
jsr CORE.ReqSetupPtr2
|
||
|
||
jsr CORE.AppendPathPtr2BF4
|
||
jsr CORE.AddYReqLen
|
||
|
||
tya
|
||
inc +1 for BufferFormat
|
||
inc +1 for \0
|
||
|
||
ldy ByteCountOfs
|
||
sta (ZPReqPtr),y
|
||
|
||
jsr CORE.SetReqLen
|
||
jsr IO.WriteSocket
|
||
bcs .99
|
||
|
||
jmp IO.Sleep
|
||
|
||
.99 jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.Remove jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
* bcs .98
|
||
|
||
.98 jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
*--------------------------------------
|
||
IO.Q.Rename >STYA pPath resolved src path
|
||
|
||
ldx #S.SMB.H.CMD.RENAME
|
||
jsr CORE.ReqSetupX
|
||
|
||
ldx #0
|
||
|
||
.1 lda SMB.ComRename.H,x
|
||
sta (ZPReqPtr),y
|
||
iny
|
||
inx
|
||
cpx #SMB.ComRename.H.Len
|
||
bne .1
|
||
|
||
jsr CORE.ReqSetupPtr2
|
||
|
||
jsr CORE.AppendPathPtr2BF4
|
||
|
||
tya
|
||
inc +1 for BufferFormat
|
||
inc +1 for \0
|
||
jsr CORE.Add2ByteCount
|
||
|
||
lda (pStack)
|
||
sta pPath
|
||
|
||
ldy #1
|
||
lda (pStack),y
|
||
sta pPath+1
|
||
|
||
.2 inc pPath skip /mount
|
||
bne .3
|
||
|
||
inc pPath+1
|
||
|
||
.3 lda (pPath)
|
||
cmp #'/'
|
||
bne .2
|
||
|
||
jsr CORE.AppendPathPtr2
|
||
|
||
tya
|
||
inc +1 for BufferFormat
|
||
inc +1 for \0
|
||
|
||
ldy ByteCountOfs
|
||
sta (ZPReqPtr),y
|
||
|
||
jsr CORE.SetReqLen
|
||
jsr IO.WriteSocket
|
||
bcs .99
|
||
|
||
jmp IO.Sleep
|
||
|
||
.99 >POP 4
|
||
|
||
jmp IO.Exit
|
||
*--------------------------------------
|
||
IO.R.Rename jsr IO.ReadSocket
|
||
bvs .99
|
||
|
||
bcs .98
|
||
|
||
jsr CORE.CheckSMBStatus
|
||
* bcs .98
|
||
|
||
.98 >POP 4
|
||
|
||
jmp IO.Exit
|
||
|
||
.99 jmp IO.SleepCont
|
||
*--------------------------------------
|
||
IO.NewFD ldx #1
|
||
|
||
.1 lda hFDs-1,x
|
||
beq .2
|
||
|
||
inx
|
||
cpx #K.hFD.MAX+1
|
||
bne .1
|
||
|
||
lda #E.OOH
|
||
* sec
|
||
rts
|
||
|
||
.2 stx hFILE
|
||
|
||
>LDYAI 16 S.FD.REG = S.FD.DIR = 16
|
||
>SYSCALL2 GetMem
|
||
bcs .9
|
||
|
||
>STYA pFD
|
||
stx hFD
|
||
|
||
txa
|
||
ldx hFILE
|
||
|
||
sta hFDs-1,x
|
||
stz hFDs.hName-1,x
|
||
|
||
lda hHandler
|
||
ldy #S.FD.PFT
|
||
sta (pFD),y
|
||
|
||
* clc
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
IO.GetFD sta hFILE
|
||
|
||
tax
|
||
phx
|
||
|
||
lda hFDs.hName-1,x
|
||
>SYSCALL2 GetMemPtr
|
||
>STYA pPath
|
||
|
||
plx
|
||
lda hFDs-1,x
|
||
>SYSCALL2 GetMemPtr
|
||
>STYA pFD
|
||
rts
|
||
*--------------------------------------
|
||
IO.FreeFD pha
|
||
lda hFD
|
||
>SYSCALL2 FreeMem
|
||
|
||
ldx hFILE
|
||
stz hFDs-1,x
|
||
|
||
pla
|
||
rts
|
||
*--------------------------------------
|
||
IO.RWGetFidOfs ldx #6
|
||
ldy #S.FD.REG.REF
|
||
|
||
.1 lda (pFD),y
|
||
pha
|
||
iny
|
||
dex
|
||
bne .1
|
||
|
||
ldx #6
|
||
ldy #S.NETBIOS+S.SMB.H+5+5
|
||
|
||
.2 pla
|
||
sta (ZPReqPtr),y
|
||
dey
|
||
dex
|
||
bne .2
|
||
|
||
rts
|
||
*--------------------------------------
|
||
IO.RWSetPFosY phy
|
||
|
||
ldy #4 hFILE
|
||
lda (pStack),y
|
||
|
||
jsr IO.GetFD
|
||
|
||
ply Count LO
|
||
phy
|
||
lda (ZPRespPtr),y
|
||
|
||
ldy #S.FD.REG.FPOS
|
||
clc
|
||
adc (pFD),y
|
||
sta (pFD),y
|
||
|
||
ply
|
||
iny Count HI
|
||
lda (ZPRespPtr),y
|
||
|
||
ldy #S.FD.REG.FPOS+1
|
||
adc (pFD),y
|
||
sta (pFD),y
|
||
bcc .8
|
||
|
||
iny
|
||
lda (pFD),y
|
||
inc
|
||
sta (pFD),y
|
||
bne .8
|
||
|
||
iny
|
||
lda (pFD),y
|
||
inc
|
||
sta (pFD),y
|
||
|
||
.8 rts
|
||
*--------------------------------------
|
||
IO.CopyXPtr1Ptr2
|
||
ldy #0
|
||
|
||
.1 lda (ZPPtr1),y
|
||
sta (ZPPtr2),y
|
||
iny
|
||
dex
|
||
bne .1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
IO.AddA2Ptr1 adc ZPPtr1
|
||
sta ZPPtr1
|
||
bcc .8
|
||
|
||
inc ZPPtr1+1
|
||
|
||
.8 rts
|
||
*--------------------------------------
|
||
IO.StatBuf2Ptr2 ldy #S.STAT-1
|
||
|
||
.1 lda StatBuf,y
|
||
sta (ZPPtr2),y
|
||
dey
|
||
bpl .1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
IO.AddSTAT2Ptr2 lda #S.STAT
|
||
clc
|
||
*--------------------------------------
|
||
IO.AddA2Ptr2 adc ZPPtr2
|
||
sta ZPPtr2
|
||
bcc .8
|
||
|
||
inc ZPPtr2+1
|
||
|
||
.8 rts
|
||
*--------------------------------------
|
||
IO.Seek0 ldy #S.FD.REG.FPOS+3
|
||
|
||
lda #0
|
||
|
||
.1 sta (pFD),y
|
||
dey
|
||
cpy #S.FD.REG.FPOS-1
|
||
bne .1
|
||
|
||
rts
|
||
*--------------------------------------
|
||
IO.ReadSocket stz hResp
|
||
|
||
lda hSocket
|
||
ldx #LIBTCPIP.Recv
|
||
jsr IO.GoLIBTCPIP
|
||
clv
|
||
|
||
bcc .8
|
||
|
||
cmp #E.NODATA
|
||
bne .99
|
||
|
||
lda TimeOut
|
||
beq .98
|
||
|
||
bit .99 set V
|
||
|
||
lda #0
|
||
sec
|
||
rts
|
||
|
||
.98 lda #MLI.E.OFFLINE
|
||
sec
|
||
.99 rts
|
||
|
||
.8 jmp CORE.GetRespData
|
||
*--------------------------------------
|
||
IO.WriteSocket >PUSHB hSocket
|
||
>PUSHW ZPReqPtr
|
||
>PUSHW ZPReqLen
|
||
ldx #LIBTCPIP.Send
|
||
*--------------------------------------
|
||
IO.GoLIBTCPIP jmp (pLIBTCPIP)
|
||
*--------------------------------------
|
||
IO.FileInfo2StatBuf
|
||
ldx #S.STAT-1
|
||
|
||
.1 stz StatBuf,x
|
||
dex
|
||
bpl .1
|
||
|
||
ldy #0 Creation Date/Time
|
||
ldx #S.STAT.CTIME
|
||
|
||
jsr IO.FileInfo2StatBufDT
|
||
|
||
ldy #4 Last Access Date/Time
|
||
ldx #S.STAT.ATIME
|
||
|
||
jsr IO.FileInfo2StatBufDT
|
||
|
||
ldy #8 Last Write Date/Time
|
||
ldx #S.STAT.MTIME
|
||
|
||
jsr IO.FileInfo2StatBufDT
|
||
|
||
ldy #12+3 Data Size
|
||
ldx #3
|
||
|
||
.7 lda (ZPPtr1),y
|
||
sta StatBuf+S.STAT.SIZE,x
|
||
dey
|
||
dex
|
||
bpl .7
|
||
|
||
ldy #20 File Attribute
|
||
lda (ZPPtr1),y
|
||
and #$10
|
||
beq .8
|
||
|
||
lda /S.STAT.MODE.DIR
|
||
sta StatBuf+S.STAT.MODE+1
|
||
|
||
.8 rts
|
||
*--------------------------------------
|
||
* YYYYYYYM MMM DDDDD
|
||
* HHHHHmmm mmm SSSSS
|
||
*--------------------------------------
|
||
IO.FileInfo2StatBufDT
|
||
iny
|
||
lda (ZPPtr1),y
|
||
lsr
|
||
|
||
php
|
||
|
||
clc
|
||
adc #80
|
||
sta StatBuf+S.TIME.YEAR,x
|
||
lda #19
|
||
adc #0
|
||
sta StatBuf+S.TIME.CENTURY,x
|
||
|
||
dey
|
||
|
||
plp
|
||
lda (ZPPtr1),y
|
||
ror
|
||
lsr
|
||
lsr
|
||
lsr
|
||
lsr
|
||
sta StatBuf+S.TIME.MONTH,x
|
||
|
||
lda (ZPPtr1),y
|
||
and #$1F
|
||
sta StatBuf+S.TIME.DAY,x
|
||
|
||
iny
|
||
iny
|
||
|
||
lda (ZPPtr1),y
|
||
and #$1F
|
||
asl
|
||
sta StatBuf+S.TIME.SECOND,x
|
||
|
||
lda (ZPPtr1),y
|
||
and #$E0
|
||
sta StatBuf+S.TIME.MINUTE,x
|
||
|
||
iny
|
||
|
||
lda (ZPPtr1),y
|
||
lsr
|
||
ror StatBuf+S.TIME.MINUTE,x
|
||
lsr
|
||
ror StatBuf+S.TIME.MINUTE,x
|
||
lsr
|
||
ror StatBuf+S.TIME.MINUTE,x
|
||
lsr StatBuf+S.TIME.MINUTE,x
|
||
lsr StatBuf+S.TIME.MINUTE,x
|
||
|
||
sta StatBuf+S.TIME.HOUR,x
|
||
|
||
* TODO : S.TIME.WDAY
|
||
|
||
rts
|
||
*--------------------------------------
|
||
IO.IsHexDigit jsr IO.IsDigit
|
||
bcc .8
|
||
|
||
cmp #'A'
|
||
bcc .9
|
||
|
||
cmp #'F'+1
|
||
bcc .1
|
||
|
||
cmp #'a'
|
||
bcc .9
|
||
|
||
cmp #'f'+1
|
||
bcs .99
|
||
|
||
eor #$20
|
||
|
||
.1
|
||
* clc
|
||
sbc #'A'-11 cc so A->10 (11-CC)
|
||
clc
|
||
.8 rts
|
||
|
||
.9 sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
IO.IsDigit cmp #'0'
|
||
bcc .9
|
||
|
||
cmp #'9'+1
|
||
bcs .99
|
||
|
||
and #$0F
|
||
* clc
|
||
rts
|
||
|
||
.9 sec
|
||
.99 rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/sbin/cifsd.s.io
|
||
LOAD usr/src/sbin/cifsd.s
|
||
ASM
|