2017-12-22 21:24:30 +00:00
|
|
|
|
NEW
|
2019-05-05 17:15:37 +00:00
|
|
|
|
AUTO 3,1
|
2015-03-14 21:48:35 +00:00
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2019-01-15 16:37:32 +00:00
|
|
|
|
.TF LIB/LIBTCPIP
|
2018-11-09 13:29:23 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
IPDEBUG .EQ 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.MA ADC16
|
|
|
|
|
clc
|
|
|
|
|
lda ]1
|
|
|
|
|
adc ]2
|
|
|
|
|
sta ]1
|
|
|
|
|
lda ]1+1
|
|
|
|
|
adc ]2+1
|
|
|
|
|
sta ]1+1
|
|
|
|
|
.EM
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.MA SBC16
|
|
|
|
|
sec
|
|
|
|
|
lda ]1
|
|
|
|
|
sbc ]2
|
|
|
|
|
sta ]1
|
|
|
|
|
lda ]1+1
|
|
|
|
|
sbc ]2+1
|
|
|
|
|
sta ]1+1
|
|
|
|
|
.EM
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2018-07-23 06:28:47 +00:00
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
.INB INC/A2OSX.I
|
2018-10-08 15:41:00 +00:00
|
|
|
|
.INB INC/MLI.I
|
2018-10-02 15:52:30 +00:00
|
|
|
|
.INB INC/MLI.E.I
|
2018-07-23 06:28:47 +00:00
|
|
|
|
.INB INC/NIC.I
|
|
|
|
|
.INB INC/ETH.I
|
2019-01-17 15:05:48 +00:00
|
|
|
|
.INB INC/LIB.NET.I
|
2018-07-23 06:28:47 +00:00
|
|
|
|
.INB INC/LIBTCPIP.I
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2017-01-31 16:40:37 +00:00
|
|
|
|
ZPFrameInPtr .EQ ZPLIB
|
|
|
|
|
ZPFrameInLen .EQ ZPLIB+2
|
|
|
|
|
|
|
|
|
|
ZPDataInPtr .EQ ZPLIB+4
|
|
|
|
|
ZPDataInLen .EQ ZPLIB+6
|
|
|
|
|
|
|
|
|
|
ZPFrameOutPtr .EQ ZPLIB+8
|
|
|
|
|
ZPFrameOutLen .EQ ZPLIB+10
|
|
|
|
|
|
|
|
|
|
ZPDataOutPtr .EQ ZPLIB+12
|
|
|
|
|
ZPDataOutLen .EQ ZPLIB+14
|
|
|
|
|
|
|
|
|
|
ZPPtrIP .EQ ZPLIB+16
|
|
|
|
|
ZPPtrMAC .EQ ZPLIB+18
|
|
|
|
|
ZPPtrDNS .EQ ZPLIB+20
|
|
|
|
|
ZPPtrSKT .EQ ZPLIB+22
|
|
|
|
|
|
|
|
|
|
ZPCachePtr .EQ ZPLIB+24
|
|
|
|
|
ZPTmpPtr1 .EQ ZPLIB+26
|
2019-06-10 08:19:13 +00:00
|
|
|
|
ZPTmpPtr2 .EQ ZPLIB+28
|
2019-06-05 15:34:49 +00:00
|
|
|
|
TmpDWord .EQ ZPLIB+28
|
|
|
|
|
IP.CHECKSUM .EQ ZPLIB+28
|
2019-06-10 08:19:13 +00:00
|
|
|
|
IP.CHECKSUM.TMP .EQ ZPLIB+30
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2015-06-03 18:30:57 +00:00
|
|
|
|
* File Header (16 Bytes)
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
2015-06-03 18:30:57 +00:00
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
|
|
|
|
.DA 0
|
|
|
|
|
.DA CS.END-CS.START
|
|
|
|
|
.DA 0
|
|
|
|
|
.DA 0
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Relocation Table
|
|
|
|
|
*--------------------------------------
|
2015-03-14 21:48:35 +00:00
|
|
|
|
.1 .DA LIB.LOAD
|
|
|
|
|
.DA LIB.UNLOAD
|
|
|
|
|
|
2019-01-14 07:11:50 +00:00
|
|
|
|
.DA CFG.SET
|
|
|
|
|
.DA CFG.GET
|
2015-03-14 21:48:35 +00:00
|
|
|
|
|
2019-01-14 07:11:50 +00:00
|
|
|
|
.DA INCOMING
|
2018-07-23 15:28:42 +00:00
|
|
|
|
.DA PULSE
|
2017-02-15 21:46:21 +00:00
|
|
|
|
|
2015-03-14 21:48:35 +00:00
|
|
|
|
.DA ARP.CLEAR
|
|
|
|
|
.DA ARP.QUERY
|
|
|
|
|
.DA ARP.ADD
|
2017-10-06 15:25:14 +00:00
|
|
|
|
.DA ARP.GetCACHE
|
2015-03-14 21:48:35 +00:00
|
|
|
|
|
|
|
|
|
.DA DNS.CLEAR
|
|
|
|
|
.DA DNS.QUERY
|
|
|
|
|
.DA DNS.ADD
|
2017-10-06 15:25:14 +00:00
|
|
|
|
.DA DNS.GetCACHE
|
2015-03-14 21:48:35 +00:00
|
|
|
|
|
2017-02-15 16:14:41 +00:00
|
|
|
|
.DA HST.GETBYNAME
|
|
|
|
|
.DA HST.GETBYADDR
|
|
|
|
|
|
2018-10-01 05:48:42 +00:00
|
|
|
|
.DA SKT.Socket
|
|
|
|
|
.DA SKT.Bind
|
|
|
|
|
.DA SKT.Connect
|
|
|
|
|
.DA SKT.Listen
|
2017-02-15 16:14:41 +00:00
|
|
|
|
|
2018-07-23 15:28:42 +00:00
|
|
|
|
.DA SKT.Accept
|
2018-10-10 15:39:22 +00:00
|
|
|
|
.DA SKT.Shutdown
|
2016-03-13 22:09:00 +00:00
|
|
|
|
|
2017-02-15 16:14:41 +00:00
|
|
|
|
.DA SKT.Read
|
2018-08-29 15:01:02 +00:00
|
|
|
|
.DA SKT.Write
|
2018-10-08 15:41:00 +00:00
|
|
|
|
.DA SKT.Recv
|
2018-08-29 15:01:02 +00:00
|
|
|
|
.DA SKT.Send
|
2018-10-01 05:48:42 +00:00
|
|
|
|
|
2018-10-08 15:41:00 +00:00
|
|
|
|
.DA SKT.RecvFrom
|
2018-10-01 05:48:42 +00:00
|
|
|
|
.DA SKT.SendTo
|
|
|
|
|
|
2018-11-08 14:23:06 +00:00
|
|
|
|
.DA SKT.getsockopt
|
2018-11-07 21:48:48 +00:00
|
|
|
|
.DA SKT.setsockopt
|
2018-11-08 14:23:06 +00:00
|
|
|
|
|
2019-03-01 14:36:20 +00:00
|
|
|
|
.DA SKT.EOF
|
2018-11-08 14:23:06 +00:00
|
|
|
|
.DA SKT.GetTable
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
L.IPCFG .DA IPCFG
|
2016-03-13 22:09:00 +00:00
|
|
|
|
L.ARP.REQ .DA ARP.REQ
|
|
|
|
|
L.ARP.REP .DA ARP.REP
|
2018-10-09 15:47:06 +00:00
|
|
|
|
L.SA.LOCAL .DA SA.LOCAL
|
|
|
|
|
L.SA.REMOTE .DA SA.REMOTE
|
2016-03-13 22:09:00 +00:00
|
|
|
|
L.DNS.MSG .DA DNS.MSG
|
2015-03-14 21:48:35 +00:00
|
|
|
|
L.ARP.CACHE .DA ARP.CACHE
|
|
|
|
|
L.DNS.CACHE .DA DNS.CACHE
|
2018-10-01 05:48:42 +00:00
|
|
|
|
L.SKT.Table .DA SKT.Table
|
2018-05-25 19:03:31 +00:00
|
|
|
|
L.HST.SScanF .DA HST.SScanF
|
2018-07-23 06:28:47 +00:00
|
|
|
|
L.IOCTL .DA IOCTL
|
|
|
|
|
L.DCB.NIC .DA DCB.NIC
|
2018-09-27 15:34:38 +00:00
|
|
|
|
J.TCP.IN .DA TCP.IN.JMP.CLOSED
|
2017-01-28 22:05:20 +00:00
|
|
|
|
.DA TCP.IN.JMP.LISTEN
|
|
|
|
|
.DA TCP.IN.JMP.SYNSENT
|
|
|
|
|
.DA TCP.IN.JMP.SYNRCVD
|
|
|
|
|
.DA TCP.IN.JMP.ESTBLSH
|
|
|
|
|
.DA TCP.IN.JMP.CLWAIT
|
|
|
|
|
.DA TCP.IN.JMP.LASTACK
|
|
|
|
|
.DA TCP.IN.JMP.FINWT1
|
|
|
|
|
.DA TCP.IN.JMP.FINWT2
|
|
|
|
|
.DA TCP.IN.JMP.CLOSING
|
|
|
|
|
.DA TCP.IN.JMP.TIMEWT
|
2018-09-28 05:58:24 +00:00
|
|
|
|
J.SKT.Socket .DA SKT.Socket.RAW
|
|
|
|
|
.DA SKT.Socket.DGRAM
|
|
|
|
|
.DA SKT.Socket.SEQPACKET
|
2018-11-01 08:53:47 +00:00
|
|
|
|
.DA SKT.Socket.STREAM
|
2018-09-27 15:34:38 +00:00
|
|
|
|
J.SKT.connect .DA SKT.connect.RAW
|
|
|
|
|
.DA SKT.connect.DGRAM
|
2018-10-01 15:52:58 +00:00
|
|
|
|
.DA SKT.connect.SEQPACKET
|
2018-11-01 08:53:47 +00:00
|
|
|
|
.DA SKT.connect.STREAM
|
2018-11-06 16:31:13 +00:00
|
|
|
|
J.SKT.shutdown .DA SKT.shutdown.RAW
|
|
|
|
|
.DA SKT.shutdown.DGRAM
|
|
|
|
|
.DA SKT.shutdown.SEQPACKET
|
|
|
|
|
.DA SKT.shutdown.STREAM
|
2018-10-01 15:52:58 +00:00
|
|
|
|
J.SKT.send .DA SKT.send.RAW
|
|
|
|
|
.DA SKT.send.DGRAM
|
|
|
|
|
.DA SKT.send.SEQPACKET
|
2018-11-01 08:53:47 +00:00
|
|
|
|
.DA SKT.send.STREAM
|
2018-11-09 13:29:23 +00:00
|
|
|
|
.DO IPDEBUG=1
|
2018-11-09 07:45:36 +00:00
|
|
|
|
L.MSG.FRM.Dump .DA MSG.FRM.Dump
|
|
|
|
|
L.MSG.SKT.Dump .DA MSG.SKT.Dump
|
2019-05-18 15:38:31 +00:00
|
|
|
|
.FIN
|
|
|
|
|
.DO IPDEBUG=2
|
|
|
|
|
L.MSG.SEQNUM .DA MSG.SEQNUM
|
2018-11-09 13:29:23 +00:00
|
|
|
|
.FIN
|
2015-03-14 21:48:35 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
2018-05-24 15:21:38 +00:00
|
|
|
|
LIB.LOAD ldx RefCount
|
2015-09-13 20:35:07 +00:00
|
|
|
|
bne .8
|
2019-01-14 07:11:50 +00:00
|
|
|
|
|
2018-11-19 07:43:00 +00:00
|
|
|
|
sta FD.DSOCK+S.FD.DSOCK.IOHANDLER
|
|
|
|
|
sta FD.SSOCK+S.FD.SSOCK.IOHANDLER
|
2019-01-14 07:11:50 +00:00
|
|
|
|
|
2015-03-14 21:48:35 +00:00
|
|
|
|
jsr ARP.CLEAR
|
|
|
|
|
jsr DNS.CLEAR
|
2018-10-01 05:48:42 +00:00
|
|
|
|
|
2018-05-24 15:21:38 +00:00
|
|
|
|
.8 inc RefCount
|
2018-07-26 15:26:39 +00:00
|
|
|
|
|
2018-05-24 15:21:38 +00:00
|
|
|
|
clc
|
2019-02-05 13:45:15 +00:00
|
|
|
|
rts
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2018-05-24 15:21:38 +00:00
|
|
|
|
LIB.UNLOAD dec RefCount
|
2018-10-01 05:48:42 +00:00
|
|
|
|
|
2019-01-16 14:37:21 +00:00
|
|
|
|
clc
|
2015-03-14 21:48:35 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2019-01-14 07:11:50 +00:00
|
|
|
|
INCOMING sta hFrameIn
|
2019-01-14 16:37:56 +00:00
|
|
|
|
|
|
|
|
|
>PULLW ZPTmpPtr1
|
|
|
|
|
ldy #S.IOCTL.BUFPTR+3
|
2017-01-31 16:40:37 +00:00
|
|
|
|
|
2019-01-14 16:37:56 +00:00
|
|
|
|
.1 lda (ZPTmpPtr1),y Get Frame Ptr & Len
|
|
|
|
|
sta ZPFrameInPtr-S.IOCTL.BUFPTR,y
|
|
|
|
|
dey
|
|
|
|
|
bpl .1
|
2017-01-29 21:47:19 +00:00
|
|
|
|
|
2018-11-06 16:31:13 +00:00
|
|
|
|
ldy #S.ETH.EII.TYPE
|
2017-01-31 16:40:37 +00:00
|
|
|
|
lda (ZPFrameInPtr),y
|
2019-05-21 06:34:39 +00:00
|
|
|
|
cmp /S.ETH.EII.TYPE.IP
|
|
|
|
|
bne .9
|
|
|
|
|
|
2017-01-29 21:47:19 +00:00
|
|
|
|
iny
|
2017-01-31 16:40:37 +00:00
|
|
|
|
lda (ZPFrameInPtr),y
|
2017-01-29 21:47:19 +00:00
|
|
|
|
|
2018-11-06 16:31:13 +00:00
|
|
|
|
cmp #S.ETH.EII.TYPE.ARP
|
2019-01-14 16:37:56 +00:00
|
|
|
|
bne .2
|
2017-01-29 21:47:19 +00:00
|
|
|
|
|
|
|
|
|
jmp ARP.IN
|
|
|
|
|
|
2019-01-14 16:37:56 +00:00
|
|
|
|
.2 cmp #S.ETH.EII.TYPE.IP
|
2017-01-29 21:47:19 +00:00
|
|
|
|
bne .9
|
2019-05-21 06:34:39 +00:00
|
|
|
|
|
2017-01-29 21:47:19 +00:00
|
|
|
|
jmp IP.IN
|
|
|
|
|
|
2019-01-14 16:37:56 +00:00
|
|
|
|
.9 sec
|
|
|
|
|
rts
|
2017-01-29 21:47:19 +00:00
|
|
|
|
*--------------------------------------
|
2019-01-14 16:37:56 +00:00
|
|
|
|
* A = S.EVT.F
|
2016-03-20 22:16:01 +00:00
|
|
|
|
* Expire = every sec
|
|
|
|
|
* Retry = every 100 msec
|
|
|
|
|
*--------------------------------------
|
2018-07-23 15:28:42 +00:00
|
|
|
|
PULSE and #S.EVT.F.T1SEC
|
2017-01-30 21:03:12 +00:00
|
|
|
|
beq .1
|
2018-08-08 15:13:37 +00:00
|
|
|
|
|
2018-11-01 08:53:47 +00:00
|
|
|
|
jsr ARP.EXPIRE
|
|
|
|
|
jsr DNS.EXPIRE
|
2017-01-29 21:47:19 +00:00
|
|
|
|
|
2019-05-10 14:49:53 +00:00
|
|
|
|
.1 jsr FRM.RETRY
|
2019-05-05 17:15:37 +00:00
|
|
|
|
jsr DNS.POLL
|
2019-05-10 14:49:53 +00:00
|
|
|
|
|
|
|
|
|
jmp TCP.SENDCLOSE
|
2016-03-20 22:16:01 +00:00
|
|
|
|
*--------------------------------------
|
2016-01-16 22:04:22 +00:00
|
|
|
|
GetDynPort inc DYNPORT.LAST
|
|
|
|
|
bne .1
|
|
|
|
|
inc DYNPORT.LAST+1
|
2017-01-30 22:23:16 +00:00
|
|
|
|
|
2016-01-16 22:04:22 +00:00
|
|
|
|
lda DYNPORT.LAST
|
2017-01-30 22:23:16 +00:00
|
|
|
|
cmp #K.DYNPORT.END
|
2016-01-16 22:04:22 +00:00
|
|
|
|
lda DYNPORT.LAST+1
|
|
|
|
|
sbc /K.DYNPORT.END
|
2017-01-30 22:23:16 +00:00
|
|
|
|
|
2016-01-16 22:04:22 +00:00
|
|
|
|
bcs .1
|
2017-01-30 22:23:16 +00:00
|
|
|
|
|
2018-07-12 15:20:39 +00:00
|
|
|
|
lda #K.DYNPORT.START
|
|
|
|
|
ldx /K.DYNPORT.START
|
2017-10-12 15:28:59 +00:00
|
|
|
|
sta DYNPORT.LAST
|
|
|
|
|
stx DYNPORT.LAST+1
|
2016-01-16 22:04:22 +00:00
|
|
|
|
rts CC
|
|
|
|
|
|
2017-10-12 15:28:59 +00:00
|
|
|
|
.1 lda DYNPORT.LAST
|
|
|
|
|
ldx DYNPORT.LAST+1
|
2015-03-14 21:48:35 +00:00
|
|
|
|
clc
|
2016-01-16 22:04:22 +00:00
|
|
|
|
rts
|
2018-11-09 13:29:23 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DO IPDEBUG=1
|
|
|
|
|
FRM.Dump ldy #S.TCPUDP.DSTPORT
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
ldy #S.IP.DST+3
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
ldy #S.TCPUDP.SRCPORT
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
iny
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
ldy #S.IP.SRC+3
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPFrameInPtr),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
>PUSHBI 12
|
|
|
|
|
>LDYA L.MSG.FRM.Dump
|
2019-05-05 17:15:37 +00:00
|
|
|
|
>SYSCALL2 Printf
|
2018-11-09 13:29:23 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
SKT.Dump ldy #S.SOCKET.REM.PORT+1
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
ldy #S.SOCKET.REM.ADDR+3
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
ldy #S.SOCKET.LOC.PORT+1
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
ldy #S.SOCKET.LOC.ADDR+3
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
dey
|
|
|
|
|
lda (ZPPtrSKT),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
|
|
|
|
|
>PUSHBI 12
|
|
|
|
|
>LDYA L.MSG.SKT.Dump
|
2019-05-05 17:15:37 +00:00
|
|
|
|
>SYSCALL2 Printf
|
2018-11-09 13:29:23 +00:00
|
|
|
|
rts
|
|
|
|
|
.FIN
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
2018-11-17 17:17:13 +00:00
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.ARP
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.CFG
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.DNS
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.FRM
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.HST
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.ICMP
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.IP
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.SKT
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.TCP
|
|
|
|
|
.INB USR/SRC/LIB/LIBTCPIP.S.UDP
|
2016-01-09 22:36:24 +00:00
|
|
|
|
*--------------------------------------
|
2015-03-14 21:48:35 +00:00
|
|
|
|
CS.END
|
|
|
|
|
*--------------------------------------
|
2018-10-09 15:47:06 +00:00
|
|
|
|
SA.LOCAL .DA #AF.INET S.SOCKADDR.AF
|
|
|
|
|
.BS 1
|
|
|
|
|
.BS 4 S.SOCKADDR.ADDR
|
|
|
|
|
.BS 2 S.SOCKADDR.PORT
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
SA.REMOTE .DA #AF.INET S.SOCKADDR.AF
|
|
|
|
|
.BS 1
|
|
|
|
|
.BS 4 S.SOCKADDR.ADDR
|
|
|
|
|
.BS 2 S.SOCKADDR.PORT
|
|
|
|
|
*--------------------------------------
|
2018-10-01 15:52:58 +00:00
|
|
|
|
FD.DSOCK .DA #S.FD.T.DSOCK
|
2018-11-19 07:43:00 +00:00
|
|
|
|
.DA #0 S.FD.HANDLER
|
|
|
|
|
.BS 1 S.FD.DSOCK.IOHANDLER
|
2018-10-01 15:52:58 +00:00
|
|
|
|
.DA #0 S.FD.DSOCK.OPEN
|
2019-05-08 19:41:46 +00:00
|
|
|
|
.DA #LIBTCPIP.shutdown
|
2018-10-10 15:39:22 +00:00
|
|
|
|
.DA #LIBTCPIP.Recv
|
|
|
|
|
.DA #LIBTCPIP.Send
|
2018-10-01 15:52:58 +00:00
|
|
|
|
.DA #0 S.FD.DSOCK.STATUS
|
|
|
|
|
*--------------------------------------
|
2018-10-01 05:48:42 +00:00
|
|
|
|
.DA #AF.INET S.SOCKET.AF
|
2018-09-28 15:24:44 +00:00
|
|
|
|
.BS 1 S.SOCKET.T
|
|
|
|
|
.BS 1 S.SOCKET.PROTO
|
2018-10-01 15:52:58 +00:00
|
|
|
|
FD.DSOCK.SIZE .EQ *-FD.DSOCK
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
FD.SSOCK .DA #S.FD.T.SSOCK
|
2018-11-19 07:43:00 +00:00
|
|
|
|
.DA #0 S.FD.HANDLER
|
|
|
|
|
.BS 1 S.FD.SSOCK.IOHANDLER
|
2018-11-01 08:53:47 +00:00
|
|
|
|
.DA #0 S.FD.SSOCK.OPEN
|
2019-05-08 19:41:46 +00:00
|
|
|
|
.DA #LIBTCPIP.shutdown
|
2018-10-10 15:39:22 +00:00
|
|
|
|
.DA #LIBTCPIP.Read
|
|
|
|
|
.DA #LIBTCPIP.Write
|
2019-03-01 14:36:20 +00:00
|
|
|
|
.DA #LIBTCPIP.EOF
|
2018-10-01 15:52:58 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DA #AF.INET S.SOCKET.AF
|
|
|
|
|
.DA #S.SOCKET.T.STREAM
|
2018-10-08 05:55:28 +00:00
|
|
|
|
.DA #S.IP.PROTOCOL.TCP
|
2018-09-28 15:24:44 +00:00
|
|
|
|
FD.SSOCK.SIZE .EQ *-FD.SSOCK
|
2018-07-26 15:26:39 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
IOCTL .BS S.IOCTL
|
|
|
|
|
DCB.NIC .BS S.DCB.NIC
|
|
|
|
|
IPCFG .BS S.IPCFG
|
|
|
|
|
ARP.CACHE .BS K.ARPCACHE.SIZE*S.ARPCACHE
|
|
|
|
|
DNS.CACHE .BS K.DNSCACHE.SIZE*S.DNSCACHE
|
|
|
|
|
*--------------------------------------
|
2018-09-17 15:42:38 +00:00
|
|
|
|
ARP.REQ .HS FFFFFFFFFFFF S.ETH.DSTMAC
|
2016-03-13 22:09:00 +00:00
|
|
|
|
ARP.REQ.SRCMAC .BS 6
|
2018-11-06 16:31:13 +00:00
|
|
|
|
ARP.REQ.ETYPE .DA /S.ETH.EII.TYPE.ARP
|
|
|
|
|
.DA #S.ETH.EII.TYPE.ARP
|
2016-03-13 22:09:00 +00:00
|
|
|
|
.HS 0001.0800.06.04
|
|
|
|
|
ARP.REQ.OP .DA /S.ARP.OPERATION.REQ
|
|
|
|
|
.DA #S.ARP.OPERATION.REQ
|
|
|
|
|
ARP.REQ.SHA .BS 6
|
|
|
|
|
ARP.REQ.SPA .BS 4
|
|
|
|
|
ARP.REQ.THA .BS 6
|
|
|
|
|
ARP.REQ.TPA .BS 4
|
|
|
|
|
*--------------------------------------
|
2018-08-08 15:13:37 +00:00
|
|
|
|
ARP.REP .EQ *
|
2016-03-13 22:09:00 +00:00
|
|
|
|
ARP.REP.DSTMAC .BS 6
|
|
|
|
|
ARP.REP.SRCMAC .BS 6
|
2018-11-06 16:31:13 +00:00
|
|
|
|
ARP.REP.ETYPE .DA /S.ETH.EII.TYPE.ARP
|
|
|
|
|
.DA #S.ETH.EII.TYPE.ARP
|
2016-03-13 22:09:00 +00:00
|
|
|
|
.HS 0001.0800.06.04
|
|
|
|
|
ARP.REP.OP .DA /S.ARP.OPERATION.REP
|
|
|
|
|
.DA #S.ARP.OPERATION.REP
|
|
|
|
|
ARP.REP.SHA .BS 6
|
|
|
|
|
ARP.REP.SPA .BS 4
|
|
|
|
|
ARP.REP.THA .BS 6
|
|
|
|
|
ARP.REP.TPA .BS 4
|
|
|
|
|
*--------------------------------------
|
2016-03-15 17:16:14 +00:00
|
|
|
|
DNS.MSG
|
|
|
|
|
DNS.MSG.ID .BS 2
|
2016-03-13 22:09:00 +00:00
|
|
|
|
.DA /S.DNS.F.RD Flags=query
|
2016-03-20 22:16:01 +00:00
|
|
|
|
.DA #S.DNS.F.RD
|
2016-03-13 22:09:00 +00:00
|
|
|
|
.DA $100 QDCOUNT
|
|
|
|
|
.BS 6 ANCOUNT,NSCOUNT,ARCOUNT
|
2016-03-15 17:16:14 +00:00
|
|
|
|
DNS.MSG.NAME .BS K.DNS.MAXLEN+6
|
2016-03-13 22:09:00 +00:00
|
|
|
|
*--------------------------------------
|
2018-09-10 15:07:26 +00:00
|
|
|
|
DNS.MSG.LEN .BS 2
|
|
|
|
|
*--------------------------------------
|
2016-03-20 22:16:01 +00:00
|
|
|
|
FRM.QUEUE.Tail .BS 1
|
|
|
|
|
FRM.QUEUE.Head .BS 1
|
|
|
|
|
FRM.QUEUE.hMem .BS K.FRMQUEUE.SIZE
|
|
|
|
|
FRM.QUEUE.State .BS K.FRMQUEUE.SIZE
|
|
|
|
|
FRM.QUEUE.Retry .BS K.FRMQUEUE.SIZE
|
2018-07-23 15:28:42 +00:00
|
|
|
|
FRM.QUEUE.LenL .BS K.FRMQUEUE.SIZE
|
|
|
|
|
FRM.QUEUE.LenH .BS K.FRMQUEUE.SIZE
|
2016-03-13 22:09:00 +00:00
|
|
|
|
*--------------------------------------
|
2018-05-24 15:21:38 +00:00
|
|
|
|
RefCount .DA #0
|
2017-02-13 07:26:18 +00:00
|
|
|
|
DYNPORT.LAST .DA K.DYNPORT.START
|
2018-10-08 15:41:00 +00:00
|
|
|
|
hDNSSocket .BS 1
|
2016-03-15 17:16:14 +00:00
|
|
|
|
DNS.TmpCache .BS S.DNSCACHE
|
2019-03-11 07:01:40 +00:00
|
|
|
|
ARP.TmpCache .BS S.ARPCACHE
|
2018-11-06 16:31:13 +00:00
|
|
|
|
*--------------------------------------
|
2018-11-08 14:23:06 +00:00
|
|
|
|
SKT.Index .BS 1
|
2018-11-06 16:31:13 +00:00
|
|
|
|
SKT.TABLE .BS K.SKTTABLE.SIZE
|
2018-10-01 05:48:42 +00:00
|
|
|
|
SKT.LOC.ADDR .BS S.SOCKADDR
|
|
|
|
|
SKT.REM.ADDR .BS S.SOCKADDR
|
2019-05-13 15:40:37 +00:00
|
|
|
|
SKT.Cache .EQ *-S.SOCKET.TCP.INTAIL
|
|
|
|
|
.BS S.SOCKET.TCP-S.SOCKET.TCP.INTAIL
|
2017-01-29 21:47:19 +00:00
|
|
|
|
hFrameIn .BS 1
|
|
|
|
|
hFrameOut .BS 1
|
2018-05-25 19:03:31 +00:00
|
|
|
|
HST.SScanF .AZ "%d.%d.%d.%d"
|
2017-02-13 07:26:18 +00:00
|
|
|
|
IP.ID .BS 2
|
2018-11-09 13:29:23 +00:00
|
|
|
|
.DO IPDEBUG=1
|
2018-11-09 07:45:36 +00:00
|
|
|
|
MSG.FRM.Dump .AZ "FRM:SRC=%d.%d.%d.%d:%D DST=%d.%d.%d.%d:%D\r\n"
|
|
|
|
|
MSG.SKT.Dump .AZ "SKT:LOC=%d.%d.%d.%d:%D REM=%d.%d.%d.%d:%D\r\n"
|
2018-11-09 13:29:23 +00:00
|
|
|
|
.FIN
|
2019-05-18 15:38:31 +00:00
|
|
|
|
.DO IPDEBUG=2
|
|
|
|
|
MSG.SEQNUM .AZ "FRM:%h%h%h%h,SKT:%h%h%h%h\r\n"
|
|
|
|
|
.FIN
|
2015-03-14 21:48:35 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
2018-11-17 17:17:13 +00:00
|
|
|
|
SAVE USR/SRC/LIB/LIBTCPIP.S
|
2015-03-14 21:48:35 +00:00
|
|
|
|
ASM
|