mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-13 13:29:04 +00:00
Kernel 0.93+
This commit is contained in:
parent
ceaab44c5e
commit
f1917a3af5
Binary file not shown.
@ -1,10 +1,9 @@
|
|||||||
NEW
|
NEW
|
||||||
PREFIX
|
AUTO 3,1
|
||||||
AUTO 4,1
|
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
.OP 65C02
|
.OP 65C02
|
||||||
.OR $2000
|
.OR $2000
|
||||||
.TF BIN/HTTPGET
|
.TF bin/httpget
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.INB INC/MACROS.I
|
.INB INC/MACROS.I
|
||||||
.INB INC/A2OSX.I
|
.INB INC/A2OSX.I
|
||||||
@ -151,7 +150,14 @@ CS.RUN.HOSTOK >INC.G ArgIndex
|
|||||||
|
|
||||||
.1 ldy #1
|
.1 ldy #1
|
||||||
lda (ZPPtr),y
|
lda (ZPPtr),y
|
||||||
cmp #'U'
|
cmp #'a'
|
||||||
|
bcc .11
|
||||||
|
cmp #'z'+1
|
||||||
|
bcs .11
|
||||||
|
|
||||||
|
eor #$20
|
||||||
|
|
||||||
|
.11 cmp #'U'
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
>INC.G ArgIndex
|
>INC.G ArgIndex
|
||||||
@ -168,7 +174,7 @@ CS.RUN.HOSTOK >INC.G ArgIndex
|
|||||||
bne CS.RUN.ESYN
|
bne CS.RUN.ESYN
|
||||||
>INC.G ArgIndex
|
>INC.G ArgIndex
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
bcs CS.RUN.RTS
|
bcs .9
|
||||||
|
|
||||||
pha
|
pha
|
||||||
>PUSHWZ Aux type
|
>PUSHWZ Aux type
|
||||||
|
@ -3,11 +3,14 @@ NEW
|
|||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CFG.SET >PULLW ZPTmpPtr1 IPCFG
|
CFG.SET >PULLW ZPTmpPtr1 IPCFG
|
||||||
|
|
||||||
ldy #S.IPCFG-1
|
ldy #S.IPCFG-1
|
||||||
|
|
||||||
.1 lda (ZPTmpPtr1),y
|
.1 lda (ZPTmpPtr1),y
|
||||||
sta IPCFG,y
|
sta IPCFG,y
|
||||||
dey
|
dey
|
||||||
bpl .1
|
bpl .1
|
||||||
|
|
||||||
ldx #5
|
ldx #5
|
||||||
|
|
||||||
.2 lda IPCFG+S.NETCFG.MAC,x
|
.2 lda IPCFG+S.NETCFG.MAC,x
|
||||||
@ -41,7 +44,8 @@ CFG.SET >PULLW ZPTmpPtr1 IPCFG
|
|||||||
>PUSHBI IOCTL.STATUS
|
>PUSHBI IOCTL.STATUS
|
||||||
lda IPCFG+S.NETCFG.DevID
|
lda IPCFG+S.NETCFG.DevID
|
||||||
>SYSCALL2 IOCTL
|
>SYSCALL2 IOCTL
|
||||||
|
bcs .99
|
||||||
|
|
||||||
ldx #11 IP/MASK/GW
|
ldx #11 IP/MASK/GW
|
||||||
|
|
||||||
.4 lda IPCFG+S.IPCFG.IP,x
|
.4 lda IPCFG+S.IPCFG.IP,x
|
||||||
@ -64,17 +68,21 @@ CFG.SET >PULLW ZPTmpPtr1 IPCFG
|
|||||||
jsr SKT.Shutdown
|
jsr SKT.Shutdown
|
||||||
stz hDNSSocket
|
stz hDNSSocket
|
||||||
|
|
||||||
.6 lda IPCFG+S.IPCFG.DNS1
|
.6 lda IPCFG+S.IPCFG.IP no IP address yes...so no DNS socket
|
||||||
|
beq .8
|
||||||
|
|
||||||
|
lda IPCFG+S.IPCFG.DNS1
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
>PUSHBI 0 no protocol
|
>PUSHBI 0 no protocol
|
||||||
lda #S.SOCKET.T.DGRAM
|
lda #S.SOCKET.T.DGRAM
|
||||||
jsr SKT.Socket
|
jsr SKT.Socket
|
||||||
bcs .9
|
.99 bcs .9
|
||||||
|
|
||||||
sta hDNSSocket
|
sta hDNSSocket
|
||||||
stz SA.LOCAL+S.SOCKADDR.PORT
|
stz SA.LOCAL+S.SOCKADDR.PORT
|
||||||
stz SA.LOCAL+S.SOCKADDR.PORT+1
|
stz SA.LOCAL+S.SOCKADDR.PORT+1
|
||||||
|
|
||||||
>PUSHW L.SA.LOCAL
|
>PUSHW L.SA.LOCAL
|
||||||
lda hDNSSocket
|
lda hDNSSocket
|
||||||
jsr SKT.Bind
|
jsr SKT.Bind
|
||||||
@ -85,6 +93,7 @@ CFG.SET >PULLW ZPTmpPtr1 IPCFG
|
|||||||
>PUSHW L.SA.REMOTE
|
>PUSHW L.SA.REMOTE
|
||||||
lda hDNSSocket
|
lda hDNSSocket
|
||||||
jmp SKT.Connect
|
jmp SKT.Connect
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -123,11 +123,14 @@ CS.INIT.LIBS lda LibCnt
|
|||||||
ply
|
ply
|
||||||
>SYSCALL LoadLib
|
>SYSCALL LoadLib
|
||||||
bcs CS.INIT.LIBS.9
|
bcs CS.INIT.LIBS.9
|
||||||
|
|
||||||
ldy LibCnt
|
ldy LibCnt
|
||||||
sta hLIBs,y
|
sta hLIBs,y
|
||||||
tay
|
tay
|
||||||
ldx #LIBNET.GETCFG
|
ldx #LIBNET.GETCFG
|
||||||
jsr A2osX.LIBCALL
|
jsr A2osX.LIBCALL
|
||||||
|
bcs CS.INIT.LIBS.9
|
||||||
|
|
||||||
>STYA pNETCFG
|
>STYA pNETCFG
|
||||||
|
|
||||||
lda DevID
|
lda DevID
|
||||||
@ -137,17 +140,30 @@ CS.INIT.LIBS lda LibCnt
|
|||||||
iny S.NETCFG.DevFlags
|
iny S.NETCFG.DevFlags
|
||||||
lda DCB.NIC+S.DCB.NIC.FLAGS
|
lda DCB.NIC+S.DCB.NIC.FLAGS
|
||||||
sta (pNETCFG),y
|
sta (pNETCFG),y
|
||||||
|
|
||||||
ldx #5
|
ldx #5
|
||||||
ldy #S.NETCFG.MAC+5
|
ldy #S.NETCFG.MAC+5
|
||||||
|
|
||||||
.2 lda DCB.NIC+S.DCB.NIC.MAC,x
|
.2 lda DCB.NIC+S.DCB.NIC.MAC,x
|
||||||
sta (pNETCFG),y
|
sta (pNETCFG),y
|
||||||
dey
|
dey
|
||||||
dex
|
dex
|
||||||
bpl .2
|
bpl .2
|
||||||
|
|
||||||
|
>PUSHW pNETCFG
|
||||||
|
|
||||||
|
ldy LibCnt
|
||||||
|
lda hLIBs,y
|
||||||
|
tay
|
||||||
|
ldx #LIBNET.SETCFG
|
||||||
|
jsr A2osX.LIBCALL
|
||||||
|
bcs CS.INIT.LIBS.9
|
||||||
|
|
||||||
inc LibCnt
|
inc LibCnt
|
||||||
lda LibCnt
|
lda LibCnt
|
||||||
cmp #LIB.MAX
|
cmp #LIB.MAX
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
|
|
||||||
CS.INIT.LIBS.9 rts
|
CS.INIT.LIBS.9 rts
|
||||||
|
Loading…
Reference in New Issue
Block a user