Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-10-29 08:22:39 +01:00
parent 142e85c8a4
commit 31c023e662
4 changed files with 10 additions and 9 deletions

Binary file not shown.

View File

@ -9,8 +9,7 @@ DHCP.INIT lda IPCFG+S.NETCFG.STATUS
ldx #3
.1 lda $C064,x
eor A2osX.TIMER16,x
.1 eor A2osX.TIMER16,x
sta DHCP.DISC.XID,x
sta DHCP.REQ.XID,x
dex
@ -47,6 +46,8 @@ DHCP.RUN >PUSHBI 0 no protocol
>LIBCALL hLIBTCPIP,LIBTCPIP.Bind
bcs .9
>SLEEP
>PUSHWI S.SOCKET.O.BROADCAST
lda hSocket
>LIBCALL hLIBTCPIP,LIBTCPIP.setsockopt
@ -181,7 +182,7 @@ DHCP.RUN.SKT.RECV
DHCP.QUIT lda hSocket
beq .1
>LIBCALL hLIBTCPIP,LIBTCPIP.Shutdown
* >LIBCALL hLIBTCPIP,LIBTCPIP.Shutdown
.1 clc
rts
*--------------------------------------

View File

@ -7,25 +7,25 @@ MBAR.New >LDYAI S.MBAR
>SYSCALL2 getmem
bcs .99
>STYA ZPMENUPtr
>STYA ZPObjPtr
lda #S.OBJ.T.MBAR
sta (ZPMENUPtr) S.OBJ.T
sta (ZPObjPtr) S.OBJ.T
lda #0
ldy #S.MBAR-1
.1 sta (ZPMENUPtr),y
.1 sta (ZPObjPtr),y
dey
bne .1
>PULLA
ldy #S.MBAR.MBITEMS
sta (ZPMENUPtr),y
sta (ZPObjPtr),y
>PULLA
iny
sta (ZPMENUPtr),y
sta (ZPObjPtr),y
clc

View File

@ -58,7 +58,7 @@ CFG.SET >PULLW ZPTmpPtr1 IPCFG
jsr CFG.SET.IOCTL
bcs .9
.5 lda IPCFG+S.IPCFG.IP no IP address yes...so no DNS socket
.5 lda IPCFG+S.IPCFG.IP no IP address yet...so no DNS socket
beq .8
stz SA.LOCAL+S.SOCKADDR.PORT