mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-10 06:29:33 +00:00
Kernel 0.94+
This commit is contained in:
parent
2c946c431e
commit
9869d45149
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -233,8 +233,8 @@ MSG.MYZONE .AZ "Zone Name :%S\r\n"
|
||||||
SEARCH.STRING >PSTR "="
|
SEARCH.STRING >PSTR "="
|
||||||
>PSTR "="
|
>PSTR "="
|
||||||
>PSTR "*"
|
>PSTR "*"
|
||||||
MSG.DUMP0 .AZ "\e[?7lNet Nod SkT En# Object:Type@Zone"
|
MSG.DUMP0 .AZ "Net Nod SkT En# Object:Type@Zone"
|
||||||
MSG.DUMP .AZ "%H %h %h %h %S:%S@%S\r\n"
|
MSG.DUMP .AZ "\e[?7l%H %h %h %h %S:%S@%S\r\n"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.DUMMY
|
.DUMMY
|
||||||
.OR 0
|
.OR 0
|
||||||
|
|
|
@ -277,7 +277,24 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
lda #ERR.SKT.NOCONN
|
lda #ERR.SKT.NOCONN
|
||||||
bra .9
|
bra .9
|
||||||
|
|
||||||
.3 >LDYA L.MSG.CONNECTED
|
.3 >SLEEP
|
||||||
|
|
||||||
|
lda hSocket
|
||||||
|
>LIBCALL hLIBTCPIP,LIBTCPIP.Recv
|
||||||
|
bcc .7
|
||||||
|
|
||||||
|
cmp #E.NODATA
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
ldx TimeOut
|
||||||
|
bne .3
|
||||||
|
|
||||||
|
lda #ERR.SKT.NOCONN
|
||||||
|
bra .9
|
||||||
|
|
||||||
|
.7 >SYSCALL Freemem
|
||||||
|
|
||||||
|
.8 >LDYA L.MSG.CONNECTED
|
||||||
>SYSCALL PutS
|
>SYSCALL PutS
|
||||||
|
|
||||||
>SLEEP
|
>SLEEP
|
||||||
|
|
|
@ -305,7 +305,8 @@ BB.Seek lda BB.HdrTrk get track we're on
|
||||||
ldx BB.Slotn0 will do a ph0 off
|
ldx BB.Slotn0 will do a ph0 off
|
||||||
ldy BB.Slotn0
|
ldy BB.Slotn0
|
||||||
|
|
||||||
.1 jsr BB.PhasesOff
|
.1 sta IO.D2.Ph0Off,x
|
||||||
|
sta IO.D2.Ph0Off,y
|
||||||
|
|
||||||
bcs .2
|
bcs .2
|
||||||
|
|
||||||
|
@ -354,8 +355,8 @@ BB.Seek lda BB.HdrTrk get track we're on
|
||||||
|
|
||||||
.4 tay
|
.4 tay
|
||||||
|
|
||||||
lda IO.D2.Ph0On,x
|
sta IO.D2.Ph0On,x
|
||||||
lda IO.D2.Ph0On,y
|
sta IO.D2.Ph0On,y
|
||||||
|
|
||||||
lda #IO.D2.SeekTimeB
|
lda #IO.D2.SeekTimeB
|
||||||
jsr BB.Wait
|
jsr BB.Wait
|
||||||
|
@ -368,16 +369,13 @@ BB.Seek lda BB.HdrTrk get track we're on
|
||||||
lda #0
|
lda #0
|
||||||
jsr BB.Wait
|
jsr BB.Wait
|
||||||
|
|
||||||
jsr BB.PhasesOff
|
sta IO.D2.Ph0Off,x
|
||||||
|
sta IO.D2.Ph0Off,y
|
||||||
bra BB.Read
|
bra BB.Read
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
BB.PhasesOff bit IO.D2.Ph0Off,x
|
|
||||||
ldx IO.D2.Ph0Off,y
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
BB.Wait phx (3)
|
BB.Wait phx (3)
|
||||||
|
|
||||||
.1 ldx #19 (2)
|
.1 ldx #20 (2)
|
||||||
|
|
||||||
.2 dex (2)
|
.2 dex (2)
|
||||||
bne .2 (3)
|
bne .2 (3)
|
||||||
|
|
|
@ -84,6 +84,8 @@ D2MoveHead.SEI ldx Slotn0
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
sta IO.D2.Ph0Off,x
|
sta IO.D2.Ph0Off,x
|
||||||
|
nop
|
||||||
|
nop
|
||||||
sta IO.D2.Ph0Off,y
|
sta IO.D2.Ph0Off,y
|
||||||
|
|
||||||
bcs .2
|
bcs .2
|
||||||
|
@ -134,6 +136,8 @@ D2MoveHead.SEI ldx Slotn0
|
||||||
.4 tay
|
.4 tay
|
||||||
|
|
||||||
sta IO.D2.Ph0On,x
|
sta IO.D2.Ph0On,x
|
||||||
|
nop
|
||||||
|
nop
|
||||||
sta IO.D2.Ph0On,y
|
sta IO.D2.Ph0On,y
|
||||||
|
|
||||||
lda #IO.D2.SeekTimeF
|
lda #IO.D2.SeekTimeF
|
||||||
|
@ -144,6 +148,8 @@ D2MoveHead.SEI ldx Slotn0
|
||||||
.8 jsr D2.Wait25600usec
|
.8 jsr D2.Wait25600usec
|
||||||
|
|
||||||
sta IO.D2.Ph0Off,x
|
sta IO.D2.Ph0Off,x
|
||||||
|
nop
|
||||||
|
nop
|
||||||
sta IO.D2.Ph0Off,y
|
sta IO.D2.Ph0Off,y
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -76,7 +76,9 @@ LIB.LOAD >LDYA L.LIBTCPIP
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
sta hLIBTCPIP
|
sta hLIBTCPIP
|
||||||
|
>SYSCALL GetMemPtr
|
||||||
|
>STYA aLIBTCPIP
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL GetMem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
@ -117,9 +119,11 @@ CIFS.Negotiate lda (pStack)
|
||||||
ldy #1+4 hSocket
|
ldy #1+4 hSocket
|
||||||
lda (pStack),y
|
lda (pStack),y
|
||||||
|
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Send
|
ldx #LIBTCPIP.Send
|
||||||
|
jsr GO.LIBTCPIP
|
||||||
|
|
||||||
bcs .99
|
bcs .99
|
||||||
>DEBUG
|
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -130,8 +134,10 @@ CIFS.Negotiate lda (pStack)
|
||||||
|
|
||||||
ldy #1 hSocket
|
ldy #1 hSocket
|
||||||
lda (pStack),y
|
lda (pStack),y
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Recv
|
|
||||||
>DEBUG
|
ldx #LIBTCPIP.Recv
|
||||||
|
jsr GO.LIBTCPIP
|
||||||
|
|
||||||
bcc .3
|
bcc .3
|
||||||
|
|
||||||
cmp #E.NODATA
|
cmp #E.NODATA
|
||||||
|
@ -258,7 +264,8 @@ CIFS.SessionSetup
|
||||||
ldy #6+4 hSocket
|
ldy #6+4 hSocket
|
||||||
lda (pStack),y
|
lda (pStack),y
|
||||||
|
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Send
|
ldx #LIBTCPIP.Send
|
||||||
|
jsr GO.LIBTCPIP
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
|
@ -271,7 +278,8 @@ CIFS.SessionSetup
|
||||||
|
|
||||||
ldy #6 hSocket
|
ldy #6 hSocket
|
||||||
lda (pStack),y
|
lda (pStack),y
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Recv
|
ldx #LIBTCPIP.Recv
|
||||||
|
jsr GO.LIBTCPIP
|
||||||
bcc .6
|
bcc .6
|
||||||
|
|
||||||
cmp #E.NODATA
|
cmp #E.NODATA
|
||||||
|
@ -305,7 +313,7 @@ CIFS.SessionSetup
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.98 lda #MLI.E.IO
|
.98 lda #MLI.E.IO
|
||||||
|
sec
|
||||||
.99 >POP 7
|
.99 >POP 7
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -395,7 +403,8 @@ CIFS.TreeConnect
|
||||||
ldy #4+4 hSocket
|
ldy #4+4 hSocket
|
||||||
lda (pStack),y
|
lda (pStack),y
|
||||||
|
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Send
|
ldx #LIBTCPIP.Send
|
||||||
|
jsr GO.LIBTCPIP
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
|
@ -408,7 +417,7 @@ CIFS.TreeConnect
|
||||||
|
|
||||||
ldy #4 hSocket
|
ldy #4 hSocket
|
||||||
lda (pStack),y
|
lda (pStack),y
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Recv
|
ldx #LIBTCPIP.Recv
|
||||||
bcc .6
|
bcc .6
|
||||||
|
|
||||||
cmp #E.NODATA
|
cmp #E.NODATA
|
||||||
|
@ -442,7 +451,7 @@ CIFS.TreeConnect
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.98 lda #MLI.E.IO
|
.98 lda #MLI.E.IO
|
||||||
|
sec
|
||||||
.99 >POP 5
|
.99 >POP 5
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -557,10 +566,13 @@ GetRespData sta hResp
|
||||||
sta ZPRespPtr+1
|
sta ZPRespPtr+1
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
GO.LIBTCPIP jmp (aLIBTCPIP)
|
||||||
|
*--------------------------------------
|
||||||
CS.END
|
CS.END
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
LIBTCPIP .AZ "libtcpip"
|
LIBTCPIP .AZ "libtcpip"
|
||||||
hLIBTCPIP .BS 1
|
hLIBTCPIP .BS 1
|
||||||
|
aLIBTCPIP .BS 2
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SMB.TRANSPORT .DA #0 DIRECT TCP TRANSPORT
|
SMB.TRANSPORT .DA #0 DIRECT TCP TRANSPORT
|
||||||
.DA #0 24 BITS LENGTH
|
.DA #0 24 BITS LENGTH
|
||||||
|
|
|
@ -580,7 +580,11 @@ Pak.Out.PutYBits
|
||||||
|
|
||||||
* clc
|
* clc
|
||||||
|
|
||||||
.9 rts
|
rts
|
||||||
|
|
||||||
|
.9 lda #E.BUF
|
||||||
|
sec
|
||||||
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Pak.Out.PutByte inc Pak.DstCnt
|
Pak.Out.PutByte inc Pak.DstCnt
|
||||||
bne .1
|
bne .1
|
||||||
|
@ -604,7 +608,8 @@ Pak.Out.PutByte inc Pak.DstCnt
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.9 sec
|
.9 lda #E.BUF
|
||||||
|
sec
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Pak.UpdateStats inc Pak.Stat,x
|
Pak.UpdateStats inc Pak.Stat,x
|
||||||
|
|
|
@ -387,7 +387,7 @@ XRW.SectorIO lda #2
|
||||||
XRW.Write lda IO.D2.ReadProt,x PREWRITE MODE
|
XRW.Write lda IO.D2.ReadProt,x PREWRITE MODE
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
|
|
||||||
* lda IO.D2.ReadMode,x
|
lda IO.D2.ReadMode,x
|
||||||
|
|
||||||
lda nbuf2
|
lda nbuf2
|
||||||
sta pcl
|
sta pcl
|
||||||
|
@ -521,7 +521,7 @@ wrefd5 ldx #$60 (2) restore slot. warning: modified by prenib
|
||||||
|
|
||||||
clc (2)
|
clc (2)
|
||||||
|
|
||||||
jsr XRW.Write.RTS (6+6)
|
* jsr XRW.Write.RTS (6+6)
|
||||||
|
|
||||||
* lda #$FF (2)
|
* lda #$FF (2)
|
||||||
* nop (2)
|
* nop (2)
|
||||||
|
@ -730,8 +730,11 @@ XRW.Seek ldx XRW.UnitIndex
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
sta IO.D2.Ph0Off,x
|
sta IO.D2.Ph0Off,x
|
||||||
|
nop
|
||||||
|
nop
|
||||||
sta IO.D2.Ph0Off,y
|
sta IO.D2.Ph0Off,y
|
||||||
|
nop
|
||||||
|
nop
|
||||||
bcs .2
|
bcs .2
|
||||||
|
|
||||||
* Current < Target, must move in
|
* Current < Target, must move in
|
||||||
|
@ -780,8 +783,11 @@ XRW.Seek ldx XRW.UnitIndex
|
||||||
.4 tay
|
.4 tay
|
||||||
|
|
||||||
sta IO.D2.Ph0On,x
|
sta IO.D2.Ph0On,x
|
||||||
|
nop
|
||||||
|
nop
|
||||||
sta IO.D2.Ph0On,y
|
sta IO.D2.Ph0On,y
|
||||||
|
nop
|
||||||
|
nop
|
||||||
jsr XRW.WaitSeekTime
|
jsr XRW.WaitSeekTime
|
||||||
|
|
||||||
bra .1
|
bra .1
|
||||||
|
@ -789,7 +795,11 @@ XRW.Seek ldx XRW.UnitIndex
|
||||||
.8 jsr XRW.Wait25600usec
|
.8 jsr XRW.Wait25600usec
|
||||||
|
|
||||||
sta IO.D2.Ph0Off,x
|
sta IO.D2.Ph0Off,x
|
||||||
|
nop
|
||||||
|
nop
|
||||||
sta IO.D2.Ph0Off,y
|
sta IO.D2.Ph0Off,y
|
||||||
|
nop
|
||||||
|
nop
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
XRW.WaitSeekTime
|
XRW.WaitSeekTime
|
||||||
|
|
|
@ -105,20 +105,16 @@ CS.RUN lda hSocket
|
||||||
>PUSHB hSocket
|
>PUSHB hSocket
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LIBCALL hLIBCIFS,LIBCIFS.Negotiate
|
>LIBCALL hLIBCIFS,LIBCIFS.Negotiate
|
||||||
|
|
||||||
* jsr CS.RUN.Negotiate
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
sta hSMBContext
|
sta hSMBContext
|
||||||
|
>DEBUG
|
||||||
>PUSHB hSocket
|
>PUSHB hSocket
|
||||||
>PUSHB hSMBContext
|
>PUSHB hSMBContext
|
||||||
>PUSHWI 0
|
>PUSHWI 0
|
||||||
>PUSHWI 0
|
>PUSHWI 0
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LIBCALL hLIBCIFS,LIBCIFS.SessionSetup
|
>LIBCALL hLIBCIFS,LIBCIFS.SessionSetup
|
||||||
|
|
||||||
* jsr CS.RUN.SessSetup
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>PUSHB hSocket
|
>PUSHB hSocket
|
||||||
|
@ -128,8 +124,6 @@ CS.RUN lda hSocket
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LIBCALL hLIBCIFS,LIBCIFS.TreeConnect
|
>LIBCALL hLIBCIFS,LIBCIFS.TreeConnect
|
||||||
|
|
||||||
* jsr CS.RUN.TreeConn
|
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
* lda #3
|
* lda #3
|
||||||
|
|
Loading…
Reference in New Issue
Block a user