diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 53ea8b1c..618c6ba4 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index 42625221..b9d1d239 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/BIN/ARP.S.txt b/BIN/ARP.S.txt index f90b0a91..7b154eff 100644 --- a/BIN/ARP.S.txt +++ b/BIN/ARP.S.txt @@ -21,7 +21,8 @@ CS.START cld jmp (.1,x) .DA #$61 6502,Level 1 (65c02) .DA #1 BIN Layout Version 1 - .DA 0 + .DA #S.PS.F.EVENT + .DA #0 .DA CS.END-CS.START CS .DA DS.END-DS.START DS .DA #16 SS @@ -47,15 +48,12 @@ CS.INIT >LDYA L.LIBTCPIP bcs .9 sta hLIBTCPIP - lda (pPs) - ora #S.PS.F.EVENT Now accept events - sta (pPs) - clc .9 rts *-------------------------------------- CS.RUN ldy #S.PS.ARGC lda (pPs),y - bne .1 + cmp #2 + bcs .1 jmp CS.RUN.DUMP .1 >PUSHEA.G DST.IP+3 diff --git a/LIB/LIBTCPIP.S.DNS.txt b/LIB/LIBTCPIP.S.DNS.txt index 8022e88d..351c99d1 100644 --- a/LIB/LIBTCPIP.S.DNS.txt +++ b/LIB/LIBTCPIP.S.DNS.txt @@ -106,21 +106,34 @@ DNS.REQUEST lda hDNSSocket rts *-------------------------------------- DNS.REQUEST.SEND - ldy #3 -.1 lda IPCFG+S.IPCFG.DNS1,y - sta SA.REMOTE+S.SOCKADDR.ADDR,y - dey - bpl .1 - >LDYAI UDP.PORT.DNS >STYA SA.REMOTE+S.SOCKADDR.PORT - >PUSHW L.SA.REMOTE + ldy #3 + +.1 lda IPCFG+S.IPCFG.DNS1,y + sta SA.REMOTE+S.SOCKADDR.ADDR,y + dey + bpl .1 + jsr .4 + + ldy #3 + +.2 lda IPCFG+S.IPCFG.DNS2,y + beq .8 + sta SA.REMOTE+S.SOCKADDR.ADDR,y + dey + bpl .2 + +.4 >PUSHW L.SA.REMOTE >PUSHW DNS.MSG.LEN >PUSHW L.DNS.MSG lda hDNSSocket jmp SKT.SendTo + +.8 clc + rts *-------------------------------------- DNS.CSTR2DNS lda (ZPPtrDNS) beq .9