mirror of https://github.com/A2osX/A2osX.git
IPCONFIG:retry fix
This commit is contained in:
parent
f12295ec7c
commit
f6cdf228ed
Binary file not shown.
|
@ -1,9 +1,14 @@
|
||||||
NEW
|
NEW
|
||||||
AUTO 3,1
|
AUTO 3,1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
DHCP.INIT.OK >LDYA L.MSG.DHCP.NA
|
||||||
|
>SYSCALL PutS
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
|
||||||
DHCP.INIT lda IPCFG+S.NETCFG.STATUS
|
DHCP.INIT lda IPCFG+S.NETCFG.STATUS
|
||||||
and #S.IPCFG.STATUS.OK
|
and #S.IPCFG.STATUS.OK
|
||||||
bne .99 Already Configured, exit
|
bne DHCP.INIT.OK Already Configured, exit
|
||||||
|
|
||||||
ldx #3
|
ldx #3
|
||||||
|
|
||||||
|
@ -21,25 +26,12 @@ DHCP.INIT lda IPCFG+S.NETCFG.STATUS
|
||||||
dex
|
dex
|
||||||
bpl .2
|
bpl .2
|
||||||
|
|
||||||
clc
|
|
||||||
rts
|
|
||||||
|
|
||||||
.99 >LDYA L.MSG.DHCP.NA
|
|
||||||
|
|
||||||
>SYSCALL PutS
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
DHCP.RUN stz IPCFG+S.NETCFG.STATUS
|
|
||||||
|
|
||||||
>PUSHBI S.SOCKET.T.DGRAM
|
>PUSHBI S.SOCKET.T.DGRAM
|
||||||
>PUSHBI 0 no protocol
|
>PUSHBI 0 no protocol
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Socket
|
>LIBCALL hLIBTCPIP,LIBTCPIP.Socket
|
||||||
bcc .1
|
bcs .9
|
||||||
|
|
||||||
.9 jmp DHCP.RUN.KO
|
sta hSocket
|
||||||
|
|
||||||
.1 sta hSocket
|
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHW L.SA.LOCAL
|
>PUSHW L.SA.LOCAL
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Bind
|
>LIBCALL hLIBTCPIP,LIBTCPIP.Bind
|
||||||
|
@ -58,6 +50,12 @@ DHCP.RUN stz IPCFG+S.NETCFG.STATUS
|
||||||
|
|
||||||
>LDYA L.MSG.DHCP.CFG1
|
>LDYA L.MSG.DHCP.CFG1
|
||||||
>SYSCALL PutS
|
>SYSCALL PutS
|
||||||
|
|
||||||
|
rts
|
||||||
|
|
||||||
|
.9 jmp DHCP.RUN.KO
|
||||||
|
*--------------------------------------
|
||||||
|
DHCP.RUN stz IPCFG+S.NETCFG.STATUS
|
||||||
|
|
||||||
>SLEEP
|
>SLEEP
|
||||||
|
|
||||||
|
@ -253,6 +251,7 @@ CheckDHCPOffer jsr CheckDHCPXID
|
||||||
php
|
php
|
||||||
lda hFrame
|
lda hFrame
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
|
stz hFrame
|
||||||
plp
|
plp
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -343,6 +342,7 @@ CheckDHCPAck jsr CheckDHCPXID
|
||||||
php
|
php
|
||||||
lda hFrame
|
lda hFrame
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
|
stz hFrame
|
||||||
plp
|
plp
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -200,7 +200,7 @@ CS.RUN.SETUP
|
||||||
jsr ETC.ReadFiles
|
jsr ETC.ReadFiles
|
||||||
|
|
||||||
.6 lda bDHCP
|
.6 lda bDHCP
|
||||||
bpl .8
|
bpl .80
|
||||||
|
|
||||||
jsr DHCP.INIT
|
jsr DHCP.INIT
|
||||||
bcs CS.RUN.SETUP.RTS
|
bcs CS.RUN.SETUP.RTS
|
||||||
|
@ -222,7 +222,7 @@ CS.RUN.SETUP
|
||||||
|
|
||||||
.8 jsr DHCP.QUIT
|
.8 jsr DHCP.QUIT
|
||||||
|
|
||||||
lda #0
|
.80 lda #0
|
||||||
sec
|
sec
|
||||||
|
|
||||||
CS.RUN.SETUP.RTS
|
CS.RUN.SETUP.RTS
|
||||||
|
|
Loading…
Reference in New Issue