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